;Disassembly of Solidisk DFS 2.2 J issue 2 ;Greg Cook, 5 April 2024 ;Source: http://www.nvg.org/bbc/rom/SoliDisk/fs/DFS-1770-2.2j2.rom ;Source: http://wouter.bbcmicro.net/bbc/bestanden/roms-2009.01.28.zip ;Path: roms/kopie_van_eprom/Solidisk/DFS_1770_and_8271__2.2J_issue2 ;Compatibility: Solidisk DFDC interface on Model B, WD 1770 + i8271 ;Code length: &4000 ;Acorn CRC: &4750 ;PKZIP CRC: &6B9B4237 ;XFER CRC: &7D5B50A3 ;Cksum: 215531847 8000 EQUB &00 8001 EQUB &00 8002 EQUB &00 8003 4C 5B AA JMP RA5B 8006 EQUB &82 8007 EQUB &19 8008 EQUB &01 8009 EQUS "DFS 2.2 J" 8012 EQUB &00 8013 EQUS "Issue2" 8019 EQUB &00 801A EQUS "(C)SOLIDISK by K.ACRES" 8030 EQUB &00 8031 EQUS "E.!BOOT" 8038 EQUB &0D 8039 EQUS "L.!BOOT" 8040 EQUB &0D .P041 8041 A0 17 LDY #&17 .P043 8043 B9 5A 80 LDA &805A,Y 8046 99 40 0D STA &0D40,Y 8049 88 DEY 804A 10 F7 BPL P043 804C AD 74 10 LDA &1074 804F 8D 41 0D STA &0D41 8052 A5 F4 LDA &F4 8054 8D 4E 0D STA &0D4E 8057 4C 40 0D JMP &0D40 805A A9 00 LDA #&00 805C 85 F4 STA &F4 805E 8D 30 FE STA &FE30 .P061 8061 AD 84 FE LDA &FE84 8064 4A LSR A 8065 B0 FA BCS P061 8067 A9 00 LDA #&00 8069 85 F4 STA &F4 806B 8D 30 FE STA &FE30 806E 4C DF 88 JMP P8DF .P071 8071 C0 17 CPY #&17 8073 B0 02 BCS P077 8075 A0 17 LDY #&17 .P077 8077 20 27 84 JSR P427 807A A2 80 LDX #&80 807C AD 87 FE LDA &FE87 807F 49 FF EOR #&FF 8081 8D 85 FE STA &FE85 8084 20 B7 80 JSR P0B7 8087 CD 87 FE CMP &FE87 808A D0 02 BNE P08E 808C A2 00 LDX #&00 .P08E 808E A0 7F LDY #&7F 8090 A9 FF LDA #&FF 8092 4C F4 FF JMP &FFF4 .P095 8095 48 PHA 8096 98 TYA 8097 18 CLC 8098 85 B1 STA &B1 809A 9D F0 0D STA &0DF0,X 809D 69 02 ADC #&02 809F 48 PHA 80A0 A9 00 LDA #&00 80A2 85 B0 STA &B0 80A4 A0 D4 LDY #&D4 80A6 91 B0 STA (&B0),Y 80A8 C8 INY 80A9 91 B0 STA (&B0),Y 80AB AD 8D 02 LDA &028D 80AE F0 04 BEQ P0B4 80B0 38 SEC 80B1 6E FF 10 ROR &10FF .P0B4 80B4 68 PLA 80B5 A8 TAY 80B6 68 PLA .P0B7 80B7 60 RTS .P0B8 80B8 C9 01 CMP #&01 80BA F0 B5 BEQ P071 80BC C9 02 CMP #&02 80BE F0 D5 BEQ P095 80C0 C9 08 CMP #&08 80C2 D0 03 BNE P0C7 80C4 4C 6E 82 JMP P26E .P0C7 80C7 20 27 84 JSR P427 80CA C9 04 CMP #&04 80CC D0 06 BNE P0D4 80CE 20 00 8E JSR PE00 .P0D1 80D1 4C 6D 8A JMP PA6D .P0D4 80D4 C9 0A CMP #&0A 80D6 F0 22 BEQ P0FA 80D8 C9 03 CMP #&03 80DA F0 40 BEQ P11C 80DC C9 09 CMP #&09 80DE F0 0B BEQ P0EB 80E0 C9 12 CMP #&12 80E2 D0 D3 BNE P0B7 80E4 C0 04 CPY #&04 80E6 D0 CF BNE P0B7 80E8 4C 5D 81 JMP P15D .P0EB 80EB B1 F2 LDA (&F2),Y 80ED 20 F8 8D JSR PDF8 80F0 C9 0D CMP #&0D 80F2 D0 DD BNE P0D1 80F4 98 TYA 80F5 A0 02 LDY #&02 80F7 4C C0 89 JMP P9C0 .P0FA 80FA 20 19 84 JSR P419 80FD A0 D5 LDY #&D5 80FF B1 B0 LDA (&B0),Y 8101 10 B4 BPL P0B7 8103 A9 00 LDA #&00 8105 91 B0 STA (&B0),Y 8107 A8 TAY .P108 8108 C0 C0 CPY #&C0 810A 90 05 BCC P111 810C B9 00 10 LDA &1000,Y 810F B0 03 BCS P114 .P111 8111 B9 00 11 LDA &1100,Y .P114 8114 91 B0 STA (&B0),Y 8116 88 DEY 8117 D0 EF BNE P108 8119 4C 37 9E JMP QE37 .P11C 811C 84 B3 STY &B3 811E A9 7A LDA #&7A 8120 20 F4 FF JSR &FFF4 8123 8A TXA 8124 30 09 BMI P12F 8126 C9 32 CMP #&32 8128 D0 8D BNE P0B7 812A A9 78 LDA #&78 812C 20 F4 FF JSR &FFF4 .P12F 812F A5 B3 LDA &B3 8131 48 PHA 8132 20 71 84 JSR P471 8135 EQUS "DFS 2.2 J " 813F EQUB &A8 8140 2C 8F 02 BIT &028F 8143 10 09 BPL P14E 8145 20 71 84 JSR P471 8148 EQUS "177" 814B EQUB &B0 814C 90 07 BCC P155 .P14E 814E 20 71 84 JSR P471 8151 EQUS "827" 8154 EQUB &B1 .P155 8155 20 71 84 JSR P471 8158 EQUS ")" 8159 EQUB &0D 815A EQUB &8D 815B 90 03 BCC P160 .P15D ;*DISC / *DISK 815D A9 FF LDA #&FF 815F 48 PHA .P160 8160 A9 00 LDA #&00 8162 BA TSX 8163 9D 06 01 STA &0106,X 8166 A9 06 LDA #&06 8168 20 F4 83 JSR P3F4 816B 38 SEC 816C A9 2D LDA #&2D 816E A2 0D LDX #&0D 8170 A0 FF LDY #&FF 8172 8C C7 10 STY &10C7 .P175 8175 48 PHA 8176 98 TYA 8177 9D 12 02 STA &0212,X 817A CA DEX 817B 68 PLA 817C 9D 12 02 STA &0212,X 817F E9 03 SBC #&03 8181 CA DEX 8182 10 F1 BPL P175 8184 A9 A8 LDA #&A8 8186 20 6A 84 JSR P46A 8189 18 CLC 818A 8A TXA 818B 69 1B ADC #&1B 818D 85 B0 STA &B0 818F 90 01 BCC P192 8191 C8 INY .P192 8192 84 B1 STY &B1 8194 A0 14 LDY #&14 .P196 8196 A5 F4 LDA &F4 8198 91 B0 STA (&B0),Y 819A 88 DEY 819B B9 A1 BF LDA &BFA1,Y 819E 91 B0 STA (&B0),Y 81A0 88 DEY 81A1 B9 A1 BF LDA &BFA1,Y 81A4 91 B0 STA (&B0),Y 81A6 88 DEY 81A7 10 ED BPL P196 81A9 A0 30 LDY #&30 81AB A2 0F LDX #&0F 81AD A9 8F LDA #&8F 81AF 20 F4 FF JSR &FFF4 81B2 20 19 84 JSR P419 81B5 A0 D4 LDY #&D4 81B7 B1 B0 LDA (&B0),Y 81B9 10 38 BPL P1F3 81BB C8 INY 81BC B1 B0 LDA (&B0),Y 81BE 30 2A BMI P1EA 81C0 20 34 8C JSR PC34 81C3 A0 00 LDY #&00 .P1C5 81C5 B1 B0 LDA (&B0),Y 81C7 C0 C0 CPY #&C0 81C9 90 05 BCC P1D0 81CB 99 00 10 STA &1000,Y 81CE B0 03 BCS P1D3 .P1D0 81D0 99 00 11 STA &1100,Y .P1D3 81D3 88 DEY 81D4 D0 EF BNE P1C5 81D6 20 E9 8F JSR PFE9 81D9 A9 A0 LDA #&A0 .P1DB 81DB A8 TAY 81DC 48 PHA 81DD A9 3F LDA #&3F 81DF 20 68 8C JSR PC68 81E2 68 PLA 81E3 99 1D 11 STA &111D,Y 81E6 E9 1F SBC #&1F 81E8 D0 F1 BNE P1DB .P1EA 81EA 68 PLA .P1EB 81EB 48 PHA 81EC A9 FF LDA #&FF 81EE 8D FD 10 STA &10FD 81F1 68 PLA 81F2 60 RTS .P1F3 81F3 A9 FF LDA #&FF 81F5 91 B0 STA (&B0),Y 81F7 8D D4 10 STA &10D4 81FA 8D C8 10 STA &10C8 81FD 20 34 8C JSR PC34 8200 A9 EA LDA #&EA 8202 20 6A 84 JSR P46A 8205 8A TXA 8206 49 FF EOR #&FF 8208 8D D7 10 STA &10D7 820B 20 E9 8F JSR PFE9 820E A9 24 LDA #&24 8210 8D CA 10 STA &10CA 8213 8D CC 10 STA &10CC 8216 A0 00 LDY #&00 8218 8C C0 10 STY &10C0 821B 8C C9 10 STY &10C9 821E 8C CB 10 STY &10CB 8221 8C CD 10 STY &10CD 8224 8C 6A 0D STY &0D6A 8227 20 DB 8D JSR PDDB 822A A2 03 LDX #&03 822C A0 18 LDY #&18 .P22E 822E 20 73 8D JSR PD73 8231 CA DEX 8232 D0 FA BNE P22E 8234 68 PLA 8235 D0 B4 BNE P1EB 8237 20 12 8F JSR PF12 823A A2 00 LDX #&00 823C A0 00 LDY #&00 823E AD 06 0F LDA &0F06 8241 20 62 8A JSR PA62 8244 F0 A5 BEQ P1EB 8246 48 PHA 8247 A0 80 LDY #&80 8249 A2 33 LDX #&33 824B 20 2D 8C JSR PC2D 824E 20 26 A7 JSR R726 8251 68 PLA 8252 B0 05 BCS P259 8254 A9 D6 LDA #&D6 8256 4C 25 BB JMP SB25 .P259 8259 C9 02 CMP #&02 825B 90 0A BCC P267 825D F0 04 BEQ P263 825F A2 31 LDX #&31 8261 D0 06 BNE P269 .P263 8263 A2 33 LDX #&33 8265 D0 02 BNE P269 .P267 8267 A2 39 LDX #&39 .P269 8269 A0 80 LDY #&80 826B 4C F7 FF JMP &FFF7 .P26E 826E 20 57 84 JSR P457 8271 A4 F0 LDY &F0 8273 84 B0 STY &B0 8275 A4 F1 LDY &F1 8277 84 B1 STY &B1 8279 A4 EF LDY &EF 827B C0 7F CPY #&7F 827D D0 6E BNE P2ED 827F EA NOP 8280 A0 00 LDY #&00 8282 B1 B0 LDA (&B0),Y 8284 10 02 BPL P288 8286 A5 CF LDA &CF .P288 8288 A2 8F LDX #&8F 828A 20 E2 8A JSR PAE2 828D 20 16 8B JSR PB16 8290 A9 79 LDA #&79 8292 20 B1 87 JSR P7B1 8295 B0 07 BCS P29E 8297 A9 00 LDA #&00 8299 A0 0A LDY #&0A 829B 91 B0 STA (&B0),Y 829D 60 RTS .P29E 829E C8 INY 829F A2 02 LDX #&02 82A1 20 63 8B JSR PB63 82A4 B1 B0 LDA (&B0),Y 82A6 99 64 0D STA &0D64,Y 82A9 48 PHA 82AA C8 INY 82AB B1 B0 LDA (&B0),Y 82AD 99 64 0D STA &0D64,Y 82B0 48 PHA 82B1 68 PLA 82B2 C9 5F CMP #&5F 82B4 D0 04 BNE P2BA 82B6 A9 02 LDA #&02 82B8 D0 0C BNE P2C6 .P2BA 82BA 4A LSR A 82BB 4A LSR A 82BC 4A LSR A 82BD 4A LSR A 82BE 29 01 AND #&01 82C0 20 F1 8C JSR PCF1 82C3 2A ROL A 82C4 69 03 ADC #&03 .P2C6 82C6 20 9E 8B JSR PB9E 82C9 A5 BE LDA &BE 82CB 85 A6 STA &A6 82CD A5 BF LDA &BF 82CF 85 A7 STA &A7 82D1 A0 07 LDY #&07 82D3 68 PLA 82D4 AA TAX 82D5 F0 09 BEQ P2E0 .P2D7 82D7 B1 B0 LDA (&B0),Y 82D9 99 64 0D STA &0D64,Y 82DC C8 INY 82DD CA DEX 82DE D0 F7 BNE P2D7 .P2E0 82E0 20 F7 83 JSR P3F7 82E3 20 65 86 JSR P665 82E6 91 B0 STA (&B0),Y 82E8 A9 00 LDA #&00 82EA 4C 2A 93 JMP Q32A .P2ED 82ED C0 7D CPY #&7D 82EF 90 2C BCC P31D 82F1 20 4C 93 JSR Q34C 82F4 20 95 8D JSR PD95 82F7 C0 7E CPY #&7E 82F9 F0 09 BEQ P304 82FB A0 00 LDY #&00 82FD AD 04 0F LDA &0F04 8300 91 B0 STA (&B0),Y 8302 98 TYA 8303 60 RTS .P304 8304 A9 00 LDA #&00 8306 A8 TAY 8307 91 B0 STA (&B0),Y 8309 C8 INY 830A AD 07 0F LDA &0F07 830D 91 B0 STA (&B0),Y 830F C8 INY 8310 AD 06 0F LDA &0F06 8313 2D F4 10 AND &10F4 8316 91 B0 STA (&B0),Y 8318 C8 INY 8319 A9 00 LDA #&00 831B 91 B0 STA (&B0),Y .P31D 831D 60 RTS .P31E 831E 20 71 84 JSR P471 8321 EQUS "Double" 8327 EQUB &A0 8328 60 RTS .P329 8329 20 C3 84 JSR P4C3 832C A9 0A LDA #&0A 832E 8D 34 0D STA &0D34 8331 A9 00 LDA #&00 8333 8D 6A 0D STA &0D6A 8336 A9 10 LDA #&10 8338 20 9E 8B JSR PB9E 833B AD 6D 0D LDA &0D6D 833E 48 PHA 833F 29 20 AND #&20 8341 0A ASL A 8342 0A ASL A 8343 49 80 EOR #&80 8345 8D 32 0D STA &0D32 8348 68 PLA 8349 29 1F AND #&1F 834B 8D 31 0D STA &0D31 .P34E 834E 20 03 87 JSR P703 8351 A9 E8 LDA #&E8 8353 8D 84 FE STA &FE84 8356 78 SEI 8357 A2 10 LDX #&10 .P359 8359 CA DEX 835A D0 FD BNE P359 .P35C 835C 20 D7 83 JSR P3D7 835F 29 CF AND #&CF 8361 C9 CE CMP #&CE 8363 D0 F7 BNE P35C 8365 20 D7 83 JSR P3D7 8368 CD 6B 0D CMP &0D6B 836B D0 EF BNE P35C 836D 20 D7 83 JSR P3D7 8370 20 D7 83 JSR P3D7 8373 CD 6C 0D CMP &0D6C 8376 D0 E4 BNE P35C 8378 A2 12 LDX #&12 .P37A 837A 20 D7 83 JSR P3D7 837D CA DEX 837E D0 FA BNE P37A .P380 8380 A0 00 LDY #&00 8382 20 D7 83 JSR P3D7 8385 85 AF STA &AF 8387 29 CC AND #&CC 8389 C9 C8 CMP #&C8 838B F0 08 BEQ P395 838D E8 INX 838E E0 14 CPX #&14 8390 90 EE BCC P380 8392 4C 5C 83 JMP P35C .P395 8395 20 D7 83 JSR P3D7 8398 91 A6 STA (&A6),Y 839A C8 INY 839B CC 32 0D CPY &0D32 839E D0 F5 BNE P395 83A0 98 TYA 83A1 F0 06 BEQ P3A9 83A3 45 A6 EOR &A6 83A5 85 A6 STA &A6 83A7 30 02 BMI P3AB .P3A9 83A9 E6 A7 INC &A7 .P3AB 83AB 20 D7 83 JSR P3D7 83AE A5 AF LDA &AF 83B0 29 02 AND #&02 83B2 08 PHP 83B3 A9 20 LDA #&20 83B5 28 PLP 83B6 F0 02 BEQ P3BA 83B8 A9 00 LDA #&00 .P3BA 83BA 8D 35 0D STA &0D35 83BD EE 6C 0D INC &0D6C 83C0 CE 31 0D DEC &0D31 83C3 F0 0B BEQ P3D0 83C5 A2 0F LDX #&0F .P3C7 83C7 20 D7 83 JSR P3D7 83CA CA DEX 83CB D0 FA BNE P3C7 83CD 4C 5C 83 JMP P35C .P3D0 83D0 58 CLI 83D1 AD 35 0D LDA &0D35 83D4 4C BF 84 JMP P4BF .P3D7 83D7 AD 84 FE LDA &FE84 83DA 6A ROR A 83DB 6A ROR A 83DC 10 06 BPL P3E4 83DE 90 F7 BCC P3D7 83E0 AD 87 FE LDA &FE87 83E3 60 RTS .P3E4 83E4 68 PLA 83E5 68 PLA 83E6 CE 34 0D DEC &0D34 83E9 F0 03 BEQ P3EE 83EB 4C 4E 83 JMP P34E .P3EE 83EE 58 CLI 83EF A9 18 LDA #&18 83F1 4C BF 84 JMP P4BF .P3F4 83F4 6C 1E 02 JMP (&021E) .P3F7 83F7 2C 8F 02 BIT &028F 83FA 30 2A BMI P426 83FC 20 57 84 JSR P457 83FF A0 06 LDY #&06 8401 B1 B0 LDA (&B0),Y 8403 29 3F AND #&3F 8405 C9 3A CMP #&3A 8407 F0 1D BEQ P426 8409 C9 3D CMP #&3D 840B F0 19 BEQ P426 840D C9 2C CMP #&2C 840F F0 15 BEQ P426 8411 C8 INY 8412 B1 B0 LDA (&B0),Y 8414 85 BA STA &BA 8416 4C 90 85 JMP P590 .P419 8419 48 PHA 841A A6 F4 LDX &F4 841C A9 00 LDA #&00 841E 85 B0 STA &B0 8420 BD F0 0D LDA &0DF0,X 8423 85 B1 STA &B1 8425 68 PLA .P426 8426 60 RTS .P427 8427 48 PHA 8428 8A TXA 8429 48 PHA 842A 98 TYA 842B 48 PHA 842C A9 84 LDA #&84 842E 48 PHA 842F A9 49 LDA #&49 8431 48 PHA .P432 8432 A0 05 LDY #&05 .P434 8434 BA TSX 8435 BD 07 01 LDA &0107,X 8438 48 PHA 8439 88 DEY 843A D0 F8 BNE P434 843C A0 0A LDY #&0A .P43E 843E BD 09 01 LDA &0109,X 8441 9D 0B 01 STA &010B,X 8444 CA DEX 8445 88 DEY 8446 D0 F6 BNE P43E 8448 68 PLA 8449 68 PLA .P44A 844A 68 PLA 844B A8 TAY 844C 68 PLA 844D AA TAX 844E 68 PLA 844F 60 RTS 8450 BA TSX 8451 9D 03 01 STA &0103,X 8454 4C 4A 84 JMP P44A .P457 8457 48 PHA 8458 8A TXA 8459 48 PHA 845A 98 TYA 845B 48 PHA 845C A9 84 LDA #&84 845E 48 PHA 845F A9 4F LDA #&4F 8461 48 PHA 8462 4C 32 84 JMP P432 .P465 8465 A9 2E LDA #&2E 8467 4C E3 FF JMP &FFE3 .P46A 846A A0 FF LDY #&FF .P46C 846C A2 00 LDX #&00 846E 4C F4 FF JMP &FFF4 .P471 8471 85 B3 STA &B3 8473 68 PLA 8474 85 AE STA &AE 8476 68 PLA 8477 85 AF STA &AF 8479 A5 B3 LDA &B3 847B 48 PHA 847C 98 TYA 847D 48 PHA 847E A0 00 LDY #&00 .P480 8480 20 9E 84 JSR P49E 8483 B1 AE LDA (&AE),Y 8485 48 PHA 8486 29 7F AND #&7F 8488 20 E3 FF JSR &FFE3 848B 68 PLA 848C 10 F2 BPL P480 848E 20 9E 84 JSR P49E 8491 68 PLA 8492 A8 TAY 8493 68 PLA 8494 18 CLC 8495 6C AE 00 JMP (&00AE) .P498 8498 20 9E 84 JSR P49E .P49B 849B 20 9E 84 JSR P49E .P49E 849E E6 AE INC &AE 84A0 D0 02 BNE P4A4 84A2 E6 AF INC &AF .P4A4 84A4 60 RTS .P4A5 84A5 48 PHA 84A6 A9 0D LDA #&0D 84A8 D0 06 BNE P4B0 .P4AA 84AA 20 AD 84 JSR P4AD .P4AD 84AD 48 PHA 84AE A9 20 LDA #&20 .P4B0 84B0 20 E3 FF JSR &FFE3 84B3 68 PLA 84B4 18 CLC 84B5 60 RTS 84B6 A9 44 LDA #&44 84B8 D0 05 BNE P4BF .P4BA 84BA A9 04 LDA #&04 84BC 20 0A 87 JSR P70A .P4BF 84BF 8D FC 10 STA &10FC 84C2 60 RTS .P4C3 84C3 AD 6B 0D LDA &0D6B 84C6 85 BA STA &BA 84C8 F0 F0 BEQ P4BA 84CA 20 90 85 JSR P590 84CD A9 00 LDA #&00 84CF F0 EE BEQ P4BF 84D1 A9 A1 LDA #&A1 84D3 D0 02 BNE P4D7 84D5 A9 A0 LDA #&A0 .P4D7 84D7 4C F2 84 JMP P4F2 84DA AD D6 10 LDA &10D6 84DD 30 0D BMI P4EC 84DF 2C 6C 0D BIT &0D6C 84E2 30 05 BMI P4E9 84E4 2C FD 10 BIT &10FD 84E7 30 03 BMI P4EC .P4E9 84E9 4C 29 83 JMP P329 .P4EC 84EC A9 88 LDA #&88 84EE D0 02 BNE P4F2 84F0 A9 80 LDA #&80 .P4F2 84F2 85 A1 STA &A1 84F4 AD 6B 0D LDA &0D6B 84F7 85 BA STA &BA 84F9 AD 6D 0D LDA &0D6D 84FC 29 1F AND #&1F 84FE 85 A4 STA &A4 8500 AD 6C 0D LDA &0D6C 8503 85 BB STA &BB 8505 A0 00 LDY #&00 8507 84 C2 STY &C2 8509 C8 INY 850A 84 A5 STY &A5 850C 20 D6 87 JSR P7D6 .P50F 850F AD FC 10 LDA &10FC .P512 8512 48 PHA 8513 29 20 AND #&20 8515 8D FC 10 STA &10FC 8518 68 PLA 8519 29 5C AND #&5C 851B F0 0D BEQ P52A 851D A0 04 LDY #&04 .P51F 851F D9 3A BC CMP &BC3A,Y 8522 F0 03 BEQ P527 8524 88 DEY 8525 10 F8 BPL P51F .P527 8527 B9 35 BC LDA &BC35,Y .P52A 852A 0D FC 10 ORA &10FC 852D 4C BF 84 JMP P4BF 8530 AD 6B 0D LDA &0D6B 8533 C9 23 CMP #&23 8535 D0 1A BNE P551 8537 AD 6C 0D LDA &0D6C 853A 48 PHA 853B 29 08 AND #&08 853D F0 05 BEQ P544 853F A9 D0 LDA #&D0 8541 20 D0 86 JSR P6D0 .P544 8544 68 PLA 8545 29 06 AND #&06 8547 F0 19 BEQ P562 8549 49 02 EOR #&02 854B 20 9B 9F JSR QF9B 854E 4C D0 86 JMP P6D0 .P551 8551 29 F7 AND #&F7 8553 C9 12 CMP #&12 8555 D0 0B BNE P562 8557 AD 6C 0D LDA &0D6C 855A 8D 85 FE STA &FE85 855D 20 03 87 JSR P703 8560 A9 00 LDA #&00 .P562 8562 4C BF 84 JMP P4BF 8565 AD 6B 0D LDA &0D6B 8568 C9 06 CMP #&06 856A D0 06 BNE P572 856C AD 86 FE LDA &FE86 856F 4C BF 84 JMP P4BF .P572 8572 29 F7 AND #&F7 8574 C9 12 CMP #&12 8576 D0 09 BNE P581 8578 20 03 87 JSR P703 857B AD 85 FE LDA &FE85 857E 4C BF 84 JMP P4BF .P581 8581 C9 23 CMP #&23 8583 D0 DD BNE P562 8585 AD 84 FE LDA &FE84 8588 20 62 8A JSR PA62 858B 29 08 AND #&08 858D 4C BF 84 JMP P4BF .P590 8590 20 27 84 JSR P427 8593 2C E4 10 BIT &10E4 8596 10 11 BPL P5A9 8598 2C F3 10 BIT &10F3 859B 30 0C BMI P5A9 859D A4 CF LDY &CF 859F B9 E0 10 LDA &10E0,Y 85A2 C9 03 CMP #&03 85A4 B0 03 BCS P5A9 85A6 20 C7 85 JSR P5C7 .P5A9 85A9 2C 8F 02 BIT &028F 85AC 10 64 BPL P612 .P5AE 85AE 20 03 87 JSR P703 85B1 A5 BA LDA &BA 85B3 8D 87 FE STA &FE87 85B6 A9 10 LDA #&10 85B8 4C 0A 87 JMP P70A .P5BB 85BB AD 85 FE LDA &FE85 85BE 48 PHA 85BF 20 AE 85 JSR P5AE 85C2 68 PLA 85C3 8D 85 FE STA &FE85 85C6 60 RTS .P5C7 85C7 2C 8F 02 BIT &028F 85CA 30 EF BMI P5BB 85CC AD 00 0D LDA &0D00 85CF 48 PHA 85D0 A9 40 LDA #&40 85D2 8D 00 0D STA &0D00 85D5 A9 7D LDA #&7D 85D7 20 7A 89 JSR P97A 85DA A5 CF LDA &CF 85DC 29 01 AND #&01 85DE 0A ASL A 85DF 0A ASL A 85E0 0A ASL A 85E1 09 12 ORA #&12 85E3 A8 TAY 85E4 20 DA 8C JSR PCDA 85E7 20 94 86 JSR P694 85EA AD 81 FE LDA &FE81 85ED 48 PHA 85EE A9 69 LDA #&69 85F0 20 7A 89 JSR P97A 85F3 A5 BA LDA &BA 85F5 20 DA 8C JSR PCDA 85F8 20 94 86 JSR P694 85FB A9 7A LDA #&7A 85FD 20 7A 89 JSR P97A 8600 98 TYA 8601 20 DA 8C JSR PCDA 8604 68 PLA 8605 20 DA 8C JSR PCDA 8608 20 3E 8B JSR PB3E 860B 20 16 8B JSR PB16 860E 68 PLA 860F 8D 00 0D STA &0D00 .P612 8612 60 RTS 8613 A9 01 LDA #&01 8615 20 9E 8B JSR PB9E 8618 20 C3 84 JSR P4C3 .P61B 861B AD 84 FE LDA &FE84 861E 29 02 AND #&02 8620 F0 F9 BEQ P61B 8622 A9 00 LDA #&00 8624 85 A3 STA &A3 .P626 8626 A9 C0 LDA #&C0 8628 20 0A 87 JSR P70A 862B 29 1C AND #&1C 862D F0 05 BEQ P634 862F A9 10 LDA #&10 8631 4C 12 85 JMP P512 .P634 8634 C6 A3 DEC &A3 8636 C6 A3 DEC &A3 8638 CE 6D 0D DEC &0D6D 863B D0 E9 BNE P626 863D 60 RTS ;*SPEED 863E 20 06 8A JSR PA06 8641 20 9B 9F JSR QF9B 8644 29 30 AND #&30 8646 AA TAX 8647 A0 CF LDY #&CF 8649 A9 FF LDA #&FF 864B 20 F4 FF JSR &FFF4 864E 2C 8F 02 BIT &028F 8651 30 03 BMI P656 8653 20 DB 8D JSR PDDB .P656 8656 BA TSX 8657 A9 00 LDA #&00 8659 9D 05 01 STA &0105,X 865C 60 RTS .P65D 865D 38 SEC 865E B0 01 BCS P661 ;*MASKOFF 8660 18 CLC .P661 8661 6E FD 10 ROR &10FD 8664 60 RTS .P665 8665 20 6C 86 JSR P66C 8668 AD FC 10 LDA &10FC 866B 60 RTS .P66C 866C 20 27 84 JSR P427 866F A0 00 LDY #&00 8671 2C 8F 02 BIT &028F 8674 30 2A BMI P6A0 8676 AD 6A 0D LDA &0D6A 8679 F0 19 BEQ P694 867B 20 7A 89 JSR P97A .P67E 867E B9 6B 0D LDA &0D6B,Y 8681 20 DA 8C JSR PCDA 8684 C8 INY 8685 CC 69 0D CPY &0D69 8688 D0 F4 BNE P67E 868A 20 94 86 JSR P694 868D AD 81 FE LDA &FE81 8690 8D FC 10 STA &10FC 8693 60 RTS .P694 8694 58 CLI .P695 8695 2C 80 FE BIT &FE80 8698 30 FB BMI P695 869A 2C 80 FE BIT &FE80 869D 30 F6 BMI P695 869F 60 RTS .P6A0 86A0 AD 6A 0D LDA &0D6A 86A3 F0 5E BEQ P703 86A5 8C 6A 0D STY &0D6A 86A8 29 3F AND #&3F .P6AA 86AA D9 3F BC CMP &BC3F,Y 86AD F0 08 BEQ P6B7 86AF C8 INY 86B0 C8 INY 86B1 C8 INY 86B2 C0 21 CPY #&21 86B4 90 F4 BCC P6AA 86B6 60 RTS .P6B7 86B7 B9 40 BC LDA &BC40,Y 86BA 48 PHA 86BB B9 41 BC LDA &BC41,Y 86BE 48 PHA 86BF 60 RTS .P6C0 86C0 A9 2D LDA #&2D .P6C2 86C2 20 27 84 JSR P427 86C5 A0 1F LDY #&1F .P6C7 86C7 20 E3 FF JSR &FFE3 86CA 88 DEY 86CB D0 FA BNE P6C7 86CD 4C A5 84 JMP P4A5 .P6D0 86D0 48 PHA 86D1 AD EC 10 LDA &10EC 86D4 C9 0A CMP #&0A 86D6 08 PHP 86D7 A5 CF LDA &CF 86D9 C9 02 CMP #&02 86DB 90 02 BCC P6DF 86DD 69 01 ADC #&01 .P6DF 86DF 69 01 ADC #&01 86E1 09 20 ORA #&20 86E3 28 PLP 86E4 D0 02 BNE P6E8 86E6 09 08 ORA #&08 .P6E8 86E8 8D 80 FE STA &FE80 86EB 68 PLA 86EC C9 80 CMP #&80 86EE B0 10 BCS P700 86F0 48 PHA 86F1 AD 8F 02 LDA &028F 86F4 20 12 A0 JSR R012 86F7 49 03 EOR #&03 86F9 8D 69 0D STA &0D69 86FC 68 PLA 86FD 0D 69 0D ORA &0D69 .P700 8700 8D 84 FE STA &FE84 .P703 8703 58 CLI 8704 20 27 84 JSR P427 8707 4C 41 80 JMP P041 .P70A 870A 20 D0 86 JSR P6D0 870D AD 84 FE LDA &FE84 8710 29 7C AND #&7C 8712 8D FC 10 STA &10FC 8715 60 RTS ;NMISR 7/11 8716 00 BRK 8717 98 TYA 8718 48 PHA 8719 A4 A3 LDY &A3 871B B1 A6 LDA (&A6),Y 871D 8D 87 FE STA &FE87 8720 E6 A3 INC &A3 8722 D0 05 BNE P729 8724 EE 68 0D INC &0D68 8727 E6 A7 INC &A7 .P729 8729 68 PLA 872A A8 TAY 872B 68 PLA 872C 40 RTI ;NMISR 8/13/14 872D 00 BRK 872E 98 TYA 872F 48 PHA 8730 AD 87 FE LDA &FE87 8733 A4 A3 LDY &A3 8735 91 A6 STA (&A6),Y 8737 E6 A3 INC &A3 8739 D0 05 BNE P740 873B E6 A7 INC &A7 873D EE 68 0D INC &0D68 .P740 8740 68 PLA 8741 A8 TAY 8742 68 PLA 8743 40 RTI 8744 C4 C2 CPY &C2 8746 B0 02 BCS P74A 8748 91 A6 STA (&A6),Y .P74A 874A E6 A3 INC &A3 874C 68 PLA 874D A8 TAY 874E 68 PLA 874F 40 RTI ;NMISR 9 8750 2C 87 FE BIT &FE87 8753 40 RTI ;NMISR 10/17 8754 00 BRK 8755 AD E5 FE LDA &FEE5 8758 8D 87 FE STA &FE87 875B E6 A3 INC &A3 875D D0 03 BNE P762 875F EE 68 0D INC &0D68 .P762 8762 68 PLA 8763 40 RTI ;NMISR 12/18 8764 00 BRK 8765 98 TYA 8766 48 PHA 8767 AD 87 FE LDA &FE87 876A A4 A3 LDY &A3 876C 8D E5 FE STA &FEE5 876F E6 A3 INC &A3 8771 D0 03 BNE P776 8773 EE 68 0D INC &0D68 .P776 8776 68 PLA 8777 A8 TAY 8778 68 PLA 8779 40 RTI 877A C4 C2 CPY &C2 877C B0 03 BCS P781 877E 8D E5 FE STA &FEE5 .P781 8781 E6 A3 INC &A3 8783 68 PLA 8784 A8 TAY 8785 68 PLA 8786 40 RTI .P787 8787 A0 06 LDY #&06 .P789 8789 C0 03 CPY #&03 878B 90 05 BCC P792 878D B9 A1 00 LDA &00A1,Y 8790 B0 03 BCS P795 .P792 8792 B9 73 10 LDA &1073,Y .P795 8795 99 F5 10 STA &10F5,Y 8798 88 DEY 8799 10 EE BPL P789 879B 60 RTS .P79C 879C A0 06 LDY #&06 .P79E 879E B9 F5 10 LDA &10F5,Y 87A1 C0 03 CPY #&03 87A3 90 05 BCC P7AA 87A5 99 A1 00 STA &00A1,Y 87A8 B0 03 BCS P7AD .P7AA 87AA 99 73 10 STA &1073,Y .P7AD 87AD 88 DEY 87AE 10 EE BPL P79E 87B0 60 RTS .P7B1 87B1 20 27 84 JSR P427 87B4 8D FC 10 STA &10FC 87B7 A5 B0 LDA &B0 87B9 48 PHA 87BA AA TAX 87BB A5 B1 LDA &B1 87BD 48 PHA 87BE A8 TAY 87BF AD FC 10 LDA &10FC 87C2 38 SEC 87C3 6E FE 10 ROR &10FE 87C6 20 F1 FF JSR &FFF1 87C9 68 PLA 87CA 85 B1 STA &B1 87CC 68 PLA 87CD 85 B0 STA &B0 87CF 0E FE 10 ASL &10FE .P7D2 87D2 60 RTS .P7D3 87D3 20 27 84 JSR P427 .P7D6 87D6 A9 78 LDA #&78 87D8 20 B1 87 JSR P7B1 87DB 90 F5 BCC P7D2 87DD A9 00 LDA #&00 87DF 8D 6A 0D STA &0D6A 87E2 8D FC 10 STA &10FC 87E5 2C 8F 02 BIT &028F 87E8 30 0F BMI P7F9 87EA 20 16 8B JSR PB16 87ED 4C D3 8D JMP PDD3 .P7F0 87F0 20 2A 89 JSR P92A 87F3 E6 BA INC &BA 87F5 A9 00 LDA #&00 87F7 85 BB STA &BB .P7F9 87F9 A5 A5 LDA &A5 87FB F0 D5 BEQ P7D2 87FD A5 BB LDA &BB 87FF 85 AE STA &AE 8801 20 87 87 JSR P787 .P804 8804 20 9C 87 JSR P79C 8807 A5 AE LDA &AE 8809 85 BB STA &BB 880B 20 90 85 JSR P590 880E A9 00 LDA #&00 8810 8D 68 0D STA &0D68 8813 A9 14 LDA #&14 8815 85 A2 STA &A2 .P817 8817 A5 A7 LDA &A7 8819 38 SEC 881A ED 68 0D SBC &0D68 881D 85 A7 STA &A7 881F 8A TXA 8820 48 PHA 8821 20 E7 8C JSR PCE7 8824 68 PLA 8825 AA TAX .P826 8826 A9 00 LDA #&00 8828 85 A3 STA &A3 882A 8D 68 0D STA &0D68 882D A5 BB LDA &BB 882F 8D 86 FE STA &FE86 8832 AD EC 10 LDA &10EC 8835 C9 12 CMP #&12 8837 D0 1A BNE P853 8839 A5 BB LDA &BB 883B C9 09 CMP #&09 883D 08 PHP 883E 90 02 BCC P842 8840 E9 09 SBC #&09 .P842 8842 18 CLC 8843 69 01 ADC #&01 8845 8D 86 FE STA &FE86 8848 A5 CF LDA &CF 884A 29 01 AND #&01 884C 28 PLP 884D 90 02 BCC P851 884F 09 02 ORA #&02 .P851 8851 85 CF STA &CF .P853 8853 A5 A1 LDA &A1 8855 C9 88 CMP #&88 8857 D0 26 BNE P87F 8859 A5 A4 LDA &A4 885B C9 01 CMP #&01 885D D0 20 BNE P87F 885F 45 A5 EOR &A5 8861 D0 1C BNE P87F 8863 A5 C2 LDA &C2 8865 F0 18 BEQ P87F 8867 A0 20 LDY #&20 8869 AD 11 0D LDA &0D11 886C C9 91 CMP #&91 886E F0 01 BEQ P871 8870 88 DEY .P871 8871 A2 00 LDX #&00 .P873 8873 B9 00 0D LDA &0D00,Y 8876 9D 11 0D STA &0D11,X 8879 C8 INY 887A E8 INX 887B E0 10 CPX #&10 887D D0 F4 BNE P873 .P87F 887F A5 A1 LDA &A1 8881 20 0A 87 JSR P70A 8884 F0 1B BEQ P8A1 8886 29 40 AND #&40 8888 D0 04 BNE P88E 888A C6 A2 DEC &A2 888C D0 09 BNE P897 .P88E 888E A5 A1 LDA &A1 8890 C9 80 CMP #&80 8892 F0 68 BEQ P8FC 8894 4C 71 89 JMP P971 .P897 8897 29 08 AND #&08 8899 D0 03 BNE P89E 889B 20 61 89 JSR P961 .P89E 889E 4C 17 88 JMP P817 .P8A1 88A1 18 CLC 88A2 A5 A3 LDA &A3 88A4 65 A6 ADC &A6 88A6 85 A6 STA &A6 88A8 90 02 BCC P8AC 88AA E6 A7 INC &A7 .P8AC 88AC 18 CLC 88AD A5 A3 LDA &A3 88AF 6D 72 10 ADC &1072 88B2 8D 72 10 STA &1072 88B5 AD 68 0D LDA &0D68 88B8 6D 73 10 ADC &1073 88BB 8D 73 10 STA &1073 88BE 90 08 BCC P8C8 88C0 EE 74 10 INC &1074 88C3 D0 03 BNE P8C8 88C5 EE 75 10 INC &1075 .P8C8 88C8 C6 A4 DEC &A4 88CA D0 04 BNE P8D0 88CC C6 A5 DEC &A5 88CE F0 5A BEQ P92A .P8D0 88D0 E6 BB INC &BB 88D2 A5 BB LDA &BB 88D4 CD EC 10 CMP &10EC 88D7 D0 03 BNE P8DC 88D9 4C F0 87 JMP P7F0 .P8DC 88DC 4C 26 88 JMP P826 .P8DF 88DF 38 SEC .P8E0 88E0 98 TYA 88E1 48 PHA 88E2 B0 03 BCS P8E7 88E4 20 FD 88 JSR P8FD .P8E7 88E7 A5 CF LDA &CF 88E9 29 01 AND #&01 88EB A8 TAY 88EC AD 85 FE LDA &FE85 88EF 99 EA 10 STA &10EA,Y 88F2 A4 CF LDY &CF 88F4 AD EC 10 LDA &10EC 88F7 99 ED 10 STA &10ED,Y 88FA 68 PLA 88FB A8 TAY .P8FC 88FC 60 RTS .P8FD 88FD A5 CF LDA &CF 88FF 29 01 AND #&01 8901 A8 TAY 8902 B9 EA 10 LDA &10EA,Y 8905 8D 85 FE STA &FE85 8908 A4 CF LDY &CF 890A B9 ED 10 LDA &10ED,Y .P90D 890D 8D EC 10 STA &10EC 8910 C9 10 CMP #&10 8912 08 PHP 8913 98 TYA 8914 48 PHA 8915 A4 CF LDY &CF 8917 AD EC 10 LDA &10EC 891A 99 ED 10 STA &10ED,Y 891D 68 PLA 891E A8 TAY 891F A9 03 LDA #&03 8921 28 PLP 8922 D0 02 BNE P926 8924 A9 07 LDA #&07 .P926 8926 8D F4 10 STA &10F4 .P929 8929 60 RTS .P92A 892A 2C 8F 02 BIT &028F 892D 50 FA BVC P929 892F A5 A1 LDA &A1 8931 C9 A0 CMP #&A0 8933 D0 F4 BNE P929 8935 A9 02 LDA #&02 8937 20 9E 8B JSR PB9E 893A A5 AE LDA &AE 893C 85 AF STA &AF .P93E 893E A5 AF LDA &AF 8940 C5 BB CMP &BB 8942 B0 10 BCS P954 8944 8D 86 FE STA &FE86 8947 A9 88 LDA #&88 8949 20 0A 87 JSR P70A 894C 29 18 AND #&18 894E D0 09 BNE P959 8950 E6 AF INC &AF 8952 D0 EA BNE P93E .P954 8954 A9 00 LDA #&00 8956 4C 9E 8B JMP PB9E .P959 8959 68 PLA 895A 68 PLA 895B 20 54 89 JSR P954 895E 4C 04 88 JMP P804 .P961 8961 A9 0A LDA #&0A 8963 2C FD 10 BIT &10FD 8966 10 A5 BPL P90D 8968 CD EC 10 CMP &10EC 896B D0 A0 BNE P90D 896D A9 10 LDA #&10 896F D0 9C BNE P90D .P971 8971 AD 84 FE LDA &FE84 8974 20 12 85 JSR P512 8977 4C B7 8F JMP PFB7 .P97A 897A 48 PHA 897B 20 A6 89 JSR P9A6 897E D0 02 BNE P982 8980 68 PLA 8981 60 RTS .P982 8982 68 PLA 8983 29 3F AND #&3F 8985 09 40 ORA #&40 8987 48 PHA 8988 20 95 86 JSR P695 898B A5 CF LDA &CF 898D 6A ROR A 898E 68 PLA 898F 90 02 BCC P993 8991 49 C0 EOR #&C0 .P993 8993 2C 80 FE BIT &FE80 8996 30 FB BMI P993 8998 8D 80 FE STA &FE80 899B 60 RTS 899C 48 PHA 899D A9 02 LDA #&02 899F 2D 84 FE AND &FE84 89A2 D0 02 BNE P9A6 89A4 68 PLA 89A5 40 RTI .P9A6 89A6 A9 03 LDA #&03 89A8 CD A3 03 CMP &03A3 89AB D0 05 BNE P9B2 89AD A5 CF LDA &CF 89AF CD FF 10 CMP &10FF .P9B2 89B2 60 RTS 89B3 E0 7F CPX #&7F 89B5 D0 03 BNE P9BA 89B7 4C 12 8F JMP PF12 .P9BA ;*HELP DFS 89BA 98 TYA 89BB A0 14 LDY #&14 89BD 20 F0 8D JSR PDF0 .P9C0 89C0 48 PHA 89C1 A5 AE LDA &AE 89C3 48 PHA 89C4 A5 AF LDA &AF 89C6 48 PHA 89C7 20 71 84 JSR P471 89CA EQUB &0D 89CB EQUS "DFS 2.2 J Issue2" 89DB EQUB &8D 89DC 68 PLA 89DD 85 AF STA &AF 89DF 68 PLA 89E0 85 AE STA &AE .P9E2 89E2 20 AA 84 JSR P4AA 89E5 20 10 8A JSR PA10 89E8 20 A5 84 JSR P4A5 89EB 88 DEY 89EC D0 F4 BNE P9E2 89EE 68 PLA 89EF A8 TAY 89F0 60 RTS .P9F1 89F1 20 F8 8D JSR PDF8 89F4 4C 6D 8A JMP PA6D ;*HELP UTILS 89F7 98 TYA 89F8 20 00 8E JSR PE00 89FB A0 14 LDY #&14 89FD D0 C1 BNE P9C0 .P9FF 89FF 20 C5 FF JSR &FFC5 8A02 90 FB BCC P9FF 8A04 B0 EB BCS P9F1 .PA06 8A06 20 5D 8A JSR PA5D 8A09 D0 51 BNE PA5C .PA0B 8A0B A9 DC LDA #&DC 8A0D 4C 25 BB JMP SB25 .PA10 8A10 A2 00 LDX #&00 8A12 A1 AE LDA (&AE,X) 8A14 30 08 BMI PA1E 8A16 20 E3 FF JSR &FFE3 8A19 20 9E 84 JSR P49E 8A1C D0 F2 BNE PA10 .PA1E 8A1E 20 9B 84 JSR P49B 8A21 A1 AE LDA (&AE,X) 8A23 20 9E 84 JSR P49E 8A26 C9 F0 CMP #&F0 8A28 90 08 BCC PA32 8A2A 20 27 84 JSR P427 8A2D 29 1F AND #&1F 8A2F A8 TAY 8A30 D0 0E BNE PA40 .PA32 8A32 20 38 8A JSR PA38 8A35 20 62 8A JSR PA62 .PA38 8A38 20 27 84 JSR P427 8A3B 29 0F AND #&0F 8A3D F0 1D BEQ PA5C 8A3F A8 TAY .PA40 8A40 20 AD 84 JSR P4AD 8A43 A2 00 LDX #&00 .PA45 8A45 BD D1 BD LDA &BDD1,X 8A48 F0 03 BEQ PA4D .PA4A 8A4A E8 INX 8A4B D0 F8 BNE PA45 .PA4D 8A4D 88 DEY 8A4E D0 FA BNE PA4A .PA50 8A50 E8 INX 8A51 BD D1 BD LDA &BDD1,X 8A54 F0 06 BEQ PA5C 8A56 20 E3 FF JSR &FFE3 8A59 4C 50 8A JMP PA50 .PA5C 8A5C 60 RTS .PA5D 8A5D 18 CLC 8A5E 4C C2 FF JMP &FFC2 .PA61 8A61 4A LSR A .PA62 8A62 4A LSR A 8A63 4A LSR A 8A64 4A LSR A 8A65 4A LSR A 8A66 60 RTS ;OSFSC 3 = unrecognised *command 8A67 20 2D 8C JSR PC2D 8A6A 20 F0 8D JSR PDF0 .PA6D 8A6D 20 5D 8A JSR PA5D 8A70 98 TYA 8A71 48 PHA .PA72 8A72 68 PLA 8A73 A8 TAY 8A74 48 PHA 8A75 B1 F2 LDA (&F2),Y 8A77 29 5F AND #&5F 8A79 C9 5A CMP #&5A 8A7B D0 01 BNE PA7E 8A7D C8 INY .PA7E 8A7E A2 00 LDX #&00 8A80 A1 AE LDA (&AE,X) 8A82 F0 45 BEQ PAC9 8A84 30 2F BMI PAB5 8A86 51 F2 EOR (&F2),Y 8A88 29 5F AND #&5F 8A8A F0 0D BEQ PA99 .PA8C 8A8C 20 9E 84 JSR P49E 8A8F A1 AE LDA (&AE,X) 8A91 10 F9 BPL PA8C .PA93 8A93 20 98 84 JSR P498 8A96 4C 72 8A JMP PA72 .PA99 8A99 C8 INY 8A9A 20 9E 84 JSR P49E 8A9D A1 AE LDA (&AE,X) 8A9F 30 1F BMI PAC0 8AA1 51 F2 EOR (&F2),Y 8AA3 29 5F AND #&5F 8AA5 F0 F2 BEQ PA99 8AA7 B1 F2 LDA (&F2),Y 8AA9 C9 2E CMP #&2E 8AAB D0 C5 BNE PA72 .PAAD 8AAD 20 9E 84 JSR P49E 8AB0 A1 AE LDA (&AE,X) 8AB2 10 F9 BPL PAAD 8AB4 C8 INY .PAB5 8AB5 68 PLA 8AB6 A1 AE LDA (&AE,X) 8AB8 48 PHA 8AB9 20 9E 84 JSR P49E 8ABC A1 AE LDA (&AE,X) 8ABE 48 PHA 8ABF 60 RTS .PAC0 8AC0 B1 F2 LDA (&F2),Y 8AC2 20 CB 8A JSR PACB 8AC5 90 CC BCC PA93 8AC7 B0 EC BCS PAB5 .PAC9 8AC9 68 PLA 8ACA 60 RTS .PACB 8ACB 48 PHA 8ACC 29 DF AND #&DF 8ACE C9 41 CMP #&41 8AD0 90 04 BCC PAD6 8AD2 C9 5B CMP #&5B 8AD4 90 01 BCC PAD7 .PAD6 8AD6 38 SEC .PAD7 8AD7 68 PLA 8AD8 60 RTS ;*DRIVE 8AD9 20 06 8A JSR PA06 8ADC 20 5C 93 JSR Q35C 8ADF 8D CB 10 STA &10CB .PAE2 8AE2 29 03 AND #&03 8AE4 85 CF STA &CF 8AE6 20 27 84 JSR P427 8AE9 A5 CF LDA &CF 8AEB 29 01 AND #&01 8AED A8 TAY 8AEE 2C 8F 02 BIT &028F 8AF1 10 22 BPL PB15 8AF3 20 A6 89 JSR P9A6 8AF6 F0 1D BEQ PB15 8AF8 B9 EA 10 LDA &10EA,Y 8AFB C9 FF CMP #&FF 8AFD D0 12 BNE PB11 8AFF 20 BA 84 JSR P4BA 8B02 E0 8F CPX #&8F 8B04 D0 0B BNE PB11 8B06 AD D7 10 LDA &10D7 8B09 30 03 BMI PB0E 8B0B 8E F3 10 STX &10F3 .PB0E 8B0E 4C BA 84 JMP P4BA .PB11 8B11 18 CLC 8B12 4C E0 88 JMP P8E0 .PB15 8B15 60 RTS .PB16 8B16 2C 8F 02 BIT &028F 8B19 30 FA BMI PB15 8B1B 48 PHA 8B1C 20 A6 89 JSR P9A6 8B1F F0 1B BEQ PB3C 8B21 98 TYA 8B22 48 PHA 8B23 A9 7A LDA #&7A 8B25 20 7A 89 JSR P97A 8B28 A9 23 LDA #&23 8B2A 20 DA 8C JSR PCDA 8B2D A4 CF LDY &CF 8B2F B9 A3 BE LDA &BEA3,Y 8B32 20 DA 8C JSR PCDA .PB35 8B35 20 3E 8B JSR PB3E 8B38 F0 FB BEQ PB35 8B3A 68 PLA 8B3B A8 TAY .PB3C 8B3C 68 PLA 8B3D 60 RTS .PB3E 8B3E 2C 8F 02 BIT &028F 8B41 10 03 BPL PB46 .PB43 8B43 A9 44 LDA #&44 8B45 60 RTS .PB46 8B46 20 A6 89 JSR P9A6 8B49 F0 F8 BEQ PB43 8B4B A9 6C LDA #&6C 8B4D 20 7A 89 JSR P97A 8B50 20 94 86 JSR P694 8B53 A5 CF LDA &CF 8B55 4A LSR A 8B56 08 PHP 8B57 AD 81 FE LDA &FE81 8B5A 28 PLP 8B5B 90 03 BCC PB60 8B5D 20 62 8A JSR PA62 .PB60 8B60 29 04 AND #&04 8B62 60 RTS .PB63 8B63 20 73 8B JSR PB73 8B66 CA DEX 8B67 CA DEX 8B68 20 6B 8B JSR PB6B .PB6B 8B6B B1 B0 LDA (&B0),Y 8B6D 9D 72 10 STA &1072,X 8B70 E8 INX 8B71 C8 INY 8B72 60 RTS .PB73 8B73 20 76 8B JSR PB76 .PB76 8B76 B1 B0 LDA (&B0),Y 8B78 95 BC STA &BC,X 8B7A E8 INX 8B7B C8 INY 8B7C 60 RTS .PB7D 8B7D 48 PHA 8B7E 20 65 84 JSR P465 8B81 68 PLA .PB82 8B82 48 PHA 8B83 20 62 8A JSR PA62 8B86 20 8A 8B JSR PB8A 8B89 68 PLA .PB8A 8B8A 48 PHA 8B8B 20 93 8B JSR PB93 8B8E 20 E3 FF JSR &FFE3 8B91 68 PLA 8B92 60 RTS .PB93 8B93 29 0F AND #&0F 8B95 C9 0A CMP #&0A 8B97 90 02 BCC PB9B 8B99 69 06 ADC #&06 .PB9B 8B9B 69 30 ADC #&30 8B9D 60 RTS .PB9E 8B9E 20 27 84 JSR P427 8BA1 48 PHA 8BA2 2C C9 10 BIT &10C9 8BA5 30 10 BMI PBB7 8BA7 A9 8F LDA #&8F 8BA9 A2 0C LDX #&0C 8BAB A0 FF LDY #&FF 8BAD 20 F4 FF JSR &FFF4 8BB0 84 A0 STY &A0 8BB2 A9 FF LDA #&FF 8BB4 8D C9 10 STA &10C9 .PBB7 8BB7 68 PLA 8BB8 C9 07 CMP #&07 ;if 7 or more 8BBA B0 13 BCS PBCF ;then install NMI service routine 7..18 8BBC 2C 8F 02 BIT &028F ;else A=0..6. test keyboard link 1 8BBF 10 0E BPL PBCF ;if made then install NMISRs 0..6 8BC1 18 CLC ;else add 7 to select NMISRs 7..13 8BC2 69 07 ADC #&07 8BC4 C9 09 CMP #&09 ;if NMI no. = 9..13, i.e. 2..6 requested 8BC6 B0 07 BCS PBCF ;then install NMISR 9..13 8BC8 2C D6 10 BIT &10D6 ;else A=7..8, 0..1 requested. test flag 8BCB 10 02 BPL PBCF ;if b7=0 then install NMISR 7..8 8BCD 69 0A ADC #&0A ;else request 0..1 installs NMISR 17..18 .PBCF 8BCF AA TAX 8BD0 BD 74 BF LDA &BF74,X 8BD3 85 B8 STA &B8 8BD5 BD 87 BF LDA &BF87,X 8BD8 85 B9 STA &B9 8BDA A0 00 LDY #&00 8BDC B1 B8 LDA (&B8),Y 8BDE 48 PHA 8BDF A0 30 LDY #&30 8BE1 E0 07 CPX #&07 8BE3 B0 03 BCS PBE8 8BE5 BC 9A BF LDY &BF9A,X .PBE8 8BE8 68 PLA 8BE9 D0 19 BNE PC04 8BEB E0 09 CPX #&09 8BED F0 15 BEQ PC04 8BEF A2 09 LDX #&09 .PBF1 8BF1 BD 9C 89 LDA &899C,X 8BF4 9D 00 0D STA &0D00,X 8BF7 CA DEX 8BF8 10 F7 BPL PBF1 .PBFA 8BFA B1 B8 LDA (&B8),Y 8BFC 99 09 0D STA &0D09,Y 8BFF 88 DEY 8C00 D0 F8 BNE PBFA 8C02 F0 1A BEQ PC1E .PC04 8C04 B1 B8 LDA (&B8),Y 8C06 99 00 0D STA &0D00,Y 8C09 88 DEY 8C0A 10 F8 BPL PC04 8C0C E0 02 CPX #&02 8C0E B0 13 BCS PC23 8C10 CA DEX 8C11 F0 0B BEQ PC1E 8C13 A0 14 LDY #&14 .PC15 8C15 B9 09 BF LDA &BF09,Y 8C18 99 0A 0D STA &0D0A,Y 8C1B 88 DEY 8C1C 10 F7 BPL PC15 .PC1E 8C1E A5 F4 LDA &F4 8C20 8D 44 0D STA &0D44 .PC23 8C23 60 RTS .PC24 8C24 C8 INY .PC25 8C25 C8 INY 8C26 C8 INY 8C27 C8 INY .PC28 8C28 C8 INY 8C29 C8 INY 8C2A C8 INY 8C2B C8 INY 8C2C 60 RTS .PC2D 8C2D 86 F2 STX &F2 8C2F 84 F3 STY &F3 8C31 A0 00 LDY #&00 8C33 60 RTS .PC34 8C34 A9 8F LDA #&8F 8C36 A2 0A LDX #&0A 8C38 20 F4 FF JSR &FFF4 8C3B 20 19 84 JSR P419 8C3E A0 D5 LDY #&D5 8C40 A9 FF LDA #&FF 8C42 91 B0 STA (&B0),Y 8C44 60 RTS .PC45 8C45 18 CLC 8C46 B9 0F 11 LDA &110F,Y 8C49 79 11 11 ADC &1111,Y 8C4C 85 C5 STA &C5 8C4E 99 1C 11 STA &111C,Y 8C51 B9 0D 11 LDA &110D,Y 8C54 2D F4 10 AND &10F4 8C57 79 12 11 ADC &1112,Y 8C5A 85 C4 STA &C4 8C5C 99 1D 11 STA &111D,Y .PC5F 8C5F A9 80 LDA #&80 .PC61 8C61 19 17 11 ORA &1117,Y 8C64 D0 05 BNE PC6B .PC66 8C66 A9 7F LDA #&7F .PC68 8C68 39 17 11 AND &1117,Y .PC6B 8C6B 99 17 11 STA &1117,Y 8C6E 18 CLC 8C6F 60 RTS .PC70 8C70 20 94 86 JSR P694 8C73 AD 81 FE LDA &FE81 8C76 C9 12 CMP #&12 8C78 F0 28 BEQ PCA2 8C7A 20 9B 8D JSR PD9B 8C7D D0 1F BNE PC9E 8C7F 20 6E 8D JSR PD6E 8C82 E6 BA INC &BA 8C84 A9 00 LDA #&00 8C86 85 BB STA &BB 8C88 18 CLC 8C89 AD 7C 10 LDA &107C 8C8C 6D 73 10 ADC &1073 8C8F 8D 73 10 STA &1073 8C92 90 1B BCC PCAF 8C94 EE 74 10 INC &1074 8C97 D0 16 BNE PCAF 8C99 EE 75 10 INC &1075 8C9C D0 11 BNE PCAF .PC9E 8C9E C6 A2 DEC &A2 8CA0 10 03 BPL PCA5 .PCA2 8CA2 4C B7 8F JMP PFB7 .PCA5 8CA5 20 9C 87 JSR P79C 8CA8 8A TXA 8CA9 48 PHA 8CAA 20 E7 8C JSR PCE7 8CAD 68 PLA 8CAE AA TAX .PCAF 8CAF A5 A5 LDA &A5 8CB1 F0 33 BEQ PCE6 8CB3 20 87 87 JSR P787 8CB6 20 90 85 JSR P590 8CB9 A5 A1 LDA &A1 8CBB 20 C6 8D JSR PDC6 8CBE 38 SEC 8CBF A9 0A LDA #&0A 8CC1 E5 BB SBC &BB 8CC3 8D 7C 10 STA &107C 8CC6 A5 A5 LDA &A5 8CC8 C9 01 CMP #&01 8CCA D0 07 BNE PCD3 8CCC A5 A4 LDA &A4 8CCE CD 7C 10 CMP &107C 8CD1 90 03 BCC PCD6 .PCD3 8CD3 AD 7C 10 LDA &107C .PCD6 8CD6 09 20 ORA #&20 8CD8 85 AE STA &AE .PCDA 8CDA 48 PHA .PCDB 8CDB AD 80 FE LDA &FE80 8CDE 29 20 AND #&20 8CE0 D0 F9 BNE PCDB 8CE2 68 PLA 8CE3 8D 81 FE STA &FE81 .PCE6 8CE6 60 RTS .PCE7 8CE7 AD 80 10 LDA &1080 8CEA 48 PHA 8CEB AD D6 10 LDA &10D6 8CEE 4C 17 8D JMP PD17 .PCF1 8CF1 48 PHA 8CF2 8D 80 10 STA &1080 8CF5 A5 BE LDA &BE 8CF7 8D 72 10 STA &1072 8CFA A5 BF LDA &BF 8CFC 8D 73 10 STA &1073 8CFF AD D7 10 LDA &10D7 8D02 10 05 BPL PD09 8D04 A9 00 LDA #&00 8D06 8D 75 10 STA &1075 .PD09 8D09 AD 74 10 LDA &1074 8D0C 2D 75 10 AND &1075 8D0F 0D D7 10 ORA &10D7 8D12 49 FF EOR #&FF 8D14 8D D6 10 STA &10D6 .PD17 8D17 38 SEC 8D18 F0 0A BEQ PD24 8D1A A2 72 LDX #&72 8D1C A0 10 LDY #&10 8D1E 68 PLA 8D1F 48 PHA 8D20 20 06 04 JSR &0406 8D23 18 CLC .PD24 8D24 68 PLA 8D25 60 RTS .PD26 8D26 A9 01 LDA #&01 8D28 20 F1 8C JSR PCF1 8D2B A9 00 LDA #&00 8D2D 8D D6 10 STA &10D6 8D30 F0 05 BEQ PD37 .PD32 8D32 A9 01 LDA #&01 8D34 20 F1 8C JSR PCF1 .PD37 8D37 A9 01 LDA #&01 8D39 20 9E 8B JSR PB9E 8D3C A9 53 LDA #&53 8D3E 2C 8F 02 BIT &028F 8D41 10 02 BPL PD45 8D43 A9 88 LDA #&88 .PD45 8D45 D0 1D BNE PD64 .PD47 8D47 A9 00 LDA #&00 8D49 20 F1 8C JSR PCF1 8D4C 8D D6 10 STA &10D6 8D4F F0 05 BEQ PD56 .PD51 8D51 A9 00 LDA #&00 8D53 20 F1 8C JSR PCF1 .PD56 8D56 A9 00 LDA #&00 8D58 20 9E 8B JSR PB9E 8D5B A9 4B LDA #&4B 8D5D 2C 8F 02 BIT &028F 8D60 10 02 BPL PD64 8D62 A9 A0 LDA #&A0 .PD64 8D64 85 A1 STA &A1 8D66 A9 00 LDA #&00 8D68 85 A6 STA &A6 8D6A A9 0E LDA #&0E 8D6C 85 A7 STA &A7 .PD6E 8D6E A9 0A LDA #&0A 8D70 85 A2 STA &A2 8D72 60 RTS .PD73 8D73 B9 6F BE LDA &BE6F,Y 8D76 8D 6A 0D STA &0D6A 8D79 8A TXA 8D7A 48 PHA 8D7B A2 FF LDX #&FF .PD7D 8D7D C8 INY 8D7E E8 INX 8D7F B9 6F BE LDA &BE6F,Y 8D82 C9 EA CMP #&EA 8D84 F0 06 BEQ PD8C 8D86 9D 6B 0D STA &0D6B,X 8D89 4C 7D 8D JMP PD7D .PD8C 8D8C 8E 69 0D STX &0D69 8D8F 68 PLA 8D90 AA TAX 8D91 C8 INY 8D92 4C 65 86 JMP P665 .PD95 8D95 20 27 84 JSR P427 8D98 4C 12 8F JMP PF12 .PD9B 8D9B 2C 8F 02 BIT &028F 8D9E 50 22 BVC PDC2 8DA0 A5 A1 LDA &A1 8DA2 C9 4B CMP #&4B 8DA4 D0 1C BNE PDC2 8DA6 AD 00 0D LDA &0D00 8DA9 85 AF STA &AF 8DAB A9 40 LDA #&40 8DAD 8D 00 0D STA &0D00 8DB0 A9 5F LDA #&5F 8DB2 20 C6 8D JSR PDC6 8DB5 A5 AE LDA &AE 8DB7 20 DA 8C JSR PCDA 8DBA 20 94 86 JSR P694 8DBD A5 AF LDA &AF 8DBF 8D 00 0D STA &0D00 .PDC2 8DC2 AD 81 FE LDA &FE81 8DC5 60 RTS .PDC6 8DC6 20 7A 89 JSR P97A 8DC9 A5 BA LDA &BA 8DCB 20 DA 8C JSR PCDA 8DCE A5 BB LDA &BB 8DD0 4C DA 8C JMP PCDA .PDD3 8DD3 20 AF 8C JSR PCAF .PDD6 8DD6 A5 A5 LDA &A5 8DD8 D0 FC BNE PDD6 8DDA 60 RTS .PDDB 8DDB A9 FF LDA #&FF 8DDD 20 6A 84 JSR P46A 8DE0 8A TXA 8DE1 29 30 AND #&30 8DE3 49 30 EOR #&30 8DE5 4A LSR A 8DE6 4A LSR A 8DE7 85 B0 STA &B0 8DE9 4A LSR A 8DEA 65 B0 ADC &B0 8DEC A8 TAY 8DED 4C 73 8D JMP PD73 .PDF0 8DF0 A2 73 LDX #&73 8DF2 86 AE STX &AE 8DF4 A2 BC LDX #&BC 8DF6 D0 0E BNE PE06 .PDF8 8DF8 A2 C2 LDX #&C2 8DFA 86 AE STX &AE 8DFC A2 BD LDX #&BD 8DFE D0 06 BNE PE06 .PE00 8E00 A2 16 LDX #&16 8E02 86 AE STX &AE 8E04 A2 BD LDX #&BD .PE06 8E06 86 AF STX &AF 8E08 60 RTS ;*DDFS 8E09 20 5D 81 JSR P15D 8E0C 20 37 8E JSR PE37 8E0F 4C 56 86 JMP P656 .PE12 8E12 F8 SED 8E13 18 CLC 8E14 69 01 ADC #&01 8E16 D8 CLD 8E17 60 RTS .PE18 8E18 38 SEC 8E19 AD 02 0F LDA &0F02 8E1C 10 05 BPL PE23 8E1E 29 3F AND #&3F 8E20 CD F4 10 CMP &10F4 .PE23 8E23 60 RTS ;*ENABLE 8E24 A9 01 LDA #&01 8E26 8D C8 10 STA &10C8 8E29 20 C5 FF JSR &FFC5 8E2C C9 56 CMP #&56 8E2E D0 03 BNE PE33 8E30 EE C8 10 INC &10C8 .PE33 8E33 C9 44 CMP #&44 8E35 D0 13 BNE PE4A .PE37 8E37 2C 8F 02 BIT &028F 8E3A 30 03 BMI PE3F 8E3C 4C A6 9A JMP QAA6 .PE3F 8E3F 20 1E 83 JSR P31E 8E42 A9 10 LDA #&10 .PE44 8E44 20 0D 89 JSR P90D 8E47 4C A2 8E JMP PEA2 .PE4A 8E4A C9 53 CMP #&53 8E4C D0 0E BNE PE5C 8E4E 20 71 84 JSR P471 8E51 EQUS "Single" 8E57 EQUB &A0 8E58 A9 0A LDA #&0A 8E5A D0 E8 BNE PE44 .PE5C 8E5C C9 38 CMP #&38 8E5E D0 13 BNE PE73 ;*DSTEP 8E60 8D F3 10 STA &10F3 8E63 20 A5 84 JSR P4A5 8E66 20 83 8E JSR PE83 8E69 38 SEC 8E6A B0 01 BCS PE6D ;*SSTEP 8E6C 18 CLC .PE6D 8E6D 6E E4 10 ROR &10E4 8E70 4C 56 86 JMP P656 .PE73 8E73 C9 34 CMP #&34 8E75 D0 19 BNE PE90 8E77 A9 FF LDA #&FF 8E79 8D F3 10 STA &10F3 8E7C 20 71 84 JSR P471 8E7F EQUB &0D 8E80 EQUS "No" 8E82 EQUB &A0 .PE83 8E83 20 1E 83 JSR P31E 8E86 20 71 84 JSR P471 8E89 EQUS "Step." 8E8E EQUB &8D .PE8F 8E8F 60 RTS .PE90 8E90 C9 4D CMP #&4D 8E92 D0 FB BNE PE8F .PE94 8E94 20 71 84 JSR P471 8E97 EQUS "MSDOS" 8E9C EQUB &8D 8E9D A9 12 LDA #&12 8E9F 4C 0D 89 JMP P90D .PEA2 8EA2 20 71 84 JSR P471 8EA5 EQUS "Density On." 8EB0 EQUB &8D 8EB1 60 RTS ;*RENAME 8EB2 20 7A 93 JSR Q37A 8EB5 20 00 90 JSR Q000 8EB8 98 TYA 8EB9 48 PHA 8EBA 20 4F 91 JSR Q14F 8EBD 20 E5 93 JSR Q3E5 8EC0 84 B3 STY &B3 8EC2 68 PLA 8EC3 A8 TAY 8EC4 20 18 8E JSR PE18 8EC7 B0 08 BCS PED1 8EC9 AD 00 0F LDA &0F00 8ECC 48 PHA 8ECD AD 01 0F LDA &0F01 8ED0 48 PHA .PED1 8ED1 20 23 A7 JSR R723 8ED4 90 05 BCC PEDB 8ED6 A9 C4 LDA #&C4 8ED8 4C 25 BB JMP SB25 .PEDB 8EDB 20 18 8E JSR PE18 8EDE B0 0D BCS PEED 8EE0 68 PLA 8EE1 8D 03 0F STA &0F03 8EE4 68 PLA 8EE5 09 80 ORA #&80 8EE7 8D 02 0F STA &0F02 8EEA 20 70 A8 JSR R870 .PEED 8EED A4 B3 LDY &B3 8EEF 20 24 8C JSR PC24 8EF2 A2 07 LDX #&07 .PEF4 8EF4 B5 C7 LDA &C7,X 8EF6 99 07 0E STA &0E07,Y 8EF9 88 DEY 8EFA CA DEX 8EFB 10 F7 BPL PEF4 .PEFD 8EFD AD 04 0F LDA &0F04 8F00 20 12 8E JSR PE12 8F03 8D 04 0F STA &0F04 .PF06 8F06 4C 86 A8 JMP R886 .PF09 8F09 20 4C 93 JSR Q34C 8F0C 20 57 93 JSR Q357 .PF0F 8F0F 20 3E 8B JSR PB3E .PF12 8F12 20 71 8F JSR PF71 8F15 A0 00 LDY #&00 8F17 8C D6 10 STY &10D6 8F1A 20 37 8D JSR PD37 8F1D AD EC 10 LDA &10EC 8F20 C9 12 CMP #&12 8F22 D0 07 BNE PF2B 8F24 20 94 8E JSR PE94 8F27 A9 01 LDA #&01 8F29 D0 12 BNE PF3D .PF2B 8F2B A5 C2 LDA &C2 8F2D 48 PHA 8F2E A0 00 LDY #&00 8F30 84 C2 STY &C2 8F32 20 D6 87 JSR P7D6 8F35 68 PLA 8F36 85 C2 STA &C2 8F38 AD 06 0F LDA &0F06 8F3B 29 07 AND #&07 .PF3D 8F3D A4 CF LDY &CF 8F3F 99 E0 10 STA &10E0,Y 8F42 C9 03 CMP #&03 8F44 90 03 BCC PF49 8F46 6E E4 10 ROR &10E4 .PF49 8F49 AD 8F 02 LDA &028F 8F4C 2D FD 10 AND &10FD 8F4F 10 1D BPL PF6E 8F51 AC 05 0F LDY &0F05 .PF54 8F54 C0 08 CPY #&08 8F56 90 16 BCC PF6E 8F58 A9 0C LDA #&0C 8F5A 39 06 0F AND &0F06,Y 8F5D C9 0C CMP #&0C 8F5F D0 08 BNE PF69 8F61 B9 06 0F LDA &0F06,Y 8F64 29 F3 AND #&F3 8F66 99 06 0F STA &0F06,Y .PF69 8F69 20 07 A1 JSR R107 8F6C D0 E6 BNE PF54 .PF6E 8F6E 4C 27 93 JMP Q327 .PF71 8F71 A9 00 LDA #&00 8F73 8D 02 0F STA &0F02 8F76 20 A6 89 JSR P9A6 8F79 F0 08 BEQ PF83 8F7B A9 02 LDA #&02 8F7D 20 9E 8B JSR PB9E 8F80 20 AF 8F JSR PFAF .PF83 8F83 20 27 84 JSR P427 8F86 A9 0E LDA #&0E 8F88 85 A7 STA &A7 8F8A A0 FF LDY #&FF 8F8C 84 BA STY &BA 8F8E C8 INY 8F8F 84 A6 STY &A6 8F91 C8 INY 8F92 84 A5 STY &A5 8F94 C8 INY 8F95 84 A4 STY &A4 8F97 20 18 8E JSR PE18 8F9A 90 06 BCC PFA2 8F9C A9 00 LDA #&00 8F9E AA TAX 8F9F 4C 49 A2 JMP R249 .PFA2 8FA2 AD 00 0F LDA &0F00 8FA5 2D F4 10 AND &10F4 8FA8 AA TAX 8FA9 AD 01 0F LDA &0F01 8FAC 4C 49 A2 JMP R249 .PFAF 8FAF 20 16 8B JSR PB16 8FB2 A0 28 LDY #&28 8FB4 4C 73 8D JMP PD73 .PFB7 8FB7 20 2A 93 JSR Q32A 8FBA C9 12 CMP #&12 8FBC D0 05 BNE PFC3 8FBE A9 C9 LDA #&C9 8FC0 4C 25 BB JMP SB25 .PFC3 8FC3 48 PHA 8FC4 20 71 84 JSR P471 8FC7 EQUB &0D 8FC8 EQUS "Err" 8FCB EQUB &A0 8FCC 68 PLA 8FCD 20 82 8B JSR PB82 8FD0 20 71 84 JSR P471 8FD3 EQUS " at" 8FD6 EQUB &A0 8FD7 A5 CF LDA &CF 8FD9 20 82 8B JSR PB82 8FDC A5 BA LDA &BA 8FDE 20 7D 8B JSR PB7D 8FE1 A5 BB LDA &BB 8FE3 20 7D 8B JSR PB7D 8FE6 4C 4A B4 JMP S44A .PFE9 8FE9 A9 0A LDA #&0A 8FEB A0 04 LDY #&04 .PFED 8FED 99 EC 10 STA &10EC,Y 8FF0 88 DEY 8FF1 10 FA BPL PFED 8FF3 8C EA 10 STY &10EA 8FF6 8C EB 10 STY &10EB 8FF9 C8 INY 8FFA 84 CF STY &CF 8FFC 8C 81 FE STY &FE81 8FFF 60 RTS .Q000 9000 20 06 8A JSR PA06 .Q003 9003 20 4C 93 JSR Q34C 9006 20 90 90 JSR Q090 9009 10 13 BPL Q01E .Q00B 900B 20 4C 93 JSR Q34C .Q00E 900E 20 90 90 JSR Q090 9011 A5 BC LDA &BC 9013 85 F2 STA &F2 9015 A5 BD LDA &BD 9017 85 F3 STA &F3 9019 A0 00 LDY #&00 901B 20 5D 8A JSR PA5D .Q01E 901E A2 01 LDX #&01 .Q020 9020 20 C5 FF JSR &FFC5 9023 B0 6A BCS Q08F 9025 85 C7 STA &C7 9027 C9 2E CMP #&2E 9029 D0 04 BNE Q02F 902B A9 20 LDA #&20 902D D0 3C BNE Q06B .Q02F 902F C9 3A CMP #&3A 9031 D0 18 BNE Q04B 9033 20 C5 FF JSR &FFC5 9036 B0 0C BCS Q044 9038 20 65 93 JSR Q365 903B 20 C5 FF JSR &FFC5 903E B0 4F BCS Q08F 9040 C9 2E CMP #&2E 9042 F0 03 BEQ Q047 .Q044 9044 4C 71 93 JMP Q371 .Q047 9047 A9 24 LDA #&24 9049 D0 20 BNE Q06B .Q04B 904B C9 2A CMP #&2A 904D D0 11 BNE Q060 904F 20 C5 FF JSR &FFC5 9052 B0 08 BCS Q05C 9054 C9 2E CMP #&2E 9056 D0 2D BNE Q085 9058 A9 23 LDA #&23 905A D0 0F BNE Q06B .Q05C 905C A9 23 LDA #&23 905E D0 32 BNE Q092 .Q060 9060 20 C5 FF JSR &FFC5 9063 B0 2A BCS Q08F 9065 C9 2E CMP #&2E 9067 D0 0F BNE Q078 9069 A5 C7 LDA &C7 .Q06B 906B 85 CE STA &CE 906D D0 B1 BNE Q020 .Q06F 906F 20 C5 FF JSR &FFC5 9072 B0 1B BCS Q08F 9074 E0 07 CPX #&07 9076 F0 0D BEQ Q085 .Q078 9078 C9 2A CMP #&2A 907A D0 0E BNE Q08A 907C 20 C5 FF JSR &FFC5 907F 90 04 BCC Q085 9081 A9 23 LDA #&23 9083 D0 0F BNE Q094 .Q085 9085 A9 CC LDA #&CC 9087 4C 25 BB JMP SB25 .Q08A 908A 95 C7 STA &C7,X 908C E8 INX 908D D0 E0 BNE Q06F .Q08F 908F 60 RTS .Q090 9090 A9 20 LDA #&20 .Q092 9092 A2 00 LDX #&00 .Q094 9094 95 C7 STA &C7,X 9096 E8 INX 9097 E0 07 CPX #&07 9099 D0 F9 BNE Q094 909B 60 RTS .Q09C 909C 20 24 8C JSR PC24 909F CC 05 0F CPY &0F05 90A2 B0 63 BCS Q107 90A4 20 24 8C JSR PC24 90A7 A2 07 LDX #&07 .Q0A9 90A9 B5 C7 LDA &C7,X 90AB CD CF 10 CMP &10CF 90AE F0 0E BEQ Q0BE 90B0 20 CB 8A JSR PACB 90B3 59 07 0E EOR &0E07,Y 90B6 B0 02 BCS Q0BA 90B8 29 DF AND #&DF .Q0BA 90BA 29 7F AND #&7F 90BC D0 16 BNE Q0D4 .Q0BE 90BE 88 DEY 90BF CA DEX 90C0 10 E7 BPL Q0A9 90C2 B9 0F 0E LDA &0E0F,Y 90C5 29 7F AND #&7F 90C7 C9 7F CMP #&7F 90C9 F0 D1 BEQ Q09C 90CB C9 3F CMP #&3F 90CD F0 CD BEQ Q09C 90CF 8C CE 10 STY &10CE 90D2 38 SEC 90D3 60 RTS .Q0D4 90D4 88 DEY 90D5 CA DEX 90D6 10 FC BPL Q0D4 90D8 30 C2 BMI Q09C .Q0DA 90DA 20 E5 93 JSR Q3E5 90DD 20 18 8E JSR PE18 90E0 B0 0D BCS Q0EF 90E2 2C 02 0F BIT &0F02 90E5 50 08 BVC Q0EF 90E7 A9 FF LDA #&FF 90E9 99 0F 0E STA &0E0F,Y 90EC 4C 86 A8 JMP R886 .Q0EF 90EF B9 10 0E LDA &0E10,Y 90F2 99 08 0E STA &0E08,Y 90F5 B9 10 0F LDA &0F10,Y 90F8 99 08 0F STA &0F08,Y 90FB C8 INY 90FC CC 05 0F CPY &0F05 90FF D0 EE BNE Q0EF 9101 98 TYA 9102 E9 08 SBC #&08 9104 8D 05 0F STA &0F05 .Q107 9107 18 CLC 9108 60 RTS ;*INFO 9109 20 76 93 JSR Q376 910C 20 43 91 JSR Q143 910F 20 71 84 JSR P471 9112 EQUB &0D 9113 EQUS "Filename: Lck Lo.add Ex.add Length Sct" 9139 EQUB &8D .Q13A 913A 20 7F A0 JSR R07F 913D 20 43 A7 JSR R743 9140 B0 F8 BCS Q13A .Q142 9142 60 RTS .Q143 9143 20 06 8A JSR PA06 9146 20 03 90 JSR Q003 9149 4C 4F 91 JMP Q14F .Q14C 914C 20 0B 90 JSR Q00B .Q14F 914F 20 2F A7 JSR R72F 9152 B0 EE BCS Q142 .Q154 9154 A9 D6 LDA #&D6 9156 4C 25 BB JMP SB25 ;*TITLE 9159 20 06 8A JSR PA06 915C 20 4C 93 JSR Q34C 915F 20 95 8D JSR PD95 9162 38 SEC 9163 20 C2 FF JSR &FFC2 9166 A2 00 LDX #&00 .Q168 9168 20 C5 FF JSR &FFC5 916B C9 0D CMP #&0D 916D F0 05 BEQ Q174 916F 20 7B 91 JSR Q17B 9172 90 F4 BCC Q168 .Q174 9174 A9 00 LDA #&00 9176 20 7B 91 JSR Q17B 9179 90 F9 BCC Q174 .Q17B 917B 9D 00 0E STA &0E00,X 917E E8 INX 917F E0 08 CPX #&08 9181 B0 01 BCS Q184 9183 60 RTS .Q184 9184 68 PLA 9185 68 PLA .Q186 9186 4C FD 8E JMP PEFD ;*ACCESS 9189 20 76 93 JSR Q376 918C 20 00 90 JSR Q000 918F A2 00 LDX #&00 9191 20 5D 8A JSR PA5D 9194 D0 28 BNE Q1BE .Q196 9196 86 AA STX &AA 9198 20 2F A7 JSR R72F 919B B0 04 BCS Q1A1 919D A9 CF LDA #&CF 919F D0 28 BNE Q1C9 .Q1A1 91A1 20 E8 93 JSR Q3E8 91A4 B9 0F 0E LDA &0E0F,Y 91A7 C9 FF CMP #&FF 91A9 F0 0A BEQ Q1B5 91AB 29 7F AND #&7F 91AD 05 AA ORA &AA 91AF 99 0F 0E STA &0E0F,Y 91B2 20 7A A0 JSR R07A .Q1B5 91B5 20 6C A7 JSR R76C 91B8 B0 E7 BCS Q1A1 91BA 90 CA BCC Q186 .Q1BC 91BC A2 80 LDX #&80 .Q1BE 91BE 20 C5 FF JSR &FFC5 91C1 B0 D3 BCS Q196 91C3 C9 4C CMP #&4C 91C5 F0 F5 BEQ Q1BC 91C7 A9 FE LDA #&FE .Q1C9 91C9 4C 25 BB JMP SB25 ;*DELETE 91CC 20 7A 93 JSR Q37A 91CF 20 43 91 JSR Q143 91D2 20 7A A0 JSR R07A .Q1D5 91D5 20 DA 90 JSR Q0DA 91D8 4C FD 8E JMP PEFD ;*WIPE 91DB 20 76 93 JSR Q376 91DE 20 43 91 JSR Q143 .Q1E1 91E1 B9 0F 0E LDA &0E0F,Y 91E4 30 15 BMI Q1FB 91E6 C9 3F CMP #&3F 91E8 F0 11 BEQ Q1FB 91EA 20 80 93 JSR Q380 91ED 20 71 84 JSR P471 91F0 EQUS " :" 91F2 EQUB &A0 91F3 20 87 94 JSR Q487 91F6 F0 09 BEQ Q201 .Q1F8 91F8 20 A5 84 JSR P4A5 .Q1FB 91FB 20 43 A7 JSR R743 91FE B0 E1 BCS Q1E1 9200 60 RTS .Q201 9201 20 D5 91 JSR Q1D5 9204 AC CE 10 LDY &10CE 9207 20 07 A1 JSR R107 920A 8C CE 10 STY &10CE 920D 4C F8 91 JMP Q1F8 ;*DIR 9210 A2 00 LDX #&00 9212 F0 02 BEQ Q216 ;*LIB 9214 A2 02 LDX #&02 .Q216 9216 20 A2 94 JSR Q4A2 9219 9D CB 10 STA &10CB,X 921C A5 CE LDA &CE 921E 9D CA 10 STA &10CA,X 9221 60 RTS ;*BUILD 9222 20 C1 A6 JSR R6C1 9225 A9 80 LDA #&80 9227 20 CE FF JSR &FFCE 922A 85 AB STA &AB .Q22C 922C 20 DC 94 JSR Q4DC 922F 20 B2 92 JSR Q2B2 9232 A2 AC LDX #&AC 9234 A0 FF LDY #&FF 9236 84 AE STY &AE 9238 84 B0 STY &B0 923A C8 INY 923B 84 AC STY &AC 923D 84 AF STY &AF 923F 98 TYA 9240 20 F1 FF JSR &FFF1 9243 08 PHP 9244 84 AA STY &AA 9246 A4 AB LDY &AB 9248 A2 00 LDX #&00 924A F0 07 BEQ Q253 .Q24C 924C A1 AC LDA (&AC,X) 924E 20 D4 FF JSR &FFD4 9251 E6 AC INC &AC .Q253 9253 A5 AC LDA &AC 9255 C5 AA CMP &AA 9257 D0 F3 BNE Q24C 9259 28 PLP 925A B0 08 BCS Q264 925C A9 0D LDA #&0D 925E 20 D4 FF JSR &FFD4 9261 4C 2C 92 JMP Q22C .Q264 9264 A9 7E LDA #&7E 9266 20 F4 FF JSR &FFF4 9269 4C AA 92 JMP Q2AA ;*TYPE 926C 20 C1 A6 JSR R6C1 926F A9 00 LDA #&00 9271 F0 05 BEQ Q278 ;*LIST 9273 20 C1 A6 JSR R6C1 9276 A9 FF LDA #&FF .Q278 9278 85 AB STA &AB 927A A9 40 LDA #&40 927C 20 CE FF JSR &FFCE 927F A8 TAY 9280 A9 0D LDA #&0D 9282 C0 00 CPY #&00 9284 D0 1B BNE Q2A1 .Q286 9286 4C 54 91 JMP Q154 .Q289 9289 20 D7 FF JSR &FFD7 928C B0 1B BCS Q2A9 928E C9 0A CMP #&0A 9290 F0 F7 BEQ Q289 9292 28 PLP 9293 D0 05 BNE Q29A 9295 48 PHA 9296 20 DC 94 JSR Q4DC 9299 68 PLA .Q29A 929A 20 E3 FF JSR &FFE3 929D 24 FF BIT &FF 929F 30 09 BMI Q2AA .Q2A1 92A1 25 AB AND &AB 92A3 C9 0D CMP #&0D 92A5 08 PHP 92A6 4C 89 92 JMP Q289 .Q2A9 92A9 28 PLP .Q2AA 92AA A9 00 LDA #&00 92AC 20 CE FF JSR &FFCE 92AF 4C A5 84 JMP P4A5 .Q2B2 92B2 A6 F4 LDX &F4 92B4 BD F0 0D LDA &0DF0,X 92B7 85 AD STA &AD 92B9 E6 AD INC &AD 92BB 60 RTS ;*DUMP 92BC 20 C1 A6 JSR R6C1 92BF A9 40 LDA #&40 92C1 20 CE FF JSR &FFCE 92C4 A8 TAY 92C5 F0 BF BEQ Q286 92C7 20 B2 92 JSR Q2B2 92CA A9 00 LDA #&00 92CC F0 09 BEQ Q2D7 .Q2CE 92CE 24 FF BIT &FF 92D0 30 D8 BMI Q2AA 92D2 20 A5 84 JSR P4A5 92D5 A9 08 LDA #&08 .Q2D7 92D7 18 CLC 92D8 65 A8 ADC &A8 92DA 20 E2 94 JSR Q4E2 92DD A9 07 LDA #&07 92DF 85 AC STA &AC 92E1 A2 00 LDX #&00 .Q2E3 92E3 20 D7 FF JSR &FFD7 92E6 B0 0D BCS Q2F5 92E8 81 AC STA (&AC,X) 92EA 20 82 8B JSR PB82 92ED 20 AD 84 JSR P4AD 92F0 C6 AC DEC &AC 92F2 10 EF BPL Q2E3 92F4 18 CLC .Q2F5 92F5 08 PHP 92F6 90 0E BCC Q306 .Q2F8 92F8 20 71 84 JSR P471 92FB EQUS "**" 92FD EQUB &A0 92FE A9 20 LDA #&20 9300 81 AC STA (&AC,X) 9302 C6 AC DEC &AC 9304 10 F2 BPL Q2F8 .Q306 9306 A9 07 LDA #&07 9308 85 AC STA &AC .Q30A 930A A1 AC LDA (&AC,X) 930C 20 18 93 JSR Q318 930F C6 AC DEC &AC 9311 10 F7 BPL Q30A 9313 28 PLP 9314 90 B8 BCC Q2CE 9316 B0 92 BCS Q2AA .Q318 9318 29 7F AND #&7F 931A C9 7F CMP #&7F 931C B0 04 BCS Q322 931E C9 20 CMP #&20 9320 B0 02 BCS Q324 .Q322 9322 A9 2E LDA #&2E .Q324 9324 4C E3 FF JMP &FFE3 .Q327 9327 20 6C 86 JSR P66C .Q32A 932A 20 27 84 JSR P427 932D 2C C9 10 BIT &10C9 9330 10 10 BPL Q342 9332 20 27 84 JSR P427 9335 A4 A0 LDY &A0 9337 C0 FF CPY #&FF 9339 F0 07 BEQ Q342 933B A2 0B LDX #&0B 933D A9 8F LDA #&8F 933F 20 F4 FF JSR &FFF4 .Q342 9342 18 CLC 9343 6E C9 10 ROR &10C9 9346 AD EC 10 LDA &10EC 9349 4C 0D 89 JMP P90D .Q34C 934C AD CA 10 LDA &10CA 934F 85 CE STA &CE .Q351 9351 AD CB 10 LDA &10CB 9354 4C E2 8A JMP PAE2 .Q357 9357 20 5D 8A JSR PA5D 935A F0 F5 BEQ Q351 .Q35C 935C 20 C5 FF JSR &FFC5 935F B0 10 BCS Q371 9361 C9 3A CMP #&3A 9363 F0 F7 BEQ Q35C .Q365 9365 38 SEC 9366 E9 30 SBC #&30 9368 90 07 BCC Q371 936A C9 04 CMP #&04 936C B0 03 BCS Q371 936E 4C E2 8A JMP PAE2 .Q371 9371 A9 CD LDA #&CD 9373 4C 25 BB JMP SB25 .Q376 9376 A9 23 LDA #&23 9378 D0 02 BNE Q37C .Q37A 937A A9 FF LDA #&FF .Q37C 937C 8D CF 10 STA &10CF .Q37F 937F 60 RTS .Q380 9380 20 27 84 JSR P427 9383 B9 0F 0E LDA &0E0F,Y 9386 C9 FF CMP #&FF 9388 D0 01 BNE Q38B .Q38A 938A 60 RTS .Q38B 938B 29 7F AND #&7F 938D C9 3F CMP #&3F 938F F0 F9 BEQ Q38A 9391 B9 0F 0E LDA &0E0F,Y 9394 08 PHP 9395 29 7F AND #&7F 9397 D0 05 BNE Q39E 9399 20 AA 84 JSR P4AA 939C F0 06 BEQ Q3A4 .Q39E 939E 20 E3 FF JSR &FFE3 93A1 20 65 84 JSR P465 .Q3A4 93A4 A2 06 LDX #&06 .Q3A6 93A6 B9 08 0E LDA &0E08,Y 93A9 29 7F AND #&7F 93AB 20 E3 FF JSR &FFE3 93AE C8 INY 93AF CA DEX 93B0 10 F4 BPL Q3A6 93B2 20 AA 84 JSR P4AA 93B5 A9 20 LDA #&20 93B7 28 PLP 93B8 10 02 BPL Q3BC 93BA A9 4C LDA #&4C .Q3BC 93BC 20 E3 FF JSR &FFE3 93BF 4C AD 84 JMP P4AD 93C2 20 27 84 JSR P427 93C5 AD 04 0F LDA &0F04 93C8 20 95 8D JSR PD95 93CB CD 04 0F CMP &0F04 93CE F0 AF BEQ Q37F .Q3D0 93D0 A9 C8 LDA #&C8 93D2 4C 25 BB JMP SB25 .Q3D5 93D5 20 FF 93 JSR Q3FF 93D8 90 20 BCC Q3FA .Q3DA 93DA B9 0F 0E LDA &0E0F,Y 93DD 30 01 BMI Q3E0 93DF 60 RTS .Q3E0 93E0 A9 C3 LDA #&C3 93E2 4C 25 BB JMP SB25 .Q3E5 93E5 20 DA 93 JSR Q3DA .Q3E8 93E8 20 27 84 JSR P427 93EB 20 14 94 JSR Q414 93EE 90 0E BCC Q3FE 93F0 A9 C2 LDA #&C2 93F2 4C 25 BB JMP SB25 .Q3F5 93F5 20 FF 93 JSR Q3FF 93F8 B0 04 BCS Q3FE .Q3FA 93FA 68 PLA 93FB 68 PLA 93FC A9 00 LDA #&00 .Q3FE 93FE 60 RTS .Q3FF 93FF 20 0B 90 JSR Q00B 9402 20 2F A7 JSR R72F 9405 90 F7 BCC Q3FE 9407 98 TYA 9408 AA TAX .Q409 9409 AD DC 10 LDA &10DC 940C 85 B0 STA &B0 940E AD DD 10 LDA &10DD 9411 85 B1 STA &B1 9413 60 RTS .Q414 9414 A9 00 LDA #&00 9416 8D C2 10 STA &10C2 9419 A9 08 LDA #&08 941B 85 B5 STA &B5 941D 98 TYA 941E AA TAX 941F A0 A0 LDY #&A0 .Q421 9421 84 B3 STY &B3 9423 8A TXA 9424 48 PHA 9425 A9 08 LDA #&08 9427 85 B2 STA &B2 9429 A5 B5 LDA &B5 942B 2C C0 10 BIT &10C0 942E F0 1D BEQ Q44D 9430 B9 17 11 LDA &1117,Y 9433 45 CF EOR &CF 9435 29 03 AND #&03 9437 D0 1A BNE Q453 .Q439 9439 BD 08 0E LDA &0E08,X 943C 59 00 11 EOR &1100,Y 943F 29 7F AND #&7F 9441 D0 10 BNE Q453 9443 E8 INX 9444 C8 INY 9445 C8 INY 9446 C6 B2 DEC &B2 9448 D0 EF BNE Q439 944A 38 SEC 944B B0 10 BCS Q45D .Q44D 944D 8C C2 10 STY &10C2 9450 8D C1 10 STA &10C1 .Q453 9453 38 SEC 9454 A5 B3 LDA &B3 9456 E9 20 SBC #&20 9458 85 B3 STA &B3 945A 06 B5 ASL &B5 945C 18 CLC .Q45D 945D 68 PLA 945E AA TAX 945F A4 B3 LDY &B3 9461 A5 B5 LDA &B5 9463 B0 02 BCS Q467 9465 D0 BA BNE Q421 .Q467 9467 60 RTS .Q468 9468 2C C8 10 BIT &10C8 946B 10 FA BPL Q467 946D A9 BD LDA #&BD 946F 4C 25 BB JMP SB25 .Q472 9472 20 27 84 JSR P427 9475 A9 0F LDA #&0F 9477 A2 01 LDX #&01 9479 4C 42 B8 JMP S842 .Q47C 947C 20 72 94 JSR Q472 947F 20 E0 FF JSR &FFE0 9482 B0 19 BCS Q49D 9484 4C A5 84 JMP P4A5 .Q487 9487 20 72 94 JSR Q472 948A 20 E0 FF JSR &FFE0 948D B0 0E BCS Q49D 948F 29 5F AND #&5F 9491 C9 59 CMP #&59 9493 08 PHP 9494 F0 02 BEQ Q498 9496 A9 4E LDA #&4E .Q498 9498 20 E3 FF JSR &FFE3 949B 28 PLP 949C 60 RTS .Q49D 949D A9 11 LDA #&11 949F 4C 25 BB JMP SB25 .Q4A2 94A2 A9 24 LDA #&24 94A4 85 CE STA &CE 94A6 20 5D 8A JSR PA5D 94A9 D0 07 BNE Q4B2 94AB A9 00 LDA #&00 94AD 20 E2 8A JSR PAE2 94B0 F0 27 BEQ Q4D9 .Q4B2 94B2 AD CB 10 LDA &10CB 94B5 20 E2 8A JSR PAE2 .Q4B8 94B8 20 C5 FF JSR &FFC5 94BB B0 10 BCS Q4CD 94BD C9 3A CMP #&3A 94BF D0 11 BNE Q4D2 94C1 20 5C 93 JSR Q35C 94C4 20 C5 FF JSR &FFC5 94C7 B0 10 BCS Q4D9 94C9 C9 2E CMP #&2E 94CB F0 EB BEQ Q4B8 .Q4CD 94CD A9 CE LDA #&CE 94CF 4C 25 BB JMP SB25 .Q4D2 94D2 85 CE STA &CE 94D4 20 C5 FF JSR &FFC5 94D7 90 F4 BCC Q4CD .Q4D9 94D9 A5 CF LDA &CF 94DB 60 RTS .Q4DC 94DC F8 SED 94DD 18 CLC 94DE A5 A8 LDA &A8 94E0 69 01 ADC #&01 .Q4E2 94E2 85 A8 STA &A8 94E4 90 02 BCC Q4E8 94E6 E6 A9 INC &A9 .Q4E8 94E8 D8 CLD 94E9 A5 A9 LDA &A9 94EB 20 82 8B JSR PB82 94EE A5 A8 LDA &A8 94F0 20 82 8B JSR PB82 94F3 4C AD 84 JMP P4AD ;*COPY 94F6 20 76 93 JSR Q376 94F9 20 F5 96 JSR Q6F5 94FC 20 00 90 JSR Q000 94FF 20 17 9A JSR QA17 9502 20 95 8D JSR PD95 9505 20 74 98 JSR Q874 9508 20 4F 91 JSR Q14F 950B 20 4B A7 JSR R74B .Q50E 950E 84 AB STY &AB 9510 20 7F A0 JSR R07F 9513 A2 00 LDX #&00 .Q515 9515 B5 C7 LDA &C7,X 9517 9D 58 10 STA &1058,X 951A B9 08 0E LDA &0E08,Y 951D 95 C7 STA &C7,X 951F 9D 50 10 STA &1050,X 9522 B9 08 0F LDA &0F08,Y 9525 95 BD STA &BD,X 9527 9D 47 10 STA &1047,X 952A C8 INY 952B E8 INX 952C E0 08 CPX #&08 952E D0 E5 BNE Q515 9530 A5 C3 LDA &C3 9532 20 A8 A2 JSR R2A8 9535 85 C5 STA &C5 9537 A5 C1 LDA &C1 9539 18 CLC 953A 69 FF ADC #&FF 953C A5 C2 LDA &C2 953E 69 00 ADC #&00 9540 85 C6 STA &C6 9542 A5 C5 LDA &C5 9544 69 00 ADC #&00 9546 85 C7 STA &C7 9548 AD 4E 10 LDA &104E 954B 85 C8 STA &C8 954D AD 4D 10 LDA &104D 9550 2D F4 10 AND &10F4 9553 85 C9 STA &C9 9555 A9 FF LDA #&FF 9557 85 A8 STA &A8 9559 20 5A 97 JSR Q75A 955C 20 22 98 JSR Q822 955F 20 11 9A JSR QA11 9562 20 40 A8 JSR R840 9565 A2 07 LDX #&07 .Q567 9567 24 FF BIT &FF 9569 30 12 BMI Q57D 956B BD 58 10 LDA &1058,X 956E 95 C7 STA &C7,X 9570 CA DEX 9571 10 F4 BPL Q567 9573 A4 AB LDY &AB 9575 8C CE 10 STY &10CE 9578 20 43 A7 JSR R743 957B B0 91 BCS Q50E .Q57D 957D 60 RTS ;*BACKUP 957E 20 68 94 JSR Q468 9581 20 F5 96 JSR Q6F5 9584 A9 00 LDA #&00 9586 85 C8 STA &C8 9588 85 C9 STA &C9 958A 85 CA STA &CA 958C 85 CB STA &CB 958E 85 A8 STA &A8 9590 20 74 98 JSR Q874 9593 AD F1 10 LDA &10F1 9596 8D F2 10 STA &10F2 9599 AD 07 0F LDA &0F07 959C 85 C6 STA &C6 959E AD 06 0F LDA &0F06 95A1 48 PHA 95A2 29 0F AND #&0F 95A4 85 C7 STA &C7 95A6 68 PLA 95A7 29 F0 AND #&F0 95A9 8D D8 10 STA &10D8 95AC 20 2D 98 JSR Q82D 95AF 20 17 9A JSR QA17 95B2 20 7E 98 JSR Q87E 95B5 AD 06 0F LDA &0F06 95B8 48 PHA 95B9 29 0F AND #&0F 95BB C5 C7 CMP &C7 95BD B0 03 BCS Q5C2 95BF 4C A7 A1 JMP R1A7 .Q5C2 95C2 AD 07 0F LDA &0F07 95C5 48 PHA 95C6 20 5A 97 JSR Q75A 95C9 20 12 8F JSR PF12 95CC 68 PLA 95CD 8D 07 0F STA &0F07 95D0 68 PLA 95D1 29 0F AND #&0F 95D3 0D D8 10 ORA &10D8 95D6 8D 06 0F STA &0F06 95D9 20 06 8F JSR PF06 .Q5DC 95DC CE C8 10 DEC &10C8 95DF F0 01 BEQ Q5E2 95E1 60 RTS .Q5E2 95E2 4C 83 99 JMP Q983 ;*COMPACT 95E5 20 57 93 JSR Q357 95E8 20 12 8F JSR PF12 95EB 20 71 84 JSR P471 95EE EQUS "Compact drive" 95FB EQUB &A0 95FC A5 CF LDA &CF 95FE 8D D2 10 STA &10D2 9601 8D D3 10 STA &10D3 9604 20 8A 8B JSR PB8A 9607 20 A5 84 JSR P4A5 960A A0 00 LDY #&00 960C 20 37 9D JSR QD37 960F 20 45 97 JSR Q745 9612 20 C7 98 JSR Q8C7 9615 AC 05 0F LDY &0F05 9618 84 CC STY &CC 961A A9 02 LDA #&02 961C 85 CA STA &CA 961E A9 00 LDA #&00 9620 85 CB STA &CB 9622 20 18 8E JSR PE18 9625 B0 15 BCS Q63C 9627 AD 01 0F LDA &0F01 962A 65 CA ADC &CA 962C 85 CA STA &CA 962E AD 00 0F LDA &0F00 9631 65 CB ADC &CB 9633 85 CB STA &CB 9635 A4 CC LDY &CC 9637 20 07 A1 JSR R107 963A 84 CC STY &CC .Q63C 963C A4 CC LDY &CC 963E 20 07 A1 JSR R107 9641 C0 F8 CPY #&F8 9643 D0 35 BNE Q67A 9645 20 71 84 JSR P471 9648 EQUS "Disk has " 9651 EQUB &A6 9652 AD 07 0F LDA &0F07 9655 38 SEC 9656 E5 CA SBC &CA 9658 48 PHA 9659 AD 06 0F LDA &0F06 965C 29 07 AND #&07 965E E5 CB SBC &CB .Q660 9660 20 8A 8B JSR PB8A 9663 68 PLA 9664 20 82 8B JSR PB82 9667 20 71 84 JSR P471 966A EQUS " free sectors" 9677 EQUB &0D 9678 EQUB &8D 9679 60 RTS .Q67A 967A 84 CC STY &CC 967C 20 7A A0 JSR R07A 967F A4 CC LDY &CC 9681 B9 0E 0F LDA &0F0E,Y 9684 29 38 AND #&38 9686 19 0D 0F ORA &0F0D,Y 9689 19 0C 0F ORA &0F0C,Y 968C F0 5C BEQ Q6EA 968E A9 00 LDA #&00 9690 85 BE STA &BE 9692 85 C2 STA &C2 9694 A9 FF LDA #&FF 9696 18 CLC 9697 79 0C 0F ADC &0F0C,Y 969A A9 00 LDA #&00 969C 79 0D 0F ADC &0F0D,Y 969F 85 C6 STA &C6 96A1 B9 0E 0F LDA &0F0E,Y 96A4 20 A8 A2 JSR R2A8 96A7 69 00 ADC #&00 96A9 85 C7 STA &C7 96AB B9 0F 0F LDA &0F0F,Y 96AE 85 C8 STA &C8 96B0 B9 0E 0F LDA &0F0E,Y 96B3 29 07 AND #&07 96B5 85 C9 STA &C9 96B7 C5 CB CMP &CB 96B9 D0 14 BNE Q6CF 96BB A5 C8 LDA &C8 96BD C5 CA CMP &CA 96BF D0 0E BNE Q6CF 96C1 18 CLC 96C2 65 C6 ADC &C6 96C4 85 CA STA &CA 96C6 A5 CB LDA &CB 96C8 65 C7 ADC &C7 96CA 85 CB STA &CB 96CC 4C ED 96 JMP Q6ED .Q6CF 96CF A5 CA LDA &CA 96D1 99 0F 0F STA &0F0F,Y 96D4 B9 0E 0F LDA &0F0E,Y 96D7 29 F8 AND #&F8 96D9 05 CB ORA &CB 96DB 99 0E 0F STA &0F0E,Y 96DE A9 00 LDA #&00 96E0 85 A8 STA &A8 96E2 85 A9 STA &A9 96E4 20 5A 97 JSR Q75A 96E7 20 06 8F JSR PF06 .Q6EA 96EA 20 27 93 JSR Q327 .Q6ED 96ED A4 CC LDY &CC 96EF 20 7F A0 JSR R07F 96F2 4C 3C 96 JMP Q63C .Q6F5 96F5 20 06 8A JSR PA06 96F8 20 5C 93 JSR Q35C 96FB 8D D2 10 STA &10D2 96FE 20 06 8A JSR PA06 9701 20 5C 93 JSR Q35C 9704 8D D3 10 STA &10D3 9707 98 TYA 9708 48 PHA 9709 A9 00 LDA #&00 970B 85 A9 STA &A9 970D AD D3 10 LDA &10D3 9710 CD D2 10 CMP &10D2 9713 D0 06 BNE Q71B 9715 A9 FF LDA #&FF 9717 85 A9 STA &A9 9719 85 AA STA &AA .Q71B 971B 20 45 97 JSR Q745 971E 20 71 84 JSR P471 9721 EQUS "Copy from" 972A EQUB &A0 972B AD D2 10 LDA &10D2 972E 20 8A 8B JSR PB8A 9731 20 71 84 JSR P471 9734 EQUS " to" 9737 EQUB &A0 9738 AD D3 10 LDA &10D3 973B 20 8A 8B JSR PB8A 973E 20 A5 84 JSR P4A5 9741 68 PLA 9742 A8 TAY 9743 18 CLC 9744 60 RTS .Q745 9745 AC 44 02 LDY &0244 9748 8C D0 10 STY &10D0 974B AC 4E 03 LDY &034E 974E 8C D1 10 STY &10D1 9751 98 TYA 9752 38 SEC 9753 ED D0 10 SBC &10D0 9756 8D D1 10 STA &10D1 9759 60 RTS .Q75A 975A A9 00 LDA #&00 975C 85 BE STA &BE 975E 85 C2 STA &C2 .Q760 9760 A5 C6 LDA &C6 9762 A8 TAY 9763 CD D1 10 CMP &10D1 9766 A5 C7 LDA &C7 9768 E9 00 SBC #&00 976A 90 03 BCC Q76F 976C AC D1 10 LDY &10D1 .Q76F 976F 84 C3 STY &C3 9771 A5 C8 LDA &C8 9773 85 C5 STA &C5 9775 A5 C9 LDA &C9 9777 85 C4 STA &C4 9779 AD D0 10 LDA &10D0 977C 85 BF STA &BF 977E 20 11 9A JSR QA11 9781 20 22 98 JSR Q822 9784 20 92 98 JSR Q892 9787 20 36 9F JSR QF36 978A 20 17 9A JSR QA17 978D 24 A8 BIT &A8 978F 10 07 BPL Q798 9791 20 D7 97 JSR Q7D7 9794 A9 00 LDA #&00 9796 85 A8 STA &A8 .Q798 9798 A5 CA LDA &CA 979A 85 C5 STA &C5 979C A5 CB LDA &CB 979E 85 C4 STA &C4 97A0 AD D0 10 LDA &10D0 97A3 85 BF STA &BF 97A5 20 2D 98 JSR Q82D 97A8 20 96 98 JSR Q896 97AB 20 FC 9E JSR QEFC 97AE A5 C3 LDA &C3 97B0 18 CLC 97B1 65 CA ADC &CA 97B3 85 CA STA &CA 97B5 90 02 BCC Q7B9 97B7 E6 CB INC &CB .Q7B9 97B9 A5 C3 LDA &C3 97BB 18 CLC 97BC 65 C8 ADC &C8 97BE 85 C8 STA &C8 97C0 90 02 BCC Q7C4 97C2 E6 C9 INC &C9 .Q7C4 97C4 38 SEC 97C5 A5 C6 LDA &C6 97C7 E5 C3 SBC &C3 97C9 85 C6 STA &C6 97CB B0 02 BCS Q7CF 97CD C6 C7 DEC &C7 .Q7CF 97CF 05 C7 ORA &C7 97D1 D0 01 BNE Q7D4 97D3 60 RTS .Q7D4 97D4 4C 60 97 JMP Q760 .Q7D7 97D7 20 11 98 JSR Q811 97DA 20 2D 98 JSR Q82D 97DD 20 17 9A JSR QA17 97E0 A5 CE LDA &CE 97E2 48 PHA 97E3 20 7E 98 JSR Q87E 97E6 20 2F A7 JSR R72F 97E9 90 03 BCC Q7EE 97EB 20 DA 90 JSR Q0DA .Q7EE 97EE 68 PLA 97EF 85 CE STA &CE 97F1 20 F8 A1 JSR R1F8 97F4 A5 C4 LDA &C4 97F6 20 A8 A2 JSR R2A8 97F9 85 C6 STA &C6 97FB 20 37 A1 JSR R137 97FE A5 C4 LDA &C4 9800 2D F4 10 AND &10F4 9803 48 PHA 9804 A5 C5 LDA &C5 9806 48 PHA 9807 20 11 98 JSR Q811 980A 68 PLA 980B 85 CA STA &CA 980D 68 PLA 980E 85 CB STA &CB 9810 60 RTS .Q811 9811 A2 11 LDX #&11 .Q813 9813 BD 45 10 LDA &1045,X 9816 B4 BC LDY &BC,X 9818 95 BC STA &BC,X 981A 98 TYA 981B 9D 45 10 STA &1045,X 981E CA DEX 981F 10 F2 BPL Q813 9821 60 RTS .Q822 9822 20 27 84 JSR P427 9825 24 A9 BIT &A9 9827 10 0B BPL Q834 9829 A9 00 LDA #&00 982B F0 0A BEQ Q837 .Q82D 982D 20 27 84 JSR P427 9830 24 A9 BIT &A9 9832 30 01 BMI Q835 .Q834 9834 60 RTS .Q835 9835 A9 80 LDA #&80 .Q837 9837 C5 AA CMP &AA 9839 F0 F9 BEQ Q834 983B 85 AA STA &AA 983D 20 71 84 JSR P471 9840 EQUS "Place" 9845 EQUB &A0 9846 24 AA BIT &AA 9848 30 0C BMI Q856 984A 20 71 84 JSR P471 984D EQUS "source" 9853 EQUB &A0 9854 90 09 BCC Q85F .Q856 9856 20 71 84 JSR P471 9859 EQUS "destn" 985E EQUB &A0 .Q85F 985F 20 71 84 JSR P471 9862 EQUS "disk, hit a ke" 9870 EQUB &F9 9871 4C 7C 94 JMP Q47C .Q874 9874 20 22 98 JSR Q822 9877 20 11 9A JSR QA11 987A A2 00 LDX #&00 987C F0 02 BEQ Q880 .Q87E 987E A2 01 LDX #&01 .Q880 9880 20 95 8D JSR PD95 .Q883 9883 A4 CF LDY &CF 9885 B9 E0 10 LDA &10E0,Y 9888 9D F1 10 STA &10F1,X 988B AD EC 10 LDA &10EC 988E 9D ED 10 STA &10ED,X 9891 60 RTS .Q892 9892 A2 00 LDX #&00 9894 F0 02 BEQ Q898 .Q896 9896 A2 01 LDX #&01 .Q898 9898 AD D2 10 LDA &10D2 989B 4D D3 10 EOR &10D3 989E 29 01 AND #&01 98A0 D0 19 BNE Q8BB 98A2 AD F1 10 LDA &10F1 98A5 CD F2 10 CMP &10F2 98A8 F0 11 BEQ Q8BB 98AA BD ED 10 LDA &10ED,X 98AD 20 0D 89 JSR P90D 98B0 20 95 8D JSR PD95 98B3 BD F1 10 LDA &10F1,X 98B6 A4 CF LDY &CF 98B8 99 E0 10 STA &10E0,Y .Q8BB 98BB 48 PHA 98BC A9 FF LDA #&FF 98BE 8D 74 10 STA &1074 98C1 8D 75 10 STA &1075 98C4 68 PLA 98C5 60 RTS 98C6 60 RTS .Q8C7 98C7 20 57 84 JSR P457 98CA 20 7E 98 JSR Q87E 98CD CA DEX 98CE 20 83 98 JSR Q883 98D1 4C 5C A8 JMP R85C ;*F40 98D4 A9 28 LDA #&28 98D6 D0 02 BNE Q8DA ;*F80 98D8 A9 50 LDA #&50 .Q8DA 98DA 85 C7 STA &C7 98DC 20 68 94 JSR Q468 98DF 20 57 93 JSR Q357 98E2 AD EC 10 LDA &10EC 98E5 20 0D 89 JSR P90D 98E8 A5 C7 LDA &C7 98EA 20 88 B3 JSR S388 98ED 2C 8F 02 BIT &028F 98F0 08 PHP 98F1 10 0F BPL Q902 98F3 A9 00 LDA #&00 98F5 20 D0 86 JSR P6D0 98F8 A9 1E LDA #&1E 98FA 8D 87 FE STA &FE87 98FD A9 10 LDA #&10 98FF 20 D0 86 JSR P6D0 .Q902 9902 28 PLP 9903 30 03 BMI Q908 9905 20 16 8B JSR PB16 .Q908 9908 20 71 8F JSR PF71 990B A9 00 LDA #&00 990D AA TAX 990E A8 TAY .Q90F 990F A9 00 LDA #&00 9911 9D 00 0E STA &0E00,X 9914 A5 CF LDA &CF 9916 4A LSR A 9917 29 01 AND #&01 9919 9D 01 0E STA &0E01,X 991C 98 TYA 991D 9D 02 0E STA &0E02,X 9920 A9 01 LDA #&01 9922 9D 03 0E STA &0E03,X 9925 E8 INX 9926 E8 INX 9927 E8 INX 9928 E8 INX 9929 C8 INY 992A CC EC 10 CPY &10EC 992D 90 E0 BCC Q90F 992F 20 F3 B2 JSR S2F3 9932 AD EC 10 LDA &10EC 9935 09 20 ORA #&20 9937 85 79 STA &79 .Q939 9939 20 78 B3 JSR S378 993C A5 7C LDA &7C 993E F0 03 BEQ Q943 9940 4C B7 8F JMP PFB7 .Q943 9943 20 EF 99 JSR Q9EF 9946 A5 77 LDA &77 9948 20 82 8B JSR PB82 994B 20 AA 84 JSR P4AA 994E E6 77 INC &77 9950 A5 77 LDA &77 9952 85 BA STA &BA 9954 C5 C7 CMP &C7 9956 D0 E1 BNE Q939 9958 20 71 8F JSR PF71 995B A9 00 LDA #&00 995D A8 TAY .Q95E 995E 99 00 0E STA &0E00,Y 9961 99 00 0F STA &0F00,Y 9964 C8 INY 9965 D0 F7 BNE Q95E 9967 A6 C7 LDX &C7 9969 A9 00 LDA #&00 .Q96B 996B 18 CLC 996C 6D EC 10 ADC &10EC 996F 90 03 BCC Q974 9971 EE 06 0F INC &0F06 .Q974 9974 CA DEX 9975 D0 F4 BNE Q96B 9977 8D 07 0F STA &0F07 997A 20 06 8F JSR PF06 997D 4C DC 95 JMP Q5DC ;*VERIFY 9980 20 57 93 JSR Q357 .Q983 9983 20 12 8F JSR PF12 9986 20 A5 84 JSR P4A5 9989 AD 06 0F LDA &0F06 998C 29 07 AND #&07 998E C9 03 CMP #&03 9990 90 04 BCC Q996 9992 A9 50 LDA #&50 9994 D0 02 BNE Q998 .Q996 9996 A9 28 LDA #&28 .Q998 9998 85 B4 STA &B4 999A 20 16 8B JSR PB16 999D A2 00 LDX #&00 999F 20 71 8F JSR PF71 .Q9A2 99A2 24 FF BIT &FF 99A4 10 08 BPL Q9AE 99A6 20 A5 84 JSR P4A5 99A9 A9 11 LDA #&11 99AB 4C 25 BB JMP SB25 .Q9AE 99AE 20 90 85 JSR P590 99B1 A9 5F LDA #&5F 99B3 8D 6A 0D STA &0D6A 99B6 A9 03 LDA #&03 99B8 8D 69 0D STA &0D69 99BB A5 BA LDA &BA 99BD 8D 6B 0D STA &0D6B 99C0 A9 00 LDA #&00 99C2 8D 6C 0D STA &0D6C 99C5 A9 20 LDA #&20 99C7 0D EC 10 ORA &10EC 99CA 8D 6D 0D STA &0D6D 99CD 20 65 86 JSR P665 99D0 F0 05 BEQ Q9D7 99D2 20 71 84 JSR P471 99D5 EQUS "?" 99D6 EQUB &A0 .Q9D7 99D7 A5 BA LDA &BA 99D9 20 82 8B JSR PB82 99DC 20 71 84 JSR P471 99DF EQUS " " 99E0 EQUB &A0 99E1 E6 BA INC &BA 99E3 A5 B4 LDA &B4 99E5 C5 BA CMP &BA 99E7 D0 B9 BNE Q9A2 99E9 20 A5 84 JSR P4A5 99EC 4C AF 8F JMP PFAF .Q9EF 99EF AD EC 10 LDA &10EC 99F2 0A ASL A 99F3 0A ASL A 99F4 AA TAX .Q9F5 99F5 FE FC 0D INC &0DFC,X 99F8 AD 8F 02 LDA &028F 99FB 0A ASL A 99FC BD FE 0D LDA &0DFE,X 99FF E9 01 SBC #&01 9A01 10 04 BPL QA07 9A03 18 CLC 9A04 6D EC 10 ADC &10EC .QA07 9A07 9D FE 0D STA &0DFE,X 9A0A CA DEX 9A0B CA DEX 9A0C CA DEX 9A0D CA DEX 9A0E D0 E5 BNE Q9F5 9A10 60 RTS .QA11 9A11 AD D2 10 LDA &10D2 9A14 4C E2 8A JMP PAE2 .QA17 9A17 AD D3 10 LDA &10D3 9A1A 4C E2 8A JMP PAE2 ;OSFSC 9A1D C9 09 CMP #&09 9A1F B0 0E BCS QA2F 9A21 86 B5 STX &B5 9A23 AA TAX 9A24 BD BF BF LDA &BFBF,X 9A27 48 PHA 9A28 BD B6 BF LDA &BFB6,X 9A2B 48 PHA 9A2C 8A TXA 9A2D A6 B5 LDX &B5 .QA2F 9A2F 60 RTS ;OSFSC 0 = *OPT 9A30 20 27 84 JSR P427 9A33 8A TXA 9A34 C9 04 CMP #&04 9A36 F0 09 BEQ QA41 9A38 98 TYA 9A39 D0 02 BNE QA3D 9A3B A9 FF LDA #&FF .QA3D 9A3D 8D C7 10 STA &10C7 9A40 60 RTS .QA41 9A41 C0 04 CPY #&04 9A43 90 05 BCC QA4A 9A45 A9 CB LDA #&CB 9A47 4C 25 BB JMP SB25 .QA4A 9A4A 98 TYA 9A4B 48 PHA 9A4C 20 4C 93 JSR Q34C 9A4F 20 12 8F JSR PF12 9A52 68 PLA 9A53 20 9B 9F JSR QF9B 9A56 4D 06 0F EOR &0F06 9A59 29 30 AND #&30 9A5B 4D 06 0F EOR &0F06 9A5E 8D 06 0F STA &0F06 9A61 4C FD 8E JMP PEFD ;OSFSC 1 = read EOF state 9A64 48 PHA 9A65 98 TYA 9A66 48 PHA 9A67 8A TXA 9A68 A8 TAY 9A69 20 D7 9F JSR QFD7 9A6C 98 TYA 9A6D 20 E4 9F JSR QFE4 9A70 D0 04 BNE QA76 9A72 A2 FF LDX #&FF 9A74 D0 02 BNE QA78 .QA76 9A76 A2 00 LDX #&00 .QA78 9A78 68 PLA 9A79 A8 TAY 9A7A 68 PLA 9A7B 60 RTS ;OSFSC 2/4 = */, *RUN 9A7C 20 2D 8C JSR PC2D ;OSFSC 3 with *command not in table 9A7F 20 FC 9F JSR QFFC 9A82 8C DB 10 STY &10DB 9A85 20 0B 90 JSR Q00B 9A88 8C DA 10 STY &10DA 9A8B 20 2F A7 JSR R72F 9A8E B0 1B BCS QAAB 9A90 AC DB 10 LDY &10DB 9A93 AD CC 10 LDA &10CC 9A96 85 CE STA &CE 9A98 AD CD 10 LDA &10CD 9A9B 20 E2 8A JSR PAE2 9A9E 20 0E 90 JSR Q00E 9AA1 20 2F A7 JSR R72F 9AA4 B0 05 BCS QAAB .QAA6 9AA6 A9 FE LDA #&FE 9AA8 4C 25 BB JMP SB25 .QAAB 9AAB 20 0D 9F JSR QF0D 9AAE 18 CLC 9AAF AD DA 10 LDA &10DA 9AB2 A8 TAY 9AB3 65 F2 ADC &F2 9AB5 8D DA 10 STA &10DA 9AB8 A5 F3 LDA &F3 9ABA 69 00 ADC #&00 9ABC 8D DB 10 STA &10DB 9ABF AD 76 10 LDA &1076 9AC2 2D 77 10 AND &1077 9AC5 0D D7 10 ORA &10D7 9AC8 C9 FF CMP #&FF 9ACA F0 13 BEQ QADF 9ACC A5 C0 LDA &C0 9ACE 8D 74 10 STA &1074 9AD1 A5 C1 LDA &C1 9AD3 8D 75 10 STA &1075 9AD6 A2 74 LDX #&74 9AD8 A0 10 LDY #&10 9ADA A9 04 LDA #&04 9ADC 4C 06 04 JMP &0406 .QADF 9ADF 6C C0 00 JMP (&00C0) ;OSFSC 5 = *CAT 9AE2 20 2D 8C JSR PC2D 9AE5 20 09 8F JSR PF09 9AE8 A9 00 LDA #&00 9AEA 85 CE STA &CE 9AEC 20 71 84 JSR P471 9AEF EQUB &A6 9AF0 AD 06 0F LDA &0F06 9AF3 29 0F AND #&0F 9AF5 20 8A 8B JSR PB8A 9AF8 AD 07 0F LDA &0F07 9AFB 20 82 8B JSR PB82 9AFE 20 71 84 JSR P471 9B01 EQUS " Sector" 9B08 EQUB &F3 9B09 A0 08 LDY #&08 9B0B 20 09 A0 JSR R009 9B0E A0 00 LDY #&00 9B10 84 AA STY &AA .QB12 9B12 B9 00 0E LDA &0E00,Y 9B15 20 E3 FF JSR &FFE3 9B18 C8 INY 9B19 C0 08 CPY #&08 9B1B 90 F5 BCC QB12 9B1D 20 18 8E JSR PE18 9B20 90 0B BCC QB2D .QB22 9B22 B9 F8 0E LDA &0EF8,Y 9B25 20 E3 FF JSR &FFE3 9B28 C8 INY 9B29 C0 0C CPY #&0C 9B2B 90 F5 BCC QB22 .QB2D 9B2D 20 71 84 JSR P471 9B30 EQUS " " 9B31 EQUB &A8 9B32 AD 04 0F LDA &0F04 9B35 20 82 8B JSR PB82 9B38 20 71 84 JSR P471 9B3B EQUS ")" 9B3C EQUB &0D 9B3D EQUS "Drive" 9B42 EQUB &BA 9B43 A5 CF LDA &CF 9B45 20 8A 8B JSR PB8A 9B48 A0 0D LDY #&0D 9B4A 20 09 A0 JSR R009 9B4D 20 71 84 JSR P471 9B50 EQUS "Option" 9B56 EQUB &BA 9B57 AD 06 0F LDA &0F06 9B5A 20 62 8A JSR PA62 9B5D 20 8A 8B JSR PB8A 9B60 20 71 84 JSR P471 9B63 EQUS " " 9B64 EQUB &A8 9B65 A0 04 LDY #&04 9B67 0A ASL A 9B68 0A ASL A 9B69 AA TAX .QB6A 9B6A BD F0 BF LDA &BFF0,X 9B6D 20 E3 FF JSR &FFE3 9B70 E8 INX 9B71 88 DEY 9B72 D0 F6 BNE QB6A 9B74 20 71 84 JSR P471 9B77 EQUS ")" 9B78 EQUB &0D 9B79 EQUS "Directory" 9B82 EQUB &BA 9B83 AD CB 10 LDA &10CB 9B86 20 8A 8B JSR PB8A 9B89 20 65 84 JSR P465 9B8C AD CA 10 LDA &10CA 9B8F 20 E3 FF JSR &FFE3 9B92 A0 07 LDY #&07 9B94 20 09 A0 JSR R009 9B97 20 71 84 JSR P471 9B9A EQUS "Library" 9BA1 EQUB &BA 9BA2 AD CD 10 LDA &10CD 9BA5 20 8A 8B JSR PB8A 9BA8 20 65 84 JSR P465 9BAB AD CC 10 LDA &10CC 9BAE 20 E3 FF JSR &FFE3 9BB1 20 A5 84 JSR P4A5 .QBB4 9BB4 20 18 8E JSR PE18 9BB7 B0 1B BCS QBD4 9BB9 E6 CE INC &CE 9BBB 20 71 84 JSR P471 9BBE EQUB &0D 9BBF EQUS "Catalogue:" 9BC9 EQUB &A0 9BCA A5 CE LDA &CE 9BCC 20 82 8B JSR PB82 9BCF 20 71 84 JSR P471 9BD2 EQUB &0D 9BD3 EQUB &8D .QBD4 9BD4 20 C0 86 JSR P6C0 9BD7 A0 FF LDY #&FF 9BD9 84 A8 STY &A8 9BDB C8 INY .QBDC 9BDC CC 05 0F CPY &0F05 9BDF B0 17 BCS QBF8 9BE1 B9 0F 0E LDA &0E0F,Y 9BE4 4D CA 10 EOR &10CA 9BE7 29 7F AND #&7F 9BE9 D0 08 BNE QBF3 9BEB B9 0F 0E LDA &0E0F,Y 9BEE 29 80 AND #&80 9BF0 99 0F 0E STA &0E0F,Y .QBF3 9BF3 20 24 8C JSR PC24 9BF6 90 E4 BCC QBDC .QBF8 9BF8 A0 00 LDY #&00 9BFA 20 51 9C JSR QC51 9BFD 90 5D BCC QC5C 9BFF 20 18 8E JSR PE18 9C02 B0 19 BCS QC1D 9C04 2C 02 0F BIT &0F02 9C07 50 14 BVC QC1D 9C09 A9 0F LDA #&0F 9C0B A2 01 LDX #&01 9C0D 20 F4 FF JSR &FFF4 9C10 20 82 9F JSR QF82 9C13 24 FF BIT &FF 9C15 30 06 BMI QC1D 9C17 20 70 A8 JSR R870 9C1A 4C B4 9B JMP QBB4 .QC1D 9C1D A9 00 LDA #&00 9C1F A8 TAY .QC20 9C20 CC 05 0F CPY &0F05 9C23 B0 06 BCS QC2B 9C25 20 12 8E JSR PE12 9C28 20 24 8C JSR PC24 .QC2B 9C2B 90 F3 BCC QC20 9C2D 48 PHA 9C2E 20 71 84 JSR P471 9C31 EQUB &0D 9C32 EQUB &8D 9C33 68 PLA 9C34 20 82 8B JSR PB82 9C37 20 71 84 JSR P471 9C3A EQUS " files, " 9C42 EQUB &A6 9C43 20 86 A7 JSR R786 9C46 A5 AE LDA &AE 9C48 48 PHA 9C49 A5 AF LDA &AF 9C4B 4C 60 96 JMP Q660 .QC4E 9C4E 20 24 8C JSR PC24 .QC51 9C51 CC 05 0F CPY &0F05 9C54 B0 05 BCS QC5B 9C56 B9 08 0E LDA &0E08,Y 9C59 30 F3 BMI QC4E .QC5B 9C5B 60 RTS .QC5C 9C5C 84 AB STY &AB 9C5E A2 00 LDX #&00 .QC60 9C60 B9 08 0E LDA &0E08,Y 9C63 29 7F AND #&7F 9C65 9D 60 10 STA &1060,X 9C68 C8 INY 9C69 E8 INX 9C6A E0 08 CPX #&08 9C6C D0 F2 BNE QC60 .QC6E 9C6E 20 51 9C JSR QC51 9C71 B0 1F BCS QC92 9C73 38 SEC 9C74 A2 06 LDX #&06 .QC76 9C76 B9 0E 0E LDA &0E0E,Y 9C79 FD 60 10 SBC &1060,X 9C7C 88 DEY 9C7D CA DEX 9C7E 10 F6 BPL QC76 9C80 20 25 8C JSR PC25 9C83 B9 0F 0E LDA &0E0F,Y 9C86 29 7F AND #&7F 9C88 ED 67 10 SBC &1067 9C8B 90 CF BCC QC5C 9C8D 20 24 8C JSR PC24 9C90 B0 DC BCS QC6E .QC92 9C92 A4 AB LDY &AB 9C94 B9 08 0E LDA &0E08,Y 9C97 09 80 ORA #&80 9C99 99 08 0E STA &0E08,Y 9C9C AD 67 10 LDA &1067 9C9F C5 AA CMP &AA 9CA1 F0 10 BEQ QCB3 9CA3 A6 AA LDX &AA 9CA5 85 AA STA &AA 9CA7 D0 0A BNE QCB3 9CA9 20 A5 84 JSR P4A5 .QCAC 9CAC 20 A5 84 JSR P4A5 9CAF A0 FF LDY #&FF 9CB1 D0 09 BNE QCBC .QCB3 9CB3 A4 A8 LDY &A8 9CB5 D0 F5 BNE QCAC 9CB7 A0 06 LDY #&06 9CB9 20 09 A0 JSR R009 .QCBC 9CBC C8 INY 9CBD 84 A8 STY &A8 9CBF A4 AB LDY &AB 9CC1 B9 0F 0E LDA &0E0F,Y 9CC4 C9 FF CMP #&FF 9CC6 F0 0C BEQ QCD4 9CC8 29 7F AND #&7F 9CCA C9 3F CMP #&3F 9CCC F0 06 BEQ QCD4 9CCE 20 AD 84 JSR P4AD 9CD1 20 80 93 JSR Q380 .QCD4 9CD4 4C F8 9B JMP QBF8 .QCD7 ;OSFSC 6 = new filing system starting up 9CD7 20 27 84 JSR P427 9CDA A9 77 LDA #&77 9CDC 4C F4 FF JMP &FFF4 ;OSFSC 7 = range of valid file handles 9CDF A2 11 LDX #&11 9CE1 A0 15 LDY #&15 9CE3 60 RTS ;OSFSC 8 = *command has been entered 9CE4 2C C8 10 BIT &10C8 9CE7 30 03 BMI QCEC 9CE9 CE C8 10 DEC &10C8 .QCEC 9CEC 60 RTS ;OSFILE 9CED 20 57 84 JSR P457 9CF0 48 PHA 9CF1 20 7A 93 JSR Q37A 9CF4 86 B0 STX &B0 9CF6 84 B1 STY &B1 9CF8 8E DC 10 STX &10DC 9CFB 8C DD 10 STY &10DD 9CFE A2 00 LDX #&00 9D00 A0 00 LDY #&00 9D02 20 73 8B JSR PB73 .QD05 9D05 20 63 8B JSR PB63 9D08 C0 12 CPY #&12 9D0A D0 F9 BNE QD05 9D0C 68 PLA 9D0D AA TAX 9D0E E8 INX 9D0F E0 08 CPX #&08 9D11 B0 08 BCS QD1B 9D13 BD D0 BF LDA &BFD0,X 9D16 48 PHA 9D17 BD C8 BF LDA &BFC8,X 9D1A 48 PHA .QD1B 9D1B 60 RTS .QD1C 9D1C 20 D7 9C JSR QCD7 .QD1F 9D1F A9 00 LDA #&00 .QD21 9D21 18 CLC 9D22 69 20 ADC #&20 9D24 F0 F5 BEQ QD1B 9D26 A8 TAY 9D27 20 37 9D JSR QD37 9D2A D0 F5 BNE QD21 .QD2C 9D2C 98 TYA 9D2D F0 ED BEQ QD1C 9D2F 20 A0 9F JSR QFA0 9D32 90 03 BCC QD37 9D34 4C DF 9F JMP QFDF .QD37 9D37 48 PHA 9D38 20 B2 9F JSR QFB2 9D3B B0 3A BCS QD77 9D3D B9 1B 11 LDA &111B,Y 9D40 49 FF EOR #&FF 9D42 2D C0 10 AND &10C0 9D45 8D C0 10 STA &10C0 9D48 B9 17 11 LDA &1117,Y 9D4B 29 60 AND #&60 9D4D F0 28 BEQ QD77 9D4F 20 7C 9D JSR QD7C 9D52 B9 17 11 LDA &1117,Y 9D55 29 20 AND #&20 9D57 F0 1B BEQ QD74 9D59 AE C4 10 LDX &10C4 9D5C B9 14 11 LDA &1114,Y 9D5F 9D 0C 0F STA &0F0C,X 9D62 B9 15 11 LDA &1115,Y 9D65 9D 0D 0F STA &0F0D,X 9D68 B9 16 11 LDA &1116,Y 9D6B 20 F9 A6 JSR R6F9 9D6E 20 FD 8E JSR PEFD 9D71 AC C2 10 LDY &10C2 .QD74 9D74 20 AE 9D JSR QDAE .QD77 9D77 AE C6 10 LDX &10C6 9D7A 68 PLA 9D7B 60 RTS .QD7C 9D7C 20 BF A0 JSR R0BF .QD7F 9D7F A2 07 LDX #&07 .QD81 9D81 B9 0C 11 LDA &110C,Y 9D84 95 C6 STA &C6,X 9D86 88 DEY 9D87 88 DEY 9D88 CA DEX 9D89 D0 F6 BNE QD81 9D8B 20 2F A7 JSR R72F 9D8E 90 1B BCC QDAB 9D90 8C C4 10 STY &10C4 9D93 B9 0E 0F LDA &0F0E,Y 9D96 BE 0F 0F LDX &0F0F,Y 9D99 AC C2 10 LDY &10C2 9D9C 59 0D 11 EOR &110D,Y 9D9F 2D F4 10 AND &10F4 9DA2 D0 07 BNE QDAB 9DA4 8A TXA 9DA5 D9 0F 11 CMP &110F,Y 9DA8 D0 01 BNE QDAB .QDAA 9DAA 60 RTS .QDAB 9DAB 4C D0 93 JMP Q3D0 .QDAE 9DAE B9 17 11 LDA &1117,Y 9DB1 29 40 AND #&40 9DB3 F0 F5 BEQ QDAA 9DB5 18 CLC .QDB6 9DB6 08 PHP 9DB7 2C 8F 02 BIT &028F 9DBA 30 19 BMI QDD5 9DBC A9 01 LDA #&01 9DBE 8D 69 0D STA &0D69 9DC1 A9 7D LDA #&7D 9DC3 8D 6A 0D STA &0D6A 9DC6 A9 23 LDA #&23 9DC8 8D 6B 0D STA &0D6B 9DCB 20 65 86 JSR P665 9DCE 29 08 AND #&08 9DD0 D0 03 BNE QDD5 9DD2 20 16 8B JSR PB16 .QDD5 9DD5 AC C2 10 LDY &10C2 9DD8 B9 13 11 LDA &1113,Y 9DDB 85 BF STA &BF 9DDD 20 BB 98 JSR Q8BB 9DE0 A9 00 LDA #&00 9DE2 85 BE STA &BE 9DE4 85 C2 STA &C2 9DE6 A9 01 LDA #&01 9DE8 85 C3 STA &C3 9DEA 28 PLP 9DEB B0 17 BCS QE04 9DED B9 1C 11 LDA &111C,Y 9DF0 85 C5 STA &C5 9DF2 B9 1D 11 LDA &111D,Y 9DF5 85 C4 STA &C4 9DF7 20 FC 9E JSR QEFC 9DFA AC C2 10 LDY &10C2 9DFD A9 BF LDA #&BF 9DFF 20 68 8C JSR PC68 9E02 90 06 BCC QE0A .QE04 9E04 20 45 8C JSR PC45 9E07 20 36 9F JSR QF36 .QE0A 9E0A AC C2 10 LDY &10C2 9E0D 60 RTS ;OSARGS 9E0E C0 00 CPY #&00 9E10 F0 10 BEQ QE22 9E12 20 27 84 JSR P427 9E15 C9 FF CMP #&FF 9E17 F0 27 BEQ QE40 9E19 C9 03 CMP #&03 9E1B B0 19 BCS QE36 9E1D 4A LSR A 9E1E 90 2C BCC QE4C 9E20 B0 4D BCS QE6F .QE22 9E22 20 57 84 JSR P457 9E25 C9 FF CMP #&FF 9E27 F0 0E BEQ QE37 9E29 C9 01 CMP #&01 9E2B D0 03 BNE QE30 9E2D 4C E0 9E JMP QEE0 .QE30 9E30 C9 00 CMP #&00 9E32 D0 02 BNE QE36 9E34 A9 04 LDA #&04 .QE36 9E36 60 RTS .QE37 9E37 AD C0 10 LDA &10C0 9E3A 48 PHA 9E3B 20 1F 9D JSR QD1F 9E3E F0 07 BEQ QE47 .QE40 9E40 AD C0 10 LDA &10C0 9E43 48 PHA 9E44 20 2C 9D JSR QD2C .QE47 9E47 68 PLA 9E48 8D C0 10 STA &10C0 9E4B 60 RTS .QE4C 9E4C 20 27 84 JSR P427 9E4F 20 D7 9F JSR QFD7 9E52 8C C2 10 STY &10C2 9E55 0A ASL A 9E56 0A ASL A 9E57 6D C2 10 ADC &10C2 9E5A A8 TAY 9E5B B9 10 11 LDA &1110,Y 9E5E 95 00 STA &00,X 9E60 B9 11 11 LDA &1111,Y 9E63 95 01 STA &01,X 9E65 B9 12 11 LDA &1112,Y 9E68 95 02 STA &02,X 9E6A A9 00 LDA #&00 9E6C 95 03 STA &03,X .QE6E 9E6E 60 RTS .QE6F 9E6F 20 27 84 JSR P427 9E72 20 D7 9F JSR QFD7 9E75 B9 14 11 LDA &1114,Y 9E78 99 10 11 STA &1110,Y 9E7B B9 15 11 LDA &1115,Y 9E7E 99 11 11 STA &1111,Y 9E81 B9 16 11 LDA &1116,Y 9E84 99 12 11 STA &1112,Y .QE87 9E87 20 CA 9E JSR QECA 9E8A B0 08 BCS QE94 9E8C A9 00 LDA #&00 9E8E 20 DA 9E JSR QEDA 9E91 4C 87 9E JMP QE87 .QE94 9E94 B5 00 LDA &00,X 9E96 99 10 11 STA &1110,Y 9E99 B5 01 LDA &01,X 9E9B 99 11 11 STA &1111,Y 9E9E B5 02 LDA &02,X 9EA0 99 12 11 STA &1112,Y 9EA3 A9 6F LDA #&6F 9EA5 20 68 8C JSR PC68 9EA8 B9 0F 11 LDA &110F,Y 9EAB 79 11 11 ADC &1111,Y 9EAE 8D C5 10 STA &10C5 9EB1 B9 0D 11 LDA &110D,Y 9EB4 2D F4 10 AND &10F4 9EB7 79 12 11 ADC &1112,Y 9EBA D9 1D 11 CMP &111D,Y 9EBD D0 AF BNE QE6E 9EBF AD C5 10 LDA &10C5 9EC2 D9 1C 11 CMP &111C,Y 9EC5 D0 A7 BNE QE6E 9EC7 4C 5F 8C JMP PC5F .QECA 9ECA B9 14 11 LDA &1114,Y 9ECD D5 00 CMP &00,X 9ECF B9 15 11 LDA &1115,Y 9ED2 F5 01 SBC &01,X 9ED4 B9 16 11 LDA &1116,Y 9ED7 F5 02 SBC &02,X 9ED9 60 RTS .QEDA 9EDA 20 27 84 JSR P427 9EDD 4C 3A A3 JMP R33A .QEE0 9EE0 A9 FF LDA #&FF 9EE2 95 02 STA &02,X 9EE4 95 03 STA &03,X 9EE6 AD DA 10 LDA &10DA 9EE9 95 00 STA &00,X 9EEB AD DB 10 LDA &10DB 9EEE 95 01 STA &01,X 9EF0 A9 00 LDA #&00 9EF2 60 RTS ;OSFILE 0 = save file 9EF3 20 AC A1 JSR R1AC 9EF6 20 09 94 JSR Q409 9EF9 20 2B A0 JSR R02B .QEFC 9EFC 20 51 8D JSR PD51 9EFF D0 38 BNE QF39 ;OSFILE &FF = load file 9F01 20 76 93 JSR Q376 9F04 20 4C 91 JSR Q14C 9F07 20 09 94 JSR Q409 9F0A 20 2B A0 JSR R02B .QF0D 9F0D 84 BC STY &BC 9F0F A2 00 LDX #&00 9F11 A5 C0 LDA &C0 9F13 D0 06 BNE QF1B 9F15 C8 INY 9F16 C8 INY 9F17 A2 02 LDX #&02 9F19 D0 08 BNE QF23 .QF1B 9F1B B9 0E 0F LDA &0F0E,Y 9F1E 85 C4 STA &C4 9F20 20 F8 A1 JSR R1F8 .QF23 9F23 B9 08 0F LDA &0F08,Y 9F26 95 BE STA &BE,X 9F28 C8 INY 9F29 E8 INX 9F2A E0 08 CPX #&08 9F2C D0 F5 BNE QF23 9F2E 20 15 A2 JSR R215 9F31 A4 BC LDY &BC 9F33 20 7A A0 JSR R07A .QF36 9F36 20 32 8D JSR PD32 .QF39 9F39 20 1B A2 JSR R21B 9F3C 20 D6 87 JSR P7D6 9F3F A9 01 LDA #&01 9F41 4C 27 93 JMP Q327 ;OSFILE 6 = delete file 9F44 20 D5 93 JSR Q3D5 9F47 20 2B A0 JSR R02B 9F4A 20 DA 90 JSR Q0DA 9F4D 90 24 BCC QF73 ;OSFILE 1 = write catalogue information 9F4F 20 D5 93 JSR Q3D5 9F52 20 5A A2 JSR R25A 9F55 20 7D A2 JSR R27D 9F58 50 16 BVC QF70 ;OSFILE 2 = write load address 9F5A 20 D5 93 JSR Q3D5 9F5D 20 5A A2 JSR R25A 9F60 50 11 BVC QF73 ;OSFILE 3 = write execution address 9F62 20 D5 93 JSR Q3D5 9F65 20 7D A2 JSR R27D 9F68 50 09 BVC QF73 ;OSFILE 4 = write file attributes 9F6A 20 F5 93 JSR Q3F5 9F6D 20 E8 93 JSR Q3E8 .QF70 9F70 20 8F A2 JSR R28F .QF73 9F73 20 86 91 JSR Q186 9F76 A9 01 LDA #&01 9F78 60 RTS ;OSFILE 5 = read catalogue information 9F79 20 F5 93 JSR Q3F5 9F7C 20 2B A0 JSR R02B 9F7F A9 01 LDA #&01 9F81 60 RTS .QF82 9F82 20 27 84 JSR P427 9F85 20 71 84 JSR P471 9F88 EQUB &0D 9F89 EQUS "Continue" 9F91 EQUB &BF 9F92 A9 81 LDA #&81 9F94 A0 0A LDY #&0A 9F96 4C F4 FF JMP &FFF4 .QF99 9F99 0A ASL A .QF9A 9F9A 0A ASL A .QF9B 9F9B 0A ASL A 9F9C 0A ASL A 9F9D 0A ASL A 9F9E 0A ASL A 9F9F 60 RTS .QFA0 9FA0 48 PHA 9FA1 98 TYA 9FA2 C9 10 CMP #&10 9FA4 90 04 BCC QFAA 9FA6 C9 18 CMP #&18 9FA8 90 02 BCC QFAC .QFAA 9FAA A9 08 LDA #&08 .QFAC 9FAC 20 9A 9F JSR QF9A 9FAF A8 TAY 9FB0 68 PLA 9FB1 60 RTS .QFB2 9FB2 48 PHA 9FB3 8E C6 10 STX &10C6 9FB6 98 TYA 9FB7 29 E0 AND #&E0 9FB9 8D C2 10 STA &10C2 9FBC F0 13 BEQ QFD1 9FBE 20 61 8A JSR PA61 9FC1 A8 TAY 9FC2 A9 00 LDA #&00 9FC4 38 SEC .QFC5 9FC5 6A ROR A 9FC6 88 DEY 9FC7 D0 FC BNE QFC5 9FC9 AC C2 10 LDY &10C2 9FCC 2C C0 10 BIT &10C0 9FCF D0 03 BNE QFD4 .QFD1 9FD1 68 PLA 9FD2 38 SEC 9FD3 60 RTS .QFD4 9FD4 68 PLA 9FD5 18 CLC 9FD6 60 RTS .QFD7 9FD7 20 A0 9F JSR QFA0 9FDA 20 B2 9F JSR QFB2 9FDD 90 1C BCC QFFB .QFDF 9FDF A9 DE LDA #&DE 9FE1 4C 25 BB JMP SB25 .QFE4 9FE4 AA TAX 9FE5 B9 12 11 LDA &1112,Y 9FE8 DD 16 11 CMP &1116,X 9FEB D0 0E BNE QFFB 9FED B9 11 11 LDA &1111,Y 9FF0 DD 15 11 CMP &1115,X 9FF3 D0 06 BNE QFFB 9FF5 B9 10 11 LDA &1110,Y 9FF8 DD 14 11 CMP &1114,X .QFFB 9FFB 60 RTS .QFFC 9FFC A9 FF LDA #&FF 9FFE 85 C0 STA &C0 A000 A5 F2 LDA &F2 A002 85 BC STA &BC A004 A5 F3 LDA &F3 A006 85 BD STA &BD A008 60 RTS .R009 A009 20 AD 84 JSR P4AD A00C 88 DEY A00D D0 FA BNE R009 A00F 60 RTS .R010 A010 4A LSR A A011 4A LSR A .R012 A012 4A LSR A A013 4A LSR A A014 4A LSR A A015 4A LSR A A016 29 03 AND #&03 A018 60 RTS .R019 A019 A2 03 LDX #&03 .R01B A01B B9 62 10 LDA &1062,Y A01E 20 82 8B JSR PB82 A021 88 DEY A022 CA DEX A023 D0 F6 BNE R01B A025 20 25 8C JSR PC25 A028 4C AD 84 JMP P4AD .R02B A02B 20 27 84 JSR P427 A02E 98 TYA A02F 48 PHA A030 AA TAX A031 A0 02 LDY #&02 A033 A9 00 LDA #&00 .R035 A035 91 B0 STA (&B0),Y A037 C8 INY A038 C0 12 CPY #&12 A03A D0 F9 BNE R035 A03C A0 02 LDY #&02 .R03E A03E 20 B4 A0 JSR R0B4 A041 C8 INY A042 C8 INY A043 C0 0E CPY #&0E A045 D0 F7 BNE R03E A047 68 PLA A048 AA TAX A049 BD 0F 0E LDA &0E0F,X A04C 10 06 BPL R054 A04E A9 0A LDA #&0A A050 A0 0E LDY #&0E A052 91 B0 STA (&B0),Y .R054 A054 BD 0E 0F LDA &0F0E,X A057 48 PHA A058 A0 04 LDY #&04 A05A 20 69 A0 JSR R069 A05D A0 0C LDY #&0C A05F 68 PLA A060 48 PHA A061 20 A8 A2 JSR R2A8 A064 91 B0 STA (&B0),Y A066 68 PLA A067 A0 08 LDY #&08 .R069 A069 20 10 A0 JSR R010 A06C 91 B0 STA (&B0),Y A06E C9 03 CMP #&03 A070 D0 07 BNE R079 A072 A9 FF LDA #&FF A074 91 B0 STA (&B0),Y A076 C8 INY A077 91 B0 STA (&B0),Y .R079 A079 60 RTS .R07A A07A 2C C7 10 BIT &10C7 A07D 30 FA BMI R079 .R07F A07F 20 27 84 JSR P427 A082 20 80 93 JSR Q380 A085 98 TYA A086 48 PHA A087 A9 60 LDA #&60 A089 85 B0 STA &B0 A08B A9 10 LDA #&10 A08D 85 B1 STA &B1 A08F 20 2B A0 JSR R02B A092 20 AD 84 JSR P4AD A095 A0 02 LDY #&02 A097 20 19 A0 JSR R019 A09A 20 19 A0 JSR R019 A09D 20 19 A0 JSR R019 A0A0 68 PLA A0A1 A8 TAY A0A2 B9 0E 0F LDA &0F0E,Y A0A5 2D F4 10 AND &10F4 A0A8 20 8A 8B JSR PB8A A0AB B9 0F 0F LDA &0F0F,Y A0AE 20 82 8B JSR PB82 A0B1 4C A5 84 JMP P4A5 .R0B4 A0B4 20 B7 A0 JSR R0B7 .R0B7 A0B7 BD 08 0F LDA &0F08,X A0BA 91 B0 STA (&B0),Y A0BC E8 INX A0BD C8 INY A0BE 60 RTS .R0BF A0BF B9 0E 11 LDA &110E,Y A0C2 29 7F AND #&7F A0C4 85 CE STA &CE A0C6 B9 17 11 LDA &1117,Y A0C9 4C E2 8A JMP PAE2 .R0CC A0CC B9 0E 0F LDA &0F0E,Y A0CF 20 A8 A2 JSR R2A8 A0D2 85 C4 STA &C4 A0D4 18 CLC A0D5 A9 FF LDA #&FF A0D7 79 0C 0F ADC &0F0C,Y A0DA B9 0F 0F LDA &0F0F,Y A0DD 79 0D 0F ADC &0F0D,Y A0E0 85 C5 STA &C5 A0E2 B9 0E 0F LDA &0F0E,Y A0E5 2D F4 10 AND &10F4 A0E8 65 C4 ADC &C4 A0EA 85 C4 STA &C4 .R0EC A0EC 38 SEC A0ED B9 07 0F LDA &0F07,Y A0F0 E5 C5 SBC &C5 A0F2 48 PHA A0F3 B9 06 0F LDA &0F06,Y A0F6 2D F4 10 AND &10F4 A0F9 E5 C4 SBC &C4 A0FB AA TAX A0FC A9 00 LDA #&00 A0FE C5 C2 CMP &C2 A100 68 PLA A101 E5 C3 SBC &C3 A103 8A TXA A104 E5 C6 SBC &C6 A106 60 RTS .R107 A107 88 DEY A108 88 DEY A109 88 DEY A10A 88 DEY A10B 88 DEY A10C 88 DEY A10D 88 DEY A10E 88 DEY A10F 60 RTS .R110 A110 AD 74 10 LDA &1074 A113 29 03 AND #&03 A115 20 99 9F JSR QF99 A118 45 C4 EOR &C4 A11A 29 F8 AND #&F8 A11C 45 C4 EOR &C4 A11E 85 C4 STA &C4 A120 A5 C6 LDA &C6 A122 2D F4 10 AND &10F4 A125 C9 04 CMP #&04 A127 08 PHP A128 29 03 AND #&03 A12A 20 9B 9F JSR QF9B A12D 05 C4 ORA &C4 A12F 28 PLP A130 90 02 BCC R134 A132 09 08 ORA #&08 .R134 A134 85 C4 STA &C4 A136 60 RTS .R137 A137 20 5C A8 JSR R85C A13A A9 00 LDA #&00 A13C 85 C4 STA &C4 A13E A9 02 LDA #&02 A140 85 C5 STA &C5 .R142 A142 AC 05 0F LDY &0F05 A145 F0 33 BEQ R17A A147 C0 F8 CPY #&F8 A149 90 06 BCC R151 A14B 20 B8 A7 JSR R7B8 A14E 4C 42 A1 JMP R142 .R151 A151 20 EC A0 JSR R0EC A154 4C 5F A1 JMP R15F .R157 A157 F0 4E BEQ R1A7 A159 20 07 A1 JSR R107 A15C 20 CC A0 JSR R0CC .R15F A15F 98 TYA A160 90 F5 BCC R157 A162 84 B0 STY &B0 A164 AC 05 0F LDY &0F05 .R167 A167 C4 B0 CPY &B0 A169 F0 0F BEQ R17A A16B B9 07 0E LDA &0E07,Y A16E 99 0F 0E STA &0E0F,Y A171 B9 07 0F LDA &0F07,Y A174 99 0F 0F STA &0F0F,Y A177 88 DEY A178 B0 ED BCS R167 .R17A A17A A2 00 LDX #&00 A17C 20 10 A1 JSR R110 .R17F A17F B5 C7 LDA &C7,X A181 99 08 0E STA &0E08,Y A184 C8 INY A185 E8 INX A186 E0 08 CPX #&08 A188 D0 F5 BNE R17F .R18A A18A B5 BD LDA &BD,X A18C 88 DEY A18D 99 08 0F STA &0F08,Y A190 CA DEX A191 D0 F7 BNE R18A A193 20 7A A0 JSR R07A A196 98 TYA A197 48 PHA A198 AC 05 0F LDY &0F05 A19B 20 24 8C JSR PC24 A19E 8C 05 0F STY &0F05 A1A1 20 FD 8E JSR PEFD A1A4 68 PLA A1A5 A8 TAY A1A6 60 RTS .R1A7 A1A7 A9 C6 LDA #&C6 A1A9 4C 25 BB JMP SB25 .R1AC A1AC 20 0B 90 JSR Q00B .R1AF A1AF 20 2F A7 JSR R72F A1B2 90 03 BCC R1B7 A1B4 20 DA 90 JSR Q0DA .R1B7 A1B7 20 18 8E JSR PE18 A1BA B0 0B BCS R1C7 A1BC 2C 02 0F BIT &0F02 A1BF 50 06 BVC R1C7 A1C1 20 70 A8 JSR R870 A1C4 4C AF A1 JMP R1AF .R1C7 A1C7 A5 C2 LDA &C2 A1C9 48 PHA A1CA A5 C3 LDA &C3 A1CC 48 PHA A1CD 38 SEC A1CE A5 C4 LDA &C4 A1D0 E5 C2 SBC &C2 A1D2 85 C2 STA &C2 A1D4 A5 C5 LDA &C5 A1D6 E5 C3 SBC &C3 A1D8 85 C3 STA &C3 A1DA AD 7A 10 LDA &107A A1DD ED 78 10 SBC &1078 A1E0 85 C6 STA &C6 A1E2 20 37 A1 JSR R137 A1E5 AD 79 10 LDA &1079 A1E8 8D 75 10 STA &1075 A1EB AD 78 10 LDA &1078 A1EE 8D 74 10 STA &1074 A1F1 68 PLA A1F2 85 BF STA &BF A1F4 68 PLA A1F5 85 BE STA &BE A1F7 60 RTS .R1F8 A1F8 86 AE STX &AE A1FA A2 00 LDX #&00 .R1FC A1FC A9 00 LDA #&00 A1FE 9D 75 10 STA &1075,X A201 A5 C4 LDA &C4 A203 20 10 A0 JSR R010 A206 C9 03 CMP #&03 A208 D0 05 BNE R20F A20A A9 FF LDA #&FF A20C 9D 75 10 STA &1075,X .R20F A20F 9D 74 10 STA &1074,X A212 A6 AE LDX &AE A214 60 RTS .R215 A215 86 AE STX &AE A217 A2 02 LDX #&02 A219 D0 E1 BNE R1FC .R21B A21B A5 BE LDA &BE A21D 85 A6 STA &A6 A21F A5 BF LDA &BF A221 85 A7 STA &A7 A223 A9 FF LDA #&FF A225 85 BA STA &BA A227 A6 C3 LDX &C3 A229 E8 INX A22A 86 A4 STX &A4 A22C A5 C4 LDA &C4 A22E 20 A8 A2 JSR R2A8 A231 85 A5 STA &A5 A233 E6 A5 INC &A5 A235 A5 C2 LDA &C2 A237 85 A3 STA &A3 A239 D0 06 BNE R241 A23B C6 A4 DEC &A4 A23D D0 02 BNE R241 A23F C6 A5 DEC &A5 .R241 A241 A5 C4 LDA &C4 A243 2D F4 10 AND &10F4 A246 AA TAX A247 A5 C5 LDA &C5 .R249 A249 38 SEC .R24A A24A E6 BA INC &BA A24C ED EC 10 SBC &10EC A24F B0 F9 BCS R24A A251 CA DEX A252 10 F5 BPL R249 A254 6D EC 10 ADC &10EC A257 85 BB STA &BB A259 60 RTS .R25A A25A 20 27 84 JSR P427 A25D A0 02 LDY #&02 A25F B1 B0 LDA (&B0),Y A261 9D 08 0F STA &0F08,X A264 C8 INY A265 B1 B0 LDA (&B0),Y A267 9D 09 0F STA &0F09,X A26A C8 INY A26B B1 B0 LDA (&B0),Y A26D 6A ROR A A26E 6A ROR A A26F 6A ROR A A270 5D 0E 0F EOR &0F0E,X A273 29 C0 AND #&C0 A275 5D 0E 0F EOR &0F0E,X A278 9D 0E 0F STA &0F0E,X A27B B8 CLV A27C 60 RTS .R27D A27D 20 27 84 JSR P427 A280 A0 06 LDY #&06 A282 B1 B0 LDA (&B0),Y A284 9D 0A 0F STA &0F0A,X A287 C8 INY A288 B1 B0 LDA (&B0),Y A28A 9D 0B 0F STA &0F0B,X A28D B8 CLV A28E 60 RTS .R28F A28F 20 27 84 JSR P427 A292 A0 0E LDY #&0E A294 B1 B0 LDA (&B0),Y A296 29 0A AND #&0A A298 F0 02 BEQ R29C A29A A9 80 LDA #&80 .R29C A29C 5D 0F 0E EOR &0E0F,X A29F 29 80 AND #&80 A2A1 5D 0F 0E EOR &0E0F,X A2A4 9D 0F 0E STA &0E0F,X A2A7 60 RTS .R2A8 A2A8 08 PHP A2A9 48 PHA A2AA 29 0C AND #&0C A2AC C9 0C CMP #&0C A2AE D0 04 BNE R2B4 A2B0 68 PLA A2B1 A9 00 LDA #&00 A2B3 48 PHA .R2B4 A2B4 68 PLA A2B5 20 12 A0 JSR R012 A2B8 90 02 BCC R2BC A2BA 09 04 ORA #&04 .R2BC A2BC 2D F4 10 AND &10F4 A2BF 28 PLP A2C0 60 RTS .R2C1 A2C1 B9 10 11 LDA &1110,Y A2C4 85 BC STA &BC A2C6 B9 13 11 LDA &1113,Y A2C9 85 BD STA &BD A2CB A0 00 LDY #&00 .R2CD A2CD 60 RTS .R2CE A2CE AC C2 10 LDY &10C2 A2D1 E6 BC INC &BC A2D3 A5 BC LDA &BC A2D5 99 10 11 STA &1110,Y A2D8 D0 F3 BNE R2CD A2DA B9 11 11 LDA &1111,Y A2DD 18 CLC A2DE 69 01 ADC #&01 A2E0 99 11 11 STA &1111,Y A2E3 B9 12 11 LDA &1112,Y A2E6 69 00 ADC #&00 A2E8 99 12 11 STA &1112,Y A2EB A9 00 LDA #&00 A2ED 60 RTS .R2EE ;OSBGET A2EE 20 57 84 JSR P457 A2F1 20 D7 9F JSR QFD7 A2F4 98 TYA A2F5 20 E4 9F JSR QFE4 A2F8 D0 18 BNE R312 A2FA B9 17 11 LDA &1117,Y A2FD 29 10 AND #&10 A2FF F0 05 BEQ R306 A301 A9 DF LDA #&DF A303 4C 25 BB JMP SB25 .R306 A306 A9 10 LDA #&10 A308 20 61 8C JSR PC61 A30B AE C6 10 LDX &10C6 A30E A9 FE LDA #&FE A310 38 SEC A311 60 RTS .R312 A312 B9 17 11 LDA &1117,Y A315 30 0A BMI R321 A317 20 BF A0 JSR R0BF A31A 20 AE 9D JSR QDAE A31D 38 SEC A31E 20 B6 9D JSR QDB6 .R321 A321 20 C1 A2 JSR R2C1 A324 A0 00 LDY #&00 A326 B1 BC LDA (&BC),Y A328 48 PHA A329 20 CE A2 JSR R2CE A32C D0 03 BNE R331 A32E 20 66 8C JSR PC66 .R331 A331 18 CLC A332 68 PLA A333 60 RTS .R334 ;OSBPUT A334 20 27 84 JSR P427 A337 20 D7 9F JSR QFD7 .R33A A33A 48 PHA A33B B9 0C 11 LDA &110C,Y A33E 10 05 BPL R345 A340 A9 C1 LDA #&C1 A342 4C 25 BB JMP SB25 .R345 A345 B9 0E 11 LDA &110E,Y A348 10 03 BPL R34D A34A 4C E0 93 JMP Q3E0 .R34D A34D 20 BF A0 JSR R0BF A350 98 TYA A351 18 CLC A352 69 04 ADC #&04 A354 20 E4 9F JSR QFE4 A357 D0 61 BNE R3BA A359 20 7F 9D JSR QD7F A35C AE C4 10 LDX &10C4 A35F 38 SEC A360 BD 07 0F LDA &0F07,X A363 FD 0F 0F SBC &0F0F,X A366 48 PHA A367 BD 06 0F LDA &0F06,X A36A FD 0E 0F SBC &0F0E,X A36D 2D F4 10 AND &10F4 A370 8D C3 10 STA &10C3 A373 20 F9 A6 JSR R6F9 A376 AD C3 10 LDA &10C3 A379 D9 1A 11 CMP &111A,Y A37C D0 21 BNE R39F A37E 68 PLA A37F D9 19 11 CMP &1119,Y A382 D0 1C BNE R3A0 A384 84 B4 STY &B4 A386 AC 57 02 LDY &0257 A389 20 A0 9F JSR QFA0 A38C C4 B4 CPY &B4 A38E D0 05 BNE R395 A390 A9 00 LDA #&00 A392 8D 57 02 STA &0257 .R395 A395 A4 B4 LDY &B4 A397 20 37 9D JSR QD37 A39A A9 BF LDA #&BF A39C 4C 25 BB JMP SB25 .R39F A39F 68 PLA .R3A0 A3A0 9D 0D 0F STA &0F0D,X A3A3 99 19 11 STA &1119,Y A3A6 AD C3 10 LDA &10C3 A3A9 99 1A 11 STA &111A,Y A3AC A9 00 LDA #&00 A3AE 9D 0C 0F STA &0F0C,X A3B1 20 FD 8E JSR PEFD A3B4 20 27 93 JSR Q327 A3B7 AC C2 10 LDY &10C2 .R3BA A3BA B9 17 11 LDA &1117,Y A3BD 30 17 BMI R3D6 A3BF 20 AE 9D JSR QDAE A3C2 B9 14 11 LDA &1114,Y A3C5 D0 0B BNE R3D2 A3C7 98 TYA A3C8 20 E4 9F JSR QFE4 A3CB D0 05 BNE R3D2 A3CD 20 45 8C JSR PC45 A3D0 D0 04 BNE R3D6 .R3D2 A3D2 38 SEC A3D3 20 B6 9D JSR QDB6 .R3D6 A3D6 20 C1 A2 JSR R2C1 A3D9 68 PLA A3DA 91 BC STA (&BC),Y A3DC 20 CE A2 JSR R2CE A3DF D0 03 BNE R3E4 A3E1 20 66 8C JSR PC66 .R3E4 A3E4 A9 40 LDA #&40 A3E6 20 61 8C JSR PC61 A3E9 98 TYA A3EA 20 E4 9F JSR QFE4 A3ED 90 14 BCC R403 A3EF A9 20 LDA #&20 A3F1 20 61 8C JSR PC61 A3F4 A2 02 LDX #&02 .R3F6 A3F6 B9 10 11 LDA &1110,Y A3F9 99 14 11 STA &1114,Y A3FC C8 INY A3FD CA DEX A3FE 10 F6 BPL R3F6 A400 88 DEY A401 88 DEY A402 88 DEY .R403 A403 60 RTS ;OSFIND A404 C9 00 CMP #&00 A406 D0 06 BNE R40E A408 20 27 84 JSR P427 A40B 4C 2C 9D JMP QD2C .R40E A40E 20 57 84 JSR P457 A411 86 BC STX &BC A413 84 BD STY &BD A415 85 B4 STA &B4 A417 24 B4 BIT &B4 A419 08 PHP A41A 50 03 BVC R41F A41C 20 76 93 JSR Q376 .R41F A41F 20 0B 90 JSR Q00B A422 20 2F A7 JSR R72F A425 B0 1A BCS R441 A427 28 PLP A428 50 03 BVC R42D A42A A9 00 LDA #&00 A42C 60 RTS .R42D A42D 08 PHP A42E A9 00 LDA #&00 A430 A2 07 LDX #&07 .R432 A432 95 BE STA &BE,X A434 9D 74 10 STA &1074,X A437 CA DEX A438 10 F8 BPL R432 A43A A9 10 LDA #&10 A43C 85 C5 STA &C5 A43E 20 AC A1 JSR R1AC .R441 A441 28 PLP A442 08 PHP A443 70 03 BVS R448 A445 20 DA 93 JSR Q3DA .R448 A448 20 14 94 JSR Q414 A44B 90 0E BCC R45B .R44D A44D B9 0C 11 LDA &110C,Y A450 10 12 BPL R464 A452 24 B4 BIT &B4 A454 30 0E BMI R464 A456 20 F2 A4 JSR R4F2 A459 B0 F2 BCS R44D .R45B A45B AC C2 10 LDY &10C2 A45E D0 09 BNE R469 A460 A9 C0 LDA #&C0 A462 D0 02 BNE R466 .R464 A464 A9 C2 LDA #&C2 .R466 A466 4C 25 BB JMP SB25 .R469 A469 A9 08 LDA #&08 A46B 8D C5 10 STA &10C5 .R46E A46E BD 08 0E LDA &0E08,X A471 99 00 11 STA &1100,Y A474 C8 INY A475 BD 08 0F LDA &0F08,X A478 99 00 11 STA &1100,Y A47B C8 INY A47C E8 INX A47D CE C5 10 DEC &10C5 A480 D0 EC BNE R46E A482 A9 00 LDA #&00 A484 A2 10 LDX #&10 .R486 A486 99 00 11 STA &1100,Y A489 C8 INY A48A CA DEX A48B D0 F9 BNE R486 A48D AD C2 10 LDA &10C2 A490 A8 TAY A491 20 61 8A JSR PA61 A494 69 11 ADC #&11 A496 99 13 11 STA &1113,Y A499 AD C1 10 LDA &10C1 A49C 99 1B 11 STA &111B,Y A49F 0D C0 10 ORA &10C0 A4A2 8D C0 10 STA &10C0 A4A5 B9 09 11 LDA &1109,Y A4A8 69 FF ADC #&FF A4AA B9 0B 11 LDA &110B,Y A4AD 69 00 ADC #&00 A4AF 99 19 11 STA &1119,Y A4B2 B9 0D 11 LDA &110D,Y A4B5 20 A8 A2 JSR R2A8 A4B8 69 00 ADC #&00 A4BA 99 1A 11 STA &111A,Y A4BD 28 PLP A4BE 50 2B BVC R4EB A4C0 30 08 BMI R4CA A4C2 A9 80 LDA #&80 A4C4 19 0C 11 ORA &110C,Y A4C7 99 0C 11 STA &110C,Y .R4CA A4CA B9 09 11 LDA &1109,Y A4CD 99 14 11 STA &1114,Y A4D0 B9 0B 11 LDA &110B,Y A4D3 99 15 11 STA &1115,Y A4D6 B9 0D 11 LDA &110D,Y A4D9 20 A8 A2 JSR R2A8 A4DC 99 16 11 STA &1116,Y .R4DF A4DF A5 CF LDA &CF A4E1 20 61 8C JSR PC61 A4E4 98 TYA A4E5 20 61 8A JSR PA61 A4E8 09 10 ORA #&10 A4EA 60 RTS .R4EB A4EB A9 20 LDA #&20 A4ED 99 17 11 STA &1117,Y A4F0 D0 ED BNE R4DF .R4F2 A4F2 8A TXA A4F3 48 PHA A4F4 4C 53 94 JMP Q453 ;OSGBPB A4F7 38 SEC A4F8 E9 01 SBC #&01 A4FA C9 08 CMP #&08 A4FC 90 01 BCC R4FF A4FE 60 RTS .R4FF A4FF 20 27 84 JSR P427 A502 8E 7D 10 STX &107D A505 8C 7E 10 STY &107E A508 A8 TAY A509 A9 00 LDA #&00 A50B BA TSX A50C 9D 05 01 STA &0105,X A50F B9 D8 BF LDA &BFD8,Y A512 8D D8 10 STA &10D8 A515 B9 E0 BF LDA &BFE0,Y A518 8D D9 10 STA &10D9 A51B B9 E8 BF LDA &BFE8,Y A51E 4A LSR A A51F 08 PHP A520 4A LSR A A521 08 PHP A522 8D 7F 10 STA &107F A525 20 A5 A6 JSR R6A5 .R528 A528 B1 B4 LDA (&B4),Y A52A 99 60 10 STA &1060,Y A52D 88 DEY A52E 10 F8 BPL R528 A530 AD 63 10 LDA &1063 A533 2D 64 10 AND &1064 A536 0D D7 10 ORA &10D7 A539 18 CLC A53A 69 01 ADC #&01 A53C F0 02 BEQ R540 A53E A9 FF LDA #&FF .R540 A540 8D 81 10 STA &1081 A543 AD 7F 10 LDA &107F A546 B0 07 BCS R54F A548 A2 61 LDX #&61 A54A A0 10 LDY #&10 A54C 20 06 04 JSR &0406 .R54F A54F 28 PLP A550 B0 04 BCS R556 A552 28 PLP .R553 A553 6C D8 10 JMP (&10D8) .R556 A556 A2 03 LDX #&03 .R558 A558 BD 69 10 LDA &1069,X A55B 95 B6 STA &B6,X A55D CA DEX A55E 10 F8 BPL R558 A560 A2 B6 LDX #&B6 A562 AC 60 10 LDY &1060 A565 A9 00 LDA #&00 A567 28 PLP A568 B0 03 BCS R56D A56A 20 6F 9E JSR QE6F .R56D A56D 20 4C 9E JSR QE4C A570 A2 03 LDX #&03 .R572 A572 B5 B6 LDA &B6,X A574 9D 69 10 STA &1069,X A577 CA DEX A578 10 F8 BPL R572 .R57A A57A 20 97 A6 JSR R697 A57D 30 0D BMI R58C .R57F A57F AC 60 10 LDY &1060 A582 20 53 A5 JSR R553 A585 B0 0D BCS R594 A587 A2 09 LDX #&09 A589 20 8B A6 JSR R68B .R58C A58C A2 05 LDX #&05 A58E 20 8B A6 JSR R68B A591 D0 EC BNE R57F A593 18 CLC .R594 A594 08 PHP A595 20 97 A6 JSR R697 A598 A2 05 LDX #&05 A59A 20 8B A6 JSR R68B A59D 20 A5 A6 JSR R6A5 .R5A0 A5A0 B9 60 10 LDA &1060,Y A5A3 91 B4 STA (&B4),Y A5A5 88 DEY A5A6 10 F8 BPL R5A0 A5A8 28 PLP A5A9 60 RTS ;OSGBPB 8 = read filenames in default dir A5AA 20 4C 93 JSR Q34C A5AD 20 0F 8F JSR PF0F A5B0 A9 BC LDA #&BC A5B2 8D D8 10 STA &10D8 A5B5 A9 A5 LDA #&A5 A5B7 8D D9 10 STA &10D9 A5BA D0 BE BNE R57A A5BC AC 69 10 LDY &1069 .R5BF A5BF 20 E9 A6 JSR R6E9 A5C2 CC 05 0F CPY &0F05 A5C5 B0 28 BCS R5EF A5C7 B9 0F 0E LDA &0E0F,Y A5CA 20 CB 8A JSR PACB A5CD 45 CE EOR &CE A5CF B0 02 BCS R5D3 A5D1 29 DF AND #&DF .R5D3 A5D3 29 7F AND #&7F A5D5 F0 05 BEQ R5DC A5D7 20 24 8C JSR PC24 A5DA D0 E3 BNE R5BF .R5DC A5DC A9 07 LDA #&07 A5DE 20 76 A6 JSR R676 A5E1 85 B0 STA &B0 .R5E3 A5E3 B9 08 0E LDA &0E08,Y A5E6 20 76 A6 JSR R676 A5E9 C8 INY A5EA C6 B0 DEC &B0 A5EC D0 F5 BNE R5E3 A5EE 18 CLC .R5EF A5EF 8C 69 10 STY &1069 A5F2 AD 04 0F LDA &0F04 A5F5 8D 60 10 STA &1060 A5F8 60 RTS ;OSGBPB 5 = read title, boot option and drive A5F9 20 4C 93 JSR Q34C A5FC 20 0F 8F JSR PF0F A5FF A9 0C LDA #&0C A601 20 76 A6 JSR R676 A604 A0 00 LDY #&00 .R606 A606 B9 00 0E LDA &0E00,Y A609 20 76 A6 JSR R676 A60C C8 INY A60D C0 08 CPY #&08 A60F D0 F5 BNE R606 .R611 A611 B9 F8 0E LDA &0EF8,Y A614 20 76 A6 JSR R676 A617 C8 INY A618 C0 0C CPY #&0C A61A D0 F5 BNE R611 A61C AD 06 0F LDA &0F06 A61F 20 62 8A JSR PA62 A622 20 76 A6 JSR R676 A625 A5 CF LDA &CF A627 4C 76 A6 JMP R676 ;OSGBPB 6 = read default (CSD) drive and dir A62A 20 6D A6 JSR R66D A62D AD CB 10 LDA &10CB A630 09 30 ORA #&30 A632 20 76 A6 JSR R676 A635 20 6D A6 JSR R66D A638 AD CA 10 LDA &10CA A63B 4C 76 A6 JMP R676 ;OSGBPB 7 = read library drive and directory A63E 20 6D A6 JSR R66D A641 AD CD 10 LDA &10CD A644 09 30 ORA #&30 A646 20 76 A6 JSR R676 A649 20 6D A6 JSR R66D A64C AD CC 10 LDA &10CC A64F 4C 76 A6 JMP R676 ;OSGBPB 1 = set pointer and write data ;OSGBPB 2 = write data A652 20 5A A6 JSR R65A A655 20 34 A3 JSR R334 A658 18 CLC A659 60 RTS .R65A A65A 2C 81 10 BIT &1081 A65D 10 06 BPL R665 A65F AD E5 FE LDA &FEE5 A662 4C 86 A6 JMP R686 .R665 A665 20 B2 A6 JSR R6B2 A668 A1 B8 LDA (&B8,X) A66A 4C 86 A6 JMP R686 .R66D A66D A9 01 LDA #&01 A66F D0 05 BNE R676 ;OSGBPB 3 = set pointer and read data ;OSGBPB 4 = read data A671 20 EE A2 JSR R2EE A674 B0 20 BCS R696 .R676 A676 2C 81 10 BIT &1081 A679 10 06 BPL R681 A67B 8D E5 FE STA &FEE5 A67E 4C 86 A6 JMP R686 .R681 A681 20 B2 A6 JSR R6B2 A684 81 B8 STA (&B8,X) .R686 A686 20 27 84 JSR P427 A689 A2 01 LDX #&01 .R68B A68B A0 04 LDY #&04 .R68D A68D FE 60 10 INC &1060,X A690 D0 04 BNE R696 A692 E8 INX A693 88 DEY A694 D0 F7 BNE R68D .R696 A696 60 RTS .R697 A697 A2 03 LDX #&03 .R699 A699 A9 FF LDA #&FF A69B 5D 65 10 EOR &1065,X A69E 9D 65 10 STA &1065,X A6A1 CA DEX A6A2 10 F5 BPL R699 A6A4 60 RTS .R6A5 A6A5 AD 7D 10 LDA &107D A6A8 85 B4 STA &B4 A6AA AD 7E 10 LDA &107E A6AD 85 B5 STA &B5 A6AF A0 0C LDY #&0C A6B1 60 RTS .R6B2 A6B2 48 PHA A6B3 AD 61 10 LDA &1061 A6B6 85 B8 STA &B8 A6B8 AD 62 10 LDA &1062 A6BB 85 B9 STA &B9 A6BD A2 00 LDX #&00 A6BF 68 PLA A6C0 60 RTS .R6C1 A6C1 BA TSX A6C2 A9 00 LDA #&00 A6C4 9D 07 01 STA &0107,X A6C7 88 DEY .R6C8 A6C8 C8 INY A6C9 B1 F2 LDA (&F2),Y A6CB C9 20 CMP #&20 A6CD F0 F9 BEQ R6C8 A6CF C9 0D CMP #&0D A6D1 D0 03 BNE R6D6 A6D3 4C 0B 8A JMP PA0B .R6D6 A6D6 A9 00 LDA #&00 A6D8 85 A8 STA &A8 A6DA 85 A9 STA &A9 A6DC 48 PHA A6DD 98 TYA A6DE 18 CLC A6DF 65 F2 ADC &F2 A6E1 AA TAX A6E2 A5 F3 LDA &F3 A6E4 69 00 ADC #&00 A6E6 A8 TAY A6E7 68 PLA A6E8 60 RTS .R6E9 A6E9 C0 F8 CPY #&F8 A6EB D0 0B BNE R6F8 A6ED 20 12 A7 JSR R712 A6F0 20 70 A8 JSR R870 A6F3 A0 00 LDY #&00 A6F5 8C 69 10 STY &1069 .R6F8 A6F8 60 RTS .R6F9 A6F9 C9 04 CMP #&04 A6FB 08 PHP A6FC 20 9B 9F JSR QF9B A6FF 29 30 AND #&30 A701 28 PLP A702 90 02 BCC R706 A704 09 08 ORA #&08 .R706 A706 5D 0E 0F EOR &0F0E,X A709 29 38 AND #&38 A70B 5D 0E 0F EOR &0F0E,X A70E 9D 0E 0F STA &0F0E,X A711 60 RTS .R712 A712 08 PHP A713 20 18 8E JSR PE18 A716 B0 07 BCS R71F A718 2C 02 0F BIT &0F02 A71B 50 02 BVC R71F A71D 28 PLP A71E 60 RTS .R71F A71F 28 PLP A720 68 PLA A721 68 PLA A722 60 RTS .R723 A723 20 06 8A JSR PA06 .R726 A726 20 03 90 JSR Q003 A729 4C 2F A7 JMP R72F A72C 20 06 8A JSR PA06 .R72F A72F 20 0F 8F JSR PF0F A732 A0 F8 LDY #&F8 .R734 A734 20 9C 90 JSR Q09C A737 90 01 BCC R73A A739 60 RTS .R73A A73A 20 12 A7 JSR R712 A73D 20 70 A8 JSR R870 A740 4C 34 A7 JMP R734 .R743 A743 AC CE 10 LDY &10CE A746 20 9C 90 JSR Q09C A749 90 13 BCC R75E .R74B A74B AD 00 0F LDA &0F00 A74E 8D E6 10 STA &10E6 A751 AD 01 0F LDA &0F01 A754 8D E7 10 STA &10E7 A757 AD 02 0F LDA &0F02 A75A 8D E5 10 STA &10E5 A75D 60 RTS .R75E A75E 20 12 A7 JSR R712 A761 20 70 A8 JSR R870 A764 A0 F8 LDY #&F8 A766 8C CE 10 STY &10CE A769 4C 43 A7 JMP R743 .R76C A76C AC CE 10 LDY &10CE A76F 20 9C 90 JSR Q09C A772 90 01 BCC R775 A774 60 RTS .R775 A775 20 12 A7 JSR R712 A778 20 FD 8E JSR PEFD A77B 20 70 A8 JSR R870 A77E A0 F8 LDY #&F8 A780 8C CE 10 STY &10CE A783 4C 6C A7 JMP R76C .R786 A786 18 CLC A787 AD 0C 0F LDA &0F0C A78A 69 FF ADC #&FF A78C AD 0D 0F LDA &0F0D A78F 6D 0F 0F ADC &0F0F A792 85 B0 STA &B0 A794 AD 0E 0F LDA &0F0E A797 48 PHA A798 20 A8 A2 JSR R2A8 A79B 85 B1 STA &B1 A79D 68 PLA A79E 2D F4 10 AND &10F4 A7A1 65 B1 ADC &B1 A7A3 85 B1 STA &B1 A7A5 AD 07 0F LDA &0F07 A7A8 38 SEC A7A9 E5 B0 SBC &B0 A7AB 85 AE STA &AE A7AD AD 06 0F LDA &0F06 A7B0 2D F4 10 AND &10F4 A7B3 E5 B1 SBC &B1 A7B5 85 AF STA &AF A7B7 60 RTS .R7B8 A7B8 20 27 84 JSR P427 A7BB 20 18 8E JSR PE18 A7BE 90 08 BCC R7C8 A7C0 A9 00 LDA #&00 A7C2 8D 00 0F STA &0F00 A7C5 8D 01 0F STA &0F01 .R7C8 A7C8 20 86 A7 JSR R786 A7CB 90 08 BCC R7D5 A7CD D0 0B BNE R7DA A7CF A5 AE LDA &AE A7D1 C9 04 CMP #&04 A7D3 B0 05 BCS R7DA .R7D5 A7D5 A9 C6 LDA #&C6 A7D7 4C 25 BB JMP SB25 .R7DA A7DA A5 B0 LDA &B0 A7DC 8D 03 0F STA &0F03 A7DF A5 B1 LDA &B1 A7E1 09 C0 ORA #&C0 A7E3 8D 02 0F STA &0F02 A7E6 AD 06 0F LDA &0F06 A7E9 48 PHA A7EA AD 07 0F LDA &0F07 A7ED 48 PHA A7EE 20 86 A8 JSR R886 A7F1 A0 00 LDY #&00 .R7F3 A7F3 A9 3F LDA #&3F A7F5 99 00 0E STA &0E00,Y A7F8 A9 00 LDA #&00 A7FA 99 00 0F STA &0F00,Y A7FD C8 INY A7FE D0 F3 BNE R7F3 A800 68 PLA A801 8D 07 0F STA &0F07 A804 68 PLA A805 8D 06 0F STA &0F06 A808 A5 B0 LDA &B0 A80A 8D 01 0F STA &0F01 A80D A5 B1 LDA &B1 A80F 8D 00 0F STA &0F00 A812 A9 80 LDA #&80 A814 8D 02 0F STA &0F02 A817 A9 08 LDA #&08 A819 8D 05 0F STA &0F05 A81C AD 0F 0E LDA &0E0F A81F 09 80 ORA #&80 A821 8D 0F 0E STA &0E0F A824 A9 02 LDA #&02 A826 8D 0F 0F STA &0F0F A829 A5 B1 LDA &B1 A82B 0A ASL A A82C C9 08 CMP #&08 A82E 29 06 AND #&06 A830 69 00 ADC #&00 A832 0A ASL A A833 0A ASL A A834 0A ASL A A835 8D 0E 0F STA &0F0E A838 A5 B0 LDA &B0 A83A 8D 0D 0F STA &0F0D A83D 4C 06 8F JMP PF06 .R840 A840 2C E5 10 BIT &10E5 A843 30 03 BMI R848 A845 4C 95 8D JMP PD95 .R848 A848 AD E6 10 LDA &10E6 A84B 09 80 ORA #&80 A84D 8D 02 0F STA &0F02 A850 AD E7 10 LDA &10E7 A853 8D 03 0F STA &0F03 A856 4C 70 A8 JMP R870 A859 4C 86 A8 JMP R886 .R85C A85C 20 18 8E JSR PE18 A85F 90 01 BCC R862 .R861 A861 60 RTS .R862 A862 20 27 84 JSR P427 .R865 A865 2C 02 0F BIT &0F02 A868 50 F7 BVC R861 A86A 20 70 A8 JSR R870 A86D 4C 65 A8 JMP R865 .R870 A870 20 57 84 JSR P457 A873 AD 02 0F LDA &0F02 A876 29 07 AND #&07 A878 8D 00 0F STA &0F00 A87B AD 03 0F LDA &0F03 A87E 8D 01 0F STA &0F01 A881 20 26 8D JSR PD26 A884 D0 06 BNE R88C .R886 A886 20 57 84 JSR P457 A889 20 47 8D JSR PD47 .R88C A88C 20 83 8F JSR PF83 A88F 4C 2B 8F JMP PF2B ;*TAPEDISC3 A892 A9 03 LDA #&03 A894 D0 02 BNE R898 ;*TAPEDISC A896 A9 0C LDA #&0C .R898 A898 8D 71 0D STA &0D71 A89B A9 FE LDA #&FE A89D D0 02 BNE R8A1 ;*LOADTAPE A89F A9 00 LDA #&00 .R8A1 A8A1 8D 14 09 STA &0914 A8A4 20 42 AA JSR RA42 A8A7 8E 17 09 STX &0917 A8AA 8C 18 09 STY &0918 A8AD 20 C8 A9 JSR R9C8 .R8B0 A8B0 A9 0F LDA #&0F A8B2 20 9E 8B JSR PB9E A8B5 78 SEI A8B6 A9 01 LDA #&01 A8B8 8D 04 02 STA &0204 A8BB A9 0D LDA #&0D A8BD 8D 05 02 STA &0205 A8C0 58 CLI A8C1 A9 00 LDA #&00 A8C3 A0 4C LDY #&4C .R8C5 A8C5 99 1B 09 STA &091B,Y A8C8 88 DEY A8C9 10 FA BPL R8C5 A8CB A9 8B LDA #&8B A8CD A2 01 LDX #&01 A8CF A0 02 LDY #&02 A8D1 20 F4 FF JSR &FFF4 A8D4 AE 71 0D LDX &0D71 A8D7 A9 8C LDA #&8C A8D9 20 42 B8 JSR S842 A8DC 20 D4 A9 JSR R9D4 .R8DF A8DF AD 17 09 LDA &0917 A8E2 85 B0 STA &B0 A8E4 AD 18 09 LDA &0918 A8E7 85 B1 STA &B1 A8E9 A0 00 LDY #&00 A8EB B1 B0 LDA (&B0),Y A8ED 8D 15 09 STA &0915 A8F0 C9 0D CMP #&0D A8F2 D0 1A BNE R90E A8F4 A9 B2 LDA #&B2 A8F6 85 B0 STA &B0 A8F8 A9 03 LDA #&03 A8FA 85 B1 STA &B1 A8FC AD B2 03 LDA &03B2 A8FF C9 0D CMP #&0D A901 D0 0B BNE R90E A903 A0 08 LDY #&08 .R905 A905 B9 54 AA LDA &AA54,Y A908 99 B1 03 STA &03B1,Y A90B 88 DEY A90C D0 F7 BNE R905 .R90E A90E B1 B0 LDA (&B0),Y A910 D0 04 BNE R916 A912 A9 0D LDA #&0D A914 91 B0 STA (&B0),Y .R916 A916 C8 INY A917 C0 07 CPY #&07 A919 D0 F3 BNE R90E A91B A9 0D LDA #&0D A91D 91 B0 STA (&B0),Y A91F A5 B0 LDA &B0 A921 8D 29 09 STA &0929 A924 A5 B1 LDA &B1 A926 8D 2A 09 STA &092A A929 A0 07 LDY #&07 .R92B A92B B9 BE 03 LDA &03BE,Y A92E 99 2B 09 STA &092B,Y A931 88 DEY A932 10 F7 BPL R92B A934 AD 19 09 LDA &0919 A937 8D 33 09 STA &0933 A93A 18 CLC A93B 6D C8 03 ADC &03C8 A93E 8D 37 09 STA &0937 A941 AD 1A 09 LDA &091A A944 8D 34 09 STA &0934 A947 6D C6 03 ADC &03C6 A94A 69 01 ADC #&01 A94C 8D 38 09 STA &0938 A94F 78 SEI A950 A9 93 LDA #&93 A952 8D 04 02 STA &0204 A955 A9 DC LDA #&DC A957 8D 05 02 STA &0205 A95A 58 CLI A95B 20 71 84 JSR P471 A95E EQUB &0D A95F EQUS "Save to disc" A96B EQUB &A0 A96C A0 00 LDY #&00 .R96E A96E B9 B2 03 LDA &03B2,Y A971 F0 0A BEQ R97D A973 C9 0D CMP #&0D A975 F0 06 BEQ R97D A977 20 E3 FF JSR &FFE3 A97A C8 INY A97B D0 F1 BNE R96E .R97D A97D 20 A5 84 JSR P4A5 A980 AD EC 10 LDA &10EC A983 48 PHA A984 20 5D 81 JSR P15D A987 68 PLA A988 8D EC 10 STA &10EC A98B AD 30 09 LDA &0930 A98E C9 80 CMP #&80 A990 D0 13 BNE R9A5 A992 AD 31 09 LDA &0931 A995 C9 FF CMP #&FF A997 D0 0C BNE R9A5 A999 AD 19 09 LDA &0919 A99C 8D 2B 09 STA &092B A99F AD 1A 09 LDA &091A A9A2 8D 2C 09 STA &092C .R9A5 A9A5 A2 29 LDX #&29 A9A7 A0 09 LDY #&09 A9A9 A9 00 LDA #&00 A9AB 20 DD FF JSR &FFDD A9AE AD 29 09 LDA &0929 A9B1 85 B0 STA &B0 A9B3 AD 2A 09 LDA &092A A9B6 85 B1 STA &B1 A9B8 A9 0D LDA #&0D A9BA A0 00 LDY #&00 A9BC 91 B0 STA (&B0),Y A9BE AD 15 09 LDA &0915 A9C1 C9 0D CMP #&0D A9C3 D0 6D BNE RA32 A9C5 4C B0 A8 JMP R8B0 .R9C8 A9C8 A9 83 LDA #&83 A9CA 20 F4 FF JSR &FFF4 A9CD 8E 19 09 STX &0919 A9D0 8C 1A 09 STY &091A A9D3 60 RTS .R9D4 A9D4 A2 17 LDX #&17 A9D6 A0 09 LDY #&09 A9D8 A9 00 LDA #&00 A9DA 8D 1D 09 STA &091D A9DD A9 FF LDA #&FF A9DF 4C DD FF JMP &FFDD .R9E2 A9E2 20 06 8A JSR PA06 A9E5 A2 FF LDX #&FF .R9E7 A9E7 E8 INX A9E8 20 C5 FF JSR &FFC5 A9EB B0 05 BCS R9F2 A9ED 9D 29 09 STA &0929,X A9F0 90 F5 BCC R9E7 .R9F2 A9F2 A9 0D LDA #&0D A9F4 9D 29 09 STA &0929,X A9F7 A9 29 LDA #&29 A9F9 8D 17 09 STA &0917 A9FC A9 09 LDA #&09 A9FE 8D 18 09 STA &0918 AA01 60 RTS ;*DOWNLOAD AA02 20 E2 A9 JSR R9E2 AA05 20 B8 B2 JSR S2B8 AA08 85 A8 STA &A8 AA0A AD 43 10 LDA &1043 AA0D 85 A9 STA &A9 AA0F 20 C8 A9 JSR R9C8 AA12 86 AA STX &AA AA14 84 AB STY &AB AA16 20 D4 A9 JSR R9D4 AA19 AE 22 09 LDX &0922 AA1C AD 21 09 LDA &0921 AA1F F0 01 BEQ RA22 AA21 E8 INX .RA22 AA22 A0 00 LDY #&00 .RA24 AA24 B1 AA LDA (&AA),Y AA26 91 A8 STA (&A8),Y AA28 C8 INY AA29 D0 F9 BNE RA24 AA2B E6 A9 INC &A9 AA2D E6 AB INC &AB AA2F CA DEX AA30 10 F0 BPL RA22 .RA32 AA32 4C 56 86 JMP P656 ;NMISR 15/16 = ignore NMIs AA35 40 RTI AA36 AD 14 09 LDA &0914 AA39 2D CA 03 AND &03CA AA3C 8D CA 03 STA &03CA AA3F 4C 93 DC JMP &DC93 .RA42 AA42 88 DEY .RA43 AA43 C8 INY AA44 B1 F2 LDA (&F2),Y AA46 C9 20 CMP #&20 AA48 F0 F9 BEQ RA43 AA4A 4C D6 A6 JMP R6D6 ;*TAPESAVE AA4D A9 0D LDA #&0D AA4F 8D 15 09 STA &0915 AA52 4C DF A8 JMP R8DF AA55 6E 6F 6E ROR &6E6F AA58 61 6D ADC (&6D,X) AA5A 65 C9 ADC &C9 AA5C FE D0 1B INC &1BD0,X AA5F C0 00 CPY #&00 AA61 F0 5D BEQ RAC0 AA63 A2 06 LDX #&06 AA65 A9 14 LDA #&14 AA67 20 F4 FF JSR &FFF4 .RA6A AA6A 2C E0 FE BIT &FEE0 AA6D 10 FB BPL RA6A AA6F AD E1 FE LDA &FEE1 AA72 F0 4A BEQ RABE AA74 20 EE FF JSR &FFEE AA77 4C 6A AA JMP RA6A AA7A C9 FF CMP #&FF AA7C F0 03 BEQ RA81 AA7E 4C B8 80 JMP P0B8 .RA81 AA81 A9 AD LDA #&AD AA83 8D 20 02 STA &0220 AA86 A9 06 LDA #&06 AA88 8D 21 02 STA &0221 AA8B A9 16 LDA #&16 AA8D 8D 02 02 STA &0202 AA90 A9 00 LDA #&00 AA92 8D 03 02 STA &0203 AA95 A9 8E LDA #&8E AA97 8D E0 FE STA &FEE0 AA9A A0 00 LDY #&00 .RA9C AA9C B9 04 AB LDA &AB04,Y AA9F 99 00 04 STA &0400,Y AAA2 B9 04 AC LDA &AC04,Y AAA5 99 00 05 STA &0500,Y AAA8 B9 04 AD LDA &AD04,Y AAAB 99 00 06 STA &0600,Y AAAE 88 DEY AAAF D0 EB BNE RA9C AAB1 20 21 04 JSR &0421 AAB4 A2 60 LDX #&60 .RAB6 AAB6 BD C3 AA LDA &AAC3,X AAB9 95 16 STA &16,X AABB CA DEX AABC 10 F8 BPL RAB6 .RABE AABE A9 00 LDA #&00 .RAC0 AAC0 A6 F4 LDX &F4 AAC2 60 RTS AAC3 A9 FF LDA #&FF AAC5 20 9E 06 JSR &069E AAC8 AD E3 FE LDA &FEE3 AACB A9 00 LDA #&00 AACD 20 95 06 JSR &0695 AAD0 A8 TAY AAD1 B1 FD LDA (&FD),Y AAD3 20 95 06 JSR &0695 .RAD6 AAD6 C8 INY AAD7 B1 FD LDA (&FD),Y AAD9 20 95 06 JSR &0695 AADC AA TAX AADD D0 F7 BNE RAD6 AADF A2 FF LDX #&FF AAE1 9A TXS AAE2 58 CLI .RAE3 AAE3 2C E0 FE BIT &FEE0 AAE6 10 06 BPL RAEE .RAE8 AAE8 AD E1 FE LDA &FEE1 AAEB 20 EE FF JSR &FFEE .RAEE AAEE 2C E2 FE BIT &FEE2 AAF1 10 F0 BPL RAE3 AAF3 2C E0 FE BIT &FEE0 AAF6 30 F0 BMI RAE8 AAF8 AE E3 FE LDX &FEE3 AAFB 86 51 STX &51 AAFD 6C 00 05 JMP (&0500) AB00 EQUB &00,&80,&00,&00 AB04 4C 84 04 JMP &0484 AB07 4C A7 06 JMP &06A7 AB0A C9 80 CMP #&80 AB0C 90 2B BCC RB39 AB0E C9 C0 CMP #&C0 AB10 B0 1A BCS RB2C AB12 09 40 ORA #&40 AB14 C5 15 CMP &15 AB16 D0 20 BNE RB38 AB18 08 PHP AB19 78 SEI AB1A A9 05 LDA #&05 AB1C 20 9E 06 JSR &069E AB1F A5 15 LDA &15 AB21 20 9E 06 JSR &069E AB24 28 PLP AB25 A9 80 LDA #&80 AB27 85 15 STA &15 AB29 85 14 STA &14 AB2B 60 RTS .RB2C AB2C 06 14 ASL &14 AB2E B0 06 BCS RB36 AB30 C5 15 CMP &15 AB32 F0 04 BEQ RB38 AB34 18 CLC AB35 60 RTS .RB36 AB36 85 15 STA &15 .RB38 AB38 60 RTS .RB39 AB39 08 PHP AB3A 78 SEI AB3B 84 13 STY &13 AB3D 86 12 STX &12 AB3F 20 9E 06 JSR &069E AB42 AA TAX AB43 A0 03 LDY #&03 AB45 A5 15 LDA &15 AB47 20 9E 06 JSR &069E .RB4A AB4A B1 12 LDA (&12),Y AB4C 20 9E 06 JSR &069E AB4F 88 DEY AB50 10 F8 BPL RB4A AB52 A0 18 LDY #&18 AB54 8C E0 FE STY &FEE0 AB57 BD 18 05 LDA &0518,X AB5A 8D E0 FE STA &FEE0 AB5D 4A LSR A AB5E 4A LSR A AB5F 90 06 BCC RB67 AB61 2C E5 FE BIT &FEE5 AB64 2C E5 FE BIT &FEE5 .RB67 AB67 20 9E 06 JSR &069E .RB6A AB6A 2C E6 FE BIT &FEE6 AB6D 50 FB BVC RB6A AB6F B0 0D BCS RB7E AB71 E0 04 CPX #&04 AB73 D0 11 BNE RB86 .RB75 AB75 20 14 04 JSR &0414 AB78 20 95 06 JSR &0695 AB7B 4C 32 00 JMP &0032 .RB7E AB7E 4A LSR A AB7F 90 05 BCC RB86 AB81 A0 88 LDY #&88 AB83 8C E0 FE STY &FEE0 .RB86 AB86 28 PLP AB87 60 RTS AB88 58 CLI AB89 B0 11 BCS RB9C AB8B D0 03 BNE RB90 AB8D 4C 9C 05 JMP &059C .RB90 AB90 A2 00 LDX #&00 AB92 A0 FF LDY #&FF AB94 A9 FD LDA #&FD AB96 20 F4 FF JSR &FFF4 AB99 8A TXA AB9A F0 D9 BEQ RB75 .RB9C AB9C A9 FF LDA #&FF AB9E 20 06 04 JSR &0406 ABA1 90 F9 BCC RB9C ABA3 20 D2 04 JSR &04D2 .RBA6 ABA6 A9 07 LDA #&07 ABA8 20 CB 04 JSR &04CB ABAB A0 00 LDY #&00 ABAD 84 00 STY &00 .RBAF ABAF B1 00 LDA (&00),Y ABB1 8D E5 FE STA &FEE5 ABB4 EA NOP ABB5 EA NOP ABB6 EA NOP ABB7 C8 INY ABB8 D0 F5 BNE RBAF ABBA E6 54 INC &54 ABBC D0 06 BNE RBC4 ABBE E6 55 INC &55 ABC0 D0 02 BNE RBC4 ABC2 E6 56 INC &56 .RBC4 ABC4 E6 01 INC &01 ABC6 24 01 BIT &01 ABC8 50 DC BVC RBA6 ABCA 20 D2 04 JSR &04D2 ABCD A9 04 LDA #&04 ABCF A0 00 LDY #&00 ABD1 A2 53 LDX #&53 ABD3 4C 06 04 JMP &0406 ABD6 A9 80 LDA #&80 ABD8 85 54 STA &54 ABDA 85 01 STA &01 ABDC A9 20 LDA #&20 ABDE 2D 06 80 AND &8006 ABE1 A8 TAY ABE2 84 53 STY &53 ABE4 F0 19 BEQ RBFF ABE6 AE 07 80 LDX &8007 .RBE9 ABE9 E8 INX ABEA BD 00 80 LDA &8000,X ABED D0 FA BNE RBE9 ABEF BD 01 80 LDA &8001,X ABF2 85 53 STA &53 ABF4 BD 02 80 LDA &8002,X ABF7 85 54 STA &54 ABF9 BC 03 80 LDY &8003,X ABFC BD 04 80 LDA &8004,X .RBFF ABFF 85 56 STA &56 AC01 84 55 STY &55 AC03 60 RTS AC04 EQUW &37,&05 ;R2 was &00 - jump osrdch_call AC06 EQUW &96,&05 ;R2 was &02 - jump oscli_call AC08 EQUW &F2,&05 ;R2 was &04 - jump short_osbyte AC0A EQUW &07,&06 ;R2 was &06 - jump long_osbyte AC0C EQUW &27,&06 ;R2 was &08 - jump osword_call AC0E EQUW &68,&06 ;R2 was &0A - jump osword0_call AC10 EQUW &5E,&05 ;R2 was &0C - jump osargs_call AC12 EQUW &2D,&05 ;R2 was &0E - jump osbget_call AC14 EQUW &20,&05 ;R2 was &10 - jump osbput_call AC16 EQUW &42,&05 ;R2 was &12 - jump osfind_call_1 AC18 EQUW &A9,&05 ;R2 was &14 - jump osfile_call AC1A EQUW &D1,&05 ;R2 was &16 - jump osgbpb_call AC1C EQUB &86 AC1D EQUB &88 AC1E EQUB &96 AC1F EQUB &98 AC20 EQUB &18 AC21 EQUB &18 AC22 EQUB &82 AC23 EQUB &18 AC24 20 C5 06 JSR &06C5 AC27 A8 TAY AC28 20 C5 06 JSR &06C5 AC2B 20 D4 FF JSR &FFD4 AC2E 4C 9C 05 JMP &059C AC31 20 C5 06 JSR &06C5 AC34 A8 TAY AC35 20 D7 FF JSR &FFD7 AC38 4C 3A 05 JMP &053A AC3B 20 E0 FF JSR &FFE0 AC3E 6A ROR A AC3F 20 95 06 JSR &0695 AC42 2A ROL A AC43 4C 9E 05 JMP &059E AC46 20 C5 06 JSR &06C5 AC49 F0 0B BEQ RC56 AC4B 48 PHA AC4C 20 82 05 JSR &0582 AC4F 68 PLA AC50 20 CE FF JSR &FFCE AC53 4C 9E 05 JMP &059E .RC56 AC56 20 C5 06 JSR &06C5 AC59 A8 TAY AC5A A9 00 LDA #&00 AC5C 20 CE FF JSR &FFCE AC5F 4C 9C 05 JMP &059C AC62 20 C5 06 JSR &06C5 AC65 A8 TAY AC66 A2 04 LDX #&04 .RC68 AC68 20 C5 06 JSR &06C5 AC6B 95 FF STA &FF,X AC6D CA DEX AC6E D0 F8 BNE RC68 AC70 20 C5 06 JSR &06C5 AC73 20 DA FF JSR &FFDA AC76 20 95 06 JSR &0695 AC79 A2 03 LDX #&03 .RC7B AC7B B5 00 LDA &00,X AC7D 20 95 06 JSR &0695 AC80 CA DEX AC81 10 F8 BPL RC7B AC83 4C 36 00 JMP &0036 AC86 A2 00 LDX #&00 AC88 A0 00 LDY #&00 .RC8A AC8A 20 C5 06 JSR &06C5 AC8D 99 00 07 STA &0700,Y AC90 C8 INY AC91 F0 04 BEQ RC97 AC93 C9 0D CMP #&0D AC95 D0 F3 BNE RC8A .RC97 AC97 A0 07 LDY #&07 AC99 60 RTS AC9A 20 82 05 JSR &0582 AC9D 20 F7 FF JSR &FFF7 ACA0 A9 7F LDA #&7F .RCA2 ACA2 2C E2 FE BIT &FEE2 ACA5 50 FB BVC RCA2 ACA7 8D E3 FE STA &FEE3 .RCAA ACAA 4C 36 00 JMP &0036 ACAD A2 10 LDX #&10 .RCAF ACAF 20 C5 06 JSR &06C5 ACB2 95 01 STA &01,X ACB4 CA DEX ACB5 D0 F8 BNE RCAF ACB7 20 82 05 JSR &0582 ACBA 86 00 STX &00 ACBC 84 01 STY &01 ACBE A0 00 LDY #&00 ACC0 20 C5 06 JSR &06C5 ACC3 20 DD FF JSR &FFDD ACC6 20 95 06 JSR &0695 ACC9 A2 10 LDX #&10 .RCCB ACCB B5 01 LDA &01,X ACCD 20 95 06 JSR &0695 ACD0 CA DEX ACD1 D0 F8 BNE RCCB ACD3 F0 D5 BEQ RCAA ACD5 A2 0D LDX #&0D .RCD7 ACD7 20 C5 06 JSR &06C5 ACDA 95 FF STA &FF,X ACDC CA DEX ACDD D0 F8 BNE RCD7 ACDF 20 C5 06 JSR &06C5 ACE2 A0 00 LDY #&00 ACE4 20 D1 FF JSR &FFD1 ACE7 48 PHA ACE8 A2 0C LDX #&0C .RCEA ACEA B5 00 LDA &00,X ACEC 20 95 06 JSR &0695 ACEF CA DEX ACF0 10 F8 BPL RCEA ACF2 68 PLA ACF3 4C 3A 05 JMP &053A ACF6 20 C5 06 JSR &06C5 ACF9 AA TAX ACFA 20 C5 06 JSR &06C5 ACFD 20 F4 FF JSR &FFF4 .RD00 AD00 2C E2 FE BIT &FEE2 AD03 50 FB BVC RD00 AD05 8E E3 FE STX &FEE3 .RD08 AD08 4C 36 00 JMP &0036 AD0B 20 C5 06 JSR &06C5 AD0E AA TAX AD0F 20 C5 06 JSR &06C5 AD12 A8 TAY AD13 20 C5 06 JSR &06C5 AD16 20 F4 FF JSR &FFF4 AD19 49 9D EOR #&9D AD1B F0 EB BEQ RD08 AD1D 6A ROR A AD1E 20 95 06 JSR &0695 .RD21 AD21 2C E2 FE BIT &FEE2 AD24 50 FB BVC RD21 AD26 8C E3 FE STY &FEE3 AD29 70 D5 BVS RD00 AD2B 20 C5 06 JSR &06C5 AD2E A8 TAY .RD2F AD2F 2C E2 FE BIT &FEE2 AD32 10 FB BPL RD2F AD34 AE E3 FE LDX &FEE3 AD37 CA DEX AD38 30 0F BMI RD49 .RD3A AD3A 2C E2 FE BIT &FEE2 AD3D 10 FB BPL RD3A AD3F AD E3 FE LDA &FEE3 AD42 9D 28 01 STA &0128,X AD45 CA DEX AD46 10 F2 BPL RD3A AD48 98 TYA .RD49 AD49 A2 28 LDX #&28 AD4B A0 01 LDY #&01 AD4D 20 F1 FF JSR &FFF1 .RD50 AD50 2C E2 FE BIT &FEE2 AD53 10 FB BPL RD50 AD55 AE E3 FE LDX &FEE3 AD58 CA DEX AD59 30 0E BMI RD69 .RD5B AD5B BC 28 01 LDY &0128,X .RD5E AD5E 2C E2 FE BIT &FEE2 AD61 50 FB BVC RD5E AD63 8C E3 FE STY &FEE3 AD66 CA DEX AD67 10 F2 BPL RD5B .RD69 AD69 4C 36 00 JMP &0036 AD6C A2 04 LDX #&04 .RD6E AD6E 20 C5 06 JSR &06C5 AD71 95 00 STA &00,X AD73 CA DEX AD74 10 F8 BPL RD6E AD76 E8 INX AD77 A0 00 LDY #&00 AD79 8A TXA AD7A 20 F1 FF JSR &FFF1 AD7D 90 05 BCC RD84 AD7F A9 FF LDA #&FF AD81 4C 9E 05 JMP &059E .RD84 AD84 A2 00 LDX #&00 AD86 A9 7F LDA #&7F AD88 20 95 06 JSR &0695 .RD8B AD8B BD 00 07 LDA &0700,X AD8E 20 95 06 JSR &0695 AD91 E8 INX AD92 C9 0D CMP #&0D AD94 D0 F5 BNE RD8B AD96 4C 36 00 JMP &0036 .RD99 AD99 2C E2 FE BIT &FEE2 AD9C 50 FB BVC RD99 AD9E 8D E3 FE STA &FEE3 ADA1 60 RTS .RDA2 ADA2 2C E6 FE BIT &FEE6 ADA5 50 FB BVC RDA2 ADA7 8D E7 FE STA &FEE7 ADAA 60 RTS ADAB A5 FF LDA &FF ADAD 38 SEC ADAE 6A ROR A ADAF 30 0F BMI RDC0 ADB1 48 PHA ADB2 A9 00 LDA #&00 ADB4 20 BC 06 JSR &06BC ADB7 98 TYA ADB8 20 BC 06 JSR &06BC ADBB 8A TXA ADBC 20 BC 06 JSR &06BC ADBF 68 PLA .RDC0 ADC0 2C E0 FE BIT &FEE0 ADC3 50 FB BVC RDC0 ADC5 8D E1 FE STA &FEE1 ADC8 60 RTS .RDC9 ADC9 2C E2 FE BIT &FEE2 ADCC 10 FB BPL RDC9 ADCE AD E3 FE LDA &FEE3 ADD1 60 RTS ;*DCOPY ADD2 20 68 94 JSR Q468 ADD5 20 F5 96 JSR Q6F5 ADD8 A9 00 LDA #&00 ADDA 85 C8 STA &C8 ADDC 85 C9 STA &C9 ADDE 85 CA STA &CA ADE0 85 CB STA &CB ADE2 85 A8 STA &A8 ADE4 AD D2 10 LDA &10D2 ADE7 85 CF STA &CF ADE9 A9 28 LDA #&28 ADEB 2C E4 10 BIT &10E4 ADEE 10 01 BPL RDF1 ADF0 0A ASL A .RDF1 ADF1 85 B6 STA &B6 ADF3 20 88 B3 JSR S388 ADF6 20 16 8B JSR PB16 ADF9 20 71 84 JSR P471 ADFC EQUB &0D ADFD EQUS "Normalise Y/N" AE0A EQUB &BF AE0B 20 87 94 JSR Q487 AE0E 08 PHP AE0F A0 00 LDY #&00 AE11 28 PLP AE12 D0 01 BNE RE15 AE14 88 DEY .RE15 AE15 84 B5 STY &B5 AE17 20 A5 84 JSR P4A5 AE1A 20 A5 84 JSR P4A5 AE1D 20 71 8F JSR PF71 AE20 A0 00 LDY #&00 .RE22 AE22 84 BA STY &BA AE24 20 2F AE JSR RE2F AE27 A4 BA LDY &BA AE29 C8 INY AE2A C4 B6 CPY &B6 AE2C D0 F4 BNE RE22 AE2E 60 RTS .RE2F AE2F A5 A9 LDA &A9 AE31 48 PHA AE32 20 22 98 JSR Q822 AE35 A9 00 LDA #&00 AE37 8D 6A 0D STA &0D6A AE3A 20 A5 84 JSR P4A5 AE3D 20 71 84 JSR P471 AE40 EQUS "Copy track" AE4A EQUB &A0 AE4B A5 BA LDA &BA AE4D 20 82 8B JSR PB82 AE50 20 A5 84 JSR P4A5 AE53 20 11 9A JSR QA11 AE56 20 90 85 JSR P590 AE59 2C 8F 02 BIT &028F AE5C 10 06 BPL RE64 AE5E 20 E8 AE JSR REE8 AE61 4C 67 AE JMP RE67 .RE64 AE64 20 B7 AF JSR RFB7 .RE67 AE67 68 PLA AE68 85 A9 STA &A9 AE6A AD 80 18 LDA &1880 AE6D D0 12 BNE RE81 AE6F 20 71 84 JSR P471 AE72 EQUB &0D AE73 EQUS "Track unused" AE7F EQUB &8D AE80 60 RTS .RE81 AE81 20 21 B3 JSR S321 AE84 20 2D 98 JSR Q82D AE87 AD EC 10 LDA &10EC AE8A 48 PHA AE8B 20 17 9A JSR QA17 AE8E 68 PLA AE8F 20 0D 89 JSR P90D AE92 4C 1C B0 JMP S01C .RE95 AE95 A9 0D LDA #&0D AE97 20 9E 8B JSR PB9E AE9A A9 50 LDA #&50 AE9C 85 A7 STA &A7 AE9E A9 00 LDA #&00 AEA0 85 A6 STA &A6 AEA2 A9 E0 LDA #&E0 AEA4 4C 0A 87 JMP P70A .REA7 AEA7 20 FE B2 JSR S2FE AEAA A5 7A LDA &7A AEAC F0 07 BEQ REB5 AEAE 20 71 84 JSR P471 AEB1 EQUS "??" AEB3 EQUB &8D .REB4 AEB4 60 RTS .REB5 AEB5 AD 00 18 LDA &1800 AEB8 20 82 8B JSR PB82 AEBB 4C A5 84 JMP P4A5 ;*RTRACK AEBE 20 57 93 JSR Q357 AEC1 20 B8 B2 JSR S2B8 AEC4 85 BA STA &BA AEC6 20 71 84 JSR P471 AEC9 EQUB &0D AECA EQUS "Track: " AED1 EQUB &A6 AED2 20 A7 AE JSR REA7 AED5 A5 7A LDA &7A AED7 D0 DB BNE REB4 AED9 20 71 84 JSR P471 AEDC EQUS "Tk Sd Sc Sz" AEE7 EQUB &8D .REE8 AEE8 A9 00 LDA #&00 AEEA 8D 80 18 STA &1880 AEED 20 FE B2 JSR S2FE AEF0 A5 7A LDA &7A AEF2 D0 C0 BNE REB4 AEF4 2C 8F 02 BIT &028F AEF7 30 03 BMI REFC AEF9 4C C4 AF JMP RFC4 .REFC AEFC 20 86 B2 JSR S286 AEFF 20 95 AE JSR RE95 AF02 A9 50 LDA #&50 AF04 85 A7 STA &A7 AF06 A9 18 LDA #&18 AF08 85 A9 STA &A9 AF0A A9 40 LDA #&40 AF0C 85 A5 STA &A5 AF0E A0 00 LDY #&00 AF10 84 A4 STY &A4 AF12 84 A6 STY &A6 AF14 84 A8 STY &A8 AF16 8C 80 18 STY &1880 .RF19 AF19 20 30 AF JSR RF30 AF1C B0 07 BCS RF25 AF1E C8 INY AF1F CC EC 10 CPY &10EC AF22 D0 F5 BNE RF19 AF24 18 CLC .RF25 AF25 60 RTS .RF26 AF26 B1 A6 LDA (&A6),Y AF28 C8 INY AF29 D0 02 BNE RF2D AF2B E6 A7 INC &A7 .RF2D AF2D 09 00 ORA #&00 AF2F 60 RTS .RF30 AF30 A0 05 LDY #&05 .RF32 AF32 20 26 AF JSR RF26 AF35 C9 FB CMP #&FB AF37 F0 11 BEQ RF4A AF39 C9 CB CMP #&CB AF3B F0 0D BEQ RF4A AF3D C9 F8 CMP #&F8 AF3F F0 09 BEQ RF4A AF41 C9 C8 CMP #&C8 AF43 F0 05 BEQ RF4A AF45 98 TYA AF46 D0 EA BNE RF32 AF48 38 SEC AF49 60 RTS .RF4A AF4A 84 A1 STY &A1 .RF4C AF4C 88 DEY AF4D D0 04 BNE RF53 AF4F A4 A1 LDY &A1 AF51 D0 DF BNE RF32 .RF53 AF53 B1 A6 LDA (&A6),Y AF55 C9 02 CMP #&02 AF57 B0 F3 BCS RF4C AF59 88 DEY AF5A 88 DEY AF5B 88 DEY AF5C 88 DEY AF5D B1 A6 LDA (&A6),Y AF5F C9 FE CMP #&FE AF61 F0 0A BEQ RF6D AF63 C9 CE CMP #&CE AF65 F0 06 BEQ RF6D AF67 C8 INY AF68 C8 INY AF69 C8 INY AF6A C8 INY AF6B D0 DF BNE RF4C .RF6D AF6D C8 INY AF6E 84 80 STY &80 AF70 A0 00 LDY #&00 .RF72 AF72 84 81 STY &81 AF74 A4 80 LDY &80 AF76 20 26 AF JSR RF26 AF79 84 80 STY &80 AF7B A4 81 LDY &81 AF7D 91 A8 STA (&A8),Y AF7F 20 82 8B JSR PB82 AF82 20 AD 84 JSR P4AD AF85 C8 INY AF86 C0 04 CPY #&04 AF88 D0 E8 BNE RF72 AF8A EE 80 18 INC &1880 AF8D 98 TYA AF8E 18 CLC AF8F 65 A8 ADC &A8 AF91 85 A8 STA &A8 AF93 A5 A9 LDA &A9 AF95 69 00 ADC #&00 AF97 85 A9 STA &A9 AF99 20 A5 84 JSR P4A5 AF9C A4 A1 LDY &A1 AF9E 98 TYA AF9F 18 CLC AFA0 65 A6 ADC &A6 AFA2 85 A6 STA &A6 AFA4 90 02 BCC RFA8 AFA6 E6 A7 INC &A7 .RFA8 AFA8 A0 00 LDY #&00 .RFAA AFAA B1 A6 LDA (&A6),Y AFAC 91 A4 STA (&A4),Y AFAE C8 INY AFAF D0 F9 BNE RFAA AFB1 E6 A5 INC &A5 AFB3 E6 A7 INC &A7 AFB5 18 CLC AFB6 60 RTS .RFB7 AFB7 20 FE B2 JSR S2FE AFBA A5 7A LDA &7A AFBC F0 06 BEQ RFC4 AFBE A9 00 LDA #&00 AFC0 8D 80 18 STA &1880 AFC3 60 RTS .RFC4 AFC4 A0 00 LDY #&00 .RFC6 AFC6 A2 04 LDX #&04 .RFC8 AFC8 B9 00 18 LDA &1800,Y AFCB 20 82 8B JSR PB82 AFCE 20 AD 84 JSR P4AD AFD1 C8 INY AFD2 CA DEX AFD3 D0 F3 BNE RFC8 AFD5 20 A5 84 JSR P4A5 AFD8 C0 28 CPY #&28 AFDA 90 EA BCC RFC6 AFDC A9 0A LDA #&0A AFDE 8D 80 18 STA &1880 AFE1 AC 00 18 LDY &1800 AFE4 20 44 B3 JSR S344 AFE7 20 60 B3 JSR S360 AFEA A0 00 LDY #&00 .RFEC AFEC B9 00 18 LDA &1800,Y AFEF 85 77 STA &77 AFF1 B9 02 18 LDA &1802,Y AFF4 85 78 STA &78 AFF6 A2 04 LDX #&04 .RFF8 AFF8 20 78 B3 JSR S378 AFFB A5 7A LDA &7A AFFD 99 40 18 STA &1840,Y B000 29 DF AND #&DF B002 F0 03 BEQ S007 B004 CA DEX B005 D0 F1 BNE RFF8 .S007 B007 A2 00 LDX #&00 B009 86 7A STX &7A B00B E6 72 INC &72 B00D 20 28 8C JSR PC28 B010 C0 28 CPY #&28 B012 D0 D8 BNE RFEC B014 A4 BA LDY &BA B016 4C 44 B3 JMP S344 ;*WTRACK B019 20 68 94 JSR Q468 .S01C B01C AD 80 18 LDA &1880 B01F D0 01 BNE S022 B021 60 RTS .S022 B022 20 5D 86 JSR P65D B025 20 F3 B2 JSR S2F3 B028 AD 80 18 LDA &1880 B02B 29 1F AND #&1F B02D 09 20 ORA #&20 B02F 85 79 STA &79 B031 A5 BA LDA &BA B033 85 77 STA &77 B035 A9 18 LDA #&18 B037 85 72 STA &72 B039 20 78 B3 JSR S378 B03C A5 7C LDA &7C B03E F0 03 BEQ S043 B040 4C B7 8F JMP PFB7 .S043 B043 8D 6A 0D STA &0D6A B046 20 6C 86 JSR P66C B049 AC 00 18 LDY &1800 B04C 20 44 B3 JSR S344 B04F A9 04 LDA #&04 B051 20 9E 8B JSR PB9E B054 A9 A0 LDA #&A0 B056 2C 8F 02 BIT &028F B059 30 02 BMI S05D B05B A9 4B LDA #&4B .S05D B05D 85 A1 STA &A1 B05F 20 0D B1 JSR S10D B062 A4 BA LDY &BA B064 4C 44 B3 JMP S344 ;*RESTORE B067 98 TYA B068 48 PHA B069 20 68 94 JSR Q468 B06C 20 60 B3 JSR S360 B06F 20 71 8F JSR PF71 B072 A9 4B LDA #&4B B074 85 76 STA &76 B076 D0 08 BNE S080 ;*RECOVER B078 98 TYA B079 48 PHA B07A 20 60 B3 JSR S360 B07D 20 12 8F JSR PF12 .S080 B080 68 PLA B081 A8 TAY B082 20 B8 B2 JSR S2B8 B085 85 77 STA &77 B087 20 B8 B2 JSR S2B8 B08A 85 78 STA &78 B08C 20 B8 B2 JSR S2B8 B08F 85 7B STA &7B B091 20 B8 B2 JSR S2B8 B094 85 71 STA &71 B096 AD 43 10 LDA &1043 B099 C9 02 CMP #&02 B09B 90 02 BCC S09F B09D 85 72 STA &72 .S09F B09F 20 B8 B2 JSR S2B8 B0A2 F0 02 BEQ S0A6 B0A4 A9 FF LDA #&FF .S0A6 B0A6 85 73 STA &73 B0A8 85 74 STA &74 .S0AA B0AA A5 7B LDA &7B B0AC D0 03 BNE S0B1 B0AE 4C 32 AA JMP RA32 .S0B1 B0B1 20 B7 B0 JSR S0B7 B0B4 4C AA B0 JMP S0AA .S0B7 B0B7 A5 7B LDA &7B B0B9 18 CLC B0BA 65 78 ADC &78 B0BC B0 09 BCS S0C7 B0BE CD EC 10 CMP &10EC B0C1 B0 04 BCS S0C7 B0C3 A5 7B LDA &7B B0C5 90 05 BCC S0CC .S0C7 B0C7 AD EC 10 LDA &10EC B0CA E5 78 SBC &78 .S0CC B0CC 85 7C STA &7C B0CE A5 7B LDA &7B B0D0 38 SEC B0D1 E5 7C SBC &7C B0D3 85 7B STA &7B B0D5 A5 7C LDA &7C B0D7 09 20 ORA #&20 B0D9 85 79 STA &79 B0DB A2 04 LDX #&04 B0DD 20 78 B3 JSR S378 B0E0 A5 7A LDA &7A B0E2 F0 06 BEQ S0EA B0E4 CA DEX B0E5 D0 D6 BNE S0BD B0E7 4C FA B0 JMP S0FA .S0EA B0EA E6 77 INC &77 B0EC A9 00 LDA #&00 B0EE 85 78 STA &78 B0F0 A5 79 LDA &79 B0F2 29 1F AND #&1F B0F4 18 CLC B0F5 65 72 ADC &72 B0F7 85 72 STA &72 B0F9 60 RTS .S0FA B0FA A5 77 LDA &77 B0FC 85 BA STA &BA B0FE 20 65 86 JSR P665 B101 4C B7 8F JMP PFB7 B104 A9 06 LDA #&06 B106 20 9E 8B JSR PB9E B109 A9 88 LDA #&88 B10B 85 A1 STA &A1 .S10D B10D AD 80 18 LDA &1880 B110 85 A4 STA &A4 B112 A9 40 LDA #&40 B114 85 A7 STA &A7 B116 A9 00 LDA #&00 B118 85 A6 STA &A6 B11A 2C 8F 02 BIT &028F B11D 10 21 BPL S140 B11F A6 A4 LDX &A4 B121 A0 00 LDY #&00 .S123 B123 B9 00 18 LDA &1800,Y B126 8D 85 FE STA &FE85 B129 85 BA STA &BA B12B B9 02 18 LDA &1802,Y B12E 85 BB STA &BB B130 A9 01 LDA #&01 B132 85 A4 STA &A4 B134 85 A5 STA &A5 B136 20 D3 87 JSR P7D3 B139 20 28 8C JSR PC28 B13C CA DEX B13D D0 E4 BNE S123 B13F 60 RTS .S140 B140 A0 00 LDY #&00 .S142 B142 A2 09 LDX #&09 .S144 B144 A5 A1 LDA &A1 B146 20 7A 89 JSR P97A B149 B9 00 18 LDA &1800,Y B14C 20 DA 8C JSR PCDA B14F B9 02 18 LDA &1802,Y B152 20 DA 8C JSR PCDA B155 A9 21 LDA #&21 B157 20 DA 8C JSR PCDA B15A 20 94 86 JSR P694 B15D AD 81 FE LDA &FE81 B160 F0 06 BEQ S168 B162 CA DEX B163 10 DF BPL S144 B165 4C B7 8F JMP PFB7 .S168 B168 20 28 8C JSR PC28 B16B C6 A4 DEC &A4 B16D D0 D3 BNE S142 B16F 60 RTS .S170 B170 A9 04 LDA #&04 B172 85 A1 STA &A1 .S174 B174 98 TYA B175 48 PHA B176 A0 00 LDY #&00 B178 B1 BE LDA (&BE),Y B17A AA TAX B17B E6 BE INC &BE B17D D0 02 BNE S181 B17F E6 BF INC &BF .S181 B181 68 PLA B182 A8 TAY B183 8A TXA B184 20 56 B2 JSR S256 B187 C6 A1 DEC &A1 B189 D0 E9 BNE S174 B18B 60 RTS B18C 20 5D 86 JSR P65D B18F 20 C3 84 JSR P4C3 B192 20 51 8D JSR PD51 B195 A9 0B LDA #&0B B197 20 9E 8B JSR PB9E B19A AD 6D 0D LDA &0D6D B19D 29 1F AND #&1F B19F 8D 6D 0D STA &0D6D B1A2 0A ASL A B1A3 0A ASL A B1A4 A8 TAY B1A5 2C D6 10 BIT &10D6 B1A8 10 15 BPL S1BF B1AA A9 07 LDA #&07 B1AC 85 BF STA &BF B1AE A2 00 LDX #&00 B1B0 86 BE STX &BE .S1B2 B1B2 20 A6 89 JSR P9A6 B1B5 AD E5 FE LDA &FEE5 B1B8 9D 00 07 STA &0700,X B1BB E8 INX B1BC 88 DEY B1BD D0 F3 BNE S1B2 .S1BF B1BF A0 62 LDY #&62 B1C1 84 A4 STY &A4 B1C3 84 A7 STY &A7 B1C5 A0 00 LDY #&00 B1C7 84 A3 STY &A3 B1C9 84 A6 STY &A6 B1CB AD EC 10 LDA &10EC B1CE C9 0A CMP #&0A B1D0 F0 0A BEQ S1DC B1D2 A9 4E LDA #&4E B1D4 A2 3C LDX #&3C B1D6 20 58 B2 JSR S258 B1D9 4C E1 B1 JMP S1E1 .S1DC B1DC A9 FF LDA #&FF B1DE 20 56 B2 JSR S256 .S1E1 B1E1 A9 10 LDA #&10 B1E3 CD EC 10 CMP &10EC B1E6 F0 2A BEQ S212 B1E8 A9 00 LDA #&00 B1EA A2 06 LDX #&06 B1EC 20 58 B2 JSR S258 B1EF A9 FE LDA #&FE B1F1 20 56 B2 JSR S256 B1F4 20 70 B1 JSR S170 B1F7 20 54 B2 JSR S254 B1FA A9 FF LDA #&FF B1FC A2 0B LDX #&0B B1FE 20 58 B2 JSR S258 B201 A9 00 LDA #&00 B203 A2 06 LDX #&06 B205 20 58 B2 JSR S258 B208 20 4A B2 JSR S24A B20B A9 FF LDA #&FF B20D A2 15 LDX #&15 B20F 4C 63 B2 JMP S263 .S212 B212 A9 00 LDA #&00 B214 A2 0C LDX #&0C B216 20 58 B2 JSR S258 B219 A9 F5 LDA #&F5 B21B A2 03 LDX #&03 B21D 20 58 B2 JSR S258 B220 A9 FE LDA #&FE B222 20 56 B2 JSR S256 B225 20 70 B1 JSR S170 B228 20 54 B2 JSR S254 B22B A9 4E LDA #&4E B22D A2 16 LDX #&16 B22F 20 58 B2 JSR S258 B232 A9 00 LDA #&00 B234 A2 0C LDX #&0C B236 20 58 B2 JSR S258 B239 A9 F5 LDA #&F5 B23B A2 03 LDX #&03 B23D 20 58 B2 JSR S258 B240 20 4A B2 JSR S24A B243 A9 4E LDA #&4E B245 A2 30 LDX #&30 B247 4C 63 B2 JMP S263 .S24A B24A A9 FB LDA #&FB B24C 20 56 B2 JSR S256 B24F A9 E5 LDA #&E5 B251 20 58 B2 JSR S258 .S254 B254 A9 F7 LDA #&F7 .S256 B256 A2 01 LDX #&01 .S258 B258 91 A3 STA (&A3),Y B25A C8 INY B25B D0 02 BNE S25F B25D E6 A4 INC &A4 .S25F B25F CA DEX B260 D0 F6 BNE S258 B262 60 RTS .S263 B263 20 58 B2 JSR S258 B266 CE 6D 0D DEC &0D6D B269 F0 03 BEQ S26E B26B 4C E1 B1 JMP S1E1 .S26E B26E A9 FF LDA #&FF B270 AE EC 10 LDX &10EC B273 E0 0A CPX #&0A B275 F0 02 BEQ S279 B277 A9 4E LDA #&4E .S279 B279 A2 00 LDX #&00 B27B 20 58 B2 JSR S258 B27E A9 F6 LDA #&F6 B280 20 0A 87 JSR P70A B283 4C 0F 85 JMP P50F .S286 B286 A9 50 LDA #&50 B288 85 AF STA &AF B28A A9 00 LDA #&00 B28C A8 TAY B28D 85 AE STA &AE .S28F B28F 91 AE STA (&AE),Y B291 C8 INY B292 D0 FB BNE S28F B294 E6 AF INC &AF B296 A5 AF LDA &AF B298 C9 66 CMP #&66 B29A D0 F3 BNE S28F B29C 60 RTS .S29D B29D C9 30 CMP #&30 B29F 90 12 BCC S2B3 B2A1 C9 3A CMP #&3A B2A3 90 0B BCC S2B0 B2A5 C9 41 CMP #&41 B2A7 90 0A BCC S2B3 B2A9 C9 47 CMP #&47 B2AB B0 06 BCS S2B3 B2AD 38 SEC B2AE E9 07 SBC #&07 .S2B0 B2B0 29 0F AND #&0F B2B2 60 RTS .S2B3 B2B3 A9 DC LDA #&DC B2B5 4C 25 BB JMP SB25 .S2B8 B2B8 A9 00 LDA #&00 B2BA 8D 42 10 STA &1042 B2BD 8D 43 10 STA &1043 .S2C0 B2C0 B1 F2 LDA (&F2),Y B2C2 C9 20 CMP #&20 B2C4 D0 03 BNE S2C9 B2C6 C8 INY B2C7 D0 F7 BNE S2C0 .S2C9 B2C9 B1 F2 LDA (&F2),Y B2CB C9 0D CMP #&0D B2CD D0 04 BNE S2D3 .S2CF B2CF AD 42 10 LDA &1042 B2D2 60 RTS .S2D3 B2D3 C9 20 CMP #&20 B2D5 F0 F8 BEQ S2CF B2D7 86 AE STX &AE B2D9 A2 03 LDX #&03 .S2DB B2DB 0E 42 10 ASL &1042 B2DE 2E 43 10 ROL &1043 B2E1 CA DEX B2E2 10 F7 BPL S2DB B2E4 A6 AE LDX &AE B2E6 20 9D B2 JSR S29D B2E9 0D 42 10 ORA &1042 B2EC 8D 42 10 STA &1042 B2EF C8 INY B2F0 4C C9 B2 JMP S2C9 .S2F3 B2F3 A2 0B LDX #&0B .S2F5 B2F5 BD A7 BE LDA &BEA7,X B2F8 95 70 STA &70,X B2FA CA DEX B2FB 10 F8 BPL S2F5 B2FD 60 RTS .S2FE B2FE 18 CLC B2FF A9 01 LDA #&01 B301 2C 8F 02 BIT &028F B304 30 02 BMI S308 B306 69 09 ADC #&09 .S308 B308 A8 TAY B309 20 6B B3 JSR S36B B30C A5 BA LDA &BA B30E 85 77 STA &77 B310 A2 01 LDX #&01 .S312 B312 A9 18 LDA #&18 B314 85 72 STA &72 B316 20 78 B3 JSR S378 B319 A5 7A LDA &7A B31B F0 03 BEQ S320 B31D CA DEX B31E 10 F2 BPL S312 .S320 B320 60 RTS .S321 B321 24 B5 BIT &B5 B323 30 01 BMI S326 .S325 B325 60 RTS .S326 B326 AD 80 18 LDA &1880 B329 F0 FA BEQ S325 B32B A0 00 LDY #&00 .S32D B32D A5 CF LDA &CF B32F 4A LSR A B330 99 01 18 STA &1801,Y B333 A9 01 LDA #&01 B335 99 03 18 STA &1803,Y B338 20 28 8C JSR PC28 B33B 98 TYA B33C 4A LSR A B33D 4A LSR A B33E CD 80 18 CMP &1880 B341 D0 EA BNE S32D B343 60 RTS .S344 B344 A9 02 LDA #&02 B346 8D 69 0D STA &0D69 B349 A9 7A LDA #&7A B34B 8D 6A 0D STA &0D6A B34E A5 CF LDA &CF B350 29 01 AND #&01 B352 0A ASL A B353 0A ASL A B354 0A ASL A B355 09 12 ORA #&12 B357 8D 6B 0D STA &0D6B B35A 8C 6C 0D STY &0D6C B35D 4C 6C 86 JMP P66C .S360 B360 A2 09 LDX #&09 .S362 B362 BD 69 BC LDA &BC69,X B365 95 70 STA &70,X B367 CA DEX B368 10 F8 BPL S362 B36A 60 RTS .S36B B36B A2 08 LDX #&08 .S36D B36D BD 60 BC LDA &BC60,X B370 95 70 STA &70,X B372 CA DEX B373 10 F8 BPL S36D B375 84 79 STY &79 B377 60 RTS .S378 B378 A9 FF LDA #&FF B37A 85 70 STA &70 B37C 20 57 84 JSR P457 B37F A9 7F LDA #&7F B381 A0 00 LDY #&00 B383 A2 70 LDX #&70 B385 4C F1 FF JMP &FFF1 .S388 B388 20 62 8A JSR PA62 B38B 49 02 EOR #&02 B38D A4 CF LDY &CF B38F 99 E0 10 STA &10E0,Y B392 AC D3 10 LDY &10D3 B395 99 E0 10 STA &10E0,Y B398 60 RTS .S399 B399 A9 08 LDA #&08 B39B D0 02 BNE S39F .S39D B39D A9 80 LDA #&80 .S39F B39F 18 CLC B3A0 65 80 ADC &80 B3A2 85 80 STA &80 B3A4 90 03 BCC S3A9 B3A6 E6 81 INC &81 B3A8 18 CLC .S3A9 B3A9 60 RTS .S3AA B3AA A9 08 LDA #&08 B3AC D0 02 BNE S3B0 .S3AE B3AE A9 80 LDA #&80 .S3B0 B3B0 85 A3 STA &A3 B3B2 38 SEC B3B3 A5 80 LDA &80 B3B5 E5 A3 SBC &A3 B3B7 85 80 STA &80 B3B9 B0 03 BCS S3BE B3BB C6 81 DEC &81 B3BD 38 SEC .S3BE B3BE 60 RTS ;*MZAP B3BF 20 B8 B2 JSR S2B8 B3C2 48 PHA B3C3 29 07 AND #&07 B3C5 85 88 STA &88 B3C7 68 PLA B3C8 29 F8 AND #&F8 B3CA 85 86 STA &86 B3CC AD 43 10 LDA &1043 B3CF 85 87 STA &87 B3D1 A5 86 LDA &86 B3D3 38 SEC B3D4 E9 58 SBC #&58 B3D6 85 80 STA &80 B3D8 A5 87 LDA &87 B3DA E9 00 SBC #&00 B3DC 85 81 STA &81 B3DE A9 00 LDA #&00 B3E0 85 8C STA &8C B3E2 20 71 84 JSR P471 B3E5 EQUB &16 B3E6 EQUB &87 B3E7 A9 86 LDA #&86 B3E9 20 EE FF JSR &FFEE B3EC 20 71 84 JSR P471 B3EF EQUS "ADDR ****** HEX CODE ******* ASCII" B413 EQUB &A0 B414 A9 85 LDA #&85 B416 20 EE FF JSR &FFEE B419 20 24 B8 JSR S824 B41C 4C FF B5 JMP S5FF ;*DZAP B41F 98 TYA B420 48 PHA B421 A5 F2 LDA &F2 B423 48 PHA B424 A5 F3 LDA &F3 B426 48 PHA B427 20 12 8F JSR PF12 B42A 20 60 B3 JSR S360 B42D A9 7A LDA #&7A B42F 85 72 STA &72 B431 85 8C STA &8C B433 68 PLA B434 85 F3 STA &F3 B436 68 PLA B437 85 F2 STA &F2 B439 68 PLA B43A A8 TAY B43B 20 B8 B2 JSR S2B8 B43E 85 77 STA &77 B440 20 B8 B2 JSR S2B8 B443 85 78 STA &78 B445 CD EC 10 CMP &10EC B448 90 05 BCC S44F .S44A B44A A9 F0 LDA #&F0 B44C 4C 25 BB JMP SB25 .S44F B44F A0 28 LDY #&28 B451 AD 06 0F LDA &0F06 B454 29 07 AND #&07 B456 C9 03 CMP #&03 B458 90 02 BCC S45C B45A A0 50 LDY #&50 .S45C B45C 84 7B STY &7B B45E A5 77 LDA &77 B460 C5 7B CMP &7B B462 90 05 BCC S469 B464 A9 F1 LDA #&F1 B466 4C 25 BB JMP SB25 .S469 B469 20 50 B8 JSR S850 B46C 20 71 84 JSR P471 B46F EQUB &16 B470 EQUB &07 B471 EQUB &16 B472 EQUB &87 B473 A9 86 LDA #&86 B475 20 EE FF JSR &FFEE B478 20 71 84 JSR P471 B47B EQUS "Drive : Track : Sector :" B49C EQUB &8D B49D A5 CF LDA &CF B49F 29 03 AND #&03 B4A1 69 30 ADC #&30 B4A3 8D 09 7C STA &7C09 B4A6 A9 85 LDA #&85 B4A8 8D 26 7C STA &7C26 .S4AB B4AB A2 04 LDX #&04 .S4AD B4AD 20 78 B3 JSR S378 B4B0 A5 7A LDA &7A B4B2 F0 26 BEQ S4DA B4B4 CA DEX B4B5 D0 F6 BNE S4AD B4B7 20 71 84 JSR P471 B4BA EQUB &1F B4BB EQUB &0A B4BC EQUB &01 B4BD EQUB &A0 B4BE A9 81 LDA #&81 B4C0 20 EE FF JSR &FFEE B4C3 20 71 84 JSR P471 B4C6 EQUS "Disc Error :" B4D2 EQUB &A0 B4D3 A5 7A LDA &7A B4D5 20 82 8B JSR PB82 B4D8 D0 0C BNE S4E6 .S4DA B4DA 20 71 84 JSR P471 B4DD EQUB &1F B4DE EQUB &0A B4DF EQUB &01 B4E0 EQUB &A0 B4E1 A0 19 LDY #&19 B4E3 20 09 A0 JSR R009 .S4E6 B4E6 20 24 B8 JSR S824 B4E9 A9 00 LDA #&00 B4EB 85 88 STA &88 B4ED 4C FF B5 JMP S5FF .S4F0 B4F0 A9 00 LDA #&00 B4F2 85 89 STA &89 B4F4 A9 7C LDA #&7C B4F6 85 85 STA &85 B4F8 A9 15 LDA #&15 B4FA 85 84 STA &84 B4FC A5 77 LDA &77 B4FE 20 4E B5 JSR S54E B501 A9 21 LDA #&21 B503 85 84 STA &84 B505 A5 78 LDA &78 B507 4C 4E B5 JMP S54E .S50A B50A C0 88 CPY #&88 B50C D0 16 BNE S524 B50E C6 78 DEC &78 B510 10 0F BPL S521 B512 AE EC 10 LDX &10EC B515 CA DEX B516 86 78 STX &78 .S518 B518 C6 77 DEC &77 B51A 10 05 BPL S521 B51C A6 7B LDX &7B B51E CA DEX B51F 86 77 STX &77 .S521 B521 4C AB B4 JMP S4AB .S524 B524 C0 89 CPY #&89 B526 D0 1B BNE S543 B528 E6 78 INC &78 B52A A5 78 LDA &78 B52C CD EC 10 CMP &10EC B52F 90 F0 BCC S521 B531 A9 00 LDA #&00 B533 85 78 STA &78 .S535 B535 E6 77 INC &77 B537 A5 77 LDA &77 B539 C5 7B CMP &7B B53B 90 E4 BCC S521 B53D A9 00 LDA #&00 B53F 85 77 STA &77 B541 F0 DE BEQ S521 .S543 B543 C0 8A CPY #&8A B545 F0 D1 BEQ S518 B547 C0 8B CPY #&8B B549 F0 EA BEQ S535 B54B 4C FF B5 JMP S5FF .S54E B54E 84 8A STY &8A B550 48 PHA B551 4A LSR A B552 4A LSR A B553 4A LSR A B554 4A LSR A B555 20 59 B5 JSR S559 B558 68 PLA .S559 B559 48 PHA B55A 20 93 8B JSR PB93 B55D A4 89 LDY &89 B55F 91 84 STA (&84),Y B561 E6 89 INC &89 B563 68 PLA B564 A4 8A LDY &8A B566 60 RTS .S567 B567 A4 8C LDY &8C B569 F0 1F BEQ S58A B56B A0 7A LDY #&7A B56D AD EC 10 LDA &10EC B570 C9 12 CMP #&12 B572 D0 01 BNE S575 B574 C8 INY .S575 B575 C4 83 CPY &83 B577 90 06 BCC S57F B579 A5 83 LDA &83 B57B C9 7A CMP #&7A B57D B0 0B BCS S58A .S57F B57F A0 26 LDY #&26 B581 A9 20 LDA #&20 .S583 B583 91 84 STA (&84),Y B585 88 DEY B586 10 FB BPL S583 B588 30 2F BMI S5B9 .S58A B58A A0 00 LDY #&00 B58C 84 89 STY &89 B58E A5 83 LDA &83 B590 38 SEC B591 E5 8C SBC &8C B593 20 4E B5 JSR S54E B596 A5 82 LDA &82 B598 20 4E B5 JSR S54E B59B E6 89 INC &89 B59D E6 89 INC &89 B59F A2 07 LDX #&07 .S5A1 B5A1 B1 82 LDA (&82),Y B5A3 20 4E B5 JSR S54E B5A6 E6 89 INC &89 B5A8 C8 INY B5A9 CA DEX B5AA 10 F5 BPL S5A1 B5AC A2 07 LDX #&07 B5AE A0 00 LDY #&00 .S5B0 B5B0 B1 82 LDA (&82),Y B5B2 20 D0 B5 JSR S5D0 B5B5 C8 INY B5B6 CA DEX B5B7 10 F7 BPL S5B0 .S5B9 B5B9 A9 28 LDA #&28 B5BB 18 CLC B5BC 65 84 ADC &84 B5BE 85 84 STA &84 B5C0 90 02 BCC S5C4 B5C2 E6 85 INC &85 .S5C4 B5C4 A9 08 LDA #&08 B5C6 18 CLC B5C7 65 82 ADC &82 B5C9 85 82 STA &82 B5CB 90 02 BCC S5CF B5CD E6 83 INC &83 .S5CF B5CF 60 RTS .S5D0 B5D0 84 8A STY &8A B5D2 C9 7F CMP #&7F B5D4 B0 04 BCS S5DA B5D6 C9 20 CMP #&20 B5D8 B0 02 BCS S5DC .S5DA B5DA A9 2E LDA #&2E .S5DC B5DC C9 5F CMP #&5F B5DE D0 04 BNE S5E4 B5E0 49 3F EOR #&3F B5E2 D0 0E BNE S5F2 .S5E4 B5E4 C9 60 CMP #&60 B5E6 D0 04 BNE S5EC B5E8 49 43 EOR #&43 B5EA D0 06 BNE S5F2 .S5EC B5EC C9 23 CMP #&23 B5EE D0 02 BNE S5F2 B5F0 49 7C EOR #&7C .S5F2 B5F2 A4 89 LDY &89 B5F4 91 84 STA (&84),Y B5F6 E6 89 INC &89 B5F8 A4 8A LDY &8A B5FA 60 RTS .S5FB B5FB A9 00 LDA #&00 B5FD 85 8B STA &8B .S5FF B5FF 20 47 B8 JSR S847 B602 A5 8C LDA &8C B604 F0 03 BEQ S609 B606 20 F0 B4 JSR S4F0 .S609 B609 A9 51 LDA #&51 B60B 85 84 STA &84 B60D A9 7C LDA #&7C B60F 85 85 STA &85 B611 A5 80 LDA &80 B613 85 82 STA &82 B615 18 CLC B616 69 58 ADC #&58 B618 85 86 STA &86 B61A A5 81 LDA &81 B61C 85 83 STA &83 B61E 69 00 ADC #&00 B620 85 87 STA &87 B622 20 B2 B7 JSR S7B2 B625 A2 16 LDX #&16 .S627 B627 8A TXA B628 48 PHA B629 20 67 B5 JSR S567 B62C 68 PLA B62D AA TAX B62E CA DEX B62F D0 F6 BNE S627 B631 A9 82 LDA #&82 B633 8D 0D 7E STA &7E0D B636 A9 81 LDA #&81 B638 A0 00 LDY #&00 B63A 20 6C 84 JSR P46C B63D C0 1B CPY #&1B B63F D0 03 BNE S644 B641 4C CF B7 JMP S7CF .S644 B644 E0 80 CPX #&80 B646 90 28 BCC S670 B648 8A TXA B649 48 PHA B64A A2 80 LDX #&80 B64C 20 4C B8 JSR S84C B64F 68 PLA B650 A8 TAY B651 E0 00 CPX #&00 B653 F0 05 BEQ S65A B655 88 DEY B656 88 DEY B657 88 DEY B658 88 DEY B659 88 DEY .S65A B65A A5 8C LDA &8C B65C F0 10 BEQ S66E B65E 98 TYA B65F 48 PHA B660 A2 81 LDX #&81 B662 20 4C B8 JSR S84C B665 68 PLA B666 A8 TAY B667 E0 81 CPX #&81 B669 D0 03 BNE S66E B66B 4C 0A B5 JMP S50A .S66E B66E 98 TYA B66F AA TAX .S670 B670 E0 85 CPX #&85 B672 D0 12 BNE S686 B674 A5 8C LDA &8C B676 F0 08 BEQ S680 B678 85 81 STA &81 B67A A9 A0 LDA #&A0 B67C 85 80 STA &80 B67E D0 03 BNE S683 .S680 B680 20 9D B3 JSR S39D .S683 B683 4C FB B5 JMP S5FB .S686 B686 E0 86 CPX #&86 B688 D0 0F BNE S699 B68A A5 8C LDA &8C B68C F0 05 BEQ S693 B68E 20 50 B8 JSR S850 B691 D0 F0 BNE S683 .S693 B693 20 AE B3 JSR S3AE B696 4C FB B5 JMP S5FB .S699 B699 E0 84 CPX #&84 B69B D0 07 BNE S6A4 B69D A9 07 LDA #&07 .S69F B69F 85 88 STA &88 B6A1 4C FB B5 JMP S5FB .S6A4 B6A4 E0 83 CPX #&83 B6A6 D0 04 BNE S6AC B6A8 A9 00 LDA #&00 B6AA F0 F3 BEQ S69F .S6AC B6AC E0 8B CPX #&8B B6AE D0 21 BNE S6D1 B6B0 A5 8C LDA &8C B6B2 F0 17 BEQ S6CB B6B4 AD EC 10 LDA &10EC B6B7 C9 12 CMP #&12 B6B9 D0 08 BNE S6C3 B6BB A5 8C LDA &8C B6BD C5 81 CMP &81 B6BF 90 0A BCC S6CB B6C1 F0 08 BEQ S6CB .S6C3 B6C3 A5 80 LDA &80 B6C5 C9 A8 CMP #&A8 B6C7 D0 02 BNE S6CB B6C9 F0 03 BEQ S6CE .S6CB B6CB 20 AA B3 JSR S3AA .S6CE B6CE 4C FB B5 JMP S5FB .S6D1 B6D1 E0 8A CPX #&8A B6D3 D0 22 BNE S6F7 B6D5 A5 8C LDA &8C B6D7 F0 18 BEQ S6F1 B6D9 AD EC 10 LDA &10EC B6DC C9 12 CMP #&12 B6DE D0 08 BNE S6E8 B6E0 A5 81 LDA &81 B6E2 C5 8C CMP &8C B6E4 F0 0B BEQ S6F1 B6E6 90 09 BCC S6F1 .S6E8 B6E8 A5 80 LDA &80 B6EA C9 A0 CMP #&A0 B6EC D0 03 BNE S6F1 B6EE 4C FF B5 JMP S5FF .S6F1 B6F1 20 99 B3 JSR S399 B6F4 4C FB B5 JMP S5FB .S6F7 B6F7 E0 89 CPX #&89 B6F9 D0 2D BNE S728 .S6FB B6FB A9 00 LDA #&00 B6FD 85 8B STA &8B B6FF A5 8C LDA &8C B701 F0 12 BEQ S715 B703 C5 81 CMP &81 B705 D0 0E BNE S715 B707 A5 80 LDA &80 B709 C9 A0 CMP #&A0 B70B D0 08 BNE S715 B70D A5 88 LDA &88 B70F C9 07 CMP #&07 B711 D0 02 BNE S715 B713 F0 10 BEQ S725 .S715 B715 A5 88 LDA &88 B717 18 CLC B718 69 01 ADC #&01 B71A C9 08 CMP #&08 B71C 29 07 AND #&07 B71E 85 88 STA &88 B720 90 03 BCC S725 B722 20 99 B3 JSR S399 .S725 B725 4C FF B5 JMP S5FF .S728 B728 E0 88 CPX #&88 B72A D0 25 BNE S751 B72C A5 8C LDA &8C B72E F0 10 BEQ S740 B730 C5 81 CMP &81 B732 90 0C BCC S740 B734 A5 80 LDA &80 B736 C9 A8 CMP #&A8 B738 D0 06 BNE S740 B73A A5 88 LDA &88 B73C D0 02 BNE S740 B73E F0 0E BEQ S74E .S740 B740 38 SEC B741 A5 88 LDA &88 B743 E9 01 SBC #&01 B745 29 07 AND #&07 B747 85 88 STA &88 B749 B0 DA BCS S725 B74B 20 AA B3 JSR S3AA .S74E B74E 4C FB B5 JMP S5FB .S751 B751 E0 09 CPX #&09 B753 D0 0A BNE S75F B755 8A TXA B756 4D 27 7C EOR &7C27 B759 8D 27 7C STA &7C27 B75C 20 47 B8 JSR S847 .S75F B75F 8A TXA B760 F0 21 BEQ S783 B762 30 1F BMI S783 B764 AD 27 7C LDA &7C27 B767 C9 41 CMP #&41 B769 D0 08 BNE S773 B76B 8A TXA B76C A4 88 LDY &88 B76E 91 86 STA (&86),Y B770 4C FB B6 JMP S6FB .S773 B773 E0 30 CPX #&30 B775 90 0C BCC S783 B777 E0 3A CPX #&3A B779 90 0B BCC S786 B77B E0 47 CPX #&47 B77D B0 04 BCS S783 B77F E0 41 CPX #&41 B781 B0 03 BCS S786 .S783 B783 4C FF B5 JMP S5FF .S786 B786 A4 88 LDY &88 B788 B1 86 LDA (&86),Y B78A 85 89 STA &89 B78C 8A TXA B78D C9 41 CMP #&41 B78F 90 02 BCC S793 B791 E9 08 SBC #&08 .S793 B793 E9 2F SBC #&2F B795 29 0F AND #&0F B797 0A ASL A B798 0A ASL A B799 0A ASL A B79A 0A ASL A B79B A2 03 LDX #&03 .S79D B79D 0A ASL A B79E 26 89 ROL &89 B7A0 CA DEX B7A1 10 FA BPL S79D B7A3 A5 89 LDA &89 B7A5 91 86 STA (&86),Y B7A7 E6 8B INC &8B B7A9 A5 8B LDA &8B B7AB 29 01 AND #&01 B7AD D0 D4 BNE S783 B7AF 4C FB B6 JMP S6FB .S7B2 B7B2 A0 18 LDY #&18 B7B4 A9 20 LDA #&20 .S7B6 B7B6 99 0E 7E STA &7E0E,Y B7B9 88 DEY B7BA 88 DEY B7BB 88 DEY B7BC 10 F8 BPL S7B6 B7BE A5 88 LDA &88 B7C0 0A ASL A B7C1 65 88 ADC &88 B7C3 A8 TAY B7C4 A9 5D LDA #&5D B7C6 99 0E 7E STA &7E0E,Y B7C9 A9 5B LDA #&5B B7CB 99 11 7E STA &7E11,Y B7CE 60 RTS .S7CF B7CF A9 7C LDA #&7C B7D1 20 F4 FF JSR &FFF4 B7D4 A9 04 LDA #&04 B7D6 A0 00 LDY #&00 B7D8 20 6C 84 JSR P46C B7DB A9 0B LDA #&0B B7DD A2 20 LDX #&20 B7DF 20 42 B8 JSR S842 B7E2 A9 0C LDA #&0C B7E4 A2 08 LDX #&08 B7E6 20 42 B8 JSR S842 B7E9 A5 8C LDA &8C B7EB F0 2E BEQ S81B B7ED 20 71 84 JSR P471 B7F0 EQUB &1F B7F1 EQUB &0B B7F2 EQUB &81 B7F3 A9 88 LDA #&88 B7F5 20 EE FF JSR &FFEE B7F8 A9 83 LDA #&83 B7FA 20 EE FF JSR &FFEE B7FD 20 71 84 JSR P471 B800 EQUS "Save (Y/N) ? " B80E EQUB &A0 B80F 20 87 94 JSR Q487 B812 D0 07 BNE S81B B814 A9 4B LDA #&4B B816 85 76 STA &76 B818 20 78 B3 JSR S378 .S81B B81B 20 71 84 JSR P471 B81E EQUB &1F B81F EQUB &00 B820 EQUB &98 B821 4C 32 AA JMP RA32 .S824 B824 A9 00 LDA #&00 B826 85 8B STA &8B B828 A9 48 LDA #&48 B82A 8D 27 7C STA &7C27 B82D 20 47 B8 JSR S847 B830 A9 04 LDA #&04 B832 A2 01 LDX #&01 B834 20 42 B8 JSR S842 B837 A9 0B LDA #&0B B839 A2 32 LDX #&32 B83B 20 42 B8 JSR S842 B83E A9 0C LDA #&0C B840 A2 01 LDX #&01 .S842 B842 A0 00 LDY #&00 .S844 B844 4C F4 FF JMP &FFF4 .S847 B847 A9 15 LDA #&15 B849 4C 6C 84 JMP P46C .S84C B84C A9 79 LDA #&79 B84E D0 F4 BNE S844 .S850 B850 A9 79 LDA #&79 B852 85 81 STA &81 B854 A9 A8 LDA #&A8 B856 85 80 STA &80 B858 A9 72 LDA #&72 B85A A2 01 LDX #&01 B85C 20 F4 FF JSR &FFF4 B85F 20 71 84 JSR P471 B862 EQUB &16 B863 EQUB &87 B864 60 RTS ;*WORD B865 20 AD B8 JSR S8AD B868 A9 00 LDA #&00 B86A 8D 06 1F STA &1F06 B86D 20 00 BB JSR SB00 .S870 B870 20 D6 B9 JSR S9D6 B873 20 24 B9 JSR S924 B876 4C 70 B8 JMP S870 .S879 B879 A9 FF LDA #&FF B87B D0 1E BNE S89B .S87D B87D A9 05 LDA #&05 B87F D0 1A BNE S89B .S881 B881 AD 00 1F LDA &1F00 B884 8D 25 09 STA &0925 B887 AD 01 1F LDA &1F01 B88A 8D 26 09 STA &0926 B88D AD 02 1F LDA &1F02 B890 8D 21 09 STA &0921 B893 AD 03 1F LDA &1F03 B896 8D 22 09 STA &0922 B899 A9 00 LDA #&00 .S89B B89B A2 17 LDX #&17 B89D A0 09 LDY #&09 B89F 4C DD FF JMP &FFDD .S8A2 B8A2 AD 02 1F LDA &1F02 B8A5 85 85 STA &85 B8A7 AD 03 1F LDA &1F03 B8AA 85 86 STA &86 B8AC 60 RTS .S8AD B8AD 20 E2 A9 JSR R9E2 B8B0 A9 20 LDA #&20 B8B2 8D 03 1F STA &1F03 B8B5 A9 00 LDA #&00 B8B7 8D 02 1F STA &1F02 B8BA AE FF 1F LDX &1FFF B8BD CA DEX B8BE D0 07 BNE S8C7 B8C0 AD 29 09 LDA &0929 B8C3 C9 2A CMP #&2A B8C5 F0 49 BEQ S910 .S8C7 B8C7 20 7D B8 JSR S87D B8CA 8D FF 1F STA &1FFF B8CD C9 01 CMP #&01 B8CF F0 18 BEQ S8E9 B8D1 AD 02 1F LDA &1F02 B8D4 18 CLC B8D5 69 01 ADC #&01 B8D7 8D 00 1F STA &1F00 B8DA AD 03 1F LDA &1F03 B8DD 69 00 ADC #&00 B8DF 8D 01 1F STA &1F01 B8E2 A9 0D LDA #&0D B8E4 8D 00 20 STA &2000 B8E7 D0 27 BNE S910 .S8E9 B8E9 A9 00 LDA #&00 B8EB 8D 1D 09 STA &091D B8EE AD 02 1F LDA &1F02 B8F1 8D 19 09 STA &0919 B8F4 AD 03 1F LDA &1F03 B8F7 8D 1A 09 STA &091A B8FA 20 79 B8 JSR S879 B8FD AD 02 1F LDA &1F02 B900 18 CLC B901 6D 21 09 ADC &0921 B904 8D 00 1F STA &1F00 B907 AD 03 1F LDA &1F03 B90A 6D 22 09 ADC &0922 B90D 8D 01 1F STA &1F01 .S910 B910 60 RTS .S911 B911 E6 85 INC &85 B913 D0 02 BNE S917 B915 E6 86 INC &86 .S917 B917 A5 86 LDA &86 B919 CD 01 1F CMP &1F01 B91C D0 05 BNE S923 B91E A5 85 LDA &85 B920 CD 00 1F CMP &1F00 .S923 B923 60 RTS .S924 B924 AD 05 1F LDA &1F05 B927 85 86 STA &86 B929 AD 04 1F LDA &1F04 B92C 85 85 STA &85 B92E A0 00 LDY #&00 B930 AD 00 1E LDA &1E00 B933 C9 21 CMP #&21 B935 F0 25 BEQ S95C B937 EE 06 1F INC &1F06 B93A AD 09 1F LDA &1F09 B93D D0 03 BNE S942 B93F 20 CD BA JSR SACD .S942 B942 A0 00 LDY #&00 .S944 B944 B9 00 1E LDA &1E00,Y B947 C8 INY B948 C9 0D CMP #&0D B94A D0 F8 BNE S944 B94C 20 8D BA JSR SA8D B94F A0 00 LDY #&00 .S951 B951 B9 00 1E LDA &1E00,Y B954 91 85 STA (&85),Y B956 C8 INY B957 C9 0D CMP #&0D B959 D0 F6 BNE S951 .S95B B95B 60 RTS .S95C B95C C8 INY B95D B9 00 1E LDA &1E00,Y B960 C9 20 CMP #&20 B962 F0 F8 BEQ S95C B964 C9 44 CMP #&44 B966 D0 1F BNE S987 B968 20 76 B9 JSR S976 B96B AA TAX B96C F0 01 BEQ S96F B96E CA DEX .S96F B96F 20 CD BA JSR SACD B972 CA DEX B973 10 FA BPL S96F B975 60 RTS .S976 B976 C8 INY B977 B9 00 1E LDA &1E00,Y B97A C9 30 CMP #&30 B97C 90 04 BCC S982 B97E C9 3A CMP #&3A B980 90 02 BCC S984 .S982 B982 A9 01 LDA #&01 .S984 B984 29 0F AND #&0F B986 60 RTS .S987 B987 C9 49 CMP #&49 B989 D0 13 BNE S99E B98B 20 76 B9 JSR S976 B98E 48 PHA B98F A8 TAY B990 20 8D BA JSR SA8D B993 68 PLA B994 A8 TAY B995 88 DEY B996 A9 0D LDA #&0D .S998 B998 91 85 STA (&85),Y B99A 88 DEY B99B 10 FB BPL S998 B99D 60 RTS .S99E B99E C9 53 CMP #&53 B9A0 D0 11 BNE S9B3 B9A2 A2 FF LDX #&FF .S9A4 B9A4 E8 INX B9A5 C8 INY B9A6 B9 00 1E LDA &1E00,Y B9A9 9D 29 09 STA &0929,X B9AC C9 0D CMP #&0D B9AE D0 F4 BNE S9A4 B9B0 4C 81 B8 JMP S881 .S9B3 B9B3 C9 45 CMP #&45 B9B5 D0 09 BNE S9C0 B9B7 AE 06 1F LDX &1F06 B9BA F0 03 BEQ S9BF B9BC CE 06 1F DEC &1F06 .S9BF B9BF 60 RTS .S9C0 B9C0 C9 58 CMP #&58 B9C2 D0 04 BNE S9C8 B9C4 EE 06 1F INC &1F06 B9C7 60 RTS .S9C8 B9C8 C9 2A CMP #&2A B9CA D0 8F BNE S95B B9CC 98 TYA B9CD AA TAX B9CE A0 1E LDY #&1E B9D0 20 F7 FF JSR &FFF7 B9D3 4C 82 9F JMP QF82 .S9D6 B9D6 20 71 84 JSR P471 B9D9 EQUB &0F B9DA EQUB &8C B9DB 20 A2 B8 JSR S8A2 B9DE 8D 08 1F STA &1F08 B9E1 AE 06 1F LDX &1F06 .S9E4 B9E4 8A TXA B9E5 D0 12 BNE S9F9 B9E7 A5 85 LDA &85 B9E9 8D 04 1F STA &1F04 B9EC A5 86 LDA &86 B9EE 8D 05 1F STA &1F05 B9F1 20 C0 86 JSR P6C0 B9F4 A0 FF LDY #&FF B9F6 8C 08 1F STY &1F08 .S9F9 B9F9 20 7B BA JSR SA7B B9FC F0 11 BEQ SA0F B9FE 20 11 B9 JSR S911 BA01 B0 42 BCS SA45 BA03 8A TXA BA04 10 F3 BPL S9F9 BA06 AD 19 03 LDA &0319 BA09 C9 11 CMP #&11 BA0B 90 EC BCC S9F9 BA0D B0 36 BCS SA45 .SA0F BA0F 8A TXA BA10 D0 06 BNE SA18 BA12 8D 09 1F STA &1F09 BA15 20 C0 86 JSR P6C0 .SA18 BA18 20 11 B9 JSR S911 BA1B B0 06 BCS SA23 BA1D CA DEX BA1E 10 C4 BPL S9E4 BA20 4C F9 B9 JMP S9F9 .SA23 BA23 AD 08 1F LDA &1F08 BA26 30 1D BMI SA45 BA28 AD 00 1F LDA &1F00 BA2B 8D 04 1F STA &1F04 BA2E AD 01 1F LDA &1F01 BA31 8D 05 1F STA &1F05 BA34 8D 09 1F STA &1F09 BA37 86 AE STX &AE BA39 AD 06 1F LDA &1F06 BA3C 38 SEC BA3D E5 AE SBC &AE BA3F 8D 06 1F STA &1F06 BA42 EE 06 1F INC &1F06 .SA45 BA45 A9 3D LDA #&3D BA47 20 C2 86 JSR P6C2 BA4A 20 71 84 JSR P471 BA4D EQUS "f0up f1dwn !Ix !Dx !S fsp !*" BA69 EQUB &8D BA6A 20 C0 86 JSR P6C0 BA6D A9 00 LDA #&00 BA6F A2 76 LDX #&76 BA71 A0 BA LDY #&BA BA73 4C F1 FF JMP &FFF1 BA76 EQUW &00,&1E BA78 EQUB &FE BA79 EQUB &20,&80 .SA7B BA7B A0 00 LDY #&00 BA7D B1 85 LDA (&85),Y BA7F E0 07 CPX #&07 BA81 90 04 BCC SA87 BA83 E0 F5 CPX #&F5 BA85 90 03 BCC SA8A .SA87 BA87 20 E3 FF JSR &FFE3 .SA8A BA8A C9 0D CMP #&0D BA8C 60 RTS .SA8D BA8D 84 84 STY &84 BA8F AD 00 1F LDA &1F00 BA92 85 80 STA &80 BA94 38 SEC BA95 E5 85 SBC &85 BA97 85 82 STA &82 BA99 AD 01 1F LDA &1F01 BA9C 85 81 STA &81 BA9E E5 86 SBC &86 BAA0 85 83 STA &83 BAA2 A5 84 LDA &84 BAA4 18 CLC BAA5 6D 00 1F ADC &1F00 BAA8 8D 00 1F STA &1F00 BAAB 90 03 BCC SAB0 BAAD EE 01 1F INC &1F01 .SAB0 BAB0 A0 00 LDY #&00 BAB2 B1 80 LDA (&80),Y BAB4 A4 84 LDY &84 BAB6 91 80 STA (&80),Y BAB8 A5 80 LDA &80 BABA D0 02 BNE SABE BABC C6 81 DEC &81 .SABE BABE C6 80 DEC &80 BAC0 A5 82 LDA &82 BAC2 D0 02 BNE SAC6 BAC4 C6 83 DEC &83 .SAC6 BAC6 C6 82 DEC &82 BAC8 A5 83 LDA &83 BACA 10 E4 BPL SAB0 BACC 60 RTS .SACD BACD A0 00 LDY #&00 .SACF BACF B1 85 LDA (&85),Y BAD1 C8 INY BAD2 C9 0D CMP #&0D BAD4 D0 F9 BNE SACF BAD6 84 84 STY &84 BAD8 A5 85 LDA &85 BADA 48 PHA BADB A5 86 LDA &86 BADD 48 PHA BADE AD 00 1F LDA &1F00 BAE1 38 SEC BAE2 E5 84 SBC &84 BAE4 8D 00 1F STA &1F00 BAE7 B0 03 BCS SAEC BAE9 CE 01 1F DEC &1F01 .SAEC BAEC A4 84 LDY &84 BAEE B1 85 LDA (&85),Y BAF0 A0 00 LDY #&00 BAF2 91 85 STA (&85),Y BAF4 20 11 B9 JSR S911 BAF7 90 F3 BCC SAEC BAF9 68 PLA BAFA 85 86 STA &86 BAFC 68 PLA BAFD 85 85 STA &85 BAFF 60 RTS .SB00 BB00 A2 01 LDX #&01 BB02 A0 FF LDY #&FF BB04 A9 C8 LDA #&C8 BB06 20 F4 FF JSR &FFF4 BB09 A2 15 LDX #&15 BB0B 20 10 BB JSR SB10 BB0E A2 1D LDX #&1D .SB10 BB10 A0 BB LDY #&BB BB12 4C F7 FF JMP &FFF7 BB15 EQUS "K.0!E|M" BB1C EQUB &0D BB1D EQUS "K.1!X|M" BB24 EQUB &0D .SB25 BB25 A2 FF LDX #&FF BB27 A0 00 LDY #&00 BB29 8C 00 01 STY &0100 .SB2C BB2C E8 INX BB2D DD 5B BB CMP &BB5B,X BB30 D0 FA BNE SB2C .SB32 BB32 99 01 01 STA &0101,Y BB35 C8 INY BB36 86 AE STX &AE .SB38 BB38 E6 AE INC &AE BB3A A6 AE LDX &AE BB3C BD 5B BB LDA &BB5B,X BB3F 30 11 BMI SB52 BB41 C9 20 CMP #&20 BB43 B0 ED BCS SB32 BB45 AA TAX .SB46 BB46 BD 1A BC LDA &BC1A,X BB49 30 ED BMI SB38 BB4B 99 01 01 STA &0101,Y BB4E E8 INX BB4F C8 INY BB50 D0 F4 BNE SB46 .SB52 BB52 A9 00 LDA #&00 BB54 99 01 01 STA &0101,Y BB57 AA TAX BB58 4C 00 01 JMP &0100 BB5B EQUB &11 BB5C EQUS "Escape" BB62 EQUB &BD BB63 EQUS "Not enabled" BB6E EQUB &BE BB6F EQUS "Cat full" BB77 EQUB &BF BB78 EQUS "Can't extend" BB84 EQUB &C0 BB85 EQUS "Too many files" BB93 EQUB &C1 BB94 EQUB &15 BB95 EQUB &05 BB96 EQUB &C2 BB97 EQUB &15 BB98 EQUS "open" BB9C EQUB &C3 BB9D EQUB &15 BB9E EQUS "locked" BBA4 EQUB &C4 BBA5 EQUB &15 BBA6 EQUS "exists" BBAC EQUB &C5 BBAD EQUB &C6 BBAE EQUB &0F BBAF EQUS "full" BBB3 EQUB &C7 BBB4 EQUB &C8 BBB5 EQUS "DC" BBB7 EQUB &C9 BBB8 EQUB &0F BBB9 EQUB &05 BBBA EQUB &CA BBBB EQUS "CRC" BBBE EQUB &CB BBBF EQUB &00 BBC0 EQUS "opt" BBC3 EQUB &CC BBC4 EQUB &00 BBC5 EQUS "filename" BBCD EQUB &CD BBCE EQUB &00 BBCF EQUS "drive" BBD4 EQUB &CE BBD5 EQUB &00 BBD6 EQUS "dir" BBD9 EQUB &CF BBDA EQUS "ATR" BBDD EQUB &D6 BBDE EQUB &15 BBDF EQUS "not found" BBE8 EQUB &DC BBE9 EQUS "Syntax error" BBF5 EQUB &DE BBF6 EQUS "Channel" BBFD EQUB &DF BBFE EQUS "EOF" BC01 EQUB &F0 BC02 EQUB &00 BC03 EQUS "sector" BC09 EQUB &F1 BC0A EQUB &00 BC0B EQUS "track" BC10 EQUB &FE BC11 EQUB &00 BC12 EQUS "command" BC19 EQUB &EA BC1A EQUS "Bad " BC1E EQUB &EA BC1F EQUS "read only" BC28 EQUB &EA BC29 EQUS "Disk " BC2E EQUB &EA BC2F EQUS "File " BC34 EQUB &EA ;i8271 equivalent errors BC35 EQUB &12 ;.. . 10 01 . Write protect BC36 EQUB &18 ;.. . 11 00 . Sector not found BC37 EQUB &0C ;.. . 01 10 . ID CRC error BC38 EQUB &0E ;.. . 01 11 . Data CRC error BC39 EQUB &0A ;.. . 01 01 . Late DMA ;WD 1770 error table 0..4 BC3A EQUB &40 ;S6 Write protect BC3B EQUB &10 ;S4 Record not found BC3C EQUB &18 ;S4 Record not found + S3 CRC error BC3D EQUB &08 ;S3 CRC error BC3E EQUB &04 ;S2 Lost data BC3F EQUW &29,&84 BC41 EQUB &C2 BC42 EQUW &2C,&84 BC44 EQUB &B5 BC45 EQUW &3A,&85 BC47 EQUB &2F BC48 EQUW &3D,&85 BC4A EQUB &64 BC4B EQUW &13,&84 BC4D EQUB &D9 BC4E EQUW &17,&84 BC50 EQUB &D9 BC51 EQUW &1B,&86 BC53 EQUB &12 BC54 EQUW &1F,&84 BC56 EQUB &EF BC57 EQUW &0B,&84 BC59 EQUB &D4 BC5A EQUB &23,&B1,&8B,&0F BC5E EQUB &84,&D0,&FF,&00 BC62 EQUB &18,&FF,&FF,&03 BC66 EQUB &5B,&00,&00,&FF BC6A EQUB &00,&40,&FF,&FF BC6E EQUB &03,&57,&00,&00 BC72 EQUB &21 BC73 EQUS "ACCESS" BC79 EQUW &91,&88 BC7B EQUB &32 BC7C EQUS "BACKUP" BC82 EQUW &95,&7D BC84 EQUB &54 BC85 EQUS "COMPACT" BC8C EQUW &95,&E4 BC8E EQUB &0A BC8F EQUS "COPY" BC93 EQUW &94,&F5 BC95 EQUB &64 BC96 EQUS "DCOPY" BC9B EQUW &AD,&D1 BC9D EQUB &54 BC9E EQUS "DELETE" BCA4 EQUW &91,&CB BCA6 EQUB &01 BCA7 EQUS "DIR" BCAA EQUW &92,&0F BCAC EQUB &09 BCAD EQUS "DRIVE" BCB2 EQUW &8A,&D8 BCB4 EQUB &0A BCB5 EQUS "ENABLE" BCBB EQUW &8E,&23 BCBD EQUB &F0 BCBE EQUS "F80" BCC1 EQUW &98,&D7 BCC3 EQUB &0A BCC4 EQUS "F40" BCC7 EQUW &98,&D3 BCC9 EQUB &0A BCCA EQUS "INFO" BCCE EQUW &91,&08 BCD0 EQUB &02 BCD1 EQUS "LIB" BCD4 EQUW &92,&13 BCD6 EQUB &09 BCD7 EQUS "MASKOFF" BCDE EQUW &86,&5F BCE0 EQUB &00 BCE1 EQUS "RENAME" BCE7 EQUW &8E,&B1 BCE9 EQUB &87 BCEA EQUS "RTRACK" BCF0 EQUW &AE,&BD BCF2 EQUB &0F BCF3 EQUS "TITLE" BCF8 EQUW &91,&58 BCFA EQUB &0B BCFB EQUS "VERIFY" BD01 EQUW &99,&7F BD03 EQUB &0A BD04 EQUS "WIPE" BD08 EQUW &91,&DA BD0A EQUB &02 BD0B EQUS "WTRACK" BD11 EQUW &B0,&18 BD13 EQUB &00 BD14 EQUW &9A,&7E ;unrecognised command, *RUN it &9A7F BD16 EQUS "BUILD" BD1B EQUW &92,&21 BD1D EQUB &01 BD1E EQUS "DISC" BD22 EQUW &81,&5C BD24 EQUB &00 BD25 EQUS "DISK" BD29 EQUW &81,&5C BD2B EQUB &00 BD2C EQUS "DDFS" BD30 EQUW &8E,&08 BD32 EQUB &00 BD33 EQUS "DSTEP" BD38 EQUW &8E,&5F BD3A EQUB &00 BD3B EQUS "DUMP" BD3F EQUW &92,&BB BD41 EQUB &01 BD42 EQUS "DOWNLOAD" BD4A EQUW &AA,&01 BD4C EQUB &01 BD4D EQUS "DZAP" BD51 EQUW &B4,&1E BD53 EQUB &0C BD54 EQUS "LIST" BD58 EQUW &92,&72 BD5A EQUB &01 BD5B EQUS "LOADTAPE" BD63 EQUW &A8,&9E BD65 EQUB &01 BD66 EQUS "MZAP" BD6A EQUW &B3,&BE BD6C EQUB &0D BD6D EQUS "RECOVER" BD74 EQUW &B0,&77 BD76 EQUB &EC BD77 EQUS "RESTORE" BD7E EQUW &B0,&66 BD80 EQUB &EC BD81 EQUS "SPEED" BD86 EQUW &86,&3D BD88 EQUB &00 BD89 EQUS "SSTEP" BD8E EQUW &8E,&6B BD90 EQUB &00 BD91 EQUS "TAPEDISC" BD99 EQUW &A8,&95 BD9B EQUB &01 BD9C EQUS "TAPEDISC3" BDA5 EQUW &A8,&91 BDA7 EQUB &01 BDA8 EQUS "TAPESAVE" BDB0 EQUW &AA,&4C BDB2 EQUB &01 BDB3 EQUS "TYPE" BDB7 EQUW &92,&6B BDB9 EQUB &01 BDBA EQUS "WORD" BDBE EQUW &B8,&64 BDC0 EQUB &01 BDC1 EQUW &00 BDC2 EQUS "DFS" BDC5 EQUW &89,&B9 BDC7 EQUB &00 BDC8 EQUS "UTILS" BDCD EQUW &89,&F6 BDCF EQUB &00 BDD0 EQUW &00,&00 BDD2 EQUS "" BDD7 EQUB &00 BDD8 EQUS "" BDDE EQUB &00 BDDF EQUS "(L)" BDE2 EQUB &00 BDE3 EQUS "" BDEC EQUB &00 BDED EQUS "" BDF7 EQUB &00 BDF8 EQUS " " BE09 EQUB &00 BE0A EQUS "" BE13 EQUB &00 BE14 EQUS "" BE1D EQUB &00 BE1E EQUS "()" BE25 EQUB &00 BE26 EQUS "()" BE2D EQUB &00 BE2E EQUS "" BE35 EQUB &00 BE36 EQUS "<trk> <sctr>" BE42 EQUB &00 BE43 EQUS "<add>" BE48 EQUB &00 BE49 EQUS "<sctrs> <add>" BE56 EQUB &00 BE57 EQUS "<drv> <trk>" BE62 EQUB &00 BE63 EQUS "<40 80 DSV>" BE6E EQUB &00 ;Canned i8271 commands ;Specify command &35 subcommand &0D = Initialise ;Links 3 and 4 unmade, slowest drive setting BE6F EQUB &35 BE70 EQUB &0D,&02,&08,&C0 BE74 EQUB &EA ;Link 4 made BE75 EQUB &35 BE76 EQUB &0D,&03,&08,&C0 BE7A EQUB &EA ;Link 3 made BE7B EQUB &35 BE7C EQUB &0D,&03,&19,&C4 BE80 EQUB &EA ;Links 3 and 4 made, fastest drive setting BE81 EQUB &35 BE82 EQUB &0D,&0C,&0A,&C8 BE86 EQUB &EA ;Specify command &35 subcommand &10 = Load surface 0 bad tracks BE87 EQUB &35 BE88 EQUB &10,&FF,&FF,&00 BE8C EQUB &EA ;Specify command &35 subcommand &18 = Load surface 1 bad tracks BE8D EQUB &35 BE8E EQUB &18,&FF,&FF,&00 BE92 EQUB &EA ;Write special register command &3A address &17 = Mode register BE93 EQUB &3A BE94 EQUB &17,&C1 BE96 EQUB &EA ;Seek command &69 BE97 EQUB &69 BE98 EQUB &00 BE99 EQUB &EA ;Verify command &5F BE9A EQUB &5F BE9B EQUB &00,&08,&22 BE9E EQUB &EA ;Write special register command &7A address &23 = Drive control output port BE9F EQUB &7A BEA0 EQUB &23,&0E BEA2 EQUB &EA ;Table of drive control latch values for drives 0..3 BEA3 EQUB &48,&88,&68,&A8 ;Canned OSWORD &7F control block to format an Acorn DFS track BEA7 EQUB &FF ;drive number = &FF use previous drive ;32-bit address of catalogue buffer in I/O processor memory BEA8 EQUD &00,&0E,&FF,&FF ;= &FFFF0E00 ;Canned OSWORD &7F control block to format an Acorn DFS track BEAC EQUB &05 ;number of parameters = 5 BEAD EQUB &63 ;command = &63 Format track BEAE EQUB &00 ;parameter 1 = track number (loop 0..79) BEAF EQUB &15 ;parameter 2 = gap 3 = 21 x &FF bytes BEB0 EQUB &2A ;parameter 3 = 10 x 256 byte sectors BEB1 EQUB &00 ;parameter 4 = gap 5 = 0, no IAM BEB2 EQUB &10 ;parameter 5 = gap 1 = 16 x &FF bytes ;NMISR 0/ 1 BEB3 48 PHA BEB4 98 TYA BEB5 48 PHA BEB6 AD 80 FE LDA &FE80 BEB9 29 04 AND #&04 BEBB F0 29 BEQ SEE6 BEBD AD 84 FE LDA &FE84 BEC0 A4 A5 LDY &A5 BEC2 F0 1E BEQ SEE2 BEC4 AC D6 10 LDY &10D6 BEC7 C0 01 CPY #&01 BEC9 B0 04 BCS SECF BECB 91 A6 STA (&A6),Y BECD 90 03 BCC SED2 .SECF BECF 8D E5 FE STA &FEE5 .SED2 BED2 E6 A6 INC &A6 BED4 D0 02 BNE SED8 BED6 E6 A7 INC &A7 .SED8 BED8 C6 A3 DEC &A3 BEDA D0 06 BNE SEE2 BEDC C6 A4 DEC &A4 BEDE D0 02 BNE SEE2 BEE0 C6 A5 DEC &A5 .SEE2 BEE2 68 PLA BEE3 A8 TAY BEE4 68 PLA ;NMISR 2 = ignore NMIs BEE5 40 RTI .SEE6 BEE6 AD 80 FE LDA &FE80 BEE9 29 08 AND #&08 BEEB D0 06 BNE SEF3 BEED 68 PLA BEEE A8 TAY BEEF 68 PLA BEF0 6C 00 02 JMP (&0200) .SEF3 BEF3 A5 F4 LDA &F4 BEF5 48 PHA BEF6 A9 00 LDA #&00 BEF8 85 F4 STA &F4 BEFA 8D 30 FE STA &FE30 BEFD 20 70 8C JSR PC70 BF00 68 PLA BF01 85 F4 STA &F4 BF03 8D 30 FE STA &FE30 BF06 38 SEC BF07 B0 D9 BCS SEE2 BF09 B0 02 BCS SF0D BF0B 90 00 BCC SF0D .SF0D BF0D AC D6 10 LDY &10D6 BF10 C0 01 CPY #&01 BF12 B0 04 BCS SF18 BF14 B1 A6 LDA (&A6),Y BF16 90 03 BCC SF1B .SF18 BF18 AD E5 FE LDA &FEE5 .SF1B BF1B 8D 84 FE STA &FE84 ;NMISR 3 BF1E 48 PHA BF1F AD 80 FE LDA &FE80 BF22 29 04 AND #&04 BF24 F0 06 BEQ SF2C BF26 AD E5 FE LDA &FEE5 BF29 8D 84 FE STA &FE84 .SF2C BF2C 68 PLA BF2D 40 RTI ;NMISR 4 BF2E 48 PHA BF2F 98 TYA BF30 48 PHA BF31 AD 80 FE LDA &FE80 BF34 29 04 AND #&04 BF36 F0 0D BEQ SF45 BF38 A0 00 LDY #&00 BF3A B1 A6 LDA (&A6),Y BF3C 8D 84 FE STA &FE84 BF3F E6 A6 INC &A6 BF41 D0 02 BNE SF45 BF43 E6 A7 INC &A7 .SF45 ;NMISR 5 BF45 68 PLA BF46 A8 TAY BF47 68 PLA BF48 40 RTI BF49 48 PHA BF4A AD 80 FE LDA &FE80 BF4D 29 04 AND #&04 BF4F F0 06 BEQ SF57 BF51 AD 84 FE LDA &FE84 BF54 8D E5 FE STA &FEE5 .SF57 BF57 68 PLA BF58 40 RTI ;NMISR 6 BF59 48 PHA BF5A 98 TYA BF5B 48 PHA BF5C AD 80 FE LDA &FE80 BF5F 29 04 AND #&04 BF61 F0 0D BEQ SF70 BF63 AD 84 FE LDA &FE84 BF66 A0 00 LDY #&00 BF68 91 A6 STA (&A6),Y BF6A E6 A6 INC &A6 BF6C D0 02 BNE SF70 BF6E E6 A7 INC &A7 .SF70 BF70 68 PLA BF71 A8 TAY BF72 68 PLA BF73 40 RTI ;Table of NMI service routine installed vs request and option state ; Link 1 unmade Link 1 unmade ;NMISR request Link 1 made ?&10D6 b7=0 ?&10D6 b7=1 ; 0 0 7 17 ; 1 1 8 18 ; 2 2 9 9 ; 3 3 10 10 ; 4 4 11 11 ; 5 5 12 12 ; 6 6 13 13 ; 7 7 7 7 ; 8 8 8 8 ; 9 9 9 9 ;10 10 10 10 ;11 11 11 11 ;12 12 12 12 ;13 13 13 13 ;14 14 14 14 ;15 15 15 15 ;16 16 16 16 ;17 17 17 17 ;18 18 18 18 ;Table of start addresses of NMI handlers copied to &0D00, low bytes BF74 EQUB &B3 ;NMISR 0 &BEB3 BF75 EQUB &B3 ;NMISR 1 &BEB3 BF76 EQUB &E5 ;NMISR 2 = ignore NMIs &BEE5 BF77 EQUB &1E ;NMISR 3 &BF1E BF78 EQUB &2E ;NMISR 4 &BF2E BF79 EQUB &49 ;NMISR 5 &BF49 BF7A EQUB &59 ;NMISR 6 &BF59 BF7B EQUB &16 ;NMISR 7 &8716 BF7C EQUB &2D ;NMISR 8 &872D BF7D EQUB &50 ;NMISR 9 &8750 BF7E EQUB &54 ;NMISR 10 &8754 BF7F EQUB &16 ;NMISR 11 &8716 BF80 EQUB &64 ;NMISR 12 &8764 BF81 EQUB &2D ;NMISR 13 &872D BF82 EQUB &2D ;NMISR 14 &872D BF83 EQUB &35 ;NMISR 15 = ignore NMIs &AA35 BF84 EQUB &35 ;NMISR 16 = ignore NMIs &AA35 BF85 EQUB &54 ;NMISR 17 &8754 BF86 EQUB &64 ;NMISR 18 &8764 ;Table of start addresses of NMI handlers copied to &0D00, high bytes BF87 EQUB &BE BF88 EQUB &BE BF89 EQUB &BE BF8A EQUB &BF BF8B EQUB &BF BF8C EQUB &BF BF8D EQUB &BF BF8E EQUB &87 BF8F EQUB &87 BF90 EQUB &87 BF91 EQUB &87 BF92 EQUB &87 BF93 EQUB &87 BF94 EQUB &87 BF95 EQUB &87 BF96 EQUB &AA BF97 EQUB &AA BF98 EQUB &87 BF99 EQUB &87 ;Table of parameters to NMI handlers 0..6 BF9A EQUB &56 BF9B EQUB &56 BF9C EQUB &00 BF9D EQUB &0F BF9E EQUB &1A BF9F EQUB &0F BFA0 EQUB &1A ;Table of action addresses for extended vector table BFA1 EQUW &ED,&9C ;E FILEV, evt + &1B = &9CED BFA3 EQUB &EA BFA4 EQUW &0E,&9E ;E ARGSV, evt + &1E = &9E0E BFA6 EQUB &EA BFA7 EQUW &EE,&A2 ;E BGETV, evt + &21 = &A2EE BFA9 EQUB &EA BFAA EQUW &34,&A3 ;E BPUTV, evt + &24 = &A334 BFAC EQUB &EA BFAD EQUW &F7,&A4 ;E GBPBV, evt + &27 = &A4F7 BFAF EQUB &EA BFB0 EQUB &04,&A4 ;E FINDV, evt + &2A = &A404 BFB2 EQUB &EA BFB3 EQUW &1D,&9A ;E FSCV, evt + &2D = &9A1D BFB5 EQUB &EA ;Table of action addresses for OSFSC calls 0..8, low bytes BFB6 EQUB &2F ;OSFSC 0 = *OPT &9A30 BFB7 EQUB &63 ;OSFSC 1 = read EOF state &9A64 BFB8 EQUB &7B ;OSFSC 2 = */ &9A7C BFB9 EQUB &66 ;OSFSC 3 = unrecognised *cmd &8A67 BFBA EQUB &7B ;OSFSC 4 = *RUN &9A7C BFBB EQUB &E1 ;OSFSC 5 = *CAT &9AE2 BFBC EQUB &D6 ;OSFSC 6 = new FS starting up &9CD7 BFBD EQUB &DE ;OSFSC 7 = valid file handles &9CDF BFBE EQUB &E3 ;OSFSC 8 = *command entered &9CE4 ;Table of action addresses for OSFSC calls 0..8, high bytes BFBF EQUB &9A BFC0 EQUB &9A BFC1 EQUB &9A BFC2 EQUB &8A BFC3 EQUB &9A BFC4 EQUB &9A BFC5 EQUB &9C BFC6 EQUB &9C BFC7 EQUB &9C ;Table of action addresses for OSFILE calls &FF,0..6, low bytes BFC8 EQUB &00 ;OSFILE &FF = load file &9F01 BFC9 EQUB &F2 ;OSFILE 0 = save file &9EF3 BFCA EQUB &4E ;OSFILE 1 = wr. catalog info &9F4F BFCB EQUB &59 ;OSFILE 2 = wr. load address &9F5A BFCC EQUB &61 ;OSFILE 3 = wr. exec address &9F62 BFCD EQUB &69 ;OSFILE 4 = wr. attributes &9F6A BFCE EQUB &78 ;OSFILE 5 = read catalog info &9F79 BFCF EQUB &43 ;OSFILE 6 = delete file &9F44 ;Table of action addresses for OSFILE calls &FF,0..6, high bytes BFD0 EQUB &9F BFD1 EQUB &9E BFD2 EQUB &9F BFD3 EQUB &9F BFD4 EQUB &9F BFD5 EQUB &9F BFD6 EQUB &9F BFD7 EQUB &9F ;Table of action addresses for OSGBPB calls 1..8, low bytes BFD8 EQUB &52 ;OSGBPB 1 = set PTR and write &A652 BFD9 EQUB &52 ;OSGBPB 2 = write data &A652 BFDA EQUB &71 ;OSGBPB 3 = set PTR and read &A671 BFDB EQUB &71 ;OSGBPB 4 = read data &A671 BFDC EQUB &F9 ;OSGBPB 5 = read title/opt/drv &A5F9 BFDD EQUB &2A ;OSGBPB 6 = read CSD drv/dir &A62A BFDE EQUB &3E ;OSGBPB 7 = read lib'y drv/dir &A63E BFDF EQUB &AA ;OSGBPB 8 = read CSD filenames &A5AA ;Table of action addresses for OSGBPB calls 1..8, high bytes BFE0 EQUB &A6 BFE1 EQUB &A6 BFE2 EQUB &A6 BFE3 EQUB &A6 BFE4 EQUB &A5 BFE5 EQUB &A6 BFE6 EQUB &A6 BFE7 EQUB &A5 ;Table of microcode bytes for OSGBPB calls 1..8 BFE8 EQUB &02 BFE9 EQUB &03 BFEA EQUB &06 BFEB EQUB &07 BFEC EQUB &04 BFED EQUB &04 BFEE EQUB &04 BFEF EQUB &04 BFF0 EQUS "Off" BFF3 EQUB &00 BFF4 EQUS "LOAD" BFF8 EQUS "RUN" BFFB EQUB &00 BFFC EQUS "EXEC" ;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 stl22j2 stl22j2.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 stl22j2.asm.txt