<*** YT3MV - Manchester AX.25 modem - 24/01/1990 ***> 32768*65536=npr -1$d=pi $:cho(7) 0=cho(5) 16.5=cho(1) 33=cho(7) 66=cho(3) 132=cho(4) 264=cho(0) 528=cho(6) 1056=cho(2) $:ste(7) 1=ste(5) 1=ste(1) 2=ste(7) 4=ste(3) 8=ste(4) 16=ste(0) 32=ste(6) 64=ste(2) $:nst(15) 0=nst(10) 1=nst(2) 2=nst(14) 3=nst(6) 4=nst(8) 5=nst(0) 6=nst(12) 7=nst(4) 8=nst(11) 9=nst(3) 10=nst(15) 11=nst(7) 12=nst(9) 13=nst(1) 14=nst(13) 15=nst(5) $:rab(951) rab(0)&<200A D08C>=rab rab&<2040 704F 4258 51C8 FFFC> rab&<0680 0000 0050>=ran $:fbu(63) fbu(0)&<200A D08C 323C AAAA>=fbu $:f(1023) $:fbs(15) 0=no1 #101 no1*64=no2 f(no2)&<200A D08C 7200>=fbs(no1) no1+1=no1 no1-15.5$j-101 0=n2 #103 0=n1 #102 nst(n2)*ste(n1)+cho(n1)+0.5*14+npr=tvr ran&<2040> tvr&<30C0 4440 30C0 2008>=ran n1+1=n1 n1-7.5$j-102 n2+1=n2 n2-15.5$j-103 0.5=n1 pi/128=n2 #104 n1*n2$s+65536=tvr ran&<2040> tvr&<30C0 4440 3140 00FE 2008>=ran n1+1=n1 n1-128$j-104 rab&<0680 0000 0650>=trn trn&<2040 70FF 323C 07FF 30C0 51C9 FFFC> 0=n2 #106 0=n1 #107 n2*8+n1*2+npr=n3 nst(n2)*ste(n1)+cho(n1)+npr=tvt trn&<2040> tvt&<2E00> n3&<1180 7000> n1+1=n1 n1-7.5$j-107 n2+1=n2 n2-15.5$j-106 trn&<0680 0000 1000 2040 70FF 323C 0FFF> &<0C20 00FF 6604 1080 6002 1010 51C9 FFF2> trn&<2040 0680 0000 1000 2240 323C 07FF> &<1018 0000 0001 1300 51C9 FFF6> rab&<0680 0000 0450 2040 7200> &<7000 1001 7407 E248 6404 0A40 8408 51CA FFF6> &<30C0 5201 66E8> $:tbu(63) tbu(0)&<200A D08C>=tbu $:g(1023) $:tbs(15) 0=nt1 #105 nt1*64=nt2 g(nt2)&<200A D08C>=tbs(nt1) nt1+1=nt1 nt1-15.5$j-105 $:clm(11) clm(0)&<200A D08C>=clm $:clr(11) clr(0)&<200A D08C>=clr $:clt(11) clt(0)&<200A D08C>=clt $:clc(11) clc(0)&<200A D08C>=clc $:txt(999) $:nib(7) $:n(351) 0=n1 #108 n1*44=n2 n(n2)&<200A D08C>=nib(n1) n1+1=n1 n1-7.5$j-108 $j400 <* Manchester CLK/4 AX.25 receiving routine *> #301 1=orr fbu&<323C AAAA>=fbu $z320 &<4E7A 8801 2028 0078 40C1>=sts rab&<2E00> nsl&<2040 2147 0006> &<214C 011E 214C 016E 214D 0174> &<4E7A 8801 2140 0078> sts&<3001 0240 F8FF 0040 0500 B041 6402 3200 46C1> &<13FC 0082 0002 0003 13FC 0040 0002 0003> &<13FC 004D 0002 0003 13FC 0014 0002 0003> $r #302 -1=orr &<13FC 0000 0002 0003> sts&<46C1 4E7A 8801 2140 0078> $r #320 &<41FA 0014 2008>=nsl $r <* Subroutine INT6 *> &<48E7 E020 247C FFFF FFFF> &<7400 1439 0002 0001 E38A 3232 2050> &<9252 E241 D35A> &<3401 3012 E048 E348 0640 0250 C3F2 0000> &<321A 0641 4000 3012 34C2 B540 6A1E> & &<4840 4240 E488 80C2 D041 E340 E840 9240> &<3541 FFFC> &<4841 D252 E441 34C1 D252 3001 E440 34C0> &<0241 8000 3012 34C1 241A B041 6726> &<2002 E488 0440 9000 E640 48C0 9480 2542 FFFC> & & &<4842 3002 0240 0003 670A 526A FFFC 4CDF 0407 4E73> &<3012 34C1 9240> &<6B04 525A 6018 3012 425A 0C40 0005 650E 6600 0086> &<5D8A 5762 4CDF 0407 4E73> &<0242 001F 6712 3012 E351 E210 3480 5D8A 5262 4CDF 0407 4E73> &<341A E351 E212 4602> &<321A 303C 0200 1001 B500 E049 E348 3032 0038 B141> &<525A 5292 598A 3481 518A 5262> &<2F0C 287C FFFF FFFF> fbu&<2440 0C41 0180 6406 1582 1000 5241>=fbu &<285F 4CDF 0407 4E73> &<548A 0242 001F 4842 3412 34BC FFFF 357C 0001 FFF6> &<48E7 1FDC 287C FFFF FFFF 2A7C FFFF FFFF 52AA 0004> fbu&<0C82 0000 F0B8 6608 3401 0C42 0010 6402 74FF 4241>=fbu &<0C42 0180 650A 4CDF 3BF8 4CDF 0407 4E73 3202 5541>=fbp &<40C0 0240 F8FF 0040 0500 46C0> rab&<2040 4268 0018> fbs(no1)&<2040> fbp&<2240 2008 3401 6002 10D9 51CA FFFC>=fbs(no1) no1-1=no1$j+310 15.2=no1 #310 &<4CDF 3BF8 4CDF 0407 4E73> <* Manchester CLK/4 AX.25 transmitting routine *> #201 1=odd 1=odd tbu&<7200>=tbu hea+npr=heaa rab&<0680 0000 0036 2040> heaa&<30C0 4290> aaa/16+npr&<2E00> rab&<2040 3147 002E> $z220 &<4E7A 8801 2028 0074 40C1>=sts rab&<0680 0000 002E 2E00> nsl&<2040 2147 0006> &<214C 008E 214D 0094 4E7A 8801 2140 0074> sts&<3001 0240 F8FF 0040 0400 B041 6402 3200 46C1> &<13FC 0082 0002 0003 13FC 0040 0002 0003> &<13FC 004D 0002 0003 13FC 0031 0002 0003> $r #202 1$a$a$a &<13FC 0000 0002 0003> sts&<46C1 4E7A 8801 2140 0074> $r #220 &<41FA 0014 2008>=nsl $r <* Subroutine INT5 *> &<2F00 2F0A 247C FFFF FFFF> &<302A 0002 0240 0001 6604 548A 6012> &<302A 0002 0240 0002 6604 301A 6004 301A 4440> &<0240 0FFF 0640 0620 13F2 0000 0002 0001> &<3012 0640 0101 0240 0303 34C0> &<0240 0300 6706 245F 201F 4E73> & &<3012 5340 34C0 6708 6B06 245F 201F 4E73> &<301A 6B10 5340 3500 253C 007E 0008 245F 201F 4E73> &<48E7 7FDC 204A 287C FFFF FFFF 2A7C FFFF FFFF> tbu&<3410 B441 6442> &<2440 1032 2000 5242 30C2 3210 7407 7600> & &<0C41 0005 6506 E24C 5243 7200 51CA FFE4> &<3081 E7AC 3803 2144 FFF8> &<4CDF 3BFE 245F 201F 4E73> &<672E 217C 007E 0008 FFFA> ode=odd &<4CDF 3BFE 245F 201F 4E73> &<217C 007E 0008 FFFA 30FC 9FFF 4250> 1=ode &<40C0 0240 F8FF 0040 0400 46C0 2F08> nt1-nt2$b-0.5$j+210 -1=ode &<205F 4CDF 3BFE 245F 201F 4E73> #210 tbs(nt2)&<2040 3E01 0C47 017E 6504 3E3C 017D> tbu&<2240 3207 6002 12D8 51CF FFFC>=tbu rab&<0680 0000 0450 2040> tbu&<2240 3E01 5441>=tbu &<72FF 6012> &<1419 7000 1001 B500 E049 E348 3030 0000 B141 51CF FFEC> &<4641 12C1 E049 12C1> nt2-1=nt2$j+211 15.2=nt2 #211 &<205F 4260 4CDF 3BFE 245F 201F 4E73> #400 <* Menu - parameter set-up *> aaa-500$j+470 500=aaa #470 aaa-15000$j-471 15000=aaa #471 hea$j+472 0=hea #472 hea-500$j-473 500=hea #473 T2$j+474 0=T2 #474 T2-1000$j-475 1000=T2 #475 T1-T2-hea$j+476 T2+hea=T1 #476 T1-5000$j-477 5000=T1 #477 K$i=K K-1$j+478 1=K #478 K-7$j-479 7=K #479 N1$i=N1 N1-15$j+480 15=N1 #480 N1-255$j-481 255=N1 #481 N2$i=N2 N2-3$j+482 3=N2 #482 N2-10000$j-483 10000=N2 #483 blp-50$j+484 50=blp #484 blp-1000$j-485 1000=blp #485 38400/rxbr+npr=rxbrn 38400/txbr+npr=txbrn rxbrn&<0280 0000 00FF 0C00 000C 6402 700C>=rxbrn txbrn&<0280 0000 00FF 0C00 000C 6402 700C>=txbrn rxbrn&<13FC 0016 0002 4007 13C0 0002 4001> txbrn&<13FC 0096 0002 4007 13C0 0002 4005> rxbrn-npr=rxbrn 38400/rxbrn$i=rxbr txbrn-npr=txbrn 38400/txbrn$i=txbr $:ff(1,14) $:name(2) name(0)&<200A D08C 7200>=name 0=nch #493 ff(1,nch)+npr&<2E00> name&<2040 1187 1000 5241>=name nch+1=nch nch-14.5$j-493 name&<2040 4E49>=tlen &<2009>=tadd $:cll(9,6) clm=n3 0=n1 #491 0=n2 #492 cll(n1,n2)+npr&<3E00> n3&<2040 10C7 2008>=n3 n2+1=n2 n2-6.5$j-492 n1+1=n1 n1-9.5$j-491 clm&<2040> clc&<2240 7011 22D8 51C8 FFFC> sfor-74.5$j+495 27$w 0$w 31$w 64=sfor $j494 <64 column> #495 27$w 32$w 31$w 85=sfor #494 <85 column> sfor-1+npr=sfon 12$w $< *** YT3MV - Manchester AX.25 modem - 24/01/1990 *** 1 Receive / Transmit 2 Receive file : > 0=nf $z450 $< 3 Transmit file : > 1=nf $z450 $< File length : > tlen$j-403 tlen&<4E46> $ $j404 #403 $ #404 $< 4 Call : > 0=nca $z440 $< 5 My call : > 1=nca $z440 $< 6 Digi(s) : > 2=nca #401 cll(nca,0)/2-32.5$j-402 $z440 $< > nca+1=nca nca-9.5$j-401 #402 $< 7 TX amplitude :> aaa$o5,0 $< 8 Header length :> hea$o5,0 $< flags 9 DCD delay :> T2$o5,0 $< 10 FRACK delay :> T1$o5,0 $< 11 Packet size :> K$o5,0 $< frames 12 Frame length :> N1$o5,0 $< bytes 13 Retry :> N2$o5,0 $< 14 Blinking :> blp$o5,0 $< 15 RX bit rate :> rxbr$o5,0 $< bps 16 TX bit rate :> txbr$o5,0 $< bps 17 Screen format :> sfor$o5,0 $< columns 18 Set default parameters 0 or carriage return = exit Enter option number : > $k $n$b$i=nva nva-0.5$j+410 12$w $r #410 nva-1.5$j+411 $z500 $j400 #411 nva-3.5$j+412 nva-2=nf $< Enter file name : > $k 0=nch 11.5=nsw #413 $m=ch ch-47.5$j-414 ch-95.5$j-415 ch-32=ch #415 nch-nsw$j+413 ch=ff(nf,nch) nch+1=nch $j413 #414 nch-nsw$j+416 32=ff(nf,nch) nch+1=nch $j414 #416 nsw-13$j+400 14.5=nsw ch-46$b-0.5$j+414 $j413 #412 nva-6.5$j+420 nva-4=nca $< Enter call sign(s) - SSID : > $k 0=nch #421 $m=ch #426 ch-32.5$j-423 ch-45$b-0.5$j-423 ch-95.5$j-422 ch-32=ch #422 nch-5.5$j+421 ch*2=cll(nca,nch) nch+1=nch $j421 #423 nch-5.5$j+424 64=cll(nca,nch) nch+1=nch $j423 #424 96=cll(nca,6) ch-45$b-0.5$j+425 $m=ch ch-47.5$j-425 ch*2=cll(nca,6) $m=ch #425 nca-1.5$j-400 nca+1=nca nca-9.5$j+400 0=nch #427 ch-32$b-0.5$j+426 $m=ch $j427 #420 nva-17.5$j+430 $< Enter parameter value : > $k $n$b$i=nvv nva-7.5$j+431 nvv=aaa $j400 #431 nva-8.5$j+432 nvv=hea $j400 #432 nva-9.5$j+433 nvv=T2 $j400 #433 nva-10.5$j+434 nvv=T1 $j400 #434 nva-11.5$j+435 nvv=K $j400 #435 nva-12.5$j+436 nvv=N1 $j400 #436 nva-13.5$j+437 nvv=N2 $j400 #437 nva-14.5$j+438 nvv=blp $j400 #438 nva-15.5$j+439 nvv=rxbr $j400 #439 nva-16.5$j+449 nvv=txbr $j400 #449 nvv=sfor $j400 #430 nva-18.5$j+400 77=ff(0,0) 65=ff(0,1) 88=ff(0,2) 50=ff(0,3) 53=ff(0,4) 32=ff(0,5)=ff(0,6)=ff(0,7)=ff(0,8)=ff(0,9)=ff(0,10) 32=ff(0,11) 84=ff(0,12) 88=ff(0,13) 84=ff(0,14) 32=ff(1,0)=ff(1,1)=ff(1,2)=ff(1,3)=ff(1,4)=ff(1,5)=ff(1,6) 32=ff(1,7)=ff(1,8)=ff(1,9)=ff(1,10)=ff(1,11)=ff(1,12)=ff(1,13) 32=ff(1,14) 6000=aaa 60=hea 100=T2 1500=T1 4=K 128=N1 50=N2 150=blp 85=sfor 2400=rxbr 2400=txbr 134=cll(0,0) 162=cll(0,1) 96=cll(0,6) 64=cll(0,2)=cll(0,3)=cll(0,4)=cll(0,5) 178=cll(1,0) 168=cll(1,1) 102=cll(1,2) 154=cll(1,3) 172=cll(1,4) 64=cll(1,5) 96=cll(1,6) 0=cll(2,0) $j400 #440 0=nch #441 cll(nca,nch)/2=chr chr-32$b-0.5$j-442 chr$w #442 nch+1=nch nch-5.5$j-441 cll(nca,6)/2=chr chr-48$b-0.5$j-443 $<-> cll(nca,6)/2$w #443 $r #450 0=nch #451 ff(nf,nch)$w nch+1=nch nch-11.5$j-451 $<.> #452 ff(nf,nch)$w nch+1=nch nch-14.5$j-452 $r #100 32$w 8$w fbs(no2)&<2040 3A01> lilen&<2600> sfon&<2800> mfl&<2E00> cfl&<4840 3E00> tfl& radd&<2240 6122 2009>=radd &<2003>=lilen $r &<4A47 6A12> &<5345 6A02 4E75 1018 E208 64F4 5545 5488 6068> &<700D 6100 0086> &<7C05 1018 E208 0C00 0020 6702 6176 51CE FFF2> &<1C10 0206 001E 670E 702D 6166 1006 0000 0060 E208 615C> &<7020 1410 E30A 6402 702A 6150 5F45 6A02 4E75> &<7020 6146 1018 E208 64BC> &<7C01 5345 6A02 4E75> &<7020 6134 1010 E808 611E 1018 611A 51CE FFEA> &<700D 6122> &<4A07 6A02 4E75> &<5345 6A02 4E75 1018 6112 60F4> &<0200 000F 0000 0030 0C00 003A 6502 5E00> &<0C00 000D 660A 7600 6126 700A 6122 4E75> &<0C00 0020 6402 4E75 B604 650E> &<1600 700D 610E 700A 610A 1003 7600> &<6104 5203 4E75> &<4E40 4A87 6A02 4E75> &<2429 FFFC 4A01 6A08> &<1380 28FF 7200 4E75> &<1380 2800 13BC 0020 2801 4231 2802 54A9 FFFC 72FF 4E75> #500 <* Receive / Transmit *> &<4E45> -1=mfl -1=odd 1=ukz 1=tfl 1=cfl -1=ttf 1=S -1=rcn npr=lilen 15.2=no1=no2=nt1=nt2 999.2=tx1=tx2 $z301 #510 12$w $<*** Receive> rxbr$o4,0 $< bps - Transmit> txbr$o4,0 $< bps AX.25 Manchester *** > #520 orr$j+543 odd$j+543 $z202 $z301 rab&<2040 4268 0018 4268 002C> #543 blk-blp$j-521 S-4$b-0.5$j+525 VS-NR=bld bld$j+526 bld+8=bld #526 bld+48$w $j522 #525 127$w $j522 #521 32$w #522 8$w blk-1=blk$j+523 blp*2=blk #523 npr&<4E45>-npr=com com-255.5$j-550 blp*2=blk 32$w 8$w com/256$f*256=com ukz$j+560 com-10$b-0.5$j+551 1=ukz $< *** CMD MODE *** > $j550 #551 com-127$b-0.5$j+556 tx2-tx1$b-0.5$j-550 8$w 32$w 8$w tx1+1=tx1 tx1-1000$j-550 0.2=tx1 $j550 #556 tx2-tx1+0.5=dtx$j+552 dtx+1000=dtx #552 dtx-222$j-553 127$w $j550 #553 com=txt(tx1) com$w tx1-1=tx1$j+554 999.2=tx1 #554 com-13$b-0.5$j+555 10$w #555 $j550 #560 com-95.5$j-561 com-32=com #561 com-10$b-0.5$j+562 -1=ukz $< *** TXT MODE *** > $j550 #562 com-12$b-0.5$j-510 com-13$b-0.5$j+563 S-3.5$j+563 orr$j-564 $z302 $r #564 odd$j+564 $z202 $r #563 com-43$b-0.5$j+565 mfl$j+565 1=mfl npr=lilen name&<2040 4290 4E49 12FC 00AA 2009>=radd 0=nch #559 ff(0,nch)+npr&<2E00> radd&<2040 10C7 2008>=radd nch+1=nch nch-14.5$j-559 radd&<2040 4298 4210 2008 7200>=radd $< *** REC ON *** > $j550 #565 com-45$b-0.5$j+566 -1=mfl $< *** REC OFF *** > $j550 #566 com-42$b-0.5$j+567 mfl$j-567 $< *** > radd&<2040 2028 FFFC 4E46> $< *** > $j550 #567 com-49$b-0.5$j+568 tfl$j-569 -1=tfl $< *** TXT OFF *** > $j550 #569 1=tfl $< *** TXT ON *** > $j550 #568 com-50$b-0.5$j+570 cfl$j-571 -1=cfl $< *** CALL OFF *** > $j550 #571 1=cfl $< *** CALL ON *** > $j550 #570 com-51$b-0.5$j+572 2=S 0=T1c 0=N2c clm&<2040> clc&<2240 7011 22D8 51C8 FFFC> $< *** CON CMD *** > $j550 #572 com-52$b-0.5$j+573 3=S 0=T1c 0=N2c $< *** DISC CMD *** > $j550 #573 com-53$b-0.5$j+574 tlen$j-574 1=ttf &<7000>=ttc $< *** TXT TX *** > $j550 #574 $< *** Error !!! Valid commands are : *** Key CMD MODE TXT MODE 1 TXT ON / OFF Chr 1 2 CALL ON / OFF Chr 2 3 CON CMD Chr 3 4 DISC CMD Chr 4 5 Transmit file Chr 5 + REC ON Chr + - REC OFF Chr - * Print REC length Chr * (CR) Exit New line & Transmit Frame (LF) Switch to TXT MODE Switch to CMD MODE > #550 ttf$j-590 tx2-tx1+0.5=dtx$j+591 dtx+1000=dtx #591 dtx-666$j+590 255.5=n1 32$w 8$w #593 tlen&<2E00> ttc&<2400 7000 B487 6502 70FF>$j-594 tadd&<2040> ttc&-npr=tch tch-10$b-0.5$j-592 tch$w tch-13$b-0.5$j+595 10$w #595 tch=txt(tx1) tx1-1=tx1$j+592 999.2=tx1 #592 ttc&<5280>=ttc n1-1=n1$j+593 $j590 #594 -1=ttf $< *** TXT END *** > #590 S-1.5$j+610 tx2-tx1+0.5=dtx$j+602 dtx+1000=dtx #602 dtx-N1$j+603 dtx-1$j-600 ukz$j+603 tx1+1=dtx dtx-1000$j-604 dtx-1000=dtx #604 txt(dtx)-13$b-0.5$j+600 #603 nt2-nt1+0.5=dtx$j+608 dtx+16=dtx #608 dtx-8$j+600 clm&<2040> clt&<2240 7011 22D8 51C8 FFFC> 1=CR $z910 tbs(nt1)&<2040 D0C1 10FC 0003 10FC 00F0 5441>=n2 0=n1 #605 txt(tx2)+npr&<3E00> n2&<2040 D0C1 1087 5241>=n2 tx2-1=tx2$j+606 999.2=tx2 #606 tx1-tx2$b-0.5$j-607 n1+1=n1 n1-N1+0.5$j-605 #607 n2=tbs(nt1) nt1-1=nt1$j+600 15.2=nt1 $j600 #610 S-2.5$j+620 63=CNT $z920 FFF$j+600 1=S 1=cfl 32$w 8$w $< *** CON FAILURE *** > $j600 #620 S-3.5$j+630 83=CNT $z920 FFF$j+600 1=S 1=cfl 32$w 8$w $< *** DISC *** > $j600 #630 S-4.5$j+640 clc&<2040 70FF 7208 5280 5E88 0C10 0042 55C9 FFF6> &<323C 801F>=T1f rab&<2040> npr&<2028 001A>-npr-T2-T1c$j-640 rab&<2040 42A8 001A> N2c-N2+0.25$j-631 2=S 1=cfl $j600 #631 N2c+1=N2c T1f-npr*T1=T1c 1=CR NR=NRc clc&<2040> clt&<2240 7011 22D8 51C8 FFFC> #632 NRc-VS$b-0.5$j-640 $z910 tbs(nt1)=n1 nib(NRc)=n2 VR*16+NRc*2+npr&<3E00> n1&<2040 D0C1 10C7 10FC 00F0 5441>=n1 n2&<2040 7E00 1E01> n1&<2240 D2C1 6004 12D8 5241 51CF FFFA>=tbs(nt1) nt1-1=nt1$j+633 15.2=nt1 #633 NRc+1=NRc NRc-7.5$j-632 0=NRc $j632 #640 tx2-tx1+0.5=dtx$j+642 dtx+1000=dtx #642 dtx-N1$j+643 dtx-1$j-600 ukz$j+643 tx1+1=dtx dtx-1000$j-644 dtx-1000=dtx #644 txt(dtx)-13$b-0.5$j+600 #643 4=S VS-NR+0.5=dtx$j+645 dtx+8=dtx #645 dtx-K$j+600 rab&<2040 42A8 001A> 0=N2c 0=T1c 0=n1 nib(VS)&<7200>=n2 #646 txt(tx2)+npr&<3E00> n2&<2040 D0C1 1087 5241>=n2 tx2-1=tx2$j+647 999.2=tx2 #647 tx1-tx2$b-0.5$j-648 n1+1=n1 n1-N1+0.5$j-646 #648 n2=nib(VS) VS+1=VS VS-7.5$j-649 0=VS #649 $j640 #600 no1-no2$b-0.5$j+530 rab&<2040> npr&<3028 0018>-npr-T2$j-540 rab&<2040> npr&<3028 002C>-npr-22713$j-540 rcn$j-542 rcn=CNT -1=CR $z900 -1=rcn #542 nt1-nt2$b-0.5$j-540 orr$j-541 $z302 #541 odd$j+540 $z201 #540 $j520 #530 fbs(no2)&<2040> clm&<5E80 720D 1430 1000 E202 652E 2240 7406 3801> &<5244 1630 4000 0203 00FE B619 660A 51CA FFF0> &<7000 3001 6012 5E41 1430 1000 E302 6406> &<0C41 0040 65CA 70FF 323C 801F>=n1$j-532 nt2-nt1+0.5=dtx$j+533 dtx+16=dtx #533 dtx-12$j+532 tbs(nt1)=n2 fbs(no2)&<2040 3E01> n2&<2240 3207 6002 12D8 51CF FFFC>=tbs(nt1) n1&<3E00> n2&<2040 0030 0080 7007> nt1-1=nt1$j+531 15.2=nt1 #531 #532 fbs(no2)=n1 n1&<2040> clm&<2240 5E89 7000 7405> &$j-700 n1&<0680 0000 000D 2040 7000 7408 6006> &<1610 E31B 640C 1610 E21B 6508 5E88 51CA FFF0 70FF>$j-700 n1&<2040 5E88> clr&<2240 7006 12D8 51C8 FFFC 1021 0211 007E> &<7200 0200 0080 6706 4280 323C 8000>=cr n1&<2040> clr&<2240 5E89 7006 12D8 51C8 FFFC 1021 0211 007E> &<7200 0200 0080 6706 4280 323C 8000>-cr=cr n1&<0680 0000 000D 2040> clr&<0680 0000 000E 2240> &<7008 7200 1410 E21A 6508 5E88 5241 51C8 FFF4 5D88 6012> &<7006 12D8 51C8 FFFC 0229 007E FFFF 5F88 5F88 51C9 FFEC> &<4211> n1&<2040 7209 5C88 1018 E218 55C9 FFF8> &<7000 1010 323C 801F>=cnu cnu&<0200 0010>-npr=pfb cnu&<0200 00EF>-npr=cnt clr&<2040> clc&<2240 70FF 7409> &<7606 B308 660E 51CB FFFA 0C10 0042 55CA FFF0 7000>$j+702 cnt-47$b-0.5$j-703 S-1.5$j+709 $z100 #709 cr-0.5$j-701 cnt-3$b-0.5$j-701 $z950 $j701 #703 S-1.5$j+704 $z930 $z940 $j701 #704 $z950 32$w 8$w $< *** CON REQ > $z960 $< *** > $j701 #702 -1=ifl cnu&<0200 0003>-npr-2.5$j+705 cnu&<0200 0001>-npr-0.5$j+706 cnu&<0200 000E>-npr/2=NS 1=ifl #706 cnu&<0200 00E0>-npr/32=NR #705 cnt-47$b-0.5$j+710 $z930 $z940 $j701 #710 S-1.5$j+711 $z100 cr-0.5$j-701 cnt-3$b-0.5$j-701 $z950 $j701 #711 cnt-15$b-0.5$j+713 1=S 1=cfl 32$w 8$w $< *** > $z960 $< BUSY *** > $j701 #713 S-2.5$j+715 cnt-99$b-0.5$j+712 $z930 $j701 #712 $z950 $j701 #715 cnt-135$b-0.5$j+720 2=S 0=N2c 0=T1c $j701 #720 cnt-67$b-0.5$j+721 $z940 1=S 1=cfl 32$w 8$w $< *** DISC *** > $j701 #721 S-3.5$j+722 1=S 1=cfl 32$w 8$w $< *** DISC *** > $j701 #722 NR-VS$b-0.5$j+723 5=S #723 clc&<2040> clt&<2240 7011 22D8 51C8 FFFC> NS-VR$b-0.5$j+740 ifl$j-733 VR+1=VR VR-7.5$j-731 0=VR #731 VR=NS #733 $z100 ifl$j+732 cr-0.5$j-701 #732 VR*32+pfb+1=rcn $j701 #740 VR*32+pfb+9=rcn $j701 #700 S-1.5$j+701 $z100 #701 no2-1=no2$j+520 15.2=no2 $j520 <* TX frames assembly> #900 $z910 CNT+npr=nnn tbs(nt1)&<2040 3E01> nnn&<1180 7000 2008 3207 5241>=tbs(nt1) nt1-1=nt1$j+901 15.2=nt1 #901 $r

#910 tbs(nt1)&<2040> clt&<2240 2008> &<7409 7206 10D9 51C9 FFFC 0C11 0042 55CA FFF2> &<2208 9280 0020 0001>=tbs(nt1) CR$j-911 tbs(nt1)&<2040 0028 0080 0006> $r #911 tbs(nt1)&<2040 0028 0080 000D> $r #920 clc&<2040 70FF 7208 5280 5E88 0C10 0042 55C9 FFF6> &<323C 801F>=T1f 1=FFF rab&<2040> npr&<2028 001A>$b-npr-T1c$j+921 $r #921 rab&<2040 42A8 001A> N2c-N2+0.5$j-922 -1=FFF $r #922 clc&<2040> clt&<2240 7011 22D8 51C8 FFFC> N2c+1=N2c T1f-npr*T1=T1c 1=CR $j900 #930 0=VR 0=VS 0=NR 0=NS 5=S -1=cfl clr&<2040> clc&<2240 7011 22D8 51C8 FFFC> 32$w 8$w $< *** CON > $z960 $< *** > $r #940 pfb+99=CNT -1=CR clc&<2040> clt&<2240 7011 22D8 51C8 FFFC> $z900 $r #950 pfb+15=CNT -1=CR clr&<2040> clt&<2240 7011 22D8 51C8 FFFC> $z900 $r #960 clr&<2040> &<7205 1018 E208 0C00 0020 6702 4E40 51C9 FFF2> &<1218 E209 0C01 0030 6708 702D 4E40 1001 4E40> $r