 
ô >Client/src !ô Source for 6502 Tube Client *ô As supplied with Internal 6502 CoPro (ô 2/ô There are only three differences from the </ô 6502 external second processor client ROM Fô P#ô Code copyright Acorn Computer Z&ô Commentary copyright J.G.Harston d: nload%=&F800:Þ mcode% &900 x: ‚/USERV=&200: BRKV=&202:IRQ1V=&204:IRQ2V=&206 Œ/ CLIV=&208:BYTEV=&20A:WORDV=&20C:WRCHV=&20E –/RDCHV=&210:FILEV=&212:ARGSV=&214:BGetV=&216  /BPutV=&218:GBPBV=&21A:FINDV=&21C: FSCV=&21E ª/EVNTV=&220: UPTV=&222: NETV=&224: VduV=&226 ´/ KEYV=&228: INSV=&22A: RemV=&22C: CNPV=&22E ¾$IND1V=&230:IND2V=&232:IND3V=&234 È: ÒERRBUF=&236:INPBUF=&236 Ü: æ: ðô Memory addresses: ú&ô &EE/F = PROG   - Current program&ô &F0/1 = NUM    - hex accumulator$ô &F2/3 = MEMTOP - top of memory?ô &F4/5 = address of byte transfer address, NMIAddr or ADDR",ô &F6/7 = ADDR   - Data transfer address,2ô &F8/9 = String pointer, OSWORD control block6Jô &FA/B = CTRL   - OSFILE, OSGBPB control block, PrText string pointer@ô &FC   = IRQ A storeJô &FD/E => last errorTô &FF   = Escape flag^:hã P=0¸1rP%=load%:O%=mcode%|[OPT P*3+4†
.RESETLDX #&00š
.LF802¤9LDA &FF00,X:STA &FF00,X    :\ Copy entry block to RAM®DEX:BNE LF802¸LDX #&36Â
.LF80DÌ8LDA LFF80,X:STA USERV,X    :\ Set up default vectorsÖDEX:BPL LF80Dà-TXS:LDX #&F0               :\ Clear stackê
.LF819ôCLDA &FDFF,X:STA &FDFF,X    :\ Copy &FE00-&FEEF to RAM, avoidingþ:DEX:BNE LF819              :\  Tube registers at &FEFx5LDY #RESET € 255:STY &F8 :\ Point to start of ROMLDA #RESET  256:STA &F99.LF82A                     :\ Copy rest of ROM to RAM&4LDA (&F8),Y:STA (&F8),Y    :\ Copy a page to RAM04INY:BNE LF82A              :\ Loop for 256 bytes:8INC &F9:LDA &F9            :\ Inc. address high byteD:CMP #&FE:BNE LF82A         :\ Loop from &F800 to &FDFFNLDX #&10X
.LF83Bb8LDA LF859,X:STA &0100,X    :\ Copy jump code to &100lDEX:BPL LF83Bv5LDA &EE:STA &F6            :\ Copy &EE/F to &F6/7€LDA &EF:STA &F7Š3LDA #&00:STA &FF           :\ Clear Escape flag”ESTA &F2:LDA #&F8:STA &F3   :\ Set memtop to start of ROM at &F800žEJMP &0100                  :\ Jump via low memory to page ROM out¨²,\ Executed in low memory to page ROM out¼,\ --------------------------------------Æ
.LF859ÐFLDA TubeS1:CLI             :\ Check Tube R1 status to page ROM outÚ
.LF85DäCJMP LF860                  :\ Jump to initilise I/O with bannerîø
.LF8608JSR PrText                 :\ Display startup bannerPEQUB 10:EQUS "Acorn TUBE 65C102 Co-Processor" :\ ** Different from 6502 TUBE"EQUB 10:EQUB 10:EQUB 13:EQUB 0 NOP*@LDA #CmdOSLoop € 255     :\ Next time RESET is soft entered,44STA LF85D+1                :\ banner not printed>LDA #CmdOSLoop  256HSTA LF85D+2R6JSR WaitR2                 :\ Wait for Acknowledge\<CMP #&80:BEQ EnterCode     :\ If &80, jump to enter codefF                           :\ Otherwise, enter command prompt looppz\ Minimal Command prompt„\ ======================Ž.CmdOSLoop˜0LDA #—"*":JSR OSWRCH     :\ Print '*' prompt¢LDX #LF95D € 255¬LDY #LF95D  256¶5LDA #&00:JSR OSWORD        :\ Read line to INPBUFÀBCS CmdOSEscapeÊLDX #INPBUF € 255Ô/LDY #INPBUF  256        :\ Execute commandÞ<JSR OS_CLI:JMP CmdOSLoop   :\  and loop back for anotherè.CmdOSEscapeò:LDA #&7E:JSR OSBYTE        :\ Acknowledge Escape stateü!BRK:EQUB 17:EQUS "Escape":BRK$\ Enter Code pointer to by &F6/7$$\ ==============================.:\ Checks to see if code has a ROM header, and verifies8\ it if it hasB.EnterCodeLALDA &F6:STA &EE:STA &F2    :\ Copy address to &EE/F and &F2/3VLDA &F7:STA &EF:STA &F3`6LDY #&07:LDA (&EE),Y       :\ Get copyright offsetjCLD:CLC:ADC &EE:STA &FDt:LDA #&00:ADC &EF:STA &FE   :\ &FD/E=>copyright message~\ˆ\ Now check for &00,"(C)"’@LDY #&00:LDA (&FD),Y:BNE LF8FA     :\ Jump if no initial &00œ8INY:LDA (&FD),Y:CMP #&28:BNE LF8FA :\ Jump if no '('¦8INY:LDA (&FD),Y:CMP #&43:BNE LF8FA :\ Jump if no 'C'°8INY:LDA (&FD),Y:CMP #&29:BNE LF8FA :\ Jump if no ')'º\Ä\ &00,"(C)" existsÎ6LDY #&06:LDA (&EE),Y               :\ Get ROM typeØ<€ #&4F:CMP #&40:BCC NotLanguage  :\ b6=0, not a languageâF€ #&0D:BNE Not6502Code           :\ type<>0 and <>2, not 6502 codeì
.LF8FAö=LDA #&01:JMP (&00F2)               :\ Enter code with A=1 \
D\ Any existing error handler will probably have been overwritten9\ Set up new error handler before generating an error.NotLanguage(=LDA #ErrorHandler € 255:STA BRKV+0 :\ Claim error handler2&LDA #ErrorHandler  256:STA BRKV+1<3BRK:EQUB 0:EQUS "This is not a language":EQUB 0FP.Not6502CodeZ=LDA #ErrorHandler € 255:STA BRKV+0 :\ Claim error handlerd&LDA #ErrorHandler  256:STA BRKV+1n3BRK:EQUB 0:EQUS "I cannot run this code":EQUB 0x‚.ErrorHandlerŒ-LDX #&FF:TXS               :\ Clear stack–JSR OSNEWL:LDY #&01 
.LF94Dª4LDA (&FD),Y:BEQ LF957      :\ Print error string´JSR OSWRCH:INY:BNE LF94D¾
.LF957È8JSR OSNEWL:JMP CmdOSLoop   :\ Jump to command promptÒÜ,\ Control block for command prompt inputæ,\ --------------------------------------ð
.LF95Dú>EQUW INPBUF                :\ Input text to INPBUF at &2366EQUB &CA                   :\ Up to &CA characters2EQUB &20:EQUB &FF          :\ Min=&20, Max=&FF",\ MOS ¨ERFACE6\ =============@\J\T.\ OSWRCH - Send character to output stream^.\ ========================================h\ On entry, A =characterr\ On exit,  A =preserved|\†\ Tube data  character  --\š.osWRCH¤5BIT TubeS1                 :\ Read Tube R1 status®3NOP:BVC osWRCH             :\ Loop until b6 set¸;STA TubeR1:RTS             :\ Send character to Tube R1ÂÌÖ3\ OSRDCH - Wait for character from input streamà3\ =============================================ê&\ On exit, A =char, Cy=Escape flagô\þ$\ Tube data  &00  --  Carry Char\.osRDCH;LDA #&00:JSR SendR2        :\ Send command &00 - OSRDCH&6.WaitCarryChar             :\ Wait for Carry and A00JSR WaitR2:ASL A           :\ Wait for carry:.WaitR2D=BIT TubeS2:BPL WaitR2      :\ Loop until Tube R2 has dataN1LDA TubeR2                 :\ Fetch characterX.NullReturnbRTSlv€\ Skip SpacesŠ\ ===========”.SkipSpaces1žINY¨.SkipSpaces²(LDA (&F8),Y:CMP #&20:BEQ SkipSpaces1¼RTSÆÐÚ\ Scan hexä\ ========î.ScanHexø7LDX #&00:STX &F0:STX &F1   :\ Clear hex accumulator
.LF98C7LDA (&F8),Y                :\ Get current character,CMP #&30:BCC LF9B1         :\ <'0', exit >CMP #&3A:BCC LF9A0         :\ '0'..'9', add to accumulator*=€ #&DF:SBC #&07:BCC LF9B1:\ Convert letter, if <'A', exit4,CMP #&40:BCS LF9B1         :\ >'F', exit>
.LF9A0H%ASL A:ASL A:ASL A:ASL A    :\ *16R:LDX #&03                   :\ Prepare to move 3+1 bits\
.LF9A6f<ASL A:ROL &F0:ROL &F1      :\ Move bits into accumulatorpGDEX:BPL LF9A6              :\ Loop for four bits, no overflow checkz8INY:BNE LF98C              :\ Move to next character„
.LF9B1ŽRTS˜¢¬\ Send string to Tube R2¶\ ======================À.SendR2StringÊ3STX &F8:STY &F9            :\ Set &F8/9=>stringÔ.SendStringF8ÞLDY #&00è
.LF9B8ò7BIT TubeS2:BVC LF9B8       :\ Wait for Tube R2 freeü;LDA (&F8),Y:STA TubeR2     :\ Send character to Tube R2	6INY:CMP #&0D:BNE LF9B8     :\ Loop until <cr> sent	?LDY &F9:RTS                :\ Restore Y from &F9 and return		$	.\ ÿ - Execute command	8\ =======================	B"\ On entry, XY=>command string	L\ On exit,  XY= preserved	V\	`
.osCLI	j?PHA:STX &F8:STY &F9        :\ Save A, &F8/9=>command string	tLDY #&00	~
.LF9D1	ˆJSR SkipSpaces:INY	’5CMP #—"*":BEQ LF9D1      :\ Skip spaces and stars	œ:€ #&DF:TAX               :\ Ignore case, and save in X	¦4LDA (&F8),Y                :\ Get next character	°3CPX #—"G":BEQ CmdGO      :\ Jump to check '*GO'	º@CPX #—"H":BNE osCLI_IO   :\ Not "H---", jump to pass to Tube	Ä4CMP #—".":BEQ CmdHELP    :\ "H.", jump to do *Ç“	Î+€ #&DF                   :\ Ignore case	ØACMP #—"E":BNE osCLI_IO   :\ Not "HE---", jump to pass to Tube	â4INY:LDA (&F8),Y            :\ Get next character	ì5CMP #—".":BEQ CmdHELP    :\ "HE.", jump to do *Ç“	ö+€ #&DF                   :\ Ignore case
 BCMP #—"L":BNE osCLI_IO   :\ Not "HEL---", jump to pass to Tube

4INY:LDA (&F8),Y            :\ Get next character
6CMP #—".":BEQ CmdHELP    :\ "HEL.", jump to do *Ç“
+€ #&DF                   :\ Ignore case
(CCMP #—"P":BNE osCLI_IO   :\ Not "HELP---", jump to pass to Tube
24INY:LDA (&F8),Y            :\ Get next character
<+€ #&DF                   :\ Ignore case
FGCMP #—"A":BCC CmdHELP    :\ "HELP" terminated by non-letter, do *Ç“
PGCMP #—"[":BCC osCLI_IO   :\ "HELP" followed by letter, pass to Tube
Z
d&\ *Help - Display help information
n&\ --------------------------------
x.CmdHELP
‚4JSR PrText                 :\ Print help message
ŒJEQUB 10:EQUB 13:EQUS "65C102 TUBE 1.10" :\ ** Different from 6502 TUBE
–EQUB 10:EQUB 13
 HNOP                        :\ Continue to pass '*Ç“' command to Tube
ª
´
¾#\ ÿ - Send command line to host
È'\ =================================
Ò%\ On entry, &F8/9=>command string
Ü\
æ/\ Tube data  &02 string &0D  --  &7F or &80
ð\
ú.osCLI_IO6LDA #&02:JSR SendR2        :\ Send command &02 - ÿ>JSR SendStringF8           :\ Send command string at &F8/9.osCLI_Ack":JSR WaitR2                 :\ Wait for acknowledgement,<CMP #&80:BEQ LFA5C         :\ Jump if code to be entered66PLA:RTS                    :\ Restore A and return@JT\ *GO - call machine code^\ -----------------------h
.CmdGOr+€ #&DF                   :\ Ignore case|?CMP #—"O":BNE osCLI_IO   :\ Not '*GO', jump to pass to Tube†6JSR SkipSpaces1            :\ Move past any spacesEJSR ScanHex:JSR SkipSpaces :\ Read hex value and move past spacesšLCMP #&0D:BNE osCLI_IO      :\ More parameters, pass to Tube to deal with¤NTXA:BEQ LFA5C              :\ If no address given, jump to current program®CLDA &F0:STA &F6            :\ Set program start to address read¸LDA &F1:STA &F7ÂÌ
.LFA5CÖ,LDA &EF:PHA:LDA &EE:PHA    :\ Save &EE/FàJSR EnterCodeê?PLA:STA &EE:STA &F2        :\ Restore &EE/F and set addressôPLA:STA &EF:STA &F3þPLA:RTS.CheckAckBEQ osCLI_Ack&0:!\ OSBYTE - Byte MOS functionsD!\ ===========================N)\ On entry, A, X, Y=OSBYTE parametersX\ On exit,  A  preservedb*\           If A<&80, X=returned valuel5\           If A>&7F, X, Y, Carry=returned valuesv\€.osBYTEŠ7CMP #&80:BCS ByteHigh      :\ Jump for long OSBYTEs”\ž!\ Tube data  &04 X A    --  X¨\²PHA:LDA #&04¼
.LFA7AÆ7BIT TubeS2:BVC LFA7A       :\ Wait for Tube R2 freeÐ=STA TubeR2                 :\ Send command &04 - OSBYTELOÚ
.LFA82ä7BIT TubeS2:BVC LFA82       :\ Wait for Tube R2 freeî7STX TubeR2:PLA             :\ Send single parameterø
.LFA8B7BIT TubeS2:BVC LFA8B       :\ Wait for Tube R2 free/STA TubeR2                 :\ Send function
.LFA93 ?BIT TubeS2:BPL LFA93       :\ Wait for Tube R2 data present*2LDX TubeR2:RTS             :\ Get return value4>.ByteHighH7CMP #&82:BEQ Byte82        :\ Read memory high wordR7CMP #&83:BEQ Byte83        :\ Read bottom of memory\4CMP #&84:BEQ Byte84        :\ Read top of memoryf\p&\ Tube data  &06 X Y A  --  Cy Y Xz\„PHA:LDA #&06Ž
.LFAAB˜7BIT TubeS2:BVC LFAAB       :\ Wait for Tube R2 free¢=STA TubeR2                 :\ Send command &06 - OSBYTEHI¬
.LFAB3¶7BIT TubeS2:BVC LFAB3       :\ Wait for Tube R2 freeÀ2STX TubeR2                 :\ Send parameter 1Ê
.LFABBÔ7BIT TubeS2:BVC LFABB       :\ Wait for Tube R2 freeÞ2STY TubeR2                 :\ Send parameter 2èPLAò
.LFAC4ü7BIT TubeS2:BVC LFAC4       :\ Wait for Tube R2 free/STA TubeR2                 :\ Send functionICMP #&8E:BEQ CheckAck      :\ If select language, check to enter code9CMP #&9D:BEQ LFAEF         :\ Fast return with Fast Õ$/PHA                        :\ Save function.
.LFAD58?BIT TubeS2:BPL LFAD5       :\ Wait for Tube R2 data presentB+LDA TubeR2:ASL A:PLA       :\ Get CarryL
.LFADFV?BIT TubeS2:BPL LFADF       :\ Wait for Tube R2 data present`6LDY TubeR2                 :\ Get return high bytej
.LFAE7t?BIT TubeS2:BPL LFAE7       :\ Wait for Tube R2 data present~5LDX TubeR2                 :\ Get return low byteˆ
.LFAEF’RTSœ¦B.Byte84:LDX &F2:LDY &F3:RTS   :\ Read top of memory from &F2/3°:.Byte83:LDX #&00:LDY #&08:RTS :\ Read bottom of memoryºE.Byte82:LDX #&00:LDY #&00:RTS :\ Return &0000 as memory high wordÄÎØ \ OSWORD - Various functionsâ \ ==========================ì\ On entry, A =functionö!\           XY=>control block \
.osWORD6STX &F8:STY &F9            :\ &F8/9=>control block=TAY:BEQ RDLINE             :\ OSWORD 0, jump to read line(PHA:LDY #&082
.LFB09<9BIT TubeS2:BVC LFB09       :\ Loop until Tube R2 freeF;STY TubeR2                 :\ Send command &08 - OSWORDP
.LFB11Z9BIT TubeS2:BVC LFB11       :\ Loop until Tube R2 freed/STA TubeR2                 :\ Send functionn9TAX:BPL WordSendLow        :\ Jump with functions<&80xJLDY #&00:LDA (&F8),Y       :\ Get send block length from control block‚<TAY:JMP WordSend           :\ Jump to send control blockŒ–.WordSendLow BLDY WordLengthsLo-1,X      :\ Get send block length from tableªECPX #&15:BCC WordSend      :\ Use this length for OSWORD 1 to &14´ELDY #&10                   :\ Send 16 bytes for OSWORD &15 to &7F¾.WordSendÈ9BIT TubeS2:BVC WordSend    :\ Wait until Tube R2 freeÒ8STY TubeR2                 :\ Send send block lengthÜJDEY:BMI LFB45              :\ Zero or &81..&FF length, nothing to sendæ
.LFB38ð7BIT TubeS2:BVC LFB38       :\ Wait for Tube R2 freeú>LDA (&F8),Y:STA TubeR2     :\ Send byte from control block<DEY:BPL LFB38              :\ Loop for number to be sent
.LFB459TXA:BPL WordRecvLow        :\ Jump with functions<&80"MLDY #&01:LDA (&F8),Y       :\ Get receive block length from control block,?TAY:JMP WordRecv           :\ Jump to receive control block6@.WordRecvLowJ?LDY WordLengthsHi-1,X      :\ Get receive length from tableTECPX #&15:BCC WordRecv      :\ Use this length for OSWORD 1 to &14^HLDY #&10                   :\ Receive 16 bytes for OSWORD &15 to &7Fh.WordRecvr7BIT TubeS2:BVC WordRecv    :\ Wait for Tube R2 free|;STY TubeR2                 :\ Send receive block length†MDEY:BMI LFB71              :\ Zero of &81..&FF length, nothing to receive
.LFB64š?BIT TubeS2:BPL LFB64       :\ Wait for Tube R2 data present¤;LDA TubeR2:STA (&F8),Y     :\ Get byte to control block®<DEY:BPL LFB64              :\ Loop for number to receive¸
.LFB71Â3LDY &F9:LDX &F8:PLA        :\ Restore registersÌRTSÖàê"\ RDLINE - Read a line of textô"\ ============================þ\ On entry, A =0!\           XY=>control block\ On exit,  A =undefined,\           Y =length of returned string&$\           Cy=0 ok, Cy=1 Escape0\:5\ Tube data  &0A block  --  &FF or &7F string &0DD\N.RDLINEX;LDA #&0A:JSR SendR2        :\ Send command &0A - RDLINEbLDY #&04l
.LFB7Ev7BIT TubeS2:BVC LFB7E       :\ Wait for Tube R2 free€4LDA (&F8),Y:STA TubeR2     :\ Send control blockŠ2DEY:CPY #&01:BNE LFB7E     :\ Loop for 4, 3, 2”?LDA #&07:JSR SendR2        :\ Send &07 as address high bytežCLDA (&F8),Y:PHA            :\ Get text buffer address high byte¨DEY²
.LFB96¼7BIT TubeS2:BVC LFB96       :\ Wait for Tube R2 freeÆ>STY TubeR2                 :\ Send &00 as address low byteÐBLDA (&F8),Y:PHA            :\ Get text buffer address low byteÚ3LDX #&FF:JSR WaitR2        :\ Wait for responseä9CMP #&80:BCS RdLineEscape  :\ Jump if Escape returnedî8PLA:STA &F8:PLA:STA &F9    :\ Set &F8/9=>text bufferøLDY #&00.RdLineLp?BIT TubeS2:BPL RdLineLp    :\ Wait for Tube R2 data present:LDA TubeR2:STA (&F8),Y     :\ Store returned character 1INY:CMP #&0D:BNE RdLineLp  :\ Loop until <cr>*?LDA #&00:DEY:CLC:INX       :\ Return A=0, Y=len, X=00, Cy=04RTS>:H.RdLineEscapeR?PLA:PLA:LDA #&00           :\ Return A=0, Y=len, X=FF, Cy=1\RTSfpz%\ OSARGS - Read info on open file„%\ ===============================Ž\ On entry, A =function˜*\           X =>data word in zero page¢\           Y =handle¬!\ On exit,  A =returned value¶\           X  preservedÀ\           Y  preservedÊ\Ô<\ Tube data  &0C handle block function  --  result blockÞ\è.osARGSò;PHA:LDA #&0C:JSR SendR2    :\ Send command &0C - OSARGSü
.LFBD29BIT TubeS2:BVC LFBD2       :\ Loop until Tube R2 free-STY TubeR2                 :\ Send handle0LDA &03,X:JSR SendR2       :\ Send data word$LDA &02,X:JSR SendR2.LDA &01,X:JSR SendR28LDA &00,X:JSR SendR2B/PLA:JSR SendR2             :\ Send functionL5JSR WaitR2:PHA             :\ Get and save resultV3JSR WaitR2:STA &03,X       :\ Receive data word`JSR WaitR2:STA &02,XjJSR WaitR2:STA &01,XtJSR WaitR2:STA &00,X~<PLA:RTS                    :\ Get result back and returnˆ’œ#\ OSFIND - Open of Close a file¦#\ =============================°\ On entry, A =functionº)\           Y =handle or XY=>filenameÄ!\ On exit,  A =zero or handleÎ\Ø4\ Tube data  &12 function string &0D  --  handleâ(\            &12 &00 handle  --  &7Fì\ö.osFIND ;PHA:LDA #&12:JSR SendR2    :\ Send command &12 - OSFIND
/PLA:JSR SendR2             :\ Send function9CMP #&00:BNE OPEN          :\ If <>0, jump to do OPEN-PHA:TYA:JSR SendR2         :\ Send handle(OJSR WaitR2:PLA:RTS         :\ Wait for acknowledge, restore regs and return2	.OPEN</JSR SendR2String           :\ Send pathnameF<JMP WaitR2                 :\ Wait for and return handlePZd(\ OSBGet - Get a byte from open filen(\ ==================================x\ On entry, H =handle‚\ On exit,  A =byte ReadŒ\           H =preserved–\           Cy set if Å \ª*\ Tube data  &0E handle --  Carry byte´\¾.osBGETÈ;LDA #&0E:JSR SendR2        :\ Send command &0E - OSBGETÒ-TYA:JSR SendR2             :\ Send handleÜAJMP WaitCarryChar          :\ Jump to wait for Carry and byteæðú)\ OSBPut - Put a byte to an open file)\ =================================== \ On entry, A =byte to write\           Y =handle"\ On exit,  A =preserved,\           Y =preserved6\@)\ Tube data  &10 handle byte  --  &7FJ\T.osBPUT^;PHA:LDA #&10:JSR SendR2    :\ Send command &10 - OSBPUTh-TYA:JSR SendR2             :\ Send handler+PLA:JSR SendR2             :\ Send byte|APHA:JSR WaitR2:PLA:RTS     :\ Wait for acknowledge and return†š\ Send a byte to Tube R2¤\ ======================®.SendR2¸7BIT TubeS2:BVC SendR2      :\ Wait for Tube R2 freeÂ6STA TubeR2:RTS             :\ Send byte to Tube R2ÌÖà%\ OSFILE - Operate on whole filesê%\ ===============================ô\ On entry, A =functionþ!\           XY=>control block\ On exit,  A =result%\           control block updated\&A\ Tube data  &14 block string <cr> function  --  result block0\:.osFILED6STY &FB:STX &FA            :\ &FA/B=>control blockN;PHA:LDA #&14:JSR SendR2    :\ Send command &14 - OSFILEXLDY #&11b
.LFC5Fl4LDA (&FA),Y:JSR SendR2     :\ Send control blockv3DEY:CPY #&01:BNE LFC5F     :\ Loop for &11..&02€DEY:LDA (&FA),Y:TAXŠ<INY:LDA (&FA),Y:TAY        :\ Get pathname address to XY”/JSR SendR2String           :\ Send pathnamež/PLA:JSR SendR2             :\ Send function¨1JSR WaitR2:PHA             :\ Wait for result²LDY #&11¼
.LFC7EÆ8JSR WaitR2:STA (&FA),Y     :\ Get control block backÐ3DEY:CPY #&01:BNE LFC7E     :\ Loop for &11..&02Ú3LDY &FB:LDX &FA            :\ Restore registersä7PLA:RTS                    :\ Get result and returnîø+\ OSGBPB - Multiple byte Read and write+\ =====================================\ On entry, A =function !\           XY=>control block*!\ On exit,  A =returned value4(\              control block updated>\H<\ Tube data  &16 block function  --   block Carry resultR\\.osGBPBf6STY &FB:STX &FA            :\ &FA/B=>control blockp;PHA:LDA #&16:JSR SendR2    :\ Send command &16 - OSGBPBzLDY #&0C„
.LFC9AŽ4LDA (&FA),Y:JSR SendR2     :\ Send control block˜3DEY:BPL LFC9A              :\ Loop for &0C..&00¢/PLA:JSR SendR2             :\ Send function¬LDY #&0C¶
.LFCA8À8JSR WaitR2:STA (&FA),Y     :\ Get control block backÊ3DEY:BPL LFCA8              :\ Loop for &0C..&00Ô3LDY &FB:LDX &FA            :\ Restore registersÞ>JMP WaitCarryChar          :\ Jump to get Carry and resultèòü.Unsupported"BRK:EQUB 255:EQUS "Bad":EQUB 0$"\ OSWORD control block lengths."\ ============================8.WordLengthsLoB'EQUB &00:EQUB &05:EQUB &00:EQUB &05L]EQUB &04:EQUB &05:EQUB &08:EQUB &0E :\ ** Different, 6502 TUBE sends only 2 bytes for =IOV'EQUB &04:EQUB &01:EQUB &01:EQUB &05`'EQUB &00:EQUB &01:EQUB &20:EQUB &10j'EQUB &0D:EQUB &00:EQUB &04:EQUB &80t.WordLengthsHi~'EQUB &05:EQUB &00:EQUB &05:EQUB &00ˆ'EQUB &05:EQUB &00:EQUB &00:EQUB &00’'EQUB &05:EQUB &09:EQUB &05:EQUB &00œ'EQUB &08:EQUB &18:EQUB &00:EQUB &01¦'EQUB &0D:EQUB &80:EQUB &04:EQUB &80°ºÄ\ Interrupt HandlerÎ\ =================Ø.InterruptHandlerâ>STA &FC:PLA:PHA            :\ Save A, get flags from stackì;€ #&10:BNE BRKHandler    :\ If BRK, jump to BRK handlerö<JMP (IRQ1V)                :\ Continue via IRQ1V handler 
.IRQ1Handler[BIT TubeS4:BMI LFD3F       :\ If data in Tube R4, jump to process errors and transferesWBIT TubeS1:BMI LFD18       :\ If data in Tube R1, jump to process Escape and Events(2JMP (IRQ2V)                :\ Pass on to IRQ2V2<.BRKHandlerF(TXA:PHA                    :\ Save XP8TSX:LDA &0103,X            :\ Get address from stackZCLD:SEC:SBC #&01:STA &FDd;LDA &0104,X:SBC #&00:STA &FE :\ &FD/E=>after BRK opcoden8PLA:TAX:LDA &FC            :\ Restore X, get saved AxECLI:JMP (BRKV)             :\ Restore IRQs, jump to Error Handler‚Œ–,\ Interrupt generated by data in Tube R1 ,\ --------------------------------------ª
.LFD18´@LDA TubeR1:BMI LFD39       :\ b7=1, jump to set Escape state¾0TYA:PHA:TXA:PHA            :\ Save registersÈ>JSR LFE80:TAY              :\ Get Y parameter from Tube R1Ò>JSR LFE80:TAX              :\ Get X parameter from Tube R1Ü?JSR LFE80                  :\ Get event number from Tube R1æCJSR LFD36:PLA:TAX:PLA:TAY  :\ Dispatch event, restore registersðBLDA &FC:RTI                :\ Restore A, return from interruptú
.LFD36JMP (EVNTV)
.LFD399ASL A:STA &FF              :\ Set Escape flag from b6"BLDA &FC:RTI                :\ Restore A, return from interrupt,6,\ Interrupt generated by data in Tube R4@,\ --------------------------------------J
.LFD3FT>LDA TubeR4:BPL LFD65       :\ b7=0, jump for data transfer^CLIh
.LFD45r:BIT TubeS2:BPL LFD45       :\ Wait for data in Tube R2|LDA TubeR2†BLDA #&00:STA ERRBUF:TAY    :\ Store BRK opcode in error buffer2JSR WaitR2:STA ERRBUF+1    :\ Get error numberš
.LFD59¤BINY:JSR WaitR2             :\ Store bytes fetched from Tube R2®7STA ERRBUF+1,Y:BNE LFD59   :\ Loop until final zero¸GJMP ERRBUF                 :\ Jump to error block to generate errorÂÌ0\ Data transfer initiated by IRQ via Tube R4Ö0\ ------------------------------------------à
.LFD65ê<STA NMIV+0:TYA:PHA         :\ Save transfer type, save Yô8LDY NMIV+0                 :\ Get transfer type backþDLDA LFE70,Y:STA NMIV+0     :\ get NMI routine address from table6LDA LFE78,Y:STA NMIV+1     :\ and point NMIV to itGLDA LFE60,Y:STA &F4        :\ Point &F4/5 to transfer address fieldLDA LFE68,Y:STA &F5&
.LFD830ABIT TubeS4:BPL LFD83       :\ Wait until Tube R4 data present:<LDA TubeR4                 :\ Get called ID from Tube R4D@CPY #&05:BEQ LFDE7         :\ If 'TubeRelease', jump to exitN4TYA:PHA:LDY #&01           :\ Save transfer typeX
.LFD93b?BIT TubeS4:BPL LFD93       :\ Wait for Tube R4 data presentlBLDA TubeR4                 :\ Fetch and disgard address byte 4v
.LFD9B€?BIT TubeS4:BPL LFD9B       :\ Wait for Tube R4 data presentŠBLDA TubeR4                 :\ Fetch and disgard address byte 3”
.LFDA3ž?BIT TubeS4:BPL LFDA3       :\ Wait for Tube R4 data present¨HLDA TubeR4:STA (&F4),Y:DEY :\ Fetch address byte 2, store in address²
.LFDAE¼?BIT TubeS4:BPL LFDAE       :\ Wait for Tube R4 data presentÆHLDA TubeR4:STA (&F4),Y     :\ Fetch address byte 1, store in addressÐ9BIT TubeR3:BIT TubeR3      :\ Read from Tube R3 twiceÚ
.LFDBEä?BIT TubeS4:BPL LFDBE       :\ Wait for Tube R4 data presentî<LDA TubeR4:PLA             :\ Get sync byte from Tube R4ø@CMP #&06:BCC LFDE7         :\ Exit if not 256-byte transfers9BNE LFDEC                  :\ Jump with 256-byte read#\ Send 256 bytes to Tube via R3 #\ -----------------------------*LDY #&004
.LFDCF>7LDA TubeS3:€ #&80:BPL LFDCF:\ Wait for Tube R3 freeH.NMI6AddrR@LDA &FFFF,Y:STA TubeR3     :\ Fetch byte and send to Tube R3\4INY:BNE LFDCF              :\ Loop for 256 bytesf
.LFDDFp7BIT TubeS3:BPL LFDDF       :\ Wait for Tube R3 freez6STA TubeR3                 :\ Send final sync byte„
.LFDE7Ž>PLA:TAY:LDA &FC:RTI        :\ Restore registers and return˜¢%\ Read 256 bytes from Tube via R3¬%\ -------------------------------¶
.LFDECÀLDY #&00Ê
.LFDEEÔ?LDA TubeS3:€ #&80:BPL LFDEE:\ Wait for Tube R3 data presentÞ9LDA TubeR3                 :\ Fetch byte from Tube R3è.NMI7AddròCSTA &FFFF,Y:INY:BNE LFDEE  :\ Store byte and loop for 256 bytesüFBEQ LFDE7                  :\ Jump to restore registers and return/\ Transfer 0 - Transfer single byte to Tube/\ -----------------------------------------$	.NMI0.(PHA                        :\ Save A8.NMI0AddrB>LDA &FFFF:STA TubeR3       :\ Get byte and send to Tube R3L<INC NMI0Addr+1:BNE LFE0F   :\ Increment transfer addressVINC NMI0Addr+2`
.LFE0Fj6PLA:RTI                    :\ Restore A and returnt~1\ Transfer 1 - Transfer single byte from Tubeˆ1\ -------------------------------------------’	.NMI1œ?PHA:LDA TubeR3             :\ Save A, get byte from Tube R3¦.NMI1Addr°,STA &FFFF                  :\ Store byteº<INC NMI1Addr+1:BNE LFE20   :\ Increment transfer addressÄINC NMI1Addr+2Î
.LFE20Ø6PLA:RTI                    :\ Restore A and returnâì-\ Transfer 2 - Transfer two bytes to Tubeö-\ --------------------------------------- 	.NMI2
0PHA:TYA:PHA:LDY #&00       :\ Save registers>LDA (&F6),Y:STA TubeR3     :\ Get byte and send to Tube R3<INC &F6:BNE LFE32:INC &F7  :\ Increment transfer address(
.LFE322>LDA (&F6),Y:STA TubeR3     :\ Get byte and send to Tube R3<<INC &F6:BNE LFE3D:INC &F7  :\ Increment transfer addressF
.LFE3DPKPLA:TAY:PLA:RTI                         :\ Restore registers and returnZd/\ Transfer 3 - Transfer two bytes from Tuben/\ -----------------------------------------x	.NMI3‚0PHA:TYA:PHA:LDY #&00       :\ Save registersŒALDA TubeR3:STA (&F6),Y     :\ Get byte from Tube R3 and store–<INC &F6:BNE LFE51:INC &F7  :\ Increment transfer address 
.LFE51ªALDA TubeR3:STA (&F6),Y     :\ Get byte from Tube R3 and store´<INC &F6:BNE LFE5C:INC &F7  :\ Increment transfer address¾
.LFE5CÈ>PLA:TAY:PLA:RTI            :\ Restore registers and returnÒÜ$\ Data transfer address pointersæ$\ ------------------------------ð
.LFE60ú3EQUB (NMI0Addr+1) € 255:EQUB (NMI1Addr+1) € 255,EQUB &00F6 € 255       :EQUB &00F6 € 255,EQUB &00F6 € 255       :EQUB &00F6 € 2553EQUB (NMI6Addr+1) € 255:EQUB (NMI7Addr+1) € 255"
.LFE68,3EQUB (NMI0Addr+1)  256:EQUB (NMI1Addr+1)  2566,EQUB &00F6  256       :EQUB &00F6  256@,EQUB &00F6  256       :EQUB &00F6  256J3EQUB (NMI6Addr+1)  256:EQUB (NMI7Addr+1)  256T^%\ Data transfer routine addressesh%\ -------------------------------r
.LFE70|&EQUB NMI0 € 255   :EQUB NMI1 € 255†&EQUB NMI2 € 255   :EQUB NMI3 € 255)EQUB NMI_Ack € 255:EQUB NMI_Ack € 255š)EQUB NMI_Ack € 255:EQUB NMI_Ack € 255¤
.LFE78®&EQUB NMI0  256   :EQUB NMI1  256¸&EQUB NMI2  256   :EQUB NMI3  256Â)EQUB NMI_Ack  256:EQUB NMI_Ack  256Ì)EQUB NMI_Ack  256:EQUB NMI_Ack  256ÖàêB\ Wait for byte in Tube R1 while allowing requests via Tube R4ôB\ ============================================================þ
.LFE80 FBIT TubeS1:BMI LFE94       :\ If data in Tube R1, jump to fetch it 
.LFE85 BBIT TubeS4                 :\ Check if data present in Tube R4 &NBPL LFE80                  :\ If nothing there, jump back to check Tube R1 0BLDA &FC                    :\ Save IRQ's A store in A register :LPHP:CLI:PLP                :\ Allow an IRQ through to process R4 request DQSTA &FC:JMP LFE80          :\ Restore IRQ's A store and jump back to check R1 N
.LFE94 XDLDA TubeR1:RTS             :\ Fetch byte from Tube R1 and return b l v\ Print embedded string €\ ===================== Š.PrText ”8PLA:STA &FA:PLA:STA &FB    :\ &FA/B=>embedded string žLDY #&00 ¨
.LFEA0 ²3INC &FA:BNE LFEA6:INC &FB  :\ Increment address ¼
.LFEA6 Æ=LDA (&FA),Y:BMI LFEB0      :\ Get character, exit if >&7F ÐHJSR OSWRCH:JMP LFEA0       :\ Print character and loop back for more Ú
.LFEB0 ä@JMP (&00FA)                :\ Jump back to code after string î ø!\ Null NMI code!\ -------------!.NMI_Ack! CSTA TubeR3:RTI             :\ Store to TubeR3 to acknowlege NMI!*!4!>\ Spare space!H\ ===========!REQUS Ä&FEF0-P%,½255)!\!f!p\ I/O Space!z\ =========!„EQUS Ä8,½0)!Ž!˜\ Tube I/O Registers!¢\ ==================!¬.TubeS1 :\ &FEF8 :EQUB 0!¶.TubeR1 :\ &FEF9 :EQUB 0!À.TubeS2 :\ &FEFA :EQUB 0!Ê.TubeR2 :\ &FEFB :EQUB 0!Ô.TubeS3 :\ &FEFC :EQUB 0!Þ.TubeR3 :\ &FEFD :EQUB 0!è.TubeS4 :\ &FEFE :EQUB 0!ò.TubeR4 :\ &FEFF :EQUB 0!ü""\ Spare space"\ ==========="$
.LFF00".EQUS Ä&FF80-P%,½255)"8"B"L\ ÝAULT VECTOR TABLE"V\ ===================="`
.LFF80"j)EQUW Unsupported      :\ &200 - USERV"t(EQUW ErrorHandler     :\ &202 - BRKV"~)EQUW IRQ1Handler      :\ &204 - IRQ1V"ˆ)EQUW Unsupported      :\ &206 - IRQ2V"’(EQUW osCLI            :\ &208 - CLIV"œ)EQUW osBYTE           :\ &20A - BYTEV"¦)EQUW osWORD           :\ &20C - WORDV"°)EQUW osWRCH           :\ &20E - WRCHV"º)EQUW osRDCH           :\ &210 - RDCHV"Ä)EQUW osFILE           :\ &212 - FILEV"Î)EQUW osARGS           :\ &214 - ARGSV"Ø)EQUW osBGET           :\ &216 - BGetV"â)EQUW osBPUT           :\ &218 - BPutV"ì)EQUW osGBPB           :\ &21A - GBPBV"ö)EQUW osFIND           :\ &21C - FINDV# (EQUW Unsupported      :\ &21E - FSCV#
)EQUW NullReturn       :\ &220 - EVNTV#(EQUW Unsupported      :\ &222 - UPTV#(EQUW Unsupported      :\ &224 - NETV#((EQUW Unsupported      :\ &226 - VduV#2(EQUW Unsupported      :\ &228 - KEYV#<(EQUW Unsupported      :\ &22A - INSV#F(EQUW Unsupported      :\ &22C - RemV#P(EQUW Unsupported      :\ &22E - CNPV#Z)EQUW NullReturn       :\ &230 - IND1V#d)EQUW NullReturn       :\ &232 - IND2V#n)EQUW NullReturn       :\ &234 - IND3V#x#‚).VECDEF :\ &FFB6 :EQUB &36:EQUW LFF80#Œ%.OSXXXX :\ &FFB9 :JMP Unsupported#–%.OSXXXX :\ &FFBC :JMP Unsupported# %.OSXXXX :\ &FFBF :JMP Unsupported#ª%.OSXXXX :\ &FFC2 :JMP Unsupported#´%.OSXXXX :\ &FFC5 :JMP Unsupported#¾ .NVRDCH :\ &FFC8 :JMP osRDCH#È .NVWRCH :\ &FFCB :JMP osWRCH#Ò#Ü!.OSFIND :\ &FFCE :JMP (FINDV)#æ!.OSGBPB :\ &FFD1 :JMP (GBPBV)#ð!.OSBPUT :\ &FFD4 :JMP (BPutV)#ú!.OSBGET :\ &FFD7 :JMP (BGetV)$!.OSARGS :\ &FFDA :JMP (ARGSV)$!.OSFILE :\ &FFDD :JMP (FILEV)$$"!.OSRDCH :\ &FFE0 :JMP (RDCHV)$,).OSASCI :\ &FFE3 :CMP #&0D:BNE OSWRCH$6).OSNEWL :\ &FFE7 :LDA #&0A:JSR OSWRCH$@.OSWRCR :\ &FFFC :LDA #&0D$J!.OSWRCH :\ &FFFE :JMP (WRCHV)$T!.OSWORD :\ &FFF1 :JMP (WORDV)$^!.OSBYTE :\ &FFF4 :JMP (BYTEV)$h .OS_CLI :\ &FFF7 :JMP (CLIV)$r$|9.NMIV   :\ &FFFA :EQUW NMI0             :\ NMI Vector$†;.RESETV :\ &FFFC :EQUW RESET            :\ RESET Vector$9.IRQV   :\ &FFFE :EQUW InterruptHandler :\ IRQ Vector$š]:í$¤=ÿ"Save Client "+Ã~mcode%+" "+Ã~O%+" "+Ã~load%+" "+Ã~load%$®î … î … ‡:à$¸	*Quitÿ