REM > SMON.src REM Source SMON.rom : REM MOS entry addresses REM ------------------- OSSHUT=&FFCB:OSFIND=&FFCE:OSBPUT=&FFD1:OSBGET=&FFD4 OSSTAR=&FFD7:OSRDAR=&FFDA:OSSAVE=&FFDD:OSLOAD=&FFE0 OSRDCH=&FFE3:OSECHO=&FFE6:OSASCI=&FFE9:OSNEWL=OSNEWL OSWRCR=&FFF2:OSWRCH=&FFF4:OS_CLI=&FFF7 : load%=&D000 DIM mcode% &814 FOR P=0 TO 1 P%=load%:O%=mcode% [OPT P*3+4 .exec% JSR LD04D :\ Swap &10-&5F with &DF10-&DF5F LDX #&1F:LDA #&FF .LD007 STA &10,X :\ Fill &10-&2F with &FF DEX:BPL LD007 \ Main command loop \ ================= .LD00C CLD:CLI :\ Set Binary mode, enable IRQs LDA LD7C5+0:STA &0202 :\ Point BRKV to LD088 LDA LD7C5+1:STA &0203 LDX &14:TXS LDA LD7C3+1:PHA :\ Push return address to LD08E LDA LD7C3+0:PHA LDA #&3A:JSR OSWRCH :\ Print a colon JSR LD073 :\ Wait for a keypress and echo it .LD02D CMP #ASC"*":BNE LD033 :\ Change '*' to '[' for command table LDA #ASC"[" .LD033 CMP #ASC"@":BCC LD08E :\ Not a letter, ignore and loop back CMP #ASC"\":BCS LD08E :\ Not a letter, ignore and loop back ASL A:AND #&7F:TAX :\ Index into command table INX:LDA LD789,X:PHA :\ Get high byte of dispatch address DEX:LDA LD789,X:PHA :\ Get low byte LDY #&00:PHP:RTI :\ Jump to routine with Y=0 \ Swap contents of &0010-&005F with &DF10-&DF5F \ --------------------------------------------- .LD04D PHA:TYA:PHA LDA LD787+0:STA &FB :\ Point &FB/C to LDF10 LDA LD787+1:STA &FC LDY #&4F .LD05C LDA &0010,Y:PHA :\ Swap &10+Y with &DF10+Y LDA (&FB),Y:STA &0010,Y PLA:STA (&FB),Y DEY:BPL LD05C PLA:TAY:PLA RTS .LD06F AND #&7F:BPL LD085 :\ Drop bit 7 and print character .LD073 LDY #&00:JSR OSRDCH :\ Wait for a keypress .LD078 CMP #&7F:BEQ LD073 :\ DEL, ignore CMP #&20:BPL LD085 :\ Printable char, echo it and return CMP #&0D:BEQ LD085 :\ CR, echo it and return RTS :\ Otherwise, don't echo but return it .LD085 JMP OSWRCH \ BRK handler \ ----------- .LD088 JSR LD04D :\ D088 20 4D D0 MP JSR OSNEWL :\ D08B 20 ED FF m. .LD08E JSR OSNEWL :\ D08E 20 ED FF m. JMP LD00C :\ D091 4C 0C D0 L.P .LD094 STX &3C :\ D094 86 3C .< STY &3D :\ D096 84 3D .= LDY #&00 :\ D098 A0 00 . .LD09A LDA (&3C),Y :\ D09A B1 3C 1< JSR &FFE9 :\ D09C 20 E9 FF i. INY :\ D09F C8 H CMP #&00 :\ D0A0 C9 00 I. BNE LD09A :\ D0A2 D0 F6 Pv RTS :\ D0A4 60 ` .LD0A5 LDA #&10 :\ D0A5 A9 10 ). STA &37 :\ D0A7 85 37 .7 .LD0A9 JSR LD0B9 :\ D0A9 20 B9 D0 9P .LD0AC JSR LD19D :\ D0AC 20 9D D1 .Q STA &35 :\ D0AF 85 35 .5 STY &36 :\ D0B1 84 36 .6 DEC &37 :\ D0B3 C6 37 F7 BMI LD0EE :\ D0B5 30 37 07 BNE LD0A9 :\ D0B7 D0 F0 Pp .LD0B9 JSR LD188 :\ D0B9 20 88 D1 .Q .LD0BC LDA (&35,X) :\ D0BC A1 35 !5 TAY :\ D0BE A8 ( LSR A :\ D0BF 4A J BCC LD0CD :\ D0C0 90 0B .. LSR A :\ D0C2 4A J BCS LD0DC :\ D0C3 B0 17 0. CMP #&22 :\ D0C5 C9 22 I" BEQ LD0DC :\ D0C7 F0 13 p. AND #&07 :\ D0C9 29 07 ). ORA #&80 :\ D0CB 09 80 .. .LD0CD LSR A :\ D0CD 4A J TAX :\ D0CE AA * LDA LD677,X :\ D0CF BD 77 D6 =wV BCS LD0D8 :\ D0D2 B0 04 0. LSR A :\ D0D4 4A J LSR A :\ D0D5 4A J LSR A :\ D0D6 4A J LSR A :\ D0D7 4A J .LD0D8 AND #&0F :\ D0D8 29 0F ). BNE LD0E0 :\ D0DA D0 04 P. .LD0DC LDY #&80 :\ D0DC A0 80 . LDA #&00 :\ D0DE A9 00 ). .LD0E0 TAX :\ D0E0 AA * LDA LD6BB,X :\ D0E1 BD BB D6 =;V STA &31 :\ D0E4 85 31 .1 AND #&03 :\ D0E6 29 03 ). STA &32 :\ D0E8 85 32 .2 LDA &38 :\ D0EA A5 38 %8 BNE LD0EF :\ D0EC D0 01 P. .LD0EE RTS :\ D0EE 60 ` .LD0EF TYA :\ D0EF 98 . AND #&8F :\ D0F0 29 8F ). TAX :\ D0F2 AA * TYA :\ D0F3 98 . LDY #&03 :\ D0F4 A0 03 . CPX #&8A :\ D0F6 E0 8A `. BEQ LD105 :\ D0F8 F0 0B p. .LD0FA LSR A :\ D0FA 4A J BCC LD105 :\ D0FB 90 08 .. LSR A :\ D0FD 4A J .LD0FE LSR A :\ D0FE 4A J ORA #&20 :\ D0FF 09 20 . DEY :\ D101 88 . BNE LD0FE :\ D102 D0 FA Pz INY :\ D104 C8 H .LD105 DEY :\ D105 88 . BNE LD0FA :\ D106 D0 F2 Pr PHA :\ D108 48 H .LD109 LDA (&35),Y :\ D109 B1 35 15 JSR LD1B5 :\ D10B 20 B5 D1 5Q CPY &32 :\ D10E C4 32 D2 INY :\ D110 C8 H BCC LD109 :\ D111 90 F6 .v LDX #&01 :\ D113 A2 01 ". .LD115 JSR LD194 :\ D115 20 94 D1 .Q INY :\ D118 C8 H LDX #&02 :\ D119 A2 02 ". CPY #&04 :\ D11B C0 04 @. BCC LD115 :\ D11D 90 F6 .v PLA :\ D11F 68 h TAY :\ D120 A8 ( LDA LD6D5,Y :\ D121 B9 D5 D6 9UV STA &33 :\ D124 85 33 .3 LDA LD715,Y :\ D126 B9 15 D7 9.W STA &34 :\ D129 85 34 .4 .LD12B LDA #&00 :\ D12B A9 00 ). LDY #&05 :\ D12D A0 05 . .LD12F ASL &34 :\ D12F 06 34 .4 ROL &33 :\ D131 26 33 &3 ROL A :\ D133 2A * DEY :\ D134 88 . BNE LD12F :\ D135 D0 F8 Px ADC #&BF :\ D137 69 BF i? JSR LD06F :\ D139 20 6F D0 oP DEX :\ D13C CA J BPL LD12B :\ D13D 10 EC .l JSR LD192 :\ D13F 20 92 D1 .Q LDX #&06 :\ D142 A2 06 ". .LD144 CPX #&03 :\ D144 E0 03 `. BNE LD162 :\ D146 D0 1A P. LDY &32 :\ D148 A4 32 $2 BNE LD154 :\ D14A D0 08 P. ASL &33 :\ D14C 06 33 .3 BCC LD162 :\ D14E 90 12 .. LDA #&41 :\ D150 A9 41 )A BNE LD196 :\ D152 D0 42 PB .LD154 LDA &31 :\ D154 A5 31 %1 CMP #&E8 :\ D156 C9 E8 Ih LDA (&35),Y :\ D158 B1 35 15 BCS LD178 :\ D15A B0 1C 0. JSR LD1B5 :\ D15C 20 B5 D1 5Q DEY :\ D15F 88 . BNE LD154 :\ D160 D0 F2 Pr .LD162 ASL &31 :\ D162 06 31 .1 BCC LD174 :\ D164 90 0E .. LDA LD6C8,X :\ D166 BD C8 D6 =HV JSR LD06F :\ D169 20 6F D0 oP LDA LD6CE,X :\ D16C BD CE D6 =NV BEQ LD174 :\ D16F F0 03 p. JSR LD06F :\ D171 20 6F D0 oP .LD174 DEX :\ D174 CA J BNE LD144 :\ D175 D0 CD PM RTS :\ D177 60 ` .LD178 JSR LD1A0 :\ D178 20 A0 D1 Q TAX :\ D17B AA * INX :\ D17C E8 h BNE LD180 :\ D17D D0 01 P. INY :\ D17F C8 H .LD180 TYA :\ D180 98 . .LD181 JSR LD1B5 :\ D181 20 B5 D1 5Q TXA :\ D184 8A . JMP LD1B5 :\ D185 4C B5 D1 L5Q .LD188 JSR OSNEWL :\ D188 20 ED FF m. LDA &36 :\ D18B A5 36 %6 LDX &35 :\ D18D A6 35 &5 JSR LD181 :\ D18F 20 81 D1 .Q .LD192 LDX #&01 :\ D192 A2 01 ". .LD194 LDA #&20 :\ D194 A9 20 ) .LD196 JSR LD06F :\ D196 20 6F D0 oP DEX :\ D199 CA J BNE LD194 :\ D19A D0 F8 Px RTS :\ D19C 60 ` .LD19D LDA &32 :\ D19D A5 32 %2 SEC :\ D19F 38 8 .LD1A0 LDY &36 :\ D1A0 A4 36 $6 TAX :\ D1A2 AA * BPL LD1A6 :\ D1A3 10 01 .. DEY :\ D1A5 88 . .LD1A6 ADC &35 :\ D1A6 65 35 e5 BCC LD1AB :\ D1A8 90 01 .. INY :\ D1AA C8 H .LD1AB RTS :\ D1AB 60 ` .LD1AC JSR LD1AF :\ D1AC 20 AF D1 /Q .LD1AF JSR LD1FE :\ D1AF 20 FE D1 ~Q JMP LD1D9 :\ D1B2 4C D9 D1 LYQ .LD1B5 PHA :\ D1B5 48 H BIT &0E21 :\ D1B6 2C 21 0E ,!. BVS LD1C0 :\ D1B9 70 05 p. LDA &0E21 :\ D1BB AD 21 0E -!. CMP #&1B :\ D1BE C9 1B I. .LD1C0 BEQ LD21C :\ D1C0 F0 5A pZ PLA :\ D1C2 68 h PHA :\ D1C3 48 H LSR A :\ D1C4 4A J LSR A :\ D1C5 4A J LSR A :\ D1C6 4A J LSR A :\ D1C7 4A J JSR LD1CC :\ D1C8 20 CC D1 LQ PLA :\ D1CB 68 h .LD1CC AND #&0F :\ D1CC 29 0F ). ORA #&30 :\ D1CE 09 30 .0 CMP #&3A :\ D1D0 C9 3A I: BCC LD1D6 :\ D1D2 90 02 .. ADC #&06 :\ D1D4 69 06 i. .LD1D6 JMP OSWRCH :\ D1D6 4C F4 FF Lt. .LD1D9 ASL A :\ D1D9 0A . ASL A :\ D1DA 0A . ASL A :\ D1DB 0A . ASL A :\ D1DC 0A . LDY #&04 :\ D1DD A0 04 . .LD1DF ROL A :\ D1DF 2A * ROL &17 :\ D1E0 26 17 &. DEY :\ D1E2 88 . BNE LD1DF :\ D1E3 D0 FA Pz LDA &17 :\ D1E5 A5 17 %. RTS :\ D1E7 60 ` .LD1E8 JSR LD201 :\ D1E8 20 01 D2 .R JSR LD1D9 :\ D1EB 20 D9 D1 YQ JMP LD1AF :\ D1EE 4C AF D1 L/Q .LD1F1 JSR LD073 :\ D1F1 20 73 D0 sP CMP #&31 :\ D1F4 C9 31 I1 BMI LD216 :\ D1F6 30 1E 0. CMP #&39 :\ D1F8 C9 39 I9 BCS LD216 :\ D1FA B0 1A 0. BCC LD213 :\ D1FC 90 15 .. .LD1FE JSR LD073 :\ D1FE 20 73 D0 sP .LD201 CMP #&30 :\ D201 C9 30 I0 BMI LD216 :\ D203 30 11 0. CMP #&3A :\ D205 C9 3A I: BCC LD213 :\ D207 90 0A .. CMP #&47 :\ D209 C9 47 IG BCS LD216 :\ D20B B0 09 0. CMP #&41 :\ D20D C9 41 IA BCC LD216 :\ D20F 90 05 .. SBC #&07 :\ D211 E9 07 i. .LD213 AND #&0F :\ D213 29 0F ). RTS :\ D215 60 ` .LD216 JSR LD04D :\ D216 20 4D D0 MP JMP LD777 :\ D219 4C 77 D7 LwW .LD21C JMP LD08E :\ D21C 4C 8E D0 L.P .LD21F JSR LD1AC :\ D21F 20 AC D1 ,Q STA &3B :\ D222 85 3B .; JSR LD1AC :\ D224 20 AC D1 ,Q STA &3A :\ D227 85 3A .: RTS :\ D229 60 ` .LD22A JSR LD1AC :\ D22A 20 AC D1 ,Q STA &3D :\ D22D 85 3D .= JSR LD1AC :\ D22F 20 AC D1 ,Q STA &3C :\ D232 85 3C .< .LD234 LDA #&2C :\ D234 A9 2C ), JSR OSWRCH :\ D236 20 F4 FF t. JSR LD1AC :\ D239 20 AC D1 ,Q STA &3F :\ D23C 85 3F .? JSR LD1AC :\ D23E 20 AC D1 ,Q STA &3E :\ D241 85 3E .> RTS :\ D243 60 ` .LD244 INC &3C :\ D244 E6 3C f< BNE LD24A :\ D246 D0 02 P. INC &3D :\ D248 E6 3D f= .LD24A SEC :\ D24A 38 8 LDA &3C :\ D24B A5 3C %< SBC &3E :\ D24D E5 3E e> LDA &3D :\ D24F A5 3D %= SBC &3F :\ D251 E5 3F e? BCS LD21C :\ D253 B0 C7 0G RTS :\ D255 60 ` .LD256 JSR LD21F :\ D256 20 1F D2 .R LDA #&3D :\ D259 A9 3D )= JSR OSWRCH :\ D25B 20 F4 FF t. JMP LD22A :\ D25E 4C 2A D2 L*R \ @ - ..... \ ---------- .LD261 JSR LD21F :\ D261 20 1F D2 .R .LD264 LDA #ASC"/":JSR OSWRCH .LD269 LDA (&3A),Y :\ D269 B1 3A 1: JSR LD1B5 :\ D26B 20 B5 D1 5Q .LD26E JSR LD366 :\ D26E 20 66 D3 fS JSR LD073 :\ D271 20 73 D0 sP CMP #&20 :\ D274 C9 20 I BNE LD27F :\ D276 D0 07 P. RTS :\ D278 60 ` .LD279 JSR LD073 :\ D279 20 73 D0 sP JMP LD29E :\ D27C 4C 9E D2 L.R .LD27F CMP #ASC"/":BEQ LD269 :\ D281 F0 E6 pf CMP #ASC".":BEQ LD279 :\ D285 F0 F2 pr CMP #&0D:BEQ LD2A3 :\ D289 F0 18 p. CMP #ASC"^":BEQ LD2AC :\ D28D F0 1D p. CMP #&22:BNE LD29B :\ D291 D0 08 P. LDA (&3A),Y:JSR OSWRCH :\ D295 20 F4 FF t. JMP LD26E :\ D298 4C 6E D2 LnR .LD29B JSR LD1E8 :\ D29B 20 E8 D1 hQ .LD29E STA (&3A),Y :\ D29E 91 3A .: JMP LD26E :\ D2A0 4C 6E D2 LnR .LD2A3 INC &3A :\ D2A3 E6 3A f: BNE LD2B7 :\ D2A5 D0 10 P. INC &3B :\ D2A7 E6 3B f; JMP LD2B7 :\ D2A9 4C B7 D2 L7R .LD2AC SEC :\ D2AC 38 8 LDA &3A :\ D2AD A5 3A %: SBC #&01 :\ D2AF E9 01 i. STA &3A :\ D2B1 85 3A .: BCS LD2B7 :\ D2B3 B0 02 0. DEC &3B :\ D2B5 C6 3B F; .LD2B7 JSR OSNEWL :\ D2B7 20 ED FF m. LDA &3B :\ D2BA A5 3B %; JSR LD1B5 :\ D2BC 20 B5 D1 5Q LDA &3A :\ D2BF A5 3A %: JSR LD1B5 :\ D2C1 20 B5 D1 5Q JMP LD264 :\ D2C4 4C 64 D2 LdR .LD2C7 INY :\ D2C7 C8 H INY :\ D2C8 C8 H INY :\ D2C9 C8 H INY :\ D2CA C8 H CLC :\ D2CB 18 . TYA :\ D2CC 98 . ADC #&10 :\ D2CD 69 10 i. STA &3A :\ D2CF 85 3A .: LDA #&00 :\ D2D1 A9 00 ). TAY :\ D2D3 A8 ( STA &3B :\ D2D4 85 3B .; BEQ LD264 :\ D2D6 F0 8C p. CLD :\ D2D8 D8 X JSR LD04D :\ D2D9 20 4D D0 MP PLA :\ D2DC 68 h STA &12 :\ D2DD 85 12 .. PLA :\ D2DF 68 h STA &11 :\ D2E0 85 11 .. PLA :\ D2E2 68 h STA &10 :\ D2E3 85 10 .. PLA :\ D2E5 68 h STA &13 :\ D2E6 85 13 .. PLA :\ D2E8 68 h SEC :\ D2E9 38 8 SBC #&02 :\ D2EA E9 02 i. STA &15 :\ D2EC 85 15 .. PLA :\ D2EE 68 h SBC #&00 :\ D2EF E9 00 i. STA &16 :\ D2F1 85 16 .. TSX :\ D2F3 BA : STX &14 :\ D2F4 86 14 .. LDX #&00 :\ D2F6 A2 00 ". LDY #&01 :\ D2F8 A0 01 . .LD2FA LDA &15 :\ D2FA A5 15 %. CMP &20,X :\ D2FC D5 20 U BEQ LD313 :\ D2FE F0 13 p. INX :\ D300 E8 h .LD301 INX :\ D301 E8 h INY :\ D302 C8 H CPY #&09 :\ D303 C0 09 @. BMI LD2FA :\ D305 30 F3 0s LDX LD7C7 :\ D307 AE C7 D7 .GW LDY LD7C8 :\ D30A AC C8 D7 ,HW JSR LD094 :\ D30D 20 94 D0 .P JMP LD08E :\ D310 4C 8E D0 L.P .LD313 INX :\ D313 E8 h LDA &16 :\ D314 A5 16 %. CMP &20,X :\ D316 D5 20 U BNE LD301 :\ D318 D0 E7 Pg JSR OSNEWL :\ D31A 20 ED FF m. TYA :\ D31D 98 . JSR LD36E :\ D31E 20 6E D3 nS TYA :\ D321 98 . ORA #&B0 :\ D322 09 B0 .0 JSR LD1B5 :\ D324 20 B5 D1 5Q LDA #&40 :\ D327 A9 40 )@ JSR OSWRCH :\ D329 20 F4 FF t. LDA &16 :\ D32C A5 16 %. JSR LD1B5 :\ D32E 20 B5 D1 5Q LDA &15 :\ D331 A5 15 %. JSR LD1B5 :\ D333 20 B5 D1 5Q JSR OSNEWL :\ D336 20 ED FF m. LDX #&00 :\ D339 A2 00 ". LDA #&41 :\ D33B A9 41 )A JSR LD351 :\ D33D 20 51 D3 QS LDA #&58 :\ D340 A9 58 )X JSR LD351 :\ D342 20 51 D3 QS LDA #&59 :\ D345 A9 59 )Y JSR LD351 :\ D347 20 51 D3 QS LDA #&50 :\ D34A A9 50 )P JSR LD351 :\ D34C 20 51 D3 QS LDA #&4B :\ D34F A9 4B )K .LD351 JSR OSWRCH :\ D351 20 F4 FF t. LDA #&2F :\ D354 A9 2F )/ JSR OSWRCH :\ D356 20 F4 FF t. LDA &10,X :\ D359 B5 10 5. JSR LD1B5 :\ D35B 20 B5 D1 5Q INX :\ D35E E8 h CPX #&05 :\ D35F E0 05 `. BNE LD366 :\ D361 D0 03 P. JMP LD08E :\ D363 4C 8E D0 L.P .LD366 LDA #&20 :\ D366 A9 20 ) JMP OSWRCH :\ D368 4C F4 FF Lt. .LD36B JSR LD1F1 :\ D36B 20 F1 D1 qQ .LD36E JSR LD3B2 :\ D36E 20 B2 D3 2S LDX &39 :\ D371 A6 39 &9 DEX :\ D373 CA J LDA &18,X :\ D374 B5 18 5. LDX &38 :\ D376 A6 38 &8 PHA :\ D378 48 H LDA &20,X :\ D379 B5 20 5 AND &21,X :\ D37B 35 21 5! CMP #&FF :\ D37D C9 FF I. BEQ LD38C :\ D37F F0 0B p. PLA :\ D381 68 h STA (&20,X) :\ D382 81 20 . LDA #&FF :\ D384 A9 FF ). STA &20,X :\ D386 95 20 . INX :\ D388 E8 h STA &20,X :\ D389 95 20 . RTS :\ D38B 60 ` .LD38C PLA :\ D38C 68 h RTS :\ D38D 60 ` LDX #&00 :\ D38E A2 00 ". LDY #&01 :\ D390 A0 01 . .LD392 JSR OSNEWL :\ D392 20 ED FF m. TYA :\ D395 98 . ORA #&B0 :\ D396 09 B0 .0 JSR LD1B5 :\ D398 20 B5 D1 5Q LDA #&2C :\ D39B A9 2C ), JSR OSWRCH :\ D39D 20 F4 FF t. LDA &21,X :\ D3A0 B5 21 5! JSR LD1B5 :\ D3A2 20 B5 D1 5Q LDA &20,X :\ D3A5 B5 20 5 JSR LD1B5 :\ D3A7 20 B5 D1 5Q INX :\ D3AA E8 h INX :\ D3AB E8 h INY :\ D3AC C8 H CPY #&09 :\ D3AD C0 09 @. BMI LD392 :\ D3AF 30 E1 0a RTS :\ D3B1 60 ` .LD3B2 STA &39 :\ D3B2 85 39 .9 ASL A :\ D3B4 0A . SBC #&01 :\ D3B5 E9 01 i. STA &38 :\ D3B7 85 38 .8 RTS :\ D3B9 60 ` JSR LD36B :\ D3BA 20 6B D3 kS LDA #&2C :\ D3BD A9 2C ), JSR OSWRCH :\ D3BF 20 F4 FF t. JSR LD21F :\ D3C2 20 1F D2 .R LDX &38 :\ D3C5 A6 38 &8 STA &20,X :\ D3C7 95 20 . INX :\ D3C9 E8 h LDA &3B :\ D3CA A5 3B %; STA &20,X :\ D3CC 95 20 . DEX :\ D3CE CA J LDA (&20,X) :\ D3CF A1 20 ! PHA :\ D3D1 48 H TYA :\ D3D2 98 . STA (&20,X) :\ D3D3 81 20 . LDX &39 :\ D3D5 A6 39 &9 DEX :\ D3D7 CA J PLA :\ D3D8 68 h STA &18,X :\ D3D9 95 18 .. RTS :\ D3DB 60 ` RTS :\ D3DC 60 ` JSR LD21F :\ D3DD 20 1F D2 .R LDX #&FF :\ D3E0 A2 FF ". STX &14 :\ D3E2 86 14 .. TXS :\ D3E4 9A . INX :\ D3E5 E8 h STX &13 :\ D3E6 86 13 .. LDA &3A :\ D3E8 A5 3A %: STA &15 :\ D3EA 85 15 .. LDA &3B :\ D3EC A5 3B %; STA &16 :\ D3EE 85 16 .. JSR LD3FC :\ D3F0 20 FC D3 |S JSR LD04D :\ D3F3 20 4D D0 MP JMP LD08E :\ D3F6 4C 8E D0 L.P LDX &14 :\ D3F9 A6 14 &. TXS :\ D3FB 9A . .LD3FC LDA LD7C1 :\ D3FC AD C1 D7 -AW STA &0316 :\ D3FF 8D 16 03 ... LDA LD7C2 :\ D402 AD C2 D7 -BW STA &0317 :\ D405 8D 17 03 ... LDX &11 :\ D408 A6 11 &. LDA &16 :\ D40A A5 16 %. PHA :\ D40C 48 H LDA &15 :\ D40D A5 15 %. PHA :\ D40F 48 H LDA &13 :\ D410 A5 13 %. PHA :\ D412 48 H LDA &10 :\ D413 A5 10 %. LDY &12 :\ D415 A4 12 $. JSR LD04D :\ D417 20 4D D0 MP RTI :\ D41A 40 @ JSR LD22A :\ D41B 20 2A D2 *R JSR OSNEWL :\ D41E 20 ED FF m. LDY #&00 :\ D421 A0 00 . .LD423 JSR OSNEWL :\ D423 20 ED FF m. LDA &3D :\ D426 A5 3D %= PHA :\ D428 48 H JSR LD1B5 :\ D429 20 B5 D1 5Q LDA &3C :\ D42C A5 3C %< PHA :\ D42E 48 H JSR LD1B5 :\ D42F 20 B5 D1 5Q LDX #&08 :\ D432 A2 08 ". .LD434 JSR LD366 :\ D434 20 66 D3 fS LDA (&3C),Y :\ D437 B1 3C 1< JSR LD1B5 :\ D439 20 B5 D1 5Q INC &3C :\ D43C E6 3C f< BNE LD442 :\ D43E D0 02 P. INC &3D :\ D440 E6 3D f= .LD442 DEX :\ D442 CA J BNE LD434 :\ D443 D0 EF Po PLA :\ D445 68 h STA &3C :\ D446 85 3C .< PLA :\ D448 68 h STA &3D :\ D449 85 3D .= JSR LD366 :\ D44B 20 66 D3 fS LDX #&08 :\ D44E A2 08 ". .LD450 LDA (&3C),Y :\ D450 B1 3C 1< JSR LD45D :\ D452 20 5D D4 ]T DEX :\ D455 CA J BNE LD450 :\ D456 D0 F8 Px BEQ LD423 :\ D458 F0 C9 pI JMP LD423 :\ D45A 4C 23 D4 L#T .LD45D CMP #&20 :\ D45D C9 20 I BCC LD465 :\ D45F 90 04 .. CMP #&7F :\ D461 C9 7F I. BCC LD467 :\ D463 90 02 .. .LD465 LDA #&2E :\ D465 A9 2E ). .LD467 JSR OSWRCH :\ D467 20 F4 FF t. JMP LD244 :\ D46A 4C 44 D2 LDR .LD46D JSR LD21F :\ D46D 20 1F D2 .R STA &35 :\ D470 85 35 .5 LDA &3B :\ D472 A5 3B %; STA &36 :\ D474 85 36 .6 RTS :\ D476 60 ` JSR LD46D :\ D477 20 6D D4 mT JSR LD234 :\ D47A 20 34 D2 4R DEY :\ D47D 88 . STY &40 :\ D47E 84 40 .@ BMI LD487 :\ D480 30 05 0. JSR LD46D :\ D482 20 6D D4 mT STY &40 :\ D485 84 40 .@ .LD487 JSR OSNEWL :\ D487 20 ED FF m. STA &38 :\ D48A 85 38 .8 JSR LD0A5 :\ D48C 20 A5 D0 %P JSR LD0AC :\ D48F 20 AC D0 ,P JSR OSNEWL :\ D492 20 ED FF m. BIT &40 :\ D495 24 40 $@ BEQ LD4A5 :\ D497 F0 0C p. SEC :\ D499 38 8 LDA &35 :\ D49A A5 35 %5 SBC &3E :\ D49C E5 3E e> LDA &36 :\ D49E A5 36 %6 SBC &3F :\ D4A0 E5 3F e? BCC LD487 :\ D4A2 90 E3 .c RTS :\ D4A4 60 ` .LD4A5 JSR OSRDCH :\ D4A5 20 E3 FF c. CMP #&0D :\ D4A8 C9 0D I. BEQ LD487 :\ D4AA F0 DB p[ PHA :\ D4AC 48 H JSR OSNEWL :\ D4AD 20 ED FF m. LDA #&3A :\ D4B0 A9 3A ): JSR OSWRCH :\ D4B2 20 F4 FF t. PLA :\ D4B5 68 h JSR LD078 :\ D4B6 20 78 D0 xP JMP LD02D :\ D4B9 4C 2D D0 L-P LDX #&07 :\ D4BC A2 07 ". JSR LD366 :\ D4BE 20 66 D3 fS JSR LD1AC :\ D4C1 20 AC D1 ,Q .LD4C4 STA &30,X :\ D4C4 95 30 .0 JSR LD366 :\ D4C6 20 66 D3 fS JSR LD073 :\ D4C9 20 73 D0 sP CMP #&3E :\ D4CC C9 3E I> BEQ LD4DC :\ D4CE F0 0C p. DEX :\ D4D0 CA J BMI LD4D9 :\ D4D1 30 06 0. JSR LD1E8 :\ D4D3 20 E8 D1 hQ JMP LD4C4 :\ D4D6 4C C4 D4 LDT .LD4D9 JMP LD216 :\ D4D9 4C 16 D2 L.R .LD4DC STX &38 :\ D4DC 86 38 .8 JSR LD22A :\ D4DE 20 2A D2 *R JSR OSNEWL :\ D4E1 20 ED FF m. .LD4E4 LDX #&07 :\ D4E4 A2 07 ". LDY #&00 :\ D4E6 A0 00 . .LD4E8 LDA (&3C),Y :\ D4E8 B1 3C 1< CMP &30,X :\ D4EA D5 30 U0 BEQ LD4F3 :\ D4EC F0 05 p. JSR LD244 :\ D4EE 20 44 D2 DR BCC LD4E4 :\ D4F1 90 F1 .q .LD4F3 CPX &38 :\ D4F3 E4 38 d8 BEQ LD4FB :\ D4F5 F0 04 p. .LD4F7 INY :\ D4F7 C8 H DEX :\ D4F8 CA J BPL LD4E8 :\ D4F9 10 ED .m .LD4FB LDA &3D :\ D4FB A5 3D %= JSR LD1B5 :\ D4FD 20 B5 D1 5Q LDA &3C :\ D500 A5 3C %< JSR LD1B5 :\ D502 20 B5 D1 5Q JSR LD366 :\ D505 20 66 D3 fS JMP LD4F7 :\ D508 4C F7 D4 LwT LDX #&08 :\ D50B A2 08 ". JSR LD366 :\ D50D 20 66 D3 fS .LD510 JSR LD073 :\ D510 20 73 D0 sP CMP #&3E :\ D513 C9 3E I> BEQ LD4DC :\ D515 F0 C5 pE DEX :\ D517 CA J BMI LD4D9 :\ D518 30 BF 0? STA &30,X :\ D51A 95 30 .0 BPL LD510 :\ D51C 10 F2 .r JSR LD256 :\ D51E 20 56 D2 VR .LD521 LDA (&3C),Y :\ D521 B1 3C 1< STA (&3A),Y :\ D523 91 3A .: JSR LD244 :\ D525 20 44 D2 DR INC &3A :\ D528 E6 3A f: BNE LD521 :\ D52A D0 F5 Pu INC &3B :\ D52C E6 3B f; BCC LD521 :\ D52E 90 F1 .q JSR LD22A :\ D530 20 2A D2 *R LDA #&3D :\ D533 A9 3D )= JSR OSWRCH :\ D535 20 F4 FF t. JSR LD1AC :\ D538 20 AC D1 ,Q .LD53B LDA &17 :\ D53B A5 17 %. STA (&3C),Y :\ D53D 91 3C .< JSR LD244 :\ D53F 20 44 D2 DR BCC LD53B :\ D542 90 F7 .w JSR LD256 :\ D544 20 56 D2 VR LDA &3C :\ D547 A5 3C %< STA &35 :\ D549 85 35 .5 LDA &3D :\ D54B A5 3D %= STA &36 :\ D54D 85 36 .6 LDA &3A :\ D54F A5 3A %: STA &17 :\ D551 85 17 .. LDA &3B :\ D553 A5 3B %; STA &39 :\ D555 85 39 .9 .LD557 SEC :\ D557 38 8 LDA &35 :\ D558 A5 35 %5 SBC &3E :\ D55A E5 3E e> LDA &36 :\ D55C A5 36 %6 SBC &3F :\ D55E E5 3F e? BCC LD563 :\ D560 90 01 .. RTS :\ D562 60 ` .LD563 LDX #&00 :\ D563 A2 00 ". STX &38 :\ D565 86 38 .8 JSR LD0BC :\ D567 20 BC D0

SBC (&35),Y :\ D579 F1 35 q5 INY :\ D57B C8 H LDA &3F :\ D57C A5 3F %? SBC (&35),Y :\ D57E F1 35 q5 BCC LD5A1 :\ D580 90 1F .. DEY :\ D582 88 . LDA (&35),Y :\ D583 B1 35 15 SBC &3C :\ D585 E5 3C e< TAX :\ D587 AA * INY :\ D588 C8 H LDA (&35),Y :\ D589 B1 35 15 SBC &3D :\ D58B E5 3D e= BCC LD5A1 :\ D58D 90 12 .. PHA :\ D58F 48 H TXA :\ D590 8A . DEY :\ D591 88 . CLC :\ D592 18 . ADC &17 :\ D593 65 17 e. JSR LD5A7 :\ D595 20 A7 D5 'U PLA :\ D598 68 h ADC &39 :\ D599 65 39 e9 JSR LD5A7 :\ D59B 20 A7 D5 'U JMP LD557 :\ D59E 4C 57 D5 LWU .LD5A1 LDX #&01 :\ D5A1 A2 01 ". BPL LD56C :\ D5A3 10 C7 .G .LD5A5 LDA (&35),Y :\ D5A5 B1 35 15 .LD5A7 STA (&3A),Y :\ D5A7 91 3A .: INC &35 :\ D5A9 E6 35 f5 BNE LD5AF :\ D5AB D0 02 P. INC &36 :\ D5AD E6 36 f6 .LD5AF INC &3A :\ D5AF E6 3A f: BNE LD5B5 :\ D5B1 D0 02 P. INC &3B :\ D5B3 E6 3B f; .LD5B5 RTS :\ D5B5 60 ` LDA &39 :\ D5B6 A5 39 %9 JSR LD1B5 :\ D5B8 20 B5 D1 5Q LDA &38 :\ D5BB A5 38 %8 JMP LD1B5 :\ D5BD 4C B5 D1 L5Q JSR LD22A :\ D5C0 20 2A D2 *R LDX #&03 :\ D5C3 A2 03 ". .LD5C5 STY &38,X :\ D5C5 94 38 .8 DEX :\ D5C7 CA J BPL LD5C5 :\ D5C8 10 FB .{ LDX #&10 :\ D5CA A2 10 ". JSR LD5DC :\ D5CC 20 DC D5 \U LDA #&3D :\ D5CF A9 3D )= JSR OSWRCH :\ D5D1 20 F4 FF t. TYA :\ D5D4 98 . JSR LD1B5 :\ D5D5 20 B5 D1 5Q TXA :\ D5D8 8A . JMP LD1B5 :\ D5D9 4C B5 D1 L5Q .LD5DC JSR LD073 :\ D5DC 20 73 D0 sP CMP #&2F :\ D5DF C9 2F I/ BEQ LD5FD :\ D5E1 F0 1A p. CMP #&2A :\ D5E3 C9 2A I* BEQ LD615 :\ D5E5 F0 2E p. CMP #&2D :\ D5E7 C9 2D I- BEQ LD638 :\ D5E9 F0 4D pM CMP #&2B :\ D5EB C9 2B I+ BEQ LD644 :\ D5ED F0 55 pU JMP LD216 :\ D5EF 4C 16 D2 L.R .LD5F2 ROL &3C :\ D5F2 26 3C &< ROL &3D :\ D5F4 26 3D &= DEX :\ D5F6 CA J BMI LD610 :\ D5F7 30 17 0. ROL &38 :\ D5F9 26 38 &8 ROL &39 :\ D5FB 26 39 &9 .LD5FD SEC :\ D5FD 38 8 LDA &38 :\ D5FE A5 38 %8 SBC &3E :\ D600 E5 3E e> TAY :\ D602 A8 ( LDA &39 :\ D603 A5 39 %9 SBC &3F :\ D605 E5 3F e? BCC LD5F2 :\ D607 90 E9 .i STA &39 :\ D609 85 39 .9 TYA :\ D60B 98 . STA &38 :\ D60C 85 38 .8 BCS LD5F2 :\ D60E B0 E2 0b .LD610 LDY &3D :\ D610 A4 3D $= LDX &3C :\ D612 A6 3C &< RTS :\ D614 60 ` .LD615 LSR &3F :\ D615 46 3F F? ROR &3E :\ D617 66 3E f> BCC LD628 :\ D619 90 0D .. CLC :\ D61B 18 . LDA &3C :\ D61C A5 3C %< ADC &38 :\ D61E 65 38 e8 STA &38 :\ D620 85 38 .8 LDA &3D :\ D622 A5 3D %= ADC &39 :\ D624 65 39 e9 STA &39 :\ D626 85 39 .9 .LD628 ROR &39 :\ D628 66 39 f9 ROR &38 :\ D62A 66 38 f8 ROR &3B :\ D62C 66 3B f; ROR &3A :\ D62E 66 3A f: DEX :\ D630 CA J .LD631 BNE LD615 :\ D631 D0 E2 Pb LDY &3B :\ D633 A4 3B $; LDX &3A :\ D635 A6 3A &: RTS :\ D637 60 ` .LD638 SEC :\ D638 38 8 LDA &3C :\ D639 A5 3C %< SBC &3E :\ D63B E5 3E e> TAX :\ D63D AA * LDA &3D :\ D63E A5 3D %= SBC &3F :\ D640 E5 3F e? TAY :\ D642 A8 ( RTS :\ D643 60 ` .LD644 CLC :\ D644 18 . LDA &3C :\ D645 A5 3C %< ADC &3E :\ D647 65 3E e> TAX :\ D649 AA * LDA &3D :\ D64A A5 3D %= ADC &3F :\ D64C 65 3F e? TAY :\ D64E A8 ( RTS :\ D64F 60 ` JMP LD08E :\ D650 4C 8E D0 L.P JSR LD22A :\ D653 20 2A D2 *R .LD656 JSR OSNEWL :\ D656 20 ED FF m. LDA &3D :\ D659 A5 3D %= JSR LD1B5 :\ D65B 20 B5 D1 5Q LDA &3C :\ D65E A5 3C %< JSR LD1B5 :\ D660 20 B5 D1 5Q JSR LD366 :\ D663 20 66 D3 fS LDX #&20 :\ D666 A2 20 " .LD668 LDY #&00 :\ D668 A0 00 . LDA (&3C),Y :\ D66A B1 3C 1< JSR LD45D :\ D66C 20 5D D4 ]T DEX :\ D66F CA J BNE LD668 :\ D670 D0 F6 Pv BEQ LD656 :\ D672 F0 E2 pb RTS :\ D674 60 ` ORA #&0E :\ D675 09 0E .. .LD677 RTI :\ D677 40 @ EQUB &02 :\ D678 02 . EOR &03 :\ D679 45 03 E. BNE LD685 :\ D67B D0 08 P. RTI :\ D67D 40 @ ORA #&30 :\ D67E 09 30 .0 EQUB &22 :\ D680 22 " EOR &33 :\ D681 45 33 E3 BNE LD68D :\ D683 D0 08 P. .LD685 RTI :\ D685 40 @ ORA #&40 :\ D686 09 40 .@ EQUB &02 :\ D688 02 . EOR &33 :\ D689 45 33 E3 BNE LD695 :\ D68B D0 08 P. .LD68D RTI :\ D68D 40 @ ORA #&40 :\ D68E 09 40 .@ EQUB &02 :\ D690 02 . EOR &B3 :\ D691 45 B3 E3 BNE LD69D :\ D693 D0 08 P. .LD695 RTI :\ D695 40 @ ORA #&00 :\ D696 09 00 .. EQUB &22 :\ D698 22 " EQUB &44 :\ D699 44 D EQUB &33 :\ D69A 33 3 BNE LD629 :\ D69B D0 8C P. .LD69D EQUB &44 :\ D69D 44 D BRK :\ D69E 00 . ORA (&22),Y :\ D69F 11 22 ." EQUB &44 :\ D6A1 44 D EQUB &33 :\ D6A2 33 3 BNE LD631 :\ D6A3 D0 8C P. EQUB &44 :\ D6A5 44 D TXS :\ D6A6 9A . BPL LD6CB :\ D6A7 10 22 ." EQUB &44 :\ D6A9 44 D EQUB &33 :\ D6AA 33 3 BNE LD6B5 :\ D6AB D0 08 P. RTI :\ D6AD 40 @ ORA #&10 :\ D6AE 09 10 .. EQUB &22 :\ D6B0 22 " EQUB &44 :\ D6B1 44 D EQUB &33 :\ D6B2 33 3 BNE LD6BD :\ D6B3 D0 08 P. .LD6B5 RTI :\ D6B5 40 @ ORA #&62 :\ D6B6 09 62 .b EQUB &13 :\ D6B8 13 . SEI :\ D6B9 78 x LDA #&00 :\ D6BA A9 00 ). AND (&81,X) :\ D6BC 21 81 !. EQUB &82 :\ D6BE 82 . BRK :\ D6BF 00 . BRK :\ D6C0 00 . EOR &914D,Y :\ D6C1 59 4D 91 YM. STA (&86) :\ D6C4 92 86 .. LSR A :\ D6C6 4A J STA &9D :\ D6C7 85 9D .. LDY &ACA9 :\ D6C9 AC A9 AC ,), EQUB &A3 :\ D6CC A3 # TAY :\ D6CD A8 ( .LD6CE ROL &D9 :\ D6CE 26 D9 &Y BRK :\ D6D0 00 . CLD :\ D6D1 D8 X ROL &26 :\ D6D2 26 26 && BRK :\ D6D4 00 . .LD6D5 TRB &1C8A :\ D6D5 1C 8A 1C ... EQUB &23 :\ D6D8 23 # EOR &1B8B,X :\ D6D9 5D 8B 1B ].. LDA (&9D,X) :\ D6DC A1 9D !. TXA :\ D6DE 8A . ORA &9D23,X :\ D6DF 1D 23 9D .#. EQUB &8B :\ D6E2 8B . ORA &00A1,X :\ D6E3 1D A1 00 .!. AND #&19 :\ D6E6 29 19 ). LDX &A869 :\ D6E8 AE 69 A8 .i( ORA &2423,Y :\ D6EB 19 23 24 .#$ EQUB &53 :\ D6EE 53 S EQUB &1B :\ D6EF 1B . EQUB &23 :\ D6F0 23 # BIT &53 :\ D6F1 24 53 $S ORA &00A1,Y :\ D6F3 19 A1 00 .!. INC A :\ D6F6 1A . EQUB &5B :\ D6F7 5B [ EQUB &5B :\ D6F8 5B [ LDA &69 :\ D6F9 A5 69 %i BIT &24 :\ D6FB 24 24 $$ LDX &A8AE :\ D6FD AE AE A8 ..( LDA &0029 :\ D700 AD 29 00 -). JMP (&1500,X) :\ D703 7C 00 15 |.. STZ &9C6D :\ D706 9C 6D 9C .m. LDA &69 :\ D709 A5 69 %i AND #&53 :\ D70B 29 53 )S STY &13 :\ D70D 84 13 .. BIT &11,X :\ D70F 34 11 4. LDA &69 :\ D711 A5 69 %i EQUB &23 :\ D713 23 # LDY #&D8 :\ D714 A0 D8 X EQUB &62 :\ D716 62 b PHY :\ D717 5A Z PHA :\ D718 48 H ROL &62 :\ D719 26 62 &b STY &88,X :\ D71B 94 88 .. EQUB &54 :\ D71D 54 T EQUB &44 :\ D71E 44 D INY :\ D71F C8 H EQUB &54 :\ D720 54 T PLA :\ D721 68 h EQUB &44 :\ D722 44 D INX :\ D723 E8 h STY &00,X :\ D724 94 00 .. LDY &08,X :\ D726 B4 08 4. STY &74 :\ D728 84 74 .t LDY &28,X :\ D72A B4 28 4( ROR &F474 :\ D72C 6E 74 F4 ntt CPY &724A :\ D72F CC 4A 72 LJr SBC (&A4) :\ D732 F2 A4 r$ TXA :\ D734 8A . BRK :\ D735 00 . TAX :\ D736 AA * LDX #&A2 :\ D737 A2 A2 "" STZ &74,X :\ D739 74 74 tt STZ &72,X :\ D73B 74 72 tr EQUB &44 :\ D73D 44 D PLA :\ D73E 68 h LDA (&32) :\ D73F B2 32 22 LDA (&00) :\ D741 B2 00 2. EQUB &22 :\ D743 22 " BRK :\ D744 00 . EQUB &1B :\ D745 1B . EQUB &1B :\ D746 1B . EQUB &27 :\ D747 27 ' EQUB &27 :\ D748 27 ' ADC (&72) :\ D749 72 72 rr DEY :\ D74B 88 . INY :\ D74C C8 H CPY &CA :\ D74D C4 CA DJ ROL &48 :\ D74F 26 48 &H EQUB &44 :\ D751 44 D EQUB &44 :\ D752 44 D LDX #&C8 :\ D753 A2 C8 "H ROL &7B1A :\ D755 2E 1A 7B ..{ BRA LD770 :\ D758 80 16 .. RTI :\ D75A 40 @ AND &2080 :\ D75B 2D 80 20 -. JMP (&C04C) :\ D75E 6C 4C C0 lL@ BRK :\ D761 00 . PHP :\ D762 08 . EQUB &9B :\ D763 9B . EQUB &44 :\ D764 44 D STZ &80 :\ D765 64 80 d. ASL &40,X :\ D767 16 40 .@ BPL LD7D5 :\ D769 10 6A .j EQUB &6F :\ D76B 6F o .LD76C ROL &9C7E :\ D76C 2E 7E 9C .~. PHA :\ D76F 48 H .LD770 LSR &0D,X :\ D770 56 0D V. EQUB &42 :\ D772 42 B EOR (&4B) :\ D773 52 4B RK AND (&00,X) :\ D775 21 00 !. .LD777 LDX #&80 :\ D777 A2 80 ". LDY #&D7 :\ D779 A0 D7 W JSR LD094 :\ D77B 20 94 D0 .P BRK :\ D77E 00 . BRK :\ D77F 00 . ORA &5245 :\ D780 0D 45 52 .ER EOR (&4F) :\ D783 52 4F RO EOR (&00) :\ D785 52 00 R. .LD787 BPL LD768 :\ D787 10 DF ._ \ Command dispatch table \ ====================== .LD789 EQUW LD261 :\ @ EQUB &CB :\ D78B CB K CMP (&BA) :\ D78C D2 BA R: EQUB &D3 :\ D78E D3 S SBC &1BD3,Y :\ D78F F9 D3 1B yS. EQUB &D4 :\ D792 D4 T EQUB &6B :\ D793 6B k EQUB &D3 :\ D794 D3 S BMI LD76C :\ D795 30 D5 0U CMP &C0D3,X :\ D797 DD D3 C0 ]S@ CMP &27,X :\ D79A D5 27 U' EQUB &D3 :\ D79C D3 S EQUB &53 :\ D79D 53 S DEC &C7,X :\ D79E D6 C7 VG CMP (&E0) :\ D7A0 D2 E0 R` EQUB &D7 :\ D7A2 D7 W ASL &BCD5,X :\ D7A3 1E D5 BC .U< EQUB &D4 :\ D7A6 D4 T LDX &D5,Y :\ D7A7 B6 D5 6U INY :\ D7A9 C8 H CMP (&82) :\ D7AA D2 82 R. EQUB &D4 :\ D7AC D4 T EQUB &44 :\ D7AD 44 D CMP &E0,X :\ D7AE D5 E0 U` EQUB &D7 :\ D7B0 D7 W STX &74D3 :\ D7B1 8E D3 74 .St DEC &DC,X :\ D7B4 D6 DC V\ EQUB &D3 :\ D7B6 D3 S EQUB &0B :\ D7B7 0B . CMP &CA,X :\ D7B8 D5 CA UJ CMP (&C9) :\ D7BA D2 C9 RI CMP (&77) :\ D7BC D2 77 Rw EQUB &D4 :\ D7BE D4 T EQUW LD7D7 :\ *command .LD7C1 CLD :\ D7C1 D8 X .LD7C2 CMP (&8D) :\ D7C2 D2 8D R. .LD7C4 BNE LD74E :\ D7C4 D0 88 P. .LD7C6 BNE &D839 :\ D7C6 D0 71 Pq .LD7C8 EQUB &D7 :\ D7C8 D7 W \ Read a line of text \ =================== .LD7C9 LDX #&00 :\ Zero characters .LD7CB JSR LD073 :\ Wait for keypress STA &0100,X:INX :\ Store in text buffer CMP #&0D:BNE LD7CB :\ Loop until CR RTS \ * - MOS command \ --------------- .LD7D7 JSR LD7C9:JSR OSNEWL :\ Read a line of text JMP OS_CLI :\ Pass to OSCLI to execute and return .LD7E0 RTS .LD7E1 RTS \ Duplicate of readline and MOS command \ ===================================== .LD7E2 LDX #&00 .LD7E4 JSR LD073 STA &0100,X:INX CMP #&0D:BNE LD7E4 RTS .D7F0 JSR LD7E2:JSR OSNEWL JMP OS_CLI .LD7F9 RTS .LD7FA BRK :\ D7FA 00 . EQUB &FF :\ D7FB FF . EQUB &FF :\ D7FC FF . BRK :\ D7FD 00 . BRK :\ D7FE 00 . EQUB &FF :\ D7FF FF . BRK :\ D800 00 . ]NEXT SAVE "*SAVE ";~mcode%;" ";~O%;" ";~exec%;" ";~load%