#ô Source for 65Tube Tube client : load%=&F800:ق mcode% &900 : /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 : م P=0¸1 P%=load%:O%=mcode% [OPT P*3+4 \ &EE/F= 8\ &F0/1=>membot, if &F0<>0, membot=0000, memtop=0000 \ &F2/3=>command string \ &F4/5=>memtop 3\ &F6/7= readhex accumulator, ";params" pointer \ &F8/9=>control block *\ &FA/B=>String to print with PrString \ &FC = IRQ A store \ &FD/E=>last error \ &FF = escape flag !\ &0236= command input buffer 4\ &03xx= bit16-bit23 of Turbo65 (zp),Y addresses 6\ &03F3= b16-b23 of (&F2),Y command string pointer .\ &03F5= b16-b23 of (&F4),Y memtop pointer 5\ &03F9= b16-b23 of (&F8),Y control block pointer .\ &03FB= b16-b23 of (&FA),Y string pointer -\ &03FE= b16-b23 of (&FD),Y error pointer ! "\ Emulator opcodes # \ &03 - ے $\ &13 - OSBYTE %\ &23 - OSWORD &\ &33 - OSWRCH '\ &43 - OSRDCH (\ &53 - OSFILE )\ &63 - OSARGS *\ &73 - OSBGET +\ &83 - OSBPUT ,\ &93 - OSGBPB -\ &A3 - OSFIND .\ &B3 - Called by *بک /+\ &C3 - Called by *BASIC and OSBYTE 142 0 \ &D3 1 \ &E3 2 \ &F3 3 4 \ *OS - Enter command prompt 5 \ ========================== 6 .CmdOS 7?JSR ErrorInit:JSR OSNEWL :\ Point BRKV to ErrorHandler 8TYA:BNE JumpToCode :\ If Y<>0, enter code at XY ; <.CmdOSLoop =3JSR PrText :\ Display prompt >EQUS "65*":NOP ?LDA #&00 @LDX #LF84A € 255 ALDY #LF84A پ 256 B4JSR OSWORD:BCS OSEscape :\ Input a command C4LDX #&36:LDY #&02:JSR OS_CLI :\ Execute command D:JMP CmdOSLoop :\ Jump back for another E F\ *BASIC G\ ====== H .CmdBASIC I1EQUB &C3 :\ Pass to host J K\ NMI Handler L\ =========== M.NMIHandler N7LDY #&04:JSR OSByteA3 :\ Ask host something OATYA:BEQ CmdOS :\ If Y=0, enter command prompt P.JumpToCode Q;JMP EnterCodeXY :\ Y<>0, enter code at XY R S .OSEscape T0LDA #&7E:JSR OSBYTE :\ Ack. escape U!BRK:EQUB 17:EQUS "Escape":BRK V W .LF84A X'EQUW &0236 :\ Input buffer at &0236 Y%EQUB &C9 :\ Max. &C9 characters Z#EQUB &20 :\ Minimum character [#EQUB &FF :\ Maximum character \ ] .RESET ^0LDX #&FF:TXS :\ Clear stack _HJSR LF87F :\ Reset vectors and set memory limits `7LDY #&06:JSR OSByteA3 :\ Ask host something aCTYA:BNE OscliXY :\ If Y<>0, execute command at XY b=\ If Y=0, display startup banner and enter command prompt c%\ If Y<>0, XY=>command to execute d e9JSR PrText :\ Print startup banner f"EQUB 10:EQUS "Acorn 6502 Tube" gEQUB 10:EQUB 10:EQUB 13 hNOP i;JMP CmdOS :\ Jump to command prompt j)\ Will then call display help banner, k1\ then calls OsByteA3,4 for any entry address l m.OscliXY n9JSR ErrorInit :\ Set up error handler o>JSR OS_CLI:JMP CmdQUIT :\ Execute command then quit p q)\ Reset vectors and set memory limits r)\ =================================== s .LF87F tCLD:LDX #&35 u .LF882 v>LDA LFB87,X:STA &0200,X :\ Copy from default vectors wDEX:BPL LF882 x6STZ &FF:STZ &F0 :\ Clear escape flag yHLDX #&08:STX &F1 :\ Set F0/1=>bottom of memory at &0800 z-LDX #&00:LDY #&F8 :\ XY=&F800 {ESTX &F4:STY &F5 :\ Set F4/5=>top of memory at &F800 |RTS } ~\ Interupt 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 †FJMP (IRQ2V) :\ No handlers, pass staight on to IRQ2V ‡ ˆ.BRKHandler ‰*TXA:PHA :\ Save X ٹ:TSX:LDA &0103,X :\ Get address from stack ‹CLD:SEC:SBC #&01:STA &FD Œ;LDA &0104,X:SBC #&00:STA &FE :\ &FD/E=>after BRK opcode چJLDA #&00:STA &03FE :\ Error block at (&FD),Y is in block &00 ژ:PLA:TAX:LDA &FC :\ Restore X, get saved A ڈJCLI:JMP (BRKV) :\ Restore IRQs and jump to Error Handler گ ‘\ Default error handler ’\ ===================== “.ErrorHandler ”/LDX #&FF:TXS :\ Clear stack •JINX:STX &03FE :\ Error block at (&FD),Y is in block &00 –CLI:JSR OSNEWL —LDY #&01 ک .LF8D7 ™6LDA (&FD),Y:BEQ LF8E1 :\ Print error string ڑJSR OSWRCH:INY:BNE LF8D7 › .LF8E1 œ:JSR OSNEWL:JMP CmdOSLoop :\ Jump to command prompt ‌ ‍ \ *بک ں\ ===== .CmdQUIT ،0EQUB &B3 :\ Pass to host ¢ £ .OSByteA3 ¤2LDA #&A3:LDX #&F3 :\ OSBYTE &A3,&F3 ¥/EQUB &13 :\ Host OSBYTE ¦RTS § ¨\ Scan hex ©\ ======== ھ.ScanHex «9LDX #&00:STX &F6:STX &F7 :\ Clear hex accumulator ¬ESTX &03F3 :\ String at (&F2),Y is in block &00 .LF8F7 ®9LDA (&F2),Y :\ Get current character ¯.SEC:SBC #&30:BCC LF921 :\ <'0', exit °@CMP #&0A:BCC LF90E :\ '0'..'9', add into accumator ±>€ #&DF:SBC #&07 :\ Ignore case, convert letters ².CMP #&0A:BCC LF921 :\ <'A', exit ³.CMP #&10:BCS LF921 :\ >'F', exit ´ .LF90E µ'ASL A:ASL A:ASL A:ASL A :\ *16 ¶LDX #&03 · .LF914 ¸>ASL A:ROL &F6:ROL &F7 :\ Move bits into accumulator ¹=BCS LF959 :\ Overflowed, jump to error ؛6DEX:BPL LF914 :\ Loop for four bits »:INY:BNE LF8F7 :\ Move to next character ¼ .LF921 ½GJMP SkipSpaces :\ Skip past any final spaces and exit ¾ ؟$\ Scan hex, error if null string ہ .LF924 ء2JSR ScanHex:PHP :\ Save flag آLCPX #&00:BEQ LF959 :\ X=0, nothing read in, 'Bad number' error أ6PLP:RTS :\ Get flag back ؤ إ\ *گ - Set گ address ئ\ ======================== ا.CmdPAGE بBJSR SkipSpaces:BEQ LF94A :\ No parameters, jump to use &0800 ة:JSR LF924:BNE LF959 :\ Error if more parameters تPLDY &F7:LDX &F6:BNE LF94E :\ addr<>&xx00, error as must by 256-byte aligned ث>CPY #&08:BCC LF94E :\ addr<&0800, error as too low ج?CPY #&80:BCS LF94E :\ addr>&8000, error as too high ح .LF946 خ3STY &F1:CLC:RTS :\ Store گ high byte د .LF94A ذ2LDY #&08:BRA LF946 :\ Default to &0800 ر ز .LF94E سBRK ش2BRK:EQUS "Bad PAGE":BRK :\ Unusable گ value ص .LF959 ضBRK ×)BRK:EQUS "Bad number":BRK :\ Bad hex ط .LF966 ظ:SEC:RTS :\ SEC=pass command to host ع غ\ *GO - Call machine code ـ\ ======================= ف .CmdGO قFJSR SkipSpaces:BEQ LF984 :\ If no params, re-enter existing code ك4JSR ScanHex :\ Scan hex parameter à@CPX #&00:BEQ LF966 :\ No hex parameter, pass to host ل. :\ eg *GO HELLO â%CMP #&3B:BEQ LF97C :\ ';' م8CMP #&0D:BNE LF959 :\ More parameters, error ن .LF97C ه9LDX &F6:LDY &F7 :\ Store parameter pointer و2 :\ Enter code at XY ç è.EnterCodeXY é=STX &F4:STY &F5 :\ Set memtop to entry address ê .LF984 ë6LDA &EF:PHA:LDA &EE:PHA :\ Save current program ىJSR EnterCode يMPLA:STA &EE:STA &F4 :\ Restore current program and also set memtop îPLA:STA &EF:STA &F5 ï2CLC:RTS :\ CLC=command done ً ٌ2\ Check if code to be entered has a ROM header ٍ.EnterCode َDLDA &F4:STA &EE :\ Current program starts at memtop ôLDA &F5:STA &EF ُJLDX #&00:STX &03F5:STX &03FE :\ Set memtop and errptr are in block &00 ِ8LDY #&07:LDA (&F4),Y :\ Get copyright offset ÷CLD:CLC:ADC &F4:STA &FD ّcopyright message ù\ Check for &00,"(C)" ْ?LDY #&00:LDA (&FD),Y:BNE LF9FC :\ Check for initial &00 û7INY:LDA (&FD),Y:CMP #&28:BNE LF9FC :\ Check for '(' ü7INY:LDA (&FD),Y:CMP #&43:BNE LF9FC :\ Check for 'C' ‎7INY:LDA (&FD),Y:CMP #&29:BNE LF9FC :\ Check for ')' ‏\ &00,"(C)" exists ے0LDY #&06:LDA (&F4),Y :\ Get ROM type 6€ #&4D:CMP #&40:BCC LFA2A :\ b6=0, Not a language A€ #&0D:BEQ LF9E6 :\ code=%x1xx00x0, enter 6502 code BCMP #&01:BNE LFA0E :\ code<>%x1xx00x1, not 6502 code .LF9E6 &\ romtype=%0000 - A=0 - 6502 BASIC %\ romtype=%0001 - A=1 - Turbo6502 )\ romtype=%0010 - A=0 - 6502 nonBASIC $\ romtype=%0011 - A=1 - reserved ?PHA:LDY #&09 :\ Save entry value &00 or &01 .LF9E9 3LDA (&F4),Y:BEQ LF9F3 :\ Print ROM title JSR OSWRCH:INY:BNE LF9E9 .LF9F3 1JSR OSNEWL:JSR OSNEWL :\ Print two NLs 8PLA:BRA LF9FE :\ Get entry value back D.LF9FC :\ No (C) string, enter as raw code .LDA #&00 :\ Set flag=0 .LF9FE 5STA &F0 :\ Store flag at &F0 +\ If flag=0, membot=&F0/1, memtop=&F4/5 *\ If flag<>0, membot=0000, memtop=0000 LDY #&00:TYA .LFA03 DSTA &0300,Y:DEY:BNE LFA03 :\ All (zp),Y accesses to block &00 7LDA #&01:JMP (&00F4) :\ Enter code with A=1 .LFA0E JSR ErrorInit BRK )BRK:EQUS "I cannot run this code":BRK .LFA2A JSR ErrorInit BRK !)BRK:EQUS "This is not a language":BRK " #.ErrorInit $2LDA #ErrorHandler € 255:STA BRKV :\ Claim BRKV %%LDA #ErrorHandler پ 256:STA &0203 &RTS ' (\ *ا“ - Display help )\ ==================== *.CmdHELP +2JSR SkipSpaces:BNE LFA5C :\ Exit if parameters ,6JSR OSNEWL:JSR HelpBanner:\ Display startup banner - .LFA5C .;SEC:RTS :\ Return, SEC to pass to host / 0.HelpBanner 1JSR PrText 2.EQUS "6502 Emulator OS 0.64 (19 Oct 1988)" 3EQUB 10:EQUB 13 4NOP 5RTS 6 7#.osBYTE :\ OSBYTE 8PHA 90CMP #&82:BEQ BYTE82 :\ Read memory high word :0CMP #&83:BEQ BYTE83 :\ Read bottom of memory ;-CMP #&84:BEQ BYTE84 :\ Read top of memory <=CMP #&85:BEQ BYTE85 :\ Read top of memory for screen mode =)CMP #&8E:BEQ BYTE8E :\ Enter language >9CMP #&A3:BNE BYTEnn :\ Jump if not Application OSBYTE ?(CPX #&FE:BCC BYTEnn :\ Jump if X<&FE @9\ OSBYTE &A3,&FE and OSBYTE &A3,FF - return unchanged APLA BRTS C D..BYTEnn :\ Pass OSBYTE to host E#EQUB &13 :\ MOS_BYTE F!PLA:RTS :\ Return G H0.BYTE82 :\ Read memory high word I*LDX #&00:LDY #&00 :\ High word=&0000 JPLA:RTS K L0.BYTE83 :\ Read bottom of memory M%PLA :\ Get A back N:LDX &F0:BEQ LFABC :\ If &F0=0, &F0/F1=>memory bottom O$LDA #&01 :\ Set A=&01 P5LDX #&00:LDY #&00 :\ Return memory bottom=&0000 QRTS R .LFABC S8LDX #&00:LDY &F1 :\ Get memory bottom from &F0/F1 TRTS U V-.BYTE84 :\ Read top of memory W%PLA :\ Get A back X6LDX &F0:BEQ LFACD :\ If &F0=0, &F4/5=>memory top Y$LDA #&04 :\ Set A=&04 Z2LDX #&00:LDY #&00 :\ Return memory top=&0000 [RTS \ .LFACD ]5LDX &F4:LDY &F5 :\ Get memory top from &F4/F5 ^RTS _ `8.BYTE85 :\ Read top of memory for screem a5LDX #&00:LDY #&80 :\ Return top of memory=&8000 b/PLA:RTS :\ Restore A and return c d).BYTE8E :\ Enter language e.JMP CmdBASIC :\ Jump to enter BASIC f g.osBGet h.EQUB &73 :\ Pass OSBGet to host iRTS j k.osBPut l.EQUB &83 :\ Pass OSBPut to host mRTS n o.osFILE p.EQUB &53 :\ Pass OSFILE to host qRTS r s.osFIND t.EQUB &A3 :\ Pass OSFIND to host uRTS v w.osGBPB x.EQUB &93 :\ Pass OSGBPB to host yRTS z {.osRDCH |.EQUB &43 :\ Pass OSRDCH to host }RTS ~ .osWRCH €.EQUB &33 :\ Pass OSWRCH to host پRTS ‚ ƒ$.osWORD :\ OSWORD „7CMP #&05:BNE LFB0C :\ Jump if not Read I/O memory …: † \ OSWORD 5 - Read I/O memory ‡\ Reads from Tube memory ˆ0STX &F8:STY &F9 :\ &F8/9=>control block ‰ALDY #&00:STY &03F9 :\ Control block at (&F8),Y in block &00 ٹLDA (&F8),Y:STA &FA ‹INY Œ1LDA (&F8),Y:STA &FB :\ &FA/B=address to read چ-LDX #&00:LDA (&FA,X) :\ Read from address ژembedded string ¯BLDY #&00:STY &03FB :\ String at (&FA),Y is in block &00 °INY ± .LFB4A ².LDA (&FA),Y :\ Get character ³,CMP #&EA:BEQ LFB56 :\ Exit if NOP ´=JSR OSWRCH:INY:BNE LFB4A :\ Print char and loop for next µ .LFB56 ¶TYA:CLC:ADC &FA ·6TAX:LDA #&00:ADC &FB :\ Update return address ¸4PHA:TXA:PHA :\ Points after string ¹.NullReturn ؛RTS » ¼\ Print string at XY ½\ ------------------ ¾ .PrString ؟2STX &FA:STY &FB :\ Store XY in &FA/B ہBLDY #&00:STY &03FB :\ String at (&FA),Y is in block &00 ء .LFB6C آ0LDA (&FA),Y :\ Get a character أ5CMP #&20:BCC LFB78 :\ Exit at control char ؤ0JSR OSWRCH:INY:BNE LFB6C :\ Print character إ .LFB78 ئRTS ا ب.Unsupported ةBRK تBRK:EQUS "Unsupported":BRK ث ج\ Default vectors ح .LFB87 خ)EQUW Unsupported :\ &200 - USERV د(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 NullReturn :\ &222 - UPTV à(EQUW NullReturn :\ &224 - NETV ل(EQUW Unsupported :\ &226 - VduV â(EQUW Unsupported :\ &228 - KEYV م(EQUW Unsupported :\ &22A - INSV ن(EQUW Unsupported :\ &22C - RemV ه(EQUW Unsupported :\ &22E - CNPV و)EQUW NullReturn :\ &230 - IND1V ç)EQUW NullReturn :\ &232 - IND2V è)EQUW NullReturn :\ &234 - IND3V é ê.osCLI :\ ے ë2STX &F2:STY &F3 :\ &F2/3=>command string ى>LDY #&00:STY &03F3 :\ String at (&F2),Y is in block &00 ي .LFBC6 îCLDA (&F2),Y:STA LFC6A,Y :\ Copy command line to command buffer ï/CMP #&0D:BEQ LFBD3 :\ Loop until ً=INY:BNE LFBC6 :\ Loop for up to 256 characters ٌ .LFBD2 ٍ3RTS :\ No found, exit َ .LFBD3 ôLDX #LFC6A € 255 ُ8LDY #LFC6A پ 256 :\ Point XY to command buffer ِ=STX &F2:STY &F3 :\ Point &F2/3 to command buffer ÷LDX #&00:LDY #&FF ّ .LFBDF ù9JSR SkipSpaces1 :\ Move past and skip spaces ْ,CMP #—"*":BEQ LFBDF :\ Skip past '*'s û1CMP #&0D:BEQ LFBD2 :\ Null string, exit ü/CMP #—"|":BEQ LFBD2 :\ *|, comment, exit ‎ICLC:TYA:ADC &F2:STA &F2 :\ Adjust &F2/3 to point to start of command ‏BCC LFBF8:INC &F3 ے .LFBF8 3LDY #&00:LDA (&F2),Y :\ Get first character 8CMP #—".":BEQ LFC45 :\ '*.', jump to pass to host .LFC00 4TYA:PHA :\ Save command pointer 4JSR SkipSpaces :\ Skip any more spaces .LFC05 ?LDA LFF02,X:BMI LFC20 :\ Jump if at end of command table 8‚ (&F2),Y :\ Compare with command table ;€ #&DF:BNE LFC14 :\ Ignore case, jump if no match ?\ ے command buffer @\ -------------------- A .LFC6A BEQUS ؤ128,½0) CEQUS ؤ128,½0) D E .LFD6A FBRK:BRK G .LFD6C HSTZ &C0 I € #&00 JCLC KRTS L M)\ This looks like a bit of BASIC code N)\ ----------------------------------- O .LFD72 PLDA &0B:STA &19 QLDA &0C:STA &1A RLDA &0A:STA &1B S .LFD7E TLDY &1B:INC &1B ULDA (&19),Y VCMP #&20:BEQ LFD7E WCMP #&3D:BEQ LFDBA X .LFD8C YBRK ZEQUB &04:EQUS "Mistake" [ .LFD95 \BRK ] EQUB &10:EQUS "Syntax error" ^ .LFDA3 _BRK ` EQUB &0D:EQUS "No ":EQUB &F2 a .LFDA9 bBRK cEQUB &11:EQUS "Escape" dBRK e f .LFDB2 g JSR &C742 hCMP #&3D:BNE LFD8C iRTS j k .LFDBA lJSR &D5AF:TXA mLDY &1B:BRA LFDDC nLDY &1B:BRA LFDD4 oTSX:CPX #&FC:BCS LFDA3 p LDA &01FF:CMP #&F2:BNE LFDA3 qLDY &0A r .LFDD4 sDEY t .LFDD5 uINY:LDA (&0B),Y vCMP #&20:BEQ LFDD5 w .LFDDC xCMP #&3A:BEQ LFDE8 yCMP #&0D:BEQ LFDE8 zCMP #&8B:BNE LFD95 { .LFDE8 |CLC:TYA:ADC &0B:STA &0B }BCC LFDF2:INC &0C ~ .LFDF2 LDY #&01:STY &0A €BIT &FF:BMI LFDA9 پ .LFDFA ‚RTS ƒ „ .LFDFB … JSR &D41A † LDA (&0B):CMP #&3A:BEQ LFDFA ‡LDA &0C:CMP #&07:BEQ LFE2E ˆ"LDY #&01:LDA (&0B),Y:BMI LFE2E ‰LDX &20:BEQ LFE1E ٹ#STA &2B:INY:LDA (&0B),Y:STA &2A ‹ JSR &D4BF Œ .LFE1E چ LDA #&03:CLC:ADC &0B:STA &0B ژBCC LFE29:INC &0C ڈ .LFE29 گLDY #&01:STY &0A ‘ .LFE2D ’RTS “ ” .LFE2E • JMP &C7FB – — .LFE31 ک JMP &C905 ™ ڑ .LFE34 ›JSR &D5A3:BEQ LFE31 œBPL LFE3E:JSR &CF38 ‌ .LFE3E ‍LDY &1B:STY &0A:LDA &2A ں"„A &2B:„A &2C:„A &2D:BEQ LFE63 CPX #&8C:BEQ LFE53 ، .LFE50 ¢ JMP &C880 £ ¤ .LFE53 ¥INC &0A ¦ .LFE55 §JSR &D392:BCC LFE50 ¨JSR &F018:JSR &D43A © JMP &EF05 ھ « .LFE63 ¬LDY &0A .LFE65 ®"LDA (&0B),Y:CMP #&0D:BEQ LFE74 ¯INY:CMP #&8B:BNE LFE65 °STY &0A:BEQ LFE55 ± .LFE74 ² JMP &C82D ³ ´ .LFE77 µLDA &2A:CMP &21:LDA &2B ¶SBC &22:BCS LFE2D ·LDA #&5B:JSR &F58A ¸JSR &D898:LDA #&5D ¹JSR &F58A: ؛ JMP &F584 » ¼ .LFE91 ½JSR &F3EC:JSR &D6B7 ¾TAY:JSR &CF52 ؟JSR &F3D6:JSR &DCC4 ہLDA &2E:‚ &3B:BPL LFEBF ءASL &2E:BRA LFEE1 آ أ .LFEAB ؤSTY &2D:PLA:STA &2C إPLA:STA &2B ئPLA:STA &2A ا JSR &BA3A بLDA &3B:‚ #&80:STA &3B ة .LFEBF تLDA &3C:CMP &30:BNE LFEDD ثLDA &3D:CMP &31:BNE LFEDD جLDA &3E:CMP &32:BNE LFEDD حLDA &3F:CMP &33:BNE LFEDD خLDA &40:SBC &34:BEQ LFEE3 د .LFEDD ذROR A:‚ &3B:ROL A ر .LFEE1 زLDA #&FF س .LFEE3 شRTS ص ض .LFEE4 × JMP &C905 ط ظ .LFEE7 عINC &1B:TXA:BEQ LFF2C غ BMI LFE91 ـLDA &2A:PHA فLDA &2B:PHA قLDA &2C:PHA كLDA &2D:PHA àJSR &D6B7:TAY:BMI LFF1C لTRB &FF â م\ Command table ن .LFF02 هEQUS "GO":EQUB &C3 وEQUS "HELP":EQUB &82 çEQUS "OS":EQUB &84 èEQUS "PAGE":EQUB &C5 éEQUS "QUIT":EQUB &81 êEQUS "BASIC" ë .LFF1C ىEQUB &80:EQUB &00 ي îEQUS ؤ&FF2C-P%,½0) ï .LFF2C ً ٌEQUS ؤ&FFB6-P%,½0) ٍ'.VECDEF :EQUB &36:EQUW LFB87 َ#.LFFxx :JMP Unsupported ô#.LFFxx :JMP Unsupported ُ#.LFFxx :JMP Unsupported ِ#.LFFxx :JMP Unsupported ÷#.LFFxx :JMP Unsupported ّ.NVRDCH :JMP osRDCH ù.NVWRCH :JMP osWRCH ْ û.OSFIND :JMP (FINDV) ü.OSGBPB :JMP (GBPBV) ‎.OSBPUT :JMP (BPutV) ‏.OSBGET :JMP (BGetV) ے.OSARGS :JMP (ARGSV) .OSFILE :JMP (FILEV) .OSRDCH :JMP (RDCHV) '.OSASCI :CMP #&0D:BNE OSWRCH '.OSNEWL :LDA #&0A:JSR OSWRCH .OSPRCR :LDA #&0D .OSWRCH :JMP (WRCHV) .OSWORD :JMP (WORDV) .OSBYTE :JMP (BYTEV) .OS_CLI :JMP (CLIV) #.NMIV :EQUW NMIHandler .RESETV :EQUW RESET ).IRQV :EQUW InterruptHandler ]:ي ے