ô > RemDespl ô Remote Print Despooler ô ??-??-89 V1.00 (0ô 28-07-89 V1.02 ARBS: Initial release (?) 28ô 11-02-90 V1.02d RobCowell: Printer type selection token for century number F0ô 03-07-98 V1.90 JGH: Completely rewritten P2ô 20-07-98 V1.91 JGH: Multiple ports allowed ZDô 20-07-98 V1.92 JGH: Uses %PrintQ.rpsNet!Stn, vdu2 after *fx5 dLô 26-06-99 V1.93 JGH: Proper closing, Q to quit, -poll/-run/-quit opts nCô 12-07-99 V1.94 JGH: Temp'y: *PRINTOUT files always send LFs xLô 24-12-99 V1.95 JGH: , , , , cr/lf handling ‚Iô 02-02-00 V1.96 JGH: Fixed PrBuf loop bug, use$ bug, tidied errors Œ: –0ë&87:ï23;2,53;0;0;0:A$=¤OS_GetEnv:î…ö:ñ:òend ;ver$="1.96":ver%= ("&"+Ã(10*»ver$)):delay%=30:F%=0:G%=0 ª4qt$="":qtime%=0:òtitle("Remote Print Despooler") ´9qt$=¤cl(" -q",1):A%=»¤cl("-r",1):çA%:qtime%=‘+6000*A% ¾2aud$=¤cl("-a",1):A%=»¤cl("-p",1):çA%:delay%=A% Èfç¤cl("-?",0):ñ"Syntax: "run$" ((:)... -poll delay -runtime time -quit command":òend Ò: ÜŠç¤fx(130,0)<>&FFFF:ñ"Please turn 2nd processor off"'"and re-run the Despooler."'"Event code needs to be in I/O memory";:A%=¦(200):òend æ/@%=&90A:timeout%=2:svIdle$="Despooler idle" ðPN$=A$:ñ"ƒInitialising..."; ú BPrMax%=16 :ô will be set back to 8 automatically if necessary BÞ PrName$(PrMax%),PrNum%(PrMax%),Banner$(PrMax%),Port%(PrMax%) 6ã A%=0 ¸ PrMax%:PrNum%(A%)=&FF:PrName$(A%)=Ä6," ") ")PrName$(A%)="":Banner$(A%)=Ä18," "):í ,: 63Þ ctrl% &100,FSOp% &80,prod% 9,data% &400,TC%15 @$name%=FSOp%+9:X%=ctrl%:Y%=X%256 J7òAssemOpen:anfs=¤anfs:òAssemEventcode:òsvT(svIdle$) T ^ñ½13;‰39;½13; h(ñ"ƒChecking network and %PrintQ..."; r.A%=&13:!X%=8:Ö&FFF1:Stn%=X%?1:Net%=¤GetNet |1LD$="%PRINTQ.rps"+¤d0(Net%,3)+"!"+¤d0(Stn%,3) †$ÿ"CDir "+LD$:ÿ"Access "+LD$+" L" -T%=¤FS_Cli("Rename "+LD$+".* %PrintQ.Z*") š: ¤ñ½13;‰39;½13; ®YçPN$="":ñ'"‚Enter printer names to despool using"'"‚syntax: (:)":è'" "PN$ ¸0PN$=¤ucase(PN$+" "):òparse(PN$):òDecodeNames Â+òtitle("Remote Print Despooler"):*FX229 Ì#ñ"‚Polling for these printers:" ÖãA%=1¸num% à!ñŠ(A%-1)*10)"†"PrName$(A%);:í ê8ç¤fx(206,&FF00)€&80:ñ''"ƒDisconnecting REMOTE":*ROFF ô+rx%=¤SetUpRx(&9F,0,prod%,9):Ö EventInit þline%=5+(num%-2)4 /ñŠ0,line%)½135½157½132;:ï28,0,24,39,line%+2 : ::ô GOTO comes back here & î … åDtD 0&X%=ctrl%:Y%=X%256:õ:òsvT(svIdle$) :%time$=¤FS_Time:òstatus("Polling") DBN$=¤poll:çN$="":òstatus("Idle"):òwait:ô If none waiting, pause N8A%=¦(0):ýN$<>""„(qtime%<>0 € ‘>qtime%)„(A%€&DF)=—"Q" XçN$="":òshutdown:òend b&time$=¤FS_Time:òstatus("Printing") l6status$=N$:crlf%=0:raw%=0:alf%=0:use$="":î … åtRD vCprintout%=(access_byte=&23):ô Is it a *PRINTOUT reference file? €: Š9ÿ"FX5,"+ÃPort%(flag%):ï2:òstatus("Doing banner file") ”2çBanner$(flag%)="":F%=0 ‹ F%=Ž(Banner$(flag%)) ž5UsrStn%=¤getstn(LD$+"."+N$):UsrStn$=¤stn(UsrStn%) ¨G%=Ž(LD$+"."+N$) ²1?X%=G%:X%!1=data%:X%!5=&19:X%!9=0:A%=3:Ö&FFD1 ¼9ã I%=0 ¸ 14:TC%?I%=data%?I%:í:ô Copy time info to TC% Æ+data%?25=13:UsrName$=$(data%+15):*FX3,4 Ð>status$=status$+" "+UsrName$+" "+UsrStn$+" ":òsvT(status$) Úañ" "UsrStn$" "UsrName$;‰(11-©UsrName$)"printed at "¤d0(TC%?7,2)":"¤d0(TC%?8,2)":"¤d0(TC%?9,2) äBñ" Despooling "N$" on "PrName$(flag%)" to "¤port(Port%(flag%)) î*FX3 ø&çprintout%:t%=¤FindFile:Ù#G%:G%=t% ý(çaud$<>"":ô Output audit information Bòstatus("Doing starttext"):òdoban(¹):òstatus("Doing printout") 4çG%:òPrText ‹ ñ"Error: Unable to access ";name$ 4òstatus("Doing endtext"):òdoban(£):çF%:Ù#F%:F%=0 $ï3:ñ:ÿ"DELETE "+LD$+"."+N$:åT\B *: 4,ÝòPrText:x%=1:time$=¤FS_Time:òstatus("") ><çuse$<>"":òstatus("Printing"):Ù#G%:G%=0:ÿuse$+name$:ï2:á H4?X%=G%:length%=¢#G%:çprintout%:X%!9=0 ‹ X%!9=&19 R3õ:çlength%:SoFar%=X%!9/length%*100 ‹ SoFar%=100 \(òstatus("Printed data "+ÃSoFar%+"%") f7X%!1=data%:X%!5=&400:A%=3:Ö&FFD1:çcrlf%=0:òScanCRLF pçX%!5<>&400:òPrBuffer zýX%!5<>0:Ù#G%:G%=0:á „: ŽÝòPrBuffer ˜8ã I%=data% ¸ data%+&3FF-X%!5:ç?I%<>9:ï 1,?I%:x%=x%+1 ¢ç?I%=9:çraw%:ï1,9 ¬2ç?I%=9:ç¬raw%:ãA%=1¸(8-(x%ƒ8)):ï1,32:x%=x%+1:í ¶+ç?I%=13:x%=1:çcrlf%=2:ï1,10:çalf%:ï1,10 À+ç?I%=10:x%=1:çcrlf%=3:ï1,13:çalf%:ï1,10 Ê ç?I%=10:çcrlf%=1:çalf%:ï1,10 Ôí:á Þ: è,ÝòScanCRLF:ô What line terminators used? ò ç¬printout% „ raw%:crlf%=0:á ü5A%=©$data%:çA%=0 € ?data%<>13:crlf%=3:á:ô LF only 3çA%>(&3FF-X%!5):crlf%=3:á:ô small file, LF only 8çA%=0:çdata%?1=10:crlf%=1:á:ô CR,LF at start of file Açdata%?(A%-1)=10 „ data%?(A%+1)=10:crlf%=1:á:ô LF,CR or CR,LF $crlf%=2:á:ô CR only .: 8ÝòCloseAll BçF%:A%=F%:F%=0:Ù#A% LçG%:A%=G%:G%=0:Ù#A% Vá `: jGô (Error while idle OR error in printing error handler) comes here: t::çŸ=17:åT\B ‹ ådDD ~ ˆ&ô Error while printing comes here: ’::î … åDtD œï3:òCloseAll ¦6ç Ÿ=17:ñ" * Flushed *":ÿ"DELETE "+LD$+"."+N$:åT\B °: º=ô Non-Escape error while idle or printing continues here: Ä::ö:ñ" at line ";ž Î î … åDtD ØòsvT("Trying to recover") â$òstatus("Attempting to restart") ì-T%=¤FS_Cli("RENAME "+LD$+".* %PRINTQ.Z*") öòwait:ñ"Restarted OK":åT\B Ýòshutdown .òstatus("Shutting down"):òCloseAll:*FX13,4 3?&220=?OldEVNTV:?&221=OldEVNTV?1:ï 28,0,24,39,0 (!ÿ"Access "+LD$:ÿ"Delete "+LD$ 2%ñ"ƒStation shutting down"':òend:á <: FÝòend:çqt$="":A$=½13:à P,A$=qt$:qt$="":ç—A$=42:ÿA$:A$=½13:à ‹ ×A$ Zá d: n*Ý¤cl(l$,n%):ç—l$=32 € A$<>"":A$=" "+A$ xbI%=§A$,l$):l$="":çI%>0€n%>0:l$=ÁA$,§A$+" "," ",I%+1)+1):çÁA$,I%,1)<>" ":l$=Àl$,§l$+" "," ")-1) ‚qçI%:çÁA$,I%,1)=" ":A$=ÁA$,2+(—A$<>32),I%-2-(I%=1)) ‹ çI%:A$=ÀA$,I%-1)+ÁA$,§A$+" "," ",§A$+" "," ",I%)+©l$)+1) Œ*A$=¤strip(A$):çn%:=¤strip(l$) ‹ =I%<>0 –: Ýòtitle(T$):Û:ñ½132;½157;½135;½141;‰(16-© T$/2);T$'½132;½157;½135;½141;‰(16-© T$/2);T$'½135;½157;½132" (C)1999 J.G.Harston. Version "ver$:á ª ´+Ýòstatus(s$):s$=Às$+Ä22," "),22):*FX3,4 ¾Qvpos%=¼:ï26:ñŠ3,line%)time$" Status: "s$:ï28,0,24,39,line%+2:ñŠ0,vpos%);:*FX3 Èá Ò Ü?Ý¤FindFile:?X%=G%:X%!1=data%:X%!5=512:X%!9=&100:A%=3:Ö&FFD1 æ?A%=data%:name$="":õname$=name$+"."+$A%:A%=A%+1+©$A%:ý?A%=13 ðN%:I%=I%+N%:åTbF:ô if we've done this lot then do some more JAç¤PrinterMatch(P%?17 €15)=0:åDrF:ô check logical printer num Taccess_byte=P%?18 € &3F ^-A%=P%?10:P%?10=13:N$=¤strip($P%):P%?10=A% h`çaccess_byte=&21 „ access_byte=&23:T%=¤FS_Cli("Rename %PrintQ."+N$+" "+LD$+"."+N$):çT%=0:=N$ r::P%=P%+27:Z%=Z%+1:åD@F |: †)Ý¤FS_Cli(A$):!X%=(©(A$)+8)*256:X%!4=0 "$(X%+7)=A$:A%=&14:Ö&FFF1:=X%?3 š ¤:Ý¤getstn(A$):!X%=&12000000:X%?1=©(A$)+9:X%!4=&40000000 ®O$(X%+8)=A$:A%=&14:Ö&FFF1:çX%?3:ñ'"FS error in getstn ";X%?3": "$(X%+4):òend ¸=(X%!5 €&FFFF) Â Ì0Ý¤FS_Time:!X%=&10000700:X%!4=0:A%=&14:Ö&FFF1 Ö =¤d0(X%?6,2)+":"+¤d0(X%?7,2) à ê0Ýògettime:!X%=&10000700:X%!4=0:A%=&14:Ö&FFF1 ô7çX%?3:ñ'"FS error in gettime ";X%?3": "$(X%+4):òend þTC%!10=X%!4:TC%?14=X%?8:á /Ý¤getdir(N%):ô Scan %PrintQ to find entries !X%=&3001200:X%!4=0 &9X%?8=N%:X%?9=4 :ô N%=entry point, 4=number to examine 0$$(X%+10)="%PrintQ":A%=&14:Ö&FFF1 :]çX%?3:ñ'"FS error in getdir ";X%?3": "$(X%+4):òsvT("FS error "+Ã~X%?3):=0 ‹ òsvT(svIdle$) D-=X%?4 :ô returns number examined N X%Ý¤GetNet:ô Assembles in data area b-zp=&A8:tx_tries=&AA:rx_tries=&AB:rply=&9D l&ãpass=0 ¸ 2 ˆ 2:P%=data%:[OPT pass v5.norxcb:.rxdata:\ Reads data over following code: €BRK:BRK:EQUS "Rxcb?":BRK Š,.getnet:\On exit; A=local network number ”LDA #3:STA tx_tries ž*TAX:LDA #&34:JSR &FFF4:\ Delete Rxcb#3 ¨/JSR rxoprd:LDA rxcb:BEQ norxcb:\ Can't open ² .tx_again ¼'LDA #&82:STA txcb:\ 'What net' call Æ#LDX #txcb € 255:LDY #txcb 256 ÐALDA #&10:JSR &FFF1:LDA txcb:BEQ tx_again:\ Loop until started Ú.txwait ä6LDA #50:JSR &FFF4:TXA:BMI txwait:\ Poll until done î+ROL A:BMI tx_again:\ Try again if error ø+LDA #0:STA rx_tries:\Poll rx (for 25ms) .rxwait *LDA #51:LDX rxcb:JSR &FFF4:TXA:BMI rx1 BIT &FF:BMI escaped 3DEC rx_tries:BNE rxwait:\ wait approx 256*100us *DEC tx_tries:BNE tx_again 4(JSR delete_rx:LDA #0:RTS:\ timed out >.rx1 H,JSR rxoprd:LDA rxdata:RTS:\ read message R.delete_rx \LDX rxcb:LDA #52:JMP &FFF4 f.escaped p#LDA #&7E:JSR &FFF4:\ Ack escape zJSR delete_rx „!BRK:EQUB 17:EQUS "Escape":BRK Ž.rxoprd ˜6LDX #rxcb € 255:LDY #rxcb 256:LDA #&11:JMP &FFF1 ¢ .txcb ¬=EQUB 0:EQUB &9C:EQUW &FFFF:EQUS "BRIDGE":EQUB rply:EQUB 0 ¶ .rxcb À>EQUB 0:EQUB &7F:EQUB rply:EQUW 0:EQUD rxdata:EQUD rxdata+2 Ê]:í:=(ºgetnet)€&FF Ô Þ1Ýòdoban(Start%):çF%=0:á:ô No banner file open è/ô Start%<>0 - Do StartText; =0 - Do EndText ò(ê I%,J%,B%,TB%,AB%,T$,A%,T2$,NC%,TI% ü5?X%=F%:X%!9=0:B%=£:TB%=£:AB%=£:T$="":T2$="":NC%=0 $TI%=TC%+10:ô Point to start time õ =X%!1=data%:X%!5=&400:A%=3:Ö&FFD1:ô Read 1k of banner file $%B%=£:ã I%=data% ¸ data%+&3FF-X%!5 . ç ?I%=124:B%=¹:åt~J 8 ç B%:åTNK B ç TB%:åTvK L ç ?I%<>60:åt\I V ç ¬ AB%:AB%=¹:åt\I ` ç T2$="" „ Start%:åtRI j ã I%=1 ¸ ©(T2$) t ï 1,—(ÁT2$,I%,1)) ~ NC%=NC%+1 ˆ í ’ T2$="":T$="" œ::ç ¬ AB%:åTvK ¦> T2$=T2$+½(?I%):ç ?I%>64:T$=T$+½(?I% € &5F) ‹ T$=T$+½(?I%) °( ç ?I%<>62:åD^K:ô ...AND LEN(T$)<11 º4 ç T$="" „ T$="":Start%=¬Start%:ådpJ Ä ç T$="":NC%=0:T2$="" Î9 ç ÀT$,4)="çT$="":T2$="spooled output":çprintout%:T2$=name$ ö, ç T$="":T2$="":ògettime:TI%=TC%+10 $ ç T$="":T2$="":TI%=TC%+5 ç T$="":T2$="":TI%=TC% / ç T$="" „ T$="":T2$=¤d0(TI%?2,2) 1 ç T$="" „ T$="":T2$=¤d0(TI%?3,2) (1 ç T$="" „ T$="":T2$=¤d0(TI%?4,2) 25 ç T$="<12HOURS>":T2$=Â" "+Ã((TI%?2+11)ƒ 12+1),2) <2 ç T$<>"" ‹ ç TI%?2>11:T2$="pm" ‹ T2$="am" F* ç T$="":T2$=Â" "+Ã(?TI% €31),2) P" ç T$="":T2$=¤st(?TI% €31) Z,çT$="":T2$=¤Month(TI%?1 ƒ 16) d$çT$="":T2$=¤Mon(TI%?1 ƒ 16) n'çT$="":T2$=¤d0(TI%?1 ƒ 16,2) x8çT$="":T2$=¤d0((?TI% €&E0)2+TI%?1 16+1981,2) ‚:çT$="":T2$=Ã(((?TI% €&E0)2+TI%?1 16+1981)100) ŒçT$="":T2$="":raw%=£ –çT$="":T2$="":raw%=¹ çT$="":T2$="":alf%=¹ ª çT$="":T2$="":alf%=£ ´0çÀT$,5)="63:?I%=?I% € &1F ç ?I%=63:?I%=&7F " ç ?I%=33:TB%=¹:åD^K , åTvK 6::ç Start%:åDTK @ ç TB%:ï 1,?I%+128 ‹ ï 1,?I% J NC%=NC%+1 T TB%=£:B%=£ ^::í:ýX%!5<>0:á h: rlÝ¤port(A%):çA%>4:="User"+ÃA% ‹ =Á"SinkParallelSerialUserNet",»Á"0105131923",A%*2+1,2),»Á"48643",A%+1,1)) |#Ý¤d0(A%,N%)=Â"00000000"+ÃA%,N%) †FÝ¤stn(A%):=À"Stn",A%<256)+À¤d0(A%256,3),A%>255)+"."+¤d0(A%ƒ256,3) šQÝ¤Mon(A%):=Á"?0?janfebmaraprmayjunjulaugsepoctnovdec?13?14?15",(A%€15)*3+1,3) ¤ÁÝ¤Month(A%):A%=A%€15:=Á"?0?JanuaryFebruaryMarchAprilMayJuneJulyAugustSeptemberOctoberNovemberDecember?13?14?15?",»Á"01041119242932364046556270788184",A%*2+1,2),»Á"3785534469788444",A%+1,1)) ®(Ý¤st(A%):çA%=1 „ A%=21 „ A%=31:="st" ¸çA%=2 „ A%=22:="nd" ÂçA%=3 „ A%=23:="rd" Ì ="th" Ö àÝ¤ucase(A$):çA$="":="" êNêB$,A%:ãA%=1¸©A$:çÁA$,A%,1)>="`":B$=B$+½(—ÁA$,A%,1)€&DF) ‹ B$=B$+ÁA$,A%,1) ô í:=B$ þ 4Ý¤fx(A%,X%):êY%:Y%=X%256:=(º&FFF4 €&FFFF00)256 <Ý¤file($name%,A%):?X%=name%:X%?1=name%256:=º(&FFDD)€&FF &Ýòparse(parse$):num%=1:õ 0parse$=¤strip(parse$) ::çparse$<>"":PrName$(num%)=¤GetNameOrNumber:num%=num%+1 Dýparse$="":num%=num%-1:á N XÝ¤GetNameOrNumber bparse$=¤strip(parse$) lI%=§parse$+" "," ") v,name$=Àparse$,I%-1):parse$=Áparse$,I%+1) € =name$ Š ”3Ý¤strip(s$):çÀs$,1)=" ":õs$=Ás$,2):ýÀs$,1)<>" " ž+çÂs$,1)=" ":õs$=Às$,©s$-1):ýÂs$,1)<>" " ¨=s$ ² ¼ÝòDecodeNames ÆpãA%=1¸num%:Port%(A%)=1:I%=§PrName$(A%),":"):çI%:Port%(A%)=»ÁPrName$(A%),I%+1):PrName$(A%)=ÀPrName$(A%),I%-1) Ðí ÚNumberDone%=0:PN%=0:I%=1:õ ä9!X%=&41000900:X%!4=&1000000:X%?8=I% €15:A%=&14:Ö&FFF1 î#çX%?3=&6D:X%?3=0:PrMax%=8:åTjM øçX%?3<>0:òfatal(X%+4):á +J%=10:õ J%=J%-1:ýX%?J%<>32:X%?(J%+1)=13 =PN$=¤ucase($(X%+4)):X%?36=13:BF$=$(X%+13):çX%?13=0:BF$="" çBF$<>"":BF$="$*."+BF$ òGetNumber:I%=I%+1 *::ý I%>PrMax% 4fail%=£:ãtest%=1 ¸ PrMax% >UçPrNum%(test%)=&FF € PrName$(test%)<>"":ñ PrName$(test%)" not recognised":fail%=¹ H*í:çfail%:ñ'"Aborted":Z=¦(300):A$=½13:ù Rá \: fÝòGetNumber:ãtest%=1 ¸ num% pmçPrName$(test%)=PN$:PrNum%(test%)=I% € 15:Banner$(test%)=BF$:PrName$(test%)=PN$:NumberDone%=NumberDone%+1 zí:á „: ŽÝ¤PrinterMatch(check%) ˜=flag%=0:ãtest%=1 ¸ num%:çPrNum%(test%)=check%:flag%=test% ¢í:=flag% ¬ ¶'Ýòwait:now%=‘:õ:prodded%=¤CheckProd À/ý ‘>now%+delay%*100 „ –(-1)<>0 „ prodded%:á Ê ÔÝ¤SetUpRx(p%,st%,b%,l%) Þ6?X%=0:X%?1=&7F:X%?2=p%:X%!3=st%:X%!5=b%:X%!9=b%+l% èA%=&11:Ö&FFF1:=?X% ò ü'ÝòReadRx(n%):?X%=n%:A%=&11:Ö&FFF1:á 'Ý¤PollRx(X%):A%=&33:=º(&FFF4)€&8000 $"Ý¤CheckProd:ç¤PollRx(rx%)=0:=£ .(òReadRx(rx%):reason%=prod%!6 € &FFFF 8Gprod%?6=13:name$=¤strip(¤ucase($prod%)):rx%=¤SetUpRx(&9F,0,prod%,9) Bçreason%<>&FFFF:=£ Lçname$="PRINT":=¹ V7flag%=£:ãtest%=1¸num%:çPrName$(test%)=name$:flag%=¹ `í:=flag% j tÝ¤SafeOpen($name%,type%) ~/çanfs:=¤OpenCMOS(type%) ‹ =¤OpenNMOS(type%) ˆ ’Ý¤OpenNMOS(type%) œê A%,X%,Y%,then%:then%=‘ ¦õ:X%=FSOp%:Y%=X%256 °HX%?0=0:X%?1=10+©$name%:X%?2=0:X%!3=6:X%?7=1:ô $(X%+9)=$name% already ºçtype%=&C0:X%?8=0 ‹ X%?8=1 Ä1A%=&14:Ö&FFF1:Err%=X%?3:çErr%=&C2:òwait1(100) Î'ý(Err%<>&C2)„(‘>then%+timeout%*100) ØçErr%=0:=¤convert(X%?4) âçErr%=&D6:=0 ì6=0::òfatal("Error "+$(X%+4)+" while opening file") ö: (Ý¤convert(FsChn%):=32+ª(FsChn%)/ª(2) : Ý¤OpenCMOS(type%) ê A%,X%,Y%,then%:then%=‘ (X%=name%:Y%=X%256:õ 2A%=type%:A%=º(Open)€&FF <çA%=&FF € Ÿ=&C2:òwait1(100) F,ýA%<>&FF „ Ÿ<>&C2 „ ‘>then%+timeout%*100 P4çA%=&FF:=0::ñ"Error:":ö:ñ" while opening file":ú Z=A% d: nÝòAssemOpen:Þ code% &40 x,ãpass=0 ¸ 2 ˆ 2:P%=code%:[OPT pass:.Open ‚7LDX &202:STX BRKVst:LDX &202+1:STX BRKVst+1:PHP:SEI ŒALDX #(OpenFail ƒ256):STX &202:LDX #(OpenFail 256):STX &202+1 –PLP:TSX:STX SPst /LDX #(name%ƒ256):LDY #(name%256):JSR &FFCE ª .OpenDone ´?PHP:SEI:LDY BRKVst:STY &202:LDY BRKVst+1:STY &202+1:PLP:RTS ¾ .OpenFail È&LDX SPst:TXS:LDA #&FF:BNE OpenDone Ò.SPst:BRK:.BRKVst:EQUW 0 Ü ]:í:á æ ð'Ý¤anfs:A%=&13:?X%=15:Ö&FFF1:T%=X%?2 úX%?2=T%‚&AA:Ö&FFF1:=X%?2=T% Ýòfatal(A$):òCloseAll ñ "Fatal Error: "A$:òend "á , 60Ýòwait1(delay%):delay%=‘+delay%:õý‘>delay%:á @ J"ÝòAssemEventcode:Þ code1% &180 T/ã pass=0 ¸ 2 ˆ 2:P%=code1%:[OPT pass:.event ^PHP:CMP #4:BNE NotOurEvent hPHA:TYA:PHA:TXA:PHA r,LDX rx:LDA #&33:JSR &FFF4:TXA:BMI ReadRx |).exit \ if nothing received then exit †PLA:TAX:PLA:TAY:PLA .NotOurEvent šPLP:JMP (OldEVNTV) ¤: ®.ReadRx ¸ LDA rx:STA RxBlk Â& LDX #RxBlk ƒ 256:LDY #RxBlk 256 Ì8 LDA #&11:JSR &FFF1 \ read the rx block Ö< LDA RxBlk+3:STA TxCopy+2 \ set tx station number à LDA RxBlk+4:STA TxCopy+3 ê LDX #7 ô% LDA #0:STA NameFlg1:STA NameFlg2 þ.Name1Lp LDA RxBuffer,X CMP SvName1,X:BEQ the_same1 INC NameFlg1 & .the_same1 0CMP SvName2,X : BEQ the_same2 D INC NameFlg2 N .the_same2 XDEX:BPL Name1Lp bLDA NameFlg1:BEQ GoTx lLDA NameFlg2:BNE NewRx v .GoTx € LDA #5:STA tries Š LDY #&6F ” LDA (&9C),Y ž BMI GoTx ¨ PHA ² .transmit ¼ JSR SetUpTx Æ DEC tries:BEQ exit_transmit Ð& LDX #TxBlk ƒ 256:LDY #TxBlk 256 Ú LDA #&10:JSR &FFF1 ä.PollTx î LDA #&32:JSR &FFF4 øTXA:BMI PollTx BNE transmit .exit_transmit LDA #&6F PLA * STA (&9C),Y 4 .NewRx >/JSR SetUpRx:LDX #RxBlk ƒ256:LDY #RxBlk 256 H0LDA #&11:JSR &FFF1:LDA RxBlk:STA rx:JMP exit R: \.EventInit f#LDX #RxBlk ƒ256:LDY #RxBlk 256 p'LDA #&11:JSR &FFF1:LDA RxBlk:STA rx z1LDA &220:STA OldEVNTV:LDA &221:STA OldEVNTV+1 „5LDA #event ƒ256:STA &220:LDA #event 256:STA &221 ŽLDA #14:LDX #4:JMP &FFF4 ˜: ¢.SetUpRx ¬LDX #12 ¶ .RxLp À-LDA RxCopy,X:STA RxBlk,X:DEX:BPL RxLp:RTS Ê: Ô.SetUpTx Þ LDX #11 è .t_loop ò LDA TxCopy,X:STA TxBlk,X ü DEX:BPL t_loop RTS .tries EQUB 0 .rx EQUB 0 $.NameFlg1:EQUB 0 ..NameFlg2:EQUB 0 8.OldEVNTV:EQUW 0 B .RxBlk LCEQUB 0:EQUB &7F:EQUB &B0:EQUW 0:EQUD RxBuffer:EQUD RxBuffer+&10 V.RxCopy ` EQUB 0 jEQUB &7F t*EQUB &B0 :\ Listen on port &B0 ~-EQUW 0 :\ Listen to any station ˆ5EQUD RxBuffer :\ Put received data in RxBuffer ’-EQUD RxBuffer+&10:\ Addr of end of buffer œ .TxBlk ¦9EQUB 0:EQUB &B1:EQUW 0:EQUD TxBuffer:EQUD TxBufferEnd °.TxCopy º#EQUB &80 :\ Control byte Ä+EQUB &B1 :\ Transmit on port &B1 Î5EQUW 0 :\ Space to insert station number Ø/EQUD TxBuffer :\ Addr of data to transmit â*EQUD TxBufferEnd:\ Addr of end of data ì.SvName1:EQUS "DESPOOL " ö.SvName2:EQUS " " .TxBuffer EQUB 0 :\ No error ;EQUB 0 :\ Base port for future exchanges - none +EQUB ver% :\ Binary version number (!EQUS "DESPOOL ":\ Server type 2 .svLen 126:çA%<>©A$:A$="" ´7A%=§A$+" "," "):run$=ÀA$,A%-1):çrun$<>"":=ÁA$,A%+1) ¾="" ÿ