;Disassembly of PEGASUS 400 1.02 ;Greg Cook, 5 April 2024 ;Source: http://regregex.bbcmicro.net/romsearch.zip ;Path: romsearch/slogger/PEGASUS-400-1.02-1987-Slogger-Ltd ;Banner version: 1.02 ;Code length: &3263 ;Acorn CRC: &2A98 ;PKZIP CRC: &8583E828 ;XFER CRC: &A661AC54 ;Cksum: 167767310 8000 EQUB &00 ;Language entry 8001 EQUB &00 8002 EQUB &00 8003 4C 32 80 JMP P032 ;Service entry 8006 EQUB &82 ;rom type: service only 8007 EQUB &19 ;Copyright offset pointer 8008 EQUB &10 ;Version No. 8009 EQUS "PEGASUS 400" ;title 8014 EQUB &00 ;terminator byte 8015 EQUS "1.02" ;version string 8019 EQUB &00 ;terminator byte 801A EQUS "(C) 1987 Slogger Ltd" ;copyright pointer validated by MOS prior to accepting ROM 802E EQUB &00 ;terminator byte .P02F 802F 6C 1E 02 JMP (&021E) ;issue Filing System Call .P032 8032 C9 0E CMP #&0E 8034 D0 4C BNE P082 8036 A5 F5 LDA &F5 ;Service call &0E = ROMFS get byte 8038 49 0F EOR #&0F 803A C5 F4 CMP &F4 803C D0 41 BNE P07F 803E A0 00 LDY #&00 8040 B1 F6 LDA (&F6),Y 8042 49 FF EOR #&FF 8044 49 A5 EOR #&A5 8046 A8 TAY 8047 EE 00 BF INC &BF00 804A D0 0B BNE P057 804C EE 01 BF INC &BF01 804F D0 06 BNE P057 8051 EE 02 BF INC &BF02 8054 D0 01 BNE P057 8056 60 RTS .P057 8057 E6 F6 INC &F6 8059 D0 19 BNE P074 805B 98 TYA 805C 48 PHA 805D 8A TXA 805E 48 PHA 805F E6 A1 INC &A1 8061 A5 A1 LDA &A1 8063 C9 0A CMP #&0A 8065 90 06 BCC P06D 8067 E6 A0 INC &A0 8069 A9 00 LDA #&00 806B 85 A1 STA &A1 .P06D 806D 20 EF AF JSR RFEF 8070 68 PLA 8071 AA TAX 8072 68 PLA 8073 A8 TAY .P074 8074 A5 F6 LDA &F6 8076 85 A5 STA &A5 8078 A5 F7 LDA &F7 807A 85 A6 STA &A6 807C A9 00 LDA #&00 807E 60 RTS .P07F 807F A9 0E LDA #&0E 8081 60 RTS .P082 8082 C9 0D CMP #&0D 8084 D0 22 BNE P0A8 8086 98 TYA ;Service call &0D = ROMFS initialise 8087 49 0F EOR #&0F 8089 C5 F4 CMP &F4 808B 90 18 BCC P0A5 808D BD A0 02 LDA &02A0,X 8090 29 20 AND #&20 8092 F0 11 BEQ P0A5 8094 A5 A5 LDA &A5 8096 85 F6 STA &F6 8098 A5 A6 LDA &A6 809A 85 F7 STA &F7 809C A5 F4 LDA &F4 809E 49 0F EOR #&0F 80A0 85 F5 STA &F5 80A2 A9 00 LDA #&00 80A4 60 RTS .P0A5 80A5 A9 0D LDA #&0D 80A7 60 RTS .P0A8 80A8 C9 01 CMP #&01 80AA D0 1D BNE P0C9 80AC 20 5B A2 JSR R25B 80AF A9 FD LDA #&FD 80B1 20 1B A6 JSR R61B 80B4 A9 02 LDA #&02 80B6 E0 01 CPX #&01 80B8 F0 08 BEQ P0C2 80BA BD C6 80 LDA &80C6,X 80BD CD FD B8 CMP &B8FD 80C0 90 03 BCC P0C5 .P0C2 80C2 8D FD B8 STA &B8FD .P0C5 80C5 60 RTS 80C6 EQUB &00,&02,&01 .P0C9 80C9 C9 03 CMP #&03 80CB D0 1A BNE P0E7 80CD 84 B3 STY &B3 80CF 20 5B A2 JSR R25B 80D2 A9 7A LDA #&7A 80D4 20 F4 FF JSR &FFF4 80D7 8A TXA 80D8 30 09 BMI P0E3 80DA C9 32 CMP #&32 80DC D0 08 BNE P0E6 80DE A9 78 LDA #&78 80E0 20 F4 FF JSR &FFF4 .P0E3 80E3 4C 16 82 JMP P216 .P0E6 80E6 60 RTS .P0E7 80E7 C9 04 CMP #&04 80E9 D0 47 BNE P132 80EB 20 5B A2 JSR R25B 80EE BA TSX 80EF 86 B8 STX &B8 80F1 98 TYA 80F2 A2 C1 LDX #&C1 80F4 A0 91 LDY #&91 80F6 20 2B 92 JSR Q22B 80F9 B0 4D BCS P148 80FB 86 AF STX &AF 80FD 98 TYA 80FE 48 PHA 80FF AD 1E 02 LDA &021E 8102 C9 2D CMP #&2D 8104 D0 22 BNE P128 8106 AD 1F 02 LDA &021F 8109 C9 FF CMP #&FF 810B D0 1B BNE P128 810D 20 11 A6 JSR R611 8110 86 B0 STX &B0 8112 84 B1 STY &B1 8114 A0 2D LDY #&2D 8116 B1 B0 LDA (&B0),Y 8118 C9 08 CMP #&08 811A D0 0C BNE P128 811C C8 INY 811D B1 B0 LDA (&B0),Y 811F C9 96 CMP #&96 8121 D0 05 BNE P128 .P123 8123 68 PLA 8124 A8 TAY .P125 8125 6C A8 00 JMP (&00A8) .P128 8128 A6 AF LDX &AF 812A 20 AA 00 JSR &00AA 812D 10 F4 BPL P123 812F 4C D0 84 JMP P4D0 .P132 8132 C9 09 CMP #&09 8134 D0 31 BNE P167 8136 20 5B A2 JSR R25B 8139 B1 F2 LDA (&F2),Y 813B C9 0D CMP #&0D 813D D0 0A BNE P149 813F A2 12 LDX #&12 8141 A0 92 LDY #&92 8143 A9 02 LDA #&02 8145 20 27 A0 JSR R027 .P148 8148 60 RTS .P149 8149 20 08 A4 JSR R408 814C F0 FA BEQ P148 814E 98 TYA 814F 48 PHA 8150 A2 12 LDX #&12 8152 A0 92 LDY #&92 8154 20 2B 92 JSR Q22B 8157 B0 03 BCS P15C 8159 20 25 81 JSR P125 .P15C 815C 68 PLA 815D A8 TAY .P15E 815E 20 C5 FF JSR &FFC5 8161 90 FB BCC P15E 8163 4C 49 81 JMP P149 .P166 8166 60 RTS .P167 8167 C9 08 CMP #&08 8169 D0 FB BNE P166 816B 20 84 A2 JSR R284 816E A4 F0 LDY &F0 8170 84 B0 STY &B0 8172 A4 F1 LDY &F1 8174 84 B1 STY &B1 8176 A4 EF LDY &EF 8178 C0 7F CPY #&7F 817A D0 6A BNE P1E6 817C 20 D6 A5 JSR R5D6 817F A0 01 LDY #&01 8181 B1 B0 LDA (&B0),Y 8183 85 A6 STA &A6 8185 C8 INY 8186 B1 B0 LDA (&B0),Y 8188 85 A7 STA &A7 818A A0 00 LDY #&00 818C B1 B0 LDA (&B0),Y 818E 30 03 BMI P193 8190 20 4D A4 JSR R44D .P193 8193 C8 INY 8194 A2 02 LDX #&02 8196 20 4A 8C JSR PC4A 8199 B1 B0 LDA (&B0),Y 819B 48 PHA 819C C8 INY 819D B1 B0 LDA (&B0),Y 819F 29 3F AND #&3F 81A1 85 B2 STA &B2 81A3 20 B4 A3 JSR R3B4 81A6 29 01 AND #&01 81A8 20 E1 94 JSR Q4E1 81AB A0 07 LDY #&07 81AD B1 B0 LDA (&B0),Y 81AF 85 BA STA &BA 81B1 C8 INY 81B2 A2 FD LDX #&FD .P1B4 81B4 E8 INX 81B5 E8 INX 81B6 E8 INX 81B7 BD 42 AC LDA &AC42,X 81BA F0 20 BEQ P1DC 81BC C5 B2 CMP &B2 81BE D0 F4 BNE P1B4 81C0 08 PHP 81C1 58 CLI 81C2 A9 81 LDA #&81 81C4 48 PHA 81C5 A9 D0 LDA #&D0 81C7 48 PHA 81C8 BD 44 AC LDA &AC44,X 81CB 48 PHA 81CC BD 43 AC LDA &AC43,X 81CF 48 PHA 81D0 60 RTS 81D1 AA TAX 81D2 28 PLP 81D3 68 PLA 81D4 18 CLC 81D5 69 07 ADC #&07 81D7 A8 TAY 81D8 8A TXA 81D9 91 B0 STA (&B0),Y 81DB 48 PHA .P1DC 81DC 68 PLA 81DD 20 BA A5 JSR R5BA 81E0 20 16 95 JSR Q516 81E3 A9 00 LDA #&00 81E5 60 RTS .P1E6 81E6 C0 7D CPY #&7D 81E8 90 2B BCC P215 81EA 20 45 A4 JSR R445 81ED 20 88 94 JSR Q488 81F0 C0 7E CPY #&7E 81F2 F0 09 BEQ P1FD 81F4 A0 00 LDY #&00 81F6 AD 04 BA LDA &BA04 81F9 91 B0 STA (&B0),Y 81FB 98 TYA 81FC 60 RTS .P1FD 81FD A9 00 LDA #&00 81FF A8 TAY 8200 91 B0 STA (&B0),Y 8202 C8 INY 8203 AD 07 BA LDA &BA07 8206 91 B0 STA (&B0),Y 8208 C8 INY 8209 AD 06 BA LDA &BA06 820C 29 03 AND #&03 820E 91 B0 STA (&B0),Y 8210 C8 INY 8211 A9 00 LDA #&00 8213 91 B0 STA (&B0),Y .P215 8215 60 RTS .P216 8216 A5 B3 LDA &B3 8218 48 PHA 8219 A2 FF LDX #&FF 821B 8E F0 B8 STX &B8F0 821E 38 SEC 821F 20 81 A6 JSR R681 8222 20 45 84 JSR P445 8225 20 37 82 JSR P237 8228 68 PLA 8229 D0 03 BNE P22E 822B 4C D5 82 JMP P2D5 .P22E 822E A9 00 LDA #&00 8230 60 RTS 8231 48 PHA 8232 20 37 82 JSR P237 8235 68 PLA 8236 60 RTS .P237 8237 A9 00 LDA #&00 8239 BA TSX 823A 9D 08 01 STA &0108,X 823D A9 06 LDA #&06 823F 20 2F 80 JSR P02F 8242 A2 00 LDX #&00 .P244 8244 BD 22 A6 LDA &A622,X 8247 9D 12 02 STA &0212,X 824A E8 INX 824B E0 0E CPX #&0E 824D D0 F5 BNE P244 824F 20 11 A6 JSR R611 8252 84 B1 STY &B1 8254 86 B0 STX &B0 8256 A2 00 LDX #&00 8258 A0 1B LDY #&1B .P25A 825A BD 30 A6 LDA &A630,X 825D 91 B0 STA (&B0),Y 825F E8 INX 8260 C8 INY 8261 BD 30 A6 LDA &A630,X 8264 91 B0 STA (&B0),Y 8266 E8 INX 8267 C8 INY 8268 A5 F4 LDA &F4 826A 91 B0 STA (&B0),Y 826C C8 INY 826D E0 0E CPX #&0E 826F D0 E9 BNE P25A 8271 A2 0F LDX #&0F 8273 20 15 A6 JSR R615 8276 AD FD B8 LDA &B8FD 8279 F0 23 BEQ P29E 827B C9 02 CMP #&02 827D D0 0A BNE P289 827F A9 80 LDA #&80 8281 8D FE B8 STA &B8FE 8284 A9 00 LDA #&00 8286 8D F3 B8 STA &B8F3 .P289 8289 A9 00 LDA #&00 828B 8D DE B8 STA &B8DE 828E 8D E0 B8 STA &B8E0 8291 A9 24 LDA #&24 8293 8D DD B8 STA &B8DD 8296 8D DF B8 STA &B8DF 8299 A9 00 LDA #&00 829B 8D FD B8 STA &B8FD .P29E 829E A9 FF LDA #&FF 82A0 8D CA B8 STA &B8CA 82A3 20 0D A6 JSR R60D 82A6 8A TXA 82A7 49 FF EOR #&FF 82A9 8D E9 B8 STA &B8E9 82AC A0 00 LDY #&00 82AE 8C D6 B8 STY &B8D6 82B1 8C CD B8 STY &B8CD 82B4 88 DEY 82B5 8C E5 B8 STY &B8E5 82B8 8C E4 B8 STY &B8E4 82BB 8C F0 B8 STY &B8F0 82BE 8C CA B8 STY &B8CA 82C1 AD FE B8 LDA &B8FE 82C4 30 07 BMI P2CD 82C6 20 19 A6 JSR R619 82C9 8A TXA 82CA 20 AC A3 JSR R3AC .P2CD 82CD 29 03 AND #&03 82CF 8D D4 B8 STA &B8D4 82D2 4C A4 AC JMP RCA4 .P2D5 82D5 20 45 A4 JSR R445 82D8 20 8B 94 JSR Q48B 82DB A0 00 LDY #&00 82DD A2 00 LDX #&00 82DF AD 06 BA LDA &BA06 82E2 20 B4 A3 JSR R3B4 82E5 F0 25 BEQ P30C 82E7 48 PHA 82E8 A2 30 LDX #&30 82EA A0 83 LDY #&83 82EC 20 AD 92 JSR Q2AD 82EF 20 64 8C JSR PC64 82F2 20 E8 8D JSR PDE8 82F5 68 PLA 82F6 B0 15 BCS P30D 82F8 20 EF A2 JSR R2EF 82FB EQUS "File not found" 8309 EQUB &0D 830A EQUB &0D 830B EA NOP .P30C 830C 60 RTS .P30D 830D C9 02 CMP #&02 830F 90 0E BCC P31F 8311 F0 06 BEQ P319 8313 A2 2E LDX #&2E 8315 A0 83 LDY #&83 8317 D0 0A BNE P323 .P319 8319 A2 30 LDX #&30 831B A0 83 LDY #&83 831D D0 04 BNE P323 .P31F 831F A2 26 LDX #&26 8321 A0 83 LDY #&83 .P323 8323 4C F7 FF JMP &FFF7 8326 EQUS "L.!BOOT" 832D EQUB &0D 832E EQUS "E.!BOOT" 8335 EQUB &0D 8336 20 30 A2 JSR R230 8339 A9 00 LDA #&00 833B F0 05 BEQ P342 833D 20 30 A2 JSR R230 8340 A9 FF LDA #&FF .P342 8342 85 AB STA &AB 8344 A9 40 LDA #&40 8346 20 CE FF JSR &FFCE 8349 A8 TAY 834A F0 30 BEQ P37C 834C A9 0D LDA #&0D 834E D0 1B BNE P36B .P350 8350 20 D7 FF JSR &FFD7 8353 B0 1E BCS P373 8355 C9 0A CMP #&0A 8357 F0 F7 BEQ P350 8359 28 PLP 835A D0 08 BNE P364 835C 48 PHA 835D 20 EB A1 JSR R1EB 8360 20 27 A2 JSR R227 8363 68 PLA .P364 8364 20 E3 FF JSR &FFE3 8367 24 FF BIT &FF 8369 30 09 BMI P374 .P36B 836B 25 AB AND &AB 836D C9 0D CMP #&0D 836F 08 PHP 8370 4C 50 83 JMP P350 .P373 8373 28 PLP .P374 8374 20 45 84 JSR P445 .P377 8377 A9 00 LDA #&00 8379 4C CE FF JMP &FFCE .P37C 837C 4C B2 8D JMP PDB2 837F 20 30 A2 JSR R230 8382 A9 40 LDA #&40 8384 20 CE FF JSR &FFCE 8387 A8 TAY 8388 F0 F2 BEQ P37C .P38A 838A 24 FF BIT &FF 838C 30 E9 BMI P377 838E A5 A9 LDA &A9 8390 20 81 A3 JSR R381 8393 A5 A8 LDA &A8 8395 20 81 A3 JSR R381 8398 20 27 A2 JSR R227 839B BA TSX 839C 86 AD STX &AD 839E A2 08 LDX #&08 .P3A0 83A0 20 D7 FF JSR &FFD7 83A3 B0 0A BCS P3AF 83A5 48 PHA 83A6 20 81 A3 JSR R381 83A9 20 27 A2 JSR R227 83AC CA DEX 83AD D0 F1 BNE P3A0 .P3AF 83AF CA DEX 83B0 30 0D BMI P3BF 83B2 08 PHP 83B3 20 EF A2 JSR R2EF 83B6 EQUS "** " 83B9 A9 00 LDA #&00 83BB 28 PLP 83BC 48 PHA 83BD 10 F0 BPL P3AF .P3BF 83BF 08 PHP 83C0 BA TSX 83C1 A9 07 LDA #&07 83C3 85 AC STA &AC .P3C5 83C5 BD 09 01 LDA &0109,X 83C8 C9 7F CMP #&7F 83CA B0 04 BCS P3D0 83CC C9 20 CMP #&20 83CE B0 02 BCS P3D2 .P3D0 83D0 A9 2E LDA #&2E .P3D2 83D2 20 E3 FF JSR &FFE3 83D5 CA DEX 83D6 C6 AC DEC &AC 83D8 10 EB BPL P3C5 83DA 20 45 84 JSR P445 83DD A9 08 LDA #&08 83DF 18 CLC 83E0 65 A8 ADC &A8 83E2 85 A8 STA &A8 83E4 90 02 BCC P3E8 83E6 E6 A9 INC &A9 .P3E8 83E8 28 PLP 83E9 A6 AD LDX &AD 83EB 9A TXS 83EC 90 9C BCC P38A 83EE B0 87 BCS P377 83F0 20 30 A2 JSR R230 83F3 A9 80 LDA #&80 83F5 20 CE FF JSR &FFCE 83F8 85 AB STA &AB 83FA 20 FC 98 JSR Q8FC 83FD AD D8 B8 LDA &B8D8 8400 20 B3 A3 JSR R3B3 8403 69 B8 ADC #&B8 8405 85 AD STA &AD .P407 8407 20 EB A1 JSR R1EB 840A 20 27 A2 JSR R227 840D A2 AC LDX #&AC 840F A0 FF LDY #&FF 8411 84 AE STY &AE 8413 84 B0 STY &B0 8415 C8 INY 8416 84 AC STY &AC 8418 84 AF STY &AF 841A 98 TYA 841B 20 F1 FF JSR &FFF1 841E 08 PHP 841F 84 AA STY &AA 8421 A4 AB LDY &AB 8423 A2 00 LDX #&00 8425 F0 07 BEQ P42E .P427 8427 A1 AC LDA (&AC,X) 8429 20 D4 FF JSR &FFD4 842C E6 AC INC &AC .P42E 842E A5 AC LDA &AC 8430 C5 AA CMP &AA 8432 D0 F3 BNE P427 8434 28 PLP 8435 B0 08 BCS P43F 8437 A9 0D LDA #&0D 8439 20 D4 FF JSR &FFD4 843C 4C 07 84 JMP P407 .P43F 843F 20 A5 A3 JSR R3A5 8442 20 77 83 JSR P377 .P445 8445 48 PHA 8446 A9 0D LDA #&0D 8448 20 5B A3 JSR R35B 844B 68 PLA 844C 60 RTS .P44D 844D 20 5B A2 JSR R25B 8450 AE E6 B8 LDX &B8E6 8453 A9 00 LDA #&00 8455 F0 08 BEQ P45F .P457 8457 20 5B A2 JSR R25B 845A AE E7 B8 LDX &B8E7 845D A9 80 LDA #&80 .P45F 845F 48 PHA 8460 86 CF STX &CF 8462 20 8A AC JSR RC8A 8465 68 PLA 8466 24 A9 BIT &A9 8468 30 01 BMI P46B .P46A 846A 60 RTS .P46B 846B C5 AA CMP &AA 846D F0 FB BEQ P46A 846F 85 AA STA &AA 8471 20 EF A2 JSR R2EF 8474 EQUS "Insert " 847B EA NOP 847C 24 AA BIT &AA 847E 30 0B BMI P48B 8480 20 EF A2 JSR R2EF 8483 EQUS "source" 8489 90 0F BCC P49A .P48B 848B 20 EF A2 JSR R2EF 848E EQUS "destination" 8499 EA NOP .P49A 849A 20 EF A2 JSR R2EF 849D EQUS " disk and hit a key" 84B0 EA NOP 84B1 20 C8 84 JSR P4C8 84B4 4C 45 84 JMP P445 .P4B7 84B7 20 C8 84 JSR P4C8 84BA 29 5F AND #&5F 84BC C9 59 CMP #&59 84BE 08 PHP 84BF F0 02 BEQ P4C3 84C1 A9 4E LDA #&4E .P4C3 84C3 20 5B A3 JSR R35B 84C6 28 PLP 84C7 60 RTS .P4C8 84C8 20 EB A5 JSR R5EB 84CB 20 E0 FF JSR &FFE0 84CE 90 03 BCC P4D3 .P4D0 84D0 A6 B8 LDX &B8 84D2 9A TXS .P4D3 84D3 60 RTS .P4D4 84D4 A0 00 LDY #&00 84D6 F0 02 BEQ P4DA .P4D8 84D8 A0 01 LDY #&01 .P4DA 84DA B9 F4 B8 LDA &B8F4,Y 84DD 8D F3 B8 STA &B8F3 84E0 60 RTS .P4E1 84E1 20 5B A2 JSR R25B 84E4 A0 00 LDY #&00 84E6 F0 05 BEQ P4ED .P4E8 84E8 20 5B A2 JSR R25B 84EB A0 01 LDY #&01 .P4ED 84ED AD F3 B8 LDA &B8F3 84F0 99 F4 B8 STA &B8F4,Y 84F3 60 RTS 84F4 20 9A 8D JSR PD9A 84F7 20 BD 92 JSR Q2BD 84FA A2 00 LDX #&00 84FC 20 08 A4 JSR R408 84FF D0 1F BNE P520 .P501 8501 86 AA STX &AA 8503 20 AD 8D JSR PDAD .P506 8506 20 B1 9D JSR QDB1 8509 B9 0F B9 LDA &B90F,Y 850C 29 7F AND #&7F 850E 05 AA ORA &AA 8510 99 0F B9 STA &B90F,Y 8513 20 40 8E JSR PE40 8516 20 EF 8D JSR PDEF 8519 B0 EB BCS P506 851B 4C 6B 94 JMP Q46B .P51E 851E A2 80 LDX #&80 .P520 8520 20 C5 FF JSR &FFC5 8523 B0 DC BCS P501 8525 C9 4C CMP #&4C 8527 F0 F5 BEQ P51E 8529 20 AC A2 JSR R2AC 852C EQUB &CF 852D EQUS "attribute" 8536 EQUB &00 8537 20 70 A1 JSR R170 853A 20 9B A1 JSR R19B 853D A9 00 LDA #&00 853F 85 A8 STA &A8 8541 85 C8 STA &C8 8543 85 C9 STA &C9 8545 85 CA STA &CA 8547 85 CB STA &CB 8549 20 C5 85 JSR P5C5 854C 20 E1 84 JSR P4E1 854F 20 B1 85 JSR P5B1 8552 8D EA B8 STA &B8EA 8555 86 C6 STX &C6 8557 84 C7 STY &C7 8559 20 BF 85 JSR P5BF 855C 20 E8 84 JSR P4E8 855F 20 B1 85 JSR P5B1 8562 8A TXA 8563 48 PHA 8564 98 TYA 8565 48 PHA 8566 C5 C7 CMP &C7 8568 90 07 BCC P571 856A D0 29 BNE P595 856C 8A TXA 856D C5 C6 CMP &C6 856F B0 24 BCS P595 .P571 8571 A9 D5 LDA #&D5 8573 20 47 A3 JSR R347 8576 AD E6 B8 LDA &B8E6 8579 20 90 90 JSR Q090 857C 20 EF A2 JSR R2EF 857F EQUS " larger than " 858C AD E7 B8 LDA &B8E7 858F 20 90 90 JSR Q090 8592 4C 14 A3 JMP R314 .P595 8595 20 D0 8B JSR PBD0 8598 20 57 84 JSR P457 859B 20 8B 94 JSR Q48B 859E 68 PLA 859F 29 0F AND #&0F 85A1 0D EA B8 ORA &B8EA 85A4 8D 06 BA STA &BA06 85A7 68 PLA 85A8 8D 07 BA STA &BA07 85AB 20 6B 94 JSR Q46B 85AE 4C 35 8B JMP PB35 .P5B1 85B1 AE 07 BA LDX &BA07 85B4 AD 06 BA LDA &BA06 85B7 48 PHA 85B8 29 03 AND #&03 85BA A8 TAY 85BB 68 PLA 85BC 29 F0 AND #&F0 85BE 60 RTS .P5BF 85BF 20 57 84 JSR P457 85C2 4C 8B 94 JMP Q48B .P5C5 85C5 20 4D 84 JSR P44D 85C8 4C 8B 94 JMP Q48B 85CB 20 32 A4 JSR R432 85CE 8D E6 B8 STA &B8E6 85D1 8D E7 B8 STA &B8E7 85D4 20 EF A2 JSR R2EF 85D7 EQUS "Compacting" 85E1 EA NOP 85E2 20 90 90 JSR Q090 85E5 20 45 84 JSR P445 85E8 20 AE 97 JSR Q7AE 85EB 20 00 A0 JSR R000 85EE 20 88 94 JSR Q488 85F1 20 E1 84 JSR P4E1 85F4 20 E8 84 JSR P4E8 85F7 AC 05 BA LDY &BA05 85FA 84 CC STY &CC 85FC 20 E3 9F JSR QFE3 .P5FF 85FF A4 CC LDY &CC 8601 20 C8 A3 JSR R3C8 8604 C0 F8 CPY #&F8 8606 F0 54 BEQ P65C 8608 84 CC STY &CC 860A 20 40 8E JSR PE40 860D A4 CC LDY &CC 860F 20 29 A1 JSR R129 8612 F0 40 BEQ P654 8614 A9 00 LDA #&00 8616 85 BE STA &BE 8618 85 C2 STA &C2 861A 20 35 A1 JSR R135 861D B9 0F BA LDA &BA0F,Y 8620 85 C8 STA &C8 8622 B9 0E BA LDA &BA0E,Y 8625 29 03 AND #&03 8627 85 C9 STA &C9 8629 C5 CB CMP &CB 862B D0 0C BNE P639 862D A5 C8 LDA &C8 862F C5 CA CMP &CA 8631 D0 06 BNE P639 8633 20 4F A1 JSR R14F 8636 4C 54 86 JMP P654 .P639 8639 A5 CA LDA &CA 863B 99 0F BA STA &BA0F,Y 863E B9 0E BA LDA &BA0E,Y 8641 29 FC AND #&FC 8643 05 CB ORA &CB 8645 99 0E BA STA &BA0E,Y 8648 A9 00 LDA #&00 864A 85 A8 STA &A8 864C 85 A9 STA &A9 864E 20 D0 8B JSR PBD0 8651 20 6B 94 JSR Q46B .P654 8654 A4 CC LDY &CC 8656 20 45 8E JSR PE45 8659 4C FF 85 JMP P5FF .P65C 865C 20 EF A2 JSR R2EF 865F EQUS "Disk compacted " 866E EA NOP 866F 38 SEC 8670 AD 07 BA LDA &BA07 8673 E5 CA SBC &CA 8675 48 PHA 8676 AD 06 BA LDA &BA06 8679 29 03 AND #&03 867B E5 CB SBC &CB 867D 20 89 A3 JSR R389 8680 68 PLA 8681 20 81 A3 JSR R381 8684 20 EF A2 JSR R2EF 8687 EQUS " free sectors" 8694 EQUB &0D 8695 EA NOP 8696 4C 35 8B JMP PB35 8699 20 9A 8D JSR PD9A 869C 20 9B A1 JSR R19B 869F 20 43 A0 JSR R043 86A2 20 64 8C JSR PC64 86A5 20 4D 84 JSR P44D 86A8 20 AD 8D JSR PDAD 86AB 20 E1 84 JSR P4E1 .P6AE 86AE 98 TYA 86AF 48 PHA 86B0 20 45 8E JSR PE45 86B3 A2 00 LDX #&00 .P6B5 86B5 B5 C7 LDA &C7,X 86B7 48 PHA 86B8 E8 INX 86B9 E0 08 CPX #&08 86BB D0 F8 BNE P6B5 86BD A2 00 LDX #&00 .P6BF 86BF B9 08 BA LDA &BA08,Y 86C2 95 BD STA &BD,X 86C4 48 PHA 86C5 C8 INY 86C6 E8 INX 86C7 E0 08 CPX #&08 86C9 D0 F4 BNE P6BF 86CB 20 C8 A3 JSR R3C8 86CE 48 PHA 86CF A2 00 LDX #&00 .P6D1 86D1 B9 08 B9 LDA &B908,Y 86D4 95 C7 STA &C7,X 86D6 48 PHA 86D7 C8 INY 86D8 E8 INX 86D9 E0 08 CPX #&08 86DB D0 F4 BNE P6D1 86DD A5 C1 LDA &C1 86DF 18 CLC 86E0 69 FF ADC #&FF 86E2 A5 C2 LDA &C2 86E4 69 00 ADC #&00 86E6 85 C6 STA &C6 86E8 08 PHP 86E9 A5 C3 LDA &C3 86EB 20 AC A3 JSR R3AC 86EE 28 PLP 86EF 69 00 ADC #&00 86F1 85 C7 STA &C7 86F3 A5 C4 LDA &C4 86F5 85 C8 STA &C8 86F7 A5 C3 LDA &C3 86F9 29 03 AND #&03 86FB 85 C9 STA &C9 86FD A9 FF LDA #&FF 86FF 85 A8 STA &A8 8701 20 D0 8B JSR PBD0 8704 20 4D 84 JSR P44D 8707 20 88 94 JSR Q488 870A A2 11 LDX #&11 .P70C 870C 68 PLA 870D CA DEX 870E D0 FC BNE P70C 8710 A2 07 LDX #&07 .P712 8712 68 PLA 8713 95 C7 STA &C7,X 8715 CA DEX 8716 10 FA BPL P712 8718 68 PLA 8719 8D E2 B8 STA &B8E2 871C 20 EF 8D JSR PDEF 871F B0 8D BCS P6AE 8721 4C 35 8B JMP PB35 8724 20 9E 8D JSR PD9E 8727 20 B7 92 JSR Q2B7 872A 20 40 8E JSR PE40 872D 20 23 8E JSR PE23 8730 4C 6B 94 JMP Q46B 8733 20 70 A1 JSR R170 8736 20 B4 92 JSR Q2B4 .P739 8739 20 25 8D JSR PD25 873C 20 45 84 JSR P445 873F 20 EF 8D JSR PDEF 8742 B0 F5 BCS P739 8744 20 EF A2 JSR R2EF 8747 EQUB &0D 8748 EQUS "Delete (Y/N) ? " 8757 EA NOP 8758 20 B7 84 JSR P4B7 875B F0 03 BEQ P760 875D 4C 45 84 JMP P445 .P760 8760 20 06 8D JSR PD06 8763 20 E8 8D JSR PDE8 .P766 8766 B9 0F B9 LDA &B90F,Y 8769 29 7F AND #&7F 876B 99 0F B9 STA &B90F,Y 876E 20 23 8E JSR PE23 8771 20 D2 92 JSR Q2D2 8774 20 EF 8D JSR PDEF 8777 B0 ED BCS P766 8779 20 6B 94 JSR Q46B 877C 20 EF A2 JSR R2EF 877F EQUB &0D 8780 EQUS "Deleted" 8787 EQUB &0D 8788 EA NOP 8789 60 RTS 878A A2 00 LDX #&00 878C 4C B2 87 JMP P7B2 878F 20 32 A4 JSR R432 8792 A5 CF LDA &CF 8794 8D DE B8 STA &B8DE 8797 60 RTS 8798 A9 01 LDA #&01 879A 8D E5 B8 STA &B8E5 879D 60 RTS 879E 20 9A 8D JSR PD9A 87A1 20 43 A0 JSR R043 87A4 20 A4 8D JSR PDA4 .P7A7 87A7 20 45 8E JSR PE45 87AA 20 EF 8D JSR PDEF 87AD B0 F8 BCS P7A7 87AF 60 RTS 87B0 A2 02 LDX #&02 .P7B2 87B2 BD DD B8 LDA &B8DD,X 87B5 85 CE STA &CE 87B7 BD DE B8 LDA &B8DE,X 87BA 85 CF STA &CF 87BC 8A TXA 87BD 48 PHA 87BE 20 08 A4 JSR R408 87C1 F0 03 BEQ P7C6 87C3 20 62 A4 JSR R462 .P7C6 87C6 68 PLA 87C7 AA TAX 87C8 A5 CE LDA &CE 87CA 9D DD B8 STA &B8DD,X 87CD A5 CF LDA &CF 87CF 9D DE B8 STA &B8DE,X 87D2 60 RTS 87D3 20 32 A4 JSR R432 87D6 20 88 94 JSR Q488 87D9 A9 00 LDA #&00 87DB 85 C4 STA &C4 87DD 85 C6 STA &C6 87DF 85 C7 STA &C7 87E1 A9 02 LDA #&02 87E3 85 C5 STA &C5 87E5 AC 05 BA LDY &BA05 .P7E8 87E8 38 SEC 87E9 B9 07 BA LDA &BA07,Y 87EC E5 C5 SBC &C5 87EE 85 B0 STA &B0 87F0 B9 06 BA LDA &BA06,Y 87F3 29 03 AND #&03 87F5 E5 C4 SBC &C4 87F7 AA TAX 87F8 05 B0 ORA &B0 87FA F0 2F BEQ P82B 87FC 18 CLC 87FD A5 B0 LDA &B0 87FF 65 C6 ADC &C6 8801 85 C6 STA &C6 8803 8A TXA 8804 65 C7 ADC &C7 8806 85 C7 STA &C7 8808 20 EF A2 JSR R2EF 880B EQUS " Free space " 8818 EA NOP 8819 20 DE 8D JSR PDDE 881C 20 27 A2 JSR R227 881F 8A TXA 8820 20 89 A3 JSR R389 8823 A5 B0 LDA &B0 8825 20 81 A3 JSR R381 8828 20 45 84 JSR P445 .P82B 882B 98 TYA 882C F0 30 BEQ P85E 882E 20 C8 A3 JSR R3C8 8831 20 25 8D JSR PD25 8834 20 80 8E JSR PE80 8837 20 27 A2 JSR R227 883A B9 0C BA LDA &BA0C,Y 883D C9 01 CMP #&01 883F B9 0D BA LDA &BA0D,Y 8842 69 00 ADC #&00 8844 85 C5 STA &C5 8846 08 PHP 8847 B9 0E BA LDA &BA0E,Y 884A 20 AC A3 JSR R3AC 884D 28 PLP 884E 69 00 ADC #&00 8850 85 C4 STA &C4 8852 20 DE 8D JSR PDDE 8855 20 45 84 JSR P445 8858 20 B5 93 JSR Q3B5 885B 4C E8 87 JMP P7E8 .P85E 885E 4C C0 8D JMP PDC0 8861 20 70 A1 JSR R170 8864 20 2C A4 JSR R42C 8867 8D E6 B8 STA &B8E6 886A 20 2C A4 JSR R42C 886D 8D E7 B8 STA &B8E7 8870 20 5D A1 JSR R15D 8873 20 00 A0 JSR R000 8876 20 BF 85 JSR P5BF 8879 20 E8 84 JSR P4E8 887C AD 06 BA LDA &BA06 887F 48 PHA 8880 AD 07 BA LDA &BA07 8883 48 PHA 8884 20 E3 9F JSR QFE3 8887 20 C5 85 JSR P5C5 888A 20 E1 84 JSR P4E1 888D AD 05 BA LDA &BA05 8890 85 CC STA &CC 8892 F0 4F BEQ P8E3 8894 20 A1 89 JSR P9A1 8897 68 PLA 8898 85 C6 STA &C6 889A 68 PLA 889B 85 C7 STA &C7 889D 29 0F AND #&0F 889F C5 CB CMP &CB 88A1 90 08 BCC P8AB 88A3 D0 09 BNE P8AE 88A5 A5 C6 LDA &C6 88A7 C5 CA CMP &CA 88A9 B0 03 BCS P8AE .P8AB 88AB 4C 71 85 JMP P571 .P8AE 88AE A5 C7 LDA &C7 88B0 48 PHA 88B1 A5 C6 LDA &C6 88B3 48 PHA 88B4 20 D8 84 JSR P4D8 88B7 20 E3 9F JSR QFE3 88BA 20 C5 85 JSR P5C5 88BD 20 E6 88 JSR P8E6 88C0 20 D8 84 JSR P4D8 88C3 20 E3 9F JSR QFE3 88C6 20 A1 89 JSR P9A1 88C9 68 PLA 88CA 8D 07 BA STA &BA07 88CD 68 PLA 88CE 8D 06 BA STA &BA06 88D1 20 D8 84 JSR P4D8 88D4 20 57 84 JSR P457 88D7 20 6B 94 JSR Q46B 88DA 20 35 8B JSR PB35 88DD A9 FF LDA #&FF 88DF 8D CA B8 STA &B8CA 88E2 60 RTS .P8E3 88E3 4C B2 8D JMP PDB2 .P8E6 88E6 20 47 94 JSR Q447 88E9 A9 00 LDA #&00 88EB 85 BE STA &BE 88ED 85 C2 STA &C2 88EF AD CF B8 LDA &B8CF 88F2 85 BF STA &BF .P8F4 88F4 A4 CC LDY &CC 88F6 20 C8 A3 JSR R3C8 88F9 84 CC STY &CC 88FB 20 45 8E JSR PE45 88FE A4 CC LDY &CC 8900 20 29 A1 JSR R129 8903 F0 57 BEQ P95C 8905 B9 0F BA LDA &BA0F,Y 8908 85 C8 STA &C8 890A B9 0E BA LDA &BA0E,Y 890D 29 03 AND #&03 890F 85 C9 STA &C9 8911 20 35 A1 JSR R135 .P914 8914 38 SEC 8915 AD D0 B8 LDA &B8D0 8918 E5 BF SBC &BF 891A A8 TAY 891B A5 C7 LDA &C7 891D D0 06 BNE P925 891F C4 C6 CPY &C6 8921 90 02 BCC P925 8923 A4 C6 LDY &C6 .P925 8925 84 C3 STY &C3 8927 A5 C8 LDA &C8 8929 85 C5 STA &C5 892B A5 C9 LDA &C9 892D 85 C4 STA &C4 892F 20 D4 84 JSR P4D4 8932 20 4D 84 JSR P44D 8935 20 E2 92 JSR Q2E2 8938 18 CLC 8939 A5 C8 LDA &C8 893B 65 C3 ADC &C3 893D 85 C8 STA &C8 893F 90 02 BCC P943 8941 E6 C9 INC &C9 .P943 8943 38 SEC 8944 A5 C6 LDA &C6 8946 E5 C3 SBC &C3 8948 85 C6 STA &C6 894A B0 02 BCS P94E 894C C6 C7 DEC &C7 .P94E 894E 18 CLC 894F A5 BF LDA &BF 8951 65 C3 ADC &C3 8953 85 BF STA &BF 8955 A5 BF LDA &BF 8957 CD D0 B8 CMP &B8D0 895A F0 04 BEQ P960 .P95C 895C A4 CC LDY &CC 895E D0 94 BNE P8F4 .P960 8960 AD CF B8 LDA &B8CF 8963 C5 BF CMP &BF 8965 F0 32 BEQ P999 8967 A5 CA LDA &CA 8969 85 C5 STA &C5 896B A5 CB LDA &CB 896D 85 C4 STA &C4 896F 38 SEC 8970 A5 BF LDA &BF 8972 ED CF B8 SBC &B8CF 8975 85 C3 STA &C3 8977 AD CF B8 LDA &B8CF 897A 85 BF STA &BF 897C 20 D8 84 JSR P4D8 897F 20 57 84 JSR P457 8982 20 DC 92 JSR Q2DC 8985 18 CLC 8986 A5 CA LDA &CA 8988 65 C3 ADC &C3 898A 85 CA STA &CA 898C 90 02 BCC P990 898E E6 CB INC &CB .P990 8990 A5 C6 LDA &C6 8992 05 C7 ORA &C7 8994 F0 03 BEQ P999 8996 4C 14 89 JMP P914 .P999 8999 A5 CC LDA &CC 899B F0 03 BEQ P9A0 899D 4C F4 88 JMP P8F4 .P9A0 89A0 60 RTS .P9A1 89A1 AC 05 BA LDY &BA05 .P9A4 89A4 20 C8 A3 JSR R3C8 89A7 C0 F8 CPY #&F8 89A9 D0 01 BNE P9AC 89AB 60 RTS .P9AC 89AC 20 F0 9F JSR QFF0 89AF 20 35 A1 JSR R135 89B2 20 4F A1 JSR R14F 89B5 4C A4 89 JMP P9A4 89B8 20 9E 8D JSR PD9E 89BB 20 BD 92 JSR Q2BD 89BE A5 CF LDA &CF 89C0 48 PHA 89C1 98 TYA 89C2 48 PHA 89C3 20 AD 8D JSR PDAD 89C6 20 AE 9D JSR QDAE 89C9 84 B3 STY &B3 89CB 68 PLA 89CC A8 TAY 89CD 20 BD 92 JSR Q2BD 89D0 68 PLA 89D1 C5 CF CMP &CF 89D3 F0 03 BEQ P9D8 89D5 4C CC 96 JMP Q6CC .P9D8 89D8 20 E8 8D JSR PDE8 89DB 90 0B BCC P9E8 89DD 20 B5 A2 JSR R2B5 89E0 EQUB &C4 89E1 EQUS "exists" 89E7 EQUB &00 .P9E8 89E8 A4 B3 LDY &B3 89EA 20 FD 93 JSR Q3FD 89ED 4C 6B 94 JMP Q46B 89F0 98 TYA 89F1 48 PHA 89F2 20 AE 97 JSR Q7AE 89F5 68 PLA 89F6 A8 TAY 89F7 20 30 A2 JSR R230 89FA A9 40 LDA #&40 89FC 20 CE FF JSR &FFCE 89FF A8 TAY 8A00 D0 03 BNE PA05 8A02 4C 7C 83 JMP P37C .PA05 8A05 20 D7 FF JSR &FFD7 8A08 48 PHA 8A09 A2 02 LDX #&02 .PA0B 8A0B 20 D7 FF JSR &FFD7 8A0E 49 FF EOR #&FF 8A10 9D 00 BF STA &BF00,X 8A13 CA DEX 8A14 10 F5 BPL PA0B 8A16 20 77 83 JSR P377 8A19 A9 FF LDA #&FF 8A1B 85 A0 STA &A0 8A1D AC D8 B8 LDY &B8D8 8A20 B9 0D B8 LDA &B80D,Y 8A23 29 03 AND #&03 8A25 AA TAX 8A26 B9 0F B8 LDA &B80F,Y .PA29 8A29 38 SEC .PA2A 8A2A E6 A0 INC &A0 8A2C E9 0A SBC #&0A 8A2E B0 FA BCS PA2A 8A30 CA DEX 8A31 10 F6 BPL PA29 8A33 69 0A ADC #&0A 8A35 85 A1 STA &A1 8A37 A9 05 LDA #&05 8A39 85 A5 STA &A5 8A3B A9 BB LDA #&BB 8A3D 85 A6 STA &A6 8A3F 18 CLC 8A40 AD 00 BF LDA &BF00 8A43 69 06 ADC #&06 8A45 8D 00 BF STA &BF00 8A48 90 08 BCC PA52 8A4A EE 01 BF INC &BF01 8A4D D0 03 BNE PA52 8A4F EE 02 BF INC &BF02 .PA52 8A52 A9 8D LDA #&8D 8A54 A2 00 LDX #&00 8A56 20 F4 FF JSR &FFF4 8A59 A9 0E LDA #&0E 8A5B 85 18 STA &18 8A5D A9 03 LDA #&03 8A5F 8D 58 02 STA &0258 8A62 A9 8B LDA #&8B 8A64 A2 01 LDX #&01 8A66 A0 02 LDY #&02 8A68 20 F4 FF JSR &FFF4 8A6B A2 0A LDX #&0A 8A6D 68 PLA 8A6E 29 40 AND #&40 8A70 D0 02 BNE PA74 8A72 A2 00 LDX #&00 .PA74 8A74 BD 95 8A LDA &8A95,X 8A77 48 PHA 8A78 A8 TAY 8A79 8A TXA 8A7A 48 PHA 8A7B A6 F4 LDX &F4 8A7D BD A0 02 LDA &02A0,X 8A80 09 20 ORA #&20 8A82 9D A0 02 STA &02A0,X 8A85 A2 00 LDX #&00 8A87 A9 8A LDA #&8A 8A89 20 F4 FF JSR &FFF4 8A8C 68 PLA 8A8D AA TAX 8A8E E8 INX 8A8F 68 PLA 8A90 C9 0D CMP #&0D 8A92 D0 E0 BNE PA74 8A94 60 RTS 8A95 EQUS "CHAIN " 8A9B EQUB &22,&22 8A9D EQUB &06 8A9E EQUB &0D 8A9F EQUS "*RUN" 8AA3 EQUB &06 8AA4 EQUB &0D 8AA5 A2 00 LDX #&00 8AA7 20 32 A4 JSR R432 8AAA 20 7C 94 JSR Q47C 8AAD 4C 9E 90 JMP Q09E 8AB0 20 43 A0 JSR R043 8AB3 20 45 A4 JSR R445 8AB6 20 88 94 JSR Q488 8AB9 A2 0B LDX #&0B 8ABB A9 00 LDA #&00 .PABD 8ABD 20 D3 8A JSR PAD3 8AC0 CA DEX 8AC1 10 FA BPL PABD .PAC3 8AC3 E8 INX 8AC4 20 C5 FF JSR &FFC5 8AC7 B0 07 BCS PAD0 8AC9 20 D3 8A JSR PAD3 8ACC E0 0B CPX #&0B 8ACE 90 F3 BCC PAC3 .PAD0 8AD0 4C 6B 94 JMP Q46B .PAD3 8AD3 E0 08 CPX #&08 8AD5 90 04 BCC PADB 8AD7 9D F8 B9 STA &B9F8,X 8ADA 60 RTS .PADB 8ADB 9D 00 B9 STA &B900,X 8ADE 60 RTS 8ADF 20 08 A4 JSR R408 8AE2 18 CLC 8AE3 F0 0B BEQ PAF0 8AE5 20 C5 FF JSR &FFC5 8AE8 38 SEC 8AE9 E9 30 SBC #&30 8AEB 90 13 BCC PB00 8AED 4A LSR A 8AEE D0 10 BNE PB00 .PAF0 8AF0 A9 00 LDA #&00 8AF2 6A ROR A 8AF3 6A ROR A 8AF4 4D FE B8 EOR &B8FE 8AF7 29 40 AND #&40 8AF9 4D FE B8 EOR &B8FE 8AFC 8D FE B8 STA &B8FE 8AFF 60 RTS .PB00 8B00 4C CC 96 JMP Q6CC 8B03 20 B4 92 JSR Q2B4 .PB06 8B06 20 25 8D JSR PD25 8B09 20 EF A2 JSR R2EF 8B0C EQUS " : " 8B0F EA NOP 8B10 B9 0F B9 LDA &B90F,Y 8B13 10 06 BPL PB1B 8B15 20 55 A3 JSR R355 8B18 4C 2C 8B JMP PB2C .PB1B 8B1B 20 B7 84 JSR P4B7 8B1E D0 0C BNE PB2C 8B20 20 06 8D JSR PD06 8B23 20 23 8E JSR PE23 8B26 20 6B 94 JSR Q46B 8B29 20 D2 92 JSR Q2D2 .PB2C 8B2C 20 45 84 JSR P445 8B2F 20 EF 8D JSR PDEF 8B32 B0 D2 BCS PB06 8B34 60 RTS .PB35 8B35 AD CF B8 LDA &B8CF 8B38 85 BF STA &BF 8B3A A9 00 LDA #&00 8B3C 85 BE STA &BE 8B3E A9 0D LDA #&0D 8B40 91 BE STA (&BE),Y 8B42 C8 INY 8B43 A9 FF LDA #&FF 8B45 91 BE STA (&BE),Y 8B47 60 RTS .PB48 8B48 20 83 8B JSR PB83 8B4B 20 57 84 JSR P457 8B4E A5 CE LDA &CE 8B50 48 PHA 8B51 20 88 94 JSR Q488 8B54 20 E8 8D JSR PDE8 8B57 90 03 BCC PB5C 8B59 20 23 8E JSR PE23 .PB5C 8B5C 68 PLA 8B5D 85 CE STA &CE 8B5F 20 E8 84 JSR P4E8 8B62 20 2D 94 JSR Q42D 8B65 20 54 94 JSR Q454 8B68 A5 C4 LDA &C4 8B6A 20 AC A3 JSR R3AC 8B6D 85 C6 STA &C6 8B6F 20 46 93 JSR Q346 8B72 20 83 8B JSR PB83 8B75 BA TSX 8B76 BD 0E 01 LDA &010E,X 8B79 85 CA STA &CA 8B7B BD 0F 01 LDA &010F,X 8B7E 29 03 AND #&03 8B80 85 CB STA &CB 8B82 60 RTS .PB83 8B83 A0 10 LDY #&10 8B85 BA TSX .PB86 8B86 BD 07 01 LDA &0107,X 8B89 48 PHA 8B8A B9 BE 00 LDA &00BE,Y 8B8D 9D 07 01 STA &0107,X 8B90 68 PLA 8B91 99 BE 00 STA &00BE,Y 8B94 E8 INX 8B95 88 DEY 8B96 10 EE BPL PB86 8B98 60 RTS 8B99 20 4D 84 JSR P44D 8B9C 20 8B 94 JSR Q48B 8B9F 20 E1 84 JSR P4E1 8BA2 AD 07 BA LDA &BA07 8BA5 85 C6 STA &C6 8BA7 AD 06 BA LDA &BA06 8BAA 29 03 AND #&03 8BAC 85 C7 STA &C7 8BAE AD 06 BA LDA &BA06 8BB1 29 F0 AND #&F0 8BB3 8D EA B8 STA &B8EA 8BB6 20 57 84 JSR P457 8BB9 20 8B 94 JSR Q48B 8BBC 4C E8 84 JMP P4E8 8BBF AD 06 BA LDA &BA06 8BC2 29 03 AND #&03 8BC4 C5 C7 CMP &C7 8BC6 90 07 BCC PBCF 8BC8 D0 05 BNE PBCF 8BCA AD 07 BA LDA &BA07 8BCD C5 C6 CMP &C6 .PBCF 8BCF 60 RTS .PBD0 8BD0 A9 00 LDA #&00 8BD2 85 BE STA &BE 8BD4 85 C2 STA &C2 .PBD6 8BD6 A5 C6 LDA &C6 8BD8 A8 TAY 8BD9 CD D1 B8 CMP &B8D1 8BDC A5 C7 LDA &C7 8BDE E9 00 SBC #&00 8BE0 90 03 BCC PBE5 8BE2 AC D1 B8 LDY &B8D1 .PBE5 8BE5 84 C3 STY &C3 8BE7 A5 C8 LDA &C8 8BE9 85 C5 STA &C5 8BEB A5 C9 LDA &C9 8BED 85 C4 STA &C4 8BEF AD CF B8 LDA &B8CF 8BF2 85 BF STA &BF 8BF4 20 D4 84 JSR P4D4 8BF7 20 4D 84 JSR P44D 8BFA 20 47 94 JSR Q447 8BFD 20 F0 92 JSR Q2F0 8C00 24 A8 BIT &A8 8C02 10 07 BPL PC0B 8C04 20 48 8B JSR PB48 8C07 A9 00 LDA #&00 8C09 85 A8 STA &A8 .PC0B 8C0B A5 CA LDA &CA 8C0D 85 C5 STA &C5 8C0F A5 CB LDA &CB 8C11 85 C4 STA &C4 8C13 AD CF B8 LDA &B8CF 8C16 85 BF STA &BF 8C18 20 D8 84 JSR P4D8 8C1B 20 57 84 JSR P457 8C1E 20 47 94 JSR Q447 8C21 20 F6 92 JSR Q2F6 8C24 A5 C3 LDA &C3 8C26 18 CLC 8C27 65 CA ADC &CA 8C29 85 CA STA &CA 8C2B 90 02 BCC PC2F 8C2D E6 CB INC &CB .PC2F 8C2F A5 C3 LDA &C3 8C31 18 CLC 8C32 65 C8 ADC &C8 8C34 85 C8 STA &C8 8C36 90 02 BCC PC3A 8C38 E6 C9 INC &C9 .PC3A 8C3A 38 SEC 8C3B A5 C6 LDA &C6 8C3D E5 C3 SBC &C3 8C3F 85 C6 STA &C6 8C41 B0 02 BCS PC45 8C43 C6 C7 DEC &C7 .PC45 8C45 05 C7 ORA &C7 8C47 D0 8D BNE PBD6 8C49 60 RTS .PC4A 8C4A 20 5A 8C JSR PC5A 8C4D CA DEX 8C4E CA DEX 8C4F 20 52 8C JSR PC52 .PC52 8C52 B1 B0 LDA (&B0),Y 8C54 9D B4 B8 STA &B8B4,X 8C57 E8 INX 8C58 C8 INY 8C59 60 RTS .PC5A 8C5A 20 5D 8C JSR PC5D .PC5D 8C5D B1 B0 LDA (&B0),Y 8C5F 95 BC STA &BC,X 8C61 E8 INX 8C62 C8 INY 8C63 60 RTS .PC64 8C64 20 3A A4 JSR R43A 8C67 4C 7A 8C JMP PC7A .PC6A 8C6A 20 3A A4 JSR R43A .PC6D 8C6D A5 BC LDA &BC 8C6F 85 F2 STA &F2 8C71 A5 BD LDA &BD 8C73 85 F3 STA &F3 8C75 A0 00 LDY #&00 8C77 20 08 A4 JSR R408 .PC7A 8C7A 20 E5 8C JSR PCE5 8C7D 20 C5 FF JSR &FFC5 8C80 B0 53 BCS PCD5 8C82 C9 3A CMP #&3A 8C84 D0 22 BNE PCA8 8C86 20 C5 FF JSR &FFC5 8C89 B0 57 BCS PCE2 8C8B 20 0C A4 JSR R40C 8C8E 20 C5 FF JSR &FFC5 8C91 B0 42 BCS PCD5 8C93 C9 2E CMP #&2E 8C95 F0 0C BEQ PCA3 8C97 20 18 A4 JSR R418 8C9A 20 C5 FF JSR &FFC5 8C9D B0 36 BCS PCD5 8C9F C9 2E CMP #&2E 8CA1 D0 32 BNE PCD5 .PCA3 8CA3 20 C5 FF JSR &FFC5 8CA6 B0 2D BCS PCD5 .PCA8 8CA8 85 C7 STA &C7 8CAA A2 00 LDX #&00 8CAC 20 C5 FF JSR &FFC5 8CAF B0 3A BCS PCEB 8CB1 E8 INX 8CB2 C9 2E CMP #&2E 8CB4 D0 0B BNE PCC1 8CB6 A5 C7 LDA &C7 8CB8 20 C7 A4 JSR R4C7 8CBB 20 C5 FF JSR &FFC5 8CBE B0 15 BCS PCD5 8CC0 CA DEX .PCC1 8CC1 C9 2A CMP #&2A 8CC3 F0 36 BEQ PCFB 8CC5 C9 21 CMP #&21 8CC7 90 0C BCC PCD5 8CC9 95 C7 STA &C7,X 8CCB E8 INX 8CCC 20 C5 FF JSR &FFC5 8CCF B0 29 BCS PCFA 8CD1 E0 07 CPX #&07 8CD3 D0 EC BNE PCC1 .PCD5 8CD5 20 AC A2 JSR R2AC 8CD8 EQUB &CC 8CD9 EQUS "filename" 8CE1 EQUB &00 .PCE2 8CE2 4C 58 A4 JMP R458 .PCE5 8CE5 A2 00 LDX #&00 8CE7 A9 20 LDA #&20 8CE9 D0 08 BNE PCF3 .PCEB 8CEB A5 C7 LDA &C7 8CED C9 2A CMP #&2A 8CEF D0 09 BNE PCFA .PCF1 8CF1 A9 23 LDA #&23 .PCF3 8CF3 95 C7 STA &C7,X 8CF5 E8 INX 8CF6 E0 07 CPX #&07 8CF8 D0 F9 BNE PCF3 .PCFA 8CFA 60 RTS .PCFB 8CFB 20 C5 FF JSR &FFC5 8CFE B0 F1 BCS PCF1 8D00 C9 20 CMP #&20 8D02 F0 ED BEQ PCF1 8D04 D0 CF BNE PCD5 .PD06 8D06 20 5B A2 JSR R25B 8D09 AD 04 BA LDA &BA04 8D0C 20 88 94 JSR Q488 8D0F CD 04 BA CMP &BA04 8D12 F0 E6 BEQ PCFA .PD14 8D14 20 BD A2 JSR R2BD 8D17 EQUB &C8 8D18 EQUS "Disk changed" 8D24 EQUB &00 .PD25 8D25 20 5B A2 JSR R25B 8D28 B9 0F B9 LDA &B90F,Y 8D2B 08 PHP 8D2C 29 7F AND #&7F 8D2E D0 05 BNE PD35 8D30 20 24 A2 JSR R224 8D33 F0 06 BEQ PD3B .PD35 8D35 20 5B A3 JSR R35B 8D38 20 59 A3 JSR R359 .PD3B 8D3B A2 06 LDX #&06 .PD3D 8D3D B9 08 B9 LDA &B908,Y 8D40 29 7F AND #&7F 8D42 20 5B A3 JSR R35B 8D45 C8 INY 8D46 CA DEX 8D47 10 F4 BPL PD3D 8D49 20 24 A2 JSR R224 8D4C A9 20 LDA #&20 8D4E 28 PLP 8D4F 10 02 BPL PD53 8D51 A9 4C LDA #&4C .PD53 8D53 20 5B A3 JSR R35B 8D56 4C 27 A2 JMP R227 .PD59 8D59 20 27 A2 JSR R227 8D5C 88 DEY 8D5D D0 FA BNE PD59 8D5F 60 RTS .PD60 8D60 A9 00 LDA #&00 8D62 85 A5 STA &A5 8D64 A6 C4 LDX &C4 8D66 4C 75 8D JMP PD75 .PD69 8D69 A5 C4 LDA &C4 8D6B 20 AC A3 JSR R3AC 8D6E 85 A5 STA &A5 8D70 A5 C4 LDA &C4 8D72 29 03 AND #&03 8D74 AA TAX .PD75 8D75 A5 BE LDA &BE 8D77 85 A6 STA &A6 8D79 A5 BF LDA &BF 8D7B 85 A7 STA &A7 8D7D A5 C3 LDA &C3 8D7F 85 A4 STA &A4 8D81 A5 C2 LDA &C2 8D83 85 A3 STA &A3 8D85 A9 FF LDA #&FF 8D87 85 BA STA &BA 8D89 A5 C5 LDA &C5 .PD8B 8D8B 38 SEC .PD8C 8D8C E6 BA INC &BA 8D8E E9 0A SBC #&0A 8D90 B0 FA BCS PD8C 8D92 CA DEX 8D93 10 F6 BPL PD8B 8D95 69 0A ADC #&0A 8D97 85 BB STA &BB .PD99 8D99 60 RTS .PD9A 8D9A A9 23 LDA #&23 8D9C D0 02 BNE PDA0 .PD9E 8D9E A9 FF LDA #&FF .PDA0 8DA0 8D E3 B8 STA &B8E3 8DA3 60 RTS .PDA4 8DA4 20 64 8C JSR PC64 8DA7 4C AD 8D JMP PDAD .PDAA 8DAA 20 6A 8C JSR PC6A .PDAD 8DAD 20 E8 8D JSR PDE8 8DB0 B0 E7 BCS PD99 .PDB2 8DB2 20 B5 A2 JSR R2B5 8DB5 EQUB &D6 8DB6 EQUS "not found" 8DBF EQUB &00 .PDC0 8DC0 20 EF A2 JSR R2EF 8DC3 EQUB &0D 8DC4 EQUS "Free sectors " 8DD1 A5 C7 LDA &C7 8DD3 20 89 A3 JSR R389 8DD6 A5 C6 LDA &C6 8DD8 20 81 A3 JSR R381 8DDB 4C 45 84 JMP P445 .PDDE 8DDE A5 C4 LDA &C4 8DE0 20 89 A3 JSR R389 8DE3 A5 C5 LDA &C5 8DE5 4C 81 A3 JMP R381 .PDE8 8DE8 20 7C 94 JSR Q47C 8DEB A0 F8 LDY #&F8 8DED D0 03 BNE PDF2 .PDEF 8DEF AC E2 B8 LDY &B8E2 .PDF2 8DF2 20 BF A3 JSR R3BF 8DF5 CC 05 BA CPY &BA05 8DF8 B0 44 BCS PE3E 8DFA 20 BF A3 JSR R3BF 8DFD A2 07 LDX #&07 .PDFF 8DFF B5 C7 LDA &C7,X 8E01 CD E3 B8 CMP &B8E3 8E04 F0 0E BEQ PE14 8E06 20 E7 A3 JSR R3E7 8E09 59 07 B9 EOR &B907,Y 8E0C B0 02 BCS PE10 8E0E 29 DF AND #&DF .PE10 8E10 29 7F AND #&7F 8E12 D0 09 BNE PE1D .PE14 8E14 88 DEY 8E15 CA DEX 8E16 10 E7 BPL PDFF 8E18 8C E2 B8 STY &B8E2 8E1B 38 SEC 8E1C 60 RTS .PE1D 8E1D 88 DEY 8E1E CA DEX 8E1F 10 FC BPL PE1D 8E21 30 CF BMI PDF2 .PE23 8E23 20 AE 9D JSR QDAE .PE26 8E26 B9 10 B9 LDA &B910,Y 8E29 99 08 B9 STA &B908,Y 8E2C B9 10 BA LDA &BA10,Y 8E2F 99 08 BA STA &BA08,Y 8E32 C8 INY 8E33 CC 05 BA CPY &BA05 8E36 90 EE BCC PE26 8E38 98 TYA 8E39 E9 08 SBC #&08 8E3B 8D 05 BA STA &BA05 .PE3E 8E3E 18 CLC .PE3F 8E3F 60 RTS .PE40 8E40 2C E4 B8 BIT &B8E4 8E43 30 FA BMI PE3F .PE45 8E45 20 5B A2 JSR R25B 8E48 20 25 8D JSR PD25 8E4B 98 TYA 8E4C 48 PHA 8E4D A9 A7 LDA #&A7 8E4F 85 B0 STA &B0 8E51 A9 B8 LDA #&B8 8E53 85 B1 STA &B1 8E55 20 8E 8E JSR PE8E 8E58 A0 02 LDY #&02 8E5A 20 27 A2 JSR R227 8E5D 20 6E 8E JSR PE6E 8E60 20 6E 8E JSR PE6E 8E63 20 6E 8E JSR PE6E 8E66 68 PLA 8E67 A8 TAY 8E68 20 80 8E JSR PE80 8E6B 4C 45 84 JMP P445 .PE6E 8E6E A2 03 LDX #&03 .PE70 8E70 B9 A9 B8 LDA &B8A9,Y 8E73 20 81 A3 JSR R381 8E76 88 DEY 8E77 CA DEX 8E78 D0 F6 BNE PE70 8E7A 20 C0 A3 JSR R3C0 8E7D 4C 27 A2 JMP R227 .PE80 8E80 B9 0E BA LDA &BA0E,Y 8E83 29 03 AND #&03 8E85 20 89 A3 JSR R389 8E88 B9 0F BA LDA &BA0F,Y 8E8B 4C 81 A3 JMP R381 .PE8E 8E8E 20 5B A2 JSR R25B 8E91 98 TYA 8E92 48 PHA 8E93 AA TAX 8E94 A0 02 LDY #&02 8E96 A9 00 LDA #&00 .PE98 8E98 91 B0 STA (&B0),Y 8E9A C8 INY 8E9B C0 12 CPY #&12 8E9D D0 F9 BNE PE98 8E9F A0 02 LDY #&02 .PEA1 8EA1 20 DD 8E JSR PEDD 8EA4 C8 INY 8EA5 C8 INY 8EA6 C0 0E CPY #&0E 8EA8 D0 F7 BNE PEA1 8EAA 68 PLA 8EAB AA TAX 8EAC BD 0F B9 LDA &B90F,X 8EAF 10 06 BPL PEB7 8EB1 A9 0A LDA #&0A 8EB3 A0 0E LDY #&0E 8EB5 91 B0 STA (&B0),Y .PEB7 8EB7 BD 0E BA LDA &BA0E,X 8EBA A0 04 LDY #&04 8EBC 20 CB 8E JSR PECB 8EBF A0 0C LDY #&0C 8EC1 4A LSR A 8EC2 4A LSR A 8EC3 48 PHA 8EC4 29 03 AND #&03 8EC6 91 B0 STA (&B0),Y 8EC8 68 PLA 8EC9 A0 08 LDY #&08 .PECB 8ECB 4A LSR A 8ECC 4A LSR A 8ECD 48 PHA 8ECE 29 03 AND #&03 8ED0 C9 02 CMP #&02 8ED2 90 05 BCC PED9 8ED4 09 FE ORA #&FE 8ED6 91 B0 STA (&B0),Y 8ED8 C8 INY .PED9 8ED9 91 B0 STA (&B0),Y 8EDB 68 PLA 8EDC 60 RTS .PEDD 8EDD 20 E0 8E JSR PEE0 .PEE0 8EE0 BD 08 BA LDA &BA08,X 8EE3 91 B0 STA (&B0),Y 8EE5 E8 INX 8EE6 C8 INY 8EE7 60 RTS .PEE8 8EE8 20 2A A3 JSR R32A 8EEB EQUB &0D 8EEC EQUB &0A 8EED EQUS "No file" 8EF4 EQUB &0D 8EF5 EQUB &0A 8EF6 EQUB &FF 8EF7 60 RTS .PEF8 8EF8 AD 05 BA LDA &BA05 8EFB F0 EB BEQ PEE8 8EFD A0 FF LDY #&FF 8EFF 84 A8 STY &A8 8F01 C8 INY 8F02 84 AA STY &AA .PF04 8F04 CC 05 BA CPY &BA05 8F07 B0 17 BCS PF20 8F09 B9 0F B9 LDA &B90F,Y 8F0C 4D DD B8 EOR &B8DD 8F0F 29 7F AND #&7F 8F11 D0 08 BNE PF1B 8F13 B9 0F B9 LDA &B90F,Y 8F16 29 80 AND #&80 8F18 99 0F B9 STA &B90F,Y .PF1B 8F1B 20 BF A3 JSR R3BF 8F1E 90 E4 BCC PF04 .PF20 8F20 A0 00 LDY #&00 8F22 20 A0 8F JSR PFA0 8F25 B0 6E BCS PF95 .PF27 8F27 84 AB STY &AB 8F29 A2 00 LDX #&00 .PF2B 8F2B B9 08 B9 LDA &B908,Y 8F2E 29 7F AND #&7F 8F30 9D A7 B8 STA &B8A7,X 8F33 C8 INY 8F34 E8 INX 8F35 E0 08 CPX #&08 8F37 D0 F2 BNE PF2B .PF39 8F39 20 A0 8F JSR PFA0 8F3C B0 1F BCS PF5D 8F3E 38 SEC 8F3F A2 06 LDX #&06 .PF41 8F41 B9 0E B9 LDA &B90E,Y 8F44 FD A7 B8 SBC &B8A7,X 8F47 88 DEY 8F48 CA DEX 8F49 10 F6 BPL PF41 8F4B 20 C0 A3 JSR R3C0 8F4E B9 0F B9 LDA &B90F,Y 8F51 29 7F AND #&7F 8F53 ED AE B8 SBC &B8AE 8F56 90 CF BCC PF27 8F58 20 BF A3 JSR R3BF 8F5B B0 DC BCS PF39 .PF5D 8F5D A4 AB LDY &AB 8F5F B9 08 B9 LDA &B908,Y 8F62 09 80 ORA #&80 8F64 99 08 B9 STA &B908,Y 8F67 AD AE B8 LDA &B8AE 8F6A C5 AA CMP &AA 8F6C F0 10 BEQ PF7E 8F6E A6 AA LDX &AA 8F70 85 AA STA &AA 8F72 D0 0A BNE PF7E 8F74 20 45 84 JSR P445 .PF77 8F77 20 45 84 JSR P445 8F7A A0 FF LDY #&FF 8F7C D0 09 BNE PF87 .PF7E 8F7E A4 A8 LDY &A8 8F80 D0 F5 BNE PF77 8F82 A0 05 LDY #&05 8F84 20 59 8D JSR PD59 .PF87 8F87 C8 INY 8F88 84 A8 STY &A8 8F8A A4 AB LDY &AB 8F8C 20 24 A2 JSR R224 8F8F 20 25 8D JSR PD25 8F92 4C 20 8F JMP PF20 .PF95 8F95 A9 FF LDA #&FF 8F97 8D CA B8 STA &B8CA 8F9A 4C 45 84 JMP P445 .PF9D 8F9D 20 BF A3 JSR R3BF .PFA0 8FA0 CC 05 BA CPY &BA05 8FA3 B0 05 BCS PFAA 8FA5 B9 08 B9 LDA &B908,Y 8FA8 30 F3 BMI PF9D .PFAA 8FAA 60 RTS .PFAB 8FAB 29 07 AND #&07 8FAD 4C 89 A3 JMP R389 .PFB0 8FB0 A0 0B LDY #&0B 8FB2 20 59 8D JSR PD59 .PFB5 8FB5 B9 00 B9 LDA &B900,Y 8FB8 C0 08 CPY #&08 8FBA 90 03 BCC PFBF 8FBC B9 F8 B9 LDA &B9F8,Y .PFBF 8FBF 20 5B A3 JSR R35B 8FC2 C8 INY 8FC3 C0 0C CPY #&0C 8FC5 D0 EE BNE PFB5 8FC7 20 EF A2 JSR R2EF 8FCA EQUB &0D 8FCB EQUS " (" 8FCD AD 04 BA LDA &BA04 8FD0 20 81 A3 JSR R381 8FD3 20 EF A2 JSR R2EF 8FD6 EQUS ")" 8FD7 EA NOP 8FD8 A0 09 LDY #&09 8FDA A9 20 LDA #&20 8FDC 2C F3 B8 BIT &B8F3 8FDF 10 23 BPL Q004 8FE1 D0 10 BNE PFF3 8FE3 50 1F BVC Q004 8FE5 20 59 8D JSR PD59 8FE8 20 EF A2 JSR R2EF 8FEB EQUS "40in80" 8FF1 90 11 BCC Q004 .PFF3 8FF3 20 59 8D JSR PD59 8FF6 20 EF A2 JSR R2EF 8FF9 EQUS "**80in40**" 9003 EA NOP .Q004 9004 4C 45 84 JMP P445 .Q007 9007 A0 0D LDY #&0D 9009 A5 CF LDA &CF 900B 20 90 90 JSR Q090 900E 20 59 8D JSR PD59 9011 20 EF A2 JSR R2EF 9014 EQUS "Option " 901B AD 06 BA LDA &BA06 901E 20 B4 A3 JSR R3B4 9021 20 89 A3 JSR R389 9024 20 EF A2 JSR R2EF 9027 EQUS " (" 9029 A0 03 LDY #&03 902B 0A ASL A 902C 0A ASL A 902D AA TAX .Q02E 902E BD 80 90 LDA &9080,X 9031 20 5B A3 JSR R35B 9034 E8 INX 9035 88 DEY 9036 10 F6 BPL Q02E 9038 20 EF A2 JSR R2EF 903B EQUS ")" 903C EQUB &0D 903D EA NOP 903E 60 RTS .Q03F 903F 20 EF A2 JSR R2EF 9042 EQUS " Directory :" 904E A0 06 LDY #&06 9050 AD DE B8 LDA &B8DE 9053 20 AB 8F JSR PFAB 9056 20 59 A3 JSR R359 9059 AD DD B8 LDA &B8DD 905C 20 5B A3 JSR R35B 905F 20 59 8D JSR PD59 9062 20 EF A2 JSR R2EF 9065 EQUS "Library :" 906E AD E0 B8 LDA &B8E0 9071 20 AB 8F JSR PFAB 9074 20 59 A3 JSR R359 9077 AD DF B8 LDA &B8DF 907A 20 5B A3 JSR R35B 907D 4C 45 84 JMP P445 9080 EQUS "off" 9083 EQUB &00 9084 EQUS "LOAD" 9088 EQUS "RUN" 908B EQUB &00 908C EQUS "EXEC" .Q090 9090 20 EF A2 JSR R2EF 9093 EQUS " Drive " 909A EA NOP 909B 4C AB 8F JMP PFAB .Q09E 909E A0 03 LDY #&03 90A0 A5 CF LDA &CF 90A2 20 90 90 JSR Q090 90A5 20 59 8D JSR PD59 90A8 20 EF A2 JSR R2EF 90AB EQUS "Disk size " 90B7 EA NOP 90B8 AD 07 BA LDA &BA07 90BB 85 A8 STA &A8 90BD AD 06 BA LDA &BA06 90C0 29 03 AND #&03 90C2 85 A9 STA &A9 90C4 20 3F A9 JSR R93F 90C7 20 45 84 JSR P445 90CA A0 0B LDY #&0B 90CC 20 59 8D JSR PD59 90CF 20 EF A2 JSR R2EF 90D2 EQUS "Disk unused " 90DE EA NOP 90DF AC 05 BA LDY &BA05 90E2 A9 00 LDA #&00 90E4 85 CB STA &CB 90E6 A9 02 LDA #&02 90E8 85 CA STA &CA .Q0EA 90EA 20 C8 A3 JSR R3C8 90ED C0 F8 CPY #&F8 90EF F0 09 BEQ Q0FA 90F1 20 35 A1 JSR R135 90F4 20 4F A1 JSR R14F 90F7 4C EA 90 JMP Q0EA .Q0FA 90FA 38 SEC 90FB AD 07 BA LDA &BA07 90FE E5 CA SBC &CA 9100 85 A8 STA &A8 9102 AD 06 BA LDA &BA06 9105 29 03 AND #&03 9107 E5 CB SBC &CB 9109 85 A9 STA &A9 910B 20 3F A9 JSR R93F 910E 4C 45 84 JMP P445 9111 46 B1 LSR &B1 9113 66 B0 ROR &B0 9115 46 B1 LSR &B1 9117 66 B0 ROR &B0 9119 60 RTS 911A EQUS "SEDFS" 911F EQUW &80,&00 9121 EQUB &FF 9122 EQUS "ACCESS" 9128 EQUW &84,&F4 912A EQUB &32 912B EQUS "BACKUP" 9131 EQUW &85,&37 9133 EQUB &54 9134 EQUS "COMPACT" 913B EQUW &85,&CB 913D EQUB &0A 913E EQUS "COPY" 9142 EQUW &86,&99 9144 EQUB &64 9145 EQUS "DELETE" 914B EQUW &87,&24 914D EQUB &01 914E EQUS "DESTROY" 9155 EQUW &87,&33 9157 EQUB &02 9158 EQUS "DIR" 915B EQUW &87,&8A 915D EQUB &09 915E EQUS "DRIVE" 9163 EQUW &87,&8F 9165 EQUB &0A 9166 EQUS "ENABLE" 916C EQUW &87,&98 916E EQUB &00 916F EQUS "INFO" 9173 EQUW &87,&9E 9175 EQUB &02 9176 EQUS "LIB" 9179 EQUW &87,&B0 917B EQUB &09 917C EQUS "MAP" 917F EQUW &87,&D3 9181 EQUB &0A 9182 EQUS "MCOPY" 9187 EQUW &88,&61 9189 EQUB &D4 918A EQUS "RENAME" 9190 EQUW &89,&B8 9192 EQUB &78 9193 EQUS "RUNPROT" 919A EQUW &89,&F0 919C EQUB &01 919D EQUS "STAT" 91A1 EQUW &8A,&A5 91A3 EQUB &0A 91A4 EQUS "TITLE" 91A9 EQUW &8A,&B0 91AB EQUB &0B 91AC EQUS "TYPEAHEAD" 91B5 EQUW &8A,&DF 91B7 EQUB &0D 91B8 EQUS "WIPE" 91BC EQUW &8B,&03 91BE EQUB &02 91BF EQUW &96,&A5 91C1 EQUS "SEDFS" 91C6 EQUW &80,&00 91C8 EQUB &FF 91C9 EQUS "BUILD" 91CE EQUW &83,&F0 91D0 EQUB &01 91D1 EQUS "DISC" 91D5 EQUW &82,&31 91D7 EQUB &00 91D8 EQUS "DUMP" 91DC EQUW &83,&7F 91DE EQUB &01 91DF EQUS "FORMAT" 91E5 EQUW &A6,&A8 91E7 EQUB &8A 91E8 EQUS "FDCSTAT" 91EF EQUW &AB,&81 91F1 EQUB &80 91F2 EQUS "LIST" 91F6 EQUW &83,&3D 91F8 EQUB &01 91F9 EQUS "TYPE" 91FD EQUW &83,&36 91FF EQUB &01 9200 EQUS "VERIFY" 9206 EQUW &A7,&FE 9208 EQUB &8A 9209 EQUS "DISK" 920D EQUW &82,&31 920F EQUB &00 9210 EQUW &92,&2A 9212 EQUS "DFS" 9215 EQUW &A0,&21 9217 EQUB &00 9218 EQUS "UTILS" 921D EQUW &A0,&19 921F EQUB &00 9220 EQUS "SEDFS" 9225 EQUW &A0,&21 9227 EQUB &00 9228 EQUW &92,&2A 922A EQUB &60 .Q22B 922B 20 93 92 JSR Q293 922E 48 PHA .Q22F 922F 68 PLA 9230 A8 TAY 9231 48 PHA 9232 20 08 A4 JSR R408 9235 A2 00 LDX #&00 9237 20 AA 00 JSR &00AA 923A 38 SEC 923B 30 4E BMI Q28B 923D CA DEX 923E 88 DEY .Q23F 923F E8 INX 9240 C8 INY 9241 20 AA 00 JSR &00AA 9244 30 22 BMI Q268 9246 51 F2 EOR (&F2),Y 9248 29 5F AND #&5F 924A F0 F3 BEQ Q23F 924C B1 F2 LDA (&F2),Y 924E C9 2E CMP #&2E 9250 08 PHP .Q251 9251 E8 INX 9252 20 AA 00 JSR &00AA 9255 10 FA BPL Q251 9257 E8 INX 9258 E8 INX 9259 28 PLP 925A D0 05 BNE Q261 925C 20 AA 00 JSR &00AA 925F 10 13 BPL Q274 .Q261 9261 E8 INX 9262 20 A2 92 JSR Q2A2 9265 4C 2F 92 JMP Q22F .Q268 9268 B1 F2 LDA (&F2),Y 926A 20 E7 A3 JSR R3E7 926D B0 08 BCS Q277 926F E8 INX 9270 E8 INX 9271 4C 61 92 JMP Q261 .Q274 9274 CA DEX 9275 CA DEX 9276 C8 INY .Q277 9277 20 AA 00 JSR &00AA 927A 85 A9 STA &A9 927C E8 INX 927D 20 AA 00 JSR &00AA 9280 85 A8 STA &A8 9282 E8 INX 9283 20 AA 00 JSR &00AA 9286 C9 FF CMP #&FF 9288 F0 D7 BEQ Q261 928A 18 CLC .Q28B 928B 68 PLA 928C 60 RTS 928D 48 PHA 928E A9 9D LDA #&9D 9290 4C 96 92 JMP Q296 .Q293 9293 48 PHA 9294 A9 BD LDA #&BD .Q296 9296 85 AA STA &AA 9298 86 AB STX &AB 929A 84 AC STY &AC 929C A9 60 LDA #&60 929E 85 AD STA &AD 92A0 68 PLA 92A1 60 RTS .Q2A2 92A2 18 CLC 92A3 8A TXA 92A4 65 AB ADC &AB 92A6 85 AB STA &AB 92A8 90 02 BCC Q2AC 92AA E6 AC INC &AC .Q2AC 92AC 60 RTS .Q2AD 92AD 86 F2 STX &F2 92AF 84 F3 STY &F3 92B1 A0 00 LDY #&00 92B3 60 RTS .Q2B4 92B4 20 9A 8D JSR PD9A .Q2B7 92B7 20 43 A0 JSR R043 92BA 4C A4 8D JMP PDA4 .Q2BD 92BD 20 43 A0 JSR R043 92C0 4C 64 8C JMP PC64 .Q2C3 92C3 20 BA A3 JSR R3BA 92C6 5D 0E BA EOR &BA0E,X 92C9 29 30 AND #&30 92CB 5D 0E BA EOR &BA0E,X 92CE 9D 0E BA STA &BA0E,X 92D1 60 RTS .Q2D2 92D2 AC E2 B8 LDY &B8E2 92D5 20 C8 A3 JSR R3C8 92D8 8C E2 B8 STY &B8E2 92DB 60 RTS .Q2DC 92DC 20 37 95 JSR Q537 92DF 4C E5 92 JMP Q2E5 .Q2E2 92E2 20 2E 95 JSR Q52E .Q2E5 92E5 20 69 8D JSR PD69 92E8 A9 01 LDA #&01 92EA 20 31 A5 JSR R531 92ED 4C 16 95 JMP Q516 .Q2F0 92F0 20 2E 95 JSR Q52E 92F3 4C F9 92 JMP Q2F9 .Q2F6 92F6 20 37 95 JSR Q537 .Q2F9 92F9 20 60 8D JSR PD60 92FC A9 01 LDA #&01 92FE 4C 31 A5 JMP R531 .Q301 9301 20 A2 A2 JSR R2A2 9304 EQUB &C6 9305 EQUS "full" 9309 EQUB &00 .Q30A 930A 20 6A 8C JSR PC6A 930D 20 E8 8D JSR PDE8 9310 90 03 BCC Q315 9312 20 23 8E JSR PE23 .Q315 9315 A5 C2 LDA &C2 9317 48 PHA 9318 A5 C3 LDA &C3 931A 48 PHA 931B 38 SEC 931C A5 C4 LDA &C4 931E E5 C2 SBC &C2 9320 85 C2 STA &C2 9322 A5 C5 LDA &C5 9324 E5 C3 SBC &C3 9326 85 C3 STA &C3 9328 AD BC B8 LDA &B8BC 932B ED BA B8 SBC &B8BA 932E 85 C6 STA &C6 9330 20 46 93 JSR Q346 9333 AD BB B8 LDA &B8BB 9336 8D B7 B8 STA &B8B7 9339 AD BA B8 LDA &B8BA 933C 8D B6 B8 STA &B8B6 933F 68 PLA 9340 85 BF STA &BF 9342 68 PLA 9343 85 BE STA &BE 9345 60 RTS .Q346 9346 A9 00 LDA #&00 9348 85 C4 STA &C4 934A 20 ED 9F JSR QFED 934D 85 C5 STA &C5 934F AC 05 BA LDY &BA05 9352 C0 F8 CPY #&F8 9354 B0 4C BCS Q3A2 9356 20 D4 93 JSR Q3D4 9359 4C 64 93 JMP Q364 .Q35C 935C F0 A3 BEQ Q301 935E 20 C8 A3 JSR R3C8 9361 20 B5 93 JSR Q3B5 .Q364 9364 98 TYA 9365 90 F5 BCC Q35C 9367 84 B0 STY &B0 9369 AC 05 BA LDY &BA05 .Q36C 936C C4 B0 CPY &B0 936E F0 0F BEQ Q37F 9370 B9 07 B9 LDA &B907,Y 9373 99 0F B9 STA &B90F,Y 9376 B9 07 BA LDA &BA07,Y 9379 99 0F BA STA &BA0F,Y 937C 88 DEY 937D B0 ED BCS Q36C .Q37F 937F 20 0B 94 JSR Q40B 9382 20 FD 93 JSR Q3FD .Q385 9385 B5 BD LDA &BD,X 9387 88 DEY 9388 99 08 BA STA &BA08,Y 938B CA DEX 938C D0 F7 BNE Q385 938E 20 40 8E JSR PE40 9391 98 TYA 9392 48 PHA 9393 AC 05 BA LDY &BA05 9396 20 BF A3 JSR R3BF 9399 8C 05 BA STY &BA05 939C 20 6B 94 JSR Q46B 939F 68 PLA 93A0 A8 TAY 93A1 60 RTS .Q3A2 93A2 20 BD A2 JSR R2BD 93A5 EQUB &BE 93A6 EQUS "Catalogue full" 93B4 EQUB &00 .Q3B5 93B5 B9 0E BA LDA &BA0E,Y 93B8 20 AC A3 JSR R3AC 93BB 85 C4 STA &C4 93BD 18 CLC 93BE A9 FF LDA #&FF 93C0 79 0C BA ADC &BA0C,Y 93C3 B9 0F BA LDA &BA0F,Y 93C6 79 0D BA ADC &BA0D,Y 93C9 85 C5 STA &C5 93CB B9 0E BA LDA &BA0E,Y 93CE 29 03 AND #&03 93D0 65 C4 ADC &C4 93D2 85 C4 STA &C4 .Q3D4 93D4 A5 C5 LDA &C5 93D6 48 PHA 93D7 38 SEC 93D8 B9 07 BA LDA &BA07,Y 93DB E5 C5 SBC &C5 93DD 85 C5 STA &C5 93DF B9 06 BA LDA &BA06,Y 93E2 29 03 AND #&03 93E4 E5 C4 SBC &C4 93E6 AA TAX 93E7 05 C5 ORA &C5 93E9 D0 03 BNE Q3EE 93EB 18 CLC 93EC 90 0B BCC Q3F9 .Q3EE 93EE A9 00 LDA #&00 93F0 C5 C2 CMP &C2 93F2 A5 C5 LDA &C5 93F4 E5 C3 SBC &C3 93F6 8A TXA 93F7 E5 C6 SBC &C6 .Q3F9 93F9 68 PLA 93FA 85 C5 STA &C5 93FC 60 RTS .Q3FD 93FD A2 00 LDX #&00 .Q3FF 93FF B5 C7 LDA &C7,X 9401 99 08 B9 STA &B908,Y 9404 C8 INY 9405 E8 INX 9406 E0 08 CPX #&08 9408 D0 F5 BNE Q3FF 940A 60 RTS .Q40B 940B AD B8 B8 LDA &B8B8 940E 29 03 AND #&03 9410 0A ASL A 9411 0A ASL A 9412 45 C6 EOR &C6 9414 29 FC AND #&FC 9416 45 C6 EOR &C6 9418 0A ASL A 9419 0A ASL A 941A 4D B6 B8 EOR &B8B6 941D 29 FC AND #&FC 941F 4D B6 B8 EOR &B8B6 9422 0A ASL A 9423 0A ASL A 9424 45 C4 EOR &C4 9426 29 FC AND #&FC 9428 45 C4 EOR &C4 942A 85 C4 STA &C4 942C 60 RTS .Q42D 942D 48 PHA 942E A9 00 LDA #&00 9430 48 PHA 9431 A5 C4 LDA &C4 9433 20 AE A3 JSR R3AE 9436 C9 02 CMP #&02 9438 90 11 BCC Q44B 943A 09 FE ORA #&FE 943C 8D B6 B8 STA &B8B6 943F 68 PLA 9440 A9 FF LDA #&FF 9442 8D B7 B8 STA &B8B7 9445 68 PLA 9446 60 RTS .Q447 9447 48 PHA 9448 A9 FF LDA #&FF 944A 48 PHA .Q44B 944B 8D B6 B8 STA &B8B6 944E 68 PLA 944F 8D B7 B8 STA &B8B7 9452 68 PLA 9453 60 RTS .Q454 9454 A9 00 LDA #&00 9456 8D B9 B8 STA &B8B9 9459 A5 C4 LDA &C4 945B 20 AA A3 JSR R3AA 945E C9 03 CMP #&03 9460 D0 05 BNE Q467 9462 A9 FF LDA #&FF 9464 8D B9 B8 STA &B8B9 .Q467 9467 8D B8 B8 STA &B8B8 946A 60 RTS .Q46B 946B 18 CLC 946C F8 SED 946D AD 04 BA LDA &BA04 9470 69 01 ADC #&01 9472 8D 04 BA STA &BA04 9475 D8 CLD 9476 20 3C 95 JSR Q53C 9479 4C 8E 94 JMP Q48E .Q47C 947C AD CA B8 LDA &B8CA 947F C5 CF CMP &CF 9481 D0 05 BNE Q488 9483 20 0F AD JSR RD0F 9486 30 28 BMI Q4B0 .Q488 9488 20 5B A2 JSR R25B .Q48B 948B 20 33 95 JSR Q533 .Q48E 948E A9 00 LDA #&00 9490 8D E8 B8 STA &B8E8 9493 20 89 AC JSR RC89 9496 20 F1 A4 JSR R4F1 9499 A5 CF LDA &CF 949B 8D CA B8 STA &B8CA 949E 20 BE 94 JSR Q4BE 94A1 F0 0A BEQ Q4AD 94A3 29 40 AND #&40 94A5 D0 03 BNE Q4AA 94A7 4C C0 B1 JMP S1C0 .Q4AA 94AA 4C 93 A2 JMP R293 .Q4AD 94AD 4C BA A5 JMP R5BA .Q4B0 94B0 60 RTS 94B1 A9 00 LDA #&00 94B3 8D A0 B8 STA &B8A0 94B6 4C BE 94 JMP Q4BE .Q4B9 94B9 A9 01 LDA #&01 94BB 8D A0 B8 STA &B8A0 .Q4BE 94BE 20 84 A2 JSR R284 94C1 20 D8 94 JSR Q4D8 94C4 A2 03 LDX #&03 .Q4C6 94C6 A9 00 LDA #&00 94C8 85 A0 STA &A0 94CA A9 02 LDA #&02 94CC 85 A1 STA &A1 94CE 20 A6 AD JSR RDA6 94D1 F0 04 BEQ Q4D7 94D3 CA DEX 94D4 D0 F0 BNE Q4C6 94D6 CA DEX .Q4D7 94D7 60 RTS .Q4D8 94D8 A9 00 LDA #&00 94DA 85 A6 STA &A6 94DC A9 B9 LDA #&B9 94DE 85 A7 STA &A7 94E0 60 RTS .Q4E1 94E1 48 PHA 94E2 A5 BE LDA &BE 94E4 8D B4 B8 STA &B8B4 94E7 A5 BF LDA &BF 94E9 8D B5 B8 STA &B8B5 94EC AD B6 B8 LDA &B8B6 94EF 2D B7 B8 AND &B8B7 94F2 0D E9 B8 ORA &B8E9 94F5 49 FF EOR #&FF 94F7 8D E8 B8 STA &B8E8 94FA 38 SEC 94FB F0 0D BEQ Q50A 94FD 20 0C 95 JSR Q50C 9500 A2 B4 LDX #&B4 9502 A0 B8 LDY #&B8 9504 68 PLA 9505 48 PHA 9506 20 06 04 JSR &0406 9509 18 CLC .Q50A 950A 68 PLA 950B 60 RTS .Q50C 950C 48 PHA .Q50D 950D A9 C1 LDA #&C1 950F 20 06 04 JSR &0406 9512 90 F9 BCC Q50D 9514 68 PLA 9515 60 RTS .Q516 9516 48 PHA 9517 AD E8 B8 LDA &B8E8 951A F0 05 BEQ Q521 .Q51C 951C A9 81 LDA #&81 951E 20 06 04 JSR &0406 .Q521 9521 68 PLA 9522 60 RTS .Q523 9523 48 PHA 9524 A9 EA LDA #&EA 9526 20 1B A6 JSR R61B 9529 8A TXA 952A D0 F0 BNE Q51C 952C 68 PLA 952D 60 RTS .Q52E 952E A9 01 LDA #&01 9530 20 E1 94 JSR Q4E1 .Q533 9533 A9 00 LDA #&00 9535 F0 07 BEQ Q53E .Q537 9537 A9 00 LDA #&00 9539 20 E1 94 JSR Q4E1 .Q53C 953C A9 01 LDA #&01 .Q53E 953E 8D A0 B8 STA &B8A0 9541 20 D6 A5 JSR R5D6 9544 A9 FF LDA #&FF 9546 8D CA B8 STA &B8CA 9549 60 RTS 954A 20 3D A2 JSR R23D 954D 8E EE 02 STX &02EE 9550 8C EF 02 STY &02EF 9553 20 00 A0 JSR R000 9556 AD CF B8 LDA &B8CF 9559 8D F1 02 STA &02F1 955C A9 00 LDA #&00 955E 8D F0 02 STA &02F0 9561 20 E7 95 JSR Q5E7 9564 A2 0C LDX #&0C 9566 A9 8C LDA #&8C 9568 20 F4 FF JSR &FFF4 956B A9 FF LDA #&FF 956D 20 E0 95 JSR Q5E0 9570 A2 F4 LDX #&F4 9572 A0 95 LDY #&95 9574 20 F7 FF JSR &FFF7 9577 A9 B2 LDA #&B2 9579 8D EE 02 STA &02EE 957C A9 03 LDA #&03 957E 8D EF 02 STA &02EF 9581 A2 00 LDX #&00 .Q583 9583 BD B2 03 LDA &03B2,X 9586 F0 05 BEQ Q58D 9588 E8 INX 9589 E0 07 CPX #&07 958B D0 F6 BNE Q583 .Q58D 958D A9 0D LDA #&0D 958F 9D B2 03 STA &03B2,X 9592 20 F9 95 JSR Q5F9 9595 A5 B0 LDA &B0 9597 F0 02 BEQ Q59B 9599 E6 B1 INC &B1 .Q59B 959B AD D1 B8 LDA &B8D1 959E C5 B1 CMP &B1 95A0 B0 13 BCS Q5B5 95A2 20 B5 A2 JSR R2B5 95A5 EQUB &D4 95A6 EQUS "size too large" 95B4 EQUB &00 .Q5B5 95B5 20 F9 95 JSR Q5F9 95B8 A9 00 LDA #&00 95BA 8D F8 02 STA &02F8 95BD AD CF B8 LDA &B8CF 95C0 8D F9 02 STA &02F9 95C3 18 CLC 95C4 65 B1 ADC &B1 95C6 8D FD 02 STA &02FD 95C9 A5 B0 LDA &B0 95CB 8D FC 02 STA &02FC 95CE A9 00 LDA #&00 95D0 20 E0 95 JSR Q5E0 95D3 A2 07 LDX #&07 .Q5D5 95D5 BD BE 03 LDA &03BE,X 95D8 9D F0 02 STA &02F0,X 95DB CA DEX 95DC 10 F7 BPL Q5D5 95DE A9 01 LDA #&01 .Q5E0 95E0 A2 EE LDX #&EE 95E2 A0 02 LDY #&02 95E4 4C DD FF JMP &FFDD .Q5E7 95E7 A2 04 LDX #&04 95E9 A9 00 LDA #&00 .Q5EB 95EB 9D EE 02 STA &02EE,X 95EE E8 INX 95EF E0 11 CPX #&11 95F1 90 F8 BCC Q5EB 95F3 60 RTS 95F4 EQUS "DISC" 95F8 EQUB &0D .Q5F9 95F9 AD C8 03 LDA &03C8 95FC 85 B0 STA &B0 95FE 18 CLC 95FF AD C6 03 LDA &03C6 9602 6D C9 03 ADC &03C9 9605 85 B1 STA &B1 9607 60 RTS 9608 C9 09 CMP #&09 960A B0 0E BCS Q61A 960C 86 B5 STX &B5 960E AA TAX 960F BD 47 A6 LDA &A647,X 9612 48 PHA 9613 BD 3E A6 LDA &A63E,X 9616 48 PHA 9617 8A TXA 9618 A6 B5 LDX &B5 .Q61A 961A 60 RTS 961B 20 5B A2 JSR R25B 961E E0 01 CPX #&01 9620 90 19 BCC Q63B 9622 F0 19 BEQ Q63D 9624 E0 04 CPX #&04 9626 F0 1F BEQ Q647 9628 E0 07 CPX #&07 962A F0 35 BEQ Q661 962C E0 08 CPX #&08 962E F0 49 BEQ Q679 .Q630 9630 20 AC A2 JSR R2AC 9633 EQUB &CB 9634 EQUS "option" 963A EQUB &00 .Q63B 963B A9 00 LDA #&00 .Q63D 963D A2 FF LDX #&FF 963F 98 TYA 9640 F0 01 BEQ Q643 9642 E8 INX .Q643 9643 8E E4 B8 STX &B8E4 9646 60 RTS .Q647 9647 98 TYA 9648 48 PHA 9649 20 45 A4 JSR R445 964C 20 8B 94 JSR Q48B 964F 68 PLA 9650 20 BA A3 JSR R3BA 9653 4D 06 BA EOR &BA06 9656 29 30 AND #&30 9658 4D 06 BA EOR &BA06 965B 8D 06 BA STA &BA06 965E 4C 6B 94 JMP Q46B .Q661 9661 C0 04 CPY #&04 9663 B0 CB BCS Q630 9665 98 TYA 9666 49 03 EOR #&03 9668 8D D4 B8 STA &B8D4 966B AD FE B8 LDA &B8FE 966E 29 FC AND #&FC 9670 0D D4 B8 ORA &B8D4 9673 09 80 ORA #&80 9675 8D FE B8 STA &B8FE 9678 60 RTS .Q679 9679 A9 40 LDA #&40 967B C8 INY 967C C0 03 CPY #&03 967E B0 B0 BCS Q630 9680 B9 87 96 LDA &9687,Y 9683 8D F3 B8 STA &B8F3 9686 60 RTS 9687 EQUB &80,&00,&40 968A 48 PHA 968B 98 TYA 968C 48 PHA 968D 8A TXA 968E A8 TAY 968F 20 4A 9A JSR QA4A 9692 98 TYA 9693 20 6A 9C JSR QC6A 9696 D0 04 BNE Q69C 9698 A2 FF LDX #&FF 969A D0 02 BNE Q69E .Q69C 969C A2 00 LDX #&00 .Q69E 969E 68 PLA 969F A8 TAY 96A0 68 PLA 96A1 60 RTS 96A2 20 AD 92 JSR Q2AD .Q6A5 96A5 20 12 97 JSR Q712 96A8 8C ED B8 STY &B8ED 96AB 20 6A 8C JSR PC6A 96AE 8C EC B8 STY &B8EC 96B1 20 E8 8D JSR PDE8 96B4 B0 22 BCS Q6D8 96B6 AC ED B8 LDY &B8ED 96B9 AD DF B8 LDA &B8DF 96BC 85 CE STA &CE 96BE AD E0 B8 LDA &B8E0 96C1 20 4D A4 JSR R44D 96C4 20 6D 8C JSR PC6D 96C7 20 E8 8D JSR PDE8 96CA B0 0C BCS Q6D8 .Q6CC 96CC 20 AC A2 JSR R2AC 96CF EQUB &FE 96D0 EQUS "command" 96D7 EQUB &00 .Q6D8 96D8 20 15 9D JSR QD15 96DB 18 CLC 96DC AD EC B8 LDA &B8EC 96DF A8 TAY 96E0 65 F2 ADC &F2 96E2 8D EC B8 STA &B8EC 96E5 A5 F3 LDA &F3 96E7 69 00 ADC #&00 96E9 8D ED B8 STA &B8ED 96EC AD B8 B8 LDA &B8B8 96EF 2D B9 B8 AND &B8B9 96F2 0D E9 B8 ORA &B8E9 96F5 C9 FF CMP #&FF 96F7 F0 16 BEQ Q70F 96F9 A5 C0 LDA &C0 96FB 8D B6 B8 STA &B8B6 96FE A5 C1 LDA &C1 9700 8D B7 B8 STA &B8B7 9703 20 0C 95 JSR Q50C 9706 A2 B6 LDX #&B6 9708 A0 B8 LDY #&B8 970A A9 04 LDA #&04 970C 4C 06 04 JMP &0406 .Q70F 970F 6C C0 00 JMP (&00C0) .Q712 9712 A9 FF LDA #&FF 9714 85 C0 STA &C0 9716 A5 F2 LDA &F2 9718 85 BC STA &BC 971A A5 F3 LDA &F3 971C 85 BD STA &BD 971E 60 RTS 971F 20 AD 92 JSR Q2AD 9722 A2 1A LDX #&1A 9724 A0 91 LDY #&91 9726 A9 00 LDA #&00 9728 20 2B 92 JSR Q22B 972B B0 06 BCS Q733 972D BA TSX 972E 86 B8 STX &B8 9730 4C 25 81 JMP P125 .Q733 9733 4C A5 96 JMP Q6A5 9736 20 AD 92 JSR Q2AD 9739 20 32 A4 JSR R432 973C 20 7C 94 JSR Q47C 973F 20 B0 8F JSR PFB0 9742 20 07 90 JSR Q007 9745 20 3F 90 JSR Q03F 9748 4C F8 8E JMP PEF8 .Q74B 974B 20 5B A2 JSR R25B 974E A9 77 LDA #&77 9750 4C F4 FF JMP &FFF4 9753 A2 11 LDX #&11 9755 A0 15 LDY #&15 9757 60 RTS 9758 2C E5 B8 BIT &B8E5 975B 30 03 BMI Q760 975D CE E5 B8 DEC &B8E5 .Q760 9760 A9 FF LDA #&FF 9762 8D CA B8 STA &B8CA 9765 60 RTS .Q766 9766 20 DE A4 JSR R4DE .Q769 9769 A2 00 LDX #&00 .Q76B 976B B9 00 B8 LDA &B800,Y 976E 95 C7 STA &C7,X 9770 C8 INY 9771 C8 INY 9772 E8 INX 9773 E0 07 CPX #&07 9775 D0 F4 BNE Q76B 9777 20 E8 8D JSR PDE8 977A 90 1A BCC Q796 977C 8C DA B8 STY &B8DA 977F B9 0E BA LDA &BA0E,Y 9782 BE 0F BA LDX &BA0F,Y 9785 AC D8 B8 LDY &B8D8 9788 59 0D B8 EOR &B80D,Y 978B 29 03 AND #&03 978D D0 07 BNE Q796 978F 8A TXA 9790 D9 0F B8 CMP &B80F,Y 9793 D0 01 BNE Q796 9795 60 RTS .Q796 9796 4C 14 8D JMP PD14 9799 C9 00 CMP #&00 979B D0 68 BNE Q805 979D 20 5B A2 JSR R25B .Q7A0 97A0 98 TYA 97A1 F0 08 BEQ Q7AB 97A3 20 63 9A JSR QA63 97A6 90 19 BCC Q7C1 97A8 4C 76 9A JMP QA76 .Q7AB 97AB 20 4B 97 JSR Q74B .Q7AE 97AE A0 11 LDY #&11 .Q7B0 97B0 B9 60 9A LDA &9A60,Y 97B3 2C D6 B8 BIT &B8D6 97B6 F0 03 BEQ Q7BB 97B8 20 C1 97 JSR Q7C1 .Q7BB 97BB C8 INY 97BC C0 16 CPY #&16 97BE D0 F0 BNE Q7B0 97C0 60 RTS .Q7C1 97C1 48 PHA 97C2 98 TYA 97C3 48 PHA 97C4 20 4A 9A JSR QA4A 97C7 B9 1B B8 LDA &B81B,Y 97CA 49 FF EOR #&FF 97CC 2D D6 B8 AND &B8D6 97CF 8D D6 B8 STA &B8D6 97D2 B9 17 B8 LDA &B817,Y 97D5 29 60 AND #&60 97D7 F0 28 BEQ Q801 97D9 20 66 97 JSR Q766 97DC B9 17 B8 LDA &B817,Y 97DF 29 20 AND #&20 97E1 F0 1B BEQ Q7FE 97E3 AE DA B8 LDX &B8DA 97E6 B9 14 B8 LDA &B814,Y 97E9 9D 0C BA STA &BA0C,X 97EC B9 15 B8 LDA &B815,Y 97EF 9D 0D BA STA &BA0D,X 97F2 B9 16 B8 LDA &B816,Y 97F5 20 C3 92 JSR Q2C3 97F8 20 6B 94 JSR Q46B 97FB AC D8 B8 LDY &B8D8 .Q7FE 97FE 20 01 9B JSR QB01 .Q801 9801 68 PLA 9802 A8 TAY 9803 68 PLA 9804 60 RTS .Q805 9805 20 84 A2 JSR R284 9808 86 BC STX &BC 980A 84 BD STY &BD 980C 85 B4 STA &B4 980E 24 B4 BIT &B4 9810 08 PHP 9811 20 6A 8C JSR PC6A 9814 20 FC 98 JSR Q8FC 9817 A2 C7 LDX #&C7 9819 A9 00 LDA #&00 981B A8 TAY 981C 20 3A 99 JSR Q93A 981F 90 17 BCC Q838 .Q821 9821 B9 0C B8 LDA &B80C,Y 9824 10 04 BPL Q82A 9826 28 PLP 9827 08 PHP 9828 10 09 BPL Q833 .Q82A 982A 20 B5 A2 JSR R2B5 982D EQUB &C2 982E EQUS "open" 9832 EQUB &00 .Q833 9833 20 51 99 JSR Q951 9836 B0 E9 BCS Q821 .Q838 9838 20 9E 8D JSR PD9E 983B 20 E8 8D JSR PDE8 983E B0 18 BCS Q858 9840 A9 00 LDA #&00 9842 28 PLP 9843 50 01 BVC Q846 9845 60 RTS .Q846 9846 08 PHP 9847 A2 07 LDX #&07 .Q849 9849 95 BE STA &BE,X 984B 9D B6 B8 STA &B8B6,X 984E CA DEX 984F 10 F8 BPL Q849 9851 A9 40 LDA #&40 9853 85 C5 STA &C5 9855 20 0A 93 JSR Q30A .Q858 9858 98 TYA 9859 AA TAX 985A 28 PLP 985B 08 PHP 985C 70 03 BVS Q861 985E 20 9E 9D JSR QD9E .Q861 9861 A9 08 LDA #&08 9863 8D DB B8 STA &B8DB 9866 AC D8 B8 LDY &B8D8 .Q869 9869 BD 08 B9 LDA &B908,X 986C 99 00 B8 STA &B800,Y 986F C8 INY 9870 BD 08 BA LDA &BA08,X 9873 99 00 B8 STA &B800,Y 9876 C8 INY 9877 E8 INX 9878 CE DB B8 DEC &B8DB 987B D0 EC BNE Q869 987D A2 10 LDX #&10 987F A9 00 LDA #&00 .Q881 9881 99 00 B8 STA &B800,Y 9884 C8 INY 9885 CA DEX 9886 D0 F9 BNE Q881 9888 AC D8 B8 LDY &B8D8 988B 98 TYA 988C 20 B3 A3 JSR R3B3 988F 69 BB ADC #&BB 9891 99 13 B8 STA &B813,Y 9894 AD D7 B8 LDA &B8D7 9897 99 1B B8 STA &B81B,Y 989A 0D D6 B8 ORA &B8D6 989D 8D D6 B8 STA &B8D6 98A0 B9 09 B8 LDA &B809,Y 98A3 69 FF ADC #&FF 98A5 B9 0B B8 LDA &B80B,Y 98A8 69 00 ADC #&00 98AA 99 19 B8 STA &B819,Y 98AD B9 0D B8 LDA &B80D,Y 98B0 09 0F ORA #&0F 98B2 69 00 ADC #&00 98B4 20 AC A3 JSR R3AC 98B7 99 1A B8 STA &B81A,Y 98BA 28 PLP 98BB 50 38 BVC Q8F5 98BD 30 08 BMI Q8C7 98BF A9 80 LDA #&80 98C1 19 0C B8 ORA &B80C,Y 98C4 99 0C B8 STA &B80C,Y .Q8C7 98C7 B9 09 B8 LDA &B809,Y 98CA 99 14 B8 STA &B814,Y 98CD B9 0B B8 LDA &B80B,Y 98D0 99 15 B8 STA &B815,Y 98D3 B9 0D B8 LDA &B80D,Y 98D6 20 AC A3 JSR R3AC 98D9 99 16 B8 STA &B816,Y .Q8DC 98DC A5 CF LDA &CF 98DE 99 1F B8 STA &B81F,Y 98E1 AD F3 B8 LDA &B8F3 98E4 99 1E B8 STA &B81E,Y 98E7 98 TYA 98E8 20 B3 A3 JSR R3B3 98EB 48 PHA 98EC A8 TAY 98ED 20 ED 84 JSR P4ED 98F0 68 PLA 98F1 18 CLC 98F2 69 11 ADC #&11 98F4 60 RTS .Q8F5 98F5 A9 20 LDA #&20 98F7 99 17 B8 STA &B817,Y 98FA D0 E0 BNE Q8DC .Q8FC 98FC 20 19 99 JSR Q919 98FF 90 33 BCC Q934 9901 20 BD A2 JSR R2BD 9904 EQUB &C0 9905 EQUS "Too many files open" 9918 EQUB &00 .Q919 9919 AD D6 B8 LDA &B8D6 991C A2 04 LDX #&04 .Q91E 991E 0A ASL A 991F 90 04 BCC Q925 9921 CA DEX 9922 10 FA BPL Q91E 9924 60 RTS .Q925 9925 BD 35 99 LDA &9935,X 9928 8D D8 B8 STA &B8D8 992B A9 04 LDA #&04 .Q92D 992D 0A ASL A 992E CA DEX 992F 10 FC BPL Q92D 9931 8D D7 B8 STA &B8D7 .Q934 9934 60 RTS 9935 EQUB &80,&60,&40 9938 EQUB &20,&00 .Q93A 993A 86 B0 STX &B0 993C 84 B1 STY &B1 993E 85 B2 STA &B2 9940 AD D6 B8 LDA &B8D6 9943 29 F8 AND #&F8 9945 85 B5 STA &B5 9947 A2 00 LDX #&00 9949 86 B4 STX &B4 994B 06 B5 ASL &B5 994D B0 0C BCS Q95B 994F F0 08 BEQ Q959 .Q951 9951 A5 B4 LDA &B4 9953 18 CLC 9954 69 20 ADC #&20 9956 AA TAX 9957 C9 A0 CMP #&A0 .Q959 9959 18 CLC 995A 60 RTS .Q95B 995B BD 1F B8 LDA &B81F,X 995E 45 CF EOR &CF 9960 D0 EF BNE Q951 9962 A9 08 LDA #&08 9964 85 B3 STA &B3 9966 A4 B2 LDY &B2 .Q968 9968 B1 B0 LDA (&B0),Y 996A 5D 00 B8 EOR &B800,X 996D 29 7F AND #&7F 996F D0 E0 BNE Q951 9971 C8 INY 9972 E8 INX 9973 E8 INX 9974 C6 B3 DEC &B3 9976 D0 F0 BNE Q968 9978 A4 B4 LDY &B4 997A 60 RTS 997B C0 00 CPY #&00 997D F0 11 BEQ Q990 997F 20 5B A2 JSR R25B 9982 C9 FF CMP #&FF 9984 F0 3B BEQ Q9C1 9986 C9 03 CMP #&03 9988 B0 17 BCS Q9A1 998A 4A LSR A 998B 90 40 BCC Q9CD 998D 4C ED 99 JMP Q9ED .Q990 9990 20 84 A2 JSR R284 9993 A8 TAY 9994 C8 INY 9995 C0 03 CPY #&03 9997 B0 08 BCS Q9A1 9999 B9 53 A6 LDA &A653,Y 999C 48 PHA 999D B9 50 A6 LDA &A650,Y 99A0 48 PHA .Q9A1 99A1 60 RTS 99A2 A9 04 LDA #&04 99A4 60 RTS 99A5 A9 FF LDA #&FF 99A7 95 02 STA &02,X 99A9 95 03 STA &03,X 99AB AD EC B8 LDA &B8EC 99AE 95 00 STA &00,X 99B0 AD ED B8 LDA &B8ED 99B3 95 01 STA &01,X 99B5 A9 00 LDA #&00 99B7 60 RTS 99B8 AD D6 B8 LDA &B8D6 99BB 48 PHA 99BC 20 AE 97 JSR Q7AE 99BF F0 07 BEQ Q9C8 .Q9C1 99C1 AD D6 B8 LDA &B8D6 99C4 48 PHA 99C5 20 A0 97 JSR Q7A0 .Q9C8 99C8 68 PLA 99C9 8D D6 B8 STA &B8D6 99CC 60 RTS .Q9CD 99CD 20 5B A2 JSR R25B 99D0 20 4A 9A JSR QA4A 99D3 0A ASL A 99D4 0A ASL A 99D5 6D D8 B8 ADC &B8D8 99D8 A8 TAY 99D9 B9 10 B8 LDA &B810,Y 99DC 95 00 STA &00,X 99DE B9 11 B8 LDA &B811,Y 99E1 95 01 STA &01,X 99E3 B9 12 B8 LDA &B812,Y 99E6 95 02 STA &02,X 99E8 A9 00 LDA #&00 99EA 95 03 STA &03,X 99EC 60 RTS .Q9ED 99ED 20 5B A2 JSR R25B 99F0 20 4A 9A JSR QA4A 99F3 38 SEC 99F4 B9 1C B8 LDA &B81C,Y 99F7 F9 0F B8 SBC &B80F,Y 99FA 85 B0 STA &B0 99FC B9 1D B8 LDA &B81D,Y 99FF F9 0D B8 SBC &B80D,Y 9A02 29 03 AND #&03 9A04 D5 02 CMP &02,X 9A06 D0 06 BNE QA0E 9A08 A5 B0 LDA &B0 9A0A D5 01 CMP &01,X 9A0C F0 0B BEQ QA19 .QA0E 9A0E 20 DE A4 JSR R4DE 9A11 20 FE 9A JSR QAFE 9A14 A9 6F LDA #&6F 9A16 20 F6 9A JSR QAF6 .QA19 9A19 20 82 9C JSR QC82 9A1C B0 1C BCS QA3A 9A1E B9 14 B8 LDA &B814,Y 9A21 99 10 B8 STA &B810,Y 9A24 B9 15 B8 LDA &B815,Y 9A27 99 11 B8 STA &B811,Y 9A2A B9 16 B8 LDA &B816,Y 9A2D 99 12 B8 STA &B812,Y .QA30 9A30 A9 00 LDA #&00 9A32 20 53 9B JSR QB53 9A35 20 82 9C JSR QC82 9A38 90 F6 BCC QA30 .QA3A 9A3A B5 00 LDA &00,X 9A3C 99 10 B8 STA &B810,Y 9A3F B5 01 LDA &01,X 9A41 99 11 B8 STA &B811,Y 9A44 B5 02 LDA &02,X 9A46 99 12 B8 STA &B812,Y 9A49 60 RTS .QA4A 9A4A 48 PHA 9A4B 20 63 9A JSR QA63 9A4E B0 26 BCS QA76 9A50 B9 5B 9A LDA &9A5B,Y 9A53 8D D8 B8 STA &B8D8 9A56 B9 60 9A LDA &9A60,Y 9A59 AC D8 B8 LDY &B8D8 9A5C 2C D6 B8 BIT &B8D6 9A5F F0 15 BEQ QA76 9A61 68 PLA 9A62 60 RTS .QA63 9A63 C0 11 CPY #&11 9A65 90 03 BCC QA6A 9A67 C0 16 CPY #&16 9A69 60 RTS .QA6A 9A6A 38 SEC 9A6B 60 RTS 9A6C EQUB &00,&20,&40 9A6F EQUB &60,&80 9A71 EQUB &80,&40,&20 9A74 EQUB &10,&08 .QA76 9A76 20 BD A2 JSR R2BD 9A79 EQUB &DE 9A7A EQUS "Channel" 9A81 EQUB &00 .QA82 9A82 20 BD A2 JSR R2BD 9A85 EQUB &DF 9A86 EQUS "EOF" 9A89 EQUB &00 .QA8A 9A8A 8E A5 B8 STX &B8A5 9A8D 8C A6 B8 STY &B8A6 9A90 20 4A 9A JSR QA4A 9A93 98 TYA 9A94 20 6A 9C JSR QC6A 9A97 D0 11 BNE QAAA 9A99 B9 17 B8 LDA &B817,Y 9A9C 29 10 AND #&10 9A9E D0 E2 BNE QA82 9AA0 A9 10 LDA #&10 9AA2 20 EF 9A JSR QAEF 9AA5 A9 FE LDA #&FE 9AA7 38 SEC 9AA8 B0 21 BCS QACB .QAAA 9AAA B9 17 B8 LDA &B817,Y 9AAD 30 0A BMI QAB9 9AAF 20 DE A4 JSR R4DE 9AB2 20 01 9B JSR QB01 9AB5 38 SEC 9AB6 20 09 9B JSR QB09 .QAB9 9AB9 B9 10 B8 LDA &B810,Y 9ABC 85 BC STA &BC 9ABE B9 13 B8 LDA &B813,Y 9AC1 85 BD STA &BD 9AC3 20 53 9C JSR QC53 9AC6 A0 00 LDY #&00 9AC8 B1 BC LDA (&BC),Y 9ACA 18 CLC .QACB 9ACB AE A5 B8 LDX &B8A5 9ACE AC A6 B8 LDY &B8A6 9AD1 48 PHA 9AD2 68 PLA 9AD3 60 RTS .QAD4 9AD4 18 CLC 9AD5 B9 0F B8 LDA &B80F,Y 9AD8 79 11 B8 ADC &B811,Y 9ADB 85 C5 STA &C5 9ADD 99 1C B8 STA &B81C,Y 9AE0 B9 0D B8 LDA &B80D,Y 9AE3 29 03 AND #&03 9AE5 79 12 B8 ADC &B812,Y 9AE8 85 C4 STA &C4 9AEA 99 1D B8 STA &B81D,Y 9AED A9 80 LDA #&80 .QAEF 9AEF 19 17 B8 ORA &B817,Y 9AF2 D0 05 BNE QAF9 .QAF4 9AF4 A9 7F LDA #&7F .QAF6 9AF6 39 17 B8 AND &B817,Y .QAF9 9AF9 99 17 B8 STA &B817,Y 9AFC 18 CLC 9AFD 60 RTS .QAFE 9AFE 20 5B A2 JSR R25B .QB01 9B01 B9 17 B8 LDA &B817,Y 9B04 29 40 AND #&40 9B06 F0 39 BEQ QB41 9B08 18 CLC .QB09 9B09 08 PHP 9B0A AC D8 B8 LDY &B8D8 9B0D B9 13 B8 LDA &B813,Y 9B10 85 BF STA &BF 9B12 20 47 94 JSR Q447 9B15 A9 00 LDA #&00 9B17 85 BE STA &BE 9B19 85 C2 STA &C2 9B1B A9 01 LDA #&01 9B1D 85 C3 STA &C3 9B1F 28 PLP 9B20 B0 11 BCS QB33 9B22 B9 1C B8 LDA &B81C,Y 9B25 85 C5 STA &C5 9B27 B9 1D B8 LDA &B81D,Y 9B2A 85 C4 STA &C4 9B2C 20 DC 92 JSR Q2DC 9B2F A9 BF LDA #&BF 9B31 D0 08 BNE QB3B .QB33 9B33 20 D4 9A JSR QAD4 9B36 20 E2 92 JSR Q2E2 9B39 A9 FF LDA #&FF .QB3B 9B3B AC D8 B8 LDY &B8D8 9B3E 20 F6 9A JSR QAF6 .QB41 9B41 60 RTS .QB42 9B42 4C A3 9D JMP QDA3 .QB45 9B45 20 B5 A2 JSR R2B5 9B48 EQUB &C1 9B49 EQUS "read only" 9B52 EQUB &00 .QB53 9B53 20 5B A2 JSR R25B 9B56 4C 65 9B JMP QB65 .QB59 9B59 8D A4 B8 STA &B8A4 9B5C 8E A5 B8 STX &B8A5 9B5F 8C A6 B8 STY &B8A6 9B62 20 4A 9A JSR QA4A .QB65 9B65 48 PHA 9B66 B9 0C B8 LDA &B80C,Y 9B69 30 DA BMI QB45 9B6B B9 0E B8 LDA &B80E,Y 9B6E 30 D2 BMI QB42 9B70 20 DE A4 JSR R4DE 9B73 98 TYA 9B74 18 CLC 9B75 69 04 ADC #&04 9B77 20 6A 9C JSR QC6A 9B7A D0 7D BNE QBF9 9B7C 20 69 97 JSR Q769 9B7F AE DA B8 LDX &B8DA 9B82 38 SEC 9B83 BD 07 BA LDA &BA07,X 9B86 FD 0F BA SBC &BA0F,X 9B89 85 BC STA &BC 9B8B BD 06 BA LDA &BA06,X 9B8E FD 0E BA SBC &BA0E,X 9B91 29 03 AND #&03 9B93 85 BD STA &BD 9B95 38 SEC 9B96 A5 BC LDA &BC 9B98 F9 19 B8 SBC &B819,Y 9B9B 85 BC STA &BC 9B9D A5 BD LDA &BD 9B9F F9 1A B8 SBC &B81A,Y 9BA2 85 BD STA &BD 9BA4 05 BC ORA &BC 9BA6 D0 27 BNE QBCF 9BA8 20 09 A6 JSR R609 9BAB 8A TXA 9BAC F0 0A BEQ QBB8 9BAE BD 5B 9A LDA &9A5B,X 9BB1 C5 B4 CMP &B4 9BB3 D0 03 BNE QBB8 9BB5 20 F8 A5 JSR R5F8 .QBB8 9BB8 AC A6 B8 LDY &B8A6 9BBB 20 C1 97 JSR Q7C1 9BBE 20 BD A2 JSR R2BD 9BC1 EQUB &BF 9BC2 EQUS "Can't extend" 9BCE EQUB &00 .QBCF 9BCF A5 BD LDA &BD 9BD1 D0 04 BNE QBD7 9BD3 A5 BC LDA &BC 9BD5 10 02 BPL QBD9 .QBD7 9BD7 A9 40 LDA #&40 .QBD9 9BD9 18 CLC 9BDA 7D 0D BA ADC &BA0D,X 9BDD 9D 0D BA STA &BA0D,X 9BE0 99 19 B8 STA &B819,Y 9BE3 B9 1A B8 LDA &B81A,Y 9BE6 69 00 ADC #&00 9BE8 99 1A B8 STA &B81A,Y 9BEB 20 C3 92 JSR Q2C3 9BEE A9 00 LDA #&00 9BF0 9D 0C BA STA &BA0C,X 9BF3 20 6B 94 JSR Q46B 9BF6 AC D8 B8 LDY &B8D8 .QBF9 9BF9 B9 17 B8 LDA &B817,Y 9BFC 30 17 BMI QC15 9BFE 20 01 9B JSR QB01 9C01 B9 14 B8 LDA &B814,Y 9C04 D0 0B BNE QC11 9C06 98 TYA 9C07 20 6A 9C JSR QC6A 9C0A D0 05 BNE QC11 9C0C 20 D4 9A JSR QAD4 9C0F D0 04 BNE QC15 .QC11 9C11 38 SEC 9C12 20 09 9B JSR QB09 .QC15 9C15 B9 10 B8 LDA &B810,Y 9C18 85 BC STA &BC 9C1A B9 13 B8 LDA &B813,Y 9C1D 85 BD STA &BD 9C1F 20 53 9C JSR QC53 9C22 68 PLA 9C23 A2 00 LDX #&00 9C25 81 BC STA (&BC,X) 9C27 A9 40 LDA #&40 9C29 20 EF 9A JSR QAEF 9C2C 98 TYA 9C2D 20 6A 9C JSR QC6A 9C30 90 17 BCC QC49 9C32 A9 20 LDA #&20 9C34 20 EF 9A JSR QAEF 9C37 B9 10 B8 LDA &B810,Y 9C3A 99 14 B8 STA &B814,Y 9C3D B9 11 B8 LDA &B811,Y 9C40 99 15 B8 STA &B815,Y 9C43 B9 12 B8 LDA &B812,Y 9C46 99 16 B8 STA &B816,Y .QC49 9C49 AD A4 B8 LDA &B8A4 9C4C AE A5 B8 LDX &B8A5 9C4F AC A6 B8 LDY &B8A6 9C52 60 RTS .QC53 9C53 98 TYA 9C54 AA TAX 9C55 A5 BC LDA &BC 9C57 9D 10 B8 STA &B810,X 9C5A FE 10 B8 INC &B810,X 9C5D D0 22 BNE QC81 9C5F FE 11 B8 INC &B811,X 9C62 D0 03 BNE QC67 9C64 FE 12 B8 INC &B812,X .QC67 9C67 4C F4 9A JMP QAF4 .QC6A 9C6A AA TAX 9C6B B9 12 B8 LDA &B812,Y 9C6E DD 16 B8 CMP &B816,X 9C71 D0 0E BNE QC81 9C73 B9 11 B8 LDA &B811,Y 9C76 DD 15 B8 CMP &B815,X 9C79 D0 06 BNE QC81 9C7B B9 10 B8 LDA &B810,Y 9C7E DD 14 B8 CMP &B814,X .QC81 9C81 60 RTS .QC82 9C82 B9 14 B8 LDA &B814,Y 9C85 D5 00 CMP &00,X 9C87 B9 15 B8 LDA &B815,Y 9C8A F5 01 SBC &01,X 9C8C B9 16 B8 LDA &B816,Y 9C8F F5 02 SBC &02,X 9C91 60 RTS 9C92 20 84 A2 JSR R284 9C95 48 PHA 9C96 20 9E 8D JSR PD9E 9C99 86 B0 STX &B0 9C9B 8E EE B8 STX &B8EE 9C9E 84 B1 STY &B1 9CA0 8C EF B8 STY &B8EF 9CA3 A2 00 LDX #&00 9CA5 A0 00 LDY #&00 9CA7 20 5A 8C JSR PC5A .QCAA 9CAA 20 4A 8C JSR PC4A 9CAD C0 12 CPY #&12 9CAF D0 F9 BNE QCAA 9CB1 68 PLA 9CB2 AA TAX 9CB3 E8 INX 9CB4 E0 08 CPX #&08 9CB6 B0 08 BCS QCC0 9CB8 BD 5E A6 LDA &A65E,X 9CBB 48 PHA 9CBC BD 56 A6 LDA &A656,X 9CBF 48 PHA .QCC0 9CC0 60 RTS 9CC1 20 0A 93 JSR Q30A 9CC4 20 D8 9D JSR QDD8 9CC7 20 8E 8E JSR PE8E 9CCA 4C DC 92 JMP Q2DC 9CCD 20 99 9D JSR QD99 9CD0 20 41 9D JSR QD41 9CD3 20 5D 9D JSR QD5D 9CD6 50 16 BVC QCEE 9CD8 20 99 9D JSR QD99 9CDB 20 41 9D JSR QD41 9CDE 50 11 BVC QCF1 9CE0 20 99 9D JSR QD99 9CE3 20 5D 9D JSR QD5D 9CE6 50 09 BVC QCF1 9CE8 20 C4 9D JSR QDC4 9CEB 20 B1 9D JSR QDB1 .QCEE 9CEE 20 80 9D JSR QD80 .QCF1 9CF1 20 D0 8A JSR PAD0 9CF4 A9 01 LDA #&01 9CF6 60 RTS 9CF7 20 C4 9D JSR QDC4 9CFA 20 8E 8E JSR PE8E 9CFD A9 01 LDA #&01 9CFF 60 RTS 9D00 20 99 9D JSR QD99 9D03 20 8E 8E JSR PE8E 9D06 20 23 8E JSR PE23 9D09 4C F1 9C JMP QCF1 9D0C 20 AA 8D JSR PDAA 9D0F 20 D8 9D JSR QDD8 9D12 20 8E 8E JSR PE8E .QD15 9D15 84 BC STY &BC 9D17 A2 00 LDX #&00 9D19 A5 C0 LDA &C0 9D1B D0 06 BNE QD23 9D1D C8 INY 9D1E C8 INY 9D1F A2 02 LDX #&02 9D21 D0 08 BNE QD2B .QD23 9D23 B9 0E BA LDA &BA0E,Y 9D26 85 C4 STA &C4 9D28 20 2D 94 JSR Q42D .QD2B 9D2B B9 08 BA LDA &BA08,Y 9D2E 95 BE STA &BE,X 9D30 C8 INY 9D31 E8 INX 9D32 E0 08 CPX #&08 9D34 D0 F5 BNE QD2B 9D36 20 54 94 JSR Q454 9D39 A4 BC LDY &BC 9D3B 20 40 8E JSR PE40 9D3E 4C E2 92 JMP Q2E2 .QD41 9D41 20 5B A2 JSR R25B 9D44 A0 02 LDY #&02 9D46 B1 B0 LDA (&B0),Y 9D48 9D 08 BA STA &BA08,X 9D4B C8 INY 9D4C B1 B0 LDA (&B0),Y 9D4E 9D 09 BA STA &BA09,X 9D51 C8 INY 9D52 B1 B0 LDA (&B0),Y 9D54 0A ASL A 9D55 0A ASL A 9D56 5D 0E BA EOR &BA0E,X 9D59 29 0C AND #&0C 9D5B 10 1B BPL QD78 .QD5D 9D5D 20 5B A2 JSR R25B 9D60 A0 06 LDY #&06 9D62 B1 B0 LDA (&B0),Y 9D64 9D 0A BA STA &BA0A,X 9D67 C8 INY 9D68 B1 B0 LDA (&B0),Y 9D6A 9D 0B BA STA &BA0B,X 9D6D C8 INY 9D6E B1 B0 LDA (&B0),Y 9D70 6A ROR A 9D71 6A ROR A 9D72 6A ROR A 9D73 5D 0E BA EOR &BA0E,X 9D76 29 C0 AND #&C0 .QD78 9D78 5D 0E BA EOR &BA0E,X 9D7B 9D 0E BA STA &BA0E,X 9D7E B8 CLV 9D7F 60 RTS .QD80 9D80 20 5B A2 JSR R25B 9D83 A0 0E LDY #&0E 9D85 B1 B0 LDA (&B0),Y 9D87 29 0A AND #&0A 9D89 F0 02 BEQ QD8D 9D8B A9 80 LDA #&80 .QD8D 9D8D 5D 0F B9 EOR &B90F,X 9D90 29 80 AND #&80 9D92 5D 0F B9 EOR &B90F,X 9D95 9D 0F B9 STA &B90F,X 9D98 60 RTS .QD99 9D99 20 CE 9D JSR QDCE 9D9C 90 2B BCC QDC9 .QD9E 9D9E B9 0F B9 LDA &B90F,Y 9DA1 10 2A BPL QDCD .QDA3 9DA3 20 B5 A2 JSR R2B5 9DA6 EQUB &C3 9DA7 EQUS "locked" 9DAD EQUB &00 .QDAE 9DAE 20 9E 9D JSR QD9E .QDB1 9DB1 20 5B A2 JSR R25B 9DB4 98 TYA 9DB5 48 PHA 9DB6 A2 08 LDX #&08 9DB8 A0 B9 LDY #&B9 9DBA 68 PLA 9DBB 20 3A 99 JSR Q93A 9DBE 90 03 BCC QDC3 9DC0 4C 2A 98 JMP Q82A .QDC3 9DC3 60 RTS .QDC4 9DC4 20 CE 9D JSR QDCE 9DC7 B0 04 BCS QDCD .QDC9 9DC9 68 PLA 9DCA 68 PLA 9DCB A9 00 LDA #&00 .QDCD 9DCD 60 RTS .QDCE 9DCE 20 6A 8C JSR PC6A 9DD1 20 E8 8D JSR PDE8 9DD4 90 0C BCC QDE2 9DD6 98 TYA 9DD7 AA TAX .QDD8 9DD8 AD EE B8 LDA &B8EE 9DDB 85 B0 STA &B0 9DDD AD EF B8 LDA &B8EF 9DE0 85 B1 STA &B1 .QDE2 9DE2 60 RTS 9DE3 C9 09 CMP #&09 9DE5 B0 FB BCS QDE2 9DE7 20 5B A2 JSR R25B 9DEA 20 4E A2 JSR R24E 9DED 8E C6 B8 STX &B8C6 9DF0 8C C7 B8 STY &B8C7 9DF3 A8 TAY 9DF4 20 FD 9D JSR QDFD 9DF7 08 PHP 9DF8 20 23 95 JSR Q523 9DFB 28 PLP 9DFC 60 RTS .QDFD 9DFD B9 66 A6 LDA &A666,Y 9E00 8D EA B8 STA &B8EA 9E03 B9 6F A6 LDA &A66F,Y 9E06 8D EB B8 STA &B8EB 9E09 B9 78 A6 LDA &A678,Y 9E0C 4A LSR A 9E0D 08 PHP 9E0E 4A LSR A 9E0F 08 PHP 9E10 8D C8 B8 STA &B8C8 9E13 20 C0 9F JSR QFC0 9E16 A0 0C LDY #&0C .QE18 9E18 B1 B4 LDA (&B4),Y 9E1A 99 A7 B8 STA &B8A7,Y 9E1D 88 DEY 9E1E 10 F8 BPL QE18 9E20 AD AA B8 LDA &B8AA 9E23 2D AB B8 AND &B8AB 9E26 0D E9 B8 ORA &B8E9 9E29 18 CLC 9E2A 69 01 ADC #&01 9E2C F0 06 BEQ QE34 9E2E 20 0C 95 JSR Q50C 9E31 18 CLC 9E32 A9 FF LDA #&FF .QE34 9E34 8D C9 B8 STA &B8C9 9E37 AD C8 B8 LDA &B8C8 9E3A B0 07 BCS QE43 9E3C A2 A8 LDX #&A8 9E3E A0 B8 LDY #&B8 9E40 20 06 04 JSR &0406 .QE43 9E43 28 PLP 9E44 B0 04 BCS QE4A 9E46 28 PLP .QE47 9E47 6C EA B8 JMP (&B8EA) .QE4A 9E4A A2 03 LDX #&03 .QE4C 9E4C BD B0 B8 LDA &B8B0,X 9E4F 95 B6 STA &B6,X 9E51 CA DEX 9E52 10 F8 BPL QE4C 9E54 A2 B6 LDX #&B6 9E56 AC A7 B8 LDY &B8A7 9E59 A9 00 LDA #&00 9E5B 28 PLP 9E5C B0 03 BCS QE61 9E5E 20 ED 99 JSR Q9ED .QE61 9E61 20 CD 99 JSR Q9CD 9E64 A2 03 LDX #&03 .QE66 9E66 B5 B6 LDA &B6,X 9E68 9D B0 B8 STA &B8B0,X 9E6B CA DEX 9E6C 10 F8 BPL QE66 .QE6E 9E6E 20 B2 9F JSR QFB2 9E71 30 0D BMI QE80 .QE73 9E73 AC A7 B8 LDY &B8A7 9E76 20 47 9E JSR QE47 9E79 B0 0D BCS QE88 9E7B A2 09 LDX #&09 9E7D 20 A6 9F JSR QFA6 .QE80 9E80 A2 05 LDX #&05 9E82 20 A6 9F JSR QFA6 9E85 D0 EC BNE QE73 9E87 18 CLC .QE88 9E88 08 PHP 9E89 20 B2 9F JSR QFB2 9E8C A2 05 LDX #&05 9E8E 20 A6 9F JSR QFA6 9E91 A0 0C LDY #&0C 9E93 20 C0 9F JSR QFC0 .QE96 9E96 B9 A7 B8 LDA &B8A7,Y 9E99 91 B4 STA (&B4),Y 9E9B 88 DEY 9E9C 10 F8 BPL QE96 9E9E 28 PLP .QE9F 9E9F 60 RTS 9EA0 20 5B 9F JSR QF5B 9EA3 20 59 9B JSR QB59 9EA6 18 CLC 9EA7 60 RTS 9EA8 20 8A 9A JSR QA8A 9EAB B0 F2 BCS QE9F 9EAD 4C 92 9F JMP QF92 9EB0 20 45 A4 JSR R445 9EB3 20 7C 94 JSR Q47C 9EB6 A9 0C LDA #&0C 9EB8 20 92 9F JSR QF92 9EBB A0 00 LDY #&00 .QEBD 9EBD B9 00 B9 LDA &B900,Y 9EC0 20 92 9F JSR QF92 9EC3 C8 INY 9EC4 C0 08 CPY #&08 9EC6 D0 F5 BNE QEBD .QEC8 9EC8 B9 F8 B9 LDA &B9F8,Y 9ECB 20 92 9F JSR QF92 9ECE C8 INY 9ECF C0 0C CPY #&0C 9ED1 D0 F5 BNE QEC8 9ED3 AD 06 BA LDA &BA06 9ED6 20 B4 A3 JSR R3B4 9ED9 20 92 9F JSR QF92 9EDC A5 CF LDA &CF 9EDE 4C 92 9F JMP QF92 9EE1 AD DE B8 LDA &B8DE 9EE4 20 6E 9F JSR QF6E 9EE7 20 90 9F JSR QF90 9EEA AD DD B8 LDA &B8DD 9EED 4C 92 9F JMP QF92 9EF0 AD E0 B8 LDA &B8E0 9EF3 20 6E 9F JSR QF6E 9EF6 20 90 9F JSR QF90 9EF9 AD DF B8 LDA &B8DF 9EFC 4C 92 9F JMP QF92 9EFF 20 45 A4 JSR R445 9F02 20 7C 94 JSR Q47C 9F05 A9 12 LDA #&12 9F07 8D EA B8 STA &B8EA 9F0A A9 9F LDA #&9F 9F0C 8D EB B8 STA &B8EB 9F0F 4C 6E 9E JMP QE6E 9F12 AC B0 B8 LDY &B8B0 .QF15 9F15 CC 05 BA CPY &BA05 9F18 B0 28 BCS QF42 9F1A B9 0F B9 LDA &B90F,Y 9F1D 20 E7 A3 JSR R3E7 9F20 45 CE EOR &CE 9F22 B0 02 BCS QF26 9F24 29 DF AND #&DF .QF26 9F26 29 7F AND #&7F 9F28 F0 05 BEQ QF2F 9F2A 20 BF A3 JSR R3BF 9F2D D0 E6 BNE QF15 .QF2F 9F2F A9 07 LDA #&07 9F31 20 92 9F JSR QF92 9F34 85 B0 STA &B0 .QF36 9F36 B9 08 B9 LDA &B908,Y 9F39 20 92 9F JSR QF92 9F3C C8 INY 9F3D C6 B0 DEC &B0 9F3F D0 F5 BNE QF36 9F41 18 CLC .QF42 9F42 8C B0 B8 STY &B8B0 9F45 AD 04 BA LDA &BA04 9F48 8D A7 B8 STA &B8A7 9F4B 60 RTS .QF4C 9F4C 48 PHA 9F4D AD A8 B8 LDA &B8A8 9F50 85 B8 STA &B8 9F52 AD A9 B8 LDA &B8A9 9F55 85 B9 STA &B9 9F57 A2 00 LDX #&00 9F59 68 PLA 9F5A 60 RTS .QF5B 9F5B 2C C9 B8 BIT &B8C9 9F5E 10 06 BPL QF66 9F60 AD E5 FC LDA &FCE5 9F63 4C A1 9F JMP QFA1 .QF66 9F66 20 4C 9F JSR QF4C 9F69 A1 B8 LDA (&B8,X) 9F6B 4C A1 9F JMP QFA1 .QF6E 9F6E 48 PHA 9F6F A0 01 LDY #&01 9F71 29 F0 AND #&F0 9F73 F0 01 BEQ QF76 9F75 C8 INY .QF76 9F76 98 TYA 9F77 20 92 9F JSR QF92 9F7A 68 PLA 9F7B 48 PHA 9F7C 29 0F AND #&0F 9F7E 18 CLC 9F7F 69 30 ADC #&30 9F81 20 92 9F JSR QF92 9F84 68 PLA 9F85 20 B4 A3 JSR R3B4 9F88 F0 40 BEQ QFCA 9F8A 18 CLC 9F8B 69 41 ADC #&41 9F8D 4C 92 9F JMP QF92 .QF90 9F90 A9 01 LDA #&01 .QF92 9F92 2C C9 B8 BIT &B8C9 9F95 10 05 BPL QF9C 9F97 8D E5 FC STA &FCE5 9F9A 30 05 BMI QFA1 .QF9C 9F9C 20 4C 9F JSR QF4C 9F9F 81 B8 STA (&B8,X) .QFA1 9FA1 20 5B A2 JSR R25B 9FA4 A2 01 LDX #&01 .QFA6 9FA6 A0 04 LDY #&04 .QFA8 9FA8 FE A7 B8 INC &B8A7,X 9FAB D0 04 BNE QFB1 9FAD E8 INX 9FAE 88 DEY 9FAF D0 F7 BNE QFA8 .QFB1 9FB1 60 RTS .QFB2 9FB2 A2 03 LDX #&03 .QFB4 9FB4 A9 FF LDA #&FF 9FB6 5D AC B8 EOR &B8AC,X 9FB9 9D AC B8 STA &B8AC,X 9FBC CA DEX 9FBD 10 F5 BPL QFB4 9FBF 60 RTS .QFC0 9FC0 AD C6 B8 LDA &B8C6 9FC3 85 B4 STA &B4 9FC5 AD C7 B8 LDA &B8C7 9FC8 85 B5 STA &B5 .QFCA 9FCA 60 RTS .QFCB 9FCB 2C E8 B8 BIT &B8E8 9FCE 30 03 BMI QFD3 9FD0 B1 A6 LDA (&A6),Y 9FD2 60 RTS .QFD3 9FD3 AD E5 FC LDA &FCE5 9FD6 60 RTS .QFD7 9FD7 2C E8 B8 BIT &B8E8 9FDA 30 03 BMI QFDF 9FDC 91 A6 STA (&A6),Y 9FDE 60 RTS .QFDF 9FDF 8D E5 FC STA &FCE5 9FE2 60 RTS .QFE3 9FE3 A9 00 LDA #&00 9FE5 85 CB STA &CB 9FE7 20 ED 9F JSR QFED 9FEA 85 CA STA &CA 9FEC 60 RTS .QFED 9FED A9 02 LDA #&02 9FEF 60 RTS .QFF0 9FF0 A5 CA LDA &CA 9FF2 99 0F BA STA &BA0F,Y 9FF5 B9 0E BA LDA &BA0E,Y 9FF8 29 FC AND #&FC 9FFA 05 CB ORA &CB 9FFC 99 0E BA STA &BA0E,Y 9FFF 60 RTS .R000 A000 A9 83 LDA #&83 A002 20 F4 FF JSR &FFF4 A005 8C CF B8 STY &B8CF A008 A9 84 LDA #&84 A00A 20 F4 FF JSR &FFF4 A00D 98 TYA A00E 8D D0 B8 STA &B8D0 A011 38 SEC A012 ED CF B8 SBC &B8CF A015 8D D1 B8 STA &B8D1 A018 60 RTS A019 A2 C9 LDX #&C9 A01B A0 91 LDY #&91 A01D A9 08 LDA #&08 A01F D0 06 BNE R027 A021 A2 22 LDX #&22 A023 A0 91 LDY #&91 A025 A9 13 LDA #&13 .R027 A027 20 93 92 JSR Q293 A02A 85 B8 STA &B8 A02C 20 45 84 JSR P445 A02F 18 CLC A030 20 81 A6 JSR R681 A033 A2 00 LDX #&00 .R035 A035 20 24 A2 JSR R224 A038 20 5C A0 JSR R05C A03B 20 45 84 JSR P445 A03E C6 B8 DEC &B8 A040 D0 F3 BNE R035 A042 60 RTS .R043 A043 20 08 A4 JSR R408 A046 F0 01 BEQ R049 A048 60 RTS .R049 A049 20 BD A2 JSR R2BD A04C EQUB &DC A04D EQUS "Syntax: " A055 EA NOP A056 20 5C A0 JSR R05C A059 4C 14 A3 JMP R314 .R05C A05C 20 5B A2 JSR R25B A05F A2 00 LDX #&00 A061 A0 09 LDY #&09 .R063 A063 20 AA 00 JSR &00AA A066 30 08 BMI R070 A068 20 5B A3 JSR R35B A06B E8 INX A06C 88 DEY A06D 4C 63 A0 JMP R063 .R070 A070 88 DEY A071 30 04 BMI R077 A073 C8 INY A074 20 59 8D JSR PD59 .R077 A077 E8 INX A078 E8 INX A079 20 AA 00 JSR &00AA A07C 48 PHA A07D E8 INX A07E 20 A2 92 JSR Q2A2 A081 68 PLA A082 20 8A A0 JSR R08A A085 20 B4 A3 JSR R3B4 A088 29 07 AND #&07 .R08A A08A 20 5B A2 JSR R25B A08D 29 0F AND #&0F A08F F0 1D BEQ R0AE A091 A8 TAY A092 A9 20 LDA #&20 A094 20 5B A3 JSR R35B A097 A2 FF LDX #&FF .R099 A099 E8 INX A09A BD AF A0 LDA &A0AF,X A09D D0 FA BNE R099 A09F 88 DEY A0A0 D0 F7 BNE R099 .R0A2 A0A2 E8 INX A0A3 BD AF A0 LDA &A0AF,X A0A6 F0 06 BEQ R0AE A0A8 20 5B A3 JSR R35B A0AB 4C A2 A0 JMP R0A2 .R0AE A0AE 60 RTS A0AF EQUB &00 A0B0 EQUS "" A0B5 EQUB &00 A0B6 EQUS "" A0BC EQUB &00 A0BD EQUS "(L)" A0C0 EQUB &00 A0C1 EQUS "" A0CA EQUB &00 A0CB EQUS "" A0D5 EQUB &00 A0D6 EQUS " " A0E7 EQUB &00 A0E8 EQUS "" A0F1 EQUB &00 A0F2 EQUS "" A0FB EQUB &00 A0FC EQUS "()" A103 EQUB &00 A104 EQUS "()" A10B EQUB &00 A10C EQUS "" A113 EQUB &00 A114 EQUS "<Hex no.>" A11D EQUB &00 A11E EQUS "<argument>" A128 EQUB &00 .R129 A129 B9 0E BA LDA &BA0E,Y A12C 29 30 AND #&30 A12E 19 0D BA ORA &BA0D,Y A131 19 0C BA ORA &BA0C,Y A134 60 RTS .R135 A135 18 CLC A136 B9 0C BA LDA &BA0C,Y A139 69 FF ADC #&FF A13B B9 0D BA LDA &BA0D,Y A13E 69 00 ADC #&00 A140 85 C6 STA &C6 A142 B9 0E BA LDA &BA0E,Y A145 08 PHP A146 20 AC A3 JSR R3AC A149 28 PLP A14A 69 00 ADC #&00 A14C 85 C7 STA &C7 A14E 60 RTS .R14F A14F 18 CLC A150 A5 CA LDA &CA A152 65 C6 ADC &C6 A154 85 CA STA &CA A156 A5 CB LDA &CB A158 65 C7 ADC &C7 A15A 85 CB STA &CB A15C 60 RTS .R15D A15D A9 00 LDA #&00 A15F 85 A9 STA &A9 A161 AD E7 B8 LDA &B8E7 A164 CD E6 B8 CMP &B8E6 A167 D0 06 BNE R16F A169 A9 FF LDA #&FF A16B 85 A9 STA &A9 A16D 85 AA STA &AA .R16F A16F 60 RTS .R170 A170 2C E5 B8 BIT &B8E5 A173 10 75 BPL R1EA A175 20 5B A2 JSR R25B A178 20 EF A2 JSR R2EF A17B EQUB &0D A17C EQUS "Are you sure ? Y/N " A18F EA NOP A190 20 B7 84 JSR P4B7 A193 F0 03 BEQ R198 A195 A6 B8 LDX &B8 A197 9A TXS .R198 A198 4C 45 84 JMP P445 .R19B A19B 20 43 A0 JSR R043 A19E 20 96 A4 JSR R496 A1A1 8D E6 B8 STA &B8E6 A1A4 20 43 A0 JSR R043 A1A7 20 96 A4 JSR R496 A1AA 8D E7 B8 STA &B8E7 A1AD 98 TYA A1AE 48 PHA A1AF 20 5D A1 JSR R15D A1B2 20 00 A0 JSR R000 A1B5 20 EF A2 JSR R2EF A1B8 EQUS "Copying from drive " A1CB AD E6 B8 LDA &B8E6 A1CE 20 AB 8F JSR PFAB A1D1 20 EF A2 JSR R2EF A1D4 EQUS " to drive " A1DE AD E7 B8 LDA &B8E7 A1E1 20 AB 8F JSR PFAB A1E4 20 45 84 JSR P445 A1E7 68 PLA A1E8 A8 TAY A1E9 18 CLC .R1EA A1EA 60 RTS .R1EB A1EB F8 SED A1EC 18 CLC A1ED A5 A8 LDA &A8 A1EF 69 01 ADC #&01 A1F1 85 A8 STA &A8 A1F3 A5 A9 LDA &A9 A1F5 69 00 ADC #&00 A1F7 85 A9 STA &A9 A1F9 D8 CLD .R1FA A1FA 18 CLC A1FB A5 A9 LDA &A9 A1FD 20 0F A2 JSR R20F A200 B0 01 BCS R203 .R202 A202 18 CLC .R203 A203 A5 A8 LDA &A8 A205 D0 08 BNE R20F A207 B0 06 BCS R20F A209 20 27 A2 JSR R227 A20C 4C 89 A3 JMP R389 .R20F A20F 48 PHA A210 08 PHP A211 20 B4 A3 JSR R3B4 A214 28 PLP A215 20 19 A2 JSR R219 A218 68 PLA .R219 A219 48 PHA A21A 68 PLA A21B B0 02 BCS R21F A21D F0 08 BEQ R227 .R21F A21F 20 89 A3 JSR R389 A222 38 SEC A223 60 RTS .R224 A224 20 27 A2 JSR R227 .R227 A227 48 PHA A228 A9 20 LDA #&20 A22A 20 5B A3 JSR R35B A22D 68 PLA A22E 18 CLC A22F 60 RTS .R230 A230 BA TSX A231 A9 00 LDA #&00 A233 9D 07 01 STA &0107,X A236 98 TYA A237 48 PHA A238 20 43 A0 JSR R043 A23B 68 PLA A23C A8 TAY .R23D A23D 98 TYA A23E 18 CLC A23F 65 F2 ADC &F2 A241 AA TAX A242 A5 F3 LDA &F3 A244 69 00 ADC #&00 A246 A8 TAY A247 A9 00 LDA #&00 A249 85 A8 STA &A8 A24B 85 A9 STA &A9 A24D 60 RTS .R24E A24E 48 PHA A24F 8A TXA A250 48 PHA A251 BA TSX A252 A9 00 LDA #&00 A254 9D 09 01 STA &0109,X A257 68 PLA A258 AA TAX A259 68 PLA A25A 60 RTS .R25B A25B 48 PHA A25C 8A TXA A25D 48 PHA A25E 98 TYA A25F 48 PHA A260 A9 A2 LDA #&A2 A262 48 PHA A263 A9 7D LDA #&7D A265 48 PHA .R266 A266 A0 05 LDY #&05 .R268 A268 BA TSX A269 BD 07 01 LDA &0107,X A26C 48 PHA A26D 88 DEY A26E D0 F8 BNE R268 A270 A0 0A LDY #&0A .R272 A272 BD 09 01 LDA &0109,X A275 9D 0B 01 STA &010B,X A278 CA DEX A279 88 DEY A27A D0 F6 BNE R272 A27C 68 PLA A27D 68 PLA .R27E A27E 68 PLA A27F A8 TAY A280 68 PLA A281 AA TAX A282 68 PLA A283 60 RTS .R284 A284 48 PHA A285 8A TXA A286 48 PHA A287 98 TYA A288 48 PHA A289 20 66 A2 JSR R266 A28C BA TSX A28D 9D 03 01 STA &0103,X A290 4C 7E A2 JMP R27E .R293 A293 20 A2 A2 JSR R2A2 A296 EQUB &C9 A297 EQUS " read only" A2A1 EQUB &00 .R2A2 A2A2 20 E5 A2 JSR R2E5 A2A5 EQUS "Disk " A2AA 90 11 BCC R2BD .R2AC A2AC 20 E5 A2 JSR R2E5 A2AF EQUS "Bad " A2B3 90 08 BCC R2BD .R2B5 A2B5 20 E5 A2 JSR R2E5 A2B8 EQUS "File " .R2BD A2BD 85 B3 STA &B3 A2BF 68 PLA A2C0 85 AE STA &AE A2C2 68 PLA A2C3 85 AF STA &AF A2C5 A5 B3 LDA &B3 A2C7 48 PHA A2C8 98 TYA A2C9 48 PHA A2CA A0 00 LDY #&00 A2CC 20 01 A4 JSR R401 A2CF B1 AE LDA (&AE),Y A2D1 8D 01 01 STA &0101 A2D4 2C F0 B8 BIT &B8F0 A2D7 10 25 BPL R2FE A2D9 A9 02 LDA #&02 A2DB 8D F0 B8 STA &B8F0 A2DE A9 00 LDA #&00 A2E0 8D 00 01 STA &0100 A2E3 F0 19 BEQ R2FE .R2E5 A2E5 A9 02 LDA #&02 A2E7 8D F0 B8 STA &B8F0 A2EA A9 00 LDA #&00 A2EC 8D 00 01 STA &0100 .R2EF A2EF 85 B3 STA &B3 A2F1 68 PLA A2F2 85 AE STA &AE A2F4 68 PLA A2F5 85 AF STA &AF A2F7 A5 B3 LDA &B3 A2F9 48 PHA A2FA 98 TYA A2FB 48 PHA A2FC A0 00 LDY #&00 .R2FE A2FE 20 01 A4 JSR R401 A301 B1 AE LDA (&AE),Y A303 30 08 BMI R30D A305 F0 0D BEQ R314 A307 20 5B A3 JSR R35B A30A 4C FE A2 JMP R2FE .R30D A30D 68 PLA A30E A8 TAY A30F 68 PLA A310 18 CLC A311 6C AE 00 JMP (&00AE) .R314 A314 A9 00 LDA #&00 A316 AE F0 B8 LDX &B8F0 A319 9D 00 01 STA &0100,X A31C A9 FF LDA #&FF A31E 8D F0 B8 STA &B8F0 A321 8D CA B8 STA &B8CA A324 20 23 95 JSR Q523 A327 4C 00 01 JMP &0100 .R32A A32A 68 PLA A32B 85 AE STA &AE A32D 68 PLA A32E 85 AF STA &AF A330 A0 00 LDY #&00 .R332 A332 20 01 A4 JSR R401 A335 B1 AE LDA (&AE),Y A337 C9 FF CMP #&FF A339 F0 06 BEQ R341 A33B 20 EE FF JSR &FFEE A33E 4C 32 A3 JMP R332 .R341 A341 20 01 A4 JSR R401 A344 6C AE 00 JMP (&00AE) .R347 A347 8D 01 01 STA &0101 A34A A9 00 LDA #&00 A34C 8D 00 01 STA &0100 A34F A9 02 LDA #&02 A351 8D F0 B8 STA &B8F0 A354 60 RTS .R355 A355 A9 4E LDA #&4E A357 D0 02 BNE R35B .R359 A359 A9 2E LDA #&2E .R35B A35B 20 5B A2 JSR R25B A35E 2C F0 B8 BIT &B8F0 A361 10 14 BPL R377 A363 48 PHA A364 20 05 A6 JSR R605 A367 8A TXA A368 48 PHA A369 09 10 ORA #&10 A36B 20 00 A6 JSR R600 A36E 68 PLA A36F AA TAX A370 68 PLA A371 20 E3 FF JSR &FFE3 A374 4C 01 A6 JMP R601 .R377 A377 AE F0 B8 LDX &B8F0 A37A 9D 00 01 STA &0100,X A37D EE F0 B8 INC &B8F0 A380 60 RTS .R381 A381 48 PHA A382 20 B4 A3 JSR R3B4 A385 20 89 A3 JSR R389 A388 68 PLA .R389 A389 48 PHA A38A 29 0F AND #&0F A38C F8 SED A38D 18 CLC A38E 69 90 ADC #&90 A390 69 40 ADC #&40 A392 D8 CLD A393 20 5B A3 JSR R35B A396 68 PLA A397 60 RTS .R398 A398 24 FF BIT &FF A39A 18 CLC A39B 10 07 BPL R3A4 A39D 20 A5 A3 JSR R3A5 A3A0 20 BA A5 JSR R5BA A3A3 38 SEC .R3A4 A3A4 60 RTS .R3A5 A3A5 A9 7E LDA #&7E A3A7 4C F4 FF JMP &FFF4 .R3AA A3AA 4A LSR A A3AB 4A LSR A .R3AC A3AC 4A LSR A A3AD 4A LSR A .R3AE A3AE 4A LSR A A3AF 4A LSR A A3B0 29 03 AND #&03 A3B2 60 RTS .R3B3 A3B3 4A LSR A .R3B4 A3B4 4A LSR A A3B5 4A LSR A A3B6 4A LSR A A3B7 4A LSR A A3B8 60 RTS A3B9 0A ASL A .R3BA A3BA 0A ASL A A3BB 0A ASL A A3BC 0A ASL A A3BD 0A ASL A A3BE 60 RTS .R3BF A3BF C8 INY .R3C0 A3C0 C8 INY A3C1 C8 INY A3C2 C8 INY A3C3 C8 INY A3C4 C8 INY A3C5 C8 INY A3C6 C8 INY A3C7 60 RTS .R3C8 A3C8 88 DEY A3C9 88 DEY A3CA 88 DEY A3CB 88 DEY A3CC 88 DEY A3CD 88 DEY A3CE 88 DEY A3CF 88 DEY A3D0 60 RTS .R3D1 A3D1 C9 41 CMP #&41 A3D3 90 0C BCC R3E1 A3D5 C9 5B CMP #&5B A3D7 90 0A BCC R3E3 A3D9 C9 61 CMP #&61 A3DB 90 04 BCC R3E1 A3DD C9 7B CMP #&7B A3DF 90 02 BCC R3E3 .R3E1 A3E1 38 SEC A3E2 60 RTS .R3E3 A3E3 29 DF AND #&DF A3E5 18 CLC A3E6 60 RTS .R3E7 A3E7 48 PHA A3E8 20 D1 A3 JSR R3D1 A3EB 68 PLA A3EC 60 RTS A3ED 20 F7 A3 JSR R3F7 A3F0 90 03 BCC R3F5 A3F2 C9 10 CMP #&10 A3F4 60 RTS .R3F5 A3F5 38 SEC A3F6 60 RTS .R3F7 A3F7 C9 41 CMP #&41 A3F9 90 02 BCC R3FD A3FB E9 07 SBC #&07 .R3FD A3FD 38 SEC A3FE E9 30 SBC #&30 A400 60 RTS .R401 A401 E6 AE INC &AE A403 D0 02 BNE R407 A405 E6 AF INC &AF .R407 A407 60 RTS .R408 A408 18 CLC A409 4C C2 FF JMP &FFC2 .R40C A40C 38 SEC A40D E9 30 SBC #&30 A40F 90 47 BCC R458 A411 85 CF STA &CF A413 A5 CF LDA &CF A415 4C D6 A4 JMP R4D6 .R418 A418 20 D1 A3 JSR R3D1 A41B 38 SEC A41C E9 41 SBC #&41 A41E 90 38 BCC R458 A420 C9 08 CMP #&08 A422 B0 34 BCS R458 A424 20 BA A3 JSR R3BA A427 05 CF ORA &CF A429 85 CF STA &CF A42B 60 RTS .R42C A42C 20 43 A0 JSR R043 A42F 4C 96 A4 JMP R496 .R432 A432 20 08 A4 JSR R408 A435 F0 13 BEQ R44A A437 4C 96 A4 JMP R496 .R43A A43A AD DD B8 LDA &B8DD A43D 85 CE STA &CE A43F AD DE B8 LDA &B8DE A442 85 CF STA &CF A444 60 RTS .R445 A445 AD DD B8 LDA &B8DD A448 85 CE STA &CE .R44A A44A AD DE B8 LDA &B8DE .R44D A44D 85 CF STA &CF .R44F A44F 60 RTS A450 20 32 A4 JSR R432 A453 20 08 A4 JSR R408 A456 F0 F7 BEQ R44F .R458 A458 20 AC A2 JSR R2AC A45B EQUB &CD A45C EQUS "drive" A461 EQUB &00 .R462 A462 20 C5 FF JSR &FFC5 A465 B0 2E BCS R495 A467 C9 3A CMP #&3A A469 D0 22 BNE R48D A46B 20 C5 FF JSR &FFC5 A46E B0 E8 BCS R458 A470 20 0C A4 JSR R40C A473 20 C5 FF JSR &FFC5 A476 B0 1D BCS R495 A478 C9 2E CMP #&2E A47A F0 0C BEQ R488 A47C 20 18 A4 JSR R418 A47F 20 C5 FF JSR &FFC5 A482 B0 11 BCS R495 A484 C9 2E CMP #&2E A486 D0 D0 BNE R458 .R488 A488 20 C5 FF JSR &FFC5 A48B B0 CB BCS R458 .R48D A48D 20 C7 A4 JSR R4C7 A490 20 C5 FF JSR &FFC5 A493 90 C3 BCC R458 .R495 A495 60 RTS .R496 A496 A2 00 LDX #&00 A498 20 C5 FF JSR &FFC5 A49B B0 F8 BCS R495 A49D 08 PHP A49E C9 3A CMP #&3A A4A0 D0 05 BNE R4A7 A4A2 20 C5 FF JSR &FFC5 A4A5 B0 B1 BCS R458 .R4A7 A4A7 20 0C A4 JSR R40C A4AA A2 02 LDX #&02 A4AC 20 C5 FF JSR &FFC5 A4AF B0 0F BCS R4C0 A4B1 28 PLP A4B2 90 07 BCC R4BB A4B4 C9 2A CMP #&2A A4B6 D0 03 BNE R4BB A4B8 A2 83 LDX #&83 A4BA 60 RTS .R4BB A4BB 20 18 A4 JSR R418 A4BE E8 INX A4BF 08 PHP .R4C0 A4C0 28 PLP A4C1 A5 CF LDA &CF A4C3 60 RTS A4C4 20 C5 FF JSR &FFC5 .R4C7 A4C7 C9 2A CMP #&2A A4C9 D0 02 BNE R4CD A4CB A9 23 LDA #&23 .R4CD A4CD 85 CE STA &CE A4CF 18 CLC A4D0 60 RTS A4D1 38 SEC A4D2 E9 30 SBC #&30 A4D4 90 05 BCC R4DB .R4D6 A4D6 C9 04 CMP #&04 A4D8 B0 01 BCS R4DB A4DA 60 RTS .R4DB A4DB 4C 58 A4 JMP R458 .R4DE A4DE B9 0E B8 LDA &B80E,Y A4E1 29 7F AND #&7F A4E3 85 CE STA &CE A4E5 B9 1F B8 LDA &B81F,Y A4E8 85 CF STA &CF A4EA B9 1E B8 LDA &B81E,Y A4ED 8D F3 B8 STA &B8F3 A4F0 60 RTS .R4F1 A4F1 A9 00 LDA #&00 A4F3 85 BA STA &BA A4F5 85 BB STA &BB A4F7 20 BE AC JSR RCBE A4FA AD A0 B8 LDA &B8A0 A4FD D0 08 BNE R507 A4FF 2C F3 B8 BIT &B8F3 A502 10 03 BPL R507 A504 20 08 A5 JSR R508 .R507 A507 60 RTS .R508 A508 A9 02 LDA #&02 A50A 20 DC AC JSR RCDC A50D A9 01 LDA #&01 A50F 85 BB STA &BB A511 20 13 AD JSR RD13 A514 A9 00 LDA #&00 A516 85 BB STA &BB A518 AE 0C 0D LDX &0D0C A51B CA DEX A51C E0 04 CPX #&04 A51E A9 80 LDA #&80 A520 B0 03 BCS R525 A522 BD 2D A5 LDA &A52D,X .R525 A525 8D F3 B8 STA &B8F3 A528 A9 00 LDA #&00 A52A 4C DC AC JMP RCDC A52D EQUB &C0,&80,&80,&A0 .R531 A531 20 5B A2 JSR R25B A534 20 44 A5 JSR R544 A537 D0 01 BNE R53A A539 60 RTS .R53A A53A 29 40 AND #&40 A53C D0 03 BNE R541 A53E 4C C0 B1 JMP S1C0 .R541 A541 4C 93 A2 JMP R293 .R544 A544 20 84 A2 JSR R284 A547 A0 03 LDY #&03 .R549 A549 38 SEC A54A A9 0A LDA #&0A A54C E5 BB SBC &BB A54E 85 A0 STA &A0 A550 A5 A5 LDA &A5 A552 D0 08 BNE R55C A554 A6 A3 LDX &A3 A556 A5 A4 LDA &A4 A558 C5 A0 CMP &A0 A55A 90 04 BCC R560 .R55C A55C A2 00 LDX #&00 A55E A5 A0 LDA &A0 .R560 A560 86 A0 STX &A0 A562 85 A1 STA &A1 A564 05 A0 ORA &A0 A566 F0 4C BEQ R5B4 A568 20 A6 AD JSR RDA6 A56B F0 0A BEQ R577 A56D 29 40 AND #&40 A56F D0 05 BNE R576 A571 88 DEY A572 D0 D5 BNE R549 A574 A9 01 LDA #&01 .R576 A576 60 RTS .R577 A577 E6 BA INC &BA A579 A9 00 LDA #&00 A57B 85 BB STA &BB A57D 18 CLC A57E A5 A1 LDA &A1 A580 6D B5 B8 ADC &B8B5 A583 90 08 BCC R58D A585 EE B6 B8 INC &B8B6 A588 D0 03 BNE R58D A58A EE B7 B8 INC &B8B7 .R58D A58D 18 CLC A58E A5 A6 LDA &A6 A590 65 A0 ADC &A0 A592 85 A6 STA &A6 A594 A5 A7 LDA &A7 A596 65 A1 ADC &A1 A598 85 A7 STA &A7 A59A 38 SEC A59B A5 A3 LDA &A3 A59D E5 A0 SBC &A0 A59F 85 A3 STA &A3 A5A1 A5 A4 LDA &A4 A5A3 E5 A1 SBC &A1 A5A5 85 A4 STA &A4 A5A7 B0 02 BCS R5AB A5A9 C6 A5 DEC &A5 .R5AB A5AB 05 A3 ORA &A3 A5AD 05 A5 ORA &A5 A5AF F0 03 BEQ R5B4 A5B1 4C 49 A5 JMP R549 .R5B4 A5B4 20 BA A5 JSR R5BA A5B7 A9 00 LDA #&00 A5B9 60 RTS .R5BA A5BA 2C CD B8 BIT &B8CD A5BD 10 11 BPL R5D0 A5BF A9 40 LDA #&40 A5C1 8D 00 0D STA &0D00 A5C4 AC CE B8 LDY &B8CE A5C7 C0 FF CPY #&FF A5C9 F0 05 BEQ R5D0 A5CB A2 0B LDX #&0B A5CD 20 15 A6 JSR R615 .R5D0 A5D0 A9 00 LDA #&00 A5D2 8D CD B8 STA &B8CD A5D5 60 RTS .R5D6 A5D6 2C CD B8 BIT &B8CD A5D9 30 0F BMI R5EA A5DB A9 8F LDA #&8F A5DD A2 0C LDX #&0C A5DF 20 1D A6 JSR R61D A5E2 8C CE B8 STY &B8CE A5E5 A9 FF LDA #&FF A5E7 8D CD B8 STA &B8CD .R5EA A5EA 60 RTS .R5EB A5EB 20 5B A2 JSR R25B A5EE A9 0F LDA #&0F A5F0 A2 01 LDX #&01 A5F2 D0 08 BNE R5FC A5F4 A9 81 LDA #&81 A5F6 D0 02 BNE R5FA .R5F8 A5F8 A9 C7 LDA #&C7 .R5FA A5FA A2 00 LDX #&00 .R5FC A5FC A0 00 LDY #&00 A5FE F0 1F BEQ R61F .R600 A600 AA TAX .R601 A601 A9 03 LDA #&03 A603 D0 1A BNE R61F .R605 A605 A9 EC LDA #&EC A607 D0 12 BNE R61B .R609 A609 A9 C7 LDA #&C7 A60B D0 0E BNE R61B .R60D A60D A9 EA LDA #&EA A60F D0 0A BNE R61B .R611 A611 A9 A8 LDA #&A8 A613 D0 06 BNE R61B .R615 A615 A9 8F LDA #&8F A617 D0 06 BNE R61F .R619 A619 A9 FF LDA #&FF .R61B A61B A2 00 LDX #&00 .R61D A61D A0 FF LDY #&FF .R61F A61F 4C F4 FF JMP &FFF4 A622 EQUW &1B,&FF A624 EQUW &1E,&FF A626 EQUW &21,&FF A628 EQUW &24,&FF A62A EQUW &27,&FF A62C EQUW &2A,&FF A62E EQUW &2D,&FF A630 EQUW &92,&9C A632 EQUW &7B,&99 A634 EQUW &8A,&9A A636 EQUW &59,&9B A638 EQUW &E3,&9D A63A EQUW &99,&97 A63C EQUW &08,&96 A63E EQUB &1A,&89,&A1,&1E A642 EQUB &A1,&35,&4A,&52 A646 EQUB &57,&96,&96,&96 A64A EQUB &97,&96,&97,&97 A64E EQUB &97,&97,&B7,&A1 A652 EQUB &A4,&99,&99,&99 A656 EQUB &0B,&C0,&CC,&D7 A65A EQUB &DF,&E7,&F6,&FF A65E EQUB &9D,&9C,&9C,&9C A662 EQUB &9C,&9C,&9C,&9C A666 EQUB &9F,&A0,&A0,&A8 A66A EQUB &A8,&B0,&E1,&F0 A66E EQUB &FF,&9E,&9E,&9E A672 EQUB &9E,&9E,&9E,&9E A676 EQUB &9E,&9E,&04,&02 A67A EQUB &03,&06,&07,&04 A67E EQUB &04,&04,&04 .R681 A681 08 PHP A682 20 EF A2 JSR R2EF A685 EQUS "Slogger PEGASUS 400" A698 EA NOP A699 28 PLP A69A B0 09 BCS R6A5 A69C 20 EF A2 JSR R2EF A69F EQUS " 1.02" A6A4 EA NOP .R6A5 A6A5 4C 45 84 JMP P445 A6A8 20 08 A4 JSR R408 A6AB F0 17 BEQ R6C4 .R6AD A6AD 20 C5 FF JSR &FFC5 A6B0 90 04 BCC R6B6 A6B2 A9 0D LDA #&0D A6B4 A0 00 LDY #&00 .R6B6 A6B6 84 B7 STY &B7 A6B8 A8 TAY A6B9 A2 00 LDX #&00 A6BB A9 99 LDA #&99 A6BD 20 F4 FF JSR &FFF4 A6C0 A4 B7 LDY &B7 A6C2 D0 E9 BNE R6AD .R6C4 A6C4 20 4E A2 JSR R24E A6C7 20 47 94 JSR Q447 A6CA 20 96 A8 JSR R896 .R6CD A6CD 20 EF A2 JSR R2EF A6D0 EQUB &1F A6D1 EQUB &01 A6D2 EQUB &13 A6D3 EQUS "Drive number (0-3) " A6E7 EQUB &7F A6E8 EA NOP A6E9 20 05 AB JSR RB05 A6EC 90 03 BCC R6F1 A6EE 4C 45 84 JMP P445 .R6F1 A6F1 C9 30 CMP #&30 A6F3 90 D8 BCC R6CD A6F5 E9 30 SBC #&30 A6F7 C9 04 CMP #&04 A6F9 90 05 BCC R700 A6FB 20 29 AB JSR RB29 A6FE D0 CD BNE R6CD .R700 A700 85 CF STA &CF A702 09 30 ORA #&30 A704 20 EE FF JSR &FFEE .R707 A707 20 EF A2 JSR R2EF A70A EQUB &1F A70B EQUB &01 A70C EQUB &14 A70D EQUS "0=40, 1=80 tracks " A720 EQUB &7F A721 EA NOP A722 20 05 AB JSR RB05 A725 B0 A6 BCS R6CD A727 A2 28 LDX #&28 A729 C9 30 CMP #&30 A72B F0 06 BEQ R733 A72D A2 50 LDX #&50 A72F C9 31 CMP #&31 A731 D0 D4 BNE R707 .R733 A733 86 C0 STX &C0 A735 48 PHA A736 AD F3 B8 LDA &B8F3 A739 10 05 BPL R740 A73B 29 80 AND #&80 A73D 8D F3 B8 STA &B8F3 .R740 A740 2C F3 B8 BIT &B8F3 A743 50 02 BVC R747 A745 A2 28 LDX #&28 .R747 A747 E4 C0 CPX &C0 A749 68 PLA A74A B0 05 BCS R751 A74C 20 29 AB JSR RB29 A74F D0 B6 BNE R707 .R751 A751 20 EE FF JSR &FFEE .R754 A754 20 57 AA JSR RA57 A757 B0 AE BCS R707 A759 20 AC AA JSR RAAC A75C D0 F6 BNE R754 A75E 20 4B AA JSR RA4B A761 20 BE AC JSR RCBE A764 A9 00 LDA #&00 A766 85 BA STA &BA A768 A9 02 LDA #&02 A76A 85 B9 STA &B9 A76C 85 BB STA &BB .R76E A76E A9 03 LDA #&03 A770 85 BF STA &BF .R772 A772 20 98 A3 JSR R398 A775 B0 90 BCS R707 A777 20 8C AA JSR RA8C A77A A0 03 LDY #&03 A77C 20 19 AB JSR RB19 A77F A5 B9 LDA &B9 A781 85 BB STA &BB A783 20 14 B0 JSR S014 A786 20 74 A8 JSR R874 A789 F0 08 BEQ R793 A78B C6 BF DEC &BF A78D D0 E3 BNE R772 A78F 20 27 AA JSR RA27 A792 60 RTS .R793 A793 38 SEC A794 A5 B9 LDA &B9 A796 E9 02 SBC #&02 A798 B0 02 BCS R79C A79A 69 0A ADC #&0A .R79C A79C 85 B9 STA &B9 A79E E6 BA INC &BA A7A0 A5 BA LDA &BA A7A2 C5 C0 CMP &C0 A7A4 90 C8 BCC R76E A7A6 A6 C0 LDX &C0 A7A8 86 B0 STX &B0 A7AA 20 A5 A9 JSR R9A5 A7AD 20 7B A9 JSR R97B A7B0 A5 C5 LDA &C5 A7B2 8D 06 BA STA &BA06 A7B5 A5 C4 LDA &C4 A7B7 8D 07 BA STA &BA07 A7BA A9 00 LDA #&00 A7BC 85 BA STA &BA A7BE 85 BB STA &BB A7C0 20 B9 94 JSR Q4B9 A7C3 20 2A A3 JSR R32A A7C6 EQUB &1F A7C7 EQUB &08 A7C8 EQUB &10 A7C9 EQUS "Format complete" A7D8 EQUB &1F A7D9 EQUB &0A A7DA EQUB &11 A7DB EQUS "Repeat? Y/N" A7E6 EQUB &FF A7E7 20 05 AB JSR RB05 A7EA C9 59 CMP #&59 A7EC D0 03 BNE R7F1 A7EE 4C 54 A7 JMP R754 .R7F1 A7F1 4C F4 A7 JMP R7F4 .R7F4 A7F4 20 4B AA JSR RA4B A7F7 A2 00 LDX #&00 A7F9 A0 18 LDY #&18 A7FB 4C BC A8 JMP R8BC A7FE 20 32 A4 JSR R432 A801 20 4E A2 JSR R24E A804 20 47 94 JSR Q447 A807 20 2A A3 JSR R32A A80A EQUB &16 A80B EQUB &07 A80C EQUB &1F A80D EQUB &0C A80E EQUB &02 A80F EQUS "VERIFY DISK" A81A EQUB &1F A81B EQUB &00 A81C EQUB &10 A81D EQUS "Insert disk" A828 EQUB &FF A829 20 DF AA JSR RADF A82C A9 00 LDA #&00 A82E 8D A0 B8 STA &B8A0 A831 20 F1 A4 JSR R4F1 A834 20 8B 94 JSR Q48B A837 AD 06 BA LDA &BA06 A83A 29 03 AND #&03 A83C 85 B1 STA &B1 A83E AD 07 BA LDA &BA07 A841 85 B0 STA &B0 A843 A9 00 LDA #&00 A845 85 B3 STA &B3 A847 A9 0A LDA #&0A A849 85 B2 STA &B2 A84B 20 1E A9 JSR R91E A84E 86 C0 STX &C0 A850 A9 00 LDA #&00 A852 85 BA STA &BA A854 18 CLC A855 08 PHP .R856 A856 20 8C AA JSR RA8C A859 20 74 A8 JSR R874 A85C B0 0D BCS R86B A85E F0 03 BEQ R863 A860 28 PLP A861 38 SEC A862 08 PHP .R863 A863 E6 BA INC &BA A865 A5 BA LDA &BA A867 C5 C0 CMP &C0 A869 90 EB BCC R856 .R86B A86B 28 PLP A86C B0 22 BCS R890 A86E 20 BE AC JSR RCBE A871 4C F4 A7 JMP R7F4 .R874 A874 A2 03 LDX #&03 A876 A0 03 LDY #&03 A878 20 19 AB JSR RB19 .R87B A87B 20 98 A3 JSR R398 A87E B0 0F BCS R88F A880 20 94 AD JSR RD94 A883 F0 09 BEQ R88E A885 A9 2E LDA #&2E A887 20 EE FF JSR &FFEE A88A CA DEX A88B D0 EE BNE R87B A88D CA DEX .R88E A88E 18 CLC .R88F A88F 60 RTS .R890 A890 20 27 AA JSR RA27 A893 4C F4 A7 JMP R7F4 .R896 A896 20 EF A2 JSR R2EF A899 EQUB &16 A89A EQUB &06 A89B EQUB &1F A89C EQUB &0A A89D EQUB &02 A89E EQUS "DISK FORMATTER" A8AC EQUB &0D A8AD EQUB &0A A8AE EA NOP A8AF 60 RTS A8B0 A9 07 LDA #&07 A8B2 48 PHA A8B3 A9 16 LDA #&16 A8B5 20 EE FF JSR &FFEE A8B8 68 PLA A8B9 4C EE FF JMP &FFEE .R8BC A8BC A9 1F LDA #&1F A8BE 20 EE FF JSR &FFEE A8C1 8A TXA A8C2 20 EE FF JSR &FFEE A8C5 98 TYA A8C6 4C EE FF JMP &FFEE .R8C9 A8C9 86 B0 STX &B0 A8CB 84 B1 STY &B1 A8CD A0 00 LDY #&00 .R8CF A8CF B1 B0 LDA (&B0),Y A8D1 C9 FF CMP #&FF A8D3 F0 0A BEQ R8DF A8D5 20 EE FF JSR &FFEE A8D8 C8 INY A8D9 D0 F4 BNE R8CF A8DB E6 B1 INC &B1 A8DD D0 F0 BNE R8CF .R8DF A8DF 60 RTS A8E0 20 EE FF JSR &FFEE A8E3 E6 B0 INC &B0 A8E5 D0 02 BNE R8E9 A8E7 E6 B1 INC &B1 .R8E9 A8E9 60 RTS A8EA A2 00 LDX #&00 A8EC A0 17 LDY #&17 A8EE 20 BC A8 JSR R8BC A8F1 A2 28 LDX #&28 .R8F3 A8F3 A9 20 LDA #&20 .R8F5 A8F5 20 EE FF JSR &FFEE A8F8 CA DEX A8F9 D0 FA BNE R8F5 A8FB 60 RTS A8FC A2 06 LDX #&06 A8FE 18 CLC A8FF A5 C1 LDA &C1 A901 69 09 ADC #&09 A903 A8 TAY A904 4C BC A8 JMP R8BC A907 20 0F A9 JSR R90F A90A A9 20 LDA #&20 A90C 20 EE FF JSR &FFEE .R90F A90F A9 7F LDA #&7F A911 4C EE FF JMP &FFEE A914 38 SEC A915 E9 30 SBC #&30 A917 90 03 BCC R91C A919 C9 0A CMP #&0A A91B 60 RTS .R91C A91C 38 SEC A91D 60 RTS .R91E A91E A2 00 LDX #&00 .R920 A920 A5 B1 LDA &B1 A922 C5 B3 CMP &B3 A924 90 18 BCC R93E A926 D0 06 BNE R92E A928 A5 B0 LDA &B0 A92A C5 B2 CMP &B2 A92C 90 10 BCC R93E .R92E A92E A5 B0 LDA &B0 A930 E5 B2 SBC &B2 A932 85 B0 STA &B0 A934 A5 B1 LDA &B1 A936 E5 B3 SBC &B3 A938 85 B1 STA &B1 A93A E8 INX A93B 4C 20 A9 JMP R920 .R93E A93E 60 RTS .R93F A93F 20 FA A1 JSR R1FA A942 A0 02 LDY #&02 A944 20 59 8D JSR PD59 A947 46 A9 LSR &A9 A949 66 A8 ROR &A8 A94B 46 A9 LSR &A9 A94D 66 A8 ROR &A8 A94F A5 A8 LDA &A8 A951 20 5C A9 JSR R95C A954 20 FA A1 JSR R1FA A957 A9 4B LDA #&4B A959 4C EE FF JMP &FFEE .R95C A95C 38 SEC A95D A2 FF LDX #&FF A95F 86 A9 STX &A9 .R961 A961 E6 A9 INC &A9 A963 E9 64 SBC #&64 A965 B0 FA BCS R961 A967 69 64 ADC #&64 .R969 A969 E8 INX A96A E9 0A SBC #&0A A96C B0 FB BCS R969 A96E 69 0A ADC #&0A A970 85 A8 STA &A8 A972 8A TXA A973 20 BA A3 JSR R3BA A976 05 A8 ORA &A8 A978 85 A8 STA &A8 A97A 60 RTS .R97B A97B A9 00 LDA #&00 A97D A8 TAY .R97E A97E 99 00 B9 STA &B900,Y A981 99 00 BA STA &BA00,Y A984 C8 INY A985 D0 F7 BNE R97E A987 60 RTS .R988 A988 18 CLC A989 A5 B2 LDA &B2 A98B 65 B4 ADC &B4 A98D 85 B2 STA &B2 A98F A5 B3 LDA &B3 A991 65 B5 ADC &B5 A993 85 B3 STA &B3 A995 C6 B0 DEC &B0 A997 D0 EF BNE R988 A999 60 RTS A99A A5 B1 LDA &B1 A99C C5 B3 CMP &B3 A99E D0 04 BNE R9A4 A9A0 A5 B0 LDA &B0 A9A2 C5 B2 CMP &B2 .R9A4 A9A4 60 RTS .R9A5 A9A5 A0 0A LDY #&0A A9A7 A9 00 LDA #&00 A9A9 85 C4 STA &C4 A9AB 85 C5 STA &C5 .R9AD A9AD 18 CLC A9AE A5 B0 LDA &B0 A9B0 65 C4 ADC &C4 A9B2 85 C4 STA &C4 A9B4 90 02 BCC R9B8 A9B6 E6 C5 INC &C5 .R9B8 A9B8 88 DEY A9B9 D0 F2 BNE R9AD A9BB 60 RTS A9BC A9 07 LDA #&07 A9BE 20 EE FF JSR &FFEE A9C1 A2 6F LDX #&6F A9C3 A0 AB LDY #&AB A9C5 8A TXA A9C6 48 PHA A9C7 98 TYA A9C8 48 PHA A9C9 A9 86 LDA #&86 A9CB 20 F4 FF JSR &FFF4 A9CE 8E A3 B8 STX &B8A3 A9D1 8C E2 B8 STY &B8E2 A9D4 68 PLA A9D5 A8 TAY A9D6 68 PLA A9D7 AA TAX A9D8 20 C9 A8 JSR R8C9 A9DB AE A3 B8 LDX &B8A3 A9DE AC E2 B8 LDY &B8E2 A9E1 20 BC A8 JSR R8BC A9E4 A9 05 LDA #&05 A9E6 85 B0 STA &B0 A9E8 A2 00 LDX #&00 A9EA A0 00 LDY #&00 .R9EC A9EC 88 DEY A9ED D0 FD BNE R9EC A9EF CA DEX A9F0 D0 FA BNE R9EC A9F2 C6 B0 DEC &B0 A9F4 D0 F6 BNE R9EC A9F6 20 4B AA JSR RA4B A9F9 AE A3 B8 LDX &B8A3 A9FC AC E2 B8 LDY &B8E2 A9FF 20 BC A8 JSR R8BC AA02 60 RTS AA03 20 4B AA JSR RA4B AA06 20 2A A3 JSR R32A AA09 EQUB &1F AA0A EQUB &05 AA0B EQUB &17 AA0C EQUB &88 AA0D EQUB &83 AA0E EQUS "F O R M A T E R R O R" AA25 EQUB &FF AA26 60 RTS .RA27 AA27 20 4B AA JSR RA4B AA2A 20 2A A3 JSR R32A AA2D EQUB &1F AA2E EQUB &05 AA2F EQUB &17 AA30 EQUB &88 AA31 EQUB &83 AA32 EQUS "V E R I F Y E R R O R" AA49 EQUB &FF AA4A 60 RTS .RA4B AA4B A2 00 LDX #&00 AA4D A0 10 LDY #&10 AA4F 20 BC A8 JSR R8BC AA52 A2 78 LDX #&78 AA54 4C F3 A8 JMP R8F3 .RA57 AA57 20 4B AA JSR RA4B AA5A 20 2A A3 JSR R32A AA5D EQUB &1C AA5E EQUB &00 AA5F EQUB &0D AA60 EQUS "'" AA61 EQUB &04 AA62 EQUB &0C AA63 EQUB &1C AA64 EQUB &00 AA65 EQUB &18 AA66 EQUS "'" AA67 EQUB &00 AA68 EQUB &FF AA69 20 2A A3 JSR R32A AA6C EQUB &1F AA6D EQUB &00 AA6E EQUB &10 AA6F EQUS "Press F to start " AA80 EQUB &FF AA81 20 05 AB JSR RB05 AA84 B0 05 BCS RA8B AA86 C9 46 CMP #&46 AA88 D0 CD BNE RA57 AA8A 18 CLC .RA8B AA8B 60 RTS .RA8C AA8C A2 00 LDX #&00 AA8E A4 BA LDY &BA .RA90 AA90 38 SEC AA91 98 TYA AA92 E9 0A SBC #&0A AA94 90 08 BCC RA9E AA96 A8 TAY AA97 18 CLC AA98 8A TXA AA99 69 05 ADC #&05 AA9B AA TAX AA9C 90 F2 BCC RA90 .RA9E AA9E 69 0E ADC #&0E AAA0 A8 TAY AAA1 20 BC A8 JSR R8BC AAA4 A5 BA LDA &BA AAA6 20 5C A9 JSR R95C AAA9 4C 02 A2 JMP R202 .RAAC AAAC 20 B2 AC JSR RCB2 AAAF F0 2D BEQ RADE AAB1 20 2A A3 JSR R32A AAB4 EQUB &1F AAB5 EQUB &00 AAB6 EQUB &10 AAB7 EQUS "Disk R/O...Remove write protect" AAD6 EQUB &0D AAD7 EQUB &0A AAD8 EQUB &FF AAD9 20 DF AA JSR RADF AADC A9 FF LDA #&FF .RADE AADE 60 RTS .RADF AADF 20 EF A2 JSR R2EF AAE2 EQUB &1F AAE3 EQUB &04 AAE4 EQUB &11 AAE5 EQUS "Press any key to continue" AAFE EA NOP AAFF 20 05 AB JSR RB05 AB02 4C 4B AA JMP RA4B .RB05 AB05 20 E0 FF JSR &FFE0 AB08 90 0E BCC RB18 AB0A 20 A5 A3 JSR R3A5 AB0D A9 0D LDA #&0D AB0F 20 EE FF JSR &FFEE AB12 A0 14 LDY #&14 AB14 20 59 8D JSR PD59 AB17 38 SEC .RB18 AB18 60 RTS .RB19 AB19 98 TYA AB1A 48 PHA AB1B 20 59 8D JSR PD59 AB1E 68 PLA AB1F A8 TAY .RB20 AB20 A9 7F LDA #&7F AB22 20 EE FF JSR &FFEE AB25 88 DEY AB26 D0 F8 BNE RB20 AB28 60 RTS .RB29 AB29 A9 07 LDA #&07 AB2B 4C EE FF JMP &FFEE AB2E EQUB &16 AB2F EQUB &07 AB30 EQUB &0A AB31 EQUB &0A AB32 EQUB &0A AB33 EQUS " R E A D Y T O F O R M A T" AB54 EQUB &0D AB55 EQUB &0A AB56 EQUB &0A AB57 EQUB &0A AB58 EQUS "Press F(ret) to start " AB6E EQUB &FF AB6F EQUB &1F AB70 EQUB &04 AB71 EQUB &14 AB72 EQUS " E R R O R" AB7F EQUB &0A AB80 EQUB &FF AB81 BA TSX AB82 A9 00 LDA #&00 AB84 9D 05 01 STA &0105,X AB87 20 2A A3 JSR R32A AB8A EQUB &0D AB8B EQUB &0A AB8C EQUS "WD 1770 status : " AB9D EQUB &FF AB9E AD D5 B8 LDA &B8D5 ABA1 20 81 A3 JSR R381 ABA4 4C 45 84 JMP P445 ABA7 A2 00 LDX #&00 ABA9 AD A2 01 LDA &01A2 ;ABAA=LDX #&01 ABAC AD A2 02 LDA &02A2 ;ABAD=LDX #&02 ABAF AD A2 03 LDA &03A2 ;ABB0=LDX #&03 ABB2 AD A2 04 LDA &04A2 ;ABB3=LDX #&04 ABB5 8E A0 B8 STX &B8A0 ABB8 20 67 AC JSR RC67 ABBB 4C A6 AD JMP RDA6 ABBE 4C D4 AC JMP RCD4 ABC1 20 D4 AC JSR RCD4 ABC4 A0 09 LDY #&09 ABC6 B1 B0 LDA (&B0),Y ABC8 D0 02 BNE RBCC ABCA A9 01 LDA #&01 .RBCC ABCC 48 PHA ABCD 85 BB STA &BB ABCF 20 13 AD JSR RD13 ABD2 A8 TAY ABD3 68 PLA ABD4 0A ASL A ABD5 0A ASL A ABD6 AA TAX ABD7 98 TYA ABD8 48 PHA ABD9 A0 00 LDY #&00 .RBDB ABDB B9 0C 0D LDA &0D0C,Y ABDE 20 D7 9F JSR QFD7 ABE1 C8 INY ABE2 CA DEX ABE3 D0 F6 BNE RBDB ABE5 68 PLA ABE6 60 RTS ABE7 4C 4F B0 JMP S04F ABEA 88 DEY ABEB 20 B2 AC JSR RCB2 ABEE 4A LSR A ABEF 4A LSR A ABF0 4A LSR A ABF1 09 44 ORA #&44 .RBF3 ABF3 60 RTS ABF4 A5 BA LDA &BA ABF6 C9 0D CMP #&0D ABF8 D0 F9 BNE RBF3 ABFA B1 B0 LDA (&B0),Y ABFC 8D D4 B8 STA &B8D4 ABFF 60 RTS AC00 B1 B0 LDA (&B0),Y AC02 A6 BA LDX &BA AC04 E0 00 CPX #&00 AC06 B0 04 BCS RC0C AC08 9D F3 B8 STA &B8F3,X AC0B 60 RTS .RC0C AC0C A0 00 LDY #&00 AC0E E0 12 CPX #&12 AC10 F0 05 BEQ RC17 AC12 C8 INY AC13 E0 1A CPX #&1A AC15 D0 28 BNE RC3F .RC17 AC17 99 D2 B8 STA &B8D2,Y AC1A A9 00 LDA #&00 AC1C 60 RTS AC1D A6 BA LDX &BA AC1F E0 00 CPX #&00 AC21 B0 08 BCS RC2B AC23 BD F3 B8 LDA &B8F3,X AC26 91 B0 STA (&B0),Y AC28 A9 00 LDA #&00 AC2A 60 RTS .RC2B AC2B E0 12 CPX #&12 AC2D F0 04 BEQ RC33 AC2F E0 1A CPX #&1A AC31 D0 0C BNE RC3F .RC33 AC33 8A TXA AC34 4A LSR A AC35 4A LSR A AC36 4A LSR A AC37 29 01 AND #&01 AC39 AA TAX AC3A BD D2 B8 LDA &B8D2,X AC3D 91 B0 STA (&B0),Y .RC3F AC3F A9 00 LDA #&00 AC41 60 RTS AC42 EQUB &13 AC43 EQUW &A6,&AB AC45 EQUB &0B AC46 EQUW &A9,&AB AC48 EQUB &29 AC49 EQUW &BD,&AB AC4B EQUB &1F AC4C EQUW &B2,&AB AC4E EQUB &17 AC4F EQUW &A6,&AB AC51 EQUB &0F AC52 EQUW &AF,&AB AC54 EQUB &1B AC55 EQUW &C0,&AB AC57 EQUB &23 AC58 EQUW &E6,&AB AC5A EQUB &2C AC5B EQUW &E9,&AB AC5D EQUB &35 AC5E EQUW &F3,&AB AC60 EQUB &3A AC61 EQUW &FF,&AB AC63 EQUB &3D AC64 EQUW &1C,&AC AC66 EQUB &00 .RC67 AC67 B1 B0 LDA (&B0),Y AC69 C8 INY AC6A 85 BB STA &BB AC6C B1 B0 LDA (&B0),Y AC6E 20 B3 A3 JSR R3B3 AC71 AA TAX AC72 A9 00 LDA #&00 AC74 85 A0 STA &A0 AC76 B1 B0 LDA (&B0),Y AC78 C8 INY AC79 29 1F AND #&1F AC7B 4A LSR A AC7C 66 A0 ROR &A0 AC7E 90 03 BCC RC83 .RC80 AC80 06 A0 ASL &A0 AC82 2A ROL A .RC83 AC83 CA DEX AC84 10 FA BPL RC80 AC86 85 A1 STA &A1 AC88 60 RTS .RC89 AC89 60 RTS .RC8A AC8A 20 5B A2 JSR R25B AC8D A5 CF LDA &CF AC8F 29 03 AND #&03 AC91 AA TAX AC92 BD A0 AC LDA &ACA0,X AC95 2C FE B8 BIT &B8FE AC98 50 02 BVC RC9C AC9A 09 10 ORA #&10 .RC9C AC9C 8D C0 FC STA &FCC0 AC9F 60 RTS ACA0 EQUB &29,&2A,&2D,&2E .RCA4 ACA4 A9 29 LDA #&29 ACA6 8D C0 FC STA &FCC0 ACA9 20 0A AD JSR RD0A ACAC A9 00 LDA #&00 ACAE 8D C0 FC STA &FCC0 ACB1 60 RTS .RCB2 ACB2 20 8A AC JSR RC8A ACB5 20 0A AD JSR RD0A ACB8 20 26 B2 JSR S226 ACBB 29 40 AND #&40 ACBD 60 RTS .RCBE ACBE 20 84 A2 JSR R284 ACC1 20 8A AC JSR RC8A ACC4 A9 00 LDA #&00 ACC6 20 FE AC JSR RCFE ACC9 A5 CF LDA &CF ACCB 29 01 AND #&01 ACCD AA TAX ACCE A9 00 LDA #&00 ACD0 9D D2 B8 STA &B8D2,X ACD3 60 RTS .RCD4 ACD4 A5 BA LDA &BA ACD6 2C F3 B8 BIT &B8F3 ACD9 50 01 BVC RCDC ACDB 0A ASL A .RCDC ACDC C9 00 CMP #&00 ACDE F0 DE BEQ RCBE ACE0 20 84 A2 JSR R284 ACE3 48 PHA ACE4 A5 CF LDA &CF ACE6 29 01 AND #&01 ACE8 AA TAX ACE9 BD D2 B8 LDA &B8D2,X ACEC 20 B7 B1 JSR S1B7 ACEF 68 PLA ACF0 9D D2 B8 STA &B8D2,X ACF3 20 15 B2 JSR S215 ACF6 A9 10 LDA #&10 ACF8 20 FE AC JSR RCFE ACFB 29 10 AND #&10 ACFD 60 RTS .RCFE ACFE 20 8A AC JSR RC8A AD01 0D D4 B8 ORA &B8D4 AD04 20 03 B2 JSR S203 AD07 4C 26 B2 JMP S226 .RD0A AD0A A9 D0 LDA #&D0 AD0C 4C 03 B2 JMP S203 .RD0F AD0F 2C C4 FC BIT &FCC4 AD12 60 RTS .RD13 AD13 08 PHP AD14 78 SEI AD15 20 0F AD JSR RD0F AD18 30 03 BMI RD1D AD1A 20 80 AD JSR RD80 .RD1D AD1D A0 01 LDY #&01 AD1F 20 82 AD JSR RD82 AD22 2C FE B8 BIT &B8FE AD25 70 30 BVS RD57 AD27 A0 00 LDY #&00 .RD29 AD29 A9 C0 LDA #&C0 AD2B 20 03 B2 JSR S203 AD2E A2 04 LDX #&04 .RD30 AD30 AD C4 FC LDA &FCC4 AD33 6A ROR A AD34 90 1A BCC RD50 AD36 6A ROR A AD37 90 F7 BCC RD30 AD39 AD C7 FC LDA &FCC7 AD3C 99 0C 0D STA &0D0C,Y AD3F C8 INY AD40 CA DEX AD41 D0 ED BNE RD30 AD43 20 79 AD JSR RD79 AD46 20 79 AD JSR RD79 AD49 20 26 B2 JSR S226 AD4C C6 BB DEC &BB AD4E D0 D9 BNE RD29 .RD50 AD50 28 PLP AD51 20 26 B2 JSR S226 AD54 29 18 AND #&18 AD56 60 RTS .RD57 AD57 58 CLI AD58 A0 0C LDY #&0C .RD5A AD5A B9 56 B2 LDA &B256,Y AD5D 99 00 0D STA &0D00,Y AD60 88 DEY AD61 10 F7 BPL RD5A .RD63 AD63 A9 C0 LDA #&C0 AD65 20 03 B2 JSR S203 AD68 20 26 B2 JSR S226 AD6B D0 E3 BNE RD50 AD6D CE 05 0D DEC &0D05 AD70 CE 05 0D DEC &0D05 AD73 C6 BB DEC &BB AD75 D0 EC BNE RD63 AD77 F0 D7 BEQ RD50 .RD79 AD79 20 D9 AF JSR RFD9 AD7C AD C7 FC LDA &FCC7 AD7F 60 RTS .RD80 AD80 A0 06 LDY #&06 .RD82 AD82 AD C4 FC LDA &FCC4 AD85 29 02 AND #&02 AD87 F0 F9 BEQ RD82 .RD89 AD89 AD C4 FC LDA &FCC4 AD8C 29 02 AND #&02 AD8E D0 F9 BNE RD89 AD90 88 DEY AD91 D0 EF BNE RD82 AD93 60 RTS .RD94 AD94 20 84 A2 JSR R284 AD97 A9 00 LDA #&00 AD99 85 BB STA &BB AD9B 85 A0 STA &A0 AD9D A9 0A LDA #&0A AD9F 85 A1 STA &A1 ADA1 A9 04 LDA #&04 ADA3 8D A0 B8 STA &B8A0 .RDA6 ADA6 20 84 A2 JSR R284 ADA9 AD C4 FC LDA &FCC4 ADAC 48 PHA ADAD 20 8A AC JSR RC8A ADB0 A2 0A LDX #&0A .RDB2 ADB2 CA DEX ADB3 D0 FD BNE RDB2 ADB5 20 D4 AC JSR RCD4 ADB8 A5 BA LDA &BA ADBA 20 AD B1 JSR S1AD ADBD 68 PLA ADBE 30 19 BMI RDD9 ADC0 AD A0 B8 LDA &B8A0 ADC3 C9 01 CMP #&01 ADC5 D0 12 BNE RDD9 ADC7 48 PHA ADC8 A9 04 LDA #&04 ADCA 8D A0 B8 STA &B8A0 ADCD A2 04 LDX #&04 .RDCF ADCF 20 E2 AD JSR RDE2 ADD2 CA DEX ADD3 D0 FA BNE RDCF ADD5 68 PLA ADD6 8D A0 B8 STA &B8A0 .RDD9 ADD9 20 E2 AD JSR RDE2 ADDC 48 PHA ADDD 20 A5 B1 JSR S1A5 ADE0 68 PLA ADE1 60 RTS .RDE2 ADE2 20 84 A2 JSR R284 ADE5 A5 A0 LDA &A0 ADE7 8D CB B8 STA &B8CB ADEA A5 A1 LDA &A1 ADEC 8D CC B8 STA &B8CC ADEF 20 E3 AF JSR RFE3 ADF2 2C E8 B8 BIT &B8E8 ADF5 70 0A BVS RE01 ADF7 A5 A6 LDA &A6 ADF9 8D F7 B8 STA &B8F7 ADFC A5 A7 LDA &A7 ADFE 8D F8 B8 STA &B8F8 .RE01 AE01 AD CB B8 LDA &B8CB AE04 F0 03 BEQ RE09 AE06 EE CC B8 INC &B8CC .RE09 AE09 A5 BB LDA &BB AE0B 20 11 B2 JSR S211 AE0E 08 PHP AE0F 78 SEI AE10 AC A0 B8 LDY &B8A0 AE13 B9 46 B2 LDA &B246,Y AE16 20 03 B2 JSR S203 AE19 98 TYA AE1A 29 05 AND #&05 AE1C F0 71 BEQ RE8F AE1E 6A ROR A AE1F B0 1D BCS RE3E AE21 2C FE B8 BIT &B8FE AE24 50 03 BVC RE29 AE26 4C 46 AF JMP RF46 .RE29 AE29 20 D9 AF JSR RFD9 AE2C 90 3A BCC RE68 AE2E AD C7 FC LDA &FCC7 AE31 CE CB B8 DEC &B8CB AE34 D0 F3 BNE RE29 AE36 CE CC B8 DEC &B8CC AE39 D0 EE BNE RE29 AE3B 4C E0 AE JMP REE0 .RE3E AE3E A9 00 LDA #&00 AE40 8D CB B8 STA &B8CB AE43 A9 AD LDA #&AD AE45 8D F6 B8 STA &B8F6 AE48 2C FE B8 BIT &B8FE AE4B 50 03 BVC RE50 AE4D 4C F5 AE JMP REF5 .RE50 AE50 A9 63 LDA #&63 AE52 8D FA B8 STA &B8FA AE55 A9 AE LDA #&AE AE57 8D FB B8 STA &B8FB AE5A 20 C7 AF JSR RFC7 AE5D 8D 7F FC STA &FC7F .RE60 AE60 4C F6 B8 JMP S8F6 AE63 AA TAX .RE64 AE64 AD C4 FC LDA &FCC4 AE67 6A ROR A .RE68 AE68 90 7B BCC REE5 AE6A 6A ROR A AE6B 90 F7 BCC RE64 AE6D 8E C7 FC STX &FCC7 AE70 2C E8 B8 BIT &B8E8 AE73 70 08 BVS RE7D AE75 EE F7 B8 INC &B8F7 AE78 D0 02 BNE RE7C ;??? AE7A EE F8 B8 INC &B8F8 ;AE7C=CLD .RE7C AE7C B8 CLD .RE7D AE7D CE CB B8 DEC &B8CB AE80 D0 DE BNE RE60 AE82 CE CC B8 DEC &B8CC AE85 D0 D9 BNE RE60 AE87 A2 32 LDX #&32 .RE89 AE89 CA DEX AE8A D0 FD BNE RE89 AE8C 4C E0 AE JMP REE0 .RE8F AE8F 2C FE B8 BIT &B8FE AE92 50 03 BVC RE97 AE94 4C 1E AF JMP RF1E .RE97 AE97 2C E8 B8 BIT &B8E8 AE9A 70 2B BVS REC7 AE9C 20 C7 AF JSR RFC7 AE9F 8D 7F FC STA &FC7F AEA2 AE CB B8 LDX &B8CB AEA5 A0 00 LDY #&00 .REA7 AEA7 AD C4 FC LDA &FCC4 AEAA 6A ROR A AEAB 90 38 BCC REE5 AEAD 6A ROR A AEAE 90 F7 BCC REA7 AEB0 AD C7 FC LDA &FCC7 AEB3 4C F6 B8 JMP S8F6 .REB6 AEB6 C8 INY AEB7 D0 03 BNE REBC AEB9 EE F8 B8 INC &B8F8 .REBC AEBC CA DEX AEBD D0 E8 BNE REA7 AEBF CE CC B8 DEC &B8CC AEC2 D0 E3 BNE REA7 AEC4 4C E0 AE JMP REE0 .REC7 AEC7 AD C4 FC LDA &FCC4 AECA 6A ROR A AECB 90 18 BCC REE5 AECD 6A ROR A AECE 90 F7 BCC REC7 AED0 AD C7 FC LDA &FCC7 AED3 8D E5 FC STA &FCE5 AED6 CE CB B8 DEC &B8CB AED9 D0 EC BNE REC7 AEDB CE CC B8 DEC &B8CC AEDE D0 E7 BNE REC7 .REE0 AEE0 A9 D0 LDA #&D0 AEE2 8D C4 FC STA &FCC4 .REE5 AEE5 A9 00 LDA #&00 AEE7 8D 7F FC STA &FC7F .REEA AEEA 28 PLP AEEB 20 3D B2 JSR S23D AEEE AC A0 B8 LDY &B8A0 AEF1 39 4B B2 AND &B24B,Y AEF4 60 RTS .REF5 AEF5 20 57 AF JSR RF57 AEF8 A9 B9 LDA #&B9 AEFA 8D 0C 0D STA &0D0C AEFD A9 AF LDA #&AF AEFF 8D 0D 0D STA &0D0D AF02 20 C7 AF JSR RFC7 AF05 10 0A BPL RF11 AF07 A9 B4 LDA #&B4 AF09 8D 0C 0D STA &0D0C AF0C A9 AF LDA #&AF AF0E 8D 0D 0D STA &0D0D .RF11 AF11 A9 BC LDA #&BC AF13 8D FA B8 STA &B8FA AF16 A9 AF LDA #&AF AF18 8D FB B8 STA &B8FB AF1B 4C 3F AF JMP RF3F .RF1E AF1E 20 57 AF JSR RF57 AF21 20 C7 AF JSR RFC7 AF24 10 0A BPL RF30 AF26 A9 A9 LDA #&A9 AF28 8D 0C 0D STA &0D0C AF2B A9 AF LDA #&AF AF2D 8D 0D 0D STA &0D0D .RF30 AF30 A9 8D LDA #&8D AF32 8D F6 B8 STA &B8F6 AF35 A9 BF LDA #&BF AF37 8D FA B8 STA &B8FA AF3A A9 AF LDA #&AF AF3C 8D FB B8 STA &B8FB .RF3F AF3F 58 CLI AF40 20 26 B2 JSR S226 AF43 4C EA AE JMP REEA .RF46 AF46 20 57 AF JSR RF57 AF49 A0 06 LDY #&06 .RF4B AF4B B9 A3 AF LDA &AFA3,Y AF4E 99 0B 0D STA &0D0B,Y AF51 88 DEY AF52 10 F7 BPL RF4B AF54 4C 3F AF JMP RF3F .RF57 AF57 A0 3A LDY #&3A .RF59 AF59 B9 68 AF LDA &AF68,Y AF5C 99 00 0D STA &0D00,Y AF5F 88 DEY AF60 10 F7 BPL RF59 AF62 A5 F4 LDA &F4 AF64 8D 07 0D STA &0D07 AF67 60 RTS AF68 48 PHA AF69 A9 0C LDA #&0C AF6B 8D 05 FE STA &FE05 AF6E A9 00 LDA #&00 AF70 8D 05 FE STA &FE05 AF73 4C AE AF JMP RFAE AF76 4C 11 0D JMP &0D11 AF79 EE F7 B8 INC &B8F7 AF7C D0 03 BNE RF81 AF7E EE F8 B8 INC &B8F8 .RF81 AF81 CE CB B8 DEC &B8CB AF84 D0 11 BNE RF97 AF86 CE CC B8 DEC &B8CC AF89 D0 0C BNE RF97 AF8B 38 SEC AF8C A9 00 LDA #&00 .RF8E AF8E E9 01 SBC #&01 AF90 B0 FC BCS RF8E AF92 A9 D0 LDA #&D0 AF94 8D C4 FC STA &FCC4 .RF97 AF97 A9 80 LDA #&80 AF99 8D 05 FE STA &FE05 AF9C A5 F4 LDA &F4 AF9E 8D 05 FE STA &FE05 AFA1 68 PLA AFA2 40 RTI AFA3 AD C7 FC LDA &FCC7 AFA6 4C 19 0D JMP &0D19 AFA9 A9 80 LDA #&80 AFAB 8D 7F FC STA &FC7F .RFAE AFAE AD C7 FC LDA &FCC7 AFB1 4C F6 B8 JMP S8F6 AFB4 A9 80 LDA #&80 AFB6 8D 7F FC STA &FC7F AFB9 4C F6 B8 JMP S8F6 AFBC 8D C7 FC STA &FCC7 AFBF A9 00 LDA #&00 AFC1 8D 7F FC STA &FC7F AFC4 4C 0E 0D JMP &0D0E .RFC7 AFC7 AD B6 B8 LDA &B8B6 AFCA 49 01 EOR #&01 AFCC 2D B7 B8 AND &B8B7 AFCF C9 FF CMP #&FF AFD1 D0 03 BNE RFD6 AFD3 A9 80 LDA #&80 AFD5 60 RTS .RFD6 AFD6 A9 00 LDA #&00 AFD8 60 RTS .RFD9 AFD9 AD C4 FC LDA &FCC4 AFDC 6A ROR A AFDD 90 03 BCC RFE2 AFDF 6A ROR A AFE0 90 F7 BCC RFD9 .RFE2 AFE2 60 RTS .RFE3 AFE3 A0 05 LDY #&05 .RFE5 AFE5 B9 50 B2 LDA &B250,Y AFE8 99 F6 B8 STA &B8F6,Y AFEB 88 DEY AFEC 10 F7 BPL RFE5 AFEE 60 RTS .RFEF AFEF A5 A0 LDA &A0 AFF1 20 DC AC JSR RCDC AFF4 A5 A1 LDA &A1 AFF6 20 11 B2 JSR S211 AFF9 08 PHP AFFA 78 SEI AFFB A9 80 LDA #&80 AFFD 20 03 B2 JSR S203 B000 A0 00 LDY #&00 .S002 B002 AD C4 FC LDA &FCC4 B005 6A ROR A B006 6A ROR A B007 90 F9 BCC S002 B009 AD C7 FC LDA &FCC7 B00C 99 00 BB STA &BB00,Y B00F C8 INY B010 D0 F0 BNE S002 B012 28 PLP B013 60 RTS .S014 B014 A9 0A LDA #&0A B016 85 A6 STA &A6 B018 0A ASL A B019 0A ASL A B01A 85 A7 STA &A7 B01C A9 00 LDA #&00 B01E 8D E8 B8 STA &B8E8 B021 A6 BB LDX &BB B023 A0 00 LDY #&00 .S025 B025 A5 BA LDA &BA B027 99 60 B8 STA &B860,Y B02A C8 INY B02B A9 00 LDA #&00 B02D 99 60 B8 STA &B860,Y B030 C8 INY B031 8A TXA B032 99 60 B8 STA &B860,Y B035 C8 INY B036 A9 01 LDA #&01 B038 99 60 B8 STA &B860,Y B03B C8 INY B03C E8 INX B03D E4 A6 CPX &A6 B03F 90 02 BCC S043 B041 A2 00 LDX #&00 .S043 B043 C4 A7 CPY &A7 B045 90 DE BCC S025 B047 A9 60 LDA #&60 B049 85 A6 STA &A6 B04B A9 B8 LDA #&B8 B04D 85 A7 STA &A7 .S04F B04F A9 00 LDA #&00 B051 85 A2 STA &A2 B053 85 A4 STA &A4 B055 A9 BC LDA #&BC B057 85 A3 STA &A3 B059 A9 BE LDA #&BE B05B 85 A5 STA &A5 B05D A2 00 LDX #&00 B05F A0 05 LDY #&05 .S061 B061 20 F5 B0 JSR S0F5 B064 88 DEY B065 D0 FA BNE S061 B067 A0 0A LDY #&0A .S069 B069 8A TXA B06A 48 PHA .S06B B06B 20 F5 B0 JSR S0F5 B06E 90 FB BCC S06B B070 68 PLA B071 AA TAX B072 88 DEY B073 D0 F4 BNE S069 B075 A9 00 LDA #&00 B077 20 48 B1 JSR S148 B07A 20 8A AC JSR RC8A B07D 20 D4 AC JSR RCD4 B080 A9 BC LDA #&BC B082 85 A7 STA &A7 B084 A9 BE LDA #&BE B086 85 A5 STA &A5 B088 A9 00 LDA #&00 B08A 85 A4 STA &A4 B08C 85 A6 STA &A6 B08E 08 PHP B08F 78 SEI B090 A9 F4 LDA #&F4 B092 20 03 B2 JSR S203 B095 2C FE B8 BIT &B8FE B098 70 1F BVS S0B9 B09A A0 00 LDY #&00 .S09C B09C B1 A4 LDA (&A4),Y B09E AA TAX .S09F B09F 20 D9 AF JSR RFD9 B0A2 90 11 BCC S0B5 B0A4 B1 A6 LDA (&A6),Y B0A6 8D C7 FC STA &FCC7 B0A9 CA DEX B0AA D0 F3 BNE S09F B0AC C8 INY B0AD D0 ED BNE S09C B0AF E6 A7 INC &A7 B0B1 E6 A5 INC &A5 B0B3 D0 E7 BNE S09C .S0B5 B0B5 28 PLP B0B6 A9 00 LDA #&00 B0B8 60 RTS .S0B9 B0B9 20 57 AF JSR RF57 B0BC A0 21 LDY #&21 .S0BE B0BE B9 D4 B0 LDA &B0D4,Y B0C1 99 0B 0D STA &0D0B,Y B0C4 88 DEY B0C5 10 F7 BPL S0BE B0C7 A0 00 LDY #&00 B0C9 B1 A4 LDA (&A4),Y B0CB 85 A3 STA &A3 B0CD 58 CLI B0CE 20 26 B2 JSR S226 B0D1 4C B5 B0 JMP S0B5 B0D4 8C 28 0D STY &0D28 B0D7 A0 00 LDY #&00 B0D9 B1 A6 LDA (&A6),Y B0DB 8D C7 FC STA &FCC7 B0DE C6 A3 DEC &A3 B0E0 D0 0E BNE S0F0 B0E2 EE 0F 0D INC &0D0F B0E5 C8 INY B0E6 D0 04 BNE S0EC B0E8 E6 A5 INC &A5 B0EA E6 A7 INC &A7 .S0EC B0EC B1 A4 LDA (&A4),Y B0EE 85 A3 STA &A3 .S0F0 B0F0 A0 00 LDY #&00 B0F2 4C 2F 0D JMP &0D2F .S0F5 B0F5 8A TXA B0F6 48 PHA B0F7 98 TYA B0F8 48 PHA B0F9 A0 00 LDY #&00 B0FB 38 SEC B0FC BD 5B B1 LDA &B15B,X B0FF 30 12 BMI S113 B101 F0 09 BEQ S10C B103 85 A0 STA &A0 B105 BD 5C B1 LDA &B15C,X B108 20 48 B1 JSR S148 .S10B B10B 18 CLC .S10C B10C 68 PLA B10D A8 TAY B10E 68 PLA B10F AA TAX B110 E8 INX B111 E8 INX B112 60 RTS .S113 B113 BD 5C B1 LDA &B15C,X B116 D0 1C BNE S134 B118 A9 01 LDA #&01 B11A 85 A0 STA &A0 B11C A2 04 LDX #&04 .S11E B11E A0 00 LDY #&00 B120 20 CB 9F JSR QFCB B123 20 48 B1 JSR S148 B126 E6 A6 INC &A6 B128 D0 02 BNE S12C B12A E6 A7 INC &A7 .S12C B12C CA DEX B12D D0 EF BNE S11E B12F 85 A1 STA &A1 B131 4C 0B B1 JMP S10B .S134 B134 A6 A1 LDX &A1 B136 BD A1 B1 LDA &B1A1,X B139 85 A0 STA &A0 B13B A2 08 LDX #&08 .S13D B13D A9 E5 LDA #&E5 B13F 20 48 B1 JSR S148 B142 CA DEX B143 D0 F8 BNE S13D B145 4C 0B B1 JMP S10B .S148 B148 A0 00 LDY #&00 B14A 91 A2 STA (&A2),Y B14C A5 A0 LDA &A0 B14E 91 A4 STA (&A4),Y B150 E6 A2 INC &A2 B152 E6 A4 INC &A4 B154 D0 04 BNE S15A B156 E6 A3 INC &A3 B158 E6 A5 INC &A5 .S15A B15A 60 RTS B15B EQUB &10,&FF,&03,&00 B15F EQUB &03,&00,&01,&FC B163 EQUB &0B,&FF,&03,&00 B167 EQUB &03,&00,&01,&FE B16B EQUB &FF,&00,&01,&F7 B16F EQUB &0B,&FF,&03,&00 B173 EQUB &03,&00,&01,&FB B177 EQUB &FF,&01,&01,&F7 B17B EQUB &10,&FF,&00,&28 B17F EQUB &4E,&0C,&00,&03 B183 EQUB &F6,&01,&FC,&19 B187 EQUB &4E,&0C,&00,&03 B18B EQUB &F5,&01,&FE,&FF B18F EQUB &00,&01,&F7,&16 B193 EQUB &4E,&0C,&00,&03 B197 EQUB &F5,&01,&FB,&FF B19B EQUB &01,&01,&F7,&16 B19F EQUB &4E,&00,&10,&20 B1A3 EQUB &40,&80 .S1A5 B1A5 A5 BA LDA &BA B1A7 2C F3 B8 BIT &B8F3 B1AA 50 01 BVC S1AD B1AC 0A ASL A .S1AD B1AD 48 PHA B1AE A5 CF LDA &CF B1B0 29 01 AND #&01 B1B2 AA TAX B1B3 68 PLA B1B4 9D D2 B8 STA &B8D2,X .S1B7 B1B7 8D C5 FC STA &FCC5 B1BA CD C5 FC CMP &FCC5 B1BD D0 F8 BNE S1B7 B1BF 60 RTS .S1C0 B1C0 20 A2 A2 JSR R2A2 B1C3 EQUB &C5 B1C4 EQUS "fault " B1CA EQUB &AD B1CB D5 B8 CMP &B8,X B1CD 20 81 A3 JSR R381 B1D0 20 EF A2 JSR R2EF B1D3 EQUS " on Drv " B1DB A5 CF LDA &CF B1DD 29 03 AND #&03 B1DF 20 81 A3 JSR R381 B1E2 20 EF A2 JSR R2EF B1E5 EQUS " at Trk " B1ED A5 BA LDA &BA B1EF 20 81 A3 JSR R381 B1F2 20 EF A2 JSR R2EF B1F5 EQUS ", Sct " B1FB A5 BB LDA &BB B1FD 20 81 A3 JSR R381 B200 4C 14 A3 JMP R314 .S203 B203 A2 00 LDX #&00 .S205 B205 CA DEX B206 D0 FD BNE S205 B208 8D C4 FC STA &FCC4 B20B A2 00 LDX #&00 .S20D B20D CA DEX B20E D0 FD BNE S20D B210 60 RTS .S211 B211 8D C6 FC STA &FCC6 B214 60 RTS .S215 B215 8D C7 FC STA &FCC7 B218 CD C7 FC CMP &FCC7 B21B D0 F8 BNE S215 B21D 60 RTS B21E AD C4 FC LDA &FCC4 B221 29 80 AND #&80 B223 49 80 EOR #&80 B225 60 RTS .S226 B226 20 84 A2 JSR R284 B229 A2 FF LDX #&FF .S22B B22B CA DEX B22C D0 FD BNE S22B .S22E B22E 20 3D B2 JSR S23D B231 6A ROR A B232 B0 FA BCS S22E B234 20 3D B2 JSR S23D B237 A2 00 LDX #&00 .S239 B239 CA DEX B23A D0 FD BNE S239 B23C 60 RTS .S23D B23D AD C4 FC LDA &FCC4 B240 29 7F AND #&7F B242 8D D5 B8 STA &B8D5 B245 60 RTS B246 EQUB &90,&B4 B248 EQUB &90,&B5 B24A EQUB &90,&3C B24C EQUB &7C,&1C B24E EQUB &5C,&3C B250 99 E5 FC STA &FCE5,Y B253 4C B6 AE JMP REB6 B256 48 PHA B257 AD C7 FC LDA &FCC7 B25A 8D 0C 0D STA &0D0C B25D EE 05 0D INC &0D05 B260 68 PLA B261 40 RTI B262 EA NOP B300 EQUB &FF B400 EQUB &FF B500 EQUB &FF B600 EQUB &BF B700 EQUB &FF B800 EQUB &F7 .S8F6 B8F6 00 BRK B900 EQUB &FF BA00 EQUB &FF BB00 EQUB &FF BC00 EQUB &FF BD00 EQUB &FF BE00 EQUB &FF BF00 EQUB &FF BFFF 00 BRK ;make 16 KiB ROM image ;This Perl script recreates the binary from this listing. ;Copy the text between the cut lines. ;Paste it into a new file, asm2bin.pl, and remove the column of ; ;Then call it with ; perl asm2bin.pl -b 8000 -o pega102 pega102.asm.txt ;-------->8--- ;#!/usr/bin/perl ; ;#Usage: perl asm2bin.pl ;# {-D SYMBOL[=VALUE]} [-E|-d] [-l] [-v] [-b BASE] ;# -o OUTFILE [FILE...] ; ;use Getopt::Std; ;use IO::Seekable qw(SEEK_SET SEEK_CUR SEEK_END); ; ;@x=(2); @t[6,7]=(2,4); ; ;for($i=0;$i<@ARGV && ($arg = $ARGV[$i]) ne '--'; ++$i) { ; if(substr($arg,0,2) eq '-D') { ; if(($dfn=substr($arg,2)) eq '') { ; $dfn = $ARGV[++$i]; ; } ; if(($x=index($dfn,'=')) > 0) { ; $symbol{substr($dfn,0,$x)} = substr($dfn,$x+1); ; } elsif($dfn ne '') { ; $symbol{$dfn} = 1; ; } ; } ;} ; ;getopts("D:Eb:dlo:v"); ;die "No output file specified" if $opt_o eq ''; ;$opt_b = hex($opt_b);$l=$opt_l ? "\n" : ''; ; ;open(BIN,"+>$opt_o") or die; ;binmode(BIN) unless $opt_E; ;while(<>) { ; y/\n\r//d; ; if($opt_v && !/^\s*#/) { ; while(($key, $value) = each %symbol) { ; $x=0; ; while(($x = index($_,$key,$x)) >= 0) { ; substr($_,$x,length($key),$value); ; $x+=length($value); ; } ; } ; } ; if(/^\s*#\s*()ifdef\s+(\S+)\s*$/ ; || /^\s*#\s*((?:el)?)if\s+defined\s*\(\s*(\S*)\s*\)/ ; || /^\s*#\s*((?:el)?)if\s+defined\s+(\S+)/) { ; unshift@x,4 if$1 eq''; ; $x[0]=$t[$x[0]|$x[1]&2|!exists($symbol{$2})];$_=$l; ; }elsif(/^\s*#\s*()ifndef\s+(\S+)\s*$/ ; || /^\s*#\s*((?:el)?)if\s+\!\s*defined\s*\(\s*(\S*)\s*\)/ ; || /^\s*#\s*((?:el)?)if\s+\!\s*defined\s+(\S+)/) { ; unshift@x,4 if$1 eq''; ; $x[0]=$t[$x[0]|$x[1]&2|exists($symbol{$2})];$_=$l; ; }elsif(/^\s*#\s*((?:el)?)if\s+\(\s*\!\s*(\S*)\s*\)\s*$/ ; || /^\s*#\s*((?:el)?)if\s+\!\s*\(\s*(\S*)\s*\)\s*$/ ; || /^\s*#\s*((?:el)?)if\s+\!\s*(\S*)\s*$/) { ; unshift@x,4 if$1 eq''; ; $x[0]=$t[$x[0]|$x[1]&2|($symbol{$2}!=0)];$_=$l; ; }elsif(/^\s*#\s*((?:el)?)if\s+\(\s*(\S*)\s*\)\s*$/ ; || /^\s*#\s*((?:el)?)if\s+(\S*)\s*$/) { ; unshift@x,4 if$1 eq''; ; $x[0]=$t[$x[0]|$x[1]&2|($symbol{$2}==0)];$_=$l; ; }elsif(/^\s*#\s*else(?!\S)/) { ; $x[0]=$t[$x[0]|$x[1]&2];$_=$l; ; }elsif(/^\s*#\s*endif(?!\S)/) { ; shift@x;@x=(2)unless@x;$_=$l; ; }elsif($x[0] & 2 && /^\s*#\s*define\s+(\S+)\s*(.*)$/) { ; $symbol{$1}=$2;$_=$l; ; }elsif($x[0] & 2 && /^\s*#\s*undef\s+(\S+)/) { ; delete $symbol{$1};$_=$l; ; }else{ ; $_.="\n"; ; } ; if($opt_E) { ; print BIN ($x[0] & 2 ? $_ : $l); next; ; }elsif(($x[0] & 2)==0) { ; next; ; } ; if(/^ {0,2}([0-9A-F]{4})/) { ; print STDERR "seek $1\n" if $opt_d; ; seek(BIN,hex($1)-$opt_b,SEEK_SET); ; } ; if(/^ {0,2}[^;\\]{4}((?: {0,2}[0-9A-F]{2}){1,3})/) { ; ($a=$1)=~y/ //d; ; print STDERR " write $a\n" if $opt_d; ; print BIN pack("H*",$a); ; } ; if(/^ {0,2}[^;\\]{4} {0,2}EQUS ((?:"[^"]*")*)/) { ; ($a=substr($1,1,length($1)-2))=~s/""/"/g; ; print STDERR " write $a\n" if $opt_d; ; print BIN $a; ; } ; if(/^ {0,2}[^;\\]{4} {0,2}EQU[^S] (&[0-9A-F]{2}(?:,&[0-9A-F]{2})*)/){ ; ($a=$1)=~y/,&//d; ; print STDERR " write $a\n" if $opt_d; ; print BIN pack("H*",$a); ; } ;} ;close(BIN); ;-------->8--- ;End of pega102.asm.txt