;Disassembly of ChADFS 300M ;Greg Cook, 5 April 2024 ;Source: http://regregex.bbcmicro.net/romsearch.zip ;Path: romsearch/slogger/CHADFS-300M-Slogger-1987 ;Banner version: 300M ;Code length: &3D0D (=&3CFF+&000E) ;Acorn CRC: &AB1B ;PKZIP CRC: &F1F8961B ;XFER CRC: &A134653D ;Cksum: 1786665315 ;NB: ChADFS requires Slogger Challenger 2.00 in the paged ROM slot ;immediately below it. 8000 EQUB &00 ;Language entry 8001 EQUB &00 8002 EQUB &00 8003 4C 88 99 JMP Q988 ;Service entry 8006 EQUB &82 ;rom type: service only 8007 EQUB &14 ;Copyright offset pointer 8008 EQUB &01 ;Version No. 8009 EQUS "CHADFS" ;title 800F EQUB &00 ;terminator byte 8010 EQUS "300M" ;version string 8014 EQUB &00 ;terminator byte 8015 EQUS "(C) Slogger 1987" ;copyright string validated by MOS 8025 EQUB &00 ;terminator byte .P026 8026 5A PHY 8027 AC 34 FE LDY &FE34 802A 8C D7 C2 STY &C2D7 802D E8 INX 802E D0 10 BNE P040 8030 C9 FE CMP #&FE 8032 D0 0C BNE P040 8034 98 TYA 8035 6A ROR A 8036 A9 04 LDA #&04 8038 1C 34 FE TRB &FE34 803B 90 03 BCC P040 803D 0C 34 FE TSB &FE34 .P040 8040 7A PLY 8041 60 RTS .P042 8042 08 PHP .P043 8043 AD 41 FC LDA &FC41 8046 85 CC STA &CC 8048 AD 41 FC LDA &FC41 804B C5 CC CMP &CC 804D D0 F4 BNE P043 804F 28 PLP 8050 60 RTS .P051 8051 A0 00 LDY #&00 .P053 8053 A9 01 LDA #&01 8055 48 PHA .P056 8056 20 42 80 JSR P042 8059 29 02 AND #&02 805B D0 F9 BNE P056 805D 68 PLA 805E 8D 40 FC STA &FC40 8061 8D 42 FC STA &FC42 .P064 8064 20 42 80 JSR P042 8067 29 02 AND #&02 8069 F0 F9 BEQ P064 .P06B 806B 60 RTS .P06C 806C 4C A4 82 JMP P2A4 .P06F 806F A9 00 LDA #&00 8071 8D 99 C2 STA &C299 .P074 8074 20 03 83 JSR P303 8077 86 B0 STX &B0 8079 84 B1 STY &B1 807B 20 D7 A5 JSR R5D7 807E A0 05 LDY #&05 8080 B1 B0 LDA (&B0),Y 8082 C9 2F CMP #&2F 8084 F0 2C BEQ P0B2 8086 C9 1B CMP #&1B 8088 F0 28 BEQ P0B2 808A A9 10 LDA #&10 808C 85 CE STA &CE 808E 10 1A BPL P0AA .P090 8090 20 B2 80 JSR P0B2 8093 F0 D6 BEQ P06B 8095 C9 04 CMP #&04 8097 D0 11 BNE P0AA 8099 A0 19 LDY #&19 .P09B 809B 24 FF BIT &FF 809D 30 CD BMI P06C 809F 38 SEC 80A0 E9 01 SBC #&01 80A2 D0 F7 BNE P09B 80A4 CA DEX 80A5 D0 F4 BNE P09B 80A7 88 DEY 80A8 D0 F1 BNE P09B .P0AA 80AA C9 40 CMP #&40 80AC F0 04 BEQ P0B2 80AE C6 CE DEC &CE 80B0 10 DE BPL P090 .P0B2 80B2 A0 04 LDY #&04 80B4 B1 B0 LDA (&B0),Y 80B6 AA TAX 80B7 88 DEY 80B8 B1 B0 LDA (&B0),Y 80BA 20 26 80 JSR P026 80BD A5 CD LDA &CD 80BF 29 20 AND #&20 80C1 D0 21 BNE P0E4 .P0C3 80C3 20 10 B9 JSR S910 80C6 F0 1B BEQ P0E3 80C8 48 PHA 80C9 A0 06 LDY #&06 80CB B1 B0 LDA (&B0),Y 80CD 0D 17 C3 ORA &C317 80D0 8D D2 C2 STA &C2D2 80D3 C8 INY 80D4 B1 B0 LDA (&B0),Y 80D6 8D D1 C2 STA &C2D1 80D9 C8 INY 80DA B1 B0 LDA (&B0),Y 80DC 8D D0 C2 STA &C2D0 80DF 68 PLA 80E0 8D D3 C2 STA &C2D3 .P0E3 80E3 60 RTS .P0E4 80E4 20 AE B9 JSR S9AE 80E7 C9 02 CMP #&02 80E9 B0 D8 BCS P0C3 80EB 20 51 80 JSR P051 80EE C8 INY 80EF B1 B0 LDA (&B0),Y 80F1 85 B2 STA &B2 80F3 C8 INY 80F4 B1 B0 LDA (&B0),Y 80F6 85 B3 STA &B3 80F8 C8 INY 80F9 B1 B0 LDA (&B0),Y 80FB C9 FE CMP #&FE 80FD 90 06 BCC P105 80FF C8 INY 8100 B1 B0 LDA (&B0),Y 8102 1A INC A 8103 F0 03 BEQ P108 .P105 8105 20 CC BC JSR SCCC .P108 8108 A0 05 LDY #&05 810A B1 B0 LDA (&B0),Y 810C 20 19 83 JSR P319 810F C8 INY 8110 B1 B0 LDA (&B0),Y 8112 0D 17 C3 ORA &C317 8115 8D 33 C3 STA &C333 8118 20 C1 B9 JSR S9C1 811B 4C 21 81 JMP P121 .P11E 811E C8 INY 811F B1 B0 LDA (&B0),Y .P121 8121 20 19 83 JSR P319 8124 20 0D 83 JSR P30D 8127 10 02 BPL P12B 8129 50 F3 BVC P11E .P12B 812B 20 1D BA JSR SA1D 812E 20 BA 81 JSR P1BA 8131 A0 05 LDY #&05 8133 B1 B0 LDA (&B0),Y 8135 29 FD AND #&FD 8137 C9 08 CMP #&08 8139 F0 19 BEQ P154 813B 20 0D 83 JSR P30D 813E 24 CD BIT &CD 8140 50 07 BVC P149 8142 2A ROL A 8143 A9 00 LDA #&00 8145 2A ROL A 8146 20 AE 81 JSR P1AE .P149 8149 A9 EF LDA #&EF 814B 8D 13 0D STA &0D13 814E 20 01 0D JSR &0D01 8151 4C 6A 81 JMP P16A .P154 8154 AD 99 C2 LDA &C299 8157 D0 06 BNE P15F 8159 20 01 0D JSR &0D01 815C 4C 6A 81 JMP P16A .P15F 815F A9 06 LDA #&06 8161 8D 13 0D STA &0D13 8164 20 01 0D JSR &0D01 8167 4C 6A 81 JMP P16A .P16A 816A 20 E6 BC JSR SCE6 816D 20 2A BA JSR SA2A .P170 8170 20 0D 83 JSR P30D 8173 AD 40 FC LDA &FC40 8176 20 0D 83 JSR P30D 8179 A8 TAY 817A 20 42 80 JSR P042 817D 29 01 AND #&01 817F F0 EF BEQ P170 8181 98 TYA 8182 AE 40 FC LDX &FC40 8185 F0 03 BEQ P18A 8187 4C 81 82 JMP P281 .P18A 818A AA TAX 818B 29 02 AND #&02 818D F0 03 BEQ P192 818F 4C 36 82 JMP P236 .P192 8192 A9 00 LDA #&00 .P194 8194 A6 B0 LDX &B0 8196 A4 B1 LDY &B1 8198 29 7F AND #&7F 819A 60 RTS .P19B 819B EE 28 C2 INC &C228 819E D0 08 BNE P1A8 81A0 EE 29 C2 INC &C229 81A3 D0 03 BNE P1A8 81A5 EE 2A C2 INC &C22A .P1A8 81A8 A2 27 LDX #&27 81AA A0 C2 LDY #&C2 81AC 60 RTS 81AD 78 SEI .P1AE 81AE 20 06 04 JSR &0406 81B1 A0 00 LDY #&00 .P1B3 81B3 20 B6 81 JSR P1B6 .P1B6 81B6 20 B9 81 JSR P1B9 .P1B9 81B9 60 RTS .P1BA 81BA A0 2F LDY #&2F .P1BC 81BC B9 EE 81 LDA &81EE,Y 81BF 99 01 0D STA &0D01,Y 81C2 88 DEY 81C3 10 F7 BPL P1BC 81C5 A9 00 LDA #&00 81C7 24 CD BIT &CD 81C9 50 0C BVC P1D7 81CB A9 2E LDA #&2E 81CD 8D 15 0D STA &0D15 81D0 A9 08 LDA #&08 81D2 8D 13 0D STA &0D13 81D5 A9 0C LDA #&0C .P1D7 81D7 24 CC BIT &CC 81D9 70 03 BVS P1DE 81DB 18 CLC 81DC 69 06 ADC #&06 .P1DE 81DE A8 TAY 81DF A2 00 LDX #&00 .P1E1 81E1 B9 1E 82 LDA &821E,Y 81E4 9D 0B 0D STA &0D0B,X 81E7 C8 INY 81E8 E8 INX 81E9 E0 06 CPX #&06 81EB D0 F4 BNE P1E1 81ED 60 RTS 81EE A0 00 LDY #&00 81F0 20 0D 83 JSR P30D 81F3 30 25 BMI P21A .P1F5 81F5 EA NOP 81F6 EA NOP 81F7 EA NOP 81F8 EA NOP .P1F9 81F9 AD 40 FC LDA &FC40 81FC 91 B2 STA (&B2),Y 81FE C8 INY 81FF D0 F8 BNE P1F9 8201 20 2B 0D JSR &0D2B 8204 4C 03 0D JMP &0D03 8207 20 B6 81 JSR P1B6 820A CA DEX 820B D0 E8 BNE P1F5 820D 20 0D 83 JSR P30D 8210 30 08 BMI P21A 8212 AD 40 FC LDA &FC40 8215 4C 20 0D JMP &0D20 8218 E6 B3 INC &B3 .P21A 821A 60 RTS 821B 4C 9B 81 JMP P19B 821E EA NOP 821F AD 40 FC LDA &FC40 8222 91 B2 STA (&B2),Y 8224 EA NOP 8225 B1 B2 LDA (&B2),Y 8227 8D 40 FC STA &FC40 822A AD 40 FC LDA &FC40 822D 8D E5 FE STA &FEE5 8230 AD E5 FE LDA &FEE5 8233 8D 40 FC STA &FC40 .P236 8236 20 51 80 JSR P051 8239 A9 03 LDA #&03 823B AA TAX 823C A8 TAY 823D 20 19 83 JSR P319 8240 AD 33 C3 LDA &C333 8243 29 E0 AND #&E0 8245 20 C1 B9 JSR S9C1 8248 20 19 83 JSR P319 .P24B 824B 20 19 83 JSR P319 824E 88 DEY 824F 10 FA BPL P24B .P251 8251 20 0D 83 JSR P30D 8254 AD 40 FC LDA &FC40 8257 9D D0 C2 STA &C2D0,X 825A CA DEX 825B 10 F4 BPL P251 825D AD 33 C3 LDA &C333 8260 29 E0 AND #&E0 8262 0D D2 C2 ORA &C2D2 8265 8D D2 C2 STA &C2D2 8268 20 0D 83 JSR P30D 826B AE D3 C2 LDX &C2D3 826E AD 40 FC LDA &FC40 8271 20 0D 83 JSR P30D 8274 AC 40 FC LDY &FC40 8277 D0 08 BNE P281 8279 29 02 AND #&02 827B D0 04 BNE P281 827D 8A TXA 827E 4C 94 81 JMP P194 .P281 8281 A9 FF LDA #&FF 8283 4C 94 81 JMP P194 .P286 8286 20 8C B9 JSR S98C .P289 8289 20 6F 80 JSR P06F 828C D0 0A BNE P298 828E 60 RTS .P28F 828F AD 2F C2 LDA &C22F 8292 8D 17 C3 STA &C317 8295 4C F0 8A JMP PAF0 .P298 8298 C9 25 CMP #&25 829A F0 F3 BEQ P28F 829C C9 65 CMP #&65 829E F0 EF BEQ P28F 82A0 C9 6F CMP #&6F 82A2 D0 13 BNE P2B7 .P2A4 82A4 20 74 84 JSR P474 .P2A7 82A7 A9 7E LDA #&7E 82A9 20 F4 FF JSR &FFF4 82AC 20 46 83 JSR P346 82AF EQUB &11 82B0 EQUS "Escape" 82B6 EQUB &00 .P2B7 82B7 C9 04 CMP #&04 82B9 D0 14 BNE P2CF 82BB 20 46 83 JSR P346 82BE EQUB &CD 82BF EQUS "Drive not ready" 82CE EQUB &00 .P2CF 82CF C9 40 CMP #&40 82D1 F0 13 BEQ P2E6 82D3 20 A0 89 JSR P9A0 82D6 AA TAX 82D7 20 4F 83 JSR P34F 82DA EQUB &C7 82DB EQUS "Disc error" 82E5 EQUB &00 .P2E6 82E6 20 29 83 JSR P329 82E9 EQUB &C9 82EA EQUS "Disc protected" 82F8 EQUB &00 .P2F9 82F9 20 FF 82 JSR P2FF 82FC D0 9A BNE P298 82FE 60 RTS .P2FF 82FF 20 19 83 JSR P319 8302 60 RTS .P303 8303 A9 01 LDA #&01 8305 08 PHP 8306 58 CLI 8307 28 PLP 8308 24 CD BIT &CD 830A D0 F7 BNE P303 830C 60 RTS .P30D 830D 48 PHA .P30E 830E 20 42 80 JSR P042 8311 29 20 AND #&20 8313 F0 F9 BEQ P30E 8315 68 PLA 8316 24 CC BIT &CC 8318 60 RTS .P319 8319 20 0D 83 JSR P30D 831C 70 06 BVS P324 831E 8D 40 FC STA &FC40 8321 A9 00 LDA #&00 8323 60 RTS .P324 8324 68 PLA 8325 68 PLA 8326 4C 6A 81 JMP P16A .P329 8329 AE 2F C2 LDX &C22F 832C E8 INX 832D D0 17 BNE P346 832F AE 2E C2 LDX &C22E 8332 E8 INX 8333 D0 0B BNE P340 8335 A0 02 LDY #&02 .P337 8337 B9 14 C3 LDA &C314,Y 833A 99 2C C2 STA &C22C,Y 833D 88 DEY 833E 10 F7 BPL P337 .P340 8340 AD 17 C3 LDA &C317 8343 8D 2F C2 STA &C22F .P346 8346 20 A0 89 JSR P9A0 8349 A9 10 LDA #&10 834B 14 CD TRB &CD .P34D 834D A2 00 LDX #&00 .P34F 834F 68 PLA 8350 85 B2 STA &B2 8352 68 PLA 8353 85 B3 STA &B3 8355 A9 10 LDA #&10 8357 14 CD TRB &CD 8359 A0 00 LDY #&00 .P35B 835B C8 INY 835C B1 B2 LDA (&B2),Y 835E 99 00 01 STA &0100,Y 8361 D0 F8 BNE P35B 8363 8A TXA 8364 F0 4F BEQ P3B5 8366 A9 20 LDA #&20 8368 99 00 01 STA &0100,Y 836B 8A TXA 836C C9 30 CMP #&30 836E B0 06 BCS P376 .P370 8370 20 2C 84 JSR P42C 8373 4C 7D 83 JMP P37D .P376 8376 C9 3A CMP #&3A 8378 B0 F6 BCS P370 837A 20 47 84 JSR P447 .P37D 837D A2 04 LDX #&04 .P37F 837F C8 INY 8380 BD 1B 84 LDA &841B,X 8383 99 00 01 STA &0100,Y 8386 CA DEX 8387 10 F6 BPL P37F 8389 AD D2 C2 LDA &C2D2 838C 0A ASL A 838D 2A ROL A 838E 2A ROL A 838F 2A ROL A 8390 20 3D 84 JSR P43D 8393 C8 INY 8394 99 00 01 STA &0100,Y 8397 A9 2F LDA #&2F 8399 C8 INY 839A 99 00 01 STA &0100,Y 839D AD D2 C2 LDA &C2D2 83A0 29 1F AND #&1F 83A2 A2 02 LDX #&02 83A4 D0 03 BNE P3A9 .P3A6 83A6 BD D0 C2 LDA &C2D0,X .P3A9 83A9 20 2C 84 JSR P42C 83AC CA DEX 83AD 10 F7 BPL P3A6 83AF C8 INY 83B0 A9 00 LDA #&00 83B2 99 00 01 STA &0100,Y .P3B5 83B5 AD D5 C2 LDA &C2D5 83B8 F0 30 BEQ P3EA 83BA A2 0B LDX #&0B 83BC 88 DEY .P3BD 83BD BD 20 84 LDA &8420,X 83C0 C8 INY 83C1 99 00 01 STA &0100,Y 83C4 CA DEX 83C5 10 F6 BPL P3BD 83C7 AD D5 C2 LDA &C2D5 83CA 20 47 84 JSR P447 83CD 5A PHY 83CE A9 C6 LDA #&C6 83D0 8D D9 C2 STA &C2D9 83D3 20 9D 84 JSR P49D 83D6 EC D5 C2 CPX &C2D5 83D9 08 PHP 83DA A2 96 LDX #&96 83DC 28 PLP 83DD F0 07 BEQ P3E6 83DF CC D5 C2 CPY &C2D5 83E2 D0 05 BNE P3E9 83E4 A2 99 LDX #&99 .P3E6 83E6 20 AC 84 JSR P4AC .P3E9 83E9 7A PLY .P3EA 83EA AD CE C2 LDA &C2CE 83ED D0 03 BNE P3F2 83EF 20 AE A6 JSR R6AE .P3F2 83F2 A9 00 LDA #&00 83F4 8D 00 01 STA &0100 83F7 99 01 01 STA &0101,Y 83FA 20 E6 BC JSR SCE6 83FD AD 01 01 LDA &0101 8400 C9 C7 CMP #&C7 8402 D0 14 BNE P418 8404 3A DEC A 8405 20 9D 84 JSR P49D 8408 5A PHY 8409 8A TXA 840A A2 96 LDX #&96 840C 20 A4 84 JSR P4A4 840F 68 PLA 8410 A2 99 LDX #&99 8412 20 A4 84 JSR P4A4 8415 20 74 84 JSR P474 .P418 8418 4C 00 01 JMP &0100 841B EQUS ": ta " .P420 8420 EQUS " lennahc no " .P42C 842C 48 PHA 842D 4A LSR A 842E 4A LSR A 842F 4A LSR A 8430 4A LSR A 8431 20 35 84 JSR P435 8434 68 PLA .P435 8435 20 3D 84 JSR P43D 8438 C8 INY 8439 99 00 01 STA &0100,Y 843C 60 RTS .P43D 843D 29 0F AND #&0F 843F F8 SED 8440 18 CLC 8441 69 90 ADC #&90 8443 69 40 ADC #&40 8445 D8 CLD 8446 60 RTS .P447 8447 2C 5D 84 BIT &845D 844A A2 64 LDX #&64 844C 20 57 84 JSR P457 844F A2 0A LDX #&0A 8451 20 57 84 JSR P457 8454 B8 CLV 8455 A2 01 LDX #&01 .P457 8457 08 PHP 8458 86 B3 STX &B3 845A A2 2F LDX #&2F 845C 38 SEC .P45D 845D E8 INX 845E E5 B3 SBC &B3 8460 B0 FB BCS P45D 8462 65 B3 ADC &B3 8464 28 PLP 8465 48 PHA 8466 8A TXA 8467 50 05 BVC P46E 8469 C9 30 CMP #&30 846B F0 05 BEQ P472 846D B8 CLV .P46E 846E C8 INY 846F 99 00 01 STA &0100,Y .P472 8472 68 PLA 8473 60 RTS .P474 8474 A2 0C LDX #&0C 8476 A9 FF LDA #&FF .P478 8478 9D 2B C2 STA &C22B,X 847B 9D 13 C3 STA &C313,X 847E CA DEX 847F D0 F7 BNE P478 8481 20 68 A0 JSR R068 8484 20 68 A0 JSR R068 8487 C8 INY 8488 98 TYA .P489 8489 99 00 C1 STA &C100,Y 848C 99 00 C0 STA &C000,Y 848F 99 00 C4 STA &C400,Y 8492 C8 INY 8493 D0 F4 BNE P489 .P495 8495 60 RTS 8496 EQUS "E." 8498 EQUB &0D 8499 EQUS "SP." 849C EQUB &0D .P49D 849D A0 FF LDY #&FF .P49F 849F A2 00 LDX #&00 84A1 4C F4 FF JMP &FFF4 .P4A4 84A4 C9 30 CMP #&30 84A6 90 ED BCC P495 84A8 C9 3A CMP #&3A 84AA B0 E9 BCS P495 .P4AC 84AC A0 84 LDY #&84 84AE 4C F7 FF JMP &FFF7 84B1 EQUB &0D 84B2 EQUS "SEY" 84B5 EQUB &00 84B6 EQUS "Hugo" .P4BA 84BA AD 37 C2 LDA &C237 84BD 0D 38 C2 ORA &C238 84C0 0D 39 C2 ORA &C239 84C3 D0 01 BNE P4C6 84C5 60 RTS .P4C6 84C6 A2 00 LDX #&00 84C8 86 B2 STX &B2 .P4CA 84CA EC FE C1 CPX &C1FE 84CD B0 32 BCS P501 84CF E8 INX 84D0 E8 INX 84D1 E8 INX 84D2 86 B2 STX &B2 84D4 A0 02 LDY #&02 .P4D6 84D6 CA DEX 84D7 BD 00 C0 LDA &C000,X 84DA D9 34 C2 CMP &C234,Y 84DD B0 04 BCS P4E3 84DF A6 B2 LDX &B2 84E1 80 E7 BRA P4CA .P4E3 84E3 D0 03 BNE P4E8 84E5 88 DEY 84E6 10 EE BPL P4D6 .P4E8 84E8 A6 B2 LDX &B2 84EA CA DEX 84EB CA DEX 84EC CA DEX 84ED 86 B2 STX &B2 84EF 18 CLC 84F0 08 PHP 84F1 A0 00 LDY #&00 .P4F3 84F3 28 PLP 84F4 B9 34 C2 LDA &C234,Y 84F7 79 37 C2 ADC &C237,Y 84FA 08 PHP 84FB DD 00 C0 CMP &C000,X 84FE F0 04 BEQ P504 8500 28 PLP .P501 8501 4C 8E 85 JMP P58E .P504 8504 E8 INX 8505 C8 INY 8506 C0 03 CPY #&03 8508 D0 E9 BNE P4F3 850A 28 PLP 850B A6 B2 LDX &B2 850D F0 62 BEQ P571 850F 18 CLC 8510 08 PHP 8511 A0 00 LDY #&00 .P513 8513 28 PLP 8514 BD FD BF LDA &BFFD,X 8517 7D FD C0 ADC &C0FD,X 851A 08 PHP 851B D9 34 C2 CMP &C234,Y 851E F0 05 BEQ P525 8520 A6 B2 LDX &B2 8522 68 PLA 8523 80 4C BRA P571 .P525 8525 E8 INX 8526 C8 INY 8527 C0 03 CPY #&03 8529 D0 E8 BNE P513 852B 28 PLP 852C A6 B2 LDX &B2 852E A0 00 LDY #&00 8530 18 CLC 8531 08 PHP .P532 8532 28 PLP 8533 BD FD C0 LDA &C0FD,X 8536 79 37 C2 ADC &C237,Y 8539 9D FD C0 STA &C0FD,X 853C 08 PHP 853D E8 INX 853E C8 INY 853F C0 03 CPY #&03 8541 D0 EF BNE P532 8543 28 PLP 8544 A0 02 LDY #&02 8546 A6 B2 LDX &B2 8548 18 CLC .P549 8549 BD FD C0 LDA &C0FD,X 854C 7D 00 C1 ADC &C100,X 854F 9D FD C0 STA &C0FD,X 8552 E8 INX 8553 88 DEY 8554 10 F3 BPL P549 .P556 8556 EC FE C1 CPX &C1FE 8559 B0 0F BCS P56A 855B BD 00 C1 LDA &C100,X 855E 9D FD C0 STA &C0FD,X 8561 BD 00 C0 LDA &C000,X 8564 9D FD BF STA &BFFD,X 8567 E8 INX 8568 D0 EC BNE P556 .P56A 856A CA DEX 856B CA DEX 856C CA DEX 856D 8E FE C1 STX &C1FE 8570 60 RTS .P571 8571 A0 00 LDY #&00 8573 18 CLC 8574 08 PHP .P575 8575 B9 34 C2 LDA &C234,Y 8578 9D 00 C0 STA &C000,X 857B 28 PLP 857C BD 00 C1 LDA &C100,X 857F 79 37 C2 ADC &C237,Y 8582 9D 00 C1 STA &C100,X 8585 08 PHP 8586 C8 INY 8587 E8 INX 8588 C0 03 CPY #&03 858A D0 E9 BNE P575 858C 28 PLP 858D 60 RTS .P58E 858E A6 B2 LDX &B2 8590 F0 34 BEQ P5C6 8592 18 CLC 8593 08 PHP 8594 A0 00 LDY #&00 .P596 8596 28 PLP 8597 BD FD BF LDA &BFFD,X 859A 7D FD C0 ADC &C0FD,X 859D 08 PHP 859E D9 34 C2 CMP &C234,Y 85A1 F0 03 BEQ P5A6 85A3 28 PLP 85A4 80 20 BRA P5C6 .P5A6 85A6 E8 INX 85A7 C8 INY 85A8 C0 03 CPY #&03 85AA D0 EA BNE P596 85AC 28 PLP 85AD A0 00 LDY #&00 85AF A6 B2 LDX &B2 85B1 18 CLC 85B2 08 PHP .P5B3 85B3 28 PLP 85B4 BD FD C0 LDA &C0FD,X 85B7 79 37 C2 ADC &C237,Y 85BA 9D FD C0 STA &C0FD,X 85BD 08 PHP 85BE E8 INX 85BF C8 INY 85C0 C0 03 CPY #&03 85C2 D0 EF BNE P5B3 85C4 28 PLP 85C5 60 RTS .P5C6 85C6 AE FE C1 LDX &C1FE 85C9 E0 F6 CPX #&F6 85CB 90 0D BCC P5DA 85CD 20 29 83 JSR P329 85D0 EQUB &99 85D1 EQUS "Map full" 85D9 EQUB &00 .P5DA 85DA E4 B2 CPX &B2 85DC F0 0F BEQ P5ED 85DE CA DEX 85DF BD 00 C0 LDA &C000,X 85E2 9D 03 C0 STA &C003,X 85E5 BD 00 C1 LDA &C100,X 85E8 9D 03 C1 STA &C103,X 85EB 80 ED BRA P5DA .P5ED 85ED A0 00 LDY #&00 .P5EF 85EF B9 34 C2 LDA &C234,Y 85F2 9D 00 C0 STA &C000,X 85F5 B9 37 C2 LDA &C237,Y 85F8 9D 00 C1 STA &C100,X 85FB E8 INX 85FC C8 INY 85FD C0 03 CPY #&03 85FF D0 EE BNE P5EF 8601 AD FE C1 LDA &C1FE 8604 69 02 ADC #&02 8606 8D FE C1 STA &C1FE .P609 8609 60 RTS .P60A 860A A2 00 LDX #&00 860C 8E 5D C2 STX &C25D 860F 8E 5E C2 STX &C25E 8612 8E 5F C2 STX &C25F .P615 8615 EC FE C1 CPX &C1FE 8618 F0 EF BEQ P609 861A A0 00 LDY #&00 861C 18 CLC 861D 08 PHP .P61E 861E 28 PLP 861F BD 00 C1 LDA &C100,X 8622 79 5D C2 ADC &C25D,Y 8625 99 5D C2 STA &C25D,Y 8628 08 PHP 8629 C8 INY 862A E8 INX 862B C0 03 CPY #&03 862D D0 EF BNE P61E 862F 28 PLP 8630 80 E3 BRA P615 .P632 8632 A2 FF LDX #&FF 8634 86 B3 STX &B3 8636 E8 INX .P637 8637 EC FE C1 CPX &C1FE 863A 90 7C BCC P6B8 863C A6 B3 LDX &B3 863E E0 FF CPX #&FF 8640 D0 3A BNE P67C 8642 20 0A 86 JSR P60A 8645 A0 00 LDY #&00 8647 A2 02 LDX #&02 8649 38 SEC .P64A 864A B9 5D C2 LDA &C25D,Y 864D F9 3D C2 SBC &C23D,Y 8650 C8 INY 8651 CA DEX 8652 10 F6 BPL P64A 8654 B0 0E BCS P664 .P656 8656 20 29 83 JSR P329 8659 EQUB &C6 865A EQUS "Disc full" 8663 EQUB &00 .P664 8664 20 29 83 JSR P329 8667 EQUB &98 8668 EQUS "Compaction required" 867B EQUB &00 .P67C 867C A0 02 LDY #&02 .P67E 867E CA DEX 867F BD 00 C0 LDA &C000,X 8682 99 3A C2 STA &C23A,Y 8685 88 DEY 8686 10 F6 BPL P67E 8688 C8 INY 8689 A6 B3 LDX &B3 868B 18 CLC 868C 08 PHP .P68D 868D 28 PLP 868E BD FD BF LDA &BFFD,X 8691 79 3D C2 ADC &C23D,Y 8694 9D FD BF STA &BFFD,X 8697 08 PHP 8698 E8 INX 8699 C8 INY 869A C0 03 CPY #&03 869C D0 EF BNE P68D 869E 28 PLP 869F A0 00 LDY #&00 86A1 A6 B3 LDX &B3 86A3 38 SEC 86A4 08 PHP .P6A5 86A5 28 PLP 86A6 BD FD C0 LDA &C0FD,X 86A9 F9 3D C2 SBC &C23D,Y 86AC 9D FD C0 STA &C0FD,X 86AF 08 PHP 86B0 E8 INX 86B1 C8 INY 86B2 C0 03 CPY #&03 86B4 D0 EF BNE P6A5 86B6 28 PLP 86B7 60 RTS .P6B8 86B8 A0 02 LDY #&02 86BA E8 INX 86BB E8 INX 86BC E8 INX 86BD 86 B2 STX &B2 .P6BF 86BF CA DEX 86C0 BD 00 C1 LDA &C100,X 86C3 D9 3D C2 CMP &C23D,Y 86C6 90 3B BCC P703 86C8 D0 30 BNE P6FA 86CA 88 DEY 86CB 10 F2 BPL P6BF 86CD A6 B2 LDX &B2 86CF A0 02 LDY #&02 .P6D1 86D1 CA DEX 86D2 BD 00 C0 LDA &C000,X 86D5 99 3A C2 STA &C23A,Y 86D8 88 DEY 86D9 10 F6 BPL P6D1 86DB A6 B2 LDX &B2 .P6DD 86DD EC FE C1 CPX &C1FE 86E0 B0 0F BCS P6F1 86E2 BD 00 C0 LDA &C000,X 86E5 9D FD BF STA &BFFD,X 86E8 BD 00 C1 LDA &C100,X 86EB 9D FD C0 STA &C0FD,X 86EE E8 INX 86EF D0 EC BNE P6DD .P6F1 86F1 AD FE C1 LDA &C1FE 86F4 E9 03 SBC #&03 86F6 8D FE C1 STA &C1FE 86F9 60 RTS .P6FA 86FA A6 B3 LDX &B3 86FC E8 INX 86FD D0 04 BNE P703 86FF A5 B2 LDA &B2 8701 85 B3 STA &B3 .P703 8703 A6 B2 LDX &B2 8705 4C 37 86 JMP P637 .P708 8708 E6 B4 INC &B4 870A D0 02 BNE P70E 870C E6 B5 INC &B5 .P70E 870E 60 RTS .P70F 870F 20 E7 A3 JSR R3E7 8712 20 77 8C JSR PC77 8715 A0 00 LDY #&00 8717 8C C0 C2 STY &C2C0 .P71A 871A B1 B4 LDA (&B4),Y 871C 29 7F AND #&7F 871E C9 2E CMP #&2E 8720 F0 08 BEQ P72A 8722 C9 22 CMP #&22 8724 F0 04 BEQ P72A 8726 C9 20 CMP #&20 8728 B0 02 BCS P72C .P72A 872A A2 00 LDX #&00 .P72C 872C 60 RTS .P72D 872D A0 0A LDY #&0A .P72F 872F 20 1A 87 JSR P71A 8732 F0 10 BEQ P744 8734 88 DEY 8735 10 F8 BPL P72F .P737 8737 20 46 83 JSR P346 873A EQUB &CC 873B EQUS "Bad name" 8743 EQUB &00 .P744 8744 A0 09 LDY #&09 .P746 8746 B1 B6 LDA (&B6),Y 8748 29 7F AND #&7F 874A 99 62 C2 STA &C262,Y 874D 88 DEY 874E 10 F6 BPL P746 8750 C8 INY 8751 A2 00 LDX #&00 .P753 8753 E0 0A CPX #&0A 8755 B0 41 BCS P798 8757 BD 62 C2 LDA &C262,X 875A C9 21 CMP #&21 875C 90 3A BCC P798 875E 09 20 ORA #&20 8760 8D 2B C2 STA &C22B 8763 C0 0A CPY #&0A 8765 B0 1B BCS P782 8767 20 1A 87 JSR P71A 876A F0 1B BEQ P787 876C C9 2A CMP #&2A 876E F0 38 BEQ P7A8 8770 C9 23 CMP #&23 8772 F0 09 BEQ P77D 8774 09 20 ORA #&20 8776 CD 2B C2 CMP &C22B 8779 90 0C BCC P787 877B D0 04 BNE P781 .P77D 877D E8 INX 877E C8 INY 877F D0 D2 BNE P753 .P781 8781 60 RTS .P782 8782 20 1A 87 JSR P71A 8785 D0 B0 BNE P737 .P787 8787 20 1A 87 JSR P71A 878A C9 23 CMP #&23 878C F0 17 BEQ P7A5 878E C9 2A CMP #&2A 8790 F0 13 BEQ P7A5 8792 88 DEY 8793 10 F2 BPL P787 8795 C9 FF CMP #&FF 8797 60 RTS .P798 8798 C0 0A CPY #&0A 879A F0 E5 BEQ P781 879C 20 1A 87 JSR P71A 879F F0 E0 BEQ P781 87A1 C9 2A CMP #&2A 87A3 F0 03 BEQ P7A8 .P7A5 87A5 C9 00 CMP #&00 87A7 60 RTS .P7A8 87A8 C8 INY .P7A9 87A9 BD 62 C2 LDA &C262,X 87AC 29 7F AND #&7F 87AE C9 21 CMP #&21 87B0 90 19 BCC P7CB 87B2 E0 0A CPX #&0A 87B4 B0 15 BCS P7CB 87B6 DA PHX 87B7 5A PHY 87B8 20 53 87 JSR P753 87BB F0 08 BEQ P7C5 87BD 7A PLY 87BE FA PLX 87BF E8 INX 87C0 D0 E7 BNE P7A9 .P7C2 87C2 E0 00 CPX #&00 87C4 60 RTS .P7C5 87C5 68 PLA 87C6 68 PLA .P7C7 87C7 A9 00 LDA #&00 87C9 38 SEC 87CA 60 RTS .P7CB 87CB C0 0A CPY #&0A 87CD B0 F8 BCS P7C7 87CF B1 B4 LDA (&B4),Y 87D1 C9 21 CMP #&21 87D3 90 F2 BCC P7C7 87D5 C9 2E CMP #&2E 87D7 F0 EE BEQ P7C7 87D9 C9 22 CMP #&22 87DB F0 EA BEQ P7C7 87DD C9 2A CMP #&2A 87DF F0 C7 BEQ P7A8 87E1 D0 DF BNE P7C2 .P7E3 87E3 20 E7 A3 JSR R3E7 87E6 20 9F 92 JSR Q29F 87E9 20 EE A5 JSR R5EE .P7EC 87EC A0 00 LDY #&00 87EE B1 B6 LDA (&B6),Y 87F0 F0 0C BEQ P7FE 87F2 20 2D 87 JSR P72D 87F5 F0 09 BEQ P800 87F7 90 07 BCC P800 87F9 20 F0 97 JSR Q7F0 87FC 80 EE BRA P7EC .P7FE 87FE C9 0F CMP #&0F .P800 8800 60 RTS 8801 EQUB &01 8802 EQUD &00,&C0,&FF,&FF 8806 EQUB &08,&00,&00,&00 880A EQUB &02,&00 880C EQUB &01 880D EQUD &00,&C4,&FF,&FF 8811 EQUB &08,&00,&00,&02 8815 EQUB &05,&00 .P817 8817 C9 30 CMP #&30 8819 90 22 BCC P83D 881B C9 38 CMP #&38 881D 90 0B BCC P82A 881F 09 20 ORA #&20 8821 C9 61 CMP #&61 8823 90 18 BCC P83D 8825 C9 69 CMP #&69 8827 B0 14 BCS P83D 8829 3A DEC A .P82A 882A 48 PHA 882B A5 CD LDA &CD 882D 29 20 AND #&20 882F D0 04 BNE P835 8831 68 PLA 8832 29 03 AND #&03 8834 48 PHA .P835 8835 68 PLA 8836 29 07 AND #&07 8838 4A LSR A 8839 6A ROR A 883A 6A ROR A 883B 6A ROR A 883C 60 RTS .P83D 883D 4C 37 87 JMP P737 .P840 8840 20 0F 87 JSR P70F 8843 F0 F8 BEQ P83D .P845 8845 20 0F 87 JSR P70F 8848 F0 1F BEQ P869 884A C9 3A CMP #&3A 884C D0 71 BNE P8BF 884E 20 08 87 JSR P708 8851 AE 2F C2 LDX &C22F 8854 E8 INX 8855 D0 06 BNE P85D 8857 AD 17 C3 LDA &C317 885A 8D 2F C2 STA &C22F .P85D 885D 20 1A 87 JSR P71A 8860 20 17 88 JSR P817 8863 8D 17 C3 STA &C317 .P866 8866 20 08 87 JSR P708 .P869 8869 AE 17 C3 LDX &C317 886C E8 INX 886D D0 0E BNE P87D 886F A5 CD LDA &CD 8871 29 20 AND #&20 8873 F0 05 BEQ P87A 8875 AD D8 C2 LDA &C2D8 8878 29 80 AND #&80 .P87A 887A 8D 17 C3 STA &C317 .P87D 887D A9 10 LDA #&10 887F 04 CD TSB &CD 8881 A2 01 LDX #&01 8883 A0 88 LDY #&88 8885 20 89 82 JSR P289 8888 A9 10 LDA #&10 888A 14 CD TRB &CD 888C AD 2E C2 LDA &C22E 888F 10 0B BPL P89C 8891 A0 02 LDY #&02 .P893 8893 B9 14 C3 LDA &C314,Y 8896 99 2C C2 STA &C22C,Y 8899 88 DEY 889A 10 F7 BPL P893 .P89C 889C A0 88 LDY #&88 889E A2 0C LDX #&0C 88A0 20 89 82 JSR P289 88A3 A9 02 LDA #&02 88A5 8D 14 C3 STA &C314 88A8 A9 00 LDA #&00 88AA 8D 15 C3 STA &C315 88AD 8D 16 C3 STA &C316 88B0 20 7F B3 JSR S37F 88B3 A0 00 LDY #&00 88B5 20 1A 87 JSR P71A 88B8 C9 2E CMP #&2E 88BA D0 24 BNE P8E0 88BC 20 08 87 JSR P708 .P8BF 88BF A0 00 LDY #&00 88C1 20 1A 87 JSR P71A 88C4 29 FD AND #&FD 88C6 C9 24 CMP #&24 88C8 F0 9C BEQ P866 88CA 20 0C B4 JSR S40C .P8CD 88CD 20 30 93 JSR Q330 88D0 D0 28 BNE P8FA 88D2 C8 INY 88D3 8C A2 C2 STY &C2A2 88D6 20 1A 87 JSR P71A 88D9 C9 2E CMP #&2E 88DB D0 22 BNE P8FF 88DD 4C 5F 89 JMP P95F .P8E0 88E0 A9 24 LDA #&24 88E2 8D 62 C2 STA &C262 88E5 A9 0D LDA #&0D 88E7 8D 63 C2 STA &C263 88EA A9 AD LDA #&AD 88EC 85 B6 STA &B6 88EE A9 93 LDA #&93 88F0 85 B7 STA &B7 88F2 A9 02 LDA #&02 88F4 8D C0 C2 STA &C2C0 88F7 A9 00 LDA #&00 88F9 60 RTS .P8FA 88FA 20 E3 87 JSR P7E3 88FD F0 10 BEQ P90F .P8FF 88FF 60 RTS .P900 8900 A2 01 LDX #&01 8902 A0 03 LDY #&03 8904 B1 B6 LDA (&B6),Y 8906 10 01 BPL P909 8908 E8 INX .P909 8909 8E C0 C2 STX &C2C0 890C A9 00 LDA #&00 890E 60 RTS .P90F 890F A0 00 LDY #&00 .P911 8911 20 1A 87 JSR P71A 8914 C9 21 CMP #&21 8916 90 E8 BCC P900 8918 C9 22 CMP #&22 891A F0 E4 BEQ P900 891C C9 2E CMP #&2E 891E F0 03 BEQ P923 8920 C8 INY 8921 D0 EE BNE P911 .P923 8923 8C A2 C2 STY &C2A2 .P926 8926 A0 03 LDY #&03 8928 B1 B6 LDA (&B6),Y 892A 30 17 BMI P943 892C 20 34 89 JSR P934 892F F0 F5 BEQ P926 .P931 8931 A9 FF LDA #&FF 8933 60 RTS .P934 8934 20 F0 97 JSR Q7F0 8937 A0 00 LDY #&00 8939 B1 B6 LDA (&B6),Y 893B F0 F4 BEQ P931 893D 20 2D 87 JSR P72D 8940 D0 F2 BNE P934 8942 60 RTS .P943 8943 A0 09 LDY #&09 8945 B1 B6 LDA (&B6),Y 8947 10 16 BPL P95F 8949 29 7F AND #&7F 894B 91 B6 STA (&B6),Y 894D 20 87 8E JSR PE87 .P950 8950 20 46 83 JSR P346 8953 EQUB &B0 8954 EQUS "Bad rename" 895E EQUB &00 .P95F 895F AD A2 C2 LDA &C2A2 8962 38 SEC 8963 65 B4 ADC &B4 8965 85 B4 STA &B4 8967 90 02 BCC P96B 8969 E6 B5 INC &B5 .P96B 896B AD 2E C2 LDA &C22E 896E 1A INC A 896F D0 0B BNE P97C 8971 A0 02 LDY #&02 .P973 8973 B9 14 C3 LDA &C314,Y 8976 99 2C C2 STA &C22C,Y 8979 88 DEY 897A 10 F7 BPL P973 .P97C 897C A2 0A LDX #&0A .P97E 897E BD 0C 88 LDA &880C,X 8981 9D 15 C2 STA &C215,X 8984 CA DEX 8985 10 F7 BPL P97E 8987 A2 02 LDX #&02 8989 A0 16 LDY #&16 .P98B 898B B1 B6 LDA (&B6),Y 898D 9D 1B C2 STA &C21B,X 8990 99 FE C2 STA &C2FE,Y 8993 C8 INY 8994 CA DEX 8995 10 F4 BPL P98B 8997 20 86 82 JSR P286 899A 4C CD 88 JMP P8CD .P99D 899D AD C0 C2 LDA &C2C0 .P9A0 89A0 48 PHA 89A1 AD 2F C2 LDA &C22F 89A4 C9 FF CMP #&FF 89A6 F0 0F BEQ P9B7 89A8 8D 17 C3 STA &C317 89AB A9 FF LDA #&FF 89AD 8D 2F C2 STA &C22F 89B0 A2 01 LDX #&01 89B2 A0 88 LDY #&88 89B4 20 89 82 JSR P289 .P9B7 89B7 AD 2E C2 LDA &C22E 89BA C9 FF CMP #&FF 89BC F0 2C BEQ P9EA 89BE AA TAX 89BF A0 0A LDY #&0A .P9C1 89C1 B9 0C 88 LDA &880C,Y 89C4 99 15 C2 STA &C215,Y 89C7 88 DEY 89C8 10 F7 BPL P9C1 89CA 8E 16 C3 STX &C316 89CD 8E 1B C2 STX &C21B 89D0 AD 2D C2 LDA &C22D 89D3 8D 15 C3 STA &C315 89D6 8D 1C C2 STA &C21C 89D9 AD 2C C2 LDA &C22C 89DC 8D 14 C3 STA &C314 89DF 8D 1D C2 STA &C21D 89E2 A9 FF LDA #&FF 89E4 8D 2E C2 STA &C22E 89E7 20 86 82 JSR P286 .P9EA 89EA A5 CD LDA &CD 89EC 8D 20 C3 STA &C320 89EF 20 1E A6 JSR R61E 89F2 A0 FB LDY #&FB .P9F4 89F4 B9 00 C3 LDA &C300,Y 89F7 91 BA STA (&BA),Y 89F9 88 DEY 89FA D0 F8 BNE P9F4 89FC AD 00 C3 LDA &C300 89FF 91 BA STA (&BA),Y 8A01 20 3B A6 JSR R63B 8A04 A6 B8 LDX &B8 8A06 A4 B9 LDY &B9 8A08 68 PLA .PA09 8A09 60 RTS .PA0A 8A0A 20 12 8A JSR PA12 8A0D F0 FA BEQ PA09 8A0F 4C 98 82 JMP P298 .PA12 8A12 AD 1A C2 LDA &C21A 8A15 C9 08 CMP #&08 8A17 F0 17 BEQ PA30 8A19 AD 20 C2 LDA &C220 8A1C F0 12 BEQ PA30 8A1E A9 00 LDA #&00 8A20 8D 20 C2 STA &C220 8A23 EE 21 C2 INC &C221 8A26 D0 08 BNE PA30 8A28 EE 22 C2 INC &C222 8A2B D0 03 BNE PA30 8A2D EE 23 C2 INC &C223 .PA30 8A30 20 8C B9 JSR S98C 8A33 A9 FF LDA #&FF 8A35 8D 1E C2 STA &C21E .PA38 8A38 AD 23 C2 LDA &C223 8A3B 0D 22 C2 ORA &C222 8A3E F0 43 BEQ PA83 8A40 20 6F 80 JSR P06F 8A43 D0 50 BNE PA95 8A45 A9 FF LDA #&FF 8A47 18 CLC 8A48 6D 17 C2 ADC &C217 8A4B 8D 17 C2 STA &C217 8A4E 90 08 BCC PA58 8A50 EE 18 C2 INC &C218 8A53 D0 03 BNE PA58 8A55 EE 19 C2 INC &C219 .PA58 8A58 A9 FF LDA #&FF 8A5A 18 CLC 8A5B 6D 1D C2 ADC &C21D 8A5E 8D 1D C2 STA &C21D 8A61 90 08 BCC PA6B 8A63 EE 1C C2 INC &C21C 8A66 D0 03 BNE PA6B 8A68 EE 1B C2 INC &C21B .PA6B 8A6B AD 21 C2 LDA &C221 8A6E 38 SEC 8A6F E9 FF SBC #&FF 8A71 8D 21 C2 STA &C221 8A74 B0 C2 BCS PA38 8A76 AD 22 C2 LDA &C222 8A79 D0 03 BNE PA7E 8A7B CE 23 C2 DEC &C223 .PA7E 8A7E CE 22 C2 DEC &C222 8A81 80 B5 BRA PA38 .PA83 8A83 AD 21 C2 LDA &C221 8A86 F0 08 BEQ PA90 8A88 8D 1E C2 STA &C21E 8A8B 20 6F 80 JSR P06F 8A8E D0 05 BNE PA95 .PA90 8A90 AD 20 C2 LDA &C220 8A93 D0 01 BNE PA96 .PA95 8A95 60 RTS .PA96 8A96 8D 99 C2 STA &C299 8A99 AD 21 C2 LDA &C221 8A9C 18 CLC 8A9D 6D 1D C2 ADC &C21D 8AA0 8D 1D C2 STA &C21D 8AA3 90 08 BCC PAAD 8AA5 EE 1C C2 INC &C21C 8AA8 D0 03 BNE PAAD 8AAA EE 1B C2 INC &C21B .PAAD 8AAD AD 21 C2 LDA &C221 8AB0 18 CLC 8AB1 6D 17 C2 ADC &C217 8AB4 8D 17 C2 STA &C217 8AB7 90 08 BCC PAC1 8AB9 EE 18 C2 INC &C218 8ABC D0 03 BNE PAC1 8ABE EE 19 C2 INC &C219 .PAC1 8AC1 A9 01 LDA #&01 8AC3 8D 1E C2 STA &C21E 8AC6 20 8C B9 JSR S98C 8AC9 4C 74 80 JMP P074 .PACC 8ACC 20 40 88 JSR P840 8ACF F0 07 BEQ PAD8 8AD1 D0 0D BNE PAE0 .PAD3 8AD3 20 34 89 JSR P934 8AD6 D0 08 BNE PAE0 .PAD8 8AD8 A0 03 LDY #&03 8ADA B1 B6 LDA (&B6),Y 8ADC 30 F5 BMI PAD3 .PADE 8ADE A9 00 LDA #&00 .PAE0 8AE0 60 RTS .PAE1 8AE1 A0 00 LDY #&00 8AE3 B1 B4 LDA (&B4),Y 8AE5 C9 5E CMP #&5E 8AE7 D0 03 BNE PAEC .PAE9 8AE9 4C 37 87 JMP P737 .PAEC 8AEC C9 40 CMP #&40 8AEE F0 F9 BEQ PAE9 .PAF0 8AF0 20 46 83 JSR P346 8AF3 EQUB &D6 8AF4 EQUS "Not found" 8AFD EQUB &00 .PAFE 8AFE 20 DE 8E JSR PEDE 8B01 D0 DD BNE PAE0 8B03 A0 04 LDY #&04 8B05 B1 B6 LDA (&B6),Y 8B07 10 D5 BPL PADE .PB09 8B09 20 46 83 JSR P346 8B0C EQUB &BD 8B0D EQUS "Access violation" 8B1D EQUB &00 8B1E 20 CC 8A JSR PACC 8B21 D0 BE BNE PAE1 8B23 A0 00 LDY #&00 8B25 B1 B6 LDA (&B6),Y 8B27 10 E0 BPL PB09 .PB29 8B29 A0 06 LDY #&06 8B2B B1 B8 LDA (&B8),Y 8B2D D0 0D BNE PB3C 8B2F 88 DEY .PB30 8B30 B1 B8 LDA (&B8),Y 8B32 99 14 C2 STA &C214,Y 8B35 88 DEY 8B36 C0 01 CPY #&01 8B38 D0 F6 BNE PB30 8B3A F0 0D BEQ PB49 .PB3C 8B3C A2 04 LDX #&04 8B3E A0 0D LDY #&0D .PB40 8B40 B1 B6 LDA (&B6),Y 8B42 9D 15 C2 STA &C215,X 8B45 88 DEY 8B46 CA DEX 8B47 D0 F7 BNE PB40 .PB49 8B49 A9 01 LDA #&01 8B4B 8D 15 C2 STA &C215 8B4E A9 08 LDA #&08 8B50 8D 1A C2 STA &C21A 8B53 A9 00 LDA #&00 8B55 8D 1F C2 STA &C21F 8B58 A0 16 LDY #&16 8B5A A2 03 LDX #&03 .PB5C 8B5C B1 B6 LDA (&B6),Y 8B5E 9D 1A C2 STA &C21A,X 8B61 C8 INY 8B62 CA DEX 8B63 D0 F7 BNE PB5C 8B65 A0 15 LDY #&15 8B67 A2 04 LDX #&04 .PB69 8B69 B1 B6 LDA (&B6),Y 8B6B 9D 1F C2 STA &C21F,X 8B6E 88 DEY 8B6F CA DEX 8B70 D0 F7 BNE PB69 8B72 20 0A 8A JSR PA0A .PB75 8B75 20 7B 8B JSR PB7B 8B78 4C 9D 89 JMP P99D .PB7B 8B7B 20 DB 93 JSR Q3DB .PB7E 8B7E A0 15 LDY #&15 8B80 A2 0B LDX #&0B .PB82 8B82 B1 B6 LDA (&B6),Y 8B84 9D 15 C2 STA &C215,X 8B87 88 DEY 8B88 CA DEX 8B89 10 F7 BPL PB82 8B8B A0 0D LDY #&0D 8B8D A2 0B LDX #&0B .PB8F 8B8F BD 15 C2 LDA &C215,X 8B92 91 B8 STA (&B8),Y 8B94 88 DEY 8B95 CA DEX 8B96 10 F7 BPL PB8F 8B98 A9 00 LDA #&00 8B9A 8D 2B C2 STA &C22B 8B9D A0 02 LDY #&02 .PB9F 8B9F B1 B6 LDA (&B6),Y 8BA1 0A ASL A 8BA2 2E 2B C2 ROL &C22B 8BA5 88 DEY 8BA6 10 F7 BPL PB9F 8BA8 AD 2B C2 LDA &C22B 8BAB 6A ROR A 8BAC 6A ROR A 8BAD 6A ROR A 8BAE 08 PHP 8BAF 4A LSR A 8BB0 28 PLP 8BB1 6A ROR A 8BB2 8D 2B C2 STA &C22B 8BB5 4A LSR A 8BB6 4A LSR A 8BB7 4A LSR A 8BB8 4A LSR A 8BB9 0D 2B C2 ORA &C22B 8BBC A0 0E LDY #&0E 8BBE 91 B8 STA (&B8),Y 8BC0 60 RTS ;OSFILE 5 = read catalogue information 8BC1 20 3E 91 JSR Q13E 8BC4 20 DE 8E JSR PEDE 8BC7 D0 0E BNE PBD7 8BC9 A0 04 LDY #&04 8BCB B1 B6 LDA (&B6),Y 8BCD 10 05 BPL PBD4 8BCF A9 FF LDA #&FF 8BD1 4C A0 89 JMP P9A0 .PBD4 8BD4 20 7E 8B JSR PB7E .PBD7 8BD7 4C 9D 89 JMP P99D .PBDA 8BDA 20 3E 91 JSR Q13E 8BDD 20 C6 8C JSR PCC6 8BE0 20 DE 8E JSR PEDE 8BE3 F0 05 BEQ PBEA 8BE5 20 30 93 JSR Q330 8BE8 F0 15 BEQ PBFF .PBEA 8BEA 60 RTS .PBEB 8BEB 20 DA 8B JSR PBDA 8BEE F0 29 BEQ PC19 8BF0 D0 05 BNE PBF7 .PBF2 8BF2 20 DA 8B JSR PBDA 8BF5 F0 19 BEQ PC10 .PBF7 8BF7 A0 00 LDY #&00 .PBF9 8BF9 B1 B4 LDA (&B4),Y 8BFB C9 2E CMP #&2E 8BFD D0 03 BNE PC02 .PBFF 8BFF 4C E1 8A JMP PAE1 .PC02 8C02 C9 21 CMP #&21 8C04 90 07 BCC PC0D 8C06 C9 22 CMP #&22 8C08 F0 03 BEQ PC0D 8C0A C8 INY 8C0B D0 EC BNE PBF9 .PC0D 8C0D A9 11 LDA #&11 8C0F 60 RTS .PC10 8C10 A0 03 LDY #&03 8C12 B1 B6 LDA (&B6),Y 8C14 10 03 BPL PC19 8C16 4C 85 94 JMP Q485 .PC19 8C19 A0 02 LDY #&02 8C1B B1 B6 LDA (&B6),Y 8C1D 10 0B BPL PC2A 8C1F 20 46 83 JSR P346 8C22 EQUB &C3 8C23 EQUS "Locked" 8C29 EQUB &00 .PC2A 8C2A A2 09 LDX #&09 .PC2C 8C2C BD AC C3 LDA &C3AC,X 8C2F F0 41 BEQ PC72 8C31 BD B6 C3 LDA &C3B6,X 8C34 29 E0 AND #&E0 8C36 CD 17 C3 CMP &C317 8C39 D0 37 BNE PC72 8C3B BD E8 C3 LDA &C3E8,X 8C3E CD 14 C3 CMP &C314 8C41 D0 2F BNE PC72 8C43 BD DE C3 LDA &C3DE,X 8C46 CD 15 C3 CMP &C315 8C49 D0 27 BNE PC72 8C4B BD D4 C3 LDA &C3D4,X 8C4E CD 16 C3 CMP &C316 8C51 D0 1F BNE PC72 8C53 A0 19 LDY #&19 8C55 B1 B6 LDA (&B6),Y 8C57 DD F2 C3 CMP &C3F2,X 8C5A D0 16 BNE PC72 .PC5C 8C5C 20 46 83 JSR P346 8C5F EQUB &C2 8C60 EQUS "Can't - File open" 8C71 EQUB &00 .PC72 8C72 CA DEX 8C73 10 B7 BPL PC2C 8C75 E8 INX 8C76 60 RTS .PC77 8C77 A0 00 LDY #&00 8C79 20 1A 87 JSR P71A 8C7C D0 05 BNE PC83 8C7E C9 2E CMP #&2E 8C80 F0 62 BEQ PCE4 8C82 60 RTS .PC83 8C83 C9 3A CMP #&3A 8C85 D0 0F BNE PC96 8C87 C8 INY .PC88 8C88 C8 INY 8C89 20 1A 87 JSR P71A 8C8C D0 56 BNE PCE4 8C8E C9 2E CMP #&2E 8C90 D0 4C BNE PCDE 8C92 C8 INY 8C93 20 DF 8C JSR PCDF .PC96 8C96 29 FD AND #&FD 8C98 C9 24 CMP #&24 8C9A F0 EC BEQ PC88 .PC9C 8C9C 20 DF 8C JSR PCDF 8C9F C9 5E CMP #&5E 8CA1 F0 04 BEQ PCA7 8CA3 C9 40 CMP #&40 8CA5 D0 0D BNE PCB4 .PCA7 8CA7 C8 INY 8CA8 20 1A 87 JSR P71A 8CAB D0 37 BNE PCE4 .PCAD 8CAD C9 2E CMP #&2E 8CAF D0 2D BNE PCDE 8CB1 C8 INY 8CB2 80 E8 BRA PC9C .PCB4 8CB4 20 1A 87 JSR P71A 8CB7 F0 F4 BEQ PCAD 8CB9 A2 05 LDX #&05 .PCBB 8CBB DD F6 8C CMP &8CF6,X 8CBE F0 24 BEQ PCE4 8CC0 CA DEX 8CC1 10 F8 BPL PCBB 8CC3 C8 INY 8CC4 D0 EE BNE PCB4 .PCC6 8CC6 20 77 8C JSR PC77 .PCC9 8CC9 B1 B4 LDA (&B4),Y 8CCB 29 7F AND #&7F 8CCD C9 2A CMP #&2A 8CCF F0 16 BEQ PCE7 8CD1 C9 23 CMP #&23 8CD3 F0 12 BEQ PCE7 8CD5 C9 2E CMP #&2E 8CD7 F0 05 BEQ PCDE 8CD9 88 DEY 8CDA C0 FF CPY #&FF 8CDC D0 EB BNE PCC9 .PCDE 8CDE 60 RTS .PCDF 8CDF 20 1A 87 JSR P71A 8CE2 D0 FA BNE PCDE .PCE4 8CE4 4C 37 87 JMP P737 .PCE7 8CE7 20 46 83 JSR P346 8CEA EQUB &FD 8CEB EQUS "Wild cards" 8CF5 EQUB &00 8CF6 EQUB &7F 8CF7 EQUS "^@:$&" .PCFC 8CFC 20 F2 8B JSR PBF2 .PCFF 8CFF D0 21 BNE PD22 8D01 A2 02 LDX #&02 8D03 A0 12 LDY #&12 8D05 B1 B6 LDA (&B6),Y 8D07 C9 01 CMP #&01 .PD09 8D09 C8 INY 8D0A A9 00 LDA #&00 8D0C 71 B6 ADC (&B6),Y 8D0E 99 24 C2 STA &C224,Y 8D11 CA DEX 8D12 10 F5 BPL PD09 8D14 A0 18 LDY #&18 8D16 A2 02 LDX #&02 .PD18 8D18 B1 B6 LDA (&B6),Y 8D1A 9D 34 C2 STA &C234,X 8D1D 88 DEY 8D1E CA DEX 8D1F 10 F7 BPL PD18 8D21 60 RTS .PD22 8D22 AD B1 C8 LDA &C8B1 8D25 F0 0D BEQ PD34 8D27 20 46 83 JSR P346 8D2A EQUB &B3 8D2B EQUS "Dir full" 8D33 EQUB &00 .PD34 8D34 A5 B4 LDA &B4 8D36 8D 27 C2 STA &C227 8D39 A5 B5 LDA &B5 8D3B 8D 28 C2 STA &C228 8D3E A9 B1 LDA #&B1 8D40 85 B4 STA &B4 8D42 A9 C8 LDA #&C8 8D44 85 B5 STA &B5 8D46 A0 1A LDY #&1A 8D48 A2 06 LDX #&06 8D4A A9 00 LDA #&00 .PD4C 8D4C 9D 33 C2 STA &C233,X 8D4F CA DEX 8D50 D0 FA BNE PD4C .PD52 8D52 A1 B4 LDA (&B4,X) 8D54 91 B4 STA (&B4),Y 8D56 A5 B4 LDA &B4 8D58 C5 B6 CMP &B6 8D5A D0 06 BNE PD62 8D5C A5 B5 LDA &B5 8D5E C5 B7 CMP &B7 8D60 F0 0B BEQ PD6D .PD62 8D62 A5 B4 LDA &B4 8D64 D0 02 BNE PD68 8D66 C6 B5 DEC &B5 .PD68 8D68 C6 B4 DEC &B4 8D6A 4C 52 8D JMP PD52 .PD6D 8D6D AD 27 C2 LDA &C227 8D70 85 B4 STA &B4 8D72 AD 28 C2 LDA &C228 8D75 85 B5 STA &B5 8D77 60 RTS .PD78 8D78 A0 09 LDY #&09 .PD7A 8D7A B1 B4 LDA (&B4),Y 8D7C 29 7F AND #&7F 8D7E C9 21 CMP #&21 8D80 90 04 BCC PD86 8D82 C9 22 CMP #&22 8D84 D0 02 BNE PD88 .PD86 8D86 A9 0D LDA #&0D .PD88 8D88 C0 02 CPY #&02 8D8A B0 02 BCS PD8E 8D8C 09 80 ORA #&80 .PD8E 8D8E 91 B6 STA (&B6),Y 8D90 88 DEY 8D91 10 E7 BPL PD7A 8D93 60 RTS .PD94 8D94 A0 11 LDY #&11 .PD96 8D96 B1 B8 LDA (&B8),Y 8D98 99 15 C2 STA &C215,Y 8D9B 88 DEY 8D9C 10 F8 BPL PD96 8D9E A0 12 LDY #&12 8DA0 38 SEC 8DA1 A2 03 LDX #&03 .PDA3 8DA3 B9 11 C2 LDA &C211,Y 8DA6 F9 0D C2 SBC &C20D,Y 8DA9 91 B6 STA (&B6),Y 8DAB C8 INY 8DAC CA DEX 8DAD 10 F4 BPL PDA3 8DAF A0 0A LDY #&0A .PDB1 8DB1 B9 0D C2 LDA &C20D,Y 8DB4 91 B6 STA (&B6),Y 8DB6 C8 INY 8DB7 C0 12 CPY #&12 8DB9 D0 F6 BNE PDB1 8DBB A5 B6 LDA &B6 8DBD 48 PHA 8DBE A5 B7 LDA &B7 8DC0 48 PHA .PDC1 8DC1 A9 05 LDA #&05 8DC3 85 B6 STA &B6 8DC5 A9 C4 LDA #&C4 8DC7 85 B7 STA &B7 .PDC9 8DC9 A0 00 LDY #&00 8DCB B1 B6 LDA (&B6),Y 8DCD F0 1F BEQ PDEE 8DCF A0 19 LDY #&19 8DD1 B1 B6 LDA (&B6),Y 8DD3 CD FA C8 CMP &C8FA 8DD6 F0 05 BEQ PDDD 8DD8 20 F0 97 JSR Q7F0 8DDB 80 EC BRA PDC9 .PDDD 8DDD AD FA C8 LDA &C8FA 8DE0 18 CLC 8DE1 F8 SED 8DE2 69 01 ADC #&01 8DE4 D8 CLD 8DE5 8D FA C8 STA &C8FA 8DE8 8D 00 C4 STA &C400 8DEB 4C C1 8D JMP PDC1 .PDEE 8DEE 68 PLA 8DEF 85 B7 STA &B7 8DF1 68 PLA 8DF2 85 B6 STA &B6 8DF4 A0 19 LDY #&19 8DF6 AD FA C8 LDA &C8FA 8DF9 91 B6 STA (&B6),Y 8DFB A9 01 LDA #&01 8DFD 8D 15 C2 STA &C215 8E00 A2 04 LDX #&04 .PE02 8E02 BD 1E C2 LDA &C21E,X 8E05 9D 15 C2 STA &C215,X 8E08 CA DEX 8E09 D0 F7 BNE PE02 8E0B A9 0A LDA #&0A 8E0D 8D 1A C2 STA &C21A 8E10 A9 00 LDA #&00 8E12 8D 1E C2 STA &C21E 8E15 A9 00 LDA #&00 8E17 8D 1F C2 STA &C21F 8E1A A0 12 LDY #&12 .PE1C 8E1C B1 B6 LDA (&B6),Y 8E1E 99 0E C2 STA &C20E,Y 8E21 C8 INY 8E22 C0 16 CPY #&16 8E24 D0 F6 BNE PE1C 8E26 A0 12 LDY #&12 8E28 B1 B6 LDA (&B6),Y 8E2A C9 01 CMP #&01 8E2C A2 02 LDX #&02 .PE2E 8E2E A9 00 LDA #&00 8E30 C8 INY 8E31 71 B6 ADC (&B6),Y 8E33 99 2A C2 STA &C22A,Y 8E36 CA DEX 8E37 10 F5 BPL PE2E 8E39 90 03 BCC PE3E 8E3B 4C 56 86 JMP P656 .PE3E 8E3E A0 16 LDY #&16 8E40 A9 FF LDA #&FF 8E42 91 B6 STA (&B6),Y 8E44 C8 INY 8E45 91 B6 STA (&B6),Y 8E47 C8 INY 8E48 91 B6 STA (&B6),Y 8E4A 4C BA 84 JMP P4BA .PE4D 8E4D 20 FC 8C JSR PCFC 8E50 20 78 8D JSR PD78 .PE53 8E53 20 94 8D JSR PD94 8E56 20 32 86 JSR P632 .PE59 8E59 A0 18 LDY #&18 8E5B A2 02 LDX #&02 .PE5D 8E5D BD 3A C2 LDA &C23A,X 8E60 91 B6 STA (&B6),Y 8E62 88 DEY 8E63 CA DEX 8E64 10 F7 BPL PE5D 8E66 A2 02 LDX #&02 8E68 A0 06 LDY #&06 .PE6A 8E6A BD 3A C2 LDA &C23A,X 8E6D 99 15 C2 STA &C215,Y 8E70 C8 INY 8E71 CA DEX 8E72 10 F6 BPL PE6A 8E74 60 RTS ;OSFILE 0 = save file 8E75 20 4D 8E JSR PE4D 8E78 20 0A 8A JSR PA0A 8E7B 4C 81 8E JMP PE81 ;OSFILE 7 = create file 8E7E 20 4D 8E JSR PE4D .PE81 8E81 20 87 8E JSR PE87 8E84 4C 75 8B JMP PB75 .PE87 8E87 20 EE A5 JSR R5EE 8E8A 20 08 8F JSR PF08 8E8D A2 0A LDX #&0A .PE8F 8E8F BD 0C 88 LDA &880C,X 8E92 9D 15 C2 STA &C215,X 8E95 CA DEX 8E96 10 F7 BPL PE8F 8E98 A9 0A LDA #&0A 8E9A 8D 1A C2 STA &C21A 8E9D AD 14 C3 LDA &C314 8EA0 8D 1D C2 STA &C21D 8EA3 AD 15 C3 LDA &C315 8EA6 8D 1C C2 STA &C21C 8EA9 AD 16 C3 LDA &C316 8EAC 8D 1B C2 STA &C21B 8EAF 20 86 82 JSR P286 8EB2 AD 17 C3 LDA &C317 8EB5 20 8C B4 JSR S48C 8EB8 AD FC C1 LDA &C1FC 8EBB 9D 22 C3 STA &C322,X 8EBE AD 44 FE LDA &FE44 8EC1 9D 21 C3 STA &C321,X 8EC4 8D FB C1 STA &C1FB 8EC7 20 5B 8F JSR PF5B 8ECA 8E FF C0 STX &C0FF 8ECD 8D FF C1 STA &C1FF 8ED0 A2 70 LDX #&70 8ED2 A0 8F LDY #&8F 8ED4 20 89 82 JSR P289 8ED7 A9 10 LDA #&10 8ED9 14 CD TRB &CD 8EDB A9 00 LDA #&00 8EDD 60 RTS .PEDE 8EDE 20 40 88 JSR P840 8EE1 08 PHP 8EE2 48 PHA 8EE3 20 E9 8E JSR PEE9 8EE6 68 PLA 8EE7 28 PLP .PEE8 8EE8 60 RTS .PEE9 8EE9 20 08 8F JSR PF08 8EEC 20 5B 8F JSR PF5B 8EEF CD FF C1 CMP &C1FF 8EF2 D0 05 BNE PEF9 8EF4 EC FF C0 CPX &C0FF 8EF7 F0 EF BEQ PEE8 .PEF9 8EF9 20 29 83 JSR P329 8EFC EQUB &A9 8EFD EQUS "Bad FS map" 8F07 EQUB &00 .PF08 8F08 AE FE C1 LDX &C1FE 8F0B F0 DB BEQ PEE8 8F0D A9 00 LDA #&00 .PF0F 8F0F 1D FF BF ORA &BFFF,X 8F12 1D FF C0 ORA &C0FF,X 8F15 CA DEX 8F16 F0 E1 BEQ PEF9 8F18 CA DEX 8F19 F0 DE BEQ PEF9 8F1B CA DEX 8F1C D0 F1 BNE PF0F 8F1E 29 E0 AND #&E0 8F20 D0 D7 BNE PEF9 8F22 AE FE C1 LDX &C1FE 8F25 E0 06 CPX #&06 8F27 90 BF BCC PEE8 8F29 A2 03 LDX #&03 .PF2B 8F2B A0 02 LDY #&02 8F2D 18 CLC .PF2E 8F2E BD FD BF LDA &BFFD,X 8F31 7D FD C0 ADC &C0FD,X 8F34 48 PHA 8F35 E8 INX 8F36 88 DEY 8F37 10 F5 BPL PF2E 8F39 B0 BE BCS PEF9 8F3B A0 02 LDY #&02 .PF3D 8F3D 68 PLA 8F3E CA DEX 8F3F DD 00 C0 CMP &C000,X 8F42 90 07 BCC PF4B 8F44 D0 B3 BNE PEF9 8F46 88 DEY 8F47 10 F4 BPL PF3D 8F49 30 AE BMI PEF9 .PF4B 8F4B 68 PLA 8F4C CA DEX 8F4D 88 DEY 8F4E 10 FB BPL PF4B 8F50 48 PHA 8F51 E8 INX 8F52 E8 INX 8F53 E8 INX 8F54 E8 INX 8F55 EC FE C1 CPX &C1FE 8F58 90 D1 BCC PF2B 8F5A 60 RTS .PF5B 8F5B 18 CLC 8F5C A0 FF LDY #&FF 8F5E 98 TYA .PF5F 8F5F 79 FF BF ADC &BFFF,Y 8F62 88 DEY 8F63 D0 FA BNE PF5F 8F65 AA TAX 8F66 88 DEY 8F67 98 TYA 8F68 18 CLC .PF69 8F69 79 FF C0 ADC &C0FF,Y 8F6C 88 DEY 8F6D D0 FA BNE PF69 8F6F 60 RTS 8F70 EQUB &01 8F71 EQUD &00,&C0,&FF,&FF 8F75 EQUB &0A,&00,&00,&00 8F79 EQUB &02,&00 ;OSFILE 1 = write catalogue information ;OSFILE 2 = write load address ;OSFILE 3 = write execution address ;OSFILE 4 = write file attributes 8F7B 8D 23 C2 STA &C223 8F7E 20 FE 8A JSR PAFE 8F81 F0 03 BEQ PF86 8F83 A9 00 LDA #&00 8F85 60 RTS .PF86 8F86 AD 23 C2 LDA &C223 8F89 C9 04 CMP #&04 8F8B F0 45 BEQ PFD2 8F8D C9 03 CMP #&03 8F8F F0 21 BEQ PFB2 8F91 A0 05 LDY #&05 8F93 A2 03 LDX #&03 .PF95 8F95 B1 B8 LDA (&B8),Y 8F97 9D 15 C2 STA &C215,X 8F9A 88 DEY 8F9B CA DEX 8F9C 10 F7 BPL PF95 8F9E A0 0D LDY #&0D 8FA0 A2 03 LDX #&03 .PFA2 8FA2 BD 15 C2 LDA &C215,X 8FA5 91 B6 STA (&B6),Y 8FA7 88 DEY 8FA8 CA DEX 8FA9 10 F7 BPL PFA2 8FAB AD 23 C2 LDA &C223 8FAE C9 02 CMP #&02 8FB0 F0 4C BEQ PFFE .PFB2 8FB2 A0 09 LDY #&09 8FB4 A2 03 LDX #&03 .PFB6 8FB6 B1 B8 LDA (&B8),Y 8FB8 9D 15 C2 STA &C215,X 8FBB 88 DEY 8FBC CA DEX 8FBD 10 F7 BPL PFB6 8FBF A0 11 LDY #&11 8FC1 A2 03 LDX #&03 .PFC3 8FC3 BD 15 C2 LDA &C215,X 8FC6 91 B6 STA (&B6),Y 8FC8 88 DEY 8FC9 CA DEX 8FCA 10 F7 BPL PFC3 8FCC AE 23 C2 LDX &C223 8FCF CA DEX 8FD0 D0 2C BNE PFFE .PFD2 8FD2 A0 0E LDY #&0E 8FD4 B1 B8 LDA (&B8),Y 8FD6 8D 2B C2 STA &C22B 8FD9 A0 03 LDY #&03 8FDB B1 B6 LDA (&B6),Y 8FDD 10 0D BPL PFEC 8FDF 4E 2B C2 LSR &C22B 8FE2 4E 2B C2 LSR &C22B .PFE5 8FE5 4E 2B C2 LSR &C22B 8FE8 A0 02 LDY #&02 8FEA 10 02 BPL PFEE .PFEC 8FEC A0 00 LDY #&00 .PFEE 8FEE B1 B6 LDA (&B6),Y 8FF0 0A ASL A 8FF1 4E 2B C2 LSR &C22B 8FF4 6A ROR A 8FF5 91 B6 STA (&B6),Y 8FF7 C8 INY 8FF8 C0 02 CPY #&02 8FFA 90 F2 BCC PFEE 8FFC F0 E7 BEQ PFE5 .PFFE 8FFE 20 87 8E JSR PE87 9001 4C D4 8B JMP PBD4 ;OSFILE 6 = delete file 9004 20 DA 8B JSR PBDA 9007 F0 05 BEQ Q00E 9009 A9 00 LDA #&00 900B 4C A0 89 JMP P9A0 .Q00E 900E 20 19 8C JSR PC19 9011 A0 03 LDY #&03 9013 B1 B6 LDA (&B6),Y 9015 10 3D BPL Q054 9017 A0 03 LDY #&03 .Q019 9019 B9 2C C2 LDA &C22C,Y 901C 99 30 C2 STA &C230,Y 901F 88 DEY 9020 10 F7 BPL Q019 9022 A9 FF LDA #&FF 9024 8D 2E C2 STA &C22E 9027 8D 2F C2 STA &C22F 902A 20 60 93 JSR Q360 902D AD 05 C4 LDA &C405 9030 08 PHP 9031 20 A0 89 JSR P9A0 9034 A0 03 LDY #&03 .Q036 9036 B9 30 C2 LDA &C230,Y 9039 99 2C C2 STA &C22C,Y 903C 88 DEY 903D 10 F7 BPL Q036 903F 28 PLP 9040 F0 12 BEQ Q054 9042 20 46 83 JSR P346 9045 EQUB &B4 9046 EQUS "Dir not empty" 9053 EQUB &00 .Q054 9054 A0 12 LDY #&12 9056 A2 02 LDX #&02 9058 B1 B6 LDA (&B6),Y 905A C9 01 CMP #&01 .Q05C 905C C8 INY 905D A9 00 LDA #&00 905F 71 B6 ADC (&B6),Y 9061 99 24 C2 STA &C224,Y 9064 CA DEX 9065 10 F5 BPL Q05C 9067 A0 18 LDY #&18 9069 A2 02 LDX #&02 .Q06B 906B B1 B6 LDA (&B6),Y 906D 9D 34 C2 STA &C234,X 9070 88 DEY 9071 CA DEX 9072 10 F7 BPL Q06B 9074 A0 03 LDY #&03 9076 B1 B6 LDA (&B6),Y 9078 10 7E BPL Q0F8 907A AE 2F C2 LDX &C22F 907D E0 FF CPX #&FF 907F F0 05 BEQ Q086 9081 EC 17 C3 CPX &C317 9084 D0 22 BNE Q0A8 .Q086 9086 A2 02 LDX #&02 .Q088 9088 BD 34 C2 LDA &C234,X 908B DD 2C C2 CMP &C22C,X 908E D0 18 BNE Q0A8 9090 CA DEX 9091 10 F5 BPL Q088 9093 20 46 83 JSR P346 9096 EQUB &96 9097 EQUS "Can't delete CSD" 90A7 EQUB &00 .Q0A8 90A8 AD 17 C3 LDA &C317 90AB CD 1B C3 CMP &C31B 90AE D0 26 BNE Q0D6 90B0 A2 02 LDX #&02 .Q0B2 90B2 BD 34 C2 LDA &C234,X 90B5 DD 18 C3 CMP &C318,X 90B8 D0 1C BNE Q0D6 90BA CA DEX 90BB 10 F5 BPL Q0B2 90BD 20 46 83 JSR P346 90C0 EQUB &97 90C1 EQUS "Can't delete Library" 90D5 EQUB &00 .Q0D6 90D6 AD 17 C3 LDA &C317 90D9 CD 1F C3 CMP &C31F 90DC D0 1A BNE Q0F8 90DE A2 02 LDX #&02 .Q0E0 90E0 BD 34 C2 LDA &C234,X 90E3 DD 1C C3 CMP &C31C,X 90E6 D0 10 BNE Q0F8 90E8 CA DEX 90E9 10 F5 BPL Q0E0 90EB A9 02 LDA #&02 90ED 8D 1C C3 STA &C31C 90F0 A9 00 LDA #&00 90F2 8D 1D C3 STA &C31D 90F5 8D 1E C3 STA &C31E .Q0F8 90F8 A0 04 LDY #&04 90FA B1 B6 LDA (&B6),Y 90FC 30 03 BMI Q101 90FE 20 7E 8B JSR PB7E .Q101 9101 A0 1A LDY #&1A 9103 A2 00 LDX #&00 .Q105 9105 B1 B6 LDA (&B6),Y 9107 81 B6 STA (&B6,X) 9109 E6 B6 INC &B6 910B D0 02 BNE Q10F 910D E6 B7 INC &B7 .Q10F 910F A5 B6 LDA &B6 9111 C9 BB CMP #&BB 9113 D0 F0 BNE Q105 9115 A5 B7 LDA &B7 9117 C9 C8 CMP #&C8 9119 D0 EA BNE Q105 911B 20 BA 84 JSR P4BA 911E 20 87 8E JSR PE87 9121 4C 9D 89 JMP P99D ;OSFILE 9124 86 B8 STX &B8 9126 84 B9 STY &B9 9128 A8 TAY 9129 9C D5 C2 STZ &C2D5 912C 0A ASL A 912D AA TAX 912E E8 INX 912F E8 INX 9130 30 19 BMI Q14B 9132 E0 12 CPX #&12 9134 B0 15 BCS Q14B 9136 BD 4D 91 LDA &914D,X 9139 48 PHA 913A BD 4C 91 LDA &914C,X 913D 48 PHA .Q13E 913E 5A PHY 913F A0 00 LDY #&00 9141 B1 B8 LDA (&B8),Y 9143 85 B4 STA &B4 9145 C8 INY 9146 B1 B8 LDA (&B8),Y 9148 85 B5 STA &B5 914A 68 PLA .Q14B 914B 60 RTS ;Table of action addresses for OSFILE calls &FF,0..7 914C EQUW &1D,&8B ;OSFILE &FF = load file &8B1E 914E EQUW &74,&8E ;OSFILE 0 = save file &8E75 9150 EQUW &7A,&8F ;OSFILE 1 = wr. catalog info &8F7B 9152 EQUW &7A,&8F ;OSFILE 2 = wr. load address &8F7B 9154 EQUW &7A,&8F ;OSFILE 3 = wr. exec address &8F7B 9156 EQUW &7A,&8F ;OSFILE 4 = wr. attributes &8F7B 9158 EQUW &C0,&8B ;OSFILE 5 = read catalog info &8BC1 915A EQUW &03,&90 ;OSFILE 6 = delete file &9004 915C EQUW &7D,&8E ;OSFILE 7 = create file &8E7E .Q15E 915E AA TAX 915F A9 9E LDA #&9E 9161 85 B7 STA &B7 9163 BD 59 9D LDA &9D59,X 9166 85 B6 STA &B6 9168 A2 0C LDX #&0C 916A 2C A2 0A BIT &0AA2 .Q16D 916D A0 00 LDY #&00 .Q16F 916F B1 B6 LDA (&B6),Y 9171 29 7F AND #&7F 9173 C9 20 CMP #&20 9175 90 08 BCC Q17F 9177 20 A9 91 JSR Q1A9 917A C8 INY 917B CA DEX 917C D0 F1 BNE Q16F 917E 60 RTS .Q17F 917F 20 16 9F JSR QF16 9182 CA DEX 9183 D0 FA BNE Q17F 9185 60 RTS .Q186 9186 68 PLA 9187 85 B6 STA &B6 9189 68 PLA 918A 85 B7 STA &B7 918C A0 01 LDY #&01 .Q18E 918E B1 B6 LDA (&B6),Y 9190 30 06 BMI Q198 9192 20 A9 91 JSR Q1A9 9195 C8 INY 9196 D0 F6 BNE Q18E .Q198 9198 29 7F AND #&7F 919A 20 A9 91 JSR Q1A9 919D 98 TYA 919E 18 CLC 919F 65 B6 ADC &B6 91A1 A8 TAY 91A2 A9 00 LDA #&00 91A4 65 B7 ADC &B7 91A6 48 PHA 91A7 5A PHY 91A8 60 RTS .Q1A9 91A9 DA PHX 91AA A6 B6 LDX &B6 91AC DA PHX 91AD A6 B7 LDX &B7 91AF DA PHX 91B0 20 1B 9F JSR QF1B 91B3 FA PLX 91B4 86 B7 STX &B7 91B6 FA PLX 91B7 86 B6 STX &B6 91B9 FA PLX 91BA 60 RTS .Q1BB 91BB 20 6B 91 JSR Q16B 91BE 20 16 9F JSR QF16 91C1 A0 04 LDY #&04 91C3 A2 03 LDX #&03 .Q1C5 91C5 B1 B6 LDA (&B6),Y 91C7 2A ROL A 91C8 90 07 BCC Q1D1 91CA B9 F1 91 LDA &91F1,Y 91CD 20 1B 9F JSR QF1B 91D0 CA DEX .Q1D1 91D1 88 DEY 91D2 10 F1 BPL Q1C5 .Q1D4 91D4 CA DEX 91D5 30 06 BMI Q1DD 91D7 20 16 9F JSR QF16 91DA 4C D4 91 JMP Q1D4 .Q1DD 91DD A9 28 LDA #&28 91DF 20 1B 9F JSR QF1B 91E2 A0 19 LDY #&19 91E4 B1 B6 LDA (&B6),Y 91E6 20 F6 91 JSR Q1F6 91E9 A9 29 LDA #&29 91EB 20 1B 9F JSR QF1B 91EE 4C 16 9F JMP QF16 91F1 EQUS "RWLDE" .Q1F6 91F6 48 PHA 91F7 4A LSR A 91F8 4A LSR A 91F9 4A LSR A 91FA 4A LSR A 91FB 20 FF 91 JSR Q1FF 91FE 68 PLA .Q1FF 91FF 20 3D 84 JSR P43D 9202 4C 1B 9F JMP QF1B .Q205 9205 20 EE A5 JSR R5EE 9208 A9 D9 LDA #&D9 920A 85 B6 STA &B6 920C A9 C8 LDA #&C8 920E 85 B7 STA &B7 9210 A2 13 LDX #&13 9212 20 6D 91 JSR Q16D 9215 20 86 91 JSR Q186 9218 EQUS " " 9219 EQUB &A8 921A AD FA C8 LDA &C8FA 921D 20 F6 91 JSR Q1F6 9220 20 86 91 JSR Q186 9223 EQUS ")" 9224 EQUB &0D 9225 EQUS "Drive" 922A EQUB &BA 922B AD 17 C3 LDA &C317 922E 48 PHA 922F 0A ASL A 9230 2A ROL A 9231 2A ROL A 9232 2A ROL A 9233 69 30 ADC #&30 9235 20 1B 9F JSR QF1B 9238 68 PLA 9239 20 B4 B9 JSR S9B4 923C 90 0F BCC Q24D 923E 20 86 91 JSR Q186 9241 EQUS " RAM Dis" 9249 EQUB &EB 924A A2 04 LDX #&04 924C 2C A2 0D BIT &0DA2 924F 20 7F 91 JSR Q17F 9252 20 86 91 JSR Q186 9255 EQUS "Option" 925B EQUB &A0 925C AD FD C1 LDA &C1FD 925F 20 F6 91 JSR Q1F6 9262 20 86 91 JSR Q186 9265 EQUS " " 9266 EQUB &A8 9267 AE FD C1 LDX &C1FD 926A 20 A8 92 JSR Q2A8 926D 20 86 91 JSR Q186 9270 EQUS ")" 9271 EQUB &0D 9272 EQUS "Dir." 9276 EQUB &A0 9277 A9 00 LDA #&00 9279 85 B6 STA &B6 927B A9 C3 LDA #&C3 927D 85 B7 STA &B7 927F 20 6B 91 JSR Q16B 9282 20 86 91 JSR Q186 9285 EQUS " Lib." 928E EQUB &A0 928F A9 0A LDA #&0A 9291 85 B6 STA &B6 9293 A9 C3 LDA #&C3 9295 85 B7 STA &B7 9297 20 6B 91 JSR Q16B 929A 20 86 91 JSR Q186 929D EQUB &0D 929E EQUB &8D .Q29F 929F A9 05 LDA #&05 92A1 85 B6 STA &B6 92A3 A9 C4 LDA #&C4 92A5 85 B7 STA &B7 92A7 60 RTS .Q2A8 92A8 BD B6 92 LDA &92B6,X 92AB 85 B6 STA &B6 92AD A9 92 LDA #&92 92AF 85 B7 STA &B7 92B1 A2 04 LDX #&04 92B3 4C 6D 91 JMP Q16D 92B6 EQUB &BC,&C0,&C4 92B9 EQUB &C8,&CC,&D0 92BC EQUS "Off " 92C0 EQUS "Load" 92C4 EQUS "Run " 92C8 EQUS "Exec" 92CC EQUS "256k" 92D0 EQUS "512k" .Q2D4 ;OSFSC 5 = *CAT 92D4 20 E7 A3 JSR R3E7 92D7 20 52 93 JSR Q352 .Q2DA 92DA 20 05 92 JSR Q205 92DD A9 04 LDA #&04 92DF 8D 2B C2 STA &C22B .Q2E2 92E2 A0 00 LDY #&00 92E4 B1 B6 LDA (&B6),Y 92E6 F0 1A BEQ Q302 92E8 20 BB 91 JSR Q1BB 92EB CE 2B C2 DEC &C22B 92EE D0 0A BNE Q2FA 92F0 A9 04 LDA #&04 92F2 8D 2B C2 STA &C22B 92F5 20 19 9F JSR QF19 92F8 80 03 BRA Q2FD .Q2FA 92FA 20 16 9F JSR QF16 .Q2FD 92FD 20 F0 97 JSR Q7F0 9300 80 E0 BRA Q2E2 .Q302 9302 AD 2B C2 LDA &C22B 9305 C9 04 CMP #&04 9307 F0 10 BEQ Q319 9309 A9 86 LDA #&86 930B 20 F4 FF JSR &FFF4 930E 8A TXA 930F D0 05 BNE Q316 9311 A9 0B LDA #&0B 9313 20 1B 9F JSR QF1B .Q316 9316 20 19 9F JSR QF19 .Q319 9319 4C A0 89 JMP P9A0 ;OSFSC 9 = *EX 931C 20 52 93 JSR Q352 .Q31F 931F 20 05 92 JSR Q205 .Q322 9322 A0 00 LDY #&00 9324 B1 B6 LDA (&B6),Y 9326 F0 F1 BEQ Q319 9328 20 E2 93 JSR Q3E2 932B 20 F0 97 JSR Q7F0 932E 80 F2 BRA Q322 .Q330 9330 A0 00 LDY #&00 9332 B1 B4 LDA (&B4),Y 9334 29 7F AND #&7F 9336 C9 5E CMP #&5E 9338 D0 0A BNE Q344 933A A9 C0 LDA #&C0 933C 85 B6 STA &B6 933E A9 C8 LDA #&C8 9340 85 B7 STA &B7 9342 D0 0C BNE Q350 .Q344 9344 C9 40 CMP #&40 9346 D0 09 BNE Q351 9348 A9 FE LDA #&FE 934A 85 B6 STA &B6 934C A9 C2 LDA #&C2 934E 85 B7 STA &B7 .Q350 9350 98 TYA .Q351 9351 60 RTS .Q352 9352 A0 00 LDY #&00 9354 B1 B4 LDA (&B4),Y 9356 C9 21 CMP #&21 9358 B0 06 BCS Q360 935A AE 17 C3 LDX &C317 935D E8 INX 935E D0 F1 BNE Q351 .Q360 9360 20 45 88 JSR P845 9363 D0 0E BNE Q373 .Q365 9365 A0 03 LDY #&03 9367 B1 B6 LDA (&B6),Y 9369 30 0D BMI Q378 936B 20 34 89 JSR P934 936E F0 F5 BEQ Q365 .Q370 9370 4C F0 8A JMP PAF0 .Q373 9373 20 30 93 JSR Q330 9376 D0 F8 BNE Q370 .Q378 9378 AC 2E C2 LDY &C22E 937B C8 INY 937C D0 0B BNE Q389 937E A0 02 LDY #&02 .Q380 9380 B9 14 C3 LDA &C314,Y 9383 99 2C C2 STA &C22C,Y 9386 88 DEY 9387 10 F7 BPL Q380 .Q389 9389 A2 0A LDX #&0A .Q38B 938B BD 0C 88 LDA &880C,X 938E 9D 15 C2 STA &C215,X 9391 CA DEX 9392 10 F7 BPL Q38B 9394 A2 02 LDX #&02 9396 A0 16 LDY #&16 .Q398 9398 B1 B6 LDA (&B6),Y 939A 9D 1B C2 STA &C21B,X 939D 99 FE C2 STA &C2FE,Y 93A0 C8 INY 93A1 CA DEX 93A2 10 F4 BPL Q398 93A4 A5 B7 LDA &B7 93A6 C9 94 CMP #&94 93A8 F0 37 BEQ Q3E1 93AA 4C 86 82 JMP P286 93AD EQUB &A4,&0D,&8D,&8D 93B1 EQUB &0D,&0D,&0D,&0D 93B5 EQUB &0D,&0D,&00,&00 93B9 EQUB &00,&00,&00,&00 93BD EQUB &00,&00,&00,&05 93C1 EQUB &00,&00,&02,&00 93C5 EQUB &00,&00,&00 .Q3C8 ;OSFSC 10 = *INFO 93C8 20 DE 8E JSR PEDE 93CB F0 03 BEQ Q3D0 93CD 4C E1 8A JMP PAE1 .Q3D0 93D0 20 E2 93 JSR Q3E2 93D3 20 34 89 JSR P934 93D6 F0 F8 BEQ Q3D0 93D8 4C A0 89 JMP P9A0 .Q3DB 93DB A5 CD LDA &CD 93DD 29 04 AND #&04 93DF D0 01 BNE Q3E2 .Q3E1 93E1 60 RTS .Q3E2 93E2 20 BB 91 JSR Q1BB 93E5 20 1B 9F JSR QF1B 93E8 A0 04 LDY #&04 93EA B1 B6 LDA (&B6),Y 93EC 30 2F BMI Q41D 93EE 88 DEY 93EF B1 B6 LDA (&B6),Y 93F1 2A ROL A 93F2 A2 0A LDX #&0A 93F4 A0 0D LDY #&0D 93F6 90 04 BCC Q3FC 93F8 A2 17 LDX #&17 93FA A0 18 LDY #&18 .Q3FC 93FC E0 16 CPX #&16 93FE F0 05 BEQ Q405 9400 B1 B6 LDA (&B6),Y 9402 20 F6 91 JSR Q1F6 .Q405 9405 8A TXA 9406 29 03 AND #&03 9408 C9 01 CMP #&01 940A D0 0B BNE Q417 940C 20 16 9F JSR QF16 940F 20 16 9F JSR QF16 9412 8A TXA 9413 18 CLC 9414 69 05 ADC #&05 9416 A8 TAY .Q417 9417 88 DEY 9418 E8 INX 9419 E0 1A CPX #&1A 941B D0 DF BNE Q3FC .Q41D 941D 4C 19 9F JMP QF19 .Q420 ;*DIR 9420 20 60 93 JSR Q360 9423 A0 09 LDY #&09 .Q425 9425 B9 CC C8 LDA &C8CC,Y 9428 99 00 C3 STA &C300,Y 942B 88 DEY 942C 10 F7 BPL Q425 942E AD 2F C2 LDA &C22F 9431 C9 FF CMP #&FF 9433 D0 03 BNE Q438 9435 AD 17 C3 LDA &C317 .Q438 9438 8D 1F C3 STA &C31F 943B A0 02 LDY #&02 .Q43D 943D B9 2C C2 LDA &C22C,Y 9440 99 1C C3 STA &C31C,Y 9443 88 DEY 9444 10 F7 BPL Q43D 9446 A9 FF LDA #&FF 9448 8D 2E C2 STA &C22E 944B 8D 2F C2 STA &C22F 944E 4C A0 89 JMP P9A0 ;*CDIR 9451 A9 FF LDA #&FF ;OSARGS &FF = ensure all files 9453 A0 00 LDY #&00 9455 20 54 A8 JSR R854 ;call OSARGS 9458 A2 0F LDX #&0F .Q45A 945A BD F7 94 LDA &94F7,X 945D 9D 42 C2 STA &C242,X 9460 CA DEX 9461 10 F7 BPL Q45A 9463 A5 B4 LDA &B4 9465 8D 40 C2 STA &C240 9468 A5 B5 LDA &B5 946A 8D 41 C2 STA &C241 946D A9 40 LDA #&40 946F 85 B8 STA &B8 9471 A9 C2 LDA #&C2 9473 85 B9 STA &B9 9475 20 FC 8C JSR PCFC 9478 A0 09 LDY #&09 947A AD 37 C2 LDA &C237 947D 0D 38 C2 ORA &C238 9480 0D 39 C2 ORA &C239 9483 F0 13 BEQ Q498 .Q485 9485 20 46 83 JSR P346 9488 EQUB &C4 9489 EQUS "Already exists" 9497 EQUB &00 .Q498 9498 B1 B4 LDA (&B4),Y 949A 29 7F AND #&7F 949C C9 22 CMP #&22 949E F0 04 BEQ Q4A4 94A0 C9 21 CMP #&21 94A2 B0 02 BCS Q4A6 .Q4A4 94A4 A9 0D LDA #&0D .Q4A6 94A6 91 B6 STA (&B6),Y 94A8 88 DEY 94A9 10 ED BPL Q498 94AB 20 53 8E JSR PE53 94AE A0 03 LDY #&03 .Q4B0 94B0 B1 B6 LDA (&B6),Y 94B2 09 80 ORA #&80 94B4 91 B6 STA (&B6),Y 94B6 88 DEY 94B7 C0 01 CPY #&01 94B9 D0 F5 BNE Q4B0 94BB 88 DEY 94BC B1 B6 LDA (&B6),Y 94BE 09 80 ORA #&80 94C0 91 B6 STA (&B6),Y 94C2 20 5C BA JSR SA5C 94C5 A2 02 LDX #&02 .Q4C7 94C7 BD 14 C3 LDA &C314,X 94CA 9D D6 CD STA &CDD6,X 94CD CA DEX 94CE 10 F7 BPL Q4C7 94D0 A2 00 LDX #&00 .Q4D2 94D2 B1 B4 LDA (&B4),Y 94D4 29 7F AND #&7F 94D6 C9 22 CMP #&22 94D8 F0 04 BEQ Q4DE 94DA C9 21 CMP #&21 94DC B0 02 BCS Q4E0 .Q4DE 94DE A9 0D LDA #&0D .Q4E0 94E0 9D D9 CD STA &CDD9,X 94E3 9D CC CD STA &CDCC,X 94E6 C8 INY 94E7 E8 INX 94E8 E0 0A CPX #&0A 94EA D0 E6 BNE Q4D2 94EC A9 0D LDA #&0D 94EE 9D D9 CD STA &CDD9,X 94F1 20 0A 8A JSR PA0A 94F4 4C 81 8E JMP PE81 94F7 EQUB &00,&00,&00,&00 94FB EQUB &00,&00,&00,&00 94FF EQUD &00,&C9,&FF,&FF 9503 EQUD &00,&CE,&FF,&FF .Q507 9507 AD 2F C2 LDA &C22F 950A CD 17 C3 CMP &C317 950D F0 03 BEQ Q512 950F 1A INC A 9510 D0 18 BNE Q52A .Q512 9512 A0 02 LDY #&02 .Q514 9514 B9 A2 C2 LDA &C2A2,Y 9517 D9 2C C2 CMP &C22C,Y 951A D0 0E BNE Q52A 951C 88 DEY 951D 10 F5 BPL Q514 951F A0 02 LDY #&02 .Q521 9521 B9 A8 C2 LDA &C2A8,Y 9524 99 2C C2 STA &C22C,Y 9527 88 DEY 9528 10 F7 BPL Q521 .Q52A 952A AD 1B C3 LDA &C31B 952D CD 17 C3 CMP &C317 9530 D0 18 BNE Q54A 9532 A0 02 LDY #&02 .Q534 9534 B9 A2 C2 LDA &C2A2,Y 9537 D9 18 C3 CMP &C318,Y 953A D0 0E BNE Q54A 953C 88 DEY 953D 10 F5 BPL Q534 953F A0 02 LDY #&02 .Q541 9541 B9 A8 C2 LDA &C2A8,Y 9544 99 18 C3 STA &C318,Y 9547 88 DEY 9548 10 F7 BPL Q541 .Q54A 954A AD 1F C3 LDA &C31F 954D CD 17 C3 CMP &C317 9550 D0 18 BNE Q56A 9552 A0 02 LDY #&02 .Q554 9554 B9 A2 C2 LDA &C2A2,Y 9557 D9 1C C3 CMP &C31C,Y 955A D0 0E BNE Q56A 955C 88 DEY 955D 10 F5 BPL Q554 955F A0 02 LDY #&02 .Q561 9561 B9 A8 C2 LDA &C2A8,Y 9564 99 1C C3 STA &C31C,Y 9567 88 DEY 9568 10 F7 BPL Q561 .Q56A 956A A5 CD LDA &CD 956C 29 08 AND #&08 956E D0 06 BNE Q576 9570 20 87 8E JSR PE87 9573 20 6C A8 JSR R86C .Q576 9576 AD A7 C2 LDA &C2A7 9579 0D A6 C2 ORA &C2A6 957C 0D A5 C2 ORA &C2A5 957F D0 01 BNE Q582 9581 60 RTS .Q582 9582 AD A7 C2 LDA &C2A7 9585 0D A6 C2 ORA &C2A6 9588 D0 08 BNE Q592 958A AD A5 C2 LDA &C2A5 958D CD 61 C2 CMP &C261 9590 90 03 BCC Q595 .Q592 9592 AD 61 C2 LDA &C261 .Q595 9595 8D 1E C2 STA &C21E 9598 AD 60 C2 LDA &C260 959B 8D 17 C2 STA &C217 959E A2 00 LDX #&00 95A0 8E 16 C2 STX &C216 95A3 CA DEX 95A4 8E 18 C2 STX &C218 95A7 8E 19 C2 STX &C219 .Q5AA 95AA 38 SEC 95AB AD A5 C2 LDA &C2A5 95AE ED 61 C2 SBC &C261 95B1 8D A5 C2 STA &C2A5 95B4 AD A6 C2 LDA &C2A6 95B7 E9 00 SBC #&00 95B9 8D A6 C2 STA &C2A6 95BC AD A7 C2 LDA &C2A7 95BF E9 00 SBC #&00 95C1 8D A7 C2 STA &C2A7 95C4 B0 09 BCS Q5CF 95C6 AD A5 C2 LDA &C2A5 95C9 6D 61 C2 ADC &C261 95CC 8D 1E C2 STA &C21E .Q5CF 95CF A9 08 LDA #&08 95D1 8D 1A C2 STA &C21A 95D4 AD A2 C2 LDA &C2A2 95D7 8D 1D C2 STA &C21D 95DA AD A3 C2 LDA &C2A3 95DD 8D 1C C2 STA &C21C 95E0 AD A4 C2 LDA &C2A4 95E3 8D 1B C2 STA &C21B 95E6 20 86 82 JSR P286 95E9 A9 0A LDA #&0A 95EB 8D 1A C2 STA &C21A 95EE AD A8 C2 LDA &C2A8 95F1 8D 1D C2 STA &C21D 95F4 AD A9 C2 LDA &C2A9 95F7 8D 1C C2 STA &C21C 95FA AD AA C2 LDA &C2AA 95FD 8D 1B C2 STA &C21B 9600 20 86 82 JSR P286 9603 AD A5 C2 LDA &C2A5 9606 0D A6 C2 ORA &C2A6 9609 0D A7 C2 ORA &C2A7 960C F0 33 BEQ Q641 960E AD 1E C2 LDA &C21E 9611 CD 61 C2 CMP &C261 9614 D0 2B BNE Q641 9616 18 CLC 9617 AD A2 C2 LDA &C2A2 961A 6D 61 C2 ADC &C261 961D 8D A2 C2 STA &C2A2 9620 90 08 BCC Q62A 9622 EE A3 C2 INC &C2A3 9625 D0 03 BNE Q62A 9627 EE A4 C2 INC &C2A4 .Q62A 962A 18 CLC 962B AD A8 C2 LDA &C2A8 962E 6D 61 C2 ADC &C261 9631 8D A8 C2 STA &C2A8 9634 90 08 BCC Q63E 9636 EE A9 C2 INC &C2A9 9639 D0 03 BNE Q63E 963B EE AA C2 INC &C2AA .Q63E 963E 4C AA 95 JMP Q5AA .Q641 9641 A5 CD LDA &CD 9643 29 08 AND #&08 9645 F0 01 BEQ Q648 9647 60 RTS .Q648 9648 A9 C4 LDA #&C4 964A 8D 17 C2 STA &C217 964D A9 08 LDA #&08 964F 8D 1A C2 STA &C21A 9652 AD 14 C3 LDA &C314 9655 8D 1D C2 STA &C21D 9658 AD 15 C3 LDA &C315 965B 8D 1C C2 STA &C21C 965E AD 16 C3 LDA &C316 9661 8D 1B C2 STA &C21B 9664 A9 05 LDA #&05 9666 8D 1E C2 STA &C21E 9669 4C 89 82 JMP P289 .Q66C 966C A9 00 LDA #&00 966E 8D AB C2 STA &C2AB 9671 8D AC C2 STA &C2AC 9674 8D AD C2 STA &C2AD .Q677 9677 A9 FF LDA #&FF 9679 8D A2 C2 STA &C2A2 967C 8D A3 C2 STA &C2A3 967F 8D A4 C2 STA &C2A4 9682 20 9F 92 JSR Q29F .Q685 9685 A0 00 LDY #&00 9687 B1 B6 LDA (&B6),Y 9689 D0 0F BNE Q69A 968B AD A2 C2 LDA &C2A2 968E 2D A3 C2 AND &C2A3 9691 2D A4 C2 AND &C2A4 9694 1A INC A 9695 D0 3D BNE Q6D4 9697 4C 87 8E JMP PE87 .Q69A 969A A0 16 LDY #&16 969C A2 02 LDX #&02 969E 38 SEC .Q69F 969F B9 95 C2 LDA &C295,Y 96A2 F1 B6 SBC (&B6),Y 96A4 C8 INY 96A5 CA DEX 96A6 10 F7 BPL Q69F 96A8 B0 25 BCS Q6CF 96AA A0 16 LDY #&16 96AC A2 02 LDX #&02 96AE 38 SEC .Q6AF 96AF B9 8C C2 LDA &C28C,Y 96B2 F1 B6 SBC (&B6),Y 96B4 C8 INY 96B5 CA DEX 96B6 10 F7 BPL Q6AF 96B8 90 15 BCC Q6CF 96BA A0 16 LDY #&16 96BC A2 02 LDX #&02 .Q6BE 96BE B1 B6 LDA (&B6),Y 96C0 99 8C C2 STA &C28C,Y 96C3 C8 INY 96C4 CA DEX 96C5 10 F7 BPL Q6BE 96C7 A5 B6 LDA &B6 96C9 85 B4 STA &B4 96CB A5 B7 LDA &B7 96CD 85 B5 STA &B5 .Q6CF 96CF 20 F0 97 JSR Q7F0 96D2 80 B1 BRA Q685 .Q6D4 96D4 A5 B4 LDA &B4 96D6 85 B6 STA &B6 96D8 A5 B5 LDA &B5 96DA 85 B7 STA &B7 96DC A0 02 LDY #&02 .Q6DE 96DE B9 A2 C2 LDA &C2A2,Y 96E1 99 AB C2 STA &C2AB,Y 96E4 88 DEY 96E5 10 F7 BPL Q6DE 96E7 A2 00 LDX #&00 96E9 86 B2 STX &B2 .Q6EB 96EB EC FE C1 CPX &C1FE 96EE 90 03 BCC Q6F3 96F0 4C 77 96 JMP Q677 .Q6F3 96F3 E8 INX 96F4 E8 INX 96F5 E8 INX 96F6 86 B2 STX &B2 96F8 A0 02 LDY #&02 .Q6FA 96FA CA DEX 96FB BD 00 C0 LDA &C000,X 96FE D9 A2 C2 CMP &C2A2,Y 9701 B0 04 BCS Q707 9703 A6 B2 LDX &B2 9705 80 E4 BRA Q6EB .Q707 9707 D0 03 BNE Q70C 9709 88 DEY 970A 10 EE BPL Q6FA .Q70C 970C A6 B2 LDX &B2 970E E0 06 CPX #&06 9710 90 12 BCC Q724 9712 A0 00 LDY #&00 9714 18 CLC 9715 08 PHP .Q716 9716 28 PLP 9717 BD FA BF LDA &BFFA,X 971A 7D FA C0 ADC &C0FA,X 971D 08 PHP 971E D9 A2 C2 CMP &C2A2,Y 9721 F0 04 BEQ Q727 9723 28 PLP .Q724 9724 4C 77 96 JMP Q677 .Q727 9727 E8 INX 9728 C8 INY 9729 C0 03 CPY #&03 972B D0 E9 BNE Q716 972D 28 PLP 972E A2 02 LDX #&02 9730 A0 12 LDY #&12 9732 B1 B6 LDA (&B6),Y 9734 C9 01 CMP #&01 .Q736 9736 C8 INY 9737 B1 B6 LDA (&B6),Y 9739 69 00 ADC #&00 973B 99 92 C2 STA &C292,Y 973E 99 2A C2 STA &C22A,Y 9741 99 24 C2 STA &C224,Y 9744 BD A2 C2 LDA &C2A2,X 9747 9D 34 C2 STA &C234,X 974A CA DEX 974B 10 E9 BPL Q736 974D 20 BA 84 JSR P4BA 9750 20 32 86 JSR P632 9753 A2 02 LDX #&02 9755 A0 18 LDY #&18 .Q757 9757 BD 3A C2 LDA &C23A,X 975A 91 B6 STA (&B6),Y 975C 9D A8 C2 STA &C2A8,X 975F 88 DEY 9760 CA DEX 9761 10 F4 BPL Q757 9763 20 07 95 JSR Q507 9766 4C 6C 96 JMP Q66C .Q769 9769 A9 00 LDA #&00 976B 85 C0 STA &C0 976D 8D 53 C2 STA &C253 9770 8D 54 C2 STA &C254 9773 A9 02 LDA #&02 9775 8D 52 C2 STA &C252 9778 A9 CD LDA #&CD 977A 85 C1 STA &C1 977C A9 EF LDA #&EF 977E 85 B4 STA &B4 9780 A9 97 LDA #&97 9782 85 B5 STA &B5 .Q784 9784 20 60 93 JSR Q360 9787 A0 02 LDY #&02 .Q789 9789 B9 52 C2 LDA &C252,Y 978C 99 D6 C8 STA &C8D6,Y 978F 88 DEY 9790 10 F7 BPL Q789 9792 20 6C 96 JSR Q66C 9795 20 9F 92 JSR Q29F .Q798 9798 A0 00 LDY #&00 979A B1 B6 LDA (&B6),Y 979C F0 2B BEQ Q7C9 979E A0 03 LDY #&03 97A0 B1 B6 LDA (&B6),Y 97A2 10 42 BPL Q7E6 97A4 A5 C0 LDA &C0 97A6 C9 FE CMP #&FE 97A8 F0 1F BEQ Q7C9 97AA A0 00 LDY #&00 97AC A5 B6 LDA &B6 97AE 85 B4 STA &B4 97B0 91 C0 STA (&C0),Y 97B2 E6 C0 INC &C0 97B4 A5 B7 LDA &B7 97B6 85 B5 STA &B5 97B8 91 C0 STA (&C0),Y 97BA E6 C0 INC &C0 97BC A2 02 LDX #&02 .Q7BE 97BE BD 14 C3 LDA &C314,X 97C1 9D 52 C2 STA &C252,X 97C4 CA DEX 97C5 10 F7 BPL Q7BE 97C7 30 BB BMI Q784 .Q7C9 97C9 A5 C0 LDA &C0 97CB F0 1E BEQ Q7EB 97CD A9 EE LDA #&EE 97CF 85 B4 STA &B4 97D1 A9 97 LDA #&97 97D3 85 B5 STA &B5 97D5 20 60 93 JSR Q360 97D8 A0 00 LDY #&00 97DA C6 C0 DEC &C0 97DC B1 C0 LDA (&C0),Y 97DE 85 B7 STA &B7 97E0 C6 C0 DEC &C0 97E2 B1 C0 LDA (&C0),Y 97E4 85 B6 STA &B6 .Q7E6 97E6 20 F0 97 JSR Q7F0 97E9 80 AD BRA Q798 .Q7EB 97EB 4C A0 89 JMP P9A0 97EE EQUB &5E,&0D 97F0 18 CLC 97F1 A5 B6 LDA &B6 97F3 69 1A ADC #&1A 97F5 85 B6 STA &B6 97F7 90 02 BCC Q7FB 97F9 E6 B7 INC &B7 .Q7FB 97FB 60 RTS ;*ACCESS 97FC 20 DE 8E JSR PEDE 97FF F0 0F BEQ Q810 9801 4C E1 8A JMP PAE1 .Q804 9804 A0 02 LDY #&02 .Q806 9806 B1 B6 LDA (&B6),Y 9808 29 7F AND #&7F 980A 91 B6 STA (&B6),Y 980C 88 DEY 980D 10 F7 BPL Q806 980F 60 RTS .Q810 9810 20 04 98 JSR Q804 9813 A0 04 LDY #&04 9815 B1 B6 LDA (&B6),Y 9817 30 0B BMI Q824 9819 88 DEY 981A B1 B6 LDA (&B6),Y 981C 29 80 AND #&80 981E A0 00 LDY #&00 9820 11 B6 ORA (&B6),Y 9822 91 B6 STA (&B6),Y .Q824 9824 8D 2B C2 STA &C22B 9827 A0 00 LDY #&00 .Q829 9829 B1 B4 LDA (&B4),Y 982B C9 20 CMP #&20 982D 90 4B BCC Q87A 982F F0 07 BEQ Q838 9831 C9 22 CMP #&22 9833 F0 03 BEQ Q838 9835 C8 INY 9836 D0 F1 BNE Q829 .Q838 9838 B1 B4 LDA (&B4),Y 983A C9 20 CMP #&20 983C 90 3C BCC Q87A 983E F0 04 BEQ Q844 9840 C9 22 CMP #&22 9842 D0 03 BNE Q847 .Q844 9844 C8 INY 9845 D0 F1 BNE Q838 .Q847 9847 B1 B4 LDA (&B4),Y 9849 29 DF AND #&DF 984B 2C 2B C2 BIT &C22B 984E 30 14 BMI Q864 9850 C9 45 CMP #&45 9852 D0 10 BNE Q864 9854 20 04 98 JSR Q804 9857 A0 04 LDY #&04 9859 B1 B6 LDA (&B6),Y 985B 09 80 ORA #&80 985D 91 B6 STA (&B6),Y 985F 8D 2B C2 STA &C22B 9862 30 13 BMI Q877 .Q864 9864 A2 02 LDX #&02 .Q866 9866 DD F1 91 CMP &91F1,X 9869 F0 1D BEQ Q888 986B 2C 2B C2 BIT &C22B 986E 30 03 BMI Q873 9870 CA DEX 9871 10 F3 BPL Q866 .Q873 9873 C9 21 CMP #&21 9875 90 03 BCC Q87A .Q877 9877 C8 INY 9878 D0 CD BNE Q847 .Q87A 987A 20 DB 93 JSR Q3DB 987D 20 34 89 JSR P934 9880 F0 8E BEQ Q810 9882 20 87 8E JSR PE87 9885 4C A0 89 JMP P9A0 .Q888 9888 5A PHY 9889 8A TXA 988A A8 TAY 988B B1 B6 LDA (&B6),Y 988D 09 80 ORA #&80 988F 91 B6 STA (&B6),Y 9891 7A PLY 9892 80 E3 BRA Q877 .Q894 9894 20 19 9F JSR QF19 9897 20 46 83 JSR P346 989A EQUB &92 989B EQUS "Aborted" 98A2 EQUB &00 ;*DESTROY 98A3 A5 B4 LDA &B4 98A5 48 PHA 98A6 A5 B5 LDA &B5 98A8 48 PHA 98A9 A9 40 LDA #&40 98AB 85 B8 STA &B8 98AD A9 C2 LDA #&C2 98AF 85 B9 STA &B9 98B1 20 C8 93 JSR Q3C8 98B4 68 PLA 98B5 85 B5 STA &B5 98B7 68 PLA 98B8 85 B4 STA &B4 98BA 20 86 91 JSR Q186 98BD EQUS "Destroy ?" 98C6 EQUB &A0 98C7 A2 03 LDX #&03 .Q8C9 98C9 20 E0 FF JSR &FFE0 98CC C9 20 CMP #&20 98CE 90 03 BCC Q8D3 98D0 20 1B 9F JSR QF1B .Q8D3 98D3 29 DF AND #&DF 98D5 DD B1 84 CMP &84B1,X 98D8 D0 BA BNE Q894 98DA CA DEX 98DB 10 EC BPL Q8C9 98DD 20 19 9F JSR QF19 98E0 9C D5 C2 STZ &C2D5 .Q8E3 98E3 A5 B4 LDA &B4 98E5 48 PHA 98E6 A5 B5 LDA &B5 98E8 48 PHA 98E9 24 FF BIT &FF 98EB 10 03 BPL Q8F0 98ED 4C A7 82 JMP P2A7 .Q8F0 98F0 20 DE 8E JSR PEDE 98F3 D0 0C BNE Q901 98F5 20 0E 90 JSR Q00E 98F8 68 PLA 98F9 85 B5 STA &B5 98FB 68 PLA 98FC 85 B4 STA &B4 98FE 4C E3 98 JMP Q8E3 .Q901 9901 68 PLA 9902 68 PLA 9903 4C A0 89 JMP P9A0 .Q906 9906 6C 1E 02 JMP (&021E) 9909 EQUS "$ " 9913 EQUS "$ " 991D EQUB &02,&00,&00,&00 9921 EQUB &02,&00,&00,&00 9925 EQUB &02 .Q926 9926 A9 5A LDA #&5A 9928 20 2F 99 JSR Q92F 992B D0 0B BNE Q938 992D A9 A5 LDA #&A5 .Q92F 992F 8D 40 FC STA &FC40 9932 9C 43 FC STZ &FC43 9935 CD 40 FC CMP &FC40 .Q938 9938 60 RTS .Q939 9939 A9 A1 LDA #&A1 993B A2 0B LDX #&0B 993D 20 F4 FF JSR &FFF4 9940 98 TYA 9941 60 RTS .Q942 9942 A9 FD LDA #&FD 9944 20 9D 84 JSR P49D 9947 CA DEX 9948 60 RTS 9949 EQUB &4C,&4E,&56 994C EQUS "L." 994E EQUS "$.!BOOT" 9955 EQUB &0D 9956 EQUS "E.-ADFS-$.!BOOT" 9965 EQUB &0D ;Table of action addresses for paged ROM service calls &00..&09, low bytes 9966 EQUB &8E ;Svc &00 = no operation &998F 9967 EQUB &8E ;Svc &01 = reserve abs wkspace &998F 9968 EQUB &B8 ;Svc &02 = reserve private wksp &99B9 9969 EQUB &0D ;Svc &03 = boot filing system &9A0E 996A EQUB &D7 ;Svc &04 = unrecognised OSCLI &9BD8 996B EQUB &54 ;Svc &05 = unrecog. interrupt &AA55 996C EQUB &8E ;Svc &06 = break &998F 996D EQUB &8E ;Svc &07 = unrecognised OSBYTE &998F 996E EQUB &10 ;Svc &08 = unrecognised OSWORD &9C11 996F EQUB &D2 ;Svc &09 = *HELP &9CD3 ;Table of action addresses for paged ROM service calls &00..&09, high bytes 9970 EQUB &99 9971 EQUB &99 9972 EQUB &99 9973 EQUB &9A 9974 EQUB &9B 9975 EQUB &AA 9976 EQUB &99 9977 EQUB &99 9978 EQUB &9C 9979 EQUB &9C ;Table of action addresses for paged ROM service calls &21..&27, low bytes 997A EQUB &84 ;Svc &21 = resv abs wksp HAZEL &9B85 997B EQUB &8B ;Svc &22 = resv priv wksp HAZEL &9B8C 997C EQUB &8E ;Svc &23 = report top priv wksp &998F 997D EQUB &93 ;Svc &24 = abs wksp HAZEL count &9B94 997E EQUB &9E ;Svc &25 = retn filing sys info &9B9F 997F EQUB &B9 ;Svc &26 = *SHUT command issued &9BBA 9980 EQUB &8E ;Svc &27 = hard reset &998F ;Table of action addresses for paged ROM service calls &21..&27, high bytes 9981 EQUB &9B 9982 EQUB &9B 9983 EQUB &99 9984 EQUB &9B 9985 EQUB &9B 9986 EQUB &9B 9987 EQUB &99 .Q988 ;ROM service 9988 3C F0 0D BIT &0DF0,X 998B 10 03 BPL Q990 998D 70 03 BVS Q992 .Q98F ;Service calls 0,1,6,7,&23,&27+ 998F 60 RTS .Q990 9990 70 FD BVS Q98F .Q992 9992 C9 12 CMP #&12 9994 F0 70 BEQ QA06 9996 C9 0A CMP #&0A 9998 B0 0D BCS Q9A7 999A AA TAX 999B BD 70 99 LDA &9970,X 999E 48 PHA 999F BD 66 99 LDA &9966,X .Q9A2 99A2 48 PHA 99A3 8A TXA 99A4 A6 F4 LDX &F4 99A6 60 RTS .Q9A7 99A7 C9 21 CMP #&21 99A9 90 E4 BCC Q98F 99AB C9 28 CMP #&28 99AD B0 E0 BCS Q98F 99AF AA TAX 99B0 BD 60 99 LDA &9960,X 99B3 48 PHA 99B4 BD 59 99 LDA &9959,X 99B7 80 E9 BRA Q9A2 ;Service call &02 = reserve private workspace 99B9 BD F0 0D LDA &0DF0,X 99BC C9 DC CMP #&DC 99BE 90 04 BCC Q9C4 99C0 98 TYA 99C1 9D F0 0D STA &0DF0,X .Q9C4 99C4 5A PHY 99C5 20 42 99 JSR Q942 99C8 30 2B BMI Q9F5 99CA 20 1E A6 JSR R61E 99CD A8 TAY .Q9CE 99CE B9 09 99 LDA &9909,Y 99D1 C0 1D CPY #&1D 99D3 90 02 BCC Q9D7 99D5 A9 00 LDA #&00 .Q9D7 99D7 91 BA STA (&BA),Y 99D9 C8 INY 99DA D0 F2 BNE Q9CE 99DC 20 26 99 JSR Q926 99DF D0 11 BNE Q9F2 99E1 20 39 99 JSR Q939 99E4 29 80 AND #&80 99E6 A0 17 LDY #&17 99E8 91 BA STA (&BA),Y 99EA A0 1B LDY #&1B 99EC 91 BA STA (&BA),Y 99EE A0 1F LDY #&1F 99F0 91 BA STA (&BA),Y .Q9F2 99F2 20 3B A6 JSR R63B .Q9F5 99F5 20 41 A6 JSR R641 99F8 7A PLY 99F9 A6 F4 LDX &F4 99FB 3C F0 0D BIT &0DF0,X 99FE 30 01 BMI QA01 9A00 C8 INY .QA01 9A01 A9 02 LDA #&02 .QA03 9A03 60 RTS .QA04 9A04 A0 08 LDY #&08 .QA06 ;Service call &12 = initialise filing system 9A06 C0 08 CPY #&08 9A08 D0 F9 BNE QA03 9A0A 5A PHY 9A0B 5A PHY 9A0C 80 35 BRA QA43 ;Service call &03 = boot filing system 9A0E 5A PHY 9A0F A9 7A LDA #&7A 9A11 20 F4 FF JSR &FFF4 9A14 E8 INX 9A15 F0 15 BEQ QA2C 9A17 CA DEX 9A18 E0 79 CPX #&79 9A1A F0 10 BEQ QA2C 9A1C E0 41 CPX #&41 9A1E F0 0C BEQ QA2C 9A20 E0 43 CPX #&43 9A22 F0 06 BEQ QA2A 9A24 7A PLY 9A25 A6 F4 LDX &F4 9A27 A9 03 LDA #&03 9A29 60 RTS .QA2A 9A2A 68 PLA 9A2B DA PHX .QA2C 9A2C 58 CLI 9A2D DA PHX 9A2E 20 39 99 JSR Q939 9A31 0A ASL A 9A32 10 09 BPL QA3D 9A34 20 42 99 JSR Q942 9A37 30 04 BMI QA3D 9A39 68 PLA 9A3A A9 43 LDA #&43 9A3C 48 PHA .QA3D 9A3D 20 A4 9C JSR QCA4 9A40 20 E7 FF JSR &FFE7 .QA43 9A43 A9 06 LDA #&06 9A45 20 06 99 JSR Q906 9A48 9C D7 C2 STZ &C2D7 9A4B 20 39 99 JSR Q939 9A4E 8D D8 C2 STA &C2D8 9A51 A0 0D LDY #&0D .QA53 9A53 B9 62 9B LDA &9B62,Y 9A56 99 12 02 STA &0212,Y 9A59 88 DEY 9A5A 10 F7 BPL QA53 9A5C A9 A8 LDA #&A8 9A5E 20 9D 84 JSR P49D 9A61 86 B4 STX &B4 9A63 84 B5 STY &B5 9A65 A0 2F LDY #&2F 9A67 A2 14 LDX #&14 .QA69 9A69 BD 70 9B LDA &9B70,X 9A6C C9 FF CMP #&FF 9A6E D0 02 BNE QA72 9A70 A5 F4 LDA &F4 .QA72 9A72 91 B4 STA (&B4),Y 9A74 88 DEY 9A75 CA DEX 9A76 10 F1 BPL QA69 9A78 A9 8F LDA #&8F 9A7A A2 0F LDX #&0F 9A7C A0 FF LDY #&FF 9A7E 20 F4 FF JSR &FFF4 9A81 A9 FF LDA #&FF 9A83 8D E4 C2 STA &C2E4 9A86 20 41 A6 JSR R641 9A89 9C 08 C2 STZ &C208 9A8C 9C 0C C2 STZ &C20C 9A8F 9C 10 C2 STZ &C210 9A92 9C 14 C2 STZ &C214 9A95 A9 01 LDA #&01 9A97 8D 04 C2 STA &C204 9A9A A0 FB LDY #&FB .QA9C 9A9C B1 BA LDA (&BA),Y 9A9E 99 00 C3 STA &C300,Y 9AA1 88 DEY 9AA2 D0 F8 BNE QA9C 9AA4 B1 BA LDA (&BA),Y 9AA6 99 00 C3 STA &C300,Y 9AA9 AD 20 C3 LDA &C320 9AAC 29 04 AND #&04 9AAE 85 CD STA &CD 9AB0 20 AE A6 JSR R6AE 9AB3 20 26 99 JSR Q926 9AB6 D0 04 BNE QABC 9AB8 A9 20 LDA #&20 9ABA 04 CD TSB &CD .QABC 9ABC 68 PLA 9ABD C9 43 CMP #&43 9ABF D0 03 BNE QAC4 9AC1 20 74 84 JSR P474 .QAC4 9AC4 A0 03 LDY #&03 .QAC6 9AC6 B9 14 C3 LDA &C314,Y 9AC9 99 2C C2 STA &C22C,Y 9ACC 88 DEY 9ACD 10 F7 BPL QAC6 9ACF 20 A0 89 JSR P9A0 9AD2 AE 17 C3 LDX &C317 9AD5 E8 INX 9AD6 F0 51 BEQ QB29 9AD8 20 93 B3 JSR S393 9ADB AD 18 C3 LDA &C318 9ADE C9 02 CMP #&02 9AE0 D0 44 BNE QB26 9AE2 AD 19 C3 LDA &C319 9AE5 0D 1A C3 ORA &C31A 9AE8 0D 1B C3 ORA &C31B 9AEB D0 39 BNE QB26 9AED A9 5A LDA #&5A 9AEF 85 B4 STA &B4 9AF1 A9 9B LDA #&9B 9AF3 85 B5 STA &B5 9AF5 20 DE 8E JSR PEDE 9AF8 D0 2C BNE QB26 .QAFA 9AFA A0 03 LDY #&03 9AFC B1 B6 LDA (&B6),Y 9AFE 30 07 BMI QB07 9B00 20 34 89 JSR P934 9B03 D0 21 BNE QB26 9B05 F0 F3 BEQ QAFA .QB07 9B07 A2 02 LDX #&02 9B09 A0 18 LDY #&18 .QB0B 9B0B B1 B6 LDA (&B6),Y 9B0D 9D 18 C3 STA &C318,X 9B10 88 DEY 9B11 CA DEX 9B12 10 F7 BPL QB0B 9B14 AD 17 C3 LDA &C317 9B17 8D 1B C3 STA &C31B 9B1A A0 09 LDY #&09 .QB1C 9B1C B1 B6 LDA (&B6),Y 9B1E 29 7F AND #&7F 9B20 99 0A C3 STA &C30A,Y 9B23 88 DEY 9B24 10 F6 BPL QB1C .QB26 9B26 20 A0 89 JSR P9A0 .QB29 9B29 A9 EA LDA #&EA 9B2B 20 9D 84 JSR P49D 9B2E A9 80 LDA #&80 9B30 14 CD TRB &CD 9B32 E8 INX 9B33 D0 02 BNE QB37 9B35 04 CD TSB &CD .QB37 9B37 68 PLA 9B38 48 PHA 9B39 D0 19 BNE QB54 9B3B AE 17 C3 LDX &C317 9B3E E8 INX 9B3F D0 06 BNE QB47 9B41 8E 6F C2 STX &C26F 9B44 20 80 A0 JSR R080 .QB47 9B47 AC FD C1 LDY &C1FD 9B4A F0 08 BEQ QB54 9B4C BE 48 99 LDX &9948,Y 9B4F A0 99 LDY #&99 9B51 20 F7 FF JSR &FFF7 .QB54 9B54 A6 F4 LDX &F4 9B56 7A PLY 9B57 A9 00 LDA #&00 9B59 60 RTS 9B5A EQUS ":0.LIB*" 9B61 EQUB &0D ;Table of addresses of extended vector handlers 9B62 EQUW &1B,&FF ;FILEV, &0212 = &FF1B 9B64 EQUW &1E,&FF ;ARGSV, &0214 = &FF1E 9B66 EQUW &21,&FF ;BGETV, &0216 = &FF21 9B68 EQUW &24,&FF ;BPUTV, &0218 = &FF24 9B6A EQUW &27,&FF ;GBPBV, &021A = &FF27 9B6C EQUW &2A,&FF ;FINDV, &021C = &FF2A 9B6E EQUW &2D,&FF ;FSCV, &021E = &FF2D ;Table of action addresses for extended vector table 9B70 EQUW &24,&91 ;E FILEV, evt + &1B = &9124 9B72 EQUB &FF 9B73 EQUW &54,&A8 ;E ARGSV, evt + &1E = &A854 9B75 EQUB &FF 9B76 EQUW &38,&AC ;E BGETV, evt + &21 = &AC38 9B78 EQUB &FF 9B79 EQUW &B2,&AF ;E BPUTV, evt + &24 = &AFB2 9B7B EQUB &FF 9B7C EQUW &92,&B4 ;E GBPBV, evt + &27 = &B492 9B7E EQUB &FF 9B7F EQUW &D9,&B0 ;E FINDV, evt + &2A = &B0D9 9B81 EQUB &FF 9B82 EQUW &62,&9D ;E FSCV, evt + &2D = &9D62 9B84 EQUB &FF ;Service call &21 = reserve abs wksp in HAZEL 9B85 C0 CE CPY #&CE 9B87 B0 02 BCS QB8B 9B89 A0 CE LDY #&CE .QB8B 9B8B 60 RTS ;Service call &22 = reserve priv wksp in HAZEL 9B8C 98 TYA 9B8D 9D F0 0D STA &0DF0,X 9B90 A9 22 LDA #&22 9B92 C8 INY 9B93 60 RTS ;Service call &24 = abs wkspace in HAZEL count 9B94 88 DEY 9B95 DA PHX 9B96 5A PHY 9B97 48 PHA 9B98 20 E2 B9 JSR S9E2 9B9B 68 PLA 9B9C 7A PLY 9B9D FA PLX 9B9E 60 RTS ;Service call &25 = return FS information 9B9F A2 0A LDX #&0A .QBA1 9BA1 BD AF 9B LDA &9BAF,X 9BA4 91 F2 STA (&F2),Y 9BA6 C8 INY 9BA7 CA DEX 9BA8 10 F7 BPL QBA1 9BAA A9 25 LDA #&25 .QBAC 9BAC A6 F4 LDX &F4 9BAE 60 RTS ;Filing system information block, in reverse 9BAF EQUB &08 ;filing system number 9BB0 EQUB &39 ;maximum file handle 9BB1 EQUB &30 ;minimum file handle 9BB2 EQUS " sfda" ;name of filing system ;Service call &26 = *SHUT command issued 9BBA 5A PHY .QBBB 9BBB 20 1E A6 JSR R61E 9BBE A0 AC LDY #&AC 9BC0 A2 09 LDX #&09 9BC2 A9 00 LDA #&00 .QBC4 9BC4 11 BA ORA (&BA),Y 9BC6 C8 INY 9BC7 CA DEX 9BC8 10 FA BPL QBC4 9BCA AA TAX 9BCB F0 06 BEQ QBD3 9BCD 20 04 9A JSR QA04 9BD0 20 D6 B0 JSR S0D6 .QBD3 9BD3 7A PLY 9BD4 A9 26 LDA #&26 9BD6 80 D4 BRA QBAC ;Service call &04 = unrecognised *command 9BD8 5A PHY 9BD9 A2 FF LDX #&FF 9BDB B1 F2 LDA (&F2),Y 9BDD 09 20 ORA #&20 9BDF C9 66 CMP #&66 9BE1 D0 03 BNE QBE6 9BE3 A2 43 LDX #&43 9BE5 C8 INY .QBE6 9BE6 DA PHX 9BE7 A2 03 LDX #&03 .QBE9 9BE9 B1 F2 LDA (&F2),Y 9BEB C8 INY 9BEC C9 2E CMP #&2E 9BEE F0 0A BEQ QBFA 9BF0 09 20 ORA #&20 9BF2 DD B6 9B CMP &9BB6,X 9BF5 D0 13 BNE QC0A 9BF7 CA DEX 9BF8 10 EF BPL QBE9 .QBFA 9BFA B1 F2 LDA (&F2),Y 9BFC C8 INY 9BFD C9 20 CMP #&20 9BFF F0 F9 BEQ QBFA 9C01 B0 07 BCS QC0A 9C03 FA PLX 9C04 68 PLA 9C05 DA PHX 9C06 DA PHX 9C07 4C 43 9A JMP QA43 .QC0A 9C0A 68 PLA 9C0B 7A PLY 9C0C A9 04 LDA #&04 9C0E A6 F4 LDX &F4 9C10 60 RTS ;Service call &08 = unrecognised OSWORD 9C11 5A PHY 9C12 A5 EF LDA &EF 9C14 C9 70 CMP #&70 9C16 90 51 BCC QC69 9C18 C9 74 CMP #&74 9C1A B0 4D BCS QC69 9C1C A9 00 LDA #&00 9C1E A8 TAY 9C1F 20 DA FF JSR &FFDA 9C22 C9 08 CMP #&08 9C24 F0 03 BEQ QC29 9C26 20 04 9A JSR QA04 .QC29 9C29 A5 EF LDA &EF 9C2B C9 72 CMP #&72 9C2D D0 40 BNE QC6F 9C2F A5 F0 LDA &F0 9C31 85 BA STA &BA 9C33 A5 F1 LDA &F1 9C35 85 BB STA &BB 9C37 A0 0F LDY #&0F .QC39 9C39 B1 BA LDA (&BA),Y 9C3B 99 15 C2 STA &C215,Y 9C3E 88 DEY 9C3F 10 F8 BPL QC39 9C41 AD 1A C2 LDA &C21A 9C44 29 FD AND #&FD 9C46 C9 08 CMP #&08 9C48 F0 10 BEQ QC5A .QC4A 9C4A 20 8C B9 JSR S98C 9C4D EE 17 C3 INC &C317 9C50 F0 03 BEQ QC55 9C52 CE 17 C3 DEC &C317 .QC55 9C55 20 6F 80 JSR P06F 9C58 10 08 BPL QC62 .QC5A 9C5A AD 1E C2 LDA &C21E 9C5D D0 EB BNE QC4A 9C5F 20 12 8A JSR PA12 .QC62 9C62 A0 00 LDY #&00 9C64 91 BA STA (&BA),Y .QC66 9C66 A9 00 LDA #&00 9C68 2C A9 08 BIT &08A9 9C6B A6 F4 LDX &F4 9C6D 7A PLY 9C6E 60 RTS .QC6F 9C6F C9 73 CMP #&73 9C71 D0 0C BNE QC7F 9C73 A0 04 LDY #&04 .QC75 9C75 B9 D0 C2 LDA &C2D0,Y 9C78 91 F0 STA (&F0),Y 9C7A 88 DEY 9C7B 10 F8 BPL QC75 9C7D 30 E7 BMI QC66 .QC7F 9C7F C9 70 CMP #&70 9C81 D0 0F BNE QC92 9C83 AD FA C8 LDA &C8FA 9C86 A0 00 LDY #&00 9C88 91 F0 STA (&F0),Y 9C8A A5 CD LDA &CD 9C8C C8 INY 9C8D 91 F0 STA (&F0),Y 9C8F 4C 66 9C JMP QC66 .QC92 9C92 20 C9 A0 JSR R0C9 9C95 A0 03 LDY #&03 .QC97 9C97 B9 15 C2 LDA &C215,Y 9C9A 91 F0 STA (&F0),Y 9C9C 88 DEY 9C9D 10 F8 BPL QC97 9C9F 80 C5 BRA QC66 .QCA1 9CA1 20 E7 FF JSR &FFE7 .QCA4 9CA4 20 86 91 JSR Q186 9CA7 EQUS "Challenger ADFS" 9CB6 EQUB &A0 9CB7 AE FD C3 LDX &C3FD 9CBA 30 0A BMI QCC6 9CBC E8 INX 9CBD E8 INX 9CBE E8 INX 9CBF E8 INX 9CC0 20 A8 92 JSR Q2A8 .QCC3 9CC3 4C E7 FF JMP &FFE7 .QCC6 9CC6 20 86 91 JSR Q186 9CC9 EQUS "inactiv" 9CD0 EQUB &E5 9CD1 80 F0 BRA QCC3 ;Service call &09 = *HELP 9CD3 5A PHY 9CD4 B1 F2 LDA (&F2),Y 9CD6 C9 20 CMP #&20 9CD8 B0 28 BCS QD02 9CDA 20 A1 9C JSR QCA1 9CDD 20 86 91 JSR Q186 9CE0 EQUS " ADFS" 9CE6 EQUB &8D .QCE7 9CE7 7A PLY 9CE8 A6 F4 LDX &F4 9CEA A9 09 LDA #&09 .QCEC 9CEC 60 RTS .QCED 9CED C8 INY 9CEE B1 F2 LDA (&F2),Y 9CF0 C9 20 CMP #&20 9CF2 B0 F8 BCS QCEC 9CF4 68 PLA 9CF5 68 PLA 9CF6 90 EF BCC QCE7 .QCF8 9CF8 20 ED 9C JSR QCED 9CFB D0 FB BNE QCF8 .QCFD 9CFD 20 ED 9C JSR QCED 9D00 F0 FB BEQ QCFD .QD02 9D02 A2 03 LDX #&03 .QD04 9D04 B1 F2 LDA (&F2),Y 9D06 C9 2E CMP #&2E 9D08 F0 11 BEQ QD1B 9D0A 09 20 ORA #&20 9D0C DD B6 9B CMP &9BB6,X 9D0F D0 E7 BNE QCF8 9D11 C8 INY 9D12 CA DEX 9D13 10 EF BPL QD04 9D15 B1 F2 LDA (&F2),Y 9D17 C9 21 CMP #&21 9D19 B0 DD BCS QCF8 .QD1B 9D1B 20 A1 9C JSR QCA1 9D1E A2 00 LDX #&00 .QD20 9D20 BD F2 9D LDA &9DF2,X 9D23 30 C2 BMI QCE7 9D25 20 86 91 JSR Q186 9D28 EQUS " " 9D29 EQUB &A0 9D2A A0 09 LDY #&09 .QD2C 9D2C BD F2 9D LDA &9DF2,X 9D2F 30 07 BMI QD38 9D31 20 1B 9F JSR QF1B 9D34 E8 INX 9D35 88 DEY 9D36 10 F4 BPL QD2C .QD38 9D38 20 16 9F JSR QF16 9D3B 88 DEY 9D3C 10 FA BPL QD38 9D3E DA PHX 9D3F BD F4 9D LDA &9DF4,X 9D42 48 PHA 9D43 4A LSR A 9D44 4A LSR A 9D45 4A LSR A 9D46 4A LSR A 9D47 20 5E 91 JSR Q15E 9D4A 68 PLA 9D4B 29 0F AND #&0F 9D4D 20 5E 91 JSR Q15E 9D50 20 19 9F JSR QF19 9D53 FA PLX 9D54 E8 INX 9D55 E8 INX 9D56 E8 INX 9D57 80 C7 BRA QD20 ;Table of addresses of syntax elements &00..08, low bytes (high byte = &9E) 9D59 EQUB &DB,&87,&93,&9D 9D5D EQUB &A9,&B3,&BD,&CA 9D61 EQUB &D2 ;OSFSC 9D62 86 B4 STX &B4 9D64 84 B5 STY &B5 9D66 8D D6 C2 STA &C2D6 9D69 AA TAX 9D6A 30 13 BMI QD7F 9D6C C9 0C CMP #&0C 9D6E B0 0F BCS QD7F 9D70 9C D5 C2 STZ &C2D5 9D73 BD 8C 9D LDA &9D8C,X 9D76 48 PHA 9D77 BD 80 9D LDA &9D80,X 9D7A 48 PHA 9D7B A6 B4 LDX &B4 9D7D A4 B5 LDY &B5 .QD7F 9D7F 60 RTS ;Table of action addresses for OSFSC calls 0..11, low bytes 9D80 EQUB &E0 ;OSFSC 0 = *OPT &9EE1 9D81 EQUB &0E ;OSFSC 1 = read EOF state &AC0F 9D82 EQUB &B4 ;OSFSC 2 = */ &A2B5 9D83 EQUB &97 ;OSFSC 3 = unrecognised *cmd &9D98 9D84 EQUB &B4 ;OSFSC 4 = *RUN &A2B5 9D85 EQUB &D3 ;OSFSC 5 = *CAT &92D4 9D86 EQUB &46 ;OSFSC 6 = new FS starting up &A847 9D87 EQUB &DB ;OSFSC 7 = valid file handles &9EDC 9D88 EQUB &BA ;OSFSC 8 = *command entered &9FBB 9D89 EQUB &1B ;OSFSC 9 = *EX &931C 9D8A EQUB &C7 ;OSFSC 10 = *INFO &93C8 9D8B EQUB &B4 ;OSFSC 11 = *RUN from library &A2B5 ;Table of action addresses for OSFSC calls 0..11, high bytes 9D8C EQUB &9E 9D8D EQUB &AC 9D8E EQUB &A2 9D8F EQUB &9D 9D90 EQUB &A2 9D91 EQUB &92 9D92 EQUB &A8 9D93 EQUB &9E 9D94 EQUB &9F 9D95 EQUB &93 9D96 EQUB &93 9D97 EQUB &A2 ;OSFSC 3 = unrecognised *command 9D98 20 03 83 JSR P303 9D9B A9 A2 LDA #&A2 9D9D 85 B8 STA &B8 9D9F A9 C2 LDA #&C2 9DA1 85 B9 STA &B9 9DA3 20 E7 A3 JSR R3E7 9DA6 A2 FD LDX #&FD .QDA8 9DA8 E8 INX 9DA9 E8 INX 9DAA A0 FF LDY #&FF .QDAC 9DAC E8 INX 9DAD C8 INY 9DAE BD F2 9D LDA &9DF2,X 9DB1 30 1A BMI QDCD 9DB3 D1 B4 CMP (&B4),Y 9DB5 F0 F5 BEQ QDAC 9DB7 09 20 ORA #&20 9DB9 D1 B4 CMP (&B4),Y 9DBB F0 EF BEQ QDAC 9DBD CA DEX .QDBE 9DBE E8 INX 9DBF BD F2 9D LDA &9DF2,X 9DC2 10 FA BPL QDBE 9DC4 B1 B4 LDA (&B4),Y 9DC6 C9 2E CMP #&2E 9DC8 D0 DE BNE QDA8 9DCA C8 INY 9DCB D0 0F BNE QDDC .QDCD 9DCD 98 TYA 9DCE F0 19 BEQ QDE9 9DD0 B1 B4 LDA (&B4),Y 9DD2 29 5F AND #&5F 9DD4 C9 41 CMP #&41 9DD6 90 04 BCC QDDC 9DD8 C9 5B CMP #&5B 9DDA 90 CC BCC QDA8 .QDDC 9DDC 98 TYA 9DDD 18 CLC 9DDE 65 B4 ADC &B4 9DE0 85 B4 STA &B4 9DE2 90 02 BCC QDE6 9DE4 E6 B5 INC &B5 .QDE6 9DE6 20 E7 A3 JSR R3E7 .QDE9 9DE9 BD F2 9D LDA &9DF2,X 9DEC 48 PHA 9DED BD F3 9D LDA &9DF3,X 9DF0 48 PHA 9DF1 60 RTS 9DF2 EQUS "ACCESS" 9DF8 EQUW &97,&FB 9DFA EQUB &16 9DFB EQUS "AFORM" 9E00 EQUW &BA,&D1 9E02 EQUB &48 9E03 EQUS "BACK" 9E07 EQUW &A3,&AE 9E09 EQUB &00 9E0A EQUS "BYE" 9E0D EQUW &9F,&E1 9E0F EQUB &00 9E10 EQUS "CDIR" 9E14 EQUW &94,&50 9E16 EQUB &20 9E17 EQUS "COMPACT" 9E1E EQUW &A1,&94 9E20 EQUB &50 9E21 EQUS "CONFIG" 9E27 EQUW &B9,&AA 9E29 EQUB &40 9E2A EQUS "COPY" 9E2E EQUW &A7,&22 9E30 EQUB &13 9E31 EQUS "DESTROY" 9E38 EQUW &98,&A2 9E3A EQUB &10 9E3B EQUS "DIR" 9E3E EQUW &94,&1F 9E40 EQUB &20 9E41 EQUS "DISMOUNT" 9E49 EQUW &A0,&2F 9E4B EQUB &40 9E4C EQUS "FREE" 9E50 EQUW &9F,&41 9E52 EQUB &00 9E53 EQUS "LCAT" 9E57 EQUW &A3,&96 9E59 EQUB &00 9E5A EQUS "LEX" 9E5D EQUW &A3,&A2 9E5F EQUB &00 9E60 EQUS "LIB" 9E63 EQUW &A3,&5B 9E65 EQUB &30 9E66 EQUS "MAP" 9E69 EQUW &9F,&70 9E6B EQUB &00 9E6C EQUS "MOUNT" 9E71 EQUW &A0,&7C 9E73 EQUB &40 9E74 EQUS "RENAME" 9E7A EQUW &A4,&1A 9E7C EQUB &22 9E7D EQUS "TITLE" 9E82 EQUW &A1,&70 9E84 EQUB &70 9E85 EQUW &A2,&B4 ;unrecognised command, *RUN it &A2B5 9E87 EQUS "" 9E92 EQUB &00 9E93 EQUS "" 9E9C EQUB &00 9E9D EQUS "<*Ob Spec*>" 9EA8 EQUB &00 9EA9 EQUS "()" 9EB2 EQUB &00 9EB3 EQUS " " 9EBC EQUB &00 9EBD EQUS "(L)(W)(R)(E)" 9EC9 EQUB &00 9ECA EQUS "" 9ED1 EQUB &00 9ED2 EQUS "(S)(M)(L)" 9EDB EQUB &00 ;OSFSC 7 = range of valid file handles 9EDC A2 30 LDX #&30 9EDE A0 39 LDY #&39 9EE0 60 RTS ;OSFSC 0 = *OPT 9EE1 A6 B4 LDX &B4 9EE3 F0 0A BEQ QEEF 9EE5 CA DEX 9EE6 D0 0E BNE QEF6 9EE8 A9 04 LDA #&04 9EEA 04 CD TSB &CD 9EEC 98 TYA 9EED D0 04 BNE QEF3 .QEEF 9EEF A9 04 LDA #&04 9EF1 14 CD TRB &CD .QEF3 9EF3 4C A0 89 JMP P9A0 .QEF6 9EF6 E0 03 CPX #&03 9EF8 D0 10 BNE QF0A 9EFA 20 E9 8E JSR PEE9 9EFD 20 0C B4 JSR S40C 9F00 A5 B5 LDA &B5 9F02 29 03 AND #&03 9F04 8D FD C1 STA &C1FD 9F07 4C 87 8E JMP PE87 .QF0A 9F0A 20 46 83 JSR P346 9F0D EQUB &CB 9F0E EQUS "Bad opt" 9F15 EQUB &00 .QF16 9F16 A9 20 LDA #&20 9F18 2C A9 0D BIT &0DA9 .QF1B 9F1B DA PHX 9F1C 5A PHY 9F1D 48 PHA 9F1E A9 C7 LDA #&C7 9F20 A0 00 LDY #&00 9F22 20 9F 84 JSR P49F 9F25 E0 30 CPX #&30 9F27 90 09 BCC QF32 9F29 E0 3A CPX #&3A 9F2B B0 05 BCS QF32 9F2D 20 F4 FF JSR &FFF4 9F30 A2 00 LDX #&00 .QF32 9F32 68 PLA 9F33 48 PHA 9F34 20 E3 FF JSR &FFE3 9F37 A9 C7 LDA #&C7 9F39 A0 FF LDY #&FF 9F3B 20 F4 FF JSR &FFF4 9F3E 68 PLA 9F3F 7A PLY 9F40 FA PLX 9F41 60 RTS ;*FREE 9F42 20 C9 A0 JSR R0C9 9F45 20 E5 A0 JSR R0E5 9F48 20 86 91 JSR Q186 9F4B EQUS "Free" 9F4F EQUB &8D 9F50 20 C9 A0 JSR R0C9 9F53 A0 01 LDY #&01 9F55 A2 02 LDX #&02 9F57 38 SEC .QF58 9F58 B9 FB C0 LDA &C0FB,Y 9F5B F9 15 C2 SBC &C215,Y 9F5E 99 15 C2 STA &C215,Y 9F61 C8 INY 9F62 CA DEX 9F63 10 F3 BPL QF58 9F65 20 E5 A0 JSR R0E5 9F68 20 86 91 JSR Q186 9F6B EQUS "Used" 9F6F EQUB &8D .QF70 9F70 60 RTS ;*MAP 9F71 20 86 91 JSR Q186 9F74 EQUS "Address : Length" 9F85 EQUB &8D 9F86 A2 00 LDX #&00 .QF88 9F88 EC FE C1 CPX &C1FE 9F8B F0 E3 BEQ QF70 9F8D E8 INX 9F8E E8 INX 9F8F E8 INX 9F90 86 C6 STX &C6 9F92 A0 02 LDY #&02 .QF94 9F94 CA DEX 9F95 BD 00 C0 LDA &C000,X 9F98 20 F6 91 JSR Q1F6 9F9B 88 DEY 9F9C 10 F6 BPL QF94 9F9E 20 86 91 JSR Q186 9FA1 EQUS " : " 9FA5 EQUB &A0 9FA6 A6 C6 LDX &C6 9FA8 A0 02 LDY #&02 .QFAA 9FAA CA DEX 9FAB BD 00 C1 LDA &C100,X 9FAE 20 F6 91 JSR Q1F6 9FB1 88 DEY 9FB2 10 F6 BPL QFAA 9FB4 20 19 9F JSR QF19 9FB7 A6 C6 LDX &C6 9FB9 80 CD BRA QF88 ;OSFSC 8 = *command has been entered 9FBB AE D9 C2 LDX &C2D9 9FBE D0 B0 BNE QF70 9FC0 AE FE C1 LDX &C1FE 9FC3 E0 E1 CPX #&E1 9FC5 90 A9 BCC QF70 9FC7 20 86 91 JSR Q186 9FCA EQUS "Compaction recommended" 9FE0 EQUB &8D 9FE1 60 RTS ;*BYE 9FE2 AD 17 C3 LDA &C317 9FE5 48 PHA 9FE6 AA TAX 9FE7 E8 INX 9FE8 F0 03 BEQ QFED 9FEA 20 D6 B0 JSR S0D6 .QFED 9FED A9 60 LDA #&60 9FEF 8D 17 C3 STA &C317 .QFF2 9FF2 A2 09 LDX #&09 9FF4 A0 A0 LDY #&A0 9FF6 20 6F 80 JSR P06F 9FF9 AD 17 C3 LDA &C317 9FFC 38 SEC 9FFD E9 20 SBC #&20 9FFF 8D 17 C3 STA &C317 A002 B0 EE BCS QFF2 A004 68 PLA A005 8D 17 C3 STA &C317 A008 60 RTS A009 EQUB &00 A00A EQUD &00,&C9,&FF,&FF A00E EQUB &1B,&00,&00,&00 A012 EQUB &00,&00 .R014 A014 20 E7 A3 JSR R3E7 A017 AC 17 C3 LDY &C317 A01A C8 INY A01B F0 01 BEQ R01E A01D 88 DEY .R01E A01E 8C 6F C2 STY &C26F A021 A0 00 LDY #&00 A023 B1 B4 LDA (&B4),Y A025 C9 20 CMP #&20 A027 90 06 BCC R02F A029 20 17 88 JSR P817 A02C 8D 6F C2 STA &C26F .R02F A02F 60 RTS ;*DISMOUNT A030 20 14 A0 JSR R014 A033 A2 09 LDX #&09 .R035 A035 BD AC C3 LDA &C3AC,X A038 F0 14 BEQ R04E A03A BD B6 C3 LDA &C3B6,X A03D 29 E0 AND #&E0 A03F CD 6F C2 CMP &C26F A042 D0 0A BNE R04E A044 18 CLC A045 8A TXA A046 69 30 ADC #&30 A048 A8 TAY A049 A9 00 LDA #&00 A04B 20 D9 B0 JSR S0D9 .R04E A04E CA DEX A04F 10 E4 BPL R035 A051 AD 17 C3 LDA &C317 A054 CD 6F C2 CMP &C26F A057 D0 3F BNE R098 A059 A9 FF LDA #&FF A05B 8D 17 C3 STA &C317 A05E 8D 16 C3 STA &C316 A061 A2 00 LDX #&00 A063 20 68 A0 JSR R068 A066 80 30 BRA R098 .R068 A068 A0 09 LDY #&09 .R06A A06A B9 73 A0 LDA &A073,Y A06D 9D 00 C3 STA &C300,X A070 E8 INX A071 88 DEY A072 10 F6 BPL R06A A074 60 RTS A075 EQUB &0D A076 EQUB &22 A077 EQUS "tesnU" A07C EQUB &22 ;*MOUNT A07D 20 14 A0 JSR R014 .R080 A080 AD 6F C2 LDA &C26F A083 8D 17 C3 STA &C317 A086 A2 BE LDX #&BE A088 A0 A0 LDY #&A0 A08A 20 6F 80 JSR P06F A08D A9 C9 LDA #&C9 A08F 85 B4 STA &B4 A091 A9 A1 LDA #&A1 A093 85 B5 STA &B5 A095 20 20 94 JSR Q420 .R098 A098 AD 1F C3 LDA &C31F A09B CD 6F C2 CMP &C26F A09E D0 08 BNE R0A8 A0A0 A9 FF LDA #&FF A0A2 8D 1E C3 STA &C31E A0A5 8D 1F C3 STA &C31F .R0A8 A0A8 AD 1B C3 LDA &C31B A0AB CD 6F C2 CMP &C26F A0AE D0 0D BNE R0BD A0B0 A9 FF LDA #&FF A0B2 8D 1A C3 STA &C31A A0B5 8D 1B C3 STA &C31B A0B8 A2 0A LDX #&0A A0BA 20 68 A0 JSR R068 .R0BD A0BD 60 RTS A0BE EQUB &00 A0BF EQUD &00,&C9,&FF,&FF A0C3 EQUB &1B,&00,&00,&00 A0C7 EQUB &01,&00 .R0C9 A0C9 A9 00 LDA #&00 A0CB A2 03 LDX #&03 .R0CD A0CD 9D 15 C2 STA &C215,X A0D0 9D 27 C2 STA &C227,X A0D3 CA DEX A0D4 10 F7 BPL R0CD A0D6 20 0A 86 JSR P60A A0D9 A2 02 LDX #&02 .R0DB A0DB BD 5D C2 LDA &C25D,X A0DE 9D 16 C2 STA &C216,X A0E1 CA DEX A0E2 10 F7 BPL R0DB A0E4 60 RTS .R0E5 A0E5 AD 18 C2 LDA &C218 A0E8 20 F6 91 JSR Q1F6 A0EB AD 17 C2 LDA &C217 A0EE 20 F6 91 JSR Q1F6 A0F1 AD 16 C2 LDA &C216 A0F4 20 F6 91 JSR Q1F6 A0F7 20 86 91 JSR Q186 A0FA EQUS " Sectors =" A104 EQUB &A0 A105 A2 1F LDX #&1F A107 8E 33 C2 STX &C233 A10A A9 00 LDA #&00 A10C A2 09 LDX #&09 .R10E A10E 9D 40 C2 STA &C240,X A111 CA DEX A112 10 FA BPL R10E .R114 A114 0E 15 C2 ASL &C215 A117 2E 16 C2 ROL &C216 A11A 2E 17 C2 ROL &C217 A11D 2E 18 C2 ROL &C218 A120 A2 00 LDX #&00 A122 A0 09 LDY #&09 .R124 A124 BD 40 C2 LDA &C240,X A127 2A ROL A A128 C9 0A CMP #&0A A12A 90 02 BCC R12E A12C E9 0A SBC #&0A .R12E A12E 9D 40 C2 STA &C240,X A131 E8 INX A132 88 DEY A133 10 EF BPL R124 A135 CE 33 C2 DEC &C233 A138 10 DA BPL R114 A13A A0 20 LDY #&20 A13C A2 08 LDX #&08 .R13E A13E D0 02 BNE R142 A140 A0 2C LDY #&2C .R142 A142 BD 40 C2 LDA &C240,X A145 D0 08 BNE R14F A147 C0 2C CPY #&2C A149 F0 04 BEQ R14F A14B A9 20 LDA #&20 A14D D0 05 BNE R154 .R14F A14F A0 2C LDY #&2C A151 18 CLC A152 69 30 ADC #&30 .R154 A154 20 1B 9F JSR QF1B A157 E0 06 CPX #&06 A159 F0 04 BEQ R15F A15B E0 03 CPX #&03 A15D D0 04 BNE R163 .R15F A15F 98 TYA A160 20 1B 9F JSR QF1B .R163 A163 CA DEX A164 10 D8 BPL R13E A166 20 86 91 JSR Q186 A169 EQUS " Bytes" A16F EQUB &A0 A170 60 RTS ;*TITLE A171 20 0C B4 JSR S40C A174 20 E9 8E JSR PEE9 A177 20 E7 A3 JSR R3E7 A17A A0 00 LDY #&00 .R17C A17C B1 B4 LDA (&B4),Y A17E 29 7F AND #&7F A180 C9 22 CMP #&22 A182 F0 04 BEQ R188 A184 C9 20 CMP #&20 A186 B0 02 BCS R18A .R188 A188 A9 0D LDA #&0D .R18A A18A 99 D9 C8 STA &C8D9,Y A18D C8 INY A18E C0 13 CPY #&13 A190 D0 EA BNE R17C A192 4C 87 8E JMP PE87 ;*COMPACT A195 20 E7 A3 JSR R3E7 A198 A0 00 LDY #&00 A19A B1 B4 LDA (&B4),Y A19C C9 21 CMP #&21 A19E B0 2A BCS R1CA A1A0 A9 84 LDA #&84 A1A2 20 F4 FF JSR &FFF4 A1A5 8A TXA A1A6 D0 12 BNE R1BA A1A8 98 TYA A1A9 30 0F BMI R1BA A1AB 8D 60 C2 STA &C260 A1AE A9 80 LDA #&80 A1B0 38 SEC A1B1 ED 60 C2 SBC &C260 A1B4 8D 61 C2 STA &C261 A1B7 4C 51 A2 JMP R251 .R1BA A1BA 20 46 83 JSR P346 A1BD EQUB &94 A1BE EQUS "Bad compact" A1C9 EQUB &00 .R1CA A1CA 8D 15 C2 STA &C215 A1CD C8 INY A1CE B1 B4 LDA (&B4),Y A1D0 8D 16 C2 STA &C216 A1D3 C8 INY A1D4 B1 B4 LDA (&B4),Y A1D6 C9 20 CMP #&20 A1D8 F0 04 BEQ R1DE A1DA C9 2C CMP #&2C A1DC D0 DC BNE R1BA .R1DE A1DE C8 INY A1DF B1 B4 LDA (&B4),Y A1E1 C9 20 CMP #&20 A1E3 F0 F9 BEQ R1DE A1E5 8D 17 C2 STA &C217 A1E8 C8 INY A1E9 B1 B4 LDA (&B4),Y A1EB 8D 18 C2 STA &C218 A1EE C9 21 CMP #&21 A1F0 B0 0C BCS R1FE A1F2 AD 17 C2 LDA &C217 A1F5 8D 18 C2 STA &C218 A1F8 A9 30 LDA #&30 A1FA 8D 17 C2 STA &C217 A1FD 88 DEY .R1FE A1FE C8 INY A1FF B1 B4 LDA (&B4),Y A201 C9 20 CMP #&20 A203 F0 F9 BEQ R1FE A205 B0 B3 BCS R1BA A207 A2 03 LDX #&03 .R209 A209 BD 15 C2 LDA &C215,X A20C C9 30 CMP #&30 A20E 90 AA BCC R1BA A210 C9 3A CMP #&3A A212 B0 08 BCS R21C A214 38 SEC A215 E9 30 SBC #&30 A217 9D 15 C2 STA &C215,X A21A 10 0F BPL R22B .R21C A21C 29 5F AND #&5F A21E C9 41 CMP #&41 A220 90 98 BCC R1BA A222 C9 47 CMP #&47 A224 B0 94 BCS R1BA A226 E9 36 SBC #&36 A228 9D 15 C2 STA &C215,X .R22B A22B CA DEX A22C 10 DB BPL R209 A22E E8 INX A22F 20 63 A2 JSR R263 A232 30 86 BMI R1BA A234 8D 60 C2 STA &C260 A237 A2 02 LDX #&02 A239 20 63 A2 JSR R263 A23C 10 03 BPL R241 .R23E A23E 4C BA A1 JMP R1BA .R241 A241 F0 FB BEQ R23E A243 8D 61 C2 STA &C261 A246 18 CLC A247 6D 60 C2 ADC &C260 A24A C9 81 CMP #&81 A24C 90 03 BCC R251 A24E 4C BA A1 JMP R1BA .R251 A251 20 D6 B0 JSR S0D6 A254 20 03 83 JSR P303 A257 A9 08 LDA #&08 A259 04 CD TSB &CD A25B 20 69 97 JSR Q769 A25E A9 08 LDA #&08 A260 14 CD TRB &CD A262 60 RTS .R263 A263 BD 15 C2 LDA &C215,X A266 0A ASL A A267 0A ASL A A268 0A ASL A A269 0A ASL A A26A 1D 16 C2 ORA &C216,X A26D 60 RTS .R26E A26E 20 CF A3 JSR R3CF A271 A5 B5 LDA &B5 A273 48 PHA A274 A5 B4 LDA &B4 A276 48 PHA A277 20 CF A3 JSR R3CF A27A A0 00 LDY #&00 A27C B1 B4 LDA (&B4),Y A27E C9 20 CMP #&20 A280 B0 23 BCS R2A5 A282 68 PLA A283 85 B4 STA &B4 A285 8D 40 C2 STA &C240 A288 68 PLA A289 85 B5 STA &B5 A28B 8D 41 C2 STA &C241 A28E 60 RTS .R28F A28F 20 8B A3 JSR R38B A292 20 A0 89 JSR P9A0 A295 AD D6 C2 LDA &C2D6 A298 C9 0B CMP #&0B A29A F0 09 BEQ R2A5 A29C A9 0B LDA #&0B A29E A6 C0 LDX &C0 A2A0 A4 C1 LDY &C1 A2A2 4C 06 99 JMP Q906 .R2A5 A2A5 20 46 83 JSR P346 A2A8 EQUB &FE A2A9 EQUS "Bad command" A2B4 EQUB &00 ;OSFSC 2/4/11 = */, *RUN, *RUN from library A2B5 A5 B4 LDA &B4 A2B7 85 C0 STA &C0 A2B9 A5 B5 LDA &B5 A2BB 85 C1 STA &C1 A2BD 20 CC 8A JSR PACC A2C0 F0 16 BEQ R2D8 A2C2 20 A0 89 JSR P9A0 A2C5 A5 C0 LDA &C0 A2C7 85 B4 STA &B4 A2C9 A5 C1 LDA &C1 A2CB 85 B5 STA &B5 A2CD 20 78 A3 JSR R378 A2D0 20 CC 8A JSR PACC A2D3 D0 BA BNE R28F A2D5 20 8B A3 JSR R38B .R2D8 A2D8 A5 B4 LDA &B4 A2DA 8D A2 C2 STA &C2A2 A2DD A5 B5 LDA &B5 A2DF 8D A3 C2 STA &C2A3 A2E2 A0 0E LDY #&0E A2E4 B1 B6 LDA (&B6),Y A2E6 A2 02 LDX #&02 .R2E8 A2E8 C8 INY A2E9 31 B6 AND (&B6),Y A2EB CA DEX A2EC 10 FA BPL R2E8 A2EE 1A INC A A2EF D0 13 BNE R304 A2F1 A6 B6 LDX &B6 A2F3 A4 B7 LDY &B7 A2F5 A9 40 LDA #&40 A2F7 20 D9 B0 JSR S0D9 A2FA 8D 32 C3 STA &C332 A2FD A2 56 LDX #&56 A2FF A0 99 LDY #&99 A301 4C F7 FF JMP &FFF7 .R304 A304 A0 0B LDY #&0B A306 B1 B6 LDA (&B6),Y A308 C8 INY A309 31 B6 AND (&B6),Y A30B C8 INY A30C 31 B6 AND (&B6),Y A30E 1A INC A A30F D0 08 BNE R319 A311 20 46 83 JSR P346 A314 EQUB &93 A315 EQUS "No!" A318 EQUB &00 .R319 A319 A9 A5 LDA #&A5 A31B 8D A8 C2 STA &C2A8 A31E A2 A2 LDX #&A2 A320 A0 C2 LDY #&C2 A322 86 B8 STX &B8 A324 84 B9 STY &B9 A326 20 CC 8A JSR PACC A329 A0 04 LDY #&04 A32B B1 B6 LDA (&B6),Y A32D A0 00 LDY #&00 A32F 11 B6 ORA (&B6),Y A331 30 03 BMI R336 A333 4C 09 8B JMP PB09 .R336 A336 20 29 8B JSR PB29 A339 AD AB C2 LDA &C2AB A33C C9 FF CMP #&FF A33E D0 0C BNE R34C A340 AD AA C2 LDA &C2AA A343 C9 FE CMP #&FE A345 90 05 BCC R34C .R347 A347 A9 01 LDA #&01 A349 6C A8 C2 JMP (&C2A8) .R34C A34C 24 CD BIT &CD A34E 10 F7 BPL R347 A350 20 DE BC JSR SCDE A353 A2 A8 LDX #&A8 A355 A0 C2 LDY #&C2 A357 A9 04 LDA #&04 A359 4C 06 04 JMP &0406 ;*LIB A35C 20 60 93 JSR Q360 A35F A0 09 LDY #&09 .R361 A361 B9 CC C8 LDA &C8CC,Y A364 99 0A C3 STA &C30A,Y A367 88 DEY A368 10 F7 BPL R361 A36A A0 03 LDY #&03 .R36C A36C B9 14 C3 LDA &C314,Y A36F 99 18 C3 STA &C318,Y A372 88 DEY A373 10 F7 BPL R36C .R375 A375 4C A0 89 JMP P9A0 .R378 A378 A0 03 LDY #&03 .R37A A37A B9 14 C3 LDA &C314,Y A37D 99 30 C2 STA &C230,Y A380 B9 18 C3 LDA &C318,Y A383 99 2C C2 STA &C22C,Y A386 88 DEY A387 10 F1 BPL R37A A389 30 EA BMI R375 .R38B A38B A0 03 LDY #&03 .R38D A38D B9 30 C2 LDA &C230,Y A390 99 2C C2 STA &C22C,Y A393 88 DEY A394 10 F7 BPL R38D A396 60 RTS ;*LCAT A397 20 78 A3 JSR R378 A39A 20 8B A3 JSR R38B A39D 20 DA 92 JSR Q2DA A3A0 4C A0 89 JMP P9A0 ;*LEX A3A3 20 78 A3 JSR R378 A3A6 20 8B A3 JSR R38B A3A9 20 1F 93 JSR Q31F A3AC 4C A0 89 JMP P9A0 ;*BACK A3AF A0 03 LDY #&03 .R3B1 A3B1 B9 1C C3 LDA &C31C,Y A3B4 99 2C C2 STA &C22C,Y A3B7 B9 14 C3 LDA &C314,Y A3BA 99 1C C3 STA &C31C,Y A3BD 88 DEY A3BE 10 F1 BPL R3B1 A3C0 20 A0 89 JSR P9A0 A3C3 A0 09 LDY #&09 .R3C5 A3C5 B9 CC C8 LDA &C8CC,Y A3C8 99 00 C3 STA &C300,Y A3CB 88 DEY A3CC 10 F7 BPL R3C5 A3CE 60 RTS .R3CF A3CF A0 00 LDY #&00 .R3D1 A3D1 20 1A 87 JSR P71A A3D4 F0 03 BEQ R3D9 .R3D6 A3D6 C8 INY A3D7 D0 F8 BNE R3D1 .R3D9 A3D9 C9 2E CMP #&2E A3DB F0 F9 BEQ R3D6 A3DD 98 TYA A3DE 18 CLC A3DF 65 B4 ADC &B4 A3E1 85 B4 STA &B4 A3E3 90 02 BCC R3E7 A3E5 E6 B5 INC &B5 .R3E7 A3E7 A0 00 LDY #&00 A3E9 18 CLC A3EA 08 PHP .R3EB A3EB B1 B4 LDA (&B4),Y A3ED C9 20 CMP #&20 A3EF 90 11 BCC R402 A3F1 F0 0C BEQ R3FF A3F3 C9 22 CMP #&22 A3F5 D0 0B BNE R402 A3F7 28 PLP A3F8 90 03 BCC R3FD A3FA 4C 37 87 JMP P737 .R3FD A3FD 38 SEC A3FE 08 PHP .R3FF A3FF C8 INY A400 D0 E9 BNE R3EB .R402 A402 98 TYA A403 28 PLP A404 18 CLC A405 65 B4 ADC &B4 A407 85 B4 STA &B4 A409 90 02 BCC R40D A40B E6 B5 INC &B5 .R40D A40D 60 RTS .R40E A40E A0 00 LDY #&00 A410 B1 B4 LDA (&B4),Y A412 29 7F AND #&7F A414 C9 3A CMP #&3A A416 D0 F5 BNE R40D .R418 A418 4C 50 89 JMP P950 ;*RENAME A41B A5 B4 LDA &B4 A41D 48 PHA A41E A5 B5 LDA &B5 A420 48 PHA A421 20 0E A4 JSR R40E A424 20 C6 8C JSR PCC6 A427 20 FE 8A JSR PAFE A42A F0 03 BEQ R42F A42C 4C E1 8A JMP PAE1 .R42F A42F A0 03 LDY #&03 A431 B1 B6 LDA (&B6),Y A433 20 A0 89 JSR P9A0 A436 10 22 BPL R45A A438 FA PLX A439 68 PLA A43A 85 B4 STA &B4 A43C 86 B5 STX &B5 A43E 48 PHA A43F DA PHX A440 A0 00 LDY #&00 A442 B1 B4 LDA (&B4),Y A444 29 7D AND #&7D A446 C9 24 CMP #&24 A448 F0 CE BEQ R418 .R44A A44A 20 1A 87 JSR P71A A44D F0 07 BEQ R456 A44F C9 5E CMP #&5E A451 F0 C5 BEQ R418 .R453 A453 C8 INY A454 D0 F4 BNE R44A .R456 A456 C9 2E CMP #&2E A458 F0 F9 BEQ R453 .R45A A45A 20 6E A2 JSR R26E A45D 20 0E A4 JSR R40E A460 A9 40 LDA #&40 A462 85 B8 STA &B8 A464 A9 C2 LDA #&C2 A466 85 B9 STA &B9 A468 20 EB 8B JSR PBEB A46B 08 PHP A46C 20 FF 8C JSR PCFF A46F 28 PLP A470 D0 0D BNE R47F A472 A5 B6 LDA &B6 A474 A0 03 LDY #&03 .R476 A476 99 34 C2 STA &C234,Y A479 B9 13 C3 LDA &C313,Y A47C 88 DEY A47D 10 F7 BPL R476 .R47F A47F AD 2E C2 LDA &C22E A482 10 0B BPL R48F A484 A0 02 LDY #&02 .R486 A486 B9 14 C3 LDA &C314,Y A489 99 2C C2 STA &C22C,Y A48C 88 DEY A48D 10 F7 BPL R486 .R48F A48F 20 A0 89 JSR P9A0 A492 FA PLX A493 68 PLA A494 85 B4 STA &B4 A496 86 B5 STX &B5 A498 48 PHA A499 DA PHX A49A 20 DE 8E JSR PEDE A49D 20 19 8C JSR PC19 A4A0 A0 03 LDY #&03 A4A2 A5 B6 LDA &B6 .R4A4 A4A4 D9 34 C2 CMP &C234,Y A4A7 D0 56 BNE R4FF A4A9 B9 13 C3 LDA &C313,Y A4AC 88 DEY A4AD 10 F5 BPL R4A4 A4AF 68 PLA A4B0 85 B5 STA &B5 A4B2 68 PLA A4B3 85 B4 STA &B4 A4B5 20 6E A2 JSR R26E .R4B8 A4B8 A0 00 LDY #&00 .R4BA A4BA B1 B4 LDA (&B4),Y A4BC C9 2E CMP #&2E A4BE F0 09 BEQ R4C9 A4C0 29 7D AND #&7D A4C2 C9 21 CMP #&21 A4C4 90 0E BCC R4D4 A4C6 C8 INY A4C7 80 F1 BRA R4BA .R4C9 A4C9 98 TYA A4CA 65 B4 ADC &B4 A4CC 85 B4 STA &B4 A4CE 90 E8 BCC R4B8 A4D0 E6 B5 INC &B5 A4D2 D0 E4 BNE R4B8 .R4D4 A4D4 A0 09 LDY #&09 .R4D6 A4D6 B1 B6 LDA (&B6),Y A4D8 29 80 AND #&80 A4DA 8D 2B C2 STA &C22B A4DD B1 B4 LDA (&B4),Y A4DF 29 7F AND #&7F A4E1 C9 22 CMP #&22 A4E3 F0 04 BEQ R4E9 A4E5 C9 21 CMP #&21 A4E7 B0 02 BCS R4EB .R4E9 A4E9 A9 0D LDA #&0D .R4EB A4EB 0D 2B C2 ORA &C22B A4EE 91 B6 STA (&B6),Y A4F0 88 DEY A4F1 10 E3 BPL R4D6 A4F3 20 87 8E JSR PE87 A4F6 20 95 A5 JSR R595 A4F9 4C A0 89 JMP P9A0 .R4FC A4FC 4C 85 94 JMP Q485 .R4FF A4FF AD 37 C2 LDA &C237 A502 D0 F8 BNE R4FC A504 A0 09 LDY #&09 A506 B1 B6 LDA (&B6),Y A508 09 80 ORA #&80 A50A 91 B6 STA (&B6),Y A50C 20 87 8E JSR PE87 A50F A0 0A LDY #&0A A511 A2 07 LDX #&07 .R513 A513 B1 B6 LDA (&B6),Y A515 99 38 C2 STA &C238,Y A518 C8 INY A519 CA DEX A51A 10 F7 BPL R513 A51C 9C 4A C2 STZ &C24A A51F 9C 4B C2 STZ &C24B A522 9C 4C C2 STZ &C24C A525 9C 4D C2 STZ &C24D A528 A2 03 LDX #&03 .R52A A52A B1 B6 LDA (&B6),Y A52C 99 3C C2 STA &C23C,Y A52F C8 INY A530 CA DEX A531 10 F7 BPL R52A A533 A0 00 LDY #&00 .R535 A535 B1 B6 LDA (&B6),Y A537 2A ROL A A538 2E 5D C2 ROL &C25D A53B C8 INY A53C C0 04 CPY #&04 A53E D0 F5 BNE R535 A540 20 6E A2 JSR R26E A543 A0 18 LDY #&18 A545 A2 02 LDX #&02 .R547 A547 B1 B6 LDA (&B6),Y A549 9D 3A C2 STA &C23A,X A54C 88 DEY A54D CA DEX A54E 10 F7 BPL R547 A550 20 A0 89 JSR P9A0 A553 A9 40 LDA #&40 A555 85 B8 STA &B8 A557 A9 C2 LDA #&C2 A559 85 B9 STA &B9 A55B 20 FC 8C JSR PCFC A55E 20 78 8D JSR PD78 A561 A0 03 LDY #&03 .R563 A563 B1 B6 LDA (&B6),Y A565 0A ASL A A566 6E 5D C2 ROR &C25D A569 6A ROR A A56A 91 B6 STA (&B6),Y A56C 88 DEY A56D 10 F4 BPL R563 A56F 20 94 8D JSR PD94 A572 20 59 8E JSR PE59 A575 20 87 8E JSR PE87 A578 20 95 A5 JSR R595 A57B 20 A0 89 JSR P9A0 A57E 68 PLA A57F 85 B5 STA &B5 A581 68 PLA A582 85 B4 STA &B4 A584 20 DE 8E JSR PEDE A587 A2 05 LDX #&05 .R589 A589 9E 34 C2 STZ &C234,X A58C CA DEX A58D 10 FA BPL R589 A58F 20 F8 90 JSR Q0F8 A592 4C A0 89 JMP P9A0 .R595 A595 A0 03 LDY #&03 A597 B1 B6 LDA (&B6),Y A599 30 01 BMI R59C A59B 60 RTS .R59C A59C A0 02 LDY #&02 .R59E A59E B9 14 C3 LDA &C314,Y A5A1 99 70 C2 STA &C270,Y A5A4 88 DEY A5A5 10 F7 BPL R59E A5A7 A0 09 LDY #&09 .R5A9 A5A9 B1 B6 LDA (&B6),Y A5AB 29 7F AND #&7F A5AD 99 74 C2 STA &C274,Y A5B0 88 DEY A5B1 10 F6 BPL R5A9 A5B3 A9 74 LDA #&74 A5B5 85 B4 STA &B4 A5B7 A9 C2 LDA #&C2 A5B9 85 B5 STA &B5 A5BB 20 60 93 JSR Q360 A5BE A0 09 LDY #&09 .R5C0 A5C0 B9 74 C2 LDA &C274,Y A5C3 99 CC C8 STA &C8CC,Y A5C6 88 DEY A5C7 10 F7 BPL R5C0 A5C9 A0 02 LDY #&02 .R5CB A5CB B9 70 C2 LDA &C270,Y A5CE 99 D6 C8 STA &C8D6,Y A5D1 88 DEY A5D2 10 F7 BPL R5CB A5D4 4C 87 8E JMP PE87 .R5D7 A5D7 AE 17 C3 LDX &C317 A5DA E8 INX A5DB D0 2B BNE R608 A5DD 20 4D 83 JSR P34D A5E0 EQUB &A9 A5E1 EQUS "No directory" A5ED EQUB &00 .R5EE A5EE 20 D7 A5 JSR R5D7 A5F1 A2 00 LDX #&00 A5F3 AD FA C8 LDA &C8FA .R5F6 A5F6 DD 00 C4 CMP &C400,X A5F9 D0 0E BNE R609 A5FB DD FA C8 CMP &C8FA,X A5FE D0 09 BNE R609 A600 E8 INX A601 BD B5 84 LDA &84B5,X A604 E0 05 CPX #&05 A606 D0 EE BNE R5F6 .R608 A608 60 RTS .R609 A609 20 29 83 JSR P329 A60C EQUB &A8 A60D EQUS "Broken directory" A61D EQUB &00 .R61E A61E A6 F4 LDX &F4 A620 BD F0 0D LDA &0DF0,X A623 85 BB STA &BB A625 A9 00 LDA #&00 A627 85 BA STA &BA A629 60 RTS .R62A A62A 20 1E A6 JSR R61E A62D A0 FD LDY #&FD A62F 98 TYA A630 18 CLC .R631 A631 71 BA ADC (&BA),Y A633 88 DEY A634 D0 FB BNE R631 A636 71 BA ADC (&BA),Y A638 A0 FE LDY #&FE A63A 60 RTS .R63B A63B 20 2A A6 JSR R62A A63E 91 BA STA (&BA),Y .R640 A640 60 RTS .R641 A641 20 2A A6 JSR R62A A644 D1 BA CMP (&BA),Y A646 F0 F8 BEQ R640 .R648 A648 A9 0F LDA #&0F A64A 8D CE C2 STA &C2CE A64D 20 4D 83 JSR P34D A650 EQUB &AA A651 EQUS "Bad sum" A658 EQUB &00 .R659 A659 08 PHP A65A 48 PHA A65B 5A PHY A65C DA PHX A65D AD CE C2 LDA &C2CE A660 D0 E6 BNE R648 A662 20 E9 8E JSR PEE9 A665 18 CLC A666 A2 10 LDX #&10 .R668 A668 BD 04 C2 LDA &C204,X A66B 29 21 AND #&21 A66D F0 06 BEQ R675 A66F B0 D7 BCS R648 A671 C9 01 CMP #&01 A673 D0 D3 BNE R648 .R675 A675 CA DEX A676 CA DEX A677 CA DEX A678 CA DEX A679 10 ED BPL R668 A67B 90 CB BCC R648 A67D 20 A3 A6 JSR R6A3 A680 CD C1 C2 CMP &C2C1 A683 D0 C3 BNE R648 A685 48 PHA A686 48 PHA A687 A0 05 LDY #&05 A689 BA TSX .R68A A68A BD 03 01 LDA &0103,X A68D 9D 01 01 STA &0101,X A690 E8 INX A691 88 DEY A692 10 F6 BPL R68A A694 A9 AD LDA #&AD A696 9D 01 01 STA &0101,X A699 A9 A6 LDA #&A6 A69B 9D 02 01 STA &0102,X A69E FA PLX A69F 7A PLY A6A0 68 PLA A6A1 28 PLP A6A2 60 RTS .R6A3 A6A3 A2 78 LDX #&78 A6A5 8A TXA A6A6 18 CLC .R6A7 A6A7 7D 83 C3 ADC &C383,X A6AA CA DEX A6AB D0 FA BNE R6A7 A6AD 60 RTS .R6AE A6AE 08 PHP A6AF 48 PHA A6B0 5A PHY A6B1 DA PHX A6B2 20 A3 A6 JSR R6A3 A6B5 8D C1 C2 STA &C2C1 A6B8 9C CE C2 STZ &C2CE A6BB 9C D5 C2 STZ &C2D5 A6BE 9C D9 C2 STZ &C2D9 A6C1 FA PLX A6C2 7A PLY A6C3 68 PLA A6C4 28 PLP A6C5 60 RTS .R6C6 A6C6 AD 91 C2 LDA &C291 A6C9 85 B4 STA &B4 A6CB AD 92 C2 LDA &C292 A6CE 85 B5 STA &B5 A6D0 AD 94 C2 LDA &C294 A6D3 85 B7 STA &B7 A6D5 AD 93 C2 LDA &C293 A6D8 85 B6 STA &B6 A6DA A2 0B LDX #&0B .R6DC A6DC BD 0B 88 LDA &880B,X A6DF 9D 14 C2 STA &C214,X A6E2 CA DEX A6E3 D0 F7 BNE R6DC A6E5 A0 03 LDY #&03 .R6E7 A6E7 B9 6C C2 LDA &C26C,Y A6EA 99 14 C3 STA &C314,Y A6ED E0 00 CPX #&00 A6EF F0 03 BEQ R6F4 A6F1 9D 1A C2 STA &C21A,X .R6F4 A6F4 E8 INX A6F5 88 DEY A6F6 10 EF BPL R6E7 A6F8 4C 86 82 JMP P286 .R6FB A6FB A2 0B LDX #&0B .R6FD A6FD BD 0B 88 LDA &880B,X A700 9D 14 C2 STA &C214,X A703 CA DEX A704 D0 F7 BNE R6FD A706 A0 03 LDY #&03 .R708 A708 B9 70 C2 LDA &C270,Y A70B 99 14 C3 STA &C314,Y A70E E0 00 CPX #&00 A710 F0 03 BEQ R715 A712 9D 1A C2 STA &C21A,X .R715 A715 E8 INX A716 88 DEY A717 10 EF BPL R708 A719 20 86 82 JSR P286 A71C A2 01 LDX #&01 A71E A0 88 LDY #&88 A720 4C 89 82 JMP P289 ;*COPY A723 A9 7F LDA #&7F A725 85 B8 STA &B8 A727 A9 C2 LDA #&C2 A729 85 B9 STA &B9 A72B A9 74 LDA #&74 A72D 8D 7F C2 STA &C27F A730 A9 C2 LDA #&C2 A732 8D 80 C2 STA &C280 A735 20 CC 8A JSR PACC A738 F0 03 BEQ R73D A73A 4C E1 8A JMP PAE1 .R73D A73D A5 B6 LDA &B6 A73F 8D 93 C2 STA &C293 A742 A5 B7 LDA &B7 A744 8D 94 C2 STA &C294 A747 A5 B4 LDA &B4 A749 8D 91 C2 STA &C291 A74C A5 B5 LDA &B5 A74E 8D 92 C2 STA &C292 A751 A0 03 LDY #&03 .R753 A753 B9 14 C3 LDA &C314,Y A756 99 6C C2 STA &C26C,Y A759 88 DEY A75A 10 F7 BPL R753 A75C 20 A0 89 JSR P9A0 A75F A0 03 LDY #&03 .R761 A761 B9 14 C3 LDA &C314,Y A764 99 2C C2 STA &C22C,Y A767 88 DEY A768 10 F7 BPL R761 A76A 20 6E A2 JSR R26E A76D 20 1A 87 JSR P71A A770 D0 03 BNE R775 A772 4C 37 87 JMP P737 .R775 A775 20 60 93 JSR Q360 A778 20 E9 8E JSR PEE9 A77B A0 03 LDY #&03 .R77D A77D B9 14 C3 LDA &C314,Y A780 99 70 C2 STA &C270,Y A783 88 DEY A784 10 F7 BPL R77D A786 20 C6 A6 JSR R6C6 .R789 A789 A0 04 LDY #&04 A78B B1 B6 LDA (&B6),Y A78D 88 DEY A78E 11 B6 ORA (&B6),Y A790 10 0F BPL R7A1 .R792 A792 24 FF BIT &FF A794 10 03 BPL R799 A796 4C A7 82 JMP P2A7 .R799 A799 20 34 89 JSR P934 A79C F0 EB BEQ R789 A79E 4C A0 89 JMP P9A0 .R7A1 A7A1 A5 B6 LDA &B6 A7A3 8D 93 C2 STA &C293 A7A6 A5 B7 LDA &B7 A7A8 8D 94 C2 STA &C294 A7AB 20 7B 8B JSR PB7B A7AE A0 16 LDY #&16 A7B0 B1 B6 LDA (&B6),Y A7B2 8D A2 C2 STA &C2A2 A7B5 C8 INY A7B6 B1 B6 LDA (&B6),Y A7B8 8D A3 C2 STA &C2A3 A7BB C8 INY A7BC B1 B6 LDA (&B6),Y A7BE 0D 17 C3 ORA &C317 A7C1 8D A4 C2 STA &C2A4 A7C4 A2 00 LDX #&00 A7C6 A0 03 LDY #&03 .R7C8 A7C8 B9 89 C2 LDA &C289,Y A7CB 99 8D C2 STA &C28D,Y A7CE 8A TXA A7CF 99 89 C2 STA &C289,Y A7D2 88 DEY A7D3 10 F3 BPL R7C8 A7D5 A0 09 LDY #&09 .R7D7 A7D7 B1 B6 LDA (&B6),Y A7D9 29 7F AND #&7F A7DB 99 74 C2 STA &C274,Y A7DE 88 DEY A7DF 10 F6 BPL R7D7 A7E1 A9 0D LDA #&0D A7E3 8D 7E C2 STA &C27E A7E6 20 FB A6 JSR R6FB A7E9 20 FC 8C JSR PCFC A7EC 20 78 8D JSR PD78 A7EF 20 53 8E JSR PE53 A7F2 A0 02 LDY #&02 .R7F4 A7F4 B9 3A C2 LDA &C23A,Y A7F7 99 A8 C2 STA &C2A8,Y A7FA B9 3D C2 LDA &C23D,Y A7FD 99 A5 C2 STA &C2A5,Y A800 88 DEY A801 10 F1 BPL R7F4 A803 A9 83 LDA #&83 A805 20 F4 FF JSR &FFF4 A808 8C 60 C2 STY &C260 A80B A9 84 LDA #&84 A80D 20 F4 FF JSR &FFF4 A810 98 TYA A811 38 SEC A812 ED 60 C2 SBC &C260 A815 8D 61 C2 STA &C261 A818 A9 08 LDA #&08 A81A 04 CD TSB &CD A81C AD 6F C2 LDA &C26F A81F 0D A4 C2 ORA &C2A4 A822 8D A4 C2 STA &C2A4 A825 AD 73 C2 LDA &C273 A828 0D AA C2 ORA &C2AA A82B 8D AA C2 STA &C2AA A82E AD 17 C3 LDA &C317 A831 48 PHA A832 A9 00 LDA #&00 A834 8D 17 C3 STA &C317 A837 20 6A 95 JSR Q56A A83A 68 PLA A83B 8D 17 C3 STA &C317 A83E 20 87 8E JSR PE87 A841 20 C6 A6 JSR R6C6 A844 4C 92 A7 JMP R792 ;OSFSC 6 = new filing system starting up A847 AE 17 C3 LDX &C317 A84A E8 INX A84B F0 10 BEQ R85D A84D 20 A0 89 JSR P9A0 A850 A9 FF LDA #&FF ;OSARGS &FF = ensure all files A852 A0 00 LDY #&00 ;fall through: .R854 ;OSARGS A854 C0 00 CPY #&00 A856 D0 2A BNE R882 A858 A8 TAY A859 D0 03 BNE R85E A85B A9 08 LDA #&08 .R85D A85D 60 RTS .R85E A85E 20 59 A6 JSR R659 A861 86 C3 STX &C3 A863 88 DEY A864 D0 06 BNE R86C .R866 A866 A6 C3 LDX &C3 A868 A9 00 LDA #&00 A86A A8 TAY A86B 60 RTS .R86C A86C A2 10 LDX #&10 .R86E A86E 20 CC A9 JSR R9CC A871 9E 04 C2 STZ &C204,X A874 CA DEX A875 CA DEX A876 CA DEX A877 CA DEX A878 10 F4 BPL R86E A87A EE 04 C2 INC &C204 A87D 20 03 83 JSR P303 A880 80 E4 BRA R866 .R882 A882 20 59 A6 JSR R659 .R885 A885 86 C3 STX &C3 A887 48 PHA A888 20 D3 AB JSR RBD3 A88B 20 AF B0 JSR S0AF A88E 68 PLA A88F A4 CF LDY &CF A891 AA TAX A892 D0 20 BNE R8B4 A894 A6 C3 LDX &C3 A896 B9 7A C3 LDA &C37A,Y A899 95 00 STA &00,X A89B B9 70 C3 LDA &C370,Y A89E 95 01 STA &01,X A8A0 B9 66 C3 LDA &C366,Y A8A3 95 02 STA &02,X A8A5 B9 5C C3 LDA &C35C,Y A8A8 95 03 STA &03,X .R8AA A8AA 20 62 B0 JSR S062 A8AD A9 00 LDA #&00 A8AF A6 C3 LDX &C3 A8B1 A4 C2 LDY &C2 A8B3 60 RTS .R8B4 A8B4 CA DEX A8B5 D0 65 BNE R91C A8B7 B9 AC C3 LDA &C3AC,Y A8BA 10 34 BPL R8F0 .R8BC A8BC A6 C3 LDX &C3 A8BE B5 00 LDA &00,X A8C0 8D 9A C2 STA &C29A A8C3 B5 01 LDA &01,X A8C5 8D 9B C2 STA &C29B A8C8 B5 02 LDA &02,X A8CA 8D 9C C2 STA &C29C A8CD B5 03 LDA &03,X A8CF 8D 9D C2 STA &C29D A8D2 20 2E AD JSR RD2E A8D5 A6 C3 LDX &C3 A8D7 A4 CF LDY &CF .R8D9 A8D9 B5 00 LDA &00,X A8DB 99 7A C3 STA &C37A,Y A8DE B5 01 LDA &01,X A8E0 99 70 C3 STA &C370,Y A8E3 B5 02 LDA &02,X A8E5 99 66 C3 STA &C366,Y A8E8 B5 03 LDA &03,X A8EA 99 5C C3 STA &C35C,Y A8ED 4C AA A8 JMP R8AA .R8F0 A8F0 A6 C3 LDX &C3 A8F2 A4 CF LDY &CF A8F4 38 SEC A8F5 B9 52 C3 LDA &C352,Y A8F8 F5 00 SBC &00,X A8FA B9 48 C3 LDA &C348,Y A8FD F5 01 SBC &01,X A8FF B9 3E C3 LDA &C33E,Y A902 F5 02 SBC &02,X A904 B9 34 C3 LDA &C334,Y A907 F5 03 SBC &03,X A909 B0 CE BCS R8D9 A90B 20 46 83 JSR P346 A90E EQUB &B7 A90F EQUS "Outside file" A91B EQUB &00 .R91C A91C CA DEX A91D D0 19 BNE R938 A91F A6 C3 LDX &C3 A921 B9 52 C3 LDA &C352,Y A924 95 00 STA &00,X A926 B9 48 C3 LDA &C348,Y A929 95 01 STA &01,X A92B B9 3E C3 LDA &C33E,Y A92E 95 02 STA &02,X A930 B9 34 C3 LDA &C334,Y A933 95 03 STA &03,X .R935 A935 4C AA A8 JMP R8AA .R938 A938 CA DEX A939 D0 41 BNE R97C A93B A6 C3 LDX &C3 A93D B9 AC C3 LDA &C3AC,Y A940 30 03 BMI R945 A942 4C C0 AF JMP RFC0 .R945 A945 B5 00 LDA &00,X A947 8D 9A C2 STA &C29A A94A B5 01 LDA &01,X A94C 8D 9B C2 STA &C29B A94F B5 02 LDA &02,X A951 8D 9C C2 STA &C29C A954 B5 03 LDA &03,X A956 8D 9D C2 STA &C29D A959 20 2E AD JSR RD2E A95C A6 C3 LDX &C3 A95E A4 CF LDY &CF A960 B5 00 LDA &00,X A962 99 52 C3 STA &C352,Y A965 B5 01 LDA &01,X A967 99 48 C3 STA &C348,Y A96A B5 02 LDA &02,X A96C 99 3E C3 STA &C33E,Y A96F B5 03 LDA &03,X A971 99 34 C3 STA &C334,Y A974 20 EB AB JSR RBEB A977 B0 BC BCS R935 A979 4C BC A8 JMP R8BC .R97C A97C A2 10 LDX #&10 .R97E A97E BD 04 C2 LDA &C204,X A981 4A LSR A A982 29 0F AND #&0F A984 C5 CF CMP &CF A986 D0 0B BNE R993 A988 20 CC A9 JSR R9CC A98B BD 04 C2 LDA &C204,X A98E 29 01 AND #&01 A990 9D 04 C2 STA &C204,X .R993 A993 CA DEX A994 CA DEX A995 CA DEX A996 CA DEX A997 10 E5 BPL R97E A999 4C 66 A8 JMP R866 A99C 48 PHA A99D 20 03 83 JSR P303 A9A0 20 53 80 JSR P053 A9A3 68 PLA A9A4 20 F9 82 JSR P2F9 A9A7 BD 03 C2 LDA &C203,X A9AA 8D 33 C3 STA &C333 A9AD 20 C1 B9 JSR S9C1 A9B0 20 F9 82 JSR P2F9 A9B3 BD 02 C2 LDA &C202,X A9B6 20 F9 82 JSR P2F9 A9B9 BD 01 C2 LDA &C201,X A9BC 20 F9 82 JSR P2F9 A9BF A9 01 LDA #&01 A9C1 20 F9 82 JSR P2F9 A9C4 A9 00 LDA #&00 A9C6 4C F9 82 JMP P2F9 .R9C9 A9C9 20 AC AB JSR RBAC .R9CC A9CC 20 80 AA JSR RA80 A9CF BD 04 C2 LDA &C204,X A9D2 C9 C0 CMP #&C0 A9D4 90 7E BCC RA54 A9D6 5A PHY A9D7 A0 0A LDY #&0A .R9D9 A9D9 B9 15 C2 LDA &C215,Y A9DC 48 PHA A9DD 88 DEY A9DE 10 F9 BPL R9D9 A9E0 8A TXA A9E1 4A LSR A A9E2 4A LSR A A9E3 69 C9 ADC #&C9 A9E5 8D 17 C2 STA &C217 A9E8 A9 00 LDA #&00 A9EA 8D 16 C2 STA &C216 A9ED A9 FF LDA #&FF A9EF 8D 18 C2 STA &C218 A9F2 8D 19 C2 STA &C219 A9F5 A9 0A LDA #&0A A9F7 8D 1A C2 STA &C21A A9FA A9 01 LDA #&01 A9FC 8D 1E C2 STA &C21E A9FF A9 00 LDA #&00 AA01 8D 1F C2 STA &C21F AA04 BD 04 C2 LDA &C204,X AA07 29 BF AND #&BF AA09 9D 04 C2 STA &C204,X AA0C 29 1E AND #&1E AA0E 6A ROR A AA0F 09 30 ORA #&30 AA11 8D D4 C2 STA &C2D4 AA14 BD 01 C2 LDA &C201,X AA17 8D 1D C2 STA &C21D AA1A BD 02 C2 LDA &C202,X AA1D 8D 1C C2 STA &C21C AA20 BD 03 C2 LDA &C203,X AA23 8D 1B C2 STA &C21B AA26 20 32 B4 JSR S432 AA29 A5 B0 LDA &B0 AA2B 48 PHA AA2C A5 B1 LDA &B1 AA2E 48 PHA AA2F DA PHX AA30 5A PHY AA31 20 8C B9 JSR S98C AA34 20 6F 80 JSR P06F AA37 7A PLY AA38 FA PLX AA39 68 PLA AA3A 85 B1 STA &B1 AA3C 68 PLA AA3D 85 B0 STA &B0 AA3F A0 00 LDY #&00 .RA41 AA41 68 PLA AA42 99 15 C2 STA &C215,Y AA45 C8 INY AA46 C0 0B CPY #&0B AA48 D0 F7 BNE RA41 AA4A 7A PLY AA4B 60 RTS AA4C A9 01 LDA #&01 AA4E 04 CD TSB &CD AA50 88 DEY AA51 8C 43 FC STY &FC43 .RA54 AA54 60 RTS ;Service call &05 = unrecognised interrupt AA55 A5 CD LDA &CD AA57 29 21 AND #&21 AA59 C9 21 CMP #&21 AA5B D0 07 BNE RA64 AA5D 20 42 80 JSR P042 AA60 C9 F2 CMP #&F2 AA62 F0 03 BEQ RA67 .RA64 AA64 A9 05 LDA #&05 AA66 60 RTS .RA67 AA67 5A PHY AA68 A9 00 LDA #&00 AA6A 8D 43 FC STA &FC43 AA6D A9 01 LDA #&01 AA6F 14 CD TRB &CD AA71 AD 40 FC LDA &FC40 AA74 20 0D 83 JSR P30D AA77 0D 40 FC ORA &FC40 AA7A 8D 31 C3 STA &C331 AA7D 4C 66 9C JMP QC66 .RA80 AA80 AD 31 C3 LDA &C331 AA83 F0 2D BEQ RAB2 AA85 A9 00 LDA #&00 AA87 8D 31 C3 STA &C331 AA8A AE D4 C2 LDX &C2D4 AA8D 20 4F 83 JSR P34F AA90 EQUB &CA AA91 EQUS "Data lost, channel" AAA3 EQUB &00 .RAA4 AAA4 8A TXA AAA5 8E A1 C2 STX &C2A1 AAA8 4A LSR A AAA9 4A LSR A AAAA 69 C9 ADC #&C9 AAAC 85 BF STA &BF AAAE A9 00 LDA #&00 AAB0 85 BE STA &BE .RAB2 AAB2 60 RTS .RAB3 AAB3 A2 10 LDX #&10 AAB5 8E 95 C2 STX &C295 AAB8 A8 TAY .RAB9 AAB9 BD 04 C2 LDA &C204,X AABC 29 01 AND #&01 AABE F0 03 BEQ RAC3 AAC0 8E 95 C2 STX &C295 .RAC3 AAC3 BD 04 C2 LDA &C204,X AAC6 10 75 BPL RB3D AAC8 BD 01 C2 LDA &C201,X AACB CD 96 C2 CMP &C296 AACE D0 6D BNE RB3D AAD0 BD 02 C2 LDA &C202,X AAD3 CD 97 C2 CMP &C297 AAD6 D0 65 BNE RB3D AAD8 BD 03 C2 LDA &C203,X AADB CD 98 C2 CMP &C298 AADE D0 5D BNE RB3D AAE0 20 A4 AA JSR RAA4 .RAE3 AAE3 98 TYA AAE4 4A LSR A AAE5 29 40 AND #&40 AAE7 1D 04 C2 ORA &C204,X AAEA 6A ROR A AAEB 29 E0 AND #&E0 AAED 05 CF ORA &CF AAEF 08 PHP AAF0 18 CLC AAF1 2A ROL A AAF2 9D 04 C2 STA &C204,X AAF5 28 PLP AAF6 90 1E BCC RB16 AAF8 A0 10 LDY #&10 .RAFA AAFA B9 04 C2 LDA &C204,Y AAFD D0 07 BNE RB06 AAFF A9 01 LDA #&01 AB01 99 04 C2 STA &C204,Y AB04 D0 34 BNE RB3A .RB06 AB06 88 DEY AB07 88 DEY AB08 88 DEY AB09 88 DEY AB0A 10 EE BPL RAFA AB0C 20 CA AB JSR RBCA AB0F 7E 04 C2 ROR &C204,X AB12 38 SEC AB13 3E 04 C2 ROL &C204,X .RB16 AB16 E8 INX AB17 E8 INX AB18 E8 INX AB19 E8 INX AB1A E0 11 CPX #&11 AB1C 90 02 BCC RB20 AB1E A2 00 LDX #&00 .RB20 AB20 BD 04 C2 LDA &C204,X AB23 4A LSR A AB24 F0 14 BEQ RB3A AB26 90 12 BCC RB3A AB28 18 CLC AB29 2A ROL A AB2A 9D 04 C2 STA &C204,X AB2D 20 CA AB JSR RBCA AB30 20 CA AB JSR RBCA AB33 7E 04 C2 ROR &C204,X AB36 38 SEC AB37 3E 04 C2 ROL &C204,X .RB3A AB3A 4C C9 A9 JMP R9C9 .RB3D AB3D CA DEX AB3E CA DEX AB3F CA DEX AB40 CA DEX AB41 30 03 BMI RB46 AB43 4C B9 AA JMP RAB9 .RB46 AB46 AE 95 C2 LDX &C295 AB49 AD 96 C2 LDA &C296 AB4C 9D 01 C2 STA &C201,X AB4F 8D 1D C2 STA &C21D AB52 AD 97 C2 LDA &C297 AB55 9D 02 C2 STA &C202,X AB58 8D 1C C2 STA &C21C AB5B AD 98 C2 LDA &C298 AB5E 9D 03 C2 STA &C203,X AB61 8D 1B C2 STA &C21B AB64 20 A4 AA JSR RAA4 AB67 A5 BE LDA &BE AB69 8D 16 C2 STA &C216 AB6C A5 BF LDA &BF AB6E 8D 17 C2 STA &C217 AB71 A9 FF LDA #&FF AB73 8D 18 C2 STA &C218 AB76 8D 19 C2 STA &C219 AB79 A9 08 LDA #&08 AB7B 8D 1A C2 STA &C21A AB7E A9 01 LDA #&01 AB80 8D 1E C2 STA &C21E AB83 A9 00 LDA #&00 AB85 8D 1F C2 STA &C21F AB88 AD 98 C2 LDA &C298 AB8B 20 32 B4 JSR S432 AB8E A5 B0 LDA &B0 AB90 48 PHA AB91 A5 B1 LDA &B1 AB93 48 PHA AB94 DA PHX AB95 5A PHY AB96 20 8C B9 JSR S98C AB99 20 6F 80 JSR P06F AB9C 7A PLY AB9D FA PLX AB9E 68 PLA AB9F 85 B1 STA &B1 ABA1 68 PLA ABA2 85 B0 STA &B0 ABA4 A9 81 LDA #&81 ABA6 9D 04 C2 STA &C204,X ABA9 4C E3 AA JMP RAE3 .RBAC ABAC A2 10 LDX #&10 .RBAE ABAE BD 04 C2 LDA &C204,X ABB1 29 01 AND #&01 ABB3 D0 35 BNE RBEA ABB5 CA DEX ABB6 CA DEX ABB7 CA DEX ABB8 CA DEX ABB9 10 F3 BPL RBAE ABBB 4C 48 A6 JMP R648 .RBBE ABBE 20 46 83 JSR P346 ABC1 EQUB &DE ABC2 EQUS "Channel" ABC9 EQUB &00 .RBCA ABCA CA DEX ABCB CA DEX ABCC CA DEX ABCD CA DEX ABCE 10 02 BPL RBD2 ABD0 A2 10 LDX #&10 .RBD2 ABD2 60 RTS .RBD3 ABD3 84 C2 STY &C2 ABD5 8C D5 C2 STY &C2D5 ABD8 C0 3A CPY #&3A ABDA B0 E2 BCS RBBE ABDC 98 TYA ABDD 38 SEC ABDE E9 30 SBC #&30 ABE0 90 DC BCC RBBE ABE2 85 CF STA &CF ABE4 AA TAX ABE5 BD AC C3 LDA &C3AC,X ABE8 F0 D4 BEQ RBBE .RBEA ABEA 60 RTS .RBEB ABEB A6 CF LDX &CF ABED BD 34 C3 LDA &C334,X ABF0 DD 5C C3 CMP &C35C,X ABF3 D0 19 BNE RC0E ABF5 BD 3E C3 LDA &C33E,X ABF8 DD 66 C3 CMP &C366,X ABFB D0 11 BNE RC0E ABFD BD 48 C3 LDA &C348,X AC00 DD 70 C3 CMP &C370,X AC03 D0 09 BNE RC0E AC05 BD 52 C3 LDA &C352,X AC08 DD 7A C3 CMP &C37A,X AC0B D0 01 BNE RC0E AC0D 18 CLC .RC0E AC0E 60 RTS ;OSFSC 1 = read EOF state AC0F A4 B4 LDY &B4 AC11 20 D3 AB JSR RBD3 AC14 6A ROR A AC15 B0 09 BCS RC20 AC17 20 59 A6 JSR R659 AC1A 20 AF B0 JSR S0AF AC1D 20 EB AB JSR RBEB .RC20 AC20 A2 00 LDX #&00 AC22 B0 01 BCS RC25 AC24 CA DEX .RC25 AC25 A4 B5 LDY &B5 AC27 60 RTS .RC28 AC28 BD AC C3 LDA &C3AC,X AC2B 29 C8 AND #&C8 AC2D 9D AC C3 STA &C3AC,X AC30 20 46 83 JSR P346 AC33 EQUB &DF AC34 EQUS "EOF" AC37 EQUB &00 ;OSBGET AC38 86 C3 STX &C3 AC3A 20 D3 AB JSR RBD3 AC3D 6A ROR A AC3E B0 22 BCS RC62 AC40 29 04 AND #&04 AC42 D0 E4 BNE RC28 AC44 20 EB AB JSR RBEB AC47 B0 19 BCS RC62 AC49 D0 DD BNE RC28 AC4B 20 59 A6 JSR R659 AC4E A6 CF LDX &CF AC50 BD AC C3 LDA &C3AC,X AC53 29 C0 AND #&C0 AC55 09 08 ORA #&08 AC57 9D AC C3 STA &C3AC,X AC5A A4 C2 LDY &C2 AC5C A6 C3 LDX &C3 AC5E 38 SEC AC5F A9 FE LDA #&FE AC61 60 RTS .RC62 AC62 A6 CF LDX &CF AC64 18 CLC AC65 BD CA C3 LDA &C3CA,X AC68 7D 70 C3 ADC &C370,X AC6B 8D 96 C2 STA &C296 AC6E BD C0 C3 LDA &C3C0,X AC71 7D 66 C3 ADC &C366,X AC74 8D 97 C2 STA &C297 AC77 BD B6 C3 LDA &C3B6,X AC7A 7D 5C C3 ADC &C35C,X AC7D 8D 98 C2 STA &C298 AC80 A9 40 LDA #&40 AC82 20 B3 AA JSR RAB3 AC85 A6 CF LDX &CF AC87 BC 7A C3 LDY &C37A,X AC8A A9 00 LDA #&00 AC8C 8D CF C2 STA &C2CF AC8F 20 46 B0 JSR S046 AC92 B1 BE LDA (&BE),Y AC94 A4 C2 LDY &C2 AC96 A6 C3 LDX &C3 AC98 18 CLC AC99 60 RTS .RC9A AC9A A0 02 LDY #&02 .RC9C AC9C B9 14 C3 LDA &C314,Y AC9F 99 30 C2 STA &C230,Y ACA2 88 DEY ACA3 10 F7 BPL RC9C ACA5 AD 17 C3 LDA &C317 ACA8 8D 33 C2 STA &C233 ACAB A6 CF LDX &CF ACAD BD B6 C3 LDA &C3B6,X ACB0 29 E0 AND #&E0 ACB2 8D 2F C2 STA &C22F ACB5 BD E8 C3 LDA &C3E8,X ACB8 8D 2C C2 STA &C22C ACBB BD DE C3 LDA &C3DE,X ACBE 8D 2D C2 STA &C22D ACC1 BD D4 C3 LDA &C3D4,X ACC4 8D 2E C2 STA &C22E ACC7 20 A0 89 JSR P9A0 ACCA A0 02 LDY #&02 .RCCC ACCC B9 30 C2 LDA &C230,Y ACCF 99 2C C2 STA &C22C,Y ACD2 88 DEY ACD3 10 F7 BPL RCCC ACD5 AD 33 C2 LDA &C233 ACD8 8D 2F C2 STA &C22F ACDB 20 A5 B3 JSR S3A5 ACDE A6 CF LDX &CF ACE0 BD CA C3 LDA &C3CA,X ACE3 8D 34 C2 STA &C234 ACE6 BD C0 C3 LDA &C3C0,X ACE9 8D 35 C2 STA &C235 ACEC BD B6 C3 LDA &C3B6,X ACEF 29 1F AND #&1F ACF1 8D 36 C2 STA &C236 ACF4 A9 05 LDA #&05 ACF6 85 B8 STA &B8 ACF8 A9 C4 LDA #&C4 ACFA 85 B9 STA &B9 ACFC A6 CF LDX &CF .RCFE ACFE A0 00 LDY #&00 AD00 B1 B8 LDA (&B8),Y AD02 D0 06 BNE RD0A AD04 9D AC C3 STA &C3AC,X AD07 4C 48 A6 JMP R648 .RD0A AD0A A0 19 LDY #&19 AD0C B1 B8 LDA (&B8),Y AD0E DD F2 C3 CMP &C3F2,X AD11 D0 0E BNE RD21 AD13 88 DEY .RD14 AD14 B1 B8 LDA (&B8),Y AD16 D9 1E C2 CMP &C21E,Y AD19 D0 06 BNE RD21 AD1B 88 DEY AD1C C0 16 CPY #&16 AD1E B0 F4 BCS RD14 AD20 60 RTS .RD21 AD21 A5 B8 LDA &B8 AD23 18 CLC AD24 69 1A ADC #&1A AD26 85 B8 STA &B8 AD28 90 D4 BCC RCFE AD2A E6 B9 INC &B9 AD2C B0 D0 BCS RCFE .RD2E AD2E A9 00 LDA #&00 AD30 8D B5 C2 STA &C2B5 .RD33 AD33 AD 2F C2 LDA &C22F AD36 8D BF C2 STA &C2BF AD39 A2 02 LDX #&02 .RD3B AD3B BD 2C C2 LDA &C22C,X AD3E 9D BC C2 STA &C2BC,X AD41 CA DEX AD42 10 F7 BPL RD3B AD44 A9 FF LDA #&FF AD46 8D 2E C2 STA &C22E AD49 8D 2F C2 STA &C22F AD4C A6 CF LDX &CF AD4E BD 84 C3 LDA &C384,X AD51 CD 9D C2 CMP &C29D AD54 D0 16 BNE RD6C AD56 BD 8E C3 LDA &C38E,X AD59 CD 9C C2 CMP &C29C AD5C D0 0E BNE RD6C AD5E BD 98 C3 LDA &C398,X AD61 CD 9B C2 CMP &C29B AD64 D0 06 BNE RD6C AD66 BD A2 C3 LDA &C3A2,X AD69 CD 9A C2 CMP &C29A .RD6C AD6C 90 28 BCC RD96 AD6E BD 34 C3 LDA &C334,X AD71 CD 9D C2 CMP &C29D AD74 D0 1B BNE RD91 AD76 BD 3E C3 LDA &C33E,X AD79 CD 9C C2 CMP &C29C AD7C D0 13 BNE RD91 AD7E BD 48 C3 LDA &C348,X AD81 CD 9B C2 CMP &C29B AD84 D0 0B BNE RD91 AD86 BD 52 C3 LDA &C352,X AD89 CD 9A C2 CMP &C29A AD8C D0 03 BNE RD91 .RD8E AD8E 4C A0 AF JMP RFA0 .RD91 AD91 B0 FB BCS RD8E AD93 4C AA AE JMP REAA .RD96 AD96 20 9A AC JSR RC9A AD99 BD A2 C3 LDA &C3A2,X AD9C C9 01 CMP #&01 AD9E BD 98 C3 LDA &C398,X ADA1 69 00 ADC #&00 ADA3 8D 37 C2 STA &C237 ADA6 BD 8E C3 LDA &C38E,X ADA9 69 00 ADC #&00 ADAB 8D 38 C2 STA &C238 ADAE BD 84 C3 LDA &C384,X ADB1 69 00 ADC #&00 ADB3 8D 39 C2 STA &C239 ADB6 20 BA 84 JSR P4BA ADB9 9C 3D C2 STZ &C23D ADBC 9C 3E C2 STZ &C23E ADBF 9C 3F C2 STZ &C23F ADC2 AE FE C1 LDX &C1FE .RDC5 ADC5 AD 3F C2 LDA &C23F ADC8 DD FF C0 CMP &C0FF,X ADCB 90 14 BCC RDE1 ADCD D0 21 BNE RDF0 ADCF AD 3E C2 LDA &C23E ADD2 DD FE C0 CMP &C0FE,X ADD5 90 0A BCC RDE1 ADD7 D0 17 BNE RDF0 ADD9 AD 3D C2 LDA &C23D ADDC DD FD C0 CMP &C0FD,X ADDF B0 0F BCS RDF0 .RDE1 ADE1 A0 02 LDY #&02 .RDE3 ADE3 BD FF C0 LDA &C0FF,X ADE6 99 3D C2 STA &C23D,Y ADE9 CA DEX ADEA 88 DEY ADEB 10 F6 BPL RDE3 ADED 8A TXA ADEE 80 03 BRA RDF3 .RDF0 ADF0 CA DEX ADF1 CA DEX ADF2 CA DEX .RDF3 ADF3 D0 D0 BNE RDC5 ADF5 A2 03 LDX #&03 .RDF7 ADF7 BD 3C C2 LDA &C23C,X ADFA DD 9A C2 CMP &C29A,X ADFD D0 06 BNE RE05 ADFF CA DEX AE00 D0 F5 BNE RDF7 AE02 EC 9A C2 CPX &C29A .RE05 AE05 AD 9C C2 LDA &C29C AE08 AC 9D C2 LDY &C29D AE0B 1A INC A AE0C D0 06 BNE RE14 AE0E C8 INY AE0F D0 03 BNE RE14 AE11 4C 56 86 JMP P656 .RE14 AE14 90 0E BCC RE24 AE16 CC 3F C2 CPY &C23F AE19 90 09 BCC RE24 AE1B D0 10 BNE RE2D AE1D CD 3E C2 CMP &C23E AE20 90 02 BCC RE24 AE22 D0 09 BNE RE2D .RE24 AE24 8C 3F C2 STY &C23F AE27 8D 3E C2 STA &C23E AE2A 9C 3D C2 STZ &C23D .RE2D AE2D 20 32 86 JSR P632 AE30 A0 12 LDY #&12 AE32 A9 00 LDA #&00 AE34 A6 CF LDX &CF AE36 91 B8 STA (&B8),Y AE38 9D A2 C3 STA &C3A2,X AE3B C8 INY AE3C AD 3D C2 LDA &C23D AE3F 91 B8 STA (&B8),Y AE41 9D 98 C3 STA &C398,X AE44 AD 3E C2 LDA &C23E AE47 C8 INY AE48 91 B8 STA (&B8),Y AE4A 9D 8E C3 STA &C38E,X AE4D AD 3F C2 LDA &C23F AE50 C8 INY AE51 91 B8 STA (&B8),Y AE53 9D 84 C3 STA &C384,X AE56 AD 3A C2 LDA &C23A AE59 C8 INY AE5A 91 B8 STA (&B8),Y AE5C 9D CA C3 STA &C3CA,X AE5F AD 3B C2 LDA &C23B AE62 C8 INY AE63 91 B8 STA (&B8),Y AE65 9D C0 C3 STA &C3C0,X AE68 AD 3C C2 LDA &C23C AE6B C8 INY AE6C 91 B8 STA (&B8),Y AE6E 0D 17 C3 ORA &C317 AE71 9D B6 C3 STA &C3B6,X AE74 20 87 8E JSR PE87 AE77 A9 08 LDA #&08 AE79 14 CD TRB &CD AE7B A9 C4 LDA #&C4 AE7D 8D 60 C2 STA &C260 AE80 A9 09 LDA #&09 AE82 8D 61 C2 STA &C261 AE85 A2 00 LDX #&00 AE87 A0 02 LDY #&02 .RE89 AE89 B9 34 C2 LDA &C234,Y AE8C 99 A2 C2 STA &C2A2,Y AE8F D9 3A C2 CMP &C23A,Y AE92 F0 04 BEQ RE98 AE94 E8 INX AE95 B9 3A C2 LDA &C23A,Y .RE98 AE98 99 A8 C2 STA &C2A8,Y AE9B B9 37 C2 LDA &C237,Y AE9E 99 A5 C2 STA &C2A5,Y AEA1 88 DEY AEA2 10 E5 BPL RE89 AEA4 8A TXA AEA5 F0 03 BEQ REAA AEA7 20 6A 95 JSR Q56A .REAA AEAA AD B5 C2 LDA &C2B5 AEAD F0 03 BEQ REB2 AEAF 4C 83 AF JMP RF83 .REB2 AEB2 A6 CF LDX &CF AEB4 18 CLC AEB5 BD 48 C3 LDA &C348,X AEB8 7D CA C3 ADC &C3CA,X AEBB 8D 96 C2 STA &C296 AEBE BD 3E C3 LDA &C33E,X AEC1 7D C0 C3 ADC &C3C0,X AEC4 8D 97 C2 STA &C297 AEC7 BD 34 C3 LDA &C334,X AECA 7D B6 C3 ADC &C3B6,X AECD 8D 98 C2 STA &C298 AED0 A9 C0 LDA #&C0 AED2 20 B3 AA JSR RAB3 AED5 A6 CF LDX &CF AED7 BC 52 C3 LDY &C352,X AEDA A9 00 LDA #&00 .REDC AEDC 91 BE STA (&BE),Y AEDE C8 INY AEDF D0 FB BNE REDC AEE1 AD 9B C2 LDA &C29B AEE4 18 CLC AEE5 7D CA C3 ADC &C3CA,X AEE8 8D 34 C2 STA &C234 AEEB AD 9C C2 LDA &C29C AEEE 7D C0 C3 ADC &C3C0,X AEF1 8D 35 C2 STA &C235 AEF4 AD 9D C2 LDA &C29D AEF7 7D B6 C3 ADC &C3B6,X AEFA 8D 36 C2 STA &C236 AEFD AD 9A C2 LDA &C29A AF00 D0 13 BNE RF15 AF02 AD 34 C2 LDA &C234 AF05 D0 0B BNE RF12 AF07 AD 35 C2 LDA &C235 AF0A D0 03 BNE RF0F AF0C CE 36 C2 DEC &C236 .RF0F AF0F CE 35 C2 DEC &C235 .RF12 AF12 CE 34 C2 DEC &C234 .RF15 AF15 AD 34 C2 LDA &C234 AF18 CD 96 C2 CMP &C296 AF1B D0 13 BNE RF30 AF1D AD 35 C2 LDA &C235 AF20 CD 97 C2 CMP &C297 AF23 D0 0B BNE RF30 AF25 AD 36 C2 LDA &C236 AF28 CD 98 C2 CMP &C298 AF2B D0 03 BNE RF30 AF2D 4C 83 AF JMP RF83 .RF30 AF30 20 03 83 JSR P303 AF33 EE 96 C2 INC &C296 AF36 D0 08 BNE RF40 AF38 EE 97 C2 INC &C297 AF3B D0 03 BNE RF40 AF3D EE 98 C2 INC &C298 .RF40 AF40 A9 40 LDA #&40 AF42 20 B3 AA JSR RAB3 AF45 A0 00 LDY #&00 AF47 98 TYA .RF48 AF48 91 BE STA (&BE),Y AF4A C8 INY AF4B D0 FB BNE RF48 .RF4D AF4D AE A1 C2 LDX &C2A1 AF50 A9 C0 LDA #&C0 AF52 1D 04 C2 ORA &C204,X AF55 9D 04 C2 STA &C204,X AF58 20 CC A9 JSR R9CC AF5B AD 34 C2 LDA &C234 AF5E DD 01 C2 CMP &C201,X AF61 D0 10 BNE RF73 AF63 AD 35 C2 LDA &C235 AF66 DD 02 C2 CMP &C202,X AF69 D0 08 BNE RF73 AF6B AD 36 C2 LDA &C236 AF6E DD 03 C2 CMP &C203,X AF71 F0 10 BEQ RF83 .RF73 AF73 FE 01 C2 INC &C201,X AF76 D0 D5 BNE RF4D AF78 FE 02 C2 INC &C202,X AF7B D0 D0 BNE RF4D AF7D FE 03 C2 INC &C203,X AF80 4C 4D AF JMP RF4D .RF83 AF83 A6 CF LDX &CF AF85 AD 9A C2 LDA &C29A AF88 9D 52 C3 STA &C352,X AF8B AD 9B C2 LDA &C29B AF8E 9D 48 C3 STA &C348,X AF91 AD 9C C2 LDA &C29C AF94 9D 3E C3 STA &C33E,X AF97 AD 9D C2 LDA &C29D AF9A 9D 34 C3 STA &C334,X AF9D 20 A0 89 JSR P9A0 .RFA0 AFA0 AD BF C2 LDA &C2BF AFA3 8D 2F C2 STA &C22F AFA6 A2 02 LDX #&02 .RFA8 AFA8 BD BC C2 LDA &C2BC,X AFAB 9D 2C C2 STA &C22C,X AFAE CA DEX AFAF 10 F7 BPL RFA8 AFB1 60 RTS ;OSBPUT AFB2 86 C3 STX &C3 AFB4 48 PHA AFB5 20 D3 AB JSR RBD3 AFB8 A0 00 LDY #&00 AFBA 8C CF C2 STY &C2CF AFBD A8 TAY AFBE 30 18 BMI RFD8 .RFC0 AFC0 20 46 83 JSR P346 AFC3 EQUB &C1 AFC4 EQUS "Not open for update" AFD7 EQUB &00 .RFD8 AFD8 BD AC C3 LDA &C3AC,X AFDB 29 07 AND #&07 AFDD C9 06 CMP #&06 AFDF B0 32 BCS S013 AFE1 C9 03 CMP #&03 AFE3 F0 2E BEQ S013 AFE5 BD 7A C3 LDA &C37A,X AFE8 38 SEC AFE9 69 00 ADC #&00 AFEB 8D 9A C2 STA &C29A AFEE BD 70 C3 LDA &C370,X AFF1 69 00 ADC #&00 AFF3 8D 9B C2 STA &C29B AFF6 BD 66 C3 LDA &C366,X AFF9 69 00 ADC #&00 AFFB 8D 9C C2 STA &C29C AFFE BD 5C C3 LDA &C35C,X B001 69 00 ADC #&00 B003 8D 9D C2 STA &C29D B006 68 PLA B007 20 59 A6 JSR R659 B00A 48 PHA B00B CE CF C2 DEC &C2CF B00E 20 2E AD JSR RD2E B011 A6 CF LDX &CF .S013 B013 18 CLC B014 BD CA C3 LDA &C3CA,X B017 7D 70 C3 ADC &C370,X B01A 8D 96 C2 STA &C296 B01D BD C0 C3 LDA &C3C0,X B020 7D 66 C3 ADC &C366,X B023 8D 97 C2 STA &C297 B026 BD B6 C3 LDA &C3B6,X B029 7D 5C C3 ADC &C35C,X B02C 8D 98 C2 STA &C298 B02F A9 C0 LDA #&C0 B031 20 B3 AA JSR RAB3 B034 A6 CF LDX &CF B036 BC 7A C3 LDY &C37A,X B039 68 PLA B03A 91 BE STA (&BE),Y B03C 48 PHA B03D 20 46 B0 JSR S046 B040 68 PLA B041 A4 C2 LDY &C2 B043 A6 C3 LDX &C3 .S045 B045 60 RTS .S046 B046 A6 CF LDX &CF B048 FE 7A C3 INC &C37A,X B04B D0 F8 BNE S045 B04D 2C CF C2 BIT &C2CF B050 30 03 BMI S055 B052 20 59 A6 JSR R659 .S055 B055 FE 70 C3 INC &C370,X B058 D0 08 BNE S062 B05A FE 66 C3 INC &C366,X B05D D0 03 BNE S062 B05F FE 5C C3 INC &C35C,X .S062 B062 20 AF B0 JSR S0AF B065 48 PHA B066 38 SEC B067 BD 70 C3 LDA &C370,X B06A FD 48 C3 SBC &C348,X B06D BD 66 C3 LDA &C366,X B070 FD 3E C3 SBC &C33E,X B073 BD 5C C3 LDA &C35C,X B076 FD 34 C3 SBC &C334,X B079 90 29 BCC S0A4 B07B BD 7A C3 LDA &C37A,X B07E DD 52 C3 CMP &C352,X B081 D0 04 BNE S087 B083 68 PLA B084 09 04 ORA #&04 B086 48 PHA .S087 B087 38 SEC B088 BD 48 C3 LDA &C348,X B08B FD 98 C3 SBC &C398,X B08E BD 3E C3 LDA &C33E,X B091 FD 8E C3 SBC &C38E,X B094 BD 34 C3 LDA &C334,X B097 FD 84 C3 SBC &C384,X B09A 90 03 BCC S09F B09C 68 PLA B09D D0 08 BNE S0A7 .S09F B09F 68 PLA B0A0 09 02 ORA #&02 B0A2 D0 03 BNE S0A7 .S0A4 B0A4 68 PLA B0A5 09 03 ORA #&03 .S0A7 B0A7 30 02 BMI S0AB B0A9 29 F9 AND #&F9 .S0AB B0AB 9D AC C3 STA &C3AC,X B0AE 60 RTS .S0AF B0AF A6 CF LDX &CF B0B1 BD AC C3 LDA &C3AC,X B0B4 48 PHA B0B5 29 04 AND #&04 B0B7 F0 18 BEQ S0D1 B0B9 BD 7A C3 LDA &C37A,X B0BC 9D 52 C3 STA &C352,X B0BF BD 70 C3 LDA &C370,X B0C2 9D 48 C3 STA &C348,X B0C5 BD 66 C3 LDA &C366,X B0C8 9D 3E C3 STA &C33E,X B0CB BD 5C C3 LDA &C35C,X B0CE 9D 34 C3 STA &C334,X .S0D1 B0D1 68 PLA B0D2 29 C0 AND #&C0 B0D4 D0 D5 BNE S0AB .S0D6 B0D6 A9 00 LDA #&00 B0D8 A8 TAY .S0D9 ;OSFIND B0D9 20 59 A6 JSR R659 B0DC 8E 40 C2 STX &C240 B0DF 86 B4 STX &B4 B0E1 86 C5 STX &C5 B0E3 84 C4 STY &C4 B0E5 8C 41 C2 STY &C241 B0E8 84 B5 STY &B5 B0EA 29 C0 AND #&C0 B0EC A0 00 LDY #&00 B0EE 8C D5 C2 STY &C2D5 B0F1 A8 TAY B0F2 D0 03 BNE S0F7 B0F4 4C A6 B2 JMP S2A6 .S0F7 B0F7 AD 32 C3 LDA &C332 B0FA F0 08 BEQ S104 B0FC A0 00 LDY #&00 B0FE 8C 32 C3 STY &C332 B101 A4 B5 LDY &B5 B103 60 RTS .S104 B104 A2 09 LDX #&09 .S106 B106 BD AC C3 LDA &C3AC,X B109 F0 1B BEQ S126 B10B CA DEX B10C 10 F8 BPL S106 B10E 20 46 83 JSR P346 B111 EQUB &C0 B112 EQUS "Too many open files" B125 EQUB &00 .S126 B126 86 CF STX &CF B128 8C A0 C2 STY &C2A0 B12B 98 TYA B12C 10 03 BPL S131 B12E 4C 04 B2 JMP S204 .S131 B131 20 DE 8E JSR PEDE B134 F0 05 BEQ S13B B136 A9 00 LDA #&00 B138 4C FC B1 JMP S1FC .S13B B13B A2 09 LDX #&09 .S13D B13D BD AC C3 LDA &C3AC,X B140 10 2E BPL S170 B142 BD B6 C3 LDA &C3B6,X B145 29 E0 AND #&E0 B147 CD 17 C3 CMP &C317 B14A D0 24 BNE S170 B14C BD E8 C3 LDA &C3E8,X B14F CD 14 C3 CMP &C314 B152 D0 1C BNE S170 B154 BD DE C3 LDA &C3DE,X B157 CD 15 C3 CMP &C315 B15A D0 14 BNE S170 B15C BD D4 C3 LDA &C3D4,X B15F CD 16 C3 CMP &C316 B162 D0 0C BNE S170 B164 A0 19 LDY #&19 B166 B1 B6 LDA (&B6),Y B168 DD F2 C3 CMP &C3F2,X B16B D0 03 BNE S170 B16D 4C 5C 8C JMP PC5C .S170 B170 CA DEX B171 10 CA BPL S13D B173 A0 00 LDY #&00 B175 B1 B6 LDA (&B6),Y B177 30 03 BMI S17C B179 4C 09 8B JMP PB09 .S17C B17C A0 12 LDY #&12 B17E A6 CF LDX &CF B180 B1 B6 LDA (&B6),Y B182 9D 52 C3 STA &C352,X B185 C8 INY B186 B1 B6 LDA (&B6),Y B188 9D 48 C3 STA &C348,X B18B C8 INY B18C B1 B6 LDA (&B6),Y B18E 9D 3E C3 STA &C33E,X B191 C8 INY B192 B1 B6 LDA (&B6),Y B194 9D 34 C3 STA &C334,X .S197 B197 A0 12 LDY #&12 B199 A6 CF LDX &CF B19B B1 B6 LDA (&B6),Y B19D 9D A2 C3 STA &C3A2,X B1A0 C8 INY B1A1 B1 B6 LDA (&B6),Y B1A3 9D 98 C3 STA &C398,X B1A6 C8 INY B1A7 B1 B6 LDA (&B6),Y B1A9 9D 8E C3 STA &C38E,X B1AC C8 INY B1AD B1 B6 LDA (&B6),Y B1AF 9D 84 C3 STA &C384,X B1B2 C8 INY B1B3 B1 B6 LDA (&B6),Y B1B5 9D CA C3 STA &C3CA,X B1B8 C8 INY B1B9 B1 B6 LDA (&B6),Y B1BB 9D C0 C3 STA &C3C0,X B1BE C8 INY B1BF B1 B6 LDA (&B6),Y B1C1 0D 17 C3 ORA &C317 B1C4 9D B6 C3 STA &C3B6,X B1C7 C8 INY B1C8 B1 B6 LDA (&B6),Y B1CA 9D F2 C3 STA &C3F2,X B1CD AD 14 C3 LDA &C314 B1D0 9D E8 C3 STA &C3E8,X B1D3 AD 15 C3 LDA &C315 B1D6 9D DE C3 STA &C3DE,X B1D9 AD 16 C3 LDA &C316 B1DC 9D D4 C3 STA &C3D4,X B1DF A9 00 LDA #&00 B1E1 9D 7A C3 STA &C37A,X B1E4 9D 70 C3 STA &C370,X B1E7 9D 66 C3 STA &C366,X B1EA 9D 5C C3 STA &C35C,X B1ED AD A0 C2 LDA &C2A0 B1F0 9D AC C3 STA &C3AC,X B1F3 8A TXA B1F4 18 CLC B1F5 69 30 ADC #&30 B1F7 48 PHA B1F8 20 62 B0 JSR S062 B1FB 68 PLA .S1FC B1FC 20 A0 89 JSR P9A0 B1FF A6 C5 LDX &C5 B201 A4 C4 LDY &C4 B203 60 RTS .S204 B204 2C A0 C2 BIT &C2A0 B207 50 18 BVC S221 B209 20 DE 8E JSR PEDE B20C 08 PHP B20D A9 00 LDA #&00 B20F 28 PLP B210 D0 EA BNE S1FC B212 20 2A 8C JSR PC2A B215 A0 01 LDY #&01 B217 B1 B6 LDA (&B6),Y B219 30 03 BMI S21E .S21B B21B 4C 09 8B JMP PB09 .S21E B21E 4C 3B B1 JMP S13B .S221 B221 20 C6 8C JSR PCC6 B224 20 DE 8E JSR PEDE B227 D0 0C BNE S235 B229 20 19 8C JSR PC19 B22C A0 01 LDY #&01 B22E B1 B6 LDA (&B6),Y B230 10 E9 BPL S21B B232 4C 93 B2 JMP S293 .S235 B235 A9 00 LDA #&00 B237 A2 0F LDX #&0F .S239 B239 9D 42 C2 STA &C242,X B23C CA DEX B23D 10 FA BPL S239 B23F AE FE C1 LDX &C1FE B242 A9 00 LDA #&00 .S244 B244 1D FE C0 ORA &C0FE,X B247 1D FF C0 ORA &C0FF,X B24A BC FD C0 LDY &C0FD,X B24D CC 4F C2 CPY &C24F B250 90 03 BCC S255 B252 8C 4F C2 STY &C24F .S255 B255 CA DEX B256 CA DEX B257 CA DEX B258 D0 EA BNE S244 B25A A8 TAY B25B F0 07 BEQ S264 B25D 8E 4F C2 STX &C24F B260 E8 INX B261 8E 50 C2 STX &C250 .S264 B264 A9 FF LDA #&FF B266 8D 46 C2 STA &C246 B269 8D 47 C2 STA &C247 B26C 8D 48 C2 STA &C248 B26F 8D 49 C2 STA &C249 B272 A2 40 LDX #&40 B274 86 B8 STX &B8 B276 A0 C2 LDY #&C2 B278 84 B9 STY &B9 B27A 20 A0 89 JSR P9A0 B27D 20 4D 8E JSR PE4D B280 20 87 8E JSR PE87 B283 20 9D 89 JSR P99D B286 AD 40 C2 LDA &C240 B289 85 B4 STA &B4 B28B AD 41 C2 LDA &C241 B28E 85 B5 STA &B5 B290 20 DE 8E JSR PEDE .S293 B293 A9 00 LDA #&00 B295 A6 CF LDX &CF B297 9D 52 C3 STA &C352,X B29A 9D 48 C3 STA &C348,X B29D 9D 3E C3 STA &C33E,X B2A0 9D 34 C3 STA &C334,X B2A3 4C 97 B1 JMP S197 .S2A6 B2A6 A4 C4 LDY &C4 B2A8 D0 22 BNE S2CC B2AA A2 09 LDX #&09 .S2AC B2AC BD AC C3 LDA &C3AC,X B2AF D0 0C BNE S2BD .S2B1 B2B1 CA DEX B2B2 10 F8 BPL S2AC B2B4 20 03 83 JSR P303 B2B7 A9 00 LDA #&00 B2B9 A6 C5 LDX &C5 B2BB A8 TAY B2BC 60 RTS .S2BD B2BD 8A TXA B2BE 18 CLC B2BF 69 30 ADC #&30 B2C1 85 B5 STA &B5 B2C3 86 CF STX &CF B2C5 20 CF B2 JSR S2CF B2C8 A6 CF LDX &CF B2CA 10 E5 BPL S2B1 .S2CC B2CC 20 D3 AB JSR RBD3 .S2CF B2CF 20 AF B0 JSR S0AF B2D2 BC AC C3 LDY &C3AC,X B2D5 9E AC C3 STZ &C3AC,X B2D8 98 TYA B2D9 10 20 BPL S2FB B2DB BD 52 C3 LDA &C352,X B2DE DD A2 C3 CMP &C3A2,X B2E1 D0 25 BNE S308 B2E3 BD 48 C3 LDA &C348,X B2E6 DD 98 C3 CMP &C398,X B2E9 D0 1D BNE S308 B2EB BD 3E C3 LDA &C33E,X B2EE DD 8E C3 CMP &C38E,X B2F1 D0 15 BNE S308 B2F3 BD 34 C3 LDA &C334,X B2F6 DD 84 C3 CMP &C384,X B2F9 D0 0D BNE S308 .S2FB B2FB 20 7C A9 JSR R97C B2FE 20 A0 89 JSR P9A0 B301 A9 00 LDA #&00 B303 A4 C4 LDY &C4 B305 A6 C5 LDX &C5 B307 60 RTS .S308 B308 20 9A AC JSR RC9A B30B BD 52 C3 LDA &C352,X B30E C9 01 CMP #&01 B310 AD 34 C2 LDA &C234 B313 7D 48 C3 ADC &C348,X B316 8D 34 C2 STA &C234 B319 AD 35 C2 LDA &C235 B31C 7D 3E C3 ADC &C33E,X B31F 8D 35 C2 STA &C235 B322 AD 36 C2 LDA &C236 B325 7D 34 C3 ADC &C334,X B328 8D 36 C2 STA &C236 B32B BD A2 C3 LDA &C3A2,X B32E C9 01 CMP #&01 B330 BD 98 C3 LDA &C398,X B333 FD 48 C3 SBC &C348,X B336 8D 37 C2 STA &C237 B339 BD 8E C3 LDA &C38E,X B33C FD 3E C3 SBC &C33E,X B33F 8D 38 C2 STA &C238 B342 BD 84 C3 LDA &C384,X B345 FD 34 C3 SBC &C334,X B348 8D 39 C2 STA &C239 B34B BD 52 C3 LDA &C352,X B34E D0 0D BNE S35D B350 EE 37 C2 INC &C237 B353 D0 08 BNE S35D B355 EE 38 C2 INC &C238 B358 D0 03 BNE S35D B35A EE 39 C2 INC &C239 .S35D B35D BD 52 C3 LDA &C352,X B360 A0 12 LDY #&12 B362 91 B8 STA (&B8),Y B364 BD 48 C3 LDA &C348,X B367 C8 INY B368 91 B8 STA (&B8),Y B36A BD 3E C3 LDA &C33E,X B36D C8 INY B36E 91 B8 STA (&B8),Y B370 BD 34 C3 LDA &C334,X B373 C8 INY B374 91 B8 STA (&B8),Y B376 20 BA 84 JSR P4BA B379 20 87 8E JSR PE87 B37C 4C FB B2 JMP S2FB .S37F B37F A2 09 LDX #&09 .S381 B381 BD AC C3 LDA &C3AC,X B384 F0 0A BEQ S390 B386 BD B6 C3 LDA &C3B6,X B389 29 E0 AND #&E0 B38B CD 17 C3 CMP &C317 B38E F0 15 BEQ S3A5 .S390 B390 CA DEX B391 10 EE BPL S381 .S393 B393 AD 17 C3 LDA &C317 B396 20 8C B4 JSR S48C B399 AD FB C1 LDA &C1FB B39C 9D 21 C3 STA &C321,X B39F AD FC C1 LDA &C1FC B3A2 9D 22 C3 STA &C322,X .S3A5 B3A5 20 D6 B3 JSR S3D6 .S3A8 B3A8 AD 17 C3 LDA &C317 B3AB 20 8C B4 JSR S48C B3AE AD FB C1 LDA &C1FB B3B1 DD 21 C3 CMP &C321,X B3B4 D0 0F BNE S3C5 B3B6 AD FC C1 LDA &C1FC B3B9 DD 22 C3 CMP &C322,X B3BC D0 07 BNE S3C5 B3BE 20 26 B4 JSR S426 B3C1 8D C2 C2 STA &C2C2 B3C4 60 RTS .S3C5 B3C5 20 46 83 JSR P346 B3C8 EQUB &C8 B3C9 EQUS "Disc changed" B3D5 EQUB &00 .S3D6 B3D6 A9 01 LDA #&01 B3D8 A2 C8 LDX #&C8 B3DA A0 C2 LDY #&C2 B3DC 20 F1 FF JSR &FFF1 B3DF A2 00 LDX #&00 B3E1 A0 04 LDY #&04 B3E3 38 SEC .S3E4 B3E4 BD C8 C2 LDA &C2C8,X B3E7 48 PHA B3E8 FD C3 C2 SBC &C2C3,X B3EB 9D C8 C2 STA &C2C8,X B3EE 68 PLA B3EF 9D C3 C2 STA &C2C3,X B3F2 E8 INX B3F3 88 DEY B3F4 10 EE BPL S3E4 B3F6 AD CC C2 LDA &C2CC B3F9 0D CB C2 ORA &C2CB B3FC 0D CA C2 ORA &C2CA B3FF D0 07 BNE S408 B401 AD C9 C2 LDA &C2C9 B404 C9 02 CMP #&02 B406 90 03 BCC S40B .S408 B408 8C C2 C2 STY &C2C2 .S40B B40B 60 RTS .S40C B40C 20 D6 B3 JSR S3D6 B40F AD 17 C3 LDA &C317 B412 20 8C B4 JSR S48C B415 20 26 B4 JSR S426 B418 4D C2 C2 EOR &C2C2 B41B F0 EE BEQ S40B B41D A2 01 LDX #&01 B41F A0 88 LDY #&88 B421 20 89 82 JSR P289 B424 80 82 BRA S3A8 .S426 B426 A9 FF LDA #&FF B428 18 CLC .S429 B429 2A ROL A B42A CA DEX B42B CA DEX B42C 10 FB BPL S429 B42E 2D C2 C2 AND &C2C2 B431 60 RTS .S432 B432 29 E0 AND #&E0 B434 8D CD C2 STA &C2CD B437 DA PHX B438 5A PHY B439 20 D6 B3 JSR S3D6 B43C AD CD C2 LDA &C2CD B43F 20 8C B4 JSR S48C B442 20 26 B4 JSR S426 B445 4D C2 C2 EOR &C2C2 B448 F0 3E BEQ S488 B44A AD CD C2 LDA &C2CD B44D AA TAX B44E 48 PHA B44F AD 17 C3 LDA &C317 B452 8D CD C2 STA &C2CD B455 AC 2F C2 LDY &C22F B458 C0 FF CPY #&FF B45A D0 06 BNE S462 B45C 8D 2F C2 STA &C22F B45F 8C CD C2 STY &C2CD .S462 B462 8E 17 C3 STX &C317 B465 20 0C B4 JSR S40C B468 AC CD C2 LDY &C2CD B46B 8C 17 C3 STY &C317 B46E C0 FF CPY #&FF B470 D0 09 BNE S47B B472 AD 2F C2 LDA &C22F B475 8D 17 C3 STA &C317 B478 8C 2F C2 STY &C22F .S47B B47B 68 PLA B47C CD 17 C3 CMP &C317 B47F F0 07 BEQ S488 B481 A2 01 LDX #&01 B483 A0 88 LDY #&88 B485 20 89 82 JSR P289 .S488 B488 7A PLY B489 FA PLX B48A 60 RTS B48B 4A LSR A .S48C B48C 4A LSR A B48D 4A LSR A B48E 4A LSR A B48F 4A LSR A B490 AA TAX B491 60 RTS ;OSGBPB B492 20 59 A6 JSR R659 B495 8D B4 C2 STA &C2B4 B498 8D B5 C2 STA &C2B5 B49B 84 C7 STY &C7 B49D 86 C6 STX &C6 B49F A0 01 LDY #&01 B4A1 A2 03 LDX #&03 .S4A3 B4A3 B1 C6 LDA (&C6),Y B4A5 99 B7 C2 STA &C2B7,Y B4A8 C8 INY B4A9 CA DEX B4AA 10 F7 BPL S4A3 B4AC AD B4 C2 LDA &C2B4 B4AF C9 05 CMP #&05 B4B1 90 04 BCC S4B7 B4B3 4C 9F B7 JMP S79F .S4B6 B4B6 60 RTS .S4B7 B4B7 A8 TAY B4B8 F0 FC BEQ S4B6 B4BA A0 00 LDY #&00 B4BC B1 C6 LDA (&C6),Y B4BE A8 TAY B4BF 20 D3 AB JSR RBD3 B4C2 08 PHP B4C3 20 AF B0 JSR S0AF B4C6 A6 CF LDX &CF B4C8 BD B6 C3 LDA &C3B6,X B4CB 20 32 B4 JSR S432 B4CE 28 PLP B4CF 30 0A BMI S4DB B4D1 AD B4 C2 LDA &C2B4 B4D4 C9 03 CMP #&03 B4D6 B0 03 BCS S4DB B4D8 4C C0 AF JMP RFC0 .S4DB B4DB AD B4 C2 LDA &C2B4 B4DE 29 01 AND #&01 B4E0 F0 0E BEQ S4F0 B4E2 A0 0C LDY #&0C B4E4 A2 03 LDX #&03 .S4E6 B4E6 B1 C6 LDA (&C6),Y B4E8 95 C8 STA &C8,X B4EA 88 DEY B4EB CA DEX B4EC 10 F8 BPL S4E6 B4EE A9 01 LDA #&01 .S4F0 B4F0 A4 C2 LDY &C2 B4F2 A2 C8 LDX #&C8 B4F4 20 85 A8 JSR R885 B4F7 18 CLC B4F8 A2 03 LDX #&03 B4FA A0 05 LDY #&05 .S4FC B4FC B1 C6 LDA (&C6),Y B4FE 79 C3 00 ADC &00C3,Y B501 99 95 C2 STA &C295,Y B504 C8 INY B505 CA DEX B506 10 F4 BPL S4FC B508 AD B4 C2 LDA &C2B4 B50B 8D B5 C2 STA &C2B5 B50E C9 03 CMP #&03 B510 B0 03 BCS S515 B512 20 33 AD JSR RD33 .S515 B515 A0 09 LDY #&09 B517 A6 CF LDX &CF B519 AD 9A C2 LDA &C29A B51C 9D 7A C3 STA &C37A,X B51F 91 C6 STA (&C6),Y B521 C8 INY B522 AD 9B C2 LDA &C29B B525 9D 70 C3 STA &C370,X B528 91 C6 STA (&C6),Y B52A C8 INY B52B AD 9C C2 LDA &C29C B52E 9D 66 C3 STA &C366,X B531 91 C6 STA (&C6),Y B533 C8 INY B534 AD 9D C2 LDA &C29D B537 9D 5C C3 STA &C35C,X B53A 91 C6 STA (&C6),Y B53C AD B4 C2 LDA &C2B4 B53F C9 03 CMP #&03 B541 B0 14 BCS S557 .S543 B543 A2 03 LDX #&03 B545 A0 05 LDY #&05 .S547 B547 B1 C6 LDA (&C6),Y B549 99 3B C2 STA &C23B,Y B54C A9 00 LDA #&00 B54E 91 C6 STA (&C6),Y B550 C8 INY B551 CA DEX B552 10 F3 BPL S547 B554 4C C5 B5 JMP S5C5 .S557 B557 20 EB AB JSR RBEB B55A B0 E7 BCS S543 B55C F0 E5 BEQ S543 B55E 9C B5 C2 STZ &C2B5 B561 A6 CF LDX &CF B563 38 SEC B564 BD 52 C3 LDA &C352,X B567 E5 C8 SBC &C8 B569 8D 40 C2 STA &C240 B56C BD 48 C3 LDA &C348,X B56F E5 C9 SBC &C9 B571 8D 41 C2 STA &C241 B574 BD 3E C3 LDA &C33E,X B577 E5 CA SBC &CA B579 8D 42 C2 STA &C242 B57C BD 34 C3 LDA &C334,X B57F E5 CB SBC &CB B581 8D 43 C2 STA &C243 B584 A2 03 LDX #&03 B586 A0 05 LDY #&05 B588 38 SEC .S589 B589 B1 C6 LDA (&C6),Y B58B F9 3B C2 SBC &C23B,Y B58E 91 C6 STA (&C6),Y B590 C8 INY B591 CA DEX B592 10 F5 BPL S589 B594 A6 CF LDX &CF B596 BD 52 C3 LDA &C352,X B599 8D 9A C2 STA &C29A B59C 9D 7A C3 STA &C37A,X B59F 91 C6 STA (&C6),Y B5A1 C8 INY B5A2 BD 48 C3 LDA &C348,X B5A5 8D 9B C2 STA &C29B B5A8 9D 70 C3 STA &C370,X B5AB 91 C6 STA (&C6),Y B5AD C8 INY B5AE BD 3E C3 LDA &C33E,X B5B1 8D 9C C2 STA &C29C B5B4 9D 66 C3 STA &C366,X B5B7 91 C6 STA (&C6),Y B5B9 C8 INY B5BA BD 34 C3 LDA &C334,X B5BD 8D 9D C2 STA &C29D B5C0 9D 5C C3 STA &C35C,X B5C3 91 C6 STA (&C6),Y .S5C5 B5C5 A0 01 LDY #&01 B5C7 A2 03 LDX #&03 B5C9 18 CLC .S5CA B5CA B9 3F C2 LDA &C23F,Y B5CD 71 C6 ADC (&C6),Y B5CF 91 C6 STA (&C6),Y B5D1 C8 INY B5D2 CA DEX B5D3 10 F5 BPL S5CA B5D5 A5 C8 LDA &C8 B5D7 D0 03 BNE S5DC B5D9 4C 6C B6 JMP S66C .S5DC B5DC A6 CF LDX &CF B5DE 18 CLC B5DF BD CA C3 LDA &C3CA,X B5E2 65 C9 ADC &C9 B5E4 8D 96 C2 STA &C296 B5E7 BD C0 C3 LDA &C3C0,X B5EA 65 CA ADC &CA B5EC 8D 97 C2 STA &C297 B5EF BD B6 C3 LDA &C3B6,X B5F2 65 CB ADC &CB B5F4 8D 98 C2 STA &C298 B5F7 A9 02 LDA #&02 B5F9 CD B4 C2 CMP &C2B4 B5FC A9 80 LDA #&80 B5FE 6A ROR A B5FF 20 B3 AA JSR RAB3 B602 A5 C8 LDA &C8 B604 8D B6 C2 STA &C2B6 B607 9C B7 C2 STZ &C2B7 B60A A2 02 LDX #&02 .S60C B60C BD 9B C2 LDA &C29B,X B60F D5 C9 CMP &C9,X B611 D0 1C BNE S62F B613 CA DEX B614 10 F6 BPL S60C B616 AD 9A C2 LDA &C29A B619 8D B7 C2 STA &C2B7 B61C 20 8F B8 JSR S88F .S61F B61F 20 A0 89 JSR P9A0 B622 20 62 B0 JSR S062 .S625 B625 A9 00 LDA #&00 B627 CD B5 C2 CMP &C2B5 B62A A6 C6 LDX &C6 B62C A4 C7 LDY &C7 B62E 60 RTS .S62F B62F 20 8F B8 JSR S88F B632 A9 00 LDA #&00 B634 38 SEC B635 ED B6 C2 SBC &C2B6 B638 8D B6 C2 STA &C2B6 B63B 18 CLC B63C 6D B8 C2 ADC &C2B8 B63F 8D B8 C2 STA &C2B8 B642 90 0D BCC S651 B644 EE B9 C2 INC &C2B9 B647 D0 08 BNE S651 B649 EE BA C2 INC &C2BA B64C D0 03 BNE S651 B64E EE BB C2 INC &C2BB .S651 B651 38 SEC B652 AD 40 C2 LDA &C240 B655 ED B6 C2 SBC &C2B6 B658 8D 40 C2 STA &C240 B65B B0 0F BCS S66C B65D A0 01 LDY #&01 .S65F B65F B9 40 C2 LDA &C240,Y B662 E9 00 SBC #&00 B664 99 40 C2 STA &C240,Y B667 B0 03 BCS S66C B669 C8 INY B66A D0 F3 BNE S65F .S66C B66C AD 41 C2 LDA &C241 B66F 0D 42 C2 ORA &C242 B672 0D 43 C2 ORA &C243 B675 D0 03 BNE S67A B677 4C F0 B6 JMP S6F0 .S67A B67A A9 01 LDA #&01 B67C 8D 15 C2 STA &C215 B67F A0 03 LDY #&03 .S681 B681 B9 B8 C2 LDA &C2B8,Y B684 99 16 C2 STA &C216,Y B687 88 DEY B688 10 F7 BPL S681 B68A A9 02 LDA #&02 B68C CD B4 C2 CMP &C2B4 B68F 2A ROL A B690 2A ROL A B691 8D 1A C2 STA &C21A B694 A6 CF LDX &CF B696 A5 C8 LDA &C8 B698 C9 01 CMP #&01 B69A BD CA C3 LDA &C3CA,X B69D 65 C9 ADC &C9 B69F 8D 1D C2 STA &C21D B6A2 BD C0 C3 LDA &C3C0,X B6A5 65 CA ADC &CA B6A7 8D 1C C2 STA &C21C B6AA BD B6 C3 LDA &C3B6,X B6AD 65 CB ADC &CB B6AF 8D 1B C2 STA &C21B B6B2 A0 04 LDY #&04 .S6B4 B6B4 B9 13 C3 LDA &C313,Y B6B7 99 2B C2 STA &C22B,Y B6BA 88 DEY B6BB D0 F7 BNE S6B4 B6BD 8C 17 C3 STY &C317 B6C0 8C 1E C2 STY &C21E B6C3 8C 1F C2 STY &C21F B6C6 8C 20 C2 STY &C220 B6C9 18 CLC B6CA A2 02 LDX #&02 .S6CC B6CC B9 41 C2 LDA &C241,Y B6CF 99 21 C2 STA &C221,Y B6D2 79 B9 C2 ADC &C2B9,Y B6D5 99 B9 C2 STA &C2B9,Y B6D8 C8 INY B6D9 CA DEX B6DA 10 F0 BPL S6CC B6DC 20 7C A9 JSR R97C B6DF 20 0A 8A JSR PA0A B6E2 AD 2F C2 LDA &C22F B6E5 8D 17 C3 STA &C317 B6E8 A9 FF LDA #&FF B6EA 8D 2F C2 STA &C22F B6ED 8D 2E C2 STA &C22E .S6F0 B6F0 AD 9A C2 LDA &C29A B6F3 D0 03 BNE S6F8 B6F5 4C 1F B6 JMP S61F .S6F8 B6F8 A6 CF LDX &CF B6FA 18 CLC B6FB BD CA C3 LDA &C3CA,X B6FE 6D 9B C2 ADC &C29B B701 8D 96 C2 STA &C296 B704 BD C0 C3 LDA &C3C0,X B707 6D 9C C2 ADC &C29C B70A 8D 97 C2 STA &C297 B70D BD B6 C3 LDA &C3B6,X B710 6D 9D C2 ADC &C29D B713 8D 98 C2 STA &C298 B716 A9 02 LDA #&02 B718 CD B4 C2 CMP &C2B4 B71B A9 80 LDA #&80 B71D 6A ROR A B71E 20 B3 AA JSR RAB3 B721 9C B6 C2 STZ &C2B6 B724 AD 9A C2 LDA &C29A B727 8D B7 C2 STA &C2B7 B72A 20 8F B8 JSR S88F B72D 4C 1F B6 JMP S61F .S730 B730 24 CD BIT &CD B732 10 29 BPL S75D B734 AD BA C2 LDA &C2BA B737 AE BB C2 LDX &C2BB B73A 20 26 80 JSR P026 B73D AD BA C2 LDA &C2BA B740 C9 FE CMP #&FE B742 90 06 BCC S74A B744 AD BB C2 LDA &C2BB B747 1A INC A B748 F0 13 BEQ S75D .S74A B74A 08 PHP B74B 78 SEI B74C 20 DE BC JSR SCDE B74F A9 40 LDA #&40 B751 04 CD TSB &CD B753 A9 01 LDA #&01 B755 A2 B8 LDX #&B8 B757 A0 C2 LDY #&C2 B759 20 06 04 JSR &0406 B75C 28 PLP .S75D B75D 64 BD STZ &BD B75F AD B8 C2 LDA &C2B8 B762 85 B2 STA &B2 B764 AD B9 C2 LDA &C2B9 B767 85 B3 STA &B3 B769 60 RTS .S76A B76A 24 CD BIT &CD B76C 50 04 BVC S772 B76E 8D E5 FE STA &FEE5 B771 60 RTS .S772 B772 84 BC STY &BC B774 A4 BD LDY &BD B776 91 B2 STA (&B2),Y B778 E6 BD INC &BD B77A D0 02 BNE S77E B77C E6 B3 INC &B3 .S77E B77E A4 BC LDY &BC B780 60 RTS .S781 B781 A9 0A LDA #&0A B783 20 6A B7 JSR S76A B786 38 SEC B787 A2 09 LDX #&09 B789 A0 FF LDY #&FF .S78B B78B C8 INY B78C 90 0A BCC S798 B78E B1 B4 LDA (&B4),Y B790 29 7F AND #&7F B792 C9 21 CMP #&21 B794 B0 02 BCS S798 B796 A9 20 LDA #&20 .S798 B798 20 6A B7 JSR S76A B79B CA DEX B79C 10 ED BPL S78B B79E 60 RTS .S79F B79F E9 05 SBC #&05 B7A1 A8 TAY B7A2 F0 0C BEQ S7B0 B7A4 88 DEY B7A5 F0 49 BEQ S7F0 B7A7 88 DEY B7A8 F0 6A BEQ S814 B7AA 88 DEY B7AB D0 3D BNE S7EA B7AD 4C 2F B8 JMP S82F .S7B0 B7B0 20 30 B7 JSR S730 B7B3 A0 FF LDY #&FF .S7B5 B7B5 C8 INY B7B6 B9 D9 C8 LDA &C8D9,Y B7B9 29 7F AND #&7F B7BB C9 20 CMP #&20 B7BD 90 04 BCC S7C3 B7BF C0 13 CPY #&13 B7C1 D0 F2 BNE S7B5 .S7C3 B7C3 98 TYA B7C4 20 6A B7 JSR S76A B7C7 A0 FF LDY #&FF .S7C9 B7C9 C8 INY B7CA B9 D9 C8 LDA &C8D9,Y B7CD 29 7F AND #&7F B7CF C9 20 CMP #&20 B7D1 90 07 BCC S7DA B7D3 20 6A B7 JSR S76A B7D6 C0 13 CPY #&13 B7D8 D0 EF BNE S7C9 .S7DA B7DA AD FD C1 LDA &C1FD B7DD 20 6A B7 JSR S76A B7E0 AD 17 C3 LDA &C317 B7E3 0A ASL A B7E4 2A ROL A B7E5 2A ROL A B7E6 2A ROL A B7E7 20 6A B7 JSR S76A .S7EA B7EA 20 E6 BC JSR SCE6 B7ED 4C 25 B6 JMP S625 .S7F0 B7F0 20 30 B7 JSR S730 B7F3 A9 01 LDA #&01 B7F5 20 6A B7 JSR S76A B7F8 AD 17 C3 LDA &C317 B7FB 20 0B B8 JSR S80B B7FE A9 00 LDA #&00 B800 85 B4 STA &B4 B802 A9 C3 LDA #&C3 B804 85 B5 STA &B5 B806 20 81 B7 JSR S781 B809 30 DF BMI S7EA .S80B B80B 0A ASL A B80C 2A ROL A B80D 2A ROL A B80E 2A ROL A B80F 69 30 ADC #&30 B811 4C 6A B7 JMP S76A .S814 B814 20 30 B7 JSR S730 B817 A9 01 LDA #&01 B819 20 6A B7 JSR S76A B81C AD 1B C3 LDA &C31B B81F 20 0B B8 JSR S80B B822 A9 0A LDA #&0A B824 85 B4 STA &B4 B826 A9 C3 LDA #&C3 B828 85 B5 STA &B5 B82A 20 81 B7 JSR S781 B82D 30 BB BMI S7EA .S82F B82F 20 30 B7 JSR S730 B832 A0 00 LDY #&00 B834 8C B5 C2 STY &C2B5 B837 AD FA C8 LDA &C8FA B83A 91 C6 STA (&C6),Y B83C A0 05 LDY #&05 B83E B1 C6 LDA (&C6),Y B840 85 B0 STA &B0 B842 F0 A6 BEQ S7EA B844 A0 09 LDY #&09 B846 B1 C6 LDA (&C6),Y B848 85 B1 STA &B1 B84A C9 2F CMP #&2F B84C B0 9C BCS S7EA B84E AA TAX B84F 18 CLC B850 A9 05 LDA #&05 B852 A0 C4 LDY #&C4 .S854 B854 CA DEX B855 30 08 BMI S85F B857 69 1A ADC #&1A B859 90 F9 BCC S854 B85B C8 INY B85C 18 CLC B85D 90 F5 BCC S854 .S85F B85F 84 B5 STY &B5 B861 85 B4 STA &B4 .S863 B863 A0 00 LDY #&00 B865 B1 B4 LDA (&B4),Y B867 8D B5 C2 STA &C2B5 B86A F0 14 BEQ S880 B86C 20 81 B7 JSR S781 B86F A5 B4 LDA &B4 B871 18 CLC B872 69 1A ADC #&1A B874 85 B4 STA &B4 B876 90 02 BCC S87A B878 E6 B5 INC &B5 .S87A B87A E6 B1 INC &B1 B87C C6 B0 DEC &B0 B87E D0 E3 BNE S863 .S880 B880 A0 05 LDY #&05 B882 A5 B0 LDA &B0 B884 91 C6 STA (&C6),Y B886 A0 09 LDY #&09 B888 A5 B1 LDA &B1 B88A 91 C6 STA (&C6),Y B88C 4C EA B7 JMP S7EA .S88F B88F AD B6 C2 LDA &C2B6 B892 CD B7 C2 CMP &C2B7 B895 D0 01 BNE S898 B897 60 RTS .S898 B898 24 CD BIT &CD B89A 10 2C BPL S8C8 B89C AD BA C2 LDA &C2BA B89F AE BB C2 LDX &C2BB B8A2 20 26 80 JSR P026 B8A5 AD BA C2 LDA &C2BA B8A8 C9 FE CMP #&FE B8AA 90 06 BCC S8B2 B8AC AD BB C2 LDA &C2BB B8AF 1A INC A B8B0 F0 16 BEQ S8C8 .S8B2 B8B2 A9 40 LDA #&40 B8B4 04 CD TSB &CD B8B6 20 DE BC JSR SCDE B8B9 AD B4 C2 LDA &C2B4 B8BC C9 03 CMP #&03 B8BE A9 00 LDA #&00 B8C0 2A ROL A B8C1 A2 B8 LDX #&B8 B8C3 A0 C2 LDY #&C2 B8C5 20 06 04 JSR &0406 .S8C8 B8C8 AD B8 C2 LDA &C2B8 B8CB 38 SEC B8CC ED B6 C2 SBC &C2B6 B8CF 85 B2 STA &B2 B8D1 AD B9 C2 LDA &C2B9 B8D4 E9 00 SBC #&00 B8D6 85 B3 STA &B3 B8D8 AD B4 C2 LDA &C2B4 B8DB C9 03 CMP #&03 B8DD AC B6 C2 LDY &C2B6 B8E0 08 PHP .S8E1 B8E1 28 PLP B8E2 24 CD BIT &CD B8E4 70 0E BVS S8F4 B8E6 90 06 BCC S8EE B8E8 B1 BE LDA (&BE),Y B8EA 91 B2 STA (&B2),Y B8EC B0 17 BCS S905 .S8EE B8EE B1 B2 LDA (&B2),Y B8F0 91 BE STA (&BE),Y B8F2 90 11 BCC S905 .S8F4 B8F4 20 B6 81 JSR P1B6 B8F7 90 07 BCC S900 B8F9 B1 BE LDA (&BE),Y B8FB 8D E5 FE STA &FEE5 B8FE B0 05 BCS S905 .S900 B900 AD E5 FE LDA &FEE5 B903 91 BE STA (&BE),Y .S905 B905 C8 INY B906 08 PHP B907 CC B7 C2 CPY &C2B7 B90A D0 D5 BNE S8E1 B90C 28 PLP B90D 4C E6 BC JMP SCE6 .S910 B910 20 9E B9 JSR S99E B913 A0 05 LDY #&05 B915 B1 B0 LDA (&B0),Y B917 C9 08 CMP #&08 B919 F0 05 BEQ S920 B91B C9 0A CMP #&0A B91D F0 01 BEQ S920 B91F 60 RTS .S920 B920 6A ROR A B921 29 01 AND #&01 B923 8D E9 FD STA &FDE9 B926 A2 1F LDX #&1F .S928 B928 B5 B0 LDA &B0,X B92A 48 PHA B92B CA DEX B92C 10 FA BPL S928 B92E A0 01 LDY #&01 B930 B1 B0 LDA (&B0),Y B932 85 BE STA &BE B934 C8 INY B935 B1 B0 LDA (&B0),Y B937 85 BF STA &BF B939 A0 09 LDY #&09 B93B B1 B0 LDA (&B0),Y B93D 85 C3 STA &C3 B93F AD 99 C2 LDA &C299 B942 85 C2 STA &C2 B944 F0 02 BEQ S948 B946 C6 C3 DEC &C3 .S948 B948 A0 07 LDY #&07 B94A B1 B0 LDA (&B0),Y B94C 85 C4 STA &C4 B94E C8 INY B94F B1 B0 LDA (&B0),Y B951 85 C5 STA &C5 B953 20 AE B9 JSR S9AE B956 4A LSR A B957 4A LSR A B958 4A LSR A B959 4A LSR A B95A 4A LSR A B95B 29 03 AND #&03 B95D AA TAX B95E BD 85 B9 LDA &B985,X B961 85 CF STA &CF B963 A2 10 LDX #&10 B965 C9 04 CMP #&04 B967 D0 02 BNE S96B B969 A2 00 LDX #&00 .S96B B96B 8E EB FD STX &FDEB B96E A9 40 LDA #&40 B970 8D ED FD STA &FDED B973 A9 01 LDA #&01 B975 20 F2 BF JSR SFF2 B978 A8 TAY B979 A2 00 LDX #&00 .S97B B97B 68 PLA B97C 95 B0 STA &B0,X B97E E8 INX B97F E0 20 CPX #&20 B981 D0 F8 BNE S97B B983 98 TYA B984 60 RTS B985 EQUB &00,&01,&04,&FF B989 EQUB &02,&03,&05 .S98C B98C A2 15 LDX #&15 B98E A0 C2 LDY #&C2 B990 86 B0 STX &B0 B992 84 B1 STY &B1 B994 60 RTS .S995 B995 9C FF FC STZ &FCFF B998 9C FE FC STZ &FCFE B99B 4C B3 81 JMP P1B3 .S99E B99E 48 PHA B99F A9 00 LDA #&00 B9A1 8D FE FC STA &FCFE B9A4 A9 01 LDA #&01 B9A6 8D FF FC STA &FCFF B9A9 68 PLA B9AA 60 RTS ;*CONFIG B9AB 4C 8F BA JMP SA8F .S9AE B9AE 5A PHY B9AF A0 06 LDY #&06 B9B1 B1 B0 LDA (&B0),Y B9B3 7A PLY .S9B4 B9B4 20 BE B9 JSR S9BE B9B7 48 PHA B9B8 0A ASL A B9B9 0A ASL A B9BA 68 PLA B9BB 60 RTS B9BC A9 00 LDA #&00 .S9BE B9BE 0D 17 C3 ORA &C317 .S9C1 B9C1 2C FD C3 BIT &C3FD B9C4 30 19 BMI S9DF B9C6 DA PHX B9C7 20 95 B9 JSR S995 B9CA 6A ROR A B9CB 6A ROR A B9CC 6A ROR A B9CD 6A ROR A B9CE 6A ROR A B9CF 48 PHA B9D0 29 07 AND #&07 B9D2 AA TAX B9D3 68 PLA B9D4 29 F8 AND #&F8 B9D6 1D 08 FD ORA &FD08,X B9D9 2A ROL A B9DA 2A ROL A B9DB 2A ROL A B9DC 2A ROL A B9DD 2A ROL A B9DE FA PLX .S9DF B9DF 4C 9E B9 JMP S99E .S9E2 B9E2 A9 02 LDA #&02 B9E4 20 F2 BF JSR SFF2 B9E7 AA TAX B9E8 CA DEX B9E9 8E FD C3 STX &C3FD B9EC 30 25 BMI SA13 B9EE 20 9E B9 JSR S99E B9F1 A9 E5 LDA #&E5 B9F3 CD FD FD CMP &FDFD B9F6 F0 1B BEQ SA13 B9F8 8D FD FD STA &FDFD B9FB 20 14 BA JSR SA14 B9FE A9 F0 LDA #&F0 BA00 85 80 STA &80 BA02 A9 07 LDA #&07 BA04 85 81 STA &81 BA06 20 D8 BB JSR SBD8 BA09 A9 04 LDA #&04 BA0B 20 F2 BF JSR SFF2 BA0E A9 40 LDA #&40 BA10 8D FE FD STA &FDFE .SA13 BA13 60 RTS .SA14 BA14 A9 03 LDA #&03 BA16 4C F2 BF JMP SFF2 BA19 EQUB &60,&60,&60,&60 .SA1D BA1D A9 8F LDA #&8F BA1F A2 0C LDX #&0C BA21 A0 FF LDY #&FF BA23 20 F4 FF JSR &FFF4 BA26 8C E1 C2 STY &C2E1 BA29 60 RTS .SA2A BA2A AC E1 C2 LDY &C2E1 BA2D A9 8F LDA #&8F BA2F A2 0B LDX #&0B BA31 4C F4 FF JMP &FFF4 BA34 78 SEI BA35 20 49 BA JSR SA49 BA38 A0 00 LDY #&00 .SA3A BA3A 99 F1 C2 STA &C2F1,Y BA3D 5A PHY BA3E 20 51 BA JSR SA51 BA41 7A PLY BA42 C8 INY BA43 C0 0F CPY #&0F BA45 D0 F3 BNE SA3A BA47 58 CLI BA48 60 RTS .SA49 BA49 A5 B0 LDA &B0 BA4B 85 F6 STA &F6 BA4D A5 B1 LDA &B1 BA4F 85 F7 STA &F7 .SA51 BA51 A0 00 LDY #&00 BA53 B1 F6 LDA (&F6),Y BA55 E6 F6 INC &F6 BA57 D0 02 BNE SA5B BA59 E6 F7 INC &F7 .SA5B BA5B 60 RTS .SA5C BA5C A9 00 LDA #&00 BA5E AA TAX BA5F A8 TAY .SA60 BA60 9D 00 C9 STA &C900,X BA63 9D 00 CA STA &CA00,X BA66 9D 00 CB STA &CB00,X BA69 9D 00 CC STA &CC00,X BA6C 9D 00 CD STA &CD00,X BA6F E8 INX BA70 D0 EE BNE SA60 BA72 A2 04 LDX #&04 .SA74 BA74 BD 81 BA LDA &BA81,X BA77 9D 00 C9 STA &C900,X BA7A 9D FA CD STA &CDFA,X BA7D CA DEX BA7E 10 F4 BPL SA74 BA80 60 RTS BA81 EQUB &00 BA82 EQUS "Hugo" BA86 EQUB &60 .SA87 BA87 C8 INY .SA88 BA88 B1 B4 LDA (&B4),Y BA8A C9 20 CMP #&20 BA8C F0 F9 BEQ SA87 BA8E 60 RTS .SA8F BA8F 2C FD C3 BIT &C3FD BA92 10 03 BPL SA97 BA94 4C A9 BA JMP SAA9 .SA97 BA97 A5 B4 LDA &B4 BA99 85 F2 STA &F2 BA9B A5 B5 LDA &B5 BA9D 85 F3 STA &F3 BA9F A0 00 LDY #&00 BAA1 A9 00 LDA #&00 BAA3 20 F2 BF JSR SFF2 BAA6 60 RTS .SAA7 BAA7 68 PLA BAA8 68 PLA .SAA9 BAA9 38 SEC BAAA 60 RTS .SAAB BAAB C9 30 CMP #&30 BAAD 90 F8 BCC SAA7 BAAF C9 38 CMP #&38 BAB1 90 0B BCC SABE BAB3 09 20 ORA #&20 BAB5 C9 61 CMP #&61 BAB7 90 EE BCC SAA7 BAB9 C9 69 CMP #&69 BABB B0 EA BCS SAA7 BABD 3A DEC A .SABE BABE 48 PHA BABF 2C EB C2 BIT &C2EB BAC2 10 0A BPL SACE BAC4 A5 CD LDA &CD BAC6 29 20 AND #&20 BAC8 D0 04 BNE SACE BACA 68 PLA BACB 29 03 AND #&03 BACD 60 RTS .SACE BACE 68 PLA BACF 29 07 AND #&07 BAD1 60 RTS ;*AFORM BAD2 A0 00 LDY #&00 BAD4 20 88 BA JSR SA88 BAD7 90 14 BCC SAED BAD9 20 AB BA JSR SAAB BADC 85 85 STA &85 BADE 20 87 BA JSR SA87 BAE1 90 0A BCC SAED BAE3 A2 02 LDX #&02 .SAE5 BAE5 DD A6 BC CMP &BCA6,X BAE8 F0 05 BEQ SAEF BAEA CA DEX BAEB 10 F8 BPL SAE5 .SAED BAED 38 SEC BAEE 60 RTS .SAEF BAEF 8A TXA BAF0 48 PHA BAF1 20 86 91 JSR Q186 BAF4 EQUS "Are you sure ?" BB02 EQUB &A0 BB03 A2 03 LDX #&03 .SB05 BB05 20 E0 FF JSR &FFE0 BB08 C9 20 CMP #&20 BB0A 90 03 BCC SB0F BB0C 20 A9 91 JSR Q1A9 .SB0F BB0F 29 5F AND #&5F BB11 DD 46 BB CMP &BB46,X BB14 D0 21 BNE SB37 BB16 CA DEX BB17 10 EC BPL SB05 BB19 20 19 9F JSR QF19 BB1C 68 PLA BB1D AA TAX BB1E 20 95 B9 JSR S995 BB21 A5 85 LDA &85 BB23 29 03 AND #&03 BB25 A8 TAY BB26 B9 08 FD LDA &FD08,Y BB29 C9 02 CMP #&02 BB2B D0 03 BNE SB30 BB2D E8 INX BB2E E8 INX BB2F E8 INX .SB30 BB30 85 85 STA &85 BB32 20 4A BB JSR SB4A BB35 18 CLC BB36 60 RTS .SB37 BB37 20 86 91 JSR Q186 BB3A EQUB &0D BB3B EQUS "Aborted" BB42 EQUB &0D BB43 EQUB &FA BB44 18 CLC BB45 60 RTS BB46 0D 53 45 ORA &4553 BB49 59 BD 94 EOR &94BD,Y BB4C BC 85 80 LDY &8085,X BB4F BD 9A BC LDA &BC9A,X BB52 85 81 STA &81 BB54 BD A0 BC LDA &BCA0,X BB57 85 82 STA &82 BB59 A9 00 LDA #&00 BB5B 85 83 STA &83 BB5D 85 84 STA &84 BB5F A2 09 LDX #&09 .SB61 BB61 BD A9 BC LDA &BCA9,X BB64 95 70 STA &70,X BB66 CA DEX BB67 D0 F8 BNE SB61 BB69 20 19 9F JSR QF19 .SB6C BB6C A9 0D LDA #&0D BB6E 20 EE FF JSR &FFEE BB71 A5 83 LDA &83 BB73 C5 82 CMP &82 BB75 F0 4A BEQ SBC1 BB77 48 PHA BB78 20 86 91 JSR Q186 BB7B EQUS "Track" BB80 EQUB &A0 BB81 68 PLA BB82 48 PHA BB83 20 F6 91 JSR Q1F6 BB86 68 PLA BB87 48 PHA BB88 A6 85 LDX &85 BB8A C9 50 CMP #&50 BB8C 90 04 BCC SB92 BB8E E8 INX BB8F E8 INX BB90 E8 INX BB91 E8 INX .SB92 BB92 BD 85 B9 LDA &B985,X BB95 09 08 ORA #&08 BB97 85 70 STA &70 BB99 68 PLA BB9A C9 50 CMP #&50 BB9C 90 02 BCC SBA0 BB9E E9 50 SBC #&50 .SBA0 BBA0 20 6D BC JSR SC6D BBA3 85 77 STA &77 BBA5 A9 63 LDA #&63 BBA7 85 76 STA &76 BBA9 A9 7F LDA #&7F BBAB A2 70 LDX #&70 BBAD A0 00 LDY #&00 BBAF 20 F1 FF JSR &FFF1 BBB2 38 SEC BBB3 A5 84 LDA &84 BBB5 E9 02 SBC #&02 BBB7 B0 02 BCS SBBB BBB9 69 10 ADC #&10 .SBBB BBBB 85 84 STA &84 BBBD E6 83 INC &83 BBBF D0 AB BNE SB6C .SBC1 BBC1 A6 85 LDX &85 BBC3 BD 85 B9 LDA &B985,X BBC6 09 08 ORA #&08 BBC8 85 70 STA &70 BBCA 20 D8 BB JSR SBD8 BBCD 20 33 BC JSR SC33 BBD0 20 4A BC JSR SC4A BBD3 20 19 9F JSR QF19 BBD6 18 CLC BBD7 60 RTS .SBD8 BBD8 20 EC BB JSR SBEC BBDB 20 5C BA JSR SA5C BBDE A9 24 LDA #&24 BBE0 8D CC CD STA &CDCC BBE3 8D D9 CD STA &CDD9 BBE6 A9 02 LDA #&02 BBE8 8D D6 CD STA &CDD6 BBEB 60 RTS .SBEC BBEC A2 00 LDX #&00 BBEE 8A TXA .SBEF BBEF 9D 00 C0 STA &C000,X BBF2 9D 00 C1 STA &C100,X BBF5 E8 INX BBF6 D0 F7 BNE SBEF BBF8 A9 07 LDA #&07 BBFA 8D 00 C0 STA &C000 BBFD A5 81 LDA &81 BBFF 8D FD C0 STA &C0FD BC02 A5 80 LDA &80 BC04 8D FC C0 STA &C0FC BC07 38 SEC BC08 E9 07 SBC #&07 BC0A 8D 00 C1 STA &C100 BC0D A5 81 LDA &81 BC0F E9 00 SBC #&00 BC11 8D 01 C1 STA &C101 BC14 A9 03 LDA #&03 BC16 8D FE C1 STA &C1FE BC19 18 CLC BC1A A0 FF LDY #&FF BC1C 98 TYA .SC1D BC1D 79 FF BF ADC &BFFF,Y BC20 88 DEY BC21 D0 FA BNE SC1D BC23 8D FF C0 STA &C0FF BC26 88 DEY BC27 98 TYA BC28 18 CLC .SC29 BC29 79 FF C0 ADC &C0FF,Y BC2C 88 DEY BC2D D0 FA BNE SC29 BC2F 8D FF C1 STA &C1FF BC32 60 RTS .SC33 BC33 A2 09 LDX #&09 .SC35 BC35 BD 40 BC LDA &BC40,X BC38 9D F1 C2 STA &C2F1,X BC3B CA DEX BC3C 10 F7 BPL SC35 BC3E 30 15 BMI SC55 BC40 EQUB &00 BC41 EQUD &00,&C0,&FF,&FF BC45 EQUB &03,&4B,&00,&00 BC49 EQUB &22 .SC4A BC4A A2 09 LDX #&09 .SC4C BC4C BD 63 BC LDA &BC63,X BC4F 9D F1 C2 STA &C2F1,X BC52 CA DEX BC53 10 F7 BPL SC4C .SC55 BC55 A5 70 LDA &70 BC57 8D F1 C2 STA &C2F1 BC5A A2 F1 LDX #&F1 BC5C A0 C2 LDY #&C2 BC5E A9 7F LDA #&7F BC60 4C F1 FF JMP &FFF1 BC63 EQUB &00 BC64 EQUD &00,&C9,&FF,&FF BC68 EQUB &03,&4B,&00,&02 BC6C EQUB &25 .SC6D BC6D A4 84 LDY &84 BC6F A2 00 LDX #&00 .SC71 BC71 9D 00 20 STA &2000,X BC74 48 PHA BC75 A9 00 LDA #&00 BC77 9D 01 20 STA &2001,X BC7A 98 TYA BC7B 9D 02 20 STA &2002,X BC7E C8 INY BC7F C0 10 CPY #&10 BC81 D0 02 BNE SC85 BC83 A0 00 LDY #&00 .SC85 BC85 A9 01 LDA #&01 BC87 9D 03 20 STA &2003,X BC8A 68 PLA BC8B E8 INX BC8C E8 INX BC8D E8 INX BC8E E8 INX BC8F E0 40 CPX #&40 BC91 D0 DE BNE SC71 BC93 60 RTS BC94 EQUB &80,&00,&00 BC97 EQUB &80,&00,&F0 BC9A EQUB &02,&05,&0A BC9D EQUB &02,&05,&07 BCA0 EQUB &28,&50,&A0 BCA3 EQUB &28,&50,&7F BCA6 EQUS "SML" BCA9 EQUB &00 BCAA EQUD &00,&20,&FF,&FF BCAE EQUB &03,&63,&00,&00 BCB2 EQUB &30 BCB3 2C EA C2 BIT &C2EA BCB6 50 04 BVC SCBC BCB8 0A ASL A BCB9 2A ROL A BCBA 2A ROL A BCBB 2A ROL A .SCBC BCBC 29 07 AND #&07 BCBE 09 30 ORA #&30 BCC0 48 PHA BCC1 20 16 9F JSR QF16 BCC4 68 PLA BCC5 20 1B 9F JSR QF1B BCC8 E8 INX BCC9 E0 08 CPX #&08 BCCB 60 RTS .SCCC BCCC A0 04 LDY #&04 BCCE 24 CD BIT &CD BCD0 10 13 BPL SCE5 .SCD2 BCD2 B1 B0 LDA (&B0),Y BCD4 99 26 C2 STA &C226,Y BCD7 88 DEY BCD8 D0 F8 BNE SCD2 BCDA A9 40 LDA #&40 BCDC 04 CD TSB &CD .SCDE BCDE A9 C4 LDA #&C4 BCE0 20 06 04 JSR &0406 BCE3 90 F9 BCC SCDE .SCE5 BCE5 60 RTS .SCE6 BCE6 24 CD BIT &CD BCE8 50 09 BVC SCF3 BCEA A9 84 LDA #&84 BCEC 20 06 04 JSR &0406 BCEF A9 40 LDA #&40 BCF1 14 CD TRB &CD .SCF3 BCF3 AD D7 C2 LDA &C2D7 BCF6 F0 03 BEQ SCFB BCF8 8D 34 FE STA &FE34 .SCFB BCFB 9C D7 C2 STZ &C2D7 BCFE 60 RTS .SFF2 BFF2 5A PHY BFF3 DA PHX BFF4 A6 F4 LDX &F4 BFF6 CA DEX BFF7 86 F4 STX &F4 BFF9 8E 30 FE STX &FE30 BFFC EA NOP BFFD FA PLX BFFE 7A PLY BFFF 60 RTS ;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 chad300 chad300.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 chad300.asm.txt