OPUS DDOS v3.56 8000 00 00 00 ;LANGUAGE ENTRY 8003 4C 47 80 JMP &8047 ;SERVICE ENTRY ; 8006 82 ;ROM TYPE 8007 1A ;COPYRIGHT POINTER 8008 35 ;VERSION No. 8009 Master DDOS ;TITLE STRING 8014 20 ; 8015 00 ;TERMINATOR BYTE 8016 3.56 ;VERSION No. 801A 00 ;TERMINATOR BYTE 801B (C)Copyright (c) 1990 F.T.C. ;COPYRIGHT STRING 8038 Software ; " " 8040 20 ; " " 8041 00 ;TERMINATOR BYTE ; 8042 6C 1E 02 JMP (&021E) ;SEE &821D 8045 99 A8 20 STA &20A8,Y ;????? 8048 A9 BA LDA #&BA ;????? ;SERVICE ENTRY 8047 20 A9 BA JSR &BAA9 ; 804A C9 01 CMP #&01 ;ABSOLUTE WORKSPACE SVCE CALL 804C D0 07 BNE &8055 ;TO SVCE CALL 2 804E C0 17 CPY #&17 8050 B0 02 BCS &8054 ;RTS 8052 A0 17 LDY #&17 ;Y CONTAINS TOP OF PAGE 8054 60 RTS ;SVCE CALL 2 - CLAIM PRIVATE WORK SPACE 8055 C9 02 CMP #&02 8057 D0 18 BNE &8071 ;TO SVCE CALL 3 8059 98 TYA 805A 85 B1 STA &B1 805C 9D F0 0D STA &0DF0,X ;PRIVATE WORKSPACE FOR PAGED ROMs 805F A9 00 LDA #&00 8061 85 B0 STA &B0 8063 A0 C0 LDY #&C0 8065 91 B0 STA (&B0),Y 8067 C8 INY 8068 91 B0 STA (&B0),Y 806A A4 B1 LDY &B1 806C C8 INY 806D C8 INY 806E A9 02 LDA #&02 8070 60 RTS ;SVCE CALL 3 - INITIALISE ON BREAK 8071 C9 03 CMP #&03 8073 D0 19 BNE &808E ;TO SVCE CALL 4 8075 84 B3 STY &B3 8077 20 00 A3 JSR &A300 807A A9 7A LDA #&7A 807C 20 F4 FF JSR &FFF4 ;OSBYTE &7A - KYBD SCAN 807F 8A TXA 8080 30 09 BMI &808B 8082 C9 32 CMP #&32 ;INTERNAL CODE FOR 'D' 8084 D0 EA BNE &8070 ;RTS 8086 A9 78 LDA #&78 8088 20 F4 FF JSR &FFF4 ;OSBYTE &78 - WRITE KEY PRESS INFO 808B 4C DB 81 JMP &81DB ;SVCE CALL 4 - UNRECOGNISED * COMMAND 808E C9 04 CMP #&04 8090 D0 47 BNE &80D9 ;TO SVCE CALL 9 8092 20 00 A3 JSR &A300 8095 BA TSX 8096 86 B8 STX &B8 8098 98 TYA 8099 A2 5F LDX #&5F ;LSB &8E5F \ address of 809B A0 8E LDY #&8E ;MSB &8E5F / command table 809D 20 C7 8E JSR &8EC7 80A0 B0 4D BCS &80EF 80A2 86 AF STX &AF 80A4 98 TYA 80A5 48 PHA 80A6 AD 1E 02 LDA &021E ;OSFSC 80A9 C9 2D CMP #&2D ;LSB &FF2D 80AB D0 22 BNE &80CF 80AD AD 1F 02 LDA &021F ;OSFSC 80B0 C9 FF CMP #&FF ;MSB &FF2D - EXTL VECT ADD 80B2 D0 1B BNE &80CF 80B4 20 14 A8 JSR &A814 ;OSBYTE &A8 ROUTINE 80B7 86 B0 STX &B0 80B9 84 B1 STY &B1 80BB A0 2D LDY #&2D 80BD B1 B0 LDA (&B0),Y 80BF C9 68 CMP #&68 80C1 D0 0C BNE &80CF 80C3 C8 INY 80C4 B1 B0 LDA (&B0),Y 80C6 C9 94 CMP #&94 80C8 D0 05 BNE &80CF 80CA 68 PLA 80CB A8 TAY 80CC 6C A8 00 JMP (&00A8) ;SEE &8100, &955A, &B40E ; 80CF A6 AF LDX &AF 80D1 20 AA 00 JSR &00AA ;MOS SCRATCH SPACE 80D4 10 F4 BPL &80CA 80D6 4C F2 84 JMP &84F2 ;SVCE CALL 9 *HELP INTERCEPTION 80D9 C9 09 CMP #&09 80DB D0 30 BNE &810D 80DD 20 00 A3 JSR &A300 80E0 B1 F2 LDA (&F2),Y 80E2 C9 0D CMP #&0D 80E4 D0 0A BNE &80F0 80E6 A2 A7 LDX #&A7 ;LSB OF &8EA7 80E8 A0 8E LDY #&8E ;MSB OF &8EA7 80EA A9 04 LDA #&04 80EC 20 F6 9F JSR &9FF6 80EF 60 RTS ; 80F0 20 BB A4 JSR &A4BB 80F3 F0 FA BEQ &80EF 80F5 98 TYA 80F6 48 PHA 80F7 A2 A7 LDX #&A7 ;LSB &8EA7 80F9 A0 8E LDY #&8E ;MSB &8EA7 80FB 20 C7 8E JSR &8EC7 80FE B0 03 BCS &8103 8100 20 CC 80 JSR &80CC ;JMP (&00A8) 8103 68 PLA 8104 A8 TAY 8105 20 C5 FF JSR &FFC5 ;GSREAD 8108 90 FB BCC &8105 810A 4C F0 80 JMP &80F0 ;BRA &80F0 ;SVC CALL 10 - CLAIM ABSOLUTE WORKSPACE 810D C9 0A CMP #&0A 810F D0 29 BNE &813A 8111 20 00 A3 JSR &A300 8114 20 D4 9F JSR &9FD4 8117 A0 C1 LDY #&C1 8119 B1 B0 LDA (&B0),Y 811B 10 1C BPL &8139 811D A0 00 LDY #&00 811F C0 C0 CPY #&C0 8121 90 05 BCC &8128 8123 B9 00 10 LDA &1000,Y 8126 B0 03 BCS &812B 8128 B9 00 11 LDA &1100,Y 812B 91 B0 STA (&B0),Y 812D C8 INY 812E D0 EF BNE &811F 8130 20 D1 97 JSR &97D1 8133 A0 C1 LDY #&C1 8135 A9 00 LDA #&00 8137 91 B0 STA (&B0),Y 8139 60 RTS ;SVCE CALL 8 - UNKNOWN OSWORD 813A C9 08 CMP #&08 813C D0 FB BNE &8139 813E 20 29 A3 JSR &A329 8141 A4 F0 LDY &F0 8143 84 B0 STY &B0 8145 A4 F1 LDY &F1 8147 84 B1 STY &B1 8149 A4 EF LDY &EF 814B C0 7F CPY #&7F ;IS IT OSWORD &7F? 814D D0 5C BNE &81AB 814F 20 C1 A7 JSR &A7C1 8152 A0 01 LDY #&01 8154 B1 B0 LDA (&B0),Y 8156 85 A6 STA &A6 8158 C8 INY 8159 B1 B0 LDA (&B0),Y 815B 85 A7 STA &A7 815D A0 00 LDY #&00 815F B1 B0 LDA (&B0),Y 8161 30 03 BMI &8166 8163 20 03 A5 JSR &A503 8166 C8 INY 8167 A2 02 LDX #&02 8169 20 CB 87 JSR &87CB 816C C8 INY 816D B1 B0 LDA (&B0),Y 816F 29 3F AND #&3F 8171 85 B2 STA &B2 8173 20 67 A4 JSR &A467 8176 29 01 AND #&01 8178 20 00 93 JSR &9300 817B A0 07 LDY #&07 817D B1 B0 LDA (&B0),Y 817F C8 INY 8180 85 BA STA &BA 8182 A2 FD LDX #&FD 8184 E8 INX 8185 E8 INX 8186 E8 INX 8187 BD 11 B6 LDA &B611,X 818A F0 16 BEQ &81A2 818C C5 B2 CMP &B2 818E D0 F4 BNE &8184 8190 08 PHP 8191 58 CLI 8192 A9 81 LDA #&81 8194 48 PHA 8195 A9 A0 LDA #&A0 8197 48 PHA 8198 BD 13 B6 LDA &B613,X 819B 48 PHA 819C BD 12 B6 LDA &B612,X 819F 48 PHA 81A0 60 RTS ; 81A1 28 PLP 81A2 20 A7 A7 JSR &A7A7 81A5 20 38 93 JSR &9338 81A8 A9 00 LDA #&00 81AA 60 RTS ; 81AB C0 7D CPY #&7D 81AD 90 2B BCC &81DA 81AF 20 FB A4 JSR &A4FB 81B2 20 9E 92 JSR &929E 81B5 C0 7E CPY #&7E 81B7 F0 09 BEQ &81C2 81B9 A0 00 LDY #&00 81BB AD 04 0F LDA &0F04 81BE 91 B0 STA (&B0),Y 81C0 98 TYA 81C1 60 RTS ; 81C2 A9 00 LDA #&00 81C4 A8 TAY 81C5 91 B0 STA (&B0),Y 81C7 C8 INY 81C8 AD 07 0F LDA &0F07 81CB 91 B0 STA (&B0),Y 81CD C8 INY 81CE AD 06 0F LDA &0F06 81D1 29 03 AND #&03 81D3 91 B0 STA (&B0),Y 81D5 C8 INY 81D6 A9 00 LDA #&00 81D8 91 B0 STA (&B0),Y 81DA 60 RTS ; 81DB A5 B3 LDA &B3 81DD 48 PHA 81DE A2 FF LDX #&FF 81E0 8E DD 10 STX &10DD 81E3 A9 FD LDA #&FD 81E5 20 1E A8 JSR &A81E 81E8 20 02 82 JSR &8202 81EB D0 03 BNE &81F0 81ED 8A TXA 81EE F0 03 BEQ &81F3 81F0 20 D2 82 JSR &82D2 81F3 20 84 A8 JSR &A884 81F6 20 15 82 JSR &8215 81F9 68 PLA 81FA D0 03 BNE &81FF 81FC 4C F5 82 JMP &82F5 ;BRA &82F5 ; 81FF A9 00 LDA #&00 8201 60 RTS ; 8202 AD C2 10 LDA &10C2 8205 C9 41 CMP #&41 8207 D0 05 BNE &820E 8209 AD DE 10 LDA &10DE 820C C9 48 CMP #&48 820E 60 RTS ; 820F 48 PHA 8210 20 15 82 JSR &8215 8213 68 PLA 8214 60 RTS ; 8215 A9 00 LDA #&00 8217 BA TSX 8218 9D 08 01 STA &0108,X 821B A9 06 LDA #&06 821D 20 42 80 JSR &8042 8220 A2 00 LDX #&00 8222 BD 25 A8 LDA &A825,X 8225 9D 12 02 STA &0212,X 8228 E8 INX 8229 E0 0E CPX #&0E 822B D0 F5 BNE &8222 822D 20 14 A8 JSR &A814 8230 84 B1 STY &B1 8232 86 B0 STX &B0 8234 A2 00 LDX #&00 8236 A0 1B LDY #&1B 8238 BD 33 A8 LDA &A833,X 823B 91 B0 STA (&B0),Y 823D E8 INX 823E C8 INY 823F BD 33 A8 LDA &A833,X 8242 91 B0 STA (&B0),Y 8244 E8 INX 8245 C8 INY 8246 A5 F4 LDA &F4 8248 91 B0 STA (&B0),Y 824A C8 INY 824B E0 0E CPX #&0E 824D D0 E9 BNE &8238 824F A2 0F LDX #&0F 8251 20 18 A8 JSR &A818 8254 A9 FF LDA #&FF 8256 8D 84 10 STA &1084 8259 20 D4 9F JSR &9FD4 825C A0 C0 LDY #&C0 825E B1 B0 LDA (&B0),Y 8260 10 35 BPL &8297 8262 C8 INY 8263 B1 B0 LDA (&B0),Y 8265 30 27 BMI &828E 8267 20 C5 9F JSR &9FC5 826A A0 00 LDY #&00 826C B1 B0 LDA (&B0),Y 826E C0 C0 CPY #&C0 8270 90 05 BCC &8277 8272 99 00 10 STA &1000,Y 8275 B0 03 BCS &827A 8277 99 00 11 STA &1100,Y 827A 88 DEY 827B D0 EF BNE &826C 827D A9 A0 LDA #&A0 827F A8 TAY 8280 48 PHA 8281 A9 3F LDA #&3F 8283 20 46 99 JSR &9946 8286 68 PLA 8287 99 1D 11 STA &111D,Y 828A E9 1F SBC #&1F 828C D0 F1 BNE &827F 828E 20 02 82 JSR &8202 8291 F0 03 BEQ &8296 8293 20 D2 82 JSR &82D2 8296 60 RTS ; 8297 A9 FF LDA #&FF 8299 91 B0 STA (&B0),Y 829B 8D C0 10 STA &10C0 829E 20 C5 9F JSR &9FC5 82A1 20 10 A8 JSR &A810 82A4 8A TXA 82A5 49 FF EOR #&FF 82A7 8D D6 10 STA &10D6 82AA 20 8E 82 JSR &828E 82AD A9 0E LDA #&0E 82AF 8D 01 10 STA &1001 82B2 A0 00 LDY #&00 82B4 8C C3 10 STY &10C3 82B7 8C CE 10 STY &10CE 82BA 8C 87 10 STY &1087 82BD 88 DEY 82BE 8C D2 10 STY &10D2 82C1 8C D1 10 STY &10D1 82C4 8C DD 10 STY &10DD 82C7 8C 84 10 STY &1084 82CA 20 1C A8 JSR &A81C 82CD 86 B4 STX &B4 82CF 4C 65 B6 JMP &B665 ; 82D2 A9 00 LDA #&00 82D4 8D E0 10 STA &10E0 82D7 8D CB 10 STA &10CB 82DA 8D CD 10 STA &10CD 82DD A9 24 LDA #&24 82DF 8D CA 10 STA &10CA 82E2 8D CC 10 STA &10CC 82E5 A9 80 LDA #&80 82E7 8D E3 10 STA &10E3 82EA A9 41 LDA #&41 82EC 8D C2 10 STA &10C2 82EF A9 48 LDA #&48 82F1 8D DE 10 STA &10DE 82F4 60 RTS ; 82F5 20 FB A4 JSR &A4FB 82F8 20 A1 92 JSR &92A1 82FB A0 00 LDY #&00 82FD A2 00 LDX #&00 82FF AD 06 0F LDA &0F06 8302 20 67 A4 JSR &A467 8305 F0 25 BEQ &832C 8307 48 PHA 8308 A2 50 LDX #&50 830A A0 83 LDY #&83 830C 20 42 8F JSR &8F42 830F 20 E5 87 JSR &87E5 8312 20 63 89 JSR &8963 8315 68 PLA 8316 B0 15 BCS &832D 8318 20 94 A3 JSR &A394 831B File not found 8329 0D 0D EA 832C 60 RTS ; 832D C9 02 CMP #&02 832F 90 0E BCC &833F 8331 F0 06 BEQ &8339 8333 A2 4E LDX #&4E 8335 A0 83 LDY #&83 8337 D0 0A BNE &8343 8339 A2 50 LDX #&50 833B A0 83 LDY #&83 833D D0 04 BNE &8343 833F A2 46 LDX #&46 8341 A0 83 LDY #&83 8343 4C F7 FF JMP &FFF7 ;OSCLI ; 8346 L.!BOOT ;*L.!BOOT 834D 0D 834E E.!BOOT ;*E.!BOOT 8355 0D ; 8356 20 D5 A2 JSR &A2D5 8359 A9 00 LDA #&00 835B F0 05 BEQ &8362 835D 20 D5 A2 JSR &A2D5 8360 A9 FF LDA #&FF 8362 85 AB STA &AB 8364 A9 40 LDA #&40 8366 20 CE FF JSR &FFCE ;OSFIND 8369 A8 TAY 836A F0 30 BEQ &839C 836C A9 0D LDA #&0D 836E D0 1B BNE &838B 8370 20 D7 FF JSR &FFD7 ;OSBGET 8373 B0 1E BCS &8393 8375 C9 0A CMP #&0A 8377 F0 F7 BEQ &8370 8379 28 PLP 837A D0 08 BNE &8384 837C 48 PHA 837D 20 9F A2 JSR &A29F 8380 20 CC A2 JSR &A2CC 8383 68 PLA 8384 20 E3 FF JSR &FFE3 ;OSASCII 8387 24 FF BIT &FF 8389 30 09 BMI &8394 838B 25 AB AND &AB 838D C9 0D CMP #&0D 838F 08 PHP 8390 4C 70 83 JMP &8370 ;BRA &8370 ; 8393 28 PLP 8394 20 67 84 JSR &8467 8397 A9 00 LDA #&00 8399 4C CE FF JMP &FFCE ;OSFIND ; 839C 4C 43 89 JMP &8943 ; 839F 20 D5 A2 JSR &A2D5 83A2 A9 40 LDA #&40 83A4 20 CE FF JSR &FFCE ;OSFIND 83A7 A8 TAY 83A8 F0 F2 BEQ &839C 83AA A6 F4 LDX &F4 83AC BD F0 0D LDA &0DF0,X 83AF 85 AD STA &AD 83B1 E6 AD INC &AD 83B3 24 FF BIT &FF 83B5 30 E0 BMI &8397 83B7 A5 A9 LDA &A9 83B9 20 29 A4 JSR &A429 83BC A5 A8 LDA &A8 83BE 20 29 A4 JSR &A429 83C1 20 CC A2 JSR &A2CC 83C4 A9 07 LDA #&07 83C6 85 AC STA &AC 83C8 A2 00 LDX #&00 83CA 20 D7 FF JSR &FFD7 ;OSBGET 83CD B0 0D BCS &83DC 83CF 81 AC STA (&AC,X) 83D1 20 29 A4 JSR &A429 83D4 20 CC A2 JSR &A2CC 83D7 C6 AC DEC &AC 83D9 10 EF BPL &83CA 83DB 18 CLC 83DC 08 PHP 83DD 90 0E BCC &83ED 83DF 20 94 A3 JSR &A394 83E2 2A ROL A 83E3 2A ROL A 83E4 20 A9 00 JSR &00A9 83E7 81 AC STA (&AC,X) 83E9 C6 AC DEC &AC 83EB 10 F2 BPL &83DF 83ED A9 07 LDA #&07 83EF 85 AC STA &AC 83F1 A1 AC LDA (&AC,X) 83F3 C9 7F CMP #&7F 83F5 B0 04 BCS &83FB 83F7 C9 20 CMP #&20 83F9 B0 02 BCS &83FD 83FB A9 2E LDA #&2E 83FD 20 E3 FF JSR &FFE3 ;OSASCI 8400 C6 AC DEC &AC 8402 10 ED BPL &83F1 8404 20 67 84 JSR &8467 8407 A9 08 LDA #&08 8409 18 CLC 840A 65 A8 ADC &A8 840C 85 A8 STA &A8 840E 90 02 BCC &8412 8410 E6 A9 INC &A9 8412 28 PLP 8413 90 9E BCC &83B3 8415 B0 80 BCS &8397 8417 20 D5 A2 JSR &A2D5 841A A9 80 LDA #&80 841C 20 CE FF JSR &FFCE ;OSFIND 841F 85 AB STA &AB 8421 20 9F A2 JSR &A29F 8424 20 CC A2 JSR &A2CC 8427 A6 F4 LDX &F4 8429 BC F0 0D LDY &0DF0,X 842C C8 INY 842D 84 AD STY &AD 842F A2 AC LDX #&AC 8431 A0 FF LDY #&FF 8433 84 AE STY &AE 8435 84 B0 STY &B0 8437 C8 INY 8438 84 AC STY &AC 843A 84 AF STY &AF 843C 98 TYA 843D 20 F1 FF JSR &FFF1 ;OSWORD 8440 08 PHP 8441 84 AA STY &AA 8443 A4 AB LDY &AB 8445 A2 00 LDX #&00 8447 F0 07 BEQ &8450 8449 A1 AC LDA (&AC,X) 844B 20 D4 FF JSR &FFD4 ;OSBPUT 844E E6 AC INC &AC 8450 A5 AC LDA &AC 8452 C5 AA CMP &AA 8454 D0 F3 BNE &8449 8456 28 PLP 8457 B0 08 BCS &8461 8459 A9 0D LDA #&0D 845B 20 D4 FF JSR &FFD4 ;OSBPUT 845E 4C 21 84 JMP &8421 ;BRA &8421 ; 8461 20 58 A4 JSR &A458 8464 20 97 83 JSR &8397 8467 48 PHA 8468 A9 0D LDA #&0D 846A 20 03 A4 JSR &A403 846D 68 PLA 846E 60 RTS ; 846F 20 00 A3 JSR &A300 8472 AE D3 10 LDX &10D3 8475 A9 00 LDA #&00 8477 F0 08 BEQ &8481 8479 20 00 A3 JSR &A300 847C AE D4 10 LDX &10D4 847F A9 80 LDA #&80 8481 48 PHA 8482 86 CF STX &CF ;CONTAINS THE DRIVE No. IN USE 8484 20 D6 A7 JSR &A7D6 8487 68 PLA 8488 24 A9 BIT &A9 848A 30 01 BMI &848D 848C 60 RTS ; 848D C5 AA CMP &AA 848F F0 FB BEQ &848C 8491 85 AA STA &AA 8493 20 94 A3 JSR &A394 ; 8496 Insert 849C 20 849D EA ; 849E 24 AA BIT &AA 84A0 30 0B BMI &84AD 84A2 20 94 A3 JSR &A394 ; 84A5 source ; 84AA 90 0F BCC &84BC 84AD 20 94 A3 JSR &A394 ; 84B0 destination 84BB EA ; 84BC 20 94 A3 JSR &A394 84BD 94 A3 STY &A3,X ; 84BF 20 84C0 disk and hit a key 84D2 EA ; 84D3 20 EA 84 JSR &84EA 84D6 4C 67 84 JMP &8467 ;BRA &8467 ; 84D9 20 EA 84 JSR &84EA 84DC 29 5F AND #&5F 84DE C9 59 CMP #&59 84E0 08 PHP 84E1 F0 02 BEQ &84E5 84E3 A9 4E LDA #&4E 84E5 20 03 A4 JSR &A403 84E8 28 PLP 84E9 60 RTS ; 84EA 20 EE A7 JSR &A7EE 84ED 20 E0 FF JSR &FFE0 ;OSRDCH 84F0 90 03 BCC &84F5 84F2 A6 B8 LDX &B8 84F4 9A TXS 84F5 60 RTS ; 84F6 A0 05 LDY #&05 84F8 D0 02 BNE &84FC 84FA A0 06 LDY #&06 84FC 20 2C 85 JSR &852C 84FF A2 00 LDX #&00 8501 B9 E6 10 LDA &10E6,Y 8504 9D E0 10 STA &10E0,X 8507 C8 INY 8508 E8 INX 8509 E0 06 CPX #&06 850B D0 F4 BNE &8501 850D 60 RTS ; 850E 20 00 A3 JSR &A300 8511 A0 05 LDY #&05 8513 D0 05 BNE &851A 8515 20 00 A3 JSR &A300 8518 A0 06 LDY #&06 851A 20 2C 85 JSR &852C 851D A2 00 LDX #&00 851F BD E0 10 LDA &10E0,X 8522 99 E6 10 STA &10E6,Y 8525 C8 INY 8526 E8 INX 8527 E0 06 CPX #&06 8529 D0 F4 BNE &851F 852B 60 RTS ; 852C A5 A8 LDA &A8 852E 48 PHA 852F 98 TYA 8530 85 A8 STA &A8 8532 0A ASL A 8533 65 A8 ADC &A8 8535 0A ASL A 8536 A8 TAY 8537 68 PLA 8538 85 A8 STA &A8 853A 60 RTS ; 853B 20 3A A2 JSR &A23A 853E 20 4F A2 JSR &A24F 8541 A9 00 LDA #&00 8543 85 A8 STA &A8 8545 85 C8 STA &C8 8547 85 C9 STA &C9 8549 85 CA STA &CA 854B 85 CB STA &CB 854D 20 38 86 JSR &8638 8550 A9 00 LDA #&00 8552 8D E2 10 STA &10E2 8555 20 0E 85 JSR &850E 8558 20 19 86 JSR &8619 855B 8D D7 10 STA &10D7 855E 86 C6 STX &C6 8560 84 C7 STY &C7 8562 20 32 86 JSR &8632 8565 A9 00 LDA #&00 8567 8D E2 10 STA &10E2 856A 20 15 85 JSR &8515 856D AD 07 11 LDA &1107 8570 4D 0D 11 EOR &110D 8573 29 40 AND #&40 8575 F0 3A BEQ &85B1 8577 A9 D5 LDA #&D5 8579 20 EF A3 JSR &A3EF 857C 20 8A A3 JSR &A38A ; 857F Both disks MUST be same density 859E 0D 0A 85A0 Hint...use MCOPY 85B0 00 ; 85B1 20 19 86 JSR &8619 85B4 8A TXA 85B5 48 PHA 85B6 98 TYA 85B7 48 PHA 85B8 C5 C7 CMP &C7 85BA 90 07 BCC &85C3 85BC D0 29 BNE &85E7 85BE 8A TXA 85BF C5 C6 CMP &C6 85C1 B0 24 BCS &85E7 85C3 A9 D5 LDA #&D5 85C5 20 EF A3 JSR &A3EF 85C8 AD D3 10 LDA &10D3 85CB 20 08 8D JSR &8D08 85CE 20 94 A3 JSR &A394 ; 85D1 20 85D2 larger than 85DD 20 ; 85DE AD D4 10 LDA &10D4 85E1 20 08 8D JSR &8D08 85E4 4C B9 A3 JMP &A3B9 ; 85E7 20 51 87 JSR &8751 85EA 2C E3 10 BIT &10E3 85ED 70 19 BVS &8608 85EF 20 79 84 JSR &8479 85F2 20 A1 92 JSR &92A1 85F5 68 PLA 85F6 29 0F AND #&0F 85F8 0D D7 10 ORA &10D7 85FB 8D 06 0F STA &0F06 85FE 68 PLA 85FF 8D 07 0F STA &0F07 8602 20 81 92 JSR &9281 8605 4C BA 86 JMP &86BA ;BRA &86BA ; 8608 20 D9 A6 JSR &A6D9 860B 68 PLA 860C 8D 01 0E STA &0E01 860F 68 PLA 8610 8D 02 0E STA &0E02 8613 20 DD A6 JSR &A6DD 8616 4C BA 86 JMP &86BA ;BRA &86BA ; 8619 AE 07 0F LDX &0F07 861C AD 06 0F LDA &0F06 861F 48 PHA 8620 29 03 AND #&03 8622 A8 TAY 8623 2C E3 10 BIT &10E3 8626 50 06 BVC &862E 8628 AE 0F 10 LDX &100F 862B AC 0E 10 LDY &100E 862E 68 PLA 862F 29 F0 AND #&F0 8631 60 RTS ; 8632 20 79 84 JSR &8479 8635 4C A1 92 JMP &92A1 ; 8638 20 6F 84 JSR &846F 863B 4C A1 92 JMP &92A1 ;BRA &8635 ; 863E 20 2B 89 JSR &892B 8641 20 4F A2 JSR &A24F 8644 20 0E A0 JSR &A00E 8647 20 E5 87 JSR &87E5 864A 20 6F 84 JSR &846F 864D 20 3E 89 JSR &893E 8650 20 0E 85 JSR &850E 8653 84 AB STY &AB 8655 20 C0 89 JSR &89C0 8658 A2 00 LDX #&00 865A B5 C7 LDA &C7,X 865C 9D 58 10 STA &1058,X 865F B9 08 0E LDA &0E08,Y 8662 95 C7 STA &C7,X 8664 9D 50 10 STA &1050,X 8667 B9 08 0F LDA &0F08,Y 866A 95 BD STA &BD,X 866C 9D 47 10 STA &1047,X 866F E8 INX 8670 C8 INY 8671 E0 08 CPX #&08 8673 D0 E5 BNE &865A 8675 A5 C3 LDA &C3 8677 20 5F A4 JSR &A45F 867A 85 C5 STA &C5 867C A5 C1 LDA &C1 867E 18 CLC 867F 69 FF ADC #&FF 8681 A5 C2 LDA &C2 8683 69 00 ADC #&00 8685 85 C6 STA &C6 8687 A5 C5 LDA &C5 8689 69 00 ADC #&00 868B 85 C7 STA &C7 868D AD 4E 10 LDA &104E 8690 85 C8 STA &C8 8692 AD 4D 10 LDA &104D 8695 29 03 AND #&03 8697 85 C9 STA &C9 8699 A9 FF LDA #&FF 869B 85 A8 STA &A8 869D 20 51 87 JSR &8751 86A0 20 6F 84 JSR &846F 86A3 20 9E 92 JSR &929E 86A6 A2 07 LDX #&07 86A8 BD 58 10 LDA &1058,X 86AB 95 C7 STA &C7,X 86AD CA DEX 86AE 10 F8 BPL &86A8 86B0 A4 AB LDY &AB 86B2 8C CF 10 STY &10CF 86B5 20 6A 89 JSR &896A 86B8 B0 99 BCS &8653 86BA AD 89 10 LDA &1089 86BD 85 BF STA &BF 86BF A9 00 LDA #&00 86C1 85 BE STA &BE 86C3 A9 0D LDA #&0D 86C5 91 BE STA (&BE),Y 86C7 C8 INY 86C8 A9 FF LDA #&FF 86CA 91 BE STA (&BE),Y 86CC 60 RTS ; 86CD 20 09 87 JSR &8709 86D0 20 79 84 JSR &8479 86D3 A5 CE LDA &CE 86D5 48 PHA 86D6 20 9E 92 JSR &929E 86D9 20 63 89 JSR &8963 86DC 90 03 BCC &86E1 86DE 20 9E 89 JSR &899E 86E1 68 PLA 86E2 85 CE STA &CE 86E4 20 15 85 JSR &8515 86E7 20 19 92 JSR &9219 86EA 20 35 92 JSR &9235 86ED A5 C4 LDA &C4 86EF 20 5F A4 JSR &A45F 86F2 85 C6 STA &C6 86F4 20 2C 91 JSR &912C 86F7 A5 C4 LDA &C4 86F9 29 03 AND #&03 86FB 48 PHA 86FC A5 C5 LDA &C5 86FE 48 PHA 86FF 20 09 87 JSR &8709 8702 68 PLA 8703 85 CA STA &CA 8705 68 PLA 8706 85 CB STA &CB 8708 60 RTS ; 8709 A2 11 LDX #&11 870B BD 45 10 LDA &1045,X 870E B4 BC LDY &BC,X 8710 95 BC STA &BC,X 8712 98 TYA 8713 9D 45 10 STA &1045,X 8716 CA DEX 8717 10 F2 BPL &870B 8719 60 RTS ; 871A 20 6F 84 JSR &846F 871D 20 A1 92 JSR &92A1 8720 20 0E 85 JSR &850E 8723 AD 07 0F LDA &0F07 8726 85 C6 STA &C6 8728 AD 06 0F LDA &0F06 872B 29 03 AND #&03 872D 85 C7 STA &C7 872F AD 06 0F LDA &0F06 8732 29 F0 AND #&F0 8734 8D D7 10 STA &10D7 8737 20 79 84 JSR &8479 873A 20 A1 92 JSR &92A1 873D 4C 15 85 JMP &8515 ; 8740 AD 06 0F LDA &0F06 8743 29 03 AND #&03 8745 C5 C7 CMP &C7 8747 90 07 BCC &8750 8749 D0 05 BNE &8750 874B AD 07 0F LDA &0F07 874E C5 C6 CMP &C6 8750 60 RTS ; 8751 A9 00 LDA #&00 8753 85 BE STA &BE 8755 85 C2 STA &C2 8757 A5 C6 LDA &C6 8759 A8 TAY 875A CD 8B 10 CMP &108B 875D A5 C7 LDA &C7 875F E9 00 SBC #&00 8761 90 03 BCC &8766 8763 AC 8B 10 LDY &108B 8766 84 C3 STY &C3 8768 A5 C8 LDA &C8 876A 85 C5 STA &C5 876C A5 C9 LDA &C9 876E 85 C4 STA &C4 8770 AD 89 10 LDA &1089 8773 85 BF STA &BF 8775 20 F6 84 JSR &84F6 8778 20 6F 84 JSR &846F 877B 20 28 92 JSR &9228 877E 20 1D 90 JSR &901D 8781 24 A8 BIT &A8 8783 10 07 BPL &878C 8785 20 CD 86 JSR &86CD 8788 A9 00 LDA #&00 878A 85 A8 STA &A8 878C A5 CA LDA &CA 878E 85 C5 STA &C5 8790 A5 CB LDA &CB 8792 85 C4 STA &C4 8794 AD 89 10 LDA &1089 8797 85 BF STA &BF 8799 20 FA 84 JSR &84FA 879C 20 79 84 JSR &8479 879F 20 28 92 JSR &9228 87A2 20 23 90 JSR &9023 87A5 A5 C3 LDA &C3 87A7 18 CLC 87A8 65 CA ADC &CA 87AA 85 CA STA &CA 87AC 90 02 BCC &87B0 87AE E6 CB INC &CB 87B0 A5 C3 LDA &C3 87B2 18 CLC 87B3 65 C8 ADC &C8 87B5 85 C8 STA &C8 87B7 90 02 BCC &87BB 87B9 E6 C9 INC &C9 87BB 38 SEC 87BC A5 C6 LDA &C6 87BE E5 C3 SBC &C3 87C0 85 C6 STA &C6 87C2 B0 02 BCS &87C6 87C4 C6 C7 DEC &C7 87C6 05 C7 ORA &C7 87C8 D0 8D BNE &8757 87CA 60 RTS ; 87CB 20 DB 87 JSR &87DB 87CE CA DEX 87CF CA DEX 87D0 20 D3 87 JSR &87D3 87D3 B1 B0 LDA (&B0),Y 87D5 9D 6D 10 STA &106D,X 87D8 E8 INX 87D9 C8 INY 87DA 60 RTS ; 87DB 20 DE 87 JSR &87DE 87DE B1 B0 LDA (&B0),Y 87E0 95 BC STA &BC,X 87E2 E8 INX 87E3 C8 INY 87E4 60 RTS ; 87E5 20 F0 A4 JSR &A4F0 87E8 4C FB 87 JMP &87FB ;BRA &87FB ; 87EB 20 F0 A4 JSR &A4F0 87EE A5 BC LDA &BC 87F0 85 F2 STA &F2 87F2 A5 BD LDA &BD 87F4 85 F3 STA &F3 87F6 A0 00 LDY #&00 87F8 20 BB A4 JSR &A4BB 87FB 20 66 88 JSR &8866 87FE 20 C5 FF JSR &FFC5 ;GSREAD 8801 B0 53 BCS &8856 8803 C9 3A CMP #&3A ;CHECK FOR COLON 8805 D0 22 BNE &8829 8807 20 C5 FF JSR &FFC5 ;GSREAD 880A B0 57 BCS &8863 880C 20 BF A4 JSR &A4BF 880F 20 C5 FF JSR &FFC5 ;GSREAD 8812 B0 42 BCS &8856 8814 C9 2E CMP #&2E ;CHECK FOR DOT 8816 F0 0C BEQ &8824 8818 20 CB A4 JSR &A4CB 881B 20 C5 FF JSR &FFC5 ;GSREAD 881E B0 36 BCS &8856 8820 C9 2E CMP #&2E ;CHECK FOR DOT 8822 D0 32 BNE &8856 8824 20 C5 FF JSR &FFC5 ;GSREAD 8827 B0 2D BCS &8856 8829 85 C7 STA &C7 882B A2 00 LDX #&00 882D 20 C5 FF JSR &FFC5 ;GSREAD 8830 B0 44 BCS &8876 8832 E8 INX 8833 C9 2E CMP #&2E ;CHECK FOR DOT 8835 D0 0B BNE &8842 8837 A5 C7 LDA &C7 8839 20 80 A5 JSR &A580 883C 20 C5 FF JSR &FFC5 ;GSREAD 883F B0 15 BCS &8856 8841 CA DEX 8842 C9 2A CMP #&2A ;CHECK FOR STAR 8844 F0 36 BEQ &887C 8846 C9 21 CMP #&21 8848 90 0C BCC &8856 884A 95 C7 STA &C7,X 884C E8 INX 884D 20 C5 FF JSR &FFC5 ;GSREAD 8850 B0 23 BCS &8875 8852 E0 07 CPX #&07 8854 D0 EC BNE &8842 8856 20 51 A3 JSR &A351 ; 8859 CC 885A filename ;ERROR CC = "Bad filename" 8862 00 ; 8863 4C 11 A5 JMP &A511 ; 8866 A2 00 LDX #&00 8868 A9 20 LDA #&20 886A D0 02 BNE &886E 886C A9 23 LDA #&23 886E 95 C7 STA &C7,X 8870 E8 INX 8871 E0 07 CPX #&07 8873 D0 F9 BNE &886E 8875 60 RTS ; 8876 A5 C7 LDA &C7 8878 C9 2A CMP #&2A ;CHECK FOR STAR 887A D0 F9 BNE &8875 887C 20 C5 FF JSR &FFC5 ;GSREAD 887F B0 EB BCS &886C 8881 C9 20 CMP #&20 ;CHECK FOR SPACE 8883 F0 E7 BEQ &886C 8885 D0 CF BNE &8856 8887 20 00 A3 JSR &A300 888A AD 04 0F LDA &0F04 888D 20 9E 92 JSR &929E 8890 CD 04 0F CMP &0F04 8893 F0 E0 BEQ &8875 8895 20 62 A3 JSR &A362 ; 8898 C8 8899 Disk changed ;ERROR C8 = "Disk changed" 88A5 00 ; 88A6 20 00 A3 JSR &A300 88A9 B9 0F 0E LDA &0E0F,Y 88AC 08 PHP 88AD 29 7F AND #&7F 88AF D0 05 BNE &88B6 88B1 20 C9 A2 JSR &A2C9 88B4 F0 06 BEQ &88BC 88B6 20 03 A4 JSR &A403 88B9 20 01 A4 JSR &A401 88BC A2 06 LDX #&06 88BE B9 08 0E LDA &0E08,Y 88C1 29 7F AND #&7F 88C3 20 03 A4 JSR &A403 88C6 C8 INY 88C7 CA DEX 88C8 10 F4 BPL &88BE 88CA 20 C9 A2 JSR &A2C9 88CD A9 20 LDA #&20 88CF 28 PLP 88D0 10 02 BPL &88D4 88D2 A9 4C LDA #&4C 88D4 20 03 A4 JSR &A403 88D7 4C CC A2 JMP &A2CC ; 88DA 20 CC A2 JSR &A2CC 88DD 88 DEY 88DE D0 FA BNE &88DA 88E0 60 RTS ; 88E1 A9 00 LDA #&00 88E3 85 A5 STA &A5 88E5 A6 C4 LDX &C4 88E7 4C F6 88 JMP &88F6 ;BRA &88F6 ; 88EA A5 C4 LDA &C4 88EC 20 5F A4 JSR &A45F 88EF 85 A5 STA &A5 88F1 A5 C4 LDA &C4 88F3 29 03 AND #&03 88F5 AA TAX 88F6 A5 BE LDA &BE 88F8 85 A6 STA &A6 88FA A5 BF LDA &BF 88FC 85 A7 STA &A7 88FE A5 C3 LDA &C3 8900 85 A4 STA &A4 8902 A5 C2 LDA &C2 8904 85 A3 STA &A3 8906 86 BA STX &BA 8908 A5 C5 LDA &C5 890A 85 BB STA &BB 890C AD E1 10 LDA &10E1 890F F0 19 BEQ &892A 8911 AD E2 10 LDA &10E2 8914 85 BA STA &BA 8916 C6 BA DEC &BA 8918 A5 C5 LDA &C5 891A 38 SEC 891B E6 BA INC &BA 891D ED E1 10 SBC &10E1 8920 B0 F9 BCS &891B 8922 CA DEX 8923 10 F5 BPL &891A 8925 6D E1 10 ADC &10E1 8928 85 BB STA &BB 892A 60 RTS ; 892B A9 23 LDA #&23 892D D0 02 BNE &8931 892F A9 FF LDA #&FF 8931 8D D0 10 STA &10D0 8934 60 RTS ; 8935 20 E5 87 JSR &87E5 8938 4C 3E 89 JMP &893E ; 893B 20 EB 87 JSR &87EB 893E 20 63 89 JSR &8963 8941 B0 E7 BCS &892A 8943 20 5A A3 JSR &A35A 8946 D6 8947 not found ;ERROR D6 = "File not found" 8950 00 ; 8951 20 2B 89 JSR &892B 8954 20 0E A0 JSR &A00E 8957 20 35 89 JSR &8935 895A 20 C0 89 JSR &89C0 895D 20 6A 89 JSR &896A 8960 B0 F8 BCS &895A 8962 60 RTS ; 8963 20 92 92 JSR &9292 8966 A0 F8 LDY #&F8 8968 D0 03 BNE &896D 896A AC CF 10 LDY &10CF 896D 20 72 A4 JSR &A472 8970 CC 05 0F CPY &0F05 8973 B0 44 BCS &89B9 8975 20 72 A4 JSR &A472 8978 A2 07 LDX #&07 897A B5 C7 LDA &C7,X 897C CD D0 10 CMP &10D0 897F F0 0E BEQ &898F 8981 20 9A A4 JSR &A49A 8984 59 07 0E EOR &0E07,Y 8987 B0 02 BCS &898B 8989 29 DF AND #&DF 898B 29 7F AND #&7F 898D D0 09 BNE &8998 898F 88 DEY 8990 CA DEX 8991 10 E7 BPL &897A 8993 8C CF 10 STY &10CF 8996 38 SEC 8997 60 RTS ; 8998 88 DEY 8999 CA DEX 899A 10 FC BPL &8998 899C 30 CF BMI &896D 899E 20 F8 9B JSR &9BF8 89A1 B9 10 0E LDA &0E10,Y 89A4 99 08 0E STA &0E08,Y 89A7 B9 10 0F LDA &0F10,Y 89AA 99 08 0F STA &0F08,Y 89AD C8 INY 89AE CC 05 0F CPY &0F05 89B1 90 EE BCC &89A1 89B3 98 TYA 89B4 E9 08 SBC #&08 89B6 8D 05 0F STA &0F05 89B9 18 CLC 89BA 60 RTS ; 89BB 2C D1 10 BIT &10D1 89BE 30 FA BMI &89BA 89C0 20 00 A3 JSR &A300 89C3 20 A6 88 JSR &88A6 89C6 98 TYA 89C7 48 PHA 89C8 A9 60 LDA #&60 89CA 85 B0 STA &B0 89CC A9 10 LDA #&10 89CE 85 B1 STA &B1 89D0 20 06 8A JSR &8A06 89D3 A0 02 LDY #&02 89D5 20 CC A2 JSR &A2CC 89D8 20 F4 89 JSR &89F4 89DB 20 F4 89 JSR &89F4 89DE 20 F4 89 JSR &89F4 89E1 68 PLA 89E2 A8 TAY 89E3 B9 0E 0F LDA &0F0E,Y 89E6 29 03 AND #&03 89E8 20 31 A4 JSR &A431 89EB B9 0F 0F LDA &0F0F,Y 89EE 20 29 A4 JSR &A429 89F1 4C 67 84 JMP &8467 ; 89F4 A2 03 LDX #&03 89F6 B9 62 10 LDA &1062,Y 89F9 20 29 A4 JSR &A429 89FC 88 DEY 89FD CA DEX 89FE D0 F6 BNE &89F6 8A00 20 73 A4 JSR &A473 8A03 4C CC A2 JMP &A2CC ; 8A06 20 00 A3 JSR &A300 8A09 98 TYA 8A0A 48 PHA 8A0B AA TAX 8A0C A0 02 LDY #&02 8A0E A9 00 LDA #&00 8A10 91 B0 STA (&B0),Y 8A12 C8 INY 8A13 C0 12 CPY #&12 8A15 D0 F9 BNE &8A10 8A17 A0 02 LDY #&02 8A19 20 55 8A JSR &8A55 8A1C C8 INY 8A1D C8 INY 8A1E C0 0E CPY #&0E 8A20 D0 F7 BNE &8A19 8A22 68 PLA 8A23 AA TAX 8A24 BD 0F 0E LDA &0E0F,X 8A27 10 06 BPL &8A2F 8A29 A9 0A LDA #&0A 8A2B A0 0E LDY #&0E 8A2D 91 B0 STA (&B0),Y 8A2F BD 0E 0F LDA &0F0E,X 8A32 A0 04 LDY #&04 8A34 20 43 8A JSR &8A43 8A37 A0 0C LDY #&0C 8A39 4A LSR A 8A3A 4A LSR A 8A3B 48 PHA 8A3C 29 03 AND #&03 8A3E 91 B0 STA (&B0),Y 8A40 68 PLA 8A41 A0 08 LDY #&08 8A43 4A LSR A 8A44 4A LSR A 8A45 48 PHA 8A46 29 03 AND #&03 8A48 C9 03 CMP #&03 8A4A D0 05 BNE &8A51 8A4C A9 FF LDA #&FF 8A4E 91 B0 STA (&B0),Y 8A50 C8 INY 8A51 91 B0 STA (&B0),Y 8A53 68 PLA 8A54 60 RTS ; 8A55 20 58 8A JSR &8A58 8A58 BD 08 0F LDA &0F08,X 8A5B 91 B0 STA (&B0),Y 8A5D E8 INX 8A5E C8 INY 8A5F 60 RTS ; 8A60 A2 00 LDX #&00 8A62 20 E5 A4 JSR &A4E5 8A65 8A TXA 8A66 29 01 AND #&01 8A68 F0 03 BEQ &8A6D 8A6A 4C A7 8A JMP &8AA7 ;BRA &8AA7 ; 8A6D A5 CF LDA &CF 8A6F 29 0F AND #&0F 8A71 85 CF STA &CF 8A73 A9 00 LDA #&00 8A75 8D 00 10 STA &1000 8A78 20 A4 A5 JSR &A5A4 8A7B 2C E3 10 BIT &10E3 8A7E 70 03 BVS &8A83 8A80 4C A7 8A JMP &8AA7 ;BRA &8AA7 ; 8A83 20 00 8C JSR &8C00 8A86 A2 00 LDX #&00 8A88 BD 06 10 LDA &1006,X 8A8B F0 0D BEQ &8A9A 8A8D 8A TXA 8A8E 48 PHA 8A8F 20 67 84 JSR &8467 8A92 20 92 92 JSR &9292 8A95 20 16 8D JSR &8D16 8A98 68 PLA 8A99 AA TAX 8A9A 18 CLC 8A9B A5 CF LDA &CF 8A9D 69 10 ADC #&10 8A9F 85 CF STA &CF 8AA1 E8 INX 8AA2 E0 08 CPX #&08 8AA4 D0 E2 BNE &8A88 8AA6 60 RTS ; 8AA7 20 92 92 JSR &9292 8AAA 20 00 8C JSR &8C00 8AAD 4C 16 8D JMP &8D16 ; 8AB0 A2 00 LDX #&00 8AB2 20 E5 A4 JSR &A4E5 8AB5 A5 CF LDA &CF 8AB7 29 0F AND #&0F 8AB9 85 CF STA &CF 8ABB A9 00 LDA #&00 8ABD 8D 00 10 STA &1000 8AC0 20 A4 A5 JSR &A5A4 8AC3 2C E3 10 BIT &10E3 8AC6 70 03 BVS &8ACB 8AC8 4C 63 95 JMP &9563 ; 8ACB 20 00 8C JSR &8C00 8ACE A2 00 LDX #&00 8AD0 BD 06 10 LDA &1006,X 8AD3 F0 10 BEQ &8AE5 8AD5 8A TXA 8AD6 48 PHA 8AD7 20 92 92 JSR &9292 8ADA 20 D6 8B JSR &8BD6 8ADD 20 7F 8C JSR &8C7F 8AE0 20 02 8B JSR &8B02 8AE3 68 PLA 8AE4 AA TAX 8AE5 18 CLC 8AE6 A5 CF LDA &CF 8AE8 69 10 ADC #&10 8AEA 85 CF STA &CF 8AEC E8 INX 8AED E0 08 CPX #&08 8AEF D0 DF BNE &8AD0 8AF1 60 RTS ; 8AF2 20 D2 A3 JSR &A3D2 ; 8AF5 0D 0A 8AF6 No file 8AFE 0D 0A 8B00 FF 8B01 60 RTS ; 8B02 AD 05 0F LDA &0F05 8B05 F0 EB BEQ &8AF2 8B07 A0 FF LDY #&FF 8B09 84 A8 STY &A8 8B0B C8 INY 8B0C 84 AA STY &AA 8B0E CC 05 0F CPY &0F05 8B11 B0 17 BCS &8B2A 8B13 B9 0F 0E LDA &0E0F,Y 8B16 4D CA 10 EOR &10CA 8B19 29 7F AND #&7F 8B1B D0 08 BNE &8B25 8B1D B9 0F 0E LDA &0E0F,Y 8B20 29 80 AND #&80 8B22 99 0F 0E STA &0E0F,Y 8B25 20 72 A4 JSR &A472 8B28 90 E4 BCC &8B0E 8B2A A0 00 LDY #&00 8B2C 20 AA 8B JSR &8BAA 8B2F B0 6E BCS &8B9F 8B31 84 AB STY &AB 8B33 A2 00 LDX #&00 8B35 B9 08 0E LDA &0E08,Y 8B38 29 7F AND #&7F 8B3A 9D 60 10 STA &1060,X 8B3D C8 INY 8B3E E8 INX 8B3F E0 08 CPX #&08 8B41 D0 F2 BNE &8B35 8B43 20 AA 8B JSR &8BAA 8B46 B0 1F BCS &8B67 8B48 38 SEC 8B49 A2 06 LDX #&06 8B4B B9 0E 0E LDA &0E0E,Y 8B4E FD 60 10 SBC &1060,X 8B51 88 DEY 8B52 CA DEX 8B53 10 F6 BPL &8B4B 8B55 20 73 A4 JSR &A473 8B58 B9 0F 0E LDA &0E0F,Y 8B5B 29 7F AND #&7F 8B5D ED 67 10 SBC &1067 8B60 90 CF BCC &8B31 8B62 20 72 A4 JSR &A472 8B65 B0 DC BCS &8B43 8B67 A4 AB LDY &AB 8B69 B9 08 0E LDA &0E08,Y 8B6C 09 80 ORA #&80 8B6E 99 08 0E STA &0E08,Y 8B71 AD 67 10 LDA &1067 8B74 C5 AA CMP &AA 8B76 F0 10 BEQ &8B88 8B78 A6 AA LDX &AA 8B7A 85 AA STA &AA 8B7C D0 0A BNE &8B88 8B7E 20 67 84 JSR &8467 8B81 20 67 84 JSR &8467 8B84 A0 FF LDY #&FF 8B86 D0 09 BNE &8B91 8B88 A4 A8 LDY &A8 8B8A D0 F5 BNE &8B81 8B8C A0 05 LDY #&05 8B8E 20 DA 88 JSR &88DA 8B91 C8 INY 8B92 84 A8 STY &A8 8B94 A4 AB LDY &AB 8B96 20 C9 A2 JSR &A2C9 8B99 20 A6 88 JSR &88A6 8B9C 4C 2A 8B JMP &8B2A ;BRA &8B2A ; 8B9F A9 FF LDA #&FF 8BA1 8D 84 10 STA &1084 8BA4 4C 67 84 JMP &8467 ; 8BA7 20 72 A4 JSR &A472 8BAA CC 05 0F CPY &0F05 8BAD B0 05 BCS &8BB4 8BAF B9 08 0E LDA &0E08,Y 8BB2 30 F3 BMI &8BA7 8BB4 60 RTS ; 8BB5 2C B4 8B BIT &8BB4 8BB8 70 03 BVS &8BBD 8BBA 2C E3 10 BIT &10E3 8BBD 08 PHP 8BBE 48 PHA 8BBF 29 07 AND #&07 8BC1 20 31 A4 JSR &A431 8BC4 68 PLA 8BC5 28 PLP 8BC6 50 06 BVC &8BCE 8BC8 4A LSR A 8BC9 4A LSR A 8BCA 4A LSR A 8BCB 4A LSR A 8BCC D0 01 BNE &8BCF 8BCE 60 RTS ; 8BCF 88 DEY 8BD0 18 CLC 8BD1 69 41 ADC #&41 8BD3 4C 03 A4 JMP &A403 ; 8BD6 A0 0B LDY #&0B 8BD8 20 DA 88 JSR &88DA 8BDB B9 00 0E LDA &0E00,Y 8BDE C0 08 CPY #&08 8BE0 90 03 BCC &8BE5 8BE2 B9 F8 0E LDA &0EF8,Y 8BE5 20 03 A4 JSR &A403 8BE8 C8 INY 8BE9 C0 0C CPY #&0C 8BEB D0 EE BNE &8BDB 8BED 20 94 A3 JSR &A394 8BF0 0D 20 28 ORA &2820 8BF3 AD 04 0F LDA &0F04 8BF6 20 29 A4 JSR &A429 8BF9 20 94 A3 JSR &A394 ; 8BFC ) 8BFD 0D EA 8BFF 60 RTS ; 8C00 A9 83 LDA #&83 8C02 20 03 A4 JSR &A403 8C05 A5 CF LDA &CF 8C07 29 0C AND #&0C 8C09 D0 65 BNE &8C70 8C0B 2C E3 10 BIT &10E3 8C0E 70 09 BVS &8C19 8C10 20 94 A3 JSR &A394 ; 8C13 Sing ; 8C17 90 08 BCC &8C21 8C19 20 94 A3 JSR &A394 ; 8C1C Doub 8C20 EA ; 8C21 20 94 A3 JSR &A394 ; 8C24 le density 8C2E EA ; 8C2F A9 87 LDA #&87 8C31 20 03 A4 JSR &A403 8C34 A0 0E LDY #&0E 8C36 2C E3 10 BIT &10E3 8C39 50 1E BVC &8C59 8C3B A0 05 LDY #&05 8C3D 20 DA 88 JSR &88DA 8C40 A2 00 LDX #&00 8C42 18 CLC 8C43 BD 06 10 LDA &1006,X 8C46 08 PHP 8C47 8A TXA 8C48 28 PLP 8C49 D0 02 BNE &8C4D 8C4B A9 ED LDA #&ED 8C4D 69 41 ADC #&41 8C4F 20 03 A4 JSR &A403 8C52 E8 INX 8C53 E0 08 CPX #&08 8C55 D0 EB BNE &8C42 8C57 A0 01 LDY #&01 8C59 2C E0 10 BIT &10E0 8C5C 10 0F BPL &8C6D 8C5E 50 0D BVC &8C6D 8C60 20 DA 88 JSR &88DA 8C63 20 94 A3 JSR &A394 ; 8C66 40in80 8C6C EA ; 8C6D 4C 67 84 JMP &8467 ; 8C70 20 D2 A3 JSR &A3D2 ; 8C73 RAM Disk 8C7B FF ; 8C7C 4C 67 84 Lg. JMP &8467 ; 8C7F A0 0D . LDY #&0D 8C81 A5 CF %O LDA &CF 8C83 20 08 8D .. JSR &8D08 8C86 20 DA 88 Z. JSR &88DA 8C89 20 94 A3 .# JSR &A394 ; 8C8C Option 8C92 20 ; 8C93 AD 06 0F LDA &0F06 8C96 20 67 A4 JSR &A467 8C99 20 31 A4 JSR &A431 8C9C 20 94 A3 JSR &A394 ; 8C9F 20 8CA0 ( ; 8CA1 A0 03 LDY #&03 8CA3 0A ASL A 8CA4 0A ASL A 8CA5 AA TAX 8CA6 BD F8 8C LDA &8CF8,X 8CA9 20 03 A4 JSR &A403 8CAC E8 INX 8CAD 88 DEY 8CAE 10 F6 BPL &8CA6 8CB0 20 94 A3 JSR &A394 8CB3 29 0D AND #&0D 8CB5 EA NOP 8CB6 60 RTS ; 8CB7 20 94 A3 JSR &A394 ; 8CBA 20 8CBB Diretory : ; 8CC6 A0 06 LDY #&06 8CC8 AD CB 10 LDA &10CB 8CCB 20 B5 8B JSR &8BB5 8CCE 20 01 A4 JSR &A401 8CD1 AD CA 10 LDA &10CA 8CD4 20 03 A4 JSR &A403 8CD7 20 DA 88 JSR &88DA 8CDA 20 94 A3 JSR &A394 ; 8CDD Library : ; 8CE6 AD CD 10 LDA &10CD 8CE9 20 B5 8B JSR &8BB5 8CEC 20 01 A4 JSR &A401 8CEF AD CC 10 LDA &10CC 8CF2 20 03 A4 JSR &A403 8CF5 4C 67 84 JMP &8467 ; 8CF8 off 8CFB 00 ; 8CFC LOADRUN 8D03 00 8D04 EXEC ; 8D08 20 94 A3 JSR &A394 ; 8D0B 20 8D0C Drive 8D11 20 8D12 EA ; 8D13 4C BA 8B JMP &8BBA 8D16 A0 03 LDY #&03 8D18 A5 CF LDA &CF 8D1A 20 08 8D JSR &8D08 8D1D 20 DA 88 JSR &88DA 8D20 20 94 A3 JSR &A394 ; 8D23 Volume size 8D2E 20 20 20 8D2F EA ; 8D32 AD 07 0F LDA &0F07 8D35 85 B0 STA &B0 8D37 AD 06 0F LDA &0F06 8D3A 29 03 AND #&03 8D3C 85 B1 STA &B1 8D3E 20 72 8D JSR &8D72 8D41 20 7B 8D JSR &8D7B 8D44 20 67 84 JSR &8467 8D47 A0 0B LDY #&0B 8D49 20 DA 88 JSR &88DA 8D4C 20 94 A3 JSR &A394 ; 8D4F Volume unused 8D5C 20 8D5D EA ; 8D5E 20 EA A1 JSR &A1EA 8D61 A5 C0 LDA &C0 8D63 85 B0 STA &B0 8D65 A5 C1 LDA &C1 8D67 85 B1 STA &B1 8D69 20 72 8D JSR &8D72 8D6C 20 7B 8D JSR &8D7B 8D6F 4C 67 84 JMP &8467 ; 8D72 20 81 8D JSR &8D81 8D75 20 5D AE JSR &AE5D 8D78 4C 66 B0 JMP &B066 ; 8D7B 20 94 A3 JSR &A394 ; 8D7E K 8D7F EA 8D80 60 RTS ; 8D81 46 B1 LSR &B1 8D83 66 B0 ROR &B0 8D85 46 B1 LSR &B1 8D87 66 B0 ROR &B0 8D89 60 RTS ;*COMMANDS 8D8A 4080 8D8E B4 01 8D90 8D 8D91 ACCESS 8D97 90 A5 8D99 32 8D9A BACKUP 8DA0 85 3B 8DA2 54 8DA3 COMPACT 8DAA A0 F4 8DAC 0A 8DAD COPY 8DB1 86 3E 8DB3 64 8DB4 DELETE 8DBA 8F 7B 8DBC 01 8DBD DENSITY 8DC4 B3 D7 8DC6 8D 8DC7 DESTROY 8DCE 8F 8A 8DD0 02 8DD1 DIR 8DD4 90 37 8DD6 09 8DD7 DRIVE 8DDC 90 2E 8DDE 0A 8DDF ENABLE 8DE5 92 13 8DE7 00 8DE8 INFO 8DEC 89 51 8DEE 02 8DEF LIB 8DF2 90 3A 8DF4 09 8DF5 MCOPY 8DFA 9E 2D 8DFC D4 8DFD RENAME 8E03 92 4C 8E05 78 8E06 SROM 8E0A 90 5D 8E0C 8C 8E0D STAT 8E11 8A 60 8E13 0A 8E14 TAPEDISK 8E1C 93 6C 8E1E 81 8E1F TITLE 8E24 90 76 8E26 0B 8E27 WIPE 8E2B 8F 49 8E2D 02 8E2E XAT 8E32 8A B0 8E34 0A 8E35 COPYRIGHT 8E3E BE 42 8E40 80 8E41 FDCSTAT 8E48 B5 66 8E4A 80 8E4B RAMINIT 8E52 B4 31 8E54 80 8E55 ROMID 8E5A 94 2A 8E5C 80 8E5D 94 D1 8E5F BUILD 8E64 84 17 8E66 01 8E67 DISC 8E6B 82 0F 8E6D 00 8E6E DUMP 8E72 83 9F 8E74 01 8E75 FORMAT 8E7B A8 A1 8E7D 8D 8E7E LIST 8E82 83 5D 8E84 01 8E85 TYPE 8E89 83 56 8E8B 01 8E8C VERIFY 8E92 AA 55 8E94 8A 8E95 VOLGEN 8E9B AB 47 8E9D 8A 8E9E DISK 8EA2 82 0F 8EA4 00 8EA5 8E C6 ;*HELP KEYWORDS 8EA7 DDOS 8EAB 9F E8 8EAD 00 8EAE DFS 8EB1 9F E8 8EB3 00 8EB4 UTILS 8EB9 9F E0 8EBB 00 8EBC DDOSX 8EC1 9F F0 8EC3 00 8EC4 8E C6 8EC6 60 RTS ; 8EC7 20 28 8F JSR &8F28 8ECA 48 PHA 8ECB 68 PLA 8ECC A8 TAY 8ECD 48 PHA 8ECE 20 BB A4 JSR &A4BB 8ED1 A2 00 LDX #&00 8ED3 20 AA 00 JSR &00AA 8ED6 38 SEC 8ED7 30 3B BMI &8F14 8ED9 CA DEX 8EDA 88 DEY 8EDB E8 INX 8EDC C8 INY 8EDD 20 AA 00 JSR &00AA 8EE0 30 22 BMI &8F04 8EE2 51 F2 EOR (&F2),Y 8EE4 29 5F AND #&5F 8EE6 F0 F3 BEQ &8EDB 8EE8 B1 F2 LDA (&F2),Y 8EEA C9 2E CMP #&2E 8EEC 08 PHP 8EED E8 INX 8EEE 20 AA 00 JSR &00AA 8EF1 10 FA BPL &8EED 8EF3 E8 INX 8EF4 E8 INX 8EF5 28 PLP 8EF6 D0 05 BNE &8EFD 8EF8 20 AA 00 JSR &00AA 8EFB 10 13 BPL &8F10 8EFD E8 INX 8EFE 20 37 8F JSR &8F37 8F01 4C CB 8E JMP &8ECB ; 8F04 B1 F2 LDA (&F2),Y 8F06 20 9A A4 JSR &A49A 8F09 B0 08 BCS &8F13 8F0B E8 INX 8F0C E8 INX 8F0D 4C FD 8E JMP &8EFD ; 8F10 CA DEX 8F11 CA DEX 8F12 C8 INY 8F13 18 CLC 8F14 68 PLA 8F15 20 AA 00 JSR &00AA 8F18 85 A9 STA &A9 8F1A E8 INX 8F1B 20 AA 00 JSR &00AA 8F1E 85 A8 STA &A8 8F20 E8 INX 8F21 60 RTS ; 8F22 48 PHA 8F23 A9 9D LDA #&9D 8F25 4C 2B 8F JMP &8F2B ; 8F28 48 PHA 8F29 A9 BD LDA #&BD 8F2B 85 AA STA &AA 8F2D 86 AB STX &AB 8F2F 84 AC STY &AC 8F31 A9 60 LDA #&60 8F33 85 AD STA &AD 8F35 68 PLA 8F36 60 RTS ; 8F37 18 CLC 8F38 8A TXA 8F39 65 AB ADC &AB 8F3B 85 AB STA &AB 8F3D 90 02 BCC &8F41 8F3F E6 AC INC &AC 8F41 60 RTS ; 8F42 86 F2 STX &F2 8F44 84 F3 STY &F3 8F46 A0 00 LDY #&00 8F48 60 RTS ; 8F49 20 E1 8F JSR &8FE1 8F4C 20 A6 88 JSR &88A6 8F4F 20 94 A3 JSR &A394 8F52 20 3A 20 JSR &203A 8F55 EA NOP 8F56 B9 0F 0E LDA &0E0F,Y 8F59 10 06 BPL &8F61 8F5B 20 FD A3 JSR &A3FD 8F5E 4C 72 8F JMP &8F72 ;BRA &8F72 ; 8F61 20 D9 84 JSR &84D9 8F64 D0 0C BNE &8F72 8F66 20 87 88 JSR &8887 8F69 20 9E 89 JSR &899E 8F6C 20 81 92 JSR &9281 8F6F 20 FF 8F JSR &8FFF 8F72 20 67 84 JSR &8467 8F75 20 6A 89 JSR &896A 8F78 B0 D2 BCS &8F4C 8F7A 60 RTS ; 8F7B 20 2F 89 JSR &892F 8F7E 20 E4 8F JSR &8FE4 8F81 20 BB 89 JSR &89BB 8F84 20 9E 89 JSR &899E 8F87 4C 81 92 JMP &9281 ; 8F8A 20 3A A2 JSR &A23A 8F8D 20 E1 8F JSR &8FE1 8F90 20 A6 88 JSR &88A6 8F93 20 67 84 JSR &8467 8F96 20 6A 89 JSR &896A 8F99 B0 F5 BCS &8F90 8F9B 20 94 A3 JSR &A394 ; 8F9E 0D 8F9F Delete (Y/N) ? 8FAD 20 8FAE EA ; 8FAF 20 D9 84 JSR &84D9 8FB2 F0 03 BEQ &8FB7 8FB4 4C 67 84 JMP &8467 ; 8FB7 20 87 88 JSR &8887 8FBA 20 63 89 JSR &8963 8FBD B9 0F 0E LDA &0E0F,Y 8FC0 29 7F AND #&7F 8FC2 99 0F 0E STA &0E0F,Y 8FC5 20 9E 89 JSR &899E 8FC8 20 FF 8F JSR &8FFF 8FCB 20 6A 89 JSR &896A 8FCE B0 ED BCS &8FBD 8FD0 20 81 92 JSR &9281 8FD3 20 94 A3 JSR &A394 ; 8FD6 0D 8FD7 Deleted 8FDE 0D 8FDF EA 8FE0 60 RTS ; 8FE1 20 2B 89 JSR &892B 8FE4 20 0E A0 JSR &A00E 8FE7 4C 35 89 JMP &8935 ; 8FEA 20 0E A0 JSR &A00E 8FED 4C E5 87 JMP &87E5 ; 8FF0 20 6D A4 JSR &A46D 8FF3 5D 0E 0F EOR &0F0E,X 8FF6 29 30 AND #&30 8FF8 5D 0E 0F EOR &0F0E,X 8FFB 9D 0E 0F STA &0F0E,X 8FFE 60 RTS ; 8FFF AC CF 10 LDY &10CF 9002 20 7B A4 JSR &A47B 9005 8C CF 10 STY &10CF 9008 60 RTS ; 9009 20 59 93 JSR &9359 900C 4C 12 90 JMP &9012 ;BRA &9012 ; 900F 20 50 93 JSR &9350 9012 20 EA 88 JSR &88EA 9015 A9 01 LDA #&01 9017 20 02 A7 JSR &A702 901A 4C 38 93 JMP &9338 ; 901D 20 50 93 JSR &9350 9020 4C 26 90 JMP &9026 ; 9023 20 59 93 JSR &9359 9026 20 E1 88 JSR &88E1 9029 A9 01 LDA #&01 902B 4C 02 A7 JMP &A702 ; 902E 20 E5 A4 JSR &A4E5 9031 A5 CF LDA &CF 9033 8D CB 10 STA &10CB 9036 60 RTS ; 9037 A2 00 LDX #&00 9039 AD A2 02 LDA &02A2 903C BD CA 10 LDA &10CA,X 903F 85 CE STA &CE 9041 BD CB 10 LDA &10CB,X 9044 85 CF STA &CF 9046 8A TXA 9047 48 PHA 9048 20 BB A4 JSR &A4BB 904B F0 03 BEQ &9050 904D 20 1B A5 JSR &A51B 9050 68 PLA 9051 AA TAX 9052 A5 CE LDA &CE 9054 9D CA 10 STA &10CA,X 9057 A5 CF LDA &CF 9059 9D CB 10 STA &10CB,X 905C 60 RTS ; 905D 20 0E A0 JSR &A00E 9060 20 C5 FF JSR &FFC5 ;GSREAD 9063 20 A0 A4 JSR &A4A0 9066 B0 0B BCS &9073 9068 48 PHA 9069 20 C5 FF JSR &FFC5 ;GSREAD 906C 90 05 BCC &9073 906E 68 PLA 906F 8D 01 10 STA &1001 9072 60 RTS ; 9073 4C F8 94 JMP &94F8 ; 9076 20 0E A0 JSR &A00E 9079 20 FB A4 JSR &A4FB 907C 20 9E 92 JSR &929E 907F A2 0B LDX #&0B 9081 A9 00 LDA #&00 9083 20 99 90 JSR &9099 9086 CA DEX 9087 10 FA BPL &9083 9089 E8 INX 908A 20 C5 FF JSR &FFC5 ;GSREAD 908D B0 07 BCS &9096 908F 20 99 90 JSR &9099 9092 E0 0B CPX #&0B 9094 90 F3 BCC &9089 9096 4C 81 92 JMP &9281 ; 9099 E0 08 CPX #&08 909B 90 04 BCC &90A1 909D 9D F8 0E STA &0EF8,X 90A0 60 RTS ; 90A1 9D 00 0E STA &0E00,X 90A4 60 RTS ; 90A5 20 2B 89 JSR &892B 90A8 20 EA 8F JSR &8FEA 90AB A2 00 LDX #&00 90AD 20 BB A4 JSR &A4BB 90B0 D0 1E BNE &90D0 90B2 86 AA STX &AA 90B4 20 3E 89 JSR &893E 90B7 20 FB 9B JSR &9BFB 90BA B9 0F 0E LDA &0E0F,Y 90BD 29 7F AND #&7F 90BF 05 AA ORA &AA 90C1 99 0F 0E STA &0E0F,Y 90C4 20 BB 89 JSR &89BB 90C7 20 6A 89 JSR &896A 90CA B0 EB BCS &90B7 90CC 90 C8 BCC &9096 90CE A2 80 LDX #&80 90D0 20 C5 FF JSR &FFC5 ;GSREAD 90D3 B0 DD BCS &90B2 90D5 C9 4C CMP #&4C 90D7 F0 F5 BEQ &90CE 90D9 20 51 A3 JSR &A351 ; 90DC CF 90DD attribute ;ERROR CF = "Bad attribute" 90E6 00 ; 90E7 20 47 A3 G# JSR &A347 ; 90EA C6 90EB full ;ERROR C6 = "Disk full" 90EF 00 ; 90F0 20 EB 87 JSR &87EB 90F3 20 63 89 JSR &8963 90F6 90 03 BCC &90FB 90F8 20 9E 89 JSR &899E 90FB A5 C2 LDA &C2 90FD 48 PHA 90FE A5 C3 LDA &C3 9100 48 PHA 9101 38 SEC 9102 A5 C4 LDA &C4 9104 E5 C2 SBC &C2 9106 85 C2 STA &C2 9108 A5 C5 LDA &C5 910A E5 C3 SBC &C3 910C 85 C3 STA &C3 910E AD 75 10 LDA &1075 9111 ED 73 10 SBC &1073 9114 85 C6 STA &C6 9116 20 2C 91 JSR &912C 9119 AD 74 10 LDA &1074 911C 8D 70 10 STA &1070 911F AD 73 10 LDA &1073 9122 8D 6F 10 STA &106F 9125 68 PLA 9126 85 BF STA &BF 9128 68 PLA 9129 85 BE STA &BE 912B 60 RTS ; 912C A9 00 LDA #&00 912E 85 C4 STA &C4 9130 20 8E 9F JSR &9F8E 9133 85 C5 STA &C5 9135 AC 05 0F LDY &0F05 9138 C0 F8 CPY #&F8 913A B0 4C BCS &9188 913C 20 BA 91 JSR &91BA 913F 4C 4A 91 JMP &914A ;BRA &914A ; 9142 F0 A3 BEQ &90E7 9144 20 7B A4 JSR &A47B 9147 20 9B 91 JSR &919B 914A 98 TYA 914B 90 F5 BCC &9142 914D 84 B0 STY &B0 914F AC 05 0F LDY &0F05 9152 C4 B0 CPY &B0 9154 F0 0F BEQ &9165 9156 B9 07 0E LDA &0E07,Y 9159 99 0F 0E STA &0E0F,Y 915C B9 07 0F LDA &0F07,Y 915F 99 0F 0F STA &0F0F,Y 9162 88 DEY 9163 B0 ED BCS &9152 9165 20 F1 91 JSR &91F1 9168 20 E3 91 JSR &91E3 916B B5 BD LDA &BD,X 916D 88 DEY 916E 99 08 0F STA &0F08,Y 9171 CA DEX 9172 D0 F7 BNE &916B 9174 20 BB 89 JSR &89BB 9177 98 TYA 9178 48 PHA 9179 AC 05 0F LDY &0F05 917C 20 72 A4 JSR &A472 917F 8C 05 0F STY &0F05 9182 20 81 92 JSR &9281 9185 68 PLA 9186 A8 TAY 9187 60 RTS ; 9188 20 62 A3 JSR &A362 ; 918B BE 918C Catalogue full ;ERROR BE = "Catalogue full" 919A 00 ; 919B B9 0E 0F LDA &0F0E,Y 919E 20 5F A4 JSR &A45F 91A1 85 C4 STA &C4 91A3 18 CLC 91A4 A9 FF LDA #&FF 91A6 79 0C 0F ADC &0F0C,Y 91A9 B9 0F 0F LDA &0F0F,Y 91AC 79 0D 0F ADC &0F0D,Y 91AF 85 C5 STA &C5 91B1 B9 0E 0F LDA &0F0E,Y 91B4 29 03 AND #&03 91B6 65 C4 ADC &C4 91B8 85 C4 STA &C4 91BA A5 C5 LDA &C5 91BC 48 PHA 91BD 38 SEC 91BE B9 07 0F LDA &0F07,Y 91C1 E5 C5 SBC &C5 91C3 85 C5 STA &C5 91C5 B9 06 0F LDA &0F06,Y 91C8 29 03 AND #&03 91CA E5 C4 SBC &C4 91CC AA TAX 91CD 05 C5 ORA &C5 91CF D0 03 BNE &91D4 91D1 18 CLC 91D2 90 0B BCC &91DF 91D4 A9 00 LDA #&00 91D6 C5 C2 CMP &C2 91D8 A5 C5 LDA &C5 91DA E5 C3 SBC &C3 91DC 8A TXA 91DD E5 C6 SBC &C6 91DF 68 PLA 91E0 85 C5 STA &C5 91E2 60 RTS ; 91E3 A2 00 LDX #&00 91E5 B5 C7 LDA &C7,X 91E7 99 08 0E STA &0E08,Y 91EA C8 INY 91EB E8 INX 91EC E0 08 CPX #&08 91EE D0 F5 BNE &91E5 91F0 60 RTS ; 91F1 AD 71 10 LDA &1071 91F4 29 03 AND #&03 91F6 0A ASL A 91F7 0A ASL A 91F8 45 C6 EOR &C6 91FA 29 FC AND #&FC 91FC 45 C6 EOR &C6 91FE 0A ASL A 91FF 0A ASL A 9200 4D 6F 10 EOR &106F 9203 29 FC AND #&FC 9205 4D 6F 10 EOR &106F 9208 0A ASL A 9209 0A ASL A 920A 45 C4 EOR &C4 920C 29 FC AND #&FC 920E 45 C4 EOR &C4 9210 85 C4 STA &C4 9212 60 RTS ; 9213 A9 01 LDA #&01 9215 8D D2 10 STA &10D2 9218 60 RTS ; 9219 48 PHA 921A A9 00 LDA #&00 921C 48 PHA 921D A5 C4 LDA &C4 921F 20 61 A4 JSR &A461 9222 C9 03 CMP #&03 9224 D0 06 BNE &922C 9226 68 PLA 9227 68 PLA 9228 48 PHA 9229 A9 FF LDA #&FF 922B 48 PHA 922C 8D 6F 10 STA &106F 922F 68 PLA 9230 8D 70 10 STA &1070 9233 68 PLA 9234 60 RTS ; 9235 A9 00 LDA #&00 9237 8D 72 10 STA &1072 923A A5 C4 LDA &C4 923C 20 5D A4 JSR &A45D 923F C9 03 CMP #&03 9241 D0 05 BNE &9248 9243 A9 FF LDA #&FF 9245 8D 72 10 STA &1072 9248 8D 71 10 STA &1071 924B 60 RTS ; 924C 20 2F 89 JSR &892F 924F 20 EA 8F JSR &8FEA 9252 A5 CF LDA &CF 9254 48 PHA 9255 98 TYA 9256 48 PHA 9257 20 3E 89 JSR &893E 925A 20 F8 9B JSR &9BF8 925D 84 B3 STY &B3 925F 68 PLA 9260 A8 TAY 9261 20 EA 8F JSR &8FEA 9264 68 PLA 9265 C5 CF CMP &CF 9267 F0 03 BEQ &926C 9269 4C F8 94 JMP &94F8 ; 926C 20 63 89 JSR &8963 926F 90 0B BCC &927C 9271 20 5A A3 JSR &A35A ; 9274 C4 9275 exists ;ERROR C4 = "File exists" 927B 00 ; 927C A4 B3 LDY &B3 927E 20 E3 91 JSR &91E3 9281 18 CLC 9282 F8 SED 9283 AD 04 0F LDA &0F04 9286 69 01 ADC #&01 9288 8D 04 0F STA &0F04 928B D8 CLD 928C 20 5E 93 JSR &935E 928F 4C A4 92 JMP &92A4 ;BRA &92A4 ; 9292 AD 84 10 LDA &1084 9295 C5 CF CMP &CF 9297 D0 05 BNE &929E 9299 20 FB B9 JSR &B9FB 929C F0 25 BEQ &92C3 929E 20 00 A3 JSR &A300 92A1 20 55 93 JSR &9355 92A4 A9 00 LDA #&00 92A6 8D D5 10 STA &10D5 92A9 20 D6 A7 JSR &A7D6 92AC 20 A4 A5 JSR &A5A4 92AF A5 CF LDA &CF 92B1 8D 84 10 STA &1084 92B4 20 D3 92 JSR &92D3 92B7 F0 0A BEQ &92C3 92B9 29 40 AND #&40 92BB D0 03 BNE &92C0 92BD 4C B6 B9 JMP &B9B6 ; 92C0 4C 38 A3 JMP &A338 ; 92C3 4C A7 A7 JMP &A7A7 ; 92C6 A9 00 LDA #&00 92C8 8D 00 10 STA &1000 92CB 4C D3 92 JMP &92D3 ;BRA &92D3 ; 92CE A9 01 LDA #&01 92D0 8D 00 10 STA &1000 92D3 20 29 A3 JSR &A329 92D6 20 ED 92 JSR &92ED 92D9 A2 03 LDX #&03 92DB A9 00 LDA #&00 92DD 85 A0 STA &A0 92DF A9 02 LDA #&02 92E1 85 A1 STA &A1 92E3 20 67 B4 JSR &B467 92E6 F0 04 BEQ &92EC 92E8 CA DEX 92E9 D0 F0 BNE &92DB 92EB CA DEX 92EC 60 RTS ; 92ED A9 00 LDA #&00 92EF 85 A6 STA &A6 92F1 A9 0E LDA #&0E 92F3 85 A7 STA &A7 92F5 60 RTS ; 92F6 AD 82 10 LDA &1082 92F9 48 PHA 92FA AD D5 10 LDA &10D5 92FD 4C 1C 93 JMP &931C ;BRA &931C ; 9300 48 PHA 9301 8D 82 10 STA &1082 9304 A5 BE LDA &BE 9306 8D 6D 10 STA &106D 9309 A5 BF LDA &BF 930B 8D 6E 10 STA &106E 930E AD 6F 10 LDA &106F 9311 2D 70 10 AND &1070 9314 0D D6 10 ORA &10D6 9317 49 FF EOR #&FF 9319 8D D5 10 STA &10D5 931C 38 SEC 931D F0 0D BEQ &932C 931F 20 2E 93 JSR &932E 9322 A2 6D LDX #&6D 9324 A0 10 LDY #&10 9326 68 PLA 9327 48 PHA 9328 20 06 04 JSR &0406 932B 18 CLC 932C 68 PLA 932D 60 RTS ; 932E 48 PHA 932F A9 C1 LDA #&C1 9331 20 06 04 JSR &0406 9334 90 F9 BCC &932F 9336 68 PLA 9337 60 RTS ; 9338 48 PHA 9339 AD D5 10 LDA &10D5 933C F0 05 BEQ &9343 933E A9 81 LDA #&81 9340 20 06 04 JSR &0406 9343 68 PLA 9344 60 RTS ; 9345 48 PHA 9346 A9 EA LDA #&EA 9348 20 1E A8 JSR &A81E 934B 8A TXA 934C D0 F0 BNE &933E 934E 68 PLA 934F 60 RTS ; 9350 A9 01 LDA #&01 9352 20 00 93 JSR &9300 9355 A9 00 LDA #&00 9357 F0 07 BEQ &9360 9359 A9 00 LDA #&00 935B 20 00 93 JSR &9300 935E A9 01 LDA #&01 9360 8D 00 10 STA &1000 9363 20 C1 A7 JSR &A7C1 9366 A9 FF LDA #&FF 9368 8D 84 10 STA &1084 936B 60 RTS ; 936C 20 E2 A2 JSR &A2E2 936F 8E EE 02 STX &02EE 9372 8C EF 02 STY &02EF 9375 20 AC 9F JSR &9FAC 9378 AD 89 10 LDA &1089 937B 8D F1 02 STA &02F1 937E A9 00 LDA #&00 9380 8D F0 02 STA &02F0 9383 20 09 94 JSR &9409 9386 A2 0C LDX #&0C 9388 A9 8C LDA #&8C 938A 20 F4 FF JSR &FFF4 ;OSBYTE &8C 938D A9 FF LDA #&FF 938F 20 02 94 JSR &9402 9392 A2 16 LDX #&16 9394 A0 94 LDY #&94 9396 20 F7 FF JSR &FFF7 ;OSNEWL 9399 A9 B2 LDA #&B2 939B 8D EE 02 STA &02EE 939E A9 03 LDA #&03 93A0 8D EF 02 STA &02EF 93A3 A2 00 LDX #&00 93A5 BD B2 03 LDA &03B2,X ;CFS/RFS WORKSPACE 93A8 F0 05 BEQ &93AF 93AA E8 INX 93AB E0 07 CPX #&07 93AD D0 F6 BNE &93A5 93AF A9 0D LDA #&0D 93B1 9D B2 03 STA &03B2,X ;CFS/RFS WORKSPACE 93B4 20 1B 94 JSR &941B 93B7 A5 B0 LDA &B0 93B9 F0 02 BEQ &93BD 93BB E6 B1 INC &B1 93BD AD 8B 10 LDA &108B 93C0 C5 B1 CMP &B1 93C2 B0 13 BCS &93D7 93C4 20 5A A3 JSR &A35A ; 93C7 D4 93C8 size too large ;ERROR D4 = "size too large" 93D6 00 ; 93D7 20 1B 94 JSR &941B 93DA A9 00 LDA #&00 93DC 8D F8 02 STA &02F8 93DF AD 89 10 LDA &1089 93E2 8D F9 02 STA &02F9 93E5 18 CLC 93E6 65 B1 ADC &B1 93E8 8D FD 02 STA &02FD 93EB A5 B0 LDA &B0 93ED 8D FC 02 STA &02FC 93F0 A9 00 LDA #&00 93F2 20 02 94 JSR &9402 93F5 A2 07 LDX #&07 93F7 BD BE 03 LDA &03BE,X 93FA 9D F0 02 STA &02F0,X 93FD CA DEX 93FE 10 F7 BPL &93F7 9400 A9 01 LDA #&01 ;ACTION = WRITE CAT INFO 9402 A2 EE LDX #&EE ;LSB &02EE 9404 A0 02 LDY #&02 ;MSB &02EE 9406 4C DD FF JMP &FFDD ;OSFILE ; 9409 A2 04 LDX #&04 940B A9 00 LDA #&00 940D 9D EE 02 STA &02EE,X ;OSFILE CONTROL BLOCKS FOR LOAD/SAVE 9410 E8 INX 9411 E0 11 CPX #&11 9413 90 F8 BCC &940D 9415 60 RTS ; 9416 DISC 941A 0D ; 941B AD C8 03 LDA &03C8 941E 85 B0 STA &B0 9420 18 CLC 9421 AD C6 03 LDA &03C6 9424 6D C9 03 ADC &03C9 9427 85 B1 STA &B1 9429 60 RTS ; 942A 20 F3 A2 JSR &A2F3 942D AD 99 A8 LDA &A899 9430 18 CLC 9431 20 B4 A2 JSR &A2B4 9434 20 01 A4 JSR &A401 9437 AD 9A A8 LDA &A89A 943A 20 29 A4 JSR &A429 943D 20 C9 A2 JSR &A2C9 9440 A0 02 LDY #&02 9442 B9 99 A8 LDA &A899,Y 9445 20 29 A4 JSR &A429 9448 C8 INY 9449 C0 05 CPY #&05 944B F0 08 BEQ &9455 944D A9 2D LDA #&2D 944F 20 03 A4 JSR &A403 9452 4C 42 94 JMP &9442 ;BRA &9442 ; 9455 20 CC A2 JSR &A2CC 9458 18 CLC 9459 A2 03 LDX #&03 945B B9 99 A8 LDA &A899,Y 945E 20 B4 A2 JSR &A2B4 9461 C8 INY 9462 CA DEX 9463 D0 F6 BNE &945B 9465 4C 67 84 JMP &8467 ; 9468 C9 09 CMP #&09 946A B0 0E BCS &947A 946C 86 B5 STX &B5 946E AA TAX 946F BD 4A A8 LDA &A84A,X 9472 48 PHA 9473 BD 41 A8 LDA &A841,X 9476 48 PHA 9477 8A TXA 9478 A6 B5 LDX &B5 947A 60 RTS ; 947B 20 00 A3 JSR &A300 947E 8A TXA 947F C9 04 CMP #&04 9481 F0 19 BEQ &949C 9483 C9 02 CMP #&02 9485 90 0B BCC &9492 9487 20 51 A3 JSR &A351 ; 948A CB 948B option ;ERROR CB = "Bad option" 9491 00 ; 9492 A2 FF LDX #&FF 9494 98 TYA 9495 F0 01 BEQ &9498 9497 E8 INX 9498 8E D1 10 STX &10D1 949B 60 RTS ; 949C 98 TYA 949D 48 PHA 949E 20 FB A4 JSR &A4FB 94A1 20 A1 92 JSR &92A1 94A4 68 PLA 94A5 20 6D A4 JSR &A46D 94A8 4D 06 0F EOR &0F06 94AB 29 30 AND #&30 94AD 4D 06 0F EOR &0F06 94B0 8D 06 0F STA &0F06 94B3 4C 81 92 JMP &9281 ; 94B6 48 PHA 94B7 98 TYA 94B8 48 PHA 94B9 8A TXA 94BA A8 TAY 94BB 20 A7 98 JSR &98A7 94BE 98 TYA 94BF 20 B4 9A JSR &9AB4 94C2 D0 04 BNE &94C8 94C4 A2 FF LDX #&FF 94C6 D0 02 BNE &94CA 94C8 A2 00 LDX #&00 94CA 68 PLA 94CB A8 TAY 94CC 68 PLA 94CD 60 RTS ; 94CE 20 42 8F JSR &8F42 94D1 20 3E 95 JSR &953E 94D4 8C DA 10 STY &10DA 94D7 20 EB 87 JSR &87EB 94DA 8C D9 10 STY &10D9 94DD 20 63 89 JSR &8963 94E0 B0 22 BCS &9504 94E2 AC DA 10 LDY &10DA 94E5 AD CC 10 LDA &10CC 94E8 85 CE STA &CE 94EA AD CD 10 LDA &10CD 94ED 20 03 A5 JSR &A503 94F0 20 EE 87 JSR &87EE 94F3 20 63 89 JSR &8963 94F6 B0 0C BCS &9504 94F8 20 51 A3 JSR &A351 ; 94FB FE 94FC command ;ERROR FE = "Bad command" ; 9504 20 5F 9B JSR &9B5F 9507 18 CLC 9508 AD D9 10 LDA &10D9 950B A8 TAY 950C 65 F2 ADC &F2 950E 8D D9 10 STA &10D9 9511 A5 F3 LDA &F3 9513 69 00 ADC #&00 9515 8D DA 10 STA &10DA 9518 AD 71 10 LDA &1071 951B 2D 72 10 AND &1072 951E 0D D6 10 ORA &10D6 9521 C9 FF CMP #&FF 9523 F0 16 BEQ &953B 9525 A5 C0 LDA &C0 9527 8D 6F 10 STA &106F 952A A5 C1 LDA &C1 952C 8D 70 10 STA &1070 952F 20 2E 93 JSR &932E 9532 A2 6F LDX #&6F ;LSB &106F 9534 A0 10 LDY #&10 ;MSB &106F 9536 A9 04 LDA #&04 ; 9538 4C 06 04 JMP &0406 ;TUBE CODE ENTRY ; 953B 6C C0 00 JMP (&00C0) ; 953E A9 FF LDA #&FF 9540 85 C0 STA &C0 9542 A5 F2 LDA &F2 9544 85 BC STA &BC 9546 A5 F3 LDA &F3 9548 85 BD STA &BD 954A 60 RTS ; 954B 20 42 8F JSR &8F42 954E A2 8A LDX #&8A 9550 A0 8D LDY #&8D 9552 A9 00 LDA #&00 9554 20 C7 8E JSR &8EC7 9557 BA TSX 9558 86 B8 STX &B8 955A 4C CC 80 JMP &80CC ;SEE &8100, &B40E ; 955D 20 42 8F JSR &8F42 9560 20 E5 A4 JSR &A4E5 9563 20 92 92 JSR &9292 9566 20 D6 8B JSR &8BD6 9569 20 00 8C JSR &8C00 956C 20 7F 8C JSR &8C7F 956F 20 B7 8C JSR &8CB7 9572 4C 02 8B JMP &8B02 ; 9575 20 00 A3 JSR &A300 9578 A9 77 LDA #&77 957A 4C F4 FF JMP &FFF4 ;OSBYTE &77 - CLOSE ALL *SPOOL ECT FILES ; 957D A2 11 LDX #&11 ;LSB &1511 957F A0 15 LDY #&15 ;MSB &1511 9581 60 RTS ; 9582 2C D2 10 BIT &10D2 9585 30 03 BMI &958A 9587 CE D2 10 DEC &10D2 958A A9 FF LDA #&FF 958C 8D 84 10 STA &1084 958F 60 RTS ; 9590 20 97 A5 JSR &A597 9593 A2 07 LDX #&07 9595 B9 0C 11 LDA &110C,Y 9598 95 C6 STA &C6,X 959A 88 DEY 959B 88 DEY 959C CA DEX 959D D0 F6 BNE &9595 959F 20 63 89 JSR &8963 95A2 90 1A BCC &95BE 95A4 8C C7 10 STY &10C7 95A7 B9 0E 0F LDA &0F0E,Y 95AA BE 0F 0F LDX &0F0F,Y 95AD AC C5 10 LDY &10C5 95B0 59 0D 11 EOR &110D,Y 95B3 29 03 AND #&03 95B5 D0 07 BNE &95BE 95B7 8A TXA 95B8 D9 0F 11 CMP &110F,Y 95BB D0 01 BNE &95BE 95BD 60 RTS ; 95BE 4C 95 88 JMP &8895 ; 95C1 C9 00 CMP #&00 95C3 D0 62 BNE &9627 95C5 20 00 A3 JSR &A300 95C8 98 TYA 95C9 F0 08 BEQ &95D3 95CB 20 93 98 JSR &9893 95CE 90 12 BCC &95E2 95D0 4C C6 98 JMP &98C6 ; 95D3 20 75 95 JSR &9575 95D6 A9 A0 LDA #&A0 95D8 A8 TAY 95D9 20 E2 95 JSR &95E2 95DC 38 SEC 95DD E9 20 SBC #&20 95DF D0 F7 BNE &95D8 95E1 60 RTS ; 95E2 48 PHA 95E3 20 63 98 JSR &9863 95E6 B0 3A BCS &9622 95E8 B9 1B 11 LDA &111B,Y 95EB 49 FF EOR #&FF 95ED 2D C3 10 AND &10C3 95F0 8D C3 10 STA &10C3 95F3 B9 17 11 LDA &1117,Y 95F6 29 60 AND #&60 95F8 F0 28 BEQ &9622 95FA 20 90 95 JSR &9590 95FD B9 17 11 LDA &1117,Y 9600 29 20 AND #&20 9602 F0 1B BEQ &961F 9604 AE C7 10 LDX &10C7 9607 B9 14 11 LDA &1114,Y 960A 9D 0C 0F STA &0F0C,X 960D B9 15 11 LDA &1115,Y 9610 9D 0D 0F STA &0F0D,X 9613 B9 16 11 LDA &1116,Y 9616 20 F0 8F JSR &8FF0 9619 20 81 92 JSR &9281 961C AC C5 10 LDY &10C5 961F 20 51 99 JSR &9951 9622 AE C9 10 LDX &10C9 9625 68 PLA 9626 60 RTS ; 9627 20 29 A3 JSR &A329 962A 86 BC STX &BC 962C 84 BD STY &BD 962E 85 B4 STA &B4 9630 24 B4 BIT &B4 9632 08 PHP 9633 20 EB 87 JSR &87EB 9636 20 32 97 JSR &9732 9639 90 18 BCC &9653 963B 20 62 A3 JSR &A362 ; 963E C0 963F Too many files open ;ERROR C0 = "Too many files open" 9652 00 ; 9653 A2 C7 LDX #&C7 9655 A9 00 LDA #&00 9657 A8 TAY 9658 20 53 97 JSR &9753 965B 90 17 BCC &9674 965D B9 0C 11 LDA &110C,Y 9660 10 04 BPL &9666 9662 28 PLP 9663 08 PHP 9664 10 09 BPL &966F 9666 20 5A A3 JSR &A35A ; 9669 C2 966A open ;ERROR C2 = "File open" 966C 00 ; 966F 20 6A 97 JSR &976A 9672 B0 E9 BCS &965D 9674 20 2F 89 JSR &892F 9677 20 63 89 JSR &8963 967A B0 18 BCS &9694 967C A9 00 LDA #&00 967E 28 PLP 967F 50 01 BVC &9682 9681 60 RTS ; 9682 08 PHP 9683 A2 07 LDX #&07 9685 95 BE STA &BE,X 9687 9D 6F 10 STA &106F,X 968A CA DEX 968B 10 F8 BPL &9685 968D A9 40 LDA #&40 968F 85 C5 STA &C5 9691 20 F0 90 JSR &90F0 9694 98 TYA 9695 AA TAX 9696 28 PLP 9697 08 PHP 9698 70 03 BVS &969D 969A 20 E8 9B JSR &9BE8 969D A9 08 LDA #&08 969F 8D C8 10 STA &10C8 96A2 AC C5 10 LDY &10C5 96A5 BD 08 0E LDA &0E08,X 96A8 99 00 11 STA &1100,Y 96AB C8 INY 96AC BD 08 0F LDA &0F08,X 96AF 99 00 11 STA &1100,Y 96B2 C8 INY 96B3 E8 INX 96B4 CE C8 10 DEC &10C8 96B7 D0 EC BNE &96A5 96B9 A2 10 LDX #&10 96BB A9 00 LDA #&00 96BD 99 00 11 STA &1100,Y 96C0 C8 INY 96C1 CA DEX 96C2 D0 F9 BNE &96BD 96C4 AC C5 10 LDY &10C5 96C7 98 TYA 96C8 20 66 A4 JSR &A466 96CB 69 11 ADC #&11 96CD 99 13 11 STA &1113,Y 96D0 AD C4 10 LDA &10C4 96D3 99 1B 11 STA &111B,Y 96D6 0D C3 10 ORA &10C3 96D9 8D C3 10 STA &10C3 96DC B9 09 11 LDA &1109,Y 96DF 69 FF ADC #&FF 96E1 B9 0B 11 LDA &110B,Y 96E4 69 00 ADC #&00 96E6 99 19 11 STA &1119,Y 96E9 B9 0D 11 LDA &110D,Y 96EC 09 0F ORA #&0F 96EE 69 00 ADC #&00 96F0 20 5F A4 JSR &A45F 96F3 99 1A 11 STA &111A,Y 96F6 28 PLP 96F7 50 32 BVC &972B 96F9 30 08 BMI &9703 96FB A9 80 LDA #&80 96FD 19 0C 11 ORA &110C,Y 9700 99 0C 11 STA &110C,Y 9703 B9 09 11 LDA &1109,Y 9706 99 14 11 STA &1114,Y 9709 B9 0B 11 LDA &110B,Y 970C 99 15 11 STA &1115,Y 970F B9 0D 11 LDA &110D,Y 9712 20 5F A4 JSR &A45F 9715 99 16 11 STA &1116,Y 9718 A5 CF LDA &CF 971A 99 1F 11 STA &111F,Y 971D 98 TYA 971E 20 66 A4 JSR &A466 9721 48 PHA 9722 A8 TAY 9723 88 DEY 9724 20 1A 85 JSR &851A 9727 68 PLA 9728 09 10 ORA #&10 972A 60 RTS ; 972B A9 20 LDA #&20 972D 99 17 11 STA &1117,Y 9730 D0 E6 BNE &9718 9732 AD C3 10 LDA &10C3 9735 A2 04 LDX #&04 9737 0A ASL A 9738 90 04 BCC &973E 973A CA DEX 973B 10 FA BPL &9737 973D 60 RTS ; 973E BD 4E 97 LDA &974E,X 9741 8D C5 10 STA &10C5 9744 A9 04 LDA #&04 9746 0A ASL A 9747 CA DEX 9748 10 FC BPL &9746 974A 8D C4 10 STA &10C4 974D 60 RTS ; 974E A0 80 LDY #&80 9750 60 RTS ; 9751 40 RTI 9752 20 86 B0 JSR &B086 9755 84 B1 STY &B1 9757 85 B2 STA &B2 9759 AD C3 10 LDA &10C3 975C 29 F8 AND #&F8 975E 85 B5 STA &B5 9760 A2 20 LDX #&20 9762 86 B4 STX &B4 9764 06 B5 ASL &B5 9766 B0 0C BCS &9774 9768 F0 08 BEQ &9772 976A A5 B4 LDA &B4 976C 18 CLC 976D 69 20 ADC #&20 976F AA TAX 9770 90 F0 BCC &9762 9772 18 CLC 9773 60 RTS ; 9774 BD 1F 11 LDA &111F,X 9777 45 CF EOR &CF 9779 D0 EF BNE &976A 977B A9 08 LDA #&08 977D 85 B3 STA &B3 977F A4 B2 LDY &B2 9781 B1 B0 LDA (&B0),Y 9783 5D 00 11 EOR &1100,X 9786 29 7F AND #&7F 9788 D0 E0 BNE &976A 978A C8 INY 978B E8 INX 978C E8 INX 978D C6 B3 DEC &B3 978F D0 F0 BNE &9781 9791 A4 B4 LDY &B4 9793 60 RTS ; 9794 C0 00 CPY #&00 9796 F0 11 BEQ &97A9 9798 20 00 A3 JSR &A300 979B C9 FF CMP #&FF 979D F0 3B BEQ &97DA 979F C9 03 CMP #&03 97A1 B0 17 BCS &97BA 97A3 4A LSR A 97A4 90 40 BCC &97E6 97A6 4C 06 98 JMP &9806 ;BRA &9806 ; 97A9 20 29 A3 JSR &A329 97AC A8 TAY 97AD C8 INY 97AE C0 03 CPY #&03 97B0 B0 08 BCS &97BA 97B2 B9 56 A8 LDA &A856,Y 97B5 48 PHA 97B6 B9 53 A8 LDA &A853,Y 97B9 48 PHA 97BA 60 RTS ; 97BB A9 04 LDA #&04 97BD 60 RTS ; 97BE A9 FF LDA #&FF 97C0 95 02 STA &02,X 97C2 95 03 STA &03,X 97C4 AD D9 10 LDA &10D9 97C7 95 00 STA &00,X 97C9 AD DA 10 LDA &10DA 97CC 95 01 STA &01,X 97CE A9 00 LDA #&00 97D0 60 RTS ; 97D1 AD C3 10 LDA &10C3 97D4 48 PHA 97D5 20 D6 95 JSR &95D6 97D8 F0 07 BEQ &97E1 97DA AD C3 10 LDA &10C3 97DD 48 PHA 97DE 20 C8 95 JSR &95C8 97E1 68 PLA 97E2 8D C3 10 STA &10C3 97E5 60 RTS ; 97E6 20 00 A3 JSR &A300 97E9 20 A7 98 JSR &98A7 97EC 0A ASL A 97ED 0A ASL A 97EE 6D C5 10 ADC &10C5 97F1 A8 TAY 97F2 B9 10 11 LDA &1110,Y 97F5 95 00 STA &00,X 97F7 B9 11 11 LDA &1111,Y 97FA 95 01 STA &01,X 97FC B9 12 11 LDA &1112,Y 97FF 95 02 STA &02,X 9801 A9 00 LDA #&00 9803 95 03 STA &03,X 9805 60 RTS ; 9806 20 00 A3 JSR &A300 9809 20 A7 98 JSR &98A7 980C 38 SEC 980D B9 1C 11 LDA &111C,Y 9810 F9 0F 11 SBC &110F,Y 9813 85 B0 STA &B0 9815 B9 1D 11 LDA &111D,Y 9818 F9 0D 11 SBC &110D,Y 981B 29 03 AND #&03 981D D5 02 CMP &02,X 981F D0 06 BNE &9827 9821 A5 B0 LDA &B0 9823 D5 01 CMP &01,X 9825 F0 0B BEQ &9832 9827 20 97 A5 JSR &A597 982A 20 4E 99 JSR &994E 982D A9 6F LDA #&6F 982F 20 46 99 JSR &9946 9832 20 CC 9A JSR &9ACC 9835 B0 1C BCS &9853 9837 B9 14 11 LDA &1114,Y 983A 99 10 11 STA &1110,Y 983D B9 15 11 LDA &1115,Y 9840 99 11 11 STA &1111,Y 9843 B9 16 11 LDA &1116,Y 9846 99 12 11 STA &1112,Y 9849 A9 00 LDA #&00 984B 20 B0 99 JSR &99B0 984E 20 CC 9A JSR &9ACC 9851 90 F6 BCC &9849 9853 B5 00 LDA &00,X 9855 99 10 11 STA &1110,Y 9858 B5 01 LDA &01,X 985A 99 11 11 STA &1111,Y 985D B5 02 LDA &02,X 985F 99 12 11 STA &1112,Y 9862 60 RTS ; 9863 48 PHA 9864 8E C9 10 STX &10C9 9867 98 TYA 9868 29 E0 AND #&E0 986A 8D C5 10 STA &10C5 986D F0 11 BEQ &9880 986F 4A LSR A 9870 4A LSR A 9871 4A LSR A 9872 4A LSR A 9873 4A LSR A 9874 A8 TAY 9875 B9 8A 98 LDA &988A,Y 9878 AC C5 10 LDY &10C5 987B 2C C3 10 BIT &10C3 987E D0 03 BNE &9883 9880 68 PLA 9881 38 SEC 9882 60 RTS ; 9883 68 PLA 9884 18 CLC 9885 60 RTS ; 9886 20 40 60 80 988A A0 80 40 988D 20 10 08 9890 04 02 9892 01 48 ; 9894 98 TYA 9895 C9 10 CMP #&10 9897 90 04 BCC &989D 9899 C9 18 CMP #&18 989B 90 02 BCC &989F 989D A9 08 LDA #&08 989F 0A ASL A 98A0 0A ASL A 98A1 0A ASL A 98A2 0A ASL A 98A3 0A ASL A 98A4 A8 TAY 98A5 68 PLA 98A6 60 RTS ; 98A7 48 PHA 98A8 98 TYA 98A9 38 SEC 98AA E9 11 SBC #&11 98AC 90 18 BCC &98C6 98AE C9 05 CMP #&05 98B0 B0 14 BCS &98C6 98B2 A8 TAY 98B3 B9 86 98 LDA &9886,Y 98B6 8D C5 10 STA &10C5 98B9 B9 8B 98 LDA &988B,Y 98BC AC C5 10 LDY &10C5 98BF 2C C3 10 BIT &10C3 98C2 F0 02 BEQ &98C6 98C4 68 PLA 98C5 60 RTS ; 98C6 20 62 A3 JSR &A362 ; 98C9 DE 98CA Channel ;ERROR DE = "Channel" 98D1 00 ; 98D2 20 62 A3 JSR &A362 ; 98D5 DF 98D6 EOF ;ERROR DF = "EOF" 98D9 00 ; 98DA 8E 28 10 STX &1028 98DD 8C 29 10 STY &1029 98E0 20 A7 98 JSR &98A7 98E3 98 TYA 98E4 20 B4 9A JSR &9AB4 98E7 D0 11 BNE &98FA 98E9 B9 17 11 LDA &1117,Y 98EC 29 10 AND #&10 98EE D0 E2 BNE &98D2 98F0 A9 10 LDA #&10 98F2 20 3F 99 JSR &993F 98F5 A9 FE LDA #&FE 98F7 38 SEC 98F8 B0 21 BCS &991B 98FA B9 17 11 LDA &1117,Y 98FD 30 0A BMI &9909 98FF 20 97 A5 JSR &A597 9902 20 51 99 JSR &9951 9905 38 SEC 9906 20 59 99 JSR &9959 9909 B9 10 11 LDA &1110,Y 990C 85 BC STA &BC 990E B9 13 11 LDA &1113,Y 9911 85 BD STA &BD 9913 20 9D 9A JSR &9A9D 9916 A0 00 LDY #&00 9918 B1 BC LDA (&BC),Y 991A 18 CLC 991B AE 28 10 LDX &1028 991E AC 29 10 LDY &1029 9921 48 PHA 9922 68 PLA 9923 60 RTS ; 9924 18 CLC 9925 B9 0F 11 LDA &110F,Y 9928 79 11 11 ADC &1111,Y 992B 85 C5 STA &C5 992D 99 1C 11 STA &111C,Y 9930 B9 0D 11 LDA &110D,Y 9933 29 03 AND #&03 9935 79 12 11 ADC &1112,Y 9938 85 C4 STA &C4 993A 99 1D 11 STA &111D,Y 993D A9 80 LDA #&80 993F 19 17 11 ORA &1117,Y 9942 D0 05 BNE &9949 9944 A9 7F LDA #&7F 9946 39 17 11 AND &1117,Y 9949 99 17 11 STA &1117,Y 994C 18 CLC 994D 60 RTS ; 994E 20 00 A3 JSR &A300 9951 B9 17 11 LDA &1117,Y 9954 29 40 AND #&40 9956 F0 46 BEQ &999E 9958 18 CLC 9959 08 PHP 995A AD C5 10 LDA &10C5 995D 20 66 A4 JSR &A466 9960 A8 TAY 9961 88 DEY 9962 20 FC 84 JSR &84FC 9965 20 D6 A7 JSR &A7D6 9968 AC C5 10 LDY &10C5 996B B9 13 11 LDA &1113,Y 996E 85 BF STA &BF 9970 20 28 92 JSR &9228 9973 A9 00 LDA #&00 9975 85 BE STA &BE 9977 85 C2 STA &C2 9979 A9 01 LDA #&01 997B 85 C3 STA &C3 997D 28 PLP 997E B0 15 BCS &9995 9980 B9 1C 11 LDA &111C,Y 9983 85 C5 STA &C5 9985 B9 1D 11 LDA &111D,Y 9988 85 C4 STA &C4 998A 20 09 90 JSR &9009 998D AC C5 10 LDY &10C5 9990 A9 BF LDA #&BF 9992 4C 46 99 JMP &9946 ; 9995 20 24 99 JSR &9924 9998 20 0F 90 JSR &900F 999B AC C5 10 LDY &10C5 999E 60 RTS ; 999F 4C ED 9B JMP &9BED ; 99A2 20 5A A3 JSR &A35A ; 99A5 C1 99A6 read only ;ERROR C1 = "File read only" 99AF 00 ; 99B0 20 00 A3 JSR &A300 99B3 4C C2 99 JMP &99C2 99B6 8D 27 10 STA &1027 99B9 8E 28 10 STX &1028 99BC 8C 29 10 STY &1029 99BF 20 A7 98 JSR &98A7 99C2 48 PHA 99C3 B9 0C 11 LDA &110C,Y 99C6 30 DA BMI &99A2 99C8 B9 0E 11 LDA &110E,Y 99CB 30 D2 BMI &999F 99CD 20 97 A5 JSR &A597 99D0 98 TYA 99D1 18 CLC 99D2 69 04 ADC #&04 99D4 20 B4 9A JSR &9AB4 99D7 D0 6A BNE &9A43 99D9 20 93 95 JSR &9593 99DC AE C7 10 LDX &10C7 99DF 38 SEC 99E0 BD 07 0F LDA &0F07,X 99E3 FD 0F 0F SBC &0F0F,X 99E6 48 PHA 99E7 BD 06 0F LDA &0F06,X 99EA FD 0E 0F SBC &0F0E,X 99ED 29 03 AND #&03 99EF 8D C6 10 STA &10C6 99F2 20 F0 8F JSR &8FF0 99F5 AD C6 10 LDA &10C6 99F8 D9 1A 11 CMP &111A,Y 99FB D0 2E BNE &9A2B 99FD 68 PLA 99FE D9 19 11 CMP &1119,Y 9A01 D0 29 BNE &9A2C 9A03 84 B4 STY &B4 9A05 20 0C A8 JSR &A80C 9A08 8A TXA 9A09 F0 0A BEQ &9A15 9A0B BD 75 98 LDA &9875,X 9A0E C5 B4 CMP &B4 9A10 D0 03 BNE &9A15 9A12 20 FB A7 JSR &A7FB 9A15 A4 B4 LDY &B4 9A17 20 E2 95 JSR &95E2 9A1A 20 62 A3 JSR &A362 ; 9A1D BF 9A1E Can't extend ;ERROR BF = "Can't extend" 9A2A 00 ; 9A2B 68 PLA 9A2C 9D 0D 0F STA &0F0D,X 9A2F 99 19 11 STA &1119,Y 9A32 AD C6 10 LDA &10C6 9A35 99 1A 11 STA &111A,Y 9A38 A9 00 LDA #&00 9A3A 9D 0C 0F STA &0F0C,X 9A3D 20 81 92 JSR &9281 9A40 AC C5 10 LDY &10C5 9A43 B9 17 11 LDA &1117,Y 9A46 30 17 BMI &9A5F 9A48 20 51 99 JSR &9951 9A4B B9 14 11 LDA &1114,Y 9A4E D0 0B BNE &9A5B 9A50 98 TYA 9A51 20 B4 9A JSR &9AB4 9A54 D0 05 BNE &9A5B 9A56 20 24 99 JSR &9924 9A59 D0 04 BNE &9A5F 9A5B 38 SEC 9A5C 20 59 99 JSR &9959 9A5F B9 10 11 LDA &1110,Y 9A62 85 BC STA &BC 9A64 B9 13 11 LDA &1113,Y 9A67 85 BD STA &BD 9A69 20 9D 9A JSR &9A9D 9A6C 68 PLA 9A6D A2 00 LDX #&00 9A6F 81 BC STA (&BC,X) 9A71 A9 40 LDA #&40 9A73 20 3F 99 JSR &993F 9A76 98 TYA 9A77 20 B4 9A JSR &9AB4 9A7A 90 17 BCC &9A93 9A7C A9 20 LDA #&20 9A7E 20 3F 99 JSR &993F 9A81 B9 10 11 LDA &1110,Y 9A84 99 14 11 STA &1114,Y 9A87 B9 11 11 LDA &1111,Y 9A8A 99 15 11 STA &1115,Y 9A8D B9 12 11 LDA &1112,Y 9A90 99 16 11 STA &1116,Y 9A93 AD 27 10 LDA &1027 9A96 AE 28 10 LDX &1028 9A99 AC 29 10 LDY &1029 9A9C 60 RTS ; 9A9D 98 TYA 9A9E AA TAX 9A9F A5 BC LDA &BC 9AA1 9D 10 11 STA &1110,X 9AA4 FE 10 11 INC &1110,X 9AA7 D0 22 BNE &9ACB 9AA9 FE 11 11 INC &1111,X 9AAC D0 03 BNE &9AB1 9AAE FE 12 11 INC &1112,X 9AB1 4C 44 99 JMP &9944 ; 9AB4 AA TAX 9AB5 B9 12 11 LDA &1112,Y 9AB8 DD 16 11 CMP &1116,X 9ABB D0 0E BNE &9ACB 9ABD B9 11 11 LDA &1111,Y 9AC0 DD 15 11 CMP &1115,X 9AC3 D0 06 BNE &9ACB 9AC5 B9 10 11 LDA &1110,Y 9AC8 DD 14 11 CMP &1114,X 9ACB 60 RTS ; 9ACC B9 14 11 LDA &1114,Y 9ACF D5 00 CMP &00,X 9AD1 B9 15 11 LDA &1115,Y 9AD4 F5 01 SBC &01,X 9AD6 B9 16 11 LDA &1116,Y 9AD9 F5 02 SBC &02,X 9ADB 60 RTS ; 9ADC 20 29 A3 JSR &A329 9ADF 48 PHA 9AE0 20 2F 89 JSR &892F 9AE3 86 B0 STX &B0 9AE5 8E DB 10 STX &10DB 9AE8 84 B1 STY &B1 9AEA 8C DC 10 STY &10DC 9AED A2 00 LDX #&00 9AEF A0 00 LDY #&00 9AF1 20 DB 87 JSR &87DB 9AF4 20 CB 87 JSR &87CB 9AF7 C0 12 CPY #&12 9AF9 D0 F9 BNE &9AF4 9AFB 68 PLA 9AFC AA TAX 9AFD E8 INX 9AFE E0 08 CPX #&08 9B00 B0 08 BCS &9B0A 9B02 BD 61 A8 LDA &A861,X 9B05 48 PHA 9B06 BD 59 A8 LDA &A859,X 9B09 48 PHA 9B0A 60 RTS ; 9B0B 20 F0 90 JSR &90F0 9B0E 20 22 9C JSR &9C22 9B11 20 06 8A JSR &8A06 9B14 4C 09 90 JMP &9009 ; 9B17 20 E3 9B JSR &9BE3 9B1A 20 8B 9B JSR &9B8B 9B1D 20 A7 9B JSR &9BA7 9B20 50 16 BVC &9B38 9B22 20 E3 9B JSR &9BE3 9B25 20 8B 9B JSR &9B8B 9B28 50 11 BVC &9B3B 9B2A 20 E3 9B JSR &9BE3 9B2D 20 A7 9B JSR &9BA7 9B30 50 09 BVC &9B3B 9B32 20 0E 9C JSR &9C0E 9B35 20 FB 9B JSR &9BFB 9B38 20 CA 9B JSR &9BCA 9B3B 20 96 90 JSR &9096 9B3E A9 01 LDA #&01 9B40 60 RTS ; 9B41 20 0E 9C JSR &9C0E 9B44 20 06 8A JSR &8A06 9B47 A9 01 LDA #&01 9B49 60 RTS ; 9B4A 20 E3 9B JSR &9BE3 9B4D 20 06 8A JSR &8A06 9B50 20 9E 89 JSR &899E 9B53 4C 3B 9B JMP &9B3B ;BRA &9B3B ; 9B56 20 3B 89 JSR &893B 9B59 20 22 9C JSR &9C22 9B5C 20 06 8A JSR &8A06 9B5F 84 BC STY &BC 9B61 A2 00 LDX #&00 9B63 A5 C0 LDA &C0 9B65 D0 06 BNE &9B6D 9B67 C8 INY 9B68 C8 INY 9B69 A2 02 LDX #&02 9B6B D0 08 BNE &9B75 9B6D B9 0E 0F LDA &0F0E,Y 9B70 85 C4 STA &C4 9B72 20 19 92 JSR &9219 9B75 B9 08 0F LDA &0F08,Y 9B78 95 BE STA &BE,X 9B7A C8 INY 9B7B E8 INX 9B7C E0 08 CPX #&08 9B7E D0 F5 BNE &9B75 9B80 20 35 92 JSR &9235 9B83 A4 BC LDY &BC 9B85 20 BB 89 JSR &89BB 9B88 4C 0F 90 JMP &900F ; 9B8B 20 00 A3 JSR &A300 9B8E A0 02 LDY #&02 9B90 B1 B0 LDA (&B0),Y 9B92 9D 08 0F STA &0F08,X 9B95 C8 INY 9B96 B1 B0 LDA (&B0),Y 9B98 9D 09 0F STA &0F09,X 9B9B C8 INY 9B9C B1 B0 LDA (&B0),Y 9B9E 0A ASL A 9B9F 0A ASL A 9BA0 5D 0E 0F EOR &0F0E,X 9BA3 29 0C AND #&0C 9BA5 10 1B BPL &9BC2 9BA7 20 00 A3 JSR &A300 9BAA A0 06 LDY #&06 9BAC B1 B0 LDA (&B0),Y 9BAE 9D 0A 0F STA &0F0A,X 9BB1 C8 INY 9BB2 B1 B0 LDA (&B0),Y 9BB4 9D 0B 0F STA &0F0B,X 9BB7 C8 INY 9BB8 B1 B0 LDA (&B0),Y 9BBA 6A ROR A 9BBB 6A ROR A 9BBC 6A ROR A 9BBD 5D 0E 0F EOR &0F0E,X 9BC0 29 C0 AND #&C0 9BC2 5D 0E 0F EOR &0F0E,X 9BC5 9D 0E 0F STA &0F0E,X 9BC8 B8 CLV 9BC9 60 RTS ; 9BCA 20 00 A3 JSR &A300 9BCD A0 0E LDY #&0E 9BCF B1 B0 LDA (&B0),Y 9BD1 29 0A AND #&0A 9BD3 F0 02 BEQ &9BD7 9BD5 A9 80 LDA #&80 9BD7 5D 0F 0E EOR &0E0F,X 9BDA 29 80 AND #&80 9BDC 5D 0F 0E EOR &0E0F,X 9BDF 9D 0F 0E STA &0E0F,X 9BE2 60 RTS ; 9BE3 20 18 9C JSR &9C18 9BE6 90 2B BCC &9C13 9BE8 B9 0F 0E LDA &0E0F,Y 9BEB 10 2A BPL &9C17 9BED 20 5A A3 JSR &A35A ; 9BF0 C3 9BF1 locked ;ERROR C3 = "File locked" 9BF7 00 ; 9BF8 20 E8 9B JSR &9BE8 9BFB 20 00 A3 JSR &A300 9BFE 98 TYA 9BFF 48 PHA 9C00 A2 08 LDX #&08 9C02 A0 0E LDY #&0E 9C04 68 PLA 9C05 20 53 97 JSR &9753 9C08 90 03 BCC &9C0D 9C0A 4C 66 96 JMP &9666 ; 9C0D 60 RTS ; 9C0E 20 18 9C JSR &9C18 9C11 B0 04 BCS &9C17 9C13 68 PLA 9C14 68 PLA 9C15 A9 00 LDA #&00 9C17 60 RTS ; 9C18 20 EB 87 JSR &87EB 9C1B 20 63 89 JSR &8963 9C1E 90 0C BCC &9C2C 9C20 98 TYA 9C21 AA TAX 9C22 AD DB 10 LDA &10DB 9C25 85 B0 STA &B0 9C27 AD DC 10 LDA &10DC 9C2A 85 B1 STA &B1 9C2C 60 RTS ; 9C2D C9 09 CMP #&09 9C2F B0 FB BCS &9C2C 9C31 20 00 A3 JSR &A300 9C34 20 F3 A2 JSR &A2F3 9C37 8E 7F 10 STX &107F 9C3A 8C 80 10 STY &1080 9C3D A8 TAY 9C3E 20 47 9C JSR &9C47 9C41 08 PHP 9C42 20 45 93 JSR &9345 9C45 28 PLP 9C46 60 RTS ; 9C47 B9 69 A8 LDA &A869,Y 9C4A 8D D7 10 STA &10D7 9C4D B9 72 A8 LDA &A872,Y 9C50 8D D8 10 STA &10D8 9C53 B9 7B A8 LDA &A87B,Y 9C56 4A LSR A 9C57 08 PHP 9C58 4A LSR A 9C59 08 PHP 9C5A 8D 81 10 STA &1081 9C5D 20 0A 9E JSR &9E0A 9C60 A0 0C LDY #&0C 9C62 B1 B4 LDA (&B4),Y 9C64 99 60 10 STA &1060,Y 9C67 88 DEY 9C68 10 F8 BPL &9C62 9C6A AD 63 10 LDA &1063 9C6D 2D 64 10 AND &1064 9C70 0D D6 10 ORA &10D6 9C73 18 CLC 9C74 69 01 ADC #&01 9C76 F0 06 BEQ &9C7E 9C78 20 2E 93 JSR &932E 9C7B 18 CLC 9C7C A9 FF LDA #&FF 9C7E 8D 83 10 STA &1083 9C81 AD 81 10 LDA &1081 9C84 B0 07 BCS &9C8D 9C86 A2 61 LDX #&61 9C88 A0 10 LDY #&10 9C8A 20 06 04 JSR &0406 9C8D 28 PLP 9C8E B0 04 BCS &9C94 9C90 28 PLP 9C91 6C D7 10 JMP (&10D7) ; 9C94 A2 03 LDX #&03 9C96 BD 69 10 LDA &1069,X 9C99 95 B6 STA &B6,X 9C9B CA DEX 9C9C 10 F8 BPL &9C96 9C9E A2 B6 LDX #&B6 9CA0 AC 60 10 LDY &1060 9CA3 A9 00 LDA #&00 9CA5 28 PLP 9CA6 B0 03 BCS &9CAB 9CA8 20 06 98 JSR &9806 9CAB 20 E6 97 JSR &97E6 9CAE A2 03 LDX #&03 9CB0 B5 B6 LDA &B6,X 9CB2 9D 69 10 STA &1069,X 9CB5 CA DEX 9CB6 10 F8 BPL &9CB0 9CB8 20 FC 9D JSR &9DFC 9CBB 30 0D BMI &9CCA 9CBD AC 60 10 LDY &1060 9CC0 20 91 9C JSR &9C91 9CC3 B0 0D BCS &9CD2 9CC5 A2 09 LDX #&09 9CC7 20 F0 9D JSR &9DF0 9CCA A2 05 LDX #&05 9CCC 20 F0 9D JSR &9DF0 9CCF D0 EC BNE &9CBD 9CD1 18 CLC 9CD2 08 PHP 9CD3 20 FC 9D JSR &9DFC 9CD6 A2 05 LDX #&05 9CD8 20 F0 9D JSR &9DF0 9CDB A0 0C LDY #&0C 9CDD 20 0A 9E JSR &9E0A 9CE0 B9 60 10 LDA &1060,Y 9CE3 91 B4 STA (&B4),Y 9CE5 88 DEY 9CE6 10 F8 BPL &9CE0 9CE8 28 PLP 9CE9 60 RTS ; 9CEA 20 A5 9D JSR &9DA5 9CED 20 B6 99 JSR &99B6 9CF0 18 CLC 9CF1 60 RTS ; 9CF2 20 DA 98 JSR &98DA 9CF5 B0 F2 BCS &9CE9 9CF7 4C DC 9D JMP &9DDC ;BRA &9DDC ; 9CFA 20 FB A4 JSR &A4FB 9CFD 20 92 92 JSR &9292 9D00 A9 0C LDA #&0C 9D02 20 DC 9D JSR &9DDC 9D05 A0 00 LDY #&00 9D07 B9 00 0E LDA &0E00,Y 9D0A 20 DC 9D JSR &9DDC 9D0D C8 INY 9D0E C0 08 CPY #&08 9D10 D0 F5 BNE &9D07 9D12 B9 F8 0E LDA &0EF8,Y 9D15 20 DC 9D JSR &9DDC 9D18 C8 INY 9D19 C0 0C CPY #&0C 9D1B D0 F5 BNE &9D12 9D1D AD 06 0F LDA &0F06 9D20 20 67 A4 JSR &A467 9D23 20 DC 9D JSR &9DDC 9D26 A5 CF LDA &CF 9D28 4C DC 9D JMP &9DDC ;BRA &9DDC ; 9D2B AD CB 10 LDA &10CB 9D2E 20 B8 9D JSR &9DB8 9D31 20 DA 9D JSR &9DDA 9D34 AD CA 10 LDA &10CA 9D37 4C DC 9D JMP &9DDC ;BRA &9DDC ; 9D3A AD CD 10 LDA &10CD 9D3D 20 B8 9D JSR &9DB8 9D40 20 DA 9D JSR &9DDA 9D43 AD CC 10 LDA &10CC 9D46 4C DC 9D JMP &9DDC ;BRA &9DDC ; 9D49 20 FB A4 JSR &A4FB 9D4C 20 92 92 JSR &9292 9D4F A9 5C LDA #&5C 9D51 8D D7 10 STA &10D7 9D54 A9 9D LDA #&9D 9D56 8D D8 10 STA &10D8 9D59 4C B8 9C JMP &9CB8 ;BRA &9CB8 ; 9D5C AC 69 10 LDY &1069 9D5F CC 05 0F CPY &0F05 9D62 B0 28 BCS &9D8C 9D64 B9 0F 0E LDA &0E0F,Y 9D67 20 9A A4 JSR &A49A 9D6A 45 CE EOR &CE 9D6C B0 02 BCS &9D70 9D6E 29 DF AND #&DF 9D70 29 7F AND #&7F 9D72 F0 05 BEQ &9D79 9D74 20 72 A4 JSR &A472 9D77 D0 E6 BNE &9D5F 9D79 A9 07 LDA #&07 9D7B 20 DC 9D JSR &9DDC 9D7E 85 B0 STA &B0 9D80 B9 08 0E LDA &0E08,Y 9D83 20 DC 9D JSR &9DDC 9D86 C8 INY 9D87 C6 B0 DEC &B0 9D89 D0 F5 BNE &9D80 9D8B 18 CLC 9D8C 8C 69 10 STY &1069 9D8F AD 04 0F LDA &0F04 9D92 8D 60 10 STA &1060 9D95 60 RTS ; 9D96 48 PHA 9D97 AD 61 10 LDA &1061 9D9A 85 B8 STA &B8 9D9C AD 62 10 LDA &1062 9D9F 85 B9 STA &B9 9DA1 A2 00 LDX #&00 9DA3 68 PLA 9DA4 60 RTS ; 9DA5 2C 83 10 BIT &1083 9DA8 10 06 BPL &9DB0 9DAA AD E5 FE LDA &FEE5 9DAD 4C EB 9D JMP &9DEB ;BRA &9DEB ; 9DB0 20 96 9D JSR &9D96 9DB3 A1 B8 LDA (&B8,X) 9DB5 4C EB 9D JMP &9DEB ;BRA &9DEB ; 9DB8 48 PHA 9DB9 A0 01 LDY #&01 9DBB 29 F0 AND #&F0 9DBD F0 01 BEQ &9DC0 9DBF C8 INY 9DC0 98 TYA 9DC1 20 DC 9D JSR &9DDC 9DC4 68 PLA 9DC5 48 PHA 9DC6 29 0F AND #&0F 9DC8 18 CLC 9DC9 69 30 ADC #&30 9DCB 20 DC 9D JSR &9DDC 9DCE 68 PLA 9DCF 20 67 A4 JSR &A467 9DD2 F0 40 BEQ &9E14 9DD4 18 CLC 9DD5 69 41 ADC #&41 9DD7 4C DC 9D JMP &9DDC ;BRA &9DDC ; 9DDA A9 01 LDA #&01 9DDC 2C 83 10 BIT &1083 9DDF 10 05 BPL &9DE6 9DE1 8D E5 FE STA &FEE5 9DE4 30 05 BMI &9DEB 9DE6 20 96 9D JSR &9D96 9DE9 81 B8 STA (&B8,X) 9DEB 20 00 A3 JSR &A300 9DEE A2 01 LDX #&01 9DF0 A0 04 LDY #&04 9DF2 FE 60 10 INC &1060,X 9DF5 D0 04 BNE &9DFB 9DF7 E8 INX 9DF8 88 DEY 9DF9 D0 F7 BNE &9DF2 9DFB 60 RTS ; 9DFC A2 03 LDX #&03 9DFE A9 FF LDA #&FF 9E00 5D 65 10 EOR &1065,X 9E03 9D 65 10 STA &1065,X 9E06 CA DEX 9E07 10 F5 BPL &9DFE 9E09 60 RTS ; 9E0A AD 7F 10 LDA &107F 9E0D 85 B4 STA &B4 9E0F AD 80 10 LDA &1080 9E12 85 B5 STA &B5 9E14 60 RTS ; 9E15 2C D5 10 BIT &10D5 9E18 30 03 BMI &9E1D 9E1A B1 A6 LDA (&A6),Y 9E1C 60 RTS ; 9E1D AD E5 FE LDA &FEE5 ;TUBE 9E20 60 RTS ; 9E21 2C D5 10 BIT &10D5 9E24 30 03 BMI &9E29 9E26 91 A6 STA (&A6),Y 9E28 60 RTS ; 9E29 8D E5 FE STA &FEE5 ;TUBE 9E2C 60 RTS ; 9E2D 20 3A A2 JSR &A23A 9E30 20 DF A4 JSR &A4DF 9E33 8D D3 10 STA &10D3 9E36 20 DF A4 JSR &A4DF 9E39 8D D4 10 STA &10D4 9E3C 20 27 A2 JSR &A227 9E3F 20 AC 9F JSR &9FAC 9E42 20 32 86 JSR &8632 9E45 20 15 85 JSR &8515 9E48 AD 06 0F LDA &0F06 9E4B 48 PHA 9E4C AD 07 0F LDA &0F07 9E4F 48 PHA 9E50 20 84 9F JSR &9F84 9E53 20 38 86 JSR &8638 9E56 20 0E 85 JSR &850E 9E59 AD 05 0F LDA &0F05 9E5C 85 CC STA &CC 9E5E F0 4F BEQ &9EAF 9E60 20 6D 9F JSR &9F6D 9E63 68 PLA 9E64 85 C6 STA &C6 9E66 68 PLA 9E67 85 C7 STA &C7 9E69 29 0F AND #&0F 9E6B C5 CB CMP &CB 9E6D 90 08 BCC &9E77 9E6F D0 09 BNE &9E7A 9E71 A5 C6 LDA &C6 9E73 C5 CA CMP &CA 9E75 B0 03 BCS &9E7A 9E77 4C C3 85 JMP &85C3 ; 9E7A A5 C7 LDA &C7 9E7C 48 PHA 9E7D A5 C6 LDA &C6 9E7F 48 PHA 9E80 20 FA 84 JSR &84FA 9E83 20 84 9F JSR &9F84 9E86 20 38 86 JSR &8638 9E89 20 B2 9E JSR &9EB2 9E8C 20 FA 84 JSR &84FA 9E8F 20 84 9F JSR &9F84 9E92 20 6D 9F JSR &9F6D 9E95 68 PLA 9E96 8D 07 0F STA &0F07 9E99 68 PLA 9E9A 8D 06 0F STA &0F06 9E9D 20 FA 84 JSR &84FA 9EA0 20 79 84 JSR &8479 9EA3 20 81 92 JSR &9281 9EA6 20 BA 86 JSR &86BA 9EA9 A9 FF LDA #&FF 9EAB 8D 84 10 STA &1084 9EAE 60 RTS ; 9EAF 4C 43 89 JMP &8943 ; 9EB2 20 28 92 JSR &9228 9EB5 A9 00 LDA #&00 9EB7 85 BE STA &BE 9EB9 85 C2 STA &C2 9EBB AD 89 10 LDA &1089 9EBE 85 BF STA &BF 9EC0 A4 CC LDY &CC 9EC2 20 7B A4 JSR &A47B 9EC5 84 CC STY &CC 9EC7 20 C0 89 JSR &89C0 9ECA A4 CC LDY &CC 9ECC 20 C4 A1 JSR &A1C4 9ECF F0 57 BEQ &9F28 9ED1 B9 0F 0F LDA &0F0F,Y 9ED4 85 C8 STA &C8 9ED6 B9 0E 0F LDA &0F0E,Y 9ED9 29 03 AND #&03 9EDB 85 C9 STA &C9 9EDD 20 D0 A1 JSR &A1D0 9EE0 38 SEC 9EE1 AD 8A 10 LDA &108A 9EE4 E5 BF SBC &BF 9EE6 A8 TAY 9EE7 A5 C7 LDA &C7 9EE9 D0 06 BNE &9EF1 9EEB C4 C6 CPY &C6 9EED 90 02 BCC &9EF1 9EEF A4 C6 LDY &C6 9EF1 84 C3 STY &C3 9EF3 A5 C8 LDA &C8 9EF5 85 C5 STA &C5 9EF7 A5 C9 LDA &C9 9EF9 85 C4 STA &C4 9EFB 20 F6 84 JSR &84F6 9EFE 20 6F 84 JSR &846F 9F01 20 0F 90 JSR &900F 9F04 18 CLC 9F05 A5 C8 LDA &C8 9F07 65 C3 ADC &C3 9F09 85 C8 STA &C8 9F0B 90 02 BCC &9F0F 9F0D E6 C9 INC &C9 9F0F 38 SEC 9F10 A5 C6 LDA &C6 9F12 E5 C3 SBC &C3 9F14 85 C6 STA &C6 9F16 B0 02 BCS &9F1A 9F18 C6 C7 DEC &C7 9F1A 18 CLC 9F1B A5 BF LDA &BF 9F1D 65 C3 ADC &C3 9F1F 85 BF STA &BF 9F21 A5 BF LDA &BF 9F23 CD 8A 10 CMP &108A 9F26 F0 04 BEQ &9F2C 9F28 A4 CC LDY &CC 9F2A D0 94 BNE &9EC0 9F2C AD 89 10 LDA &1089 9F2F C5 BF CMP &BF 9F31 F0 32 BEQ &9F65 9F33 A5 CA LDA &CA 9F35 85 C5 STA &C5 9F37 A5 CB LDA &CB 9F39 85 C4 STA &C4 9F3B 38 SEC 9F3C A5 BF LDA &BF 9F3E ED 89 10 SBC &1089 9F41 85 C3 STA &C3 9F43 AD 89 10 LDA &1089 9F46 85 BF STA &BF 9F48 20 FA 84 JSR &84FA 9F4B 20 79 84 JSR &8479 9F4E 20 09 90 JSR &9009 9F51 18 CLC 9F52 A5 CA LDA &CA 9F54 65 C3 ADC &C3 9F56 85 CA STA &CA 9F58 90 02 BCC &9F5C 9F5A E6 CB INC &CB 9F5C A5 C6 LDA &C6 9F5E 05 C7 ORA &C7 9F60 F0 03 BEQ &9F65 9F62 4C E0 9E JMP &9EE0 9F65 A5 CC LDA &CC 9F67 F0 03 BEQ &9F6C 9F69 4C C0 9E JMP &9EC0 ;BRA &9EC0 ; 9F6C 60 RTS ; 9F6D AC 05 0F LDY &0F05 9F70 20 7B A4 JSR &A47B 9F73 C0 F8 CPY #&F8 9F75 D0 01 BNE &9F78 9F77 60 RTS ; 9F78 20 9C 9F JSR &9F9C 9F7B 20 D0 A1 JSR &A1D0 9F7E 20 19 A2 JSR &A219 9F81 4C 70 9F JMP &9F70 BRA &9F70 ; 9F84 A9 00 LDA #&00 9F86 85 CB STA &CB 9F88 20 8E 9F JSR &9F8E 9F8B 85 CA STA &CA 9F8D 60 RTS ; 9F8E A5 CF LDA &CF 9F90 29 0C AND #&0C 9F92 D0 05 BNE &9F99 9F94 2C E3 10 BIT &10E3 9F97 70 02 BVS &9F9B 9F99 A9 02 LDA #&02 9F9B 60 RTS ; 9F9C A5 CA LDA &CA 9F9E 99 0F 0F STA &0F0F,Y 9FA1 B9 0E 0F LDA &0F0E,Y 9FA4 29 FC AND #&FC 9FA6 05 CB ORA &CB 9FA8 99 0E 0F STA &0F0E,Y 9FAB 60 RTS ; 9FAC A9 83 LDA #&83 9FAE 20 F4 FF JSR &FFF4 ;OSBYTE &83 - READ OSHWM 9FB1 8C 89 10 STY &1089 9FB4 A9 84 LDA #&84 9FB6 20 F4 FF JSR &FFF4 ;OSBYTE &84 - READ HIMEM 9FB9 98 TYA 9FBA 8D 8A 10 STA &108A 9FBD 38 SEC 9FBE ED 89 10 SBC &1089 9FC1 8D 8B 10 STA &108B 9FC4 60 RTS ; 9FC5 A2 0A LDX #&0A 9FC7 20 18 A8 JSR &A818 9FCA 20 D4 9F JSR &9FD4 9FCD A0 C1 LDY #&C1 9FCF A9 FF LDA #&FF 9FD1 91 B0 STA (&B0),Y 9FD3 60 RTS ; 9FD4 A6 F4 LDX &F4 9FD6 A9 00 LDA #&00 9FD8 85 B0 STA &B0 9FDA BD F0 0D LDA &0DF0,X 9FDD 85 B1 STA &B1 9FDF 60 RTS ; 9FE0 A2 5F LDX #&5F 9FE2 A0 8E LDY #&8E 9FE4 A9 08 LDA #&08 9FE6 D0 0E BNE &9FF6 9FE8 A2 8A LDX #&8A 9FEA A0 8D LDY #&8D 9FEC A9 15 LDA #&15 9FEE D0 06 BNE &9FF6 9FF0 A2 35 LDX #&35 9FF2 A0 8E LDY #&8E 9FF4 A9 04 LDA #&04 9FF6 20 28 8F JSR &8F28 9FF9 85 B8 STA &B8 9FFB 20 84 A8 JSR &A884 9FFE A2 00 LDX #&00 A000 20 C9 A2 JSR &A2C9 A003 20 27 A0 JSR &A027 A006 20 67 84 JSR &8467 A009 C6 B8 DEC &B8 A00B D0 F3 BNE &A000 A00D 60 RTS ; A00E 20 BB A4 JSR &A4BB A011 F0 01 BEQ &A014 A013 60 RTS ; A014 20 62 A3 JSR &A362 A017 DC A018 Syntax: A01F 20 A020 EA A021 20 27 A0 JSR &A027 A024 4C B9 A3 JMP &A3B9 ; A027 20 00 A3 JSR &A300 A02A A2 00 LDX #&00 A02C A0 09 LDY #&09 A02E 20 AA 00 JSR &00AA A031 30 08 BMI &A03B A033 20 03 A4 JSR &A403 A036 E8 INX A037 88 DEY A038 4C 2E A0 JMP &A02E ;BRA &A02E ; A03B 88 DEY A03C 30 04 BMI &A042 A03E C8 INY A03F 20 DA 88 JSR &88DA A042 E8 INX A043 E8 INX A044 20 AA 00 JSR &00AA A047 48 PHA A048 E8 INX A049 20 37 8F JSR &8F37 A04C 68 PLA A04D 20 55 A0 JSR &A055 A050 20 67 A4 JSR &A467 A053 29 07 AND #&07 A055 20 00 A3 JSR &A300 A058 29 0F AND #&0F A05A F0 1D BEQ &A079 A05C A8 TAY A05D A9 20 LDA #&20 A05F 20 03 A4 JSR &A403 A062 A2 FF LDX #&FF A064 E8 INX A065 BD 7A A0 LDA &A07A,X A068 D0 FA BNE &A064 A06A 88 DEY A06B D0 F7 BNE &A064 A06D E8 INX A06E BD 7A A0 LDA &A07A,X A071 F0 06 BEQ &A079 A073 20 03 A4 JSR &A403 A076 4C 6D A0 JMP &A06D ; A079 60 RTS ;*HELP DDOS/DFS A07A 00 A07B A080 00 A081 A087 00 A088 (L) A08B 00 A08C A095 00 A096 A0A0 00 A0A1 A0B2 00 A0B3 A0BC 00 A0BD A0C6 00 A0C7 () A0CE 00 A0CF () A0D6 00 A0D7 A0DE 00 A0DF <Hex no.> A0E8 00 A0E9 <argument> A0F3 00 ; A0F4 20 E5 A4 JSR &A4E5 A0F7 8D D3 10 STA &10D3 A0FA 8D D4 10 STA &10D4 A0FD 20 94 A3 JSR &A394 ; A100 Compacting A10A EA ; A10B 20 08 8D JSR &8D08 A10E 20 67 84 JSR &8467 A111 A0 00 LDY #&00 A113 20 E2 95 JSR &95E2 A116 20 AC 9F JSR &9FAC A119 20 9E 92 JSR &929E A11C 20 0E 85 JSR &850E A11F 20 15 85 JSR &8515 A122 AC 05 0F LDY &0F05 A125 84 CC STY &CC A127 20 84 9F JSR &9F84 A12A A4 CC LDY &CC A12C 20 7B A4 JSR &A47B A12F C0 F8 CPY #&F8 A131 F0 54 BEQ &A187 A133 84 CC STY &CC A135 20 BB 89 JSR &89BB A138 A4 CC LDY &CC A13A 20 C4 A1 JSR &A1C4 A13D F0 40 BEQ &A17F A13F A9 00 LDA #&00 A141 85 BE STA &BE A143 85 C2 STA &C2 A145 20 D0 A1 JSR &A1D0 A148 B9 0F 0F LDA &0F0F,Y A14B 85 C8 STA &C8 A14D B9 0E 0F LDA &0F0E,Y A150 29 03 AND #&03 A152 85 C9 STA &C9 A154 C5 CB CMP &CB A156 D0 0C BNE &A164 A158 A5 C8 LDA &C8 A15A C5 CA CMP &CA A15C D0 06 BNE &A164 A15E 20 19 A2 JSR &A219 A161 4C 7F A1 JMP &A17F ;BRA &A17F ; A164 A5 CA LDA &CA A166 99 0F 0F STA &0F0F,Y A169 B9 0E 0F LDA &0F0E,Y A16C 29 FC AND #&FC A16E 05 CB ORA &CB A170 99 0E 0F STA &0F0E,Y A173 A9 00 LDA #&00 A175 85 A8 STA &A8 A177 85 A9 STA &A9 A179 20 51 87 JSR &8751 A17C 20 81 92 JSR &9281 A17F A4 CC LDY &CC A181 20 C0 89 JSR &89C0 A184 4C 2A A1 JMP &A12A ;BRA &A12A ; A187 20 94 A3 JSR &A394 ; A18A Disk compacted A198 20 A199 EA ; A19A 38 SEC A19B AD 07 0F LDA &0F07 A19E E5 CA SBC &CA A1A0 48 PHA A1A1 AD 06 0F LDA &0F06 A1A4 29 03 AND #&03 A1A6 E5 CB SBC &CB A1A8 20 31 A4 JSR &A431 A1AB 68 PLA A1AC 20 29 A4 JSR &A429 A1AF 20 94 A3 JSR &A394 ; A1B2 20 A1B3 free sectors A1BF 0D A1C0 EA ; A1C1 4C BA 86 JMP &86BA ; A1C4 B9 0E 0F LDA &0F0E,Y A1C7 29 30 AND #&30 A1C9 19 0D 0F ORA &0F0D,Y A1CC 19 0D 0F ORA &0F0C,Y A1CF 60 RTS ; A1D0 18 CLC A1D1 B9 0C 0F LDA &0F0C,Y A1D4 69 FF ADC #&FF A1D6 B9 0D 0F LDA &0F0D,Y A1D9 69 00 ADC #&00 A1DB 85 C6 STA &C6 A1DD B9 0E 0F LDA &0F0E,Y A1E0 08 PHP A1E1 20 5F A4 JSR &A45F A1E4 28 PLP A1E5 69 00 ADC #&00 A1E7 85 C7 STA &C7 A1E9 60 RTS ; A1EA 20 FF A1 JSR &A1FF A1ED 38 SEC A1EE AD 07 0F LDA &0F07 A1F1 E5 CA SBC &CA A1F3 85 C0 STA &C0 A1F5 AD 06 0F LDA &0F06 A1F8 29 03 AND #&03 A1FA E5 CB SBC &CB A1FC 85 C1 STA &C1 A1FE 60 RTS ; A1FF AC 05 0F LDY &0F05 A202 A9 00 LDA #&00 A204 85 CA STA &CA A206 85 CB STA &CB A208 20 7B A4 JSR &A47B A20B C0 F8 CPY #&F8 A20D D0 01 BNE &A210 A20F 60 RTS ; A210 20 D0 A1 JSR &A1D0 A213 20 19 A2 JSR &A219 A216 4C 08 A2 JMP &A208 ;BRA &A208 ; A219 18 CLC A21A A5 CA LDA &CA A21C 65 C6 ADC &C6 A21E 85 CA STA &CA A220 A5 CB LDA &CB A222 65 C7 ADC &C7 A224 85 CB STA &CB A226 60 RTS ; A227 A9 00 LDA #&00 A229 85 A9 STA &A9 A22B AD D4 10 LDA &10D4 A22E CD D3 10 CMP &10D3 A231 D0 06 BNE &A239 A233 A9 FF LDA #&FF A235 85 A9 STA &A9 A237 85 AA STA &AA A239 60 RTS ; A23A 2C D2 10 BIT &10D2 A23D 10 5F BPL &A29E A23F 20 62 A3 JSR &A362 ; A242 BD A243 Not enabled ;ERROR BD = "Not enabled" A24E 00 ; A24F 20 0E A0 JSR &A00E A252 20 4F A5 JSR &A54F A255 8D D3 10 STA &10D3 A258 20 0E A0 JSR &A00E A25B 20 4F A5 JSR &A54F A25E 8D D4 10 STA &10D4 A261 98 TYA A262 48 PHA A263 20 27 A2 JSR &A227 A266 20 AC 9F JSR &9FAC A269 20 94 A3 JSR &A394 ; A26C Copying from drive A27E 20 ; A27F AD D3 10 LDA &10D3 A282 20 BA 8B JSR &8BBA A285 20 94 A3 JSR &A394 ; A288 20 A289 to drive A291 20 ; A292 AD D4 10 LDA &10D4 A295 20 BA 8B JSR &8BBA A298 20 67 84 JSR &8467 A29B 68 PLA A29C A8 TAY A29D 18 CLC A29E 60 RTS ; A29F F8 SED A2A0 18 CLC A2A1 A5 A8 LDA &A8 A2A3 69 01 ADC #&01 A2A5 85 A8 STA &A8 A2A7 A5 A9 LDA &A9 A2A9 69 00 ADC #&00 A2AB 85 A9 STA &A9 A2AD D8 CLD A2AE 18 CLC A2AF 20 B4 A2 JSR &A2B4 A2B2 A5 A8 LDA &A8 A2B4 48 PHA A2B5 08 PHP A2B6 20 67 A4 JSR &A467 A2B9 28 PLP A2BA 20 BE A2 JSR &A2BE A2BD 68 PLA A2BE 48 PHA A2BF 68 PLA A2C0 B0 02 BCS &A2C4 A2C2 F0 08 BEQ &A2CC A2C4 20 31 A4 JSR &A431 A2C7 38 SEC A2C8 60 RTS ; A2C9 20 CC A2 JSR &A2CC A2CC 48 PHA A2CD A9 20 LDA #&20 A2CF 20 03 A4 JSR &A403 A2D2 68 PLA A2D3 18 CLC A2D4 60 RTS ; A2D5 BA TSX A2D6 A9 00 LDA #&00 A2D8 9D 07 01 STA &0107,X A2DB 98 TYA A2DC 48 PHA A2DD 20 0E A0 JSR &A00E A2E0 68 PLA A2E1 A8 TAY A2E2 98 TYA A2E3 18 CLC A2E4 65 F2 ADC &F2 A2E6 AA TAX A2E7 A5 F3 LDA &F3 A2E9 69 00 ADC #&00 A2EB A8 TAY A2EC A9 00 LDA #&00 A2EE 85 A8 STA &A8 A2F0 85 A9 STA &A9 A2F2 60 RTS ; A2F3 48 PHA A2F4 8A TXA A2F5 48 PHA A2F6 BA TSX A2F7 A9 00 LDA #&00 A2F9 9D 09 01 STA &0109,X A2FC 68 PLA A2FD AA TAX A2FE 68 PLA A2FF 60 RTS ; A300 48 PHA A301 8A TXA A302 48 PHA A303 98 TYA A304 48 PHA A305 A9 A3 LDA #&A3 A307 48 PHA A308 A9 22 LDA #&22 A30A 48 PHA A30B A0 05 LDY #&05 A30D BA TSX A30E BD 07 01 LDA &0107,X A311 48 PHA A312 88 DEY A313 D0 F8 BNE &A30D A315 A0 0A LDY #&0A A317 BD 09 01 LDA &0109,X A31A 9D 0B 01 STA &010B,X A31D CA DEX A31E 88 DEY A31F D0 F6 BNE &A317 A321 68 PLA A322 68 PLA A323 68 PLA A324 A8 TAY A325 68 PLA A326 AA TAX A327 68 PLA A328 60 RTS ; A329 48 PHA A32A 8A TXA A32B 48 PHA A32C 98 TYA A32D 48 PHA A32E 20 0B A3 JSR &A30B A331 BA TSX A332 9D 03 01 STA &0103,X A335 4C 23 A3 JMP &A323 ;BRA &A323 ; A338 20 47 A3 JSR &A347 ; A33B C9 A33C 20 A33D read only ;ERROR C9 = "Disk read only" A346 00 ; A347 20 8A A3 JSR &A38A ; A34A Disk A34E 20 ; A34F 90 11 BCC &A362 A351 20 8A A3 JSR &A38A ; A354 Bad A357 20 A358 90 08 BCC &A362 A35A 20 8A A3 JSR &A38A ; A35D File A361 20 ; A362 85 B3 STA &B3 A364 68 PLA A365 85 AE STA &AE A367 68 PLA A368 85 AF STA &AF A36A A5 B3 LDA &B3 A36C 48 PHA A36D 98 TYA A36E 48 PHA A36F A0 00 LDY #&00 A371 20 B4 A4 JSR &A4B4 A374 B1 AE LDA (&AE),Y A376 8D 01 01 STA &0101 A379 2C DD 10 BIT &10DD A37C 10 25 BPL &A3A3 A37E A9 02 LDA #&02 A380 8D DD 10 STA &10DD A383 A9 00 LDA #&00 A385 8D 00 01 STA &0100 A388 F0 19 BEQ &A3A3 A38A A9 02 LDA #&02 A38C 8D DD 10 STA &10DD A38F A9 00 LDA #&00 A391 8D 00 01 STA &0100 A394 85 B3 STA &B3 A396 68 PLA A397 85 AE STA &AE A399 68 PLA A39A 85 AF STA &AF A39C A5 B3 LDA &B3 A39E 48 PHA A39F 98 TYA A3A0 48 PHA A3A1 A0 00 LDY #&00 A3A3 20 B4 A4 JSR &A4B4 A3A6 B1 AE LDA (&AE),Y A3A8 30 08 BMI &A3B2 A3AA F0 0D BEQ &A3B9 A3AC 20 03 A4 JSR &A403 A3AF 4C A3 A3 JMP &A3A3 ;BRA &A3A3 ; A3B2 68 PLA A3B3 A8 TAY A3B4 68 PLA A3B5 18 CLC A3B6 6C AE 00 JMP (&00AE) ; A3B9 A9 00 LDA #&00 A3BB AE DD 10 LDX &10DD A3BE 9D 00 01 STA &0100,X A3C1 A9 FF LDA #&FF A3C3 8D DD 10 STA &10DD A3C6 8D 84 10 STA &1084 A3C9 20 49 B7 JSR &B749 A3CC 20 45 93 JSR &9345 A3CF 4C 00 01 JMP &0100 ; A3D2 68 PLA A3D3 85 AE STA &AE A3D5 68 PLA A3D6 85 AF STA &AF A3D8 A0 00 LDY #&00 A3DA 20 B4 A4 JSR &A4B4 A3DD B1 AE LDA (&AE),Y A3DF C9 FF CMP #&FF A3E1 F0 06 BEQ &A3E9 A3E3 20 EE FF JSR &FFEE A3E6 4C DA A3 JMP &A3DA ;BRA &A3DA ; A3E9 20 B4 A4 JSR &A4B4 A3EC 6C AE 00 JMP (&00AE) ; A3EF 8D 01 01 STA &0101 A3F2 A9 00 LDA #&00 A3F4 8D 00 01 STA &0100 A3F7 A9 02 LDA #&02 A3F9 8D DD 10 STA &10DD A3FC 60 RTS ; A3FD A9 4E LDA #&4E A3FF D0 02 BNE &A403 A401 A9 2E LDA #&2E A403 20 00 A3 JSR &A300 A406 2C DD 10 BIT &10DD A409 10 14 BPL &A41F A40B 48 PHA A40C 20 08 A8 JSR &A808 A40F 8A TXA A410 48 PHA A411 09 10 ORA #&10 A413 20 03 A8 JSR &A803 A416 68 PLA A417 AA TAX A418 68 PLA A419 20 E3 FF JSR &FFE3 ;OSASCII A41C 4C 04 A8 JMP &A804 ; A41F AE DD 10 LDX &10DD A422 9D 00 01 STA &0100,X A425 EE DD 10 INC &10DD A428 60 RTS ; A429 48 PHA A42A 20 67 A4 JSR &A467 A42D 20 31 A4 JSR &A431 A430 68 PLA A431 48 PHA A432 29 0F AND #&0F A434 F8 SED A435 18 CLC A436 69 90 ADC #&90 A438 69 40 ADC #&40 A43A D8 CLD A43B 20 03 A4 JSR &A403 A43E 68 PLA A43F 60 RTS ; A440 20 29 A3 JSR &A329 A443 20 F7 A7 JSR &A7F7 A446 C0 1B CPY #&1B A448 D0 0D BNE &A457 A44A 20 58 A4 JSR &A458 A44D 20 A7 A7 JSR &A7A7 A450 AE 10 10 LDX &1010 A453 9A TXS A454 6C 11 10 JMP (&1011) A457 60 RTS ; A458 A9 7E LDA #&7E A45A 4C F4 FF JMP &FFF4 ;OSBYTE &7E - ACK ESCAPE CONDITION A45D 4A LSR A A45E 4A LSR A A45F 4A LSR A A460 4A LSR A A461 4A LSR A A462 4A LSR A A463 29 03 AND #&03 A465 60 RTS ; A466 4A LSR A A467 4A LSR A A468 4A LSR A A469 4A LSR A A46A 4A LSR A A46B 60 RTS ; A46C 0A ASL A A46D 0A ASL A A46E 0A ASL A A46F 0A ASL A A470 0A ASL A A471 60 RTS ; A472 C8 INY A473 C8 INY A474 C8 INY A475 C8 INY A476 C8 INY A477 C8 INY A478 C8 INY A479 C8 INY A47A 60 RTS ; A47B 88 DEY A47C 88 DEY A47D 88 DEY A47E 88 DEY A47F 88 DEY A480 88 DEY A481 88 DEY A482 88 DEY A483 60 RTS ; A484 C9 41 CMP #&41 A486 90 0C BCC &A494 A488 C9 5B CMP #&5B A48A 90 0A BCC &A496 A48C C9 61 CMP #&61 A48E 90 04 BCC &A494 A490 C9 7B CMP #&7B A492 90 02 BCC &A496 A494 38 SEC A495 60 RTS ; A496 29 DF AND #&DF A498 18 CLC A499 60 RTS ; A49A 48 PHA A49B 20 84 A4 JSR &A484 A49E 68 PLA A49F 60 RTS ; A4A0 20 AA A4 JSR &A4AA A4A3 90 03 BCC &A4A8 A4A5 C9 10 CMP #&10 A4A7 60 RTS ; A4A8 38 SEC A4A9 60 RTS ; A4AA C9 41 CMP #&41 A4AC 90 02 BCC &A4B0 A4AE E9 07 SBC #&07 A4B0 38 SEC A4B1 E9 30 SBC #&30 A4B3 60 RTS ; A4B4 E6 AE INC &AE A4B6 D0 02 BNE &A4BA A4B8 E6 AF INC &AF A4BA 60 RTS A4BB 18 CLC A4BC 4C C2 FF JMP &FFC2 ;GSINIT ; A4BF 38 SEC A4C0 E9 30 SBC #&30 A4C2 90 4D BCC &A511 A4C4 85 CF STA &CF A4C6 A5 CF LDA &CF A4C8 4C 8F A5 JMP &A58F ;BRA &A58F ; A4CB 20 84 A4 JSR &A484 A4CE 38 SEC A4CF E9 41 SBC #&41 A4D1 90 3E BCC &A511 A4D3 C9 08 CMP #&08 A4D5 B0 3A BCS &A511 A4D7 20 6D A4 JSR &A46D A4DA 05 CF ORA &CF A4DC 85 CF STA &CF A4DE 60 RTS ; A4DF 20 0E A0 JSR &A00E A4E2 4C 4F A5 JMP &A54F ;BRA &A54F ; A4E5 20 BB A4 JSR &A4BB A4E8 F0 16 BEQ &A500 A4EA 20 4F A5 JSR &A54F A4ED 4C D6 A7 JMP &A7D6 ; A4F0 AD CA 10 LDA &10CA A4F3 85 CE STA &CE A4F5 AD CB 10 LDA &10CB A4F8 85 CF STA &CF A4FA 60 RTS ; A4FB AD CA 10 LDA &10CA A4FE 85 CE STA &CE A500 AD CB 10 LDA &10CB A503 85 CF STA &CF A505 20 D6 A7 JSR &A7D6 A508 60 RTS ; A509 20 E5 A4 JSR &A4E5 A50C 20 BB A4 JSR &A4BB A50F F0 F7 BEQ &A508 A511 20 51 A3 JSR &A351 ; A514 CD A515 drive ;ERROR CD = "Bad drive" A51A 00 ; A51B 20 C5 FF JSR &FFC5 ;GSREAD A51E B0 2E BCS &A54E A520 C9 3A CMP #&3A A522 D0 22 BNE &A546 A524 20 C5 FF JSR &FFC5 ;GSREAD A527 B0 E8 BCS &A511 A529 20 BF A4 JSR &A4BF A52C 20 C5 FF JSR &FFC5 ;GSREAD A52F B0 1D BCS &A54E A531 C9 2E CMP #&2E A533 F0 0C BEQ &A541 A535 20 CB A4 JSR &A4CB A538 20 C5 FF JSR &FFC5 ;GSREAD A53B B0 11 BCS &A54E A53D C9 2E CMP #&2E A53F D0 D0 BNE &A511 A541 20 C5 FF JSR &FFC5 ;GSREAD A544 B0 CB BCS &A511 A546 20 80 A5 JSR &A580 A549 20 C5 FF JSR &FFC5 ;GSREAD A54C 90 C3 BCC &A511 A54E 60 RTS ; A54F A2 00 LDX #&00 A551 20 C5 FF JSR &FFC5 ;GSREAD A554 B0 F8 BCS &A54E A556 08 PHP A557 C9 3A CMP #&3A A559 D0 05 BNE &A560 A55B 20 C5 FF JSR &FFC5 ;GSREAD A55E B0 B1 BCS &A511 A560 20 BF A4 JSR &A4BF A563 A2 02 LDX #&02 A565 20 C5 FF JSR &FFC5 ;GSREAD A568 B0 0F BCS &A579 A56A 28 PLP A56B 90 07 BCC &A574 A56D C9 2A CMP #&2A A56F D0 03 BNE &A574 A571 A2 83 LDX #&83 A573 60 RTS ; A574 20 CB A4 JSR &A4CB A577 E8 INX A578 08 PHP A579 28 PLP A57A A5 CF LDA &CF A57C 60 RTS ; A57D 20 C5 FF JSR &FFC5 ;GSREAD A580 C9 2A CMP #&2A A582 D0 02 BNE &A586 A584 A9 23 LDA #&23 A586 85 CE STA &CE A588 18 CLC A589 60 RTS ; A58A 38 SEC A58B E9 30 SBC #&30 A58D 90 05 BCC &A594 A58F C9 04 CMP #&04 A591 B0 01 BCS &A594 A593 60 RTS ; A594 4C 11 A5 JMP &A511 ;BRA &A511 A597 B9 0E 11 LDA &110E,Y A59A 29 7F AND #&7F A59C 85 CE STA &CE A59E B9 1F 11 LDA &111F,Y A5A1 4C 03 A5 JMP &A503 ;BRA &A503 ; A5A4 A9 00 LDA #&00 A5A6 85 BA STA &BA A5A8 A5 CF LDA &CF A5AA 29 0C AND #&0C A5AC D0 57 BNE &A605 A5AE 20 7C B6 JSR &B67C A5B1 AD 00 10 LDA &1000 A5B4 D0 5A BNE &A610 A5B6 A9 00 LDA #&00 A5B8 8D E2 10 STA &10E2 A5BB 20 1F A6 JSR &A61F A5BE 2C E3 10 BIT &10E3 A5C1 70 09 BVS &A5CC A5C3 A5 CF LDA &CF A5C5 29 F0 AND #&F0 A5C7 F0 03 BEQ &A5CC A5C9 4C 11 A5 JMP &A511 :BRA &A511 ; A5CC 2C E0 10 BIT &10E0 A5CF 10 03 BPL &A5D4 A5D1 20 31 A6 JSR &A631 A5D4 2C E3 10 BIT &10E3 A5D7 50 37 BVC &A610 A5D9 20 F5 AF JSR &AFF5 A5DC AD 00 0E LDA &0E00 A5DF C9 E5 CMP #&E5 A5E1 D0 03 BNE &A5E6 A5E3 4C 7E A6 JMP &A67E ;BRA &A5E6 ; A5E6 AD 01 0E LDA &0E01 A5E9 8D 0E 10 STA &100E A5EC AD 02 0E LDA &0E02 A5EF 8D 0F 10 STA &100F A5F2 AD 03 0E LDA &0E03 A5F5 8D E1 10 STA &10E1 A5F8 20 15 A6 JSR &A615 A5FB A8 TAY A5FC B9 08 0E LDA &0E08,Y A5FF 8D E2 10 STA &10E2 A602 F0 54 BEQ &A658 A604 60 RTS ; A605 A9 00 LDA #&00 A607 8D E1 10 STA &10E1 A60A 8D E2 10 STA &10E2 A60D 85 BB STA &BB A60F 60 RTS ; A610 AD E3 10 LDA &10E3 A613 F0 07 BEQ &A61C A615 A5 CF LDA &CF A617 29 F0 AND #&F0 A619 4A LSR A A61A 4A LSR A A61B 4A LSR A A61C 85 BB STA &BB A61E 60 RTS ; A61F 2C E3 10 BIT &10E3 A622 10 03 BPL &A627 A624 4C C2 B6 JMP &B6C2 ; A627 A9 0A LDA #&0A A629 50 02 BVC &A62D A62B A9 12 LDA #&12 A62D 8D E1 10 STA &10E1 A630 60 RTS ; A631 A9 80 LDA #&80 A633 8D E0 10 STA &10E0 A636 A9 02 LDA #&02 A638 20 97 B6 JSR &B697 A63B 20 12 B7 JSR &B712 A63E AE 02 10 LDX &1002 A641 CA DEX A642 F0 0A BEQ &A64E A644 CA DEX A645 F0 0C BEQ &A653 A647 CA DEX A648 CA DEX A649 D0 55 BNE &A6A0 A64B 4C B5 A6 JMP &A6B5 ;BRA &A6B5 ; A64E A9 C0 LDA #&C0 A650 8D E0 10 STA &10E0 A653 A9 00 LDA #&00 A655 4C 97 B6 JMP &B697 ; B658 20 62 A3 JSR &A362 ; A65B CD A65C Volume ;ERROR CD = " A662 20 A663 EA ; A664 18 CLC A665 98 TYA A666 4A LSR A A667 69 41 ADC #&41 A669 20 03 A4 JSR &A403 A66C 20 94 A3 JSR &A394 ; A66F 20 A670 not allocated A67D 00 ; A67E 20 62 A3 JSR &A362 ; A681 CD A682 Disk not configured by VOLGEN A69F 00 ; A6A0 20 62 A3 JSR &A362 ; A6A3 CD A6A4 Bad track format A6B4 00 ; A6B5 20 62 A3 b# JSR &A362 ; A6B8 CD A6B9 80 track disk in 40 track drive A6D8 00 ; A6D9 A9 00 LDA #&00 A6DB F0 02 BEQ &A6DF A6DD A9 01 LDA #&01 A6DF 8D 00 10 STA &1000 A6E2 A2 03 LDX #&03 A6E4 20 ED 92 JSR &92ED A6E7 A9 10 LDA #&10 A6E9 85 BB STA &BB A6EB A9 00 LDA #&00 A6ED 85 BA STA &BA A6EF 85 A0 STA &A0 A6F1 A9 01 LDA #&01 A6F3 85 A1 STA &A1 A6F5 20 5D B7 JSR &B75D A6F8 D0 01 BNE &A6FB A6FA 60 RTS ; A6FB CA DEX A6FC D0 E6 BNE &A6E4 A6FE 4C B6 B9 JMP &B9B6 ; A701 60 RTS ; A702 20 00 A3 JSR &A300 A705 20 15 A7 JSR &A715 A708 D0 01 BNE &A70B A70A 60 RTS ; A70B 29 40 AND #&40 A70D D0 03 BNE &A712 A70F 4C B6 B9 JMP &B9B6 ; A712 4C 38 A3 JMP &A338 ; A715 20 29 A3 JSR &A329 A718 A9 05 LDA #&05 A71A 8D 2A 10 STA &102A A71D AD E1 10 LDA &10E1 A720 08 PHP A721 A6 A3 LDX &A3 A723 A5 A4 LDA &A4 A725 28 PLP A726 F0 18 BEQ &A740 A728 38 SEC A729 AD E1 10 LDA &10E1 A72C E5 BB SBC &BB A72E 85 A0 STA &A0 A730 A5 A5 LDA &A5 A732 D0 08 BNE &A73C A734 A6 A3 LDX &A3 A736 A5 A4 LDA &A4 A738 C5 A0 CMP &A0 A73A 90 04 BCC &A740 A73C A2 00 LDX #&00 A73E A5 A0 LDA &A0 A740 8E 85 10 STX &1085 A743 8D 86 10 STA &1086 A746 86 A0 STX &A0 A748 85 A1 STA &A1 A74A 05 A0 ORA &A0 A74C F0 53 BEQ &A7A1 A74E 20 67 B4 JSR &B467 A751 F0 0C BEQ &A75F A753 29 40 AND #&40 A755 D0 07 BNE &A75E A757 CE 2A 10 DEC &102A A75A D0 C1 BNE &A71D A75C A9 01 LDA #&01 A75E 60 RTS ; A75F E6 BA INC &BA A761 A9 00 LDA #&00 A763 85 BB STA &BB A765 18 CLC A766 AD 86 10 LDA &1086 A769 6D 6E 10 ADC &106E A76C 90 08 BCC &A776 A76E EE 6F 10 INC &106F A771 D0 03 BNE &A776 A773 EE 70 10 INC &1070 A776 18 CLC A777 A5 A6 LDA &A6 A779 6D 85 10 ADC &1085 A77C 85 A6 STA &A6 A77E A5 A7 LDA &A7 A780 6D 86 10 ADC &1086 A783 85 A7 STA &A7 A785 38 SEC A786 A5 A3 LDA &A3 A788 ED 85 10 SBC &1085 A78B 85 A3 STA &A3 A78D A5 A4 LDA &A4 A78F ED 86 10 SBC &1086 A792 85 A4 STA &A4 A794 B0 02 BCS &A798 A796 C6 A5 DEC &A5 A798 05 A3 ORA &A3 A79A 05 A5 ORA &A5 A79C F0 03 BEQ &A7A1 A79E 4C 1D A7 JMP &A71D ;BRA &A71D ; A7A1 20 A7 A7 JSR &A7A7 A7A4 A9 00 LDA #&00 A7A6 60 RTS ; A7A7 2C 87 10 BIT &1087 A7AA 10 0C BPL &A7B8 A7AC AC 88 10 LDY &1088 A7AF C0 FF CPY #&FF A7B1 F0 05 BEQ &A7B8 A7B3 A2 0B LDX #&0B A7B5 20 18 A8 JSR &A818 A7B8 A9 00 LDA #&00 A7BA 8D 87 10 STA &1087 A7BD 20 49 B7 JSR &B749 A7C0 60 RTS ; A7C1 2C 87 10 BIT &1087 A7C4 30 0F BMI &A7D5 A7C6 A9 8F LDA #&8F A7C8 A2 0C LDX #&0C A7CA 20 20 A8 JSR &A820 A7CD 8C 88 10 STY &1088 A7D0 A9 FF LDA #&FF A7D2 8D 87 10 STA &1087 A7D5 60 RTS ; A7D6 A5 CF LDA &CF A7D8 29 0C AND #&0C A7DA D0 03 BNE &A7DF A7DC 20 58 B6 JSR &B658 A7DF A5 CF LDA &CF A7E1 60 RTS ; A7E2 A5 CF LDA &CF A7E4 29 0C AND #&0C A7E6 D0 03 BNE &A7EB A7E8 4C 73 B6 JMP &B673 ; A7EB A9 00 LDA #&00 A7ED 60 RTS ; A7EE 20 00 A3 JSR &A300 A7F1 A9 0F LDA #&0F A7F3 A2 01 LDX #&01 A7F5 D0 08 BNE &A7FF A7F7 A9 81 LDA #&81 A7F9 D0 02 BNE &A7FD A7FB A9 C7 LDA #&C7 A7FD A2 00 LDX #&00 A7FF A0 00 LDY #&00 A801 F0 1F BEQ &A822 A803 AA TAX A804 A9 03 LDA #&03 ;OSBYTE 03 - SET O/P STREAM A806 D0 1A BNE &A822 A808 A9 EC LDA #&EC ;OSBYTE EC - R/W *FX3 STATUS A80A D0 12 BNE &A81E A80C A9 C7 LDA #&C7 ;OSBYTE C7 - R/W 8SPOOL FILE HANDLE A80E D0 0E BNE &A81E A810 A9 EA LDA #&EA ;OSBYTE EA - READ TUBE FLAG A812 D0 0A BNE &A81E A814 A9 A8 LDA #&A8 ;OSBYTE A8 - ROM POINTER TABLE (lo) A816 D0 06 BNE &A81E A818 A9 8F LDA #&8F ;OSBYTE 8F - PAGED ROM SERVICE REQUEST A81A D0 06 BNE &A822 A81C A9 FF LDA #&FF ;OSBYTE FF - R/W START-UP OPTIONS A81E A2 00 LDX #&00 A820 A0 FF LDY #&FF A822 4C F4 FF JMP &FFF4 ;OSBYTE ROUTINE ;DATA TABLE A825 1B A826 FF A827 1E FF 21 A82A FF A82B 24 FF A82D 27 A82E FF A82F 2A A830 FF A831 2D FF DC A834 9A A835 94 97 A837 DA A838 98 A839 B6 99 A83B 2D 9C C1 A83E 95 68 A840 94 7A A842 B5 CD A844 4A A845 CD 5C 74 A848 7C 81 94 A84B 94 94 A84D 95 94 A84F 95 95 A851 95 95 A853 D0 BA A855 BD 97 97 A858 97 A859 55 0A A85B 16 21 A85D 29 31 A85F 40 A860 49 9B A862 9B A863 9B A864 9B A865 9B A866 9B A867 9B A868 9B A869 E9 EA A86B EA A86C F2 F2 A86E FA A86F 2B A870 3A A871 49 9C A873 9C 9C 9C A876 9C 9C 9D A879 9D 9D 04 A87C 02 A87D 03 A87E 06 07 A880 04 04 A882 04 04 ; A884 20 94 A3 JSR &A394 ; A887 FTC DDOS v3.56 A895 0D 0D A897 EA A898 60 RTS ; A899 03 45 01 03 86 00 00 00 ;*FORMAT ROUTINE A8A1 A9 05 LDA #&05 A8A3 85 BC STA &BC A8A5 A9 00 LDA #&00 A8A7 85 BD STA &BD A8A9 20 BB A4 JSR &A4BB A8AC F0 13 BEQ &A8C1 A8AE 20 C5 FF JSR &FFC5 A8B1 C9 49 CMP #&49 A8B3 D0 07 BNE &A8BC A8B5 C6 BD DEC &BD A8B7 20 C5 FF JSR &FFC5 A8BA B0 05 BCS &A8C1 A8BC 20 A0 A4 JSR &A4A0 A8BF 85 BC STA &BC A8C1 20 F3 A2 JSR &A2F3 A8C4 BA TSX A8C5 8E 10 10 STX &1010 A8C8 8E 24 10 STX &1024 A8CB 20 28 92 JSR &9228 A8CE 20 39 AA JSR &AA39 A8D1 20 74 AD JSR &AD74 A8D4 20 38 AD JSR &AD38 A8D7 20 D2 A3 JSR &A3D2 ; A8DA 1F 00 15 83 A8DE Input no. of tracks (35/40/80) A8FC 20 20 20 20 20 20 20 20 20 A905 7F 7F 7F 7F 7F 7F 7F 7F A90D FF ; A90E 20 F4 AD JSR &ADF4 A911 98 TYA A912 F0 C3 BEQ &A8D7 A914 20 09 B1 JSR &B109 A917 B0 20 BCS &A939 A919 A2 50 LDX #&50 A91B AD E0 10 LDA &10E0 A91E 10 05 BPL &A925 A920 29 80 AND #&80 A922 8D E0 10 STA &10E0 A925 2C E0 10 BIT &10E0 A928 50 02 BVC &A92C A92A A2 28 LDX #&28 A92C E4 B0 CPX &B0 A92E 90 09 BCC &A939 A930 A5 B0 LDA &B0 A932 F0 05 BEQ &A939 A934 85 C0 STA &C0 A936 4C 3F A9 JMP &A93F ;BRA &A93F ; A939 20 C2 B0 JSR &B0C2 A93C 4C D7 A8 JMP &A8D7 ;BRA &A8D7 ; A93F A2 CE LDX #&CE A941 A0 A8 LDY #&A8 A943 20 3D AA JSR &AA3D A946 20 D7 AD JSR &ADD7 A949 20 D2 A3 JSR &A3D2 ; A94C 1F 00 16 83 A950 Drive number (0/1/2/3) A966 20 A967 FF ; A968 20 87 B0 .0 JSR &B087 A96B C9 30 I0 CMP #&30 A96D 90 DA .Z BCC &A949 A96F E9 30 i0 SBC #&30 A971 C9 04 I. CMP #&04 A973 90 06 .. BCC &A97B A975 20 C2 B0 B0 JSR &B0C2 A978 4C 3F A9 L?) JMP &A93F ;BRA &A93F ; A97B 85 CF .O STA &CF A97D 20 D7 AD W- JSR &ADD7 A980 20 D2 A3 R# JSR &A3D2 ; A983 1F 00 17 83 A987 Density (S/D) A994 20 A995 FF ; A996 20 87 B0 JSR &B087 A999 C9 53 CMP #&53 A99B F0 0A BEQ &A9A7 A99D C9 44 CMP #&44 A99F F0 09 BEQ &A9AA A9A1 20 C2 B0 JSR &B0C2 A9A4 4C 80 A9 JMP &A980 ;BRA &A980 ; A9A7 4C F5 A9 JMP &A9F5 ;BRA &A9F5 ; A9AA A2 CE LDX #&CE A9AC A0 A8 LDY #&A8 A9AE 20 3D AA JSR &AA3D A9B1 AD E3 10 LDA &10E3 A9B4 09 40 ORA #&40 A9B6 8D E3 10 STA &10E3 A9B9 A9 12 LDA #&12 A9BB 8D E1 10 STA &10E1 A9BE 20 D6 A7 JSR &A7D6 A9C1 A9 00 LDA #&00 A9C3 8D 13 10 STA &1013 A9C6 20 97 B1 JSR &B197 A9C9 AD 13 10 LDA &1013 A9CC F0 03 BEQ &A9D1 A9CE 4C F2 A9 JMP &A9F2 ;BRA ; A9D1 20 B3 AE JSR &AEB3 A9D4 20 C0 AE JSR &AEC0 A9D7 A6 C0 LDX &C0 A9D9 CA DEX A9DA 86 B0 STX &B0 A9DC 20 25 B0 JSR &B025 A9DF 20 CB AE JSR &AECB A9E2 20 1D AF JSR &AF1D A9E5 20 41 AF JSR &AF41 A9E8 20 DD A6 JSR &A6DD A9EB A2 77 LDX #&77 A9ED A0 B3 LDY #&B3 A9EF 20 A4 AD JSR &ADA4 A9F2 4C 44 AA JMP &AA44 ;BRA ; A9F5 A2 CE LDX #&CE A9F7 A0 A8 LDY #&A8 A9F9 20 3D AA JSR &AA3D A9FC AD E3 10 LDA &10E3 A9FF 29 80 AND #&80 AA01 8D E3 10 STA &10E3 AA04 A9 0A LDA #&0A AA06 8D E1 10 STA &10E1 AA09 20 D6 A7 JSR &A7D6 AA0C A9 00 LDA #&00 AA0E 8D 13 10 STA &1013 AA11 20 97 B1 JSR &B197 AA14 AD 13 10 LDA &1013 AA17 D0 1D BNE &AA36 AA19 A6 C0 LDX &C0 AA1B 86 B0 STX &B0 AA1D 20 25 B0 JSR &B025 AA20 20 B3 AE JSR &AEB3 AA23 A5 C5 LDA &C5 AA25 8D 06 0F STA &0F06 AA28 A5 C4 LDA &C4 AA2A 8D 07 0F STA &0F07 AA2D A9 00 LDA #&00 AA2F 85 BA STA &BA AA31 85 BB STA &BB AA33 20 CE 92 JSR &92CE AA36 4C 44 AA JMP &AA44 ;BRA ; AA39 A2 44 LDX #&44 AA3B A0 AA LDY #&AA AA3D 8E 11 10 STX &1011 AA40 8C 12 10 STY &1012 AA43 60 RTS ; AA44 AE 24 10 LDX &1024 AA47 9A TXS AA48 20 8B B1 JSR &B18B AA4B A2 00 LDX #&00 AA4D A0 18 LDY #&18 AA4F 20 80 AD JSR &AD80 AA52 4C 49 B7 JMP &B749 ; AA55 20 E5 A4 JSR &A4E5 AA58 BA TSX AA59 8E 24 10 STX &1024 AA5C 8E 10 10 STX &1010 AA5F 20 F3 A2 JSR &A2F3 AA62 20 28 92 JSR &9228 AA65 20 39 AA JSR &AA39 AA68 20 D2 A3 JSR &A3D2 ; AA6B 16 07 0A 0A AA6F FF ; AA70 A2 02 LDX #&02 AA72 20 D2 A3 JSR &A3D2 ; AA75 83 8D 20 20 20 20 20 AA7C V E R I F Y D I S K AA91 0D 0A AA93 FF ; AA94 CA DEX AA95 D0 DB BNE &AA72 AA97 20 D2 A3 JSR &A3D2 ; AA9A 1F 00 0A AA9D Insert disk AAA8 FF ; AAA9 20 E4 B2 JSR &B2E4 AAAC A2 65 LDX #&65 AAAE A0 AA LDY #&AA AAB0 20 3D AA JSR &AA3D AAB3 20 74 AD JSR &AD74 AAB6 A9 00 LDA #&00 AAB8 8D 00 10 STA &1000 AABB 20 A4 A5 JSR &A5A4 AABE 2C E3 10 BIT &10E3 AAC1 70 20 BVS &AAE3 AAC3 20 A1 92 JSR &92A1 AAC6 AD 06 0F LDA &0F06 AAC9 29 03 AND #&03 AACB 85 B1 STA &B1 AACD AD 07 0F LDA &0F07 AAD0 85 B0 STA &B0 AAD2 A9 00 LDA #&00 AAD4 85 B3 STA &B3 AAD6 AD E1 10 LDA &10E1 AAD9 85 B2 STA &B2 AADB 20 3C AE JSR &AE3C AADE 86 C0 STX &C0 AAE0 4C EB AA JMP &AAEB ;BRA ; AAE3 20 D9 A6 JSR &A6D9 AAE6 AD 04 0E LDA &0E04 AAE9 85 C0 STA &C0 AAEB A9 00 LDA #&00 AAED 85 BA STA &BA AAEF 8D 13 10 STA &1013 AAF2 20 53 B2 JSR &B253 AAF5 20 28 AB JSR &AB28 AAF8 F0 03 BEQ &AAFD AAFA EE 13 10 INC &1013 AAFD E6 BA INC &BA AAFF A5 BA LDA &BA AB01 C5 C0 CMP &C0 AB03 90 ED BCC &AAF2 AB05 AD 13 10 LDA &1013 AB08 D0 37 BNE &AB41 AB0A 20 D2 A3 JSR &A3D2 ; AB0D 1F 0A 17 83 AB11 Verify complete AB20 0D AB21 FF ; AB22 20 7C B6 JSR &B67C AB25 4C 44 AA JMP &AA44 ;BRA ; AB28 A2 06 LDX #&06 AB2A A0 06 LDY #&06 AB2C 20 08 B3 JSR &B308 AB2F 20 40 A4 JSR &A440 AB32 20 4A B7 JSR &B74A AB35 F0 09 BEQ &AB40 AB37 A9 2E LDA #&2E ;CHARACTER . AB39 20 EE FF JSR &FFEE ;OSWRCH AB3C CA DEX AB3D D0 F0 BNE &AB2F AB3F CA DEX AB40 60 RTS ; AB41 20 67 B1 JSR &B167 AB44 4C 44 AA JMP &AA44 ;COULD BE BRA??? ; AB47 20 3A A2 JSR &A23A AB4A 20 E5 A4 JSR &A4E5 AB4D BA TSX AB4E 8E 24 10 STX &1024 AB51 20 F3 A2 JSR &A2F3 AB54 20 28 92 JSR &9228 AB57 20 39 AA JSR &AA39 AB5A 20 7C B6 JSR &B67C AB5D A9 00 LDA #&00 AB5F 8D E2 10 STA &10E2 AB62 20 0F AD JSR &AD0F AB65 A5 CF LDA &CF AB67 29 03 AND #&03 AB69 85 CF STA &CF AB6B 20 D2 A3 JSR &A3D2 ; AB6E 16 07 0A 0A AB72 FF ; AB73 A2 02 LDX #&02 AB75 20 D2 A3 JSR &A3D2 ; AB78 83 8D AB7A V O L U M E G E N E R A T I O N AB99 20 0D 0A AB9D FF ; AB9E CA DEX AB9F D0 D4 BNE &AB75 ABA1 20 D2 A3 JSR &A3D2 ; ABA4 1F 00 07 0D 83 ABA9 Vol Size (K) ABB6 20 ABB7 FF ; ABB8 A5 CF LDA &CF ABBA 20 08 8D JSR &8D08 ABBD 20 D2 A3 JSR &A3D2 ; ABC0 0D 0A 0A 83 20 ABC5 A ABC6 0D 0A 83 20 ABCA B ABCB 00 0A 83 20 ABCF C ABD0 0D 0A 83 20 ABD4 D ABD5 0D 0A 83 20 ABD9 E ABDA 0D 0A 83 20 ABDE F ABFF 0D 0A 83 20 ABE3 G ABE4 0D 0A 83 20 ABE8 H ABE9 0D 0A 0A 83 ABED No. of Kbytes remaining AC04 FF ; AC05 20 AB AF JSR &AFAB AC08 A2 00 LDX #&00 AC0A 86 C1 STX &C1 AC0C 8A TXA AC0D 48 PHA AC0E 20 8D AE JSR &AE8D AC11 68 PLA AC12 AA TAX AC13 E8 INX AC14 E0 08 CPX #&08 AC16 D0 F2 BNE &AC0A AC18 20 3D B0 JSR &B03D AC1B A5 C2 LDA &C2 AC1D 85 B0 STA &B0 AC1F A5 C3 LDA &C3 AC21 4A LSR A AC22 66 B0 ROR &B0 AC24 4A LSR A AC25 66 B0 ROR &B0 AC27 85 B1 STA &B1 AC29 20 5D AE JSR &AE5D AC2C A2 19 LDX #&19 AC2E A0 12 LDY #&12 AC30 20 80 AD JSR &AD80 AC33 20 66 B0 JSR &B066 AC36 4C 3C AC JMP &AC3C ;BRA ; AC39 20 C2 B0 JSR &B0C2 AC3C A2 18 LDX #&18 AC3E A0 B3 LDY #&B3 AC40 20 8D AD JSR &AD8D AC43 20 AA B0 JSR &B0AA AC46 C9 0D CMP #&0D AC48 D0 03 BNE &AC4D AC4A 4C F1 AC JMP &ACF1 ;BRA ; AC4D 38 SEC AC4E E9 41 SBC #&41 ;01000001 AC50 90 E7 BCC &AC39 AC52 C9 08 CMP #&08 AC54 B0 E3 BCS &AC39 AC56 85 C1 STA &C1 AC58 69 41 ADC #&41 ;01000001 AC5A 20 EE FF JSR &FFEE ;OSWRCH AC5D A9 20 LDA #&20 AC5F 20 EE FF JSR &FFEE ;OSWRCH AC62 20 F4 AD JSR &ADF4 AC65 B0 D5 BCS &AC3C AC67 98 TYA AC68 D0 17 BNE &AC81 AC6A A5 C1 LDA &C1 AC6C 0A ASL A AC6D A8 TAY AC6E A9 00 LDA #&00 AC70 99 14 10 STA &1014,Y AC73 99 15 10 STA &1015,Y AC76 20 E9 AD JSR &ADE9 AC79 A2 04 LDX #&04 AC7B 20 E0 AD JSR &ADE0 AC7E 4C 18 AC JMP &AC18 ;BRA ; AC81 20 09 B1 JSR &B109 AC84 B0 B3 BCS &AC39 AC86 A5 B1 LDA &B1 AC88 F0 06 BEQ &AC90 AC8A 20 C2 B0 JSR &B0C2 AC8D 4C 3C AC JMP &AC3C ;BRA ; AC90 06 B0 ASL &B0 AC92 26 B1 ROL &B1 AC94 06 B0 ASL &B0 AC96 26 B1 ROL &B1 AC98 A9 00 LDA #&00 AC9A 85 B2 STA &B2 AC9C 85 B3 STA &B3 AC9E 38 SEC AC9F A5 B0 LDA &B0 ACA1 E9 12 SBC #&12 ACA3 85 B0 STA &B0 ACA5 A5 B1 LDA &B1 ACA7 E9 00 SBC #&00 ACA9 85 B1 STA &B1 ACAB 90 0E BCC &ACBB ACAD 18 CLC ACAE A9 12 LDA #&12 ACB0 65 B2 ADC &B2 ACB2 85 B2 STA &B2 ACB4 90 02 BCC &ACB8 ACB6 E6 B3 INC &B3 ACB8 4C 9E AC JMP &AC9E ;BRA ; ACBB A5 C1 LDA &C1 ACBD 0A ASL A ACBE A8 TAY ACBF A9 00 LDA #&00 ACC1 99 14 10 STA &1014,Y ACC4 99 15 10 STA &1015,Y ACC7 20 3D B0 JSR &B03D ACCA 38 SEC ACCB A5 C2 LDA &C2 ACCD E5 B2 SBC &B2 ACCF A5 C3 LDA &C3 ACD1 E5 B3 SBC &B3 ACD3 B0 08 BCS &ACDD ACD5 A5 C2 LDA &C2 ACD7 85 B2 STA &B2 ACD9 A5 C3 LDA &C3 ACDB 85 B3 STA &B3 ACDD A5 C1 LDA &C1 ACDF 0A ASL A ACE0 A8 TAY ACE1 A5 B3 LDA &B3 ACE3 99 14 10 STA &1014,Y ACE6 A5 B2 LDA &B2 ACE8 99 15 10 STA &1015,Y ACEB 20 8D AE JSR &AE8D ACEE 4C 18 AC JMP &AC18 ;BRA ; ACF1 20 0F AD JSR &AD0F ACF4 20 85 B2 JSR &B285 ACF7 D0 FB BNE &ACF4 ACF9 20 B3 AE JSR &AEB3 ACFC A2 77 LDX #&77 ACFE A0 B3 LDY #&B3 AD00 20 8D AD JSR &AD8D AD03 20 1D AF JSR &AF1D AD06 20 41 AF JSR &AF41 AD09 20 DD A6 JSR &A6DD AD0C 4C 44 AA JMP &AA44 ; AD0F 20 C2 B6 JSR &B6C2 AD12 2C E3 10 BIT &10E3 AD15 70 20 BVS &AD37 AD17 20 62 A3 JSR &A362 ; AD1A C9 AD1C Disk must be diuble density AD36 00 AD37 60 RTS ; AD38 20 D2 A3 JSR &A3D2 ; AD3B 1F 00 02 AD3E FF ; AD3F A2 02 LDX #&02 AD41 20 D2 A3 JSR &A3D2 ; AD44 83 8D 20 20 20 AD49 D I S K F O R M A T T E R AD64 0D 0A AD66 FF ; AD67 CA DEX AD68 D0 D7 BNE &AD41 AD6A 20 D2 A3 JSR &A3D2 ; AD6D 0D 0A 0A 0A 0A AD72 FF AD73 60 RTS ; AD74 A9 07 LDA #&07 AD76 48 PHA AD77 A9 16 LDA #&16 AD79 20 EE FF JSR &FFEE ;OSWRCH AD7C 68 PLA AD7D 4C EE FF JMP &FFEE ;OSWRCH ; AD80 A9 1F LDA #&1F AD82 20 EE FF JSR &FFEE ;OSWRCH AD85 8A TXA AD86 20 EE FF JSR &FFEE ;OSWRCH AD89 98 TYA AD8A 4C EE FF JMP &FFEE ;OSWRCH ; AD8D 86 B0 STX &B0 AD8F 84 B1 STY &B1 AD91 A0 00 LDY #&00 AD93 B1 B0 LDA (&B0),Y AD95 C9 FF CMP #&FF AD97 F0 0A BEQ &ADA3 AD99 20 EE FF JSR &FFEE ;OSWRCH AD9C C8 INY AD9D D0 F4 BNE &AD93 AD9F E6 B1 INC &B1 ADA1 D0 F0 BNE &AD93 ADA3 60 RTS ; ADA4 86 B0 STX &B0 ADA6 84 B1 STY &B1 ADA8 A0 00 LDY #&00 ADAA B1 B0 LDA (&B0),Y ADAC C9 1F CMP #&1F ADAE D0 10 BNE &ADC0 ADB0 20 CD AD JSR &ADCD ADB3 B1 B0 LDA (&B0),Y ADB5 20 CD AD JSR &ADCD ADB8 B1 B0 LDA (&B0),Y ADBA 20 CD AD JSR &ADCD ADBD 4C AA AD JMP &ADAA ;BRA ; ADC0 C9 FF CMP #&FF ADC2 D0 01 BNE &ADC5 ADC4 60 RTS ; ADC5 A9 20 LDA #&20 ADC7 20 CD AD JSR &ADCD ADCA 4C AA AD JMP &ADAA ;BRA ; ADCD 20 EE FF JSR &FFEE ADD0 E6 B0 INC &B0 ADD2 D0 02 BNE &ADD6 ADD4 E6 B1 INC &B1 ADD6 60 RTS ; ADD7 A2 00 LDX #&00 ADD9 A0 17 LDY #&17 ADDB 20 80 AD JSR &AD80 ADDE A2 28 LDX #&28 ADE0 A9 20 LDA #&20 ADE2 20 EE FF JSR &FFEE ADE5 CA DEX ADE6 D0 FA BNE &ADE2 ADE8 60 RTS ; ADE9 A2 06 LDX #&06 ADEB 18 CLC ADEC A5 C1 LDA &C1 ADEE 69 09 ADC #&09 ADF0 A8 TAY ADF1 4C 80 AD JMP &AD80 ;BRA ; ADF4 A0 00 LDY #&00 ADF6 20 AA B0 JSR &B0AA ADF9 C9 0D CMP #&0D ADFB D0 02 BNE &ADFF ADFD 18 CLC ADFE 60 RTS ; ADFF C9 7F CMP #&7F AE01 D0 0C BNE &AE0F AE03 98 TYA AE04 D0 02 BNE &AE08 AE06 38 SEC AE07 60 RTS ; AE08 20 25 AE JSR &AE25 AE0B 88 DEY AE0C 4C F6 AD JMP &ADF6 ;BRA ; AE0F C0 05 CPY #&05 AE11 F0 E3 BEQ &ADF6 AE13 C9 30 CMP #&30 AE15 90 DF BCC &ADF6 AE17 C9 3A CMP #&3A AE19 B0 DB BCS &ADF6 AE1B 20 EE FF JSR &FFEE ;OSWRCH AE1E 99 31 10 STA &1031,Y AE21 C8 INY AE22 4C F6 AD JMP &ADF6 ;BRA ; AE25 20 2D AE JSR &AE2D AE28 A9 20 LDA #&20 AE2A 20 EE FF JSR &FFEE ;OSWRCH AE2D A9 7F LDA #&7F AE2F 4C EE FF JMP &FFEE ;OSWRCH ; AE32 38 SEC AE33 E9 30 SBC #&30 AE35 90 03 BCC &AE3A AE37 C9 0A CMP #&0A AE39 60 RTS ; AE3A 38 SEC AE3B 60 RTS ; AE3C A2 00 LDX #&00 AE3E A5 B1 LDA &B1 AE40 C5 B3 CMP &B3 AE42 90 18 BCC &AE5C AE44 D0 06 BNE &AE4C AE46 A5 B0 LDA &B0 AE48 C5 B2 CMP &B2 AE4A 90 10 BCC &AE5C AE4C A5 B0 LDA &B0 AE4E E5 B2 SBC &B2 AE50 85 B0 STA &B0 AE52 A5 B1 LDA &B1 AE54 E5 B3 SBC &B3 AE56 85 B1 STA &B1 AE58 E8 INX AE59 4C 3E AE JMP &AE3E ;BRA ; AE5C 60 RTS ; AE5D A9 03 LDA #&03 AE5F 85 B3 STA &B3 AE61 A9 E8 LDA #&E8 AE63 85 B2 STA &B2 AE65 20 3C AE JSR &AE3C AE68 8E 2B 10 STX &102B AE6B A9 00 LDA #&00 AE6D 85 B3 STA &B3 AE6F A9 64 LDA #&64 AE71 85 B2 STA &B2 AE73 20 3C AE JSR &AE3C AE76 8E 2C 10 STX &102C AE79 A9 00 LDA #&00 AE7B 85 B3 STA &B3 AE7D A9 0A LDA #&0A AE7F 85 B2 STA &B2 AE81 20 3C AE JSR &AE3C AE84 8E 2D 10 STX &102D AE87 A5 B0 LDA &B0 AE89 8D 2E 10 STA &102E AE8C 60 RTS ; AE8D A5 C1 LDA &C1 AE8F 0A ASL A AE90 A8 TAY AE91 B9 14 10 LDA &1014,Y AE94 85 B1 STA &B1 AE96 B9 15 10 LDA &1015,Y AE99 85 B0 STA &B0 AE9B A5 B0 LDA &B0 AE9D 05 B1 ORA &B1 AE9F F0 11 BEQ &AEB2 AEA1 20 E9 AD JSR &ADE9 AEA4 46 B1 LSR &B1 AEA6 66 B0 ROR &B0 AEA8 46 B1 LSR &B1 AEAA 66 B0 ROR &B0 AEAC 20 5D AE JSR &AE5D AEAF 20 66 B0 JSR &B066 AEB2 60 RTS ; AEB3 A9 00 LDA #&00 AEB5 A8 TAY AEB6 99 00 0E STA &0E00,Y AEB9 99 00 0F STA &0F00,Y AEBC C8 INY AEBD D0 F7 BNE &AEB6 AEBF 60 RTS ; AEC0 A9 00 LDA #&00 AEC2 A0 0F LDY #&0F AEC4 99 14 10 STA &1014,Y AEC7 88 DEY AEC8 10 FA BPL &AEC4 AECA 60 RTS ; AECB A5 C4 LDA &C4 AECD 85 B2 STA &B2 AECF A5 C5 LDA &C5 AED1 85 B3 STA &B3 AED3 AD E1 10 LDA &10E1 AED6 85 B0 STA &B0 AED8 A9 00 LDA #&00 AEDA 85 B1 STA &B1 AEDC A2 04 LDX #&04 AEDE 06 B0 ASL &B0 AEE0 26 B1 ROL &B1 AEE2 CA DEX AEE3 D0 F9 BNE &AEDE AEE5 A0 00 LDY #&00 AEE7 20 1A B0 JSR &B01A AEEA 90 0D BCC &AEF9 AEEC A5 B3 LDA &B3 AEEE 99 14 10 STA &1014,Y AEF1 A5 B2 LDA &B2 AEF3 99 15 10 STA &1015,Y AEF6 4C 1C AF JMP &AF1C ;BRA ; AEF9 A5 B1 LDA &B1 AEFB 99 14 10 STA &1014,Y AEFE A5 B0 LDA &B0 AF00 99 15 10 STA &1015,Y AF03 38 SEC AF04 A5 B2 LDA &B2 AF06 E5 B0 SBC &B0 AF08 85 B2 STA &B2 AF0A A5 B3 LDA &B3 AF0C E5 B1 SBC &B1 AF0E 85 B3 STA &B3 AF10 A5 B2 LDA &B2 AF12 05 B3 ORA &B3 AF14 F0 06 BEQ &AF1C AF16 C8 INY AF17 C8 INY AF18 C0 10 CPY #&10 AF1A D0 CB BNE &AEE7 AF1C 60 RTS ; AF1D A0 00 LDY #&00 AF1F 84 BA STY &BA AF21 B9 14 10 LDA &1014,Y AF24 19 15 10 ORA &1015,Y AF27 F0 11 BEQ &AF3A AF29 B9 14 10 LDA &1014,Y AF2C 8D 06 0F STA &0F06 AF2F B9 15 10 LDA &1015,Y AF32 8D 07 0F STA &0F07 AF35 84 BB STY &BB AF37 20 CE 92 JSR &92CE AF3A C8 INY AF3B C8 INY AF3C C0 10 CPY #&10 AF3E D0 E1 BNE &AF21 AF40 60 RTS ; AF41 A9 20 LDA #&20 AF43 8D 00 0E STA &0E00 AF46 18 CLC AF47 A5 C4 LDA &C4 AF49 69 12 ADC #&12 AF4B 8D 02 0E STA &0E02 AF4E A5 C5 LDA &C5 AF50 69 00 ADC #&00 AF52 8D 01 0E STA &0E01 AF55 A9 12 LDA #&12 AF57 8D 03 0E STA &0E03 AF5A A5 C0 LDA &C0 AF5C 8D 04 0E STA &0E04 AF5F A9 00 LDA #&00 AF61 8D 05 0E STA &0E05 AF64 A9 01 LDA #&01 AF66 85 BB STA &BB AF68 A0 00 LDY #&00 AF6A B9 14 10 LDA &1014,Y AF6D 85 B3 STA &B3 AF6F B9 15 10 LDA &1015,Y AF72 85 B2 STA &B2 AF74 A5 B2 LDA &B2 AF76 05 B3 ORA &B3 AF78 F0 2A BEQ &AFA4 AF7A A5 BB LDA &BB AF7C 99 08 0E STA &0E08,Y AF7F A9 00 LDA #&00 AF81 99 09 0E STA &0E09,Y AF84 A2 00 LDX #&00 AF86 86 B0 STX &B0 AF88 86 B1 STX &B1 AF8A 20 1A B0 JSR &B01A AF8D F0 0F BEQ &AF9E AF8F E8 INX AF90 18 CLC AF91 A5 B0 LDA &B0 AF93 69 12 ADC #&12 AF95 85 B0 STA &B0 AF97 90 02 BCC &AF9B AF99 E6 B1 INC &B1 AF9B 4C 8A AF JMP &AF8A ;BRA ; AF9E 18 CLC AF9F 8A TXA AFA0 65 BB ADC &BB AFA2 85 BB STA &BB AFA4 C8 INY AFA5 C8 INY AFA6 C0 10 CPY #&10 AFA8 D0 C0 BNE &AF6A AFAA 60 RTS ; AFAB 20 F5 AF JSR &AFF5 AFAE 38 SEC AFAF AD 02 0E LDA &0E02 AFB2 E9 12 SBC #&12 AFB4 85 C4 STA &C4 AFB6 AD 01 0E LDA &0E01 AFB9 E9 00 SBC #&00 AFBB 85 C5 STA &C5 AFBD AD 04 0E LDA &0E04 AFC0 85 C0 STA &C0 AFC2 20 C0 AE JSR &AEC0 AFC5 A0 0E LDY #&0E AFC7 98 TYA AFC8 4A LSR A AFC9 AA TAX AFCA BD 06 10 LDA &1006,X AFCD F0 1F BEQ &AFEE AFCF 84 BB STY &BB AFD1 E6 BB INC &BB AFD3 A9 01 LDA #&01 AFD5 85 B1 STA &B1 AFD7 A9 00 LDA #&00 AFD9 85 B0 STA &B0 AFDB A9 00 LDA #&00 AFDD 20 67 B4 JSR &B467 AFE0 AD 06 0E LDA &0E06 AFE3 29 03 AND #&03 AFE5 99 14 10 STA &1014,Y AFE8 AD 07 0E LDA &0E07 AFEB 99 15 10 STA &1015,Y AFEE 88 DEY AFEF 88 DEY AFF0 10 D5 BPL &AFC7 AFF2 4C 49 B7 JMP &B749 ; AFF5 20 D9 A6 JSR &A6D9 AFF8 A0 0E LDY #&0E AFFA A2 07 LDX #&07 AFFC B9 08 0E LDA &0E08,Y AFFF 9D 06 10 STA &1006,X B002 88 DEY B003 88 DEY B004 CA DEX B005 10 F5 BPL &AFFC B007 60 RTS ; B008 18 CLC B009 A5 B2 LDA &B2 B00B 65 B4 ADC &B4 B00D 85 B2 STA &B2 B00F A5 B3 LDA &B3 B011 65 B5 ADC &B5 B013 85 B3 STA &B3 B015 C6 B0 DEC &B0 B017 D0 EF BNE &B008 B019 60 RTS ; B01A A5 B1 LDA &B1 B01C C5 B3 CMP &B3 B01E D0 04 BNE &B024 B020 A5 B0 LDA &B0 B022 C5 B2 CMP &B2 B024 60 RTS ; B025 AC E1 10 LDY &10E1 B028 A9 00 LDA #&00 B02A 85 C4 STA &C4 B02C 85 C5 STA &C5 B02E 18 CLC B02F A5 B0 LDA &B0 B031 65 C4 ADC &C4 B033 85 C4 STA &C4 B035 90 02 BCC &B039 B037 E6 C5 INC &C5 B039 88 DEY B03A D0 F2 BNE &B02E B03C 60 RTS ; B03D A0 00 LDY #&00 B03F 84 B0 STY &B0 B041 84 B1 STY &B1 B043 18 CLC B044 A5 B0 LDA &B0 B046 79 15 10 ADC &1015,Y B049 85 B0 STA &B0 B04B A5 B1 LDA &B1 B04D 79 14 10 ADC &1014,Y B050 85 B1 STA &B1 B052 C8 INY B053 C8 INY B054 C0 10 CPY #&10 B056 D0 EB BNE &B043 B058 38 SEC B059 A5 C4 LDA &C4 B05B E5 B0 SBC &B0 B05D 85 C2 STA &C2 B05F A5 C5 LDA &C5 B061 E5 B1 SBC &B1 B063 85 C3 STA &C3 B065 60 RTS ; B066 A0 FF LDY #&FF B068 38 SEC B069 C8 INY B06A B9 2B 10 LDA &102B,Y B06D D0 0D BNE &B07C B06F 90 0B BCC &B07C B071 C0 03 CPY #&03 B073 F0 07 BEQ &B07C B075 A9 20 LDA #&20 B077 20 EE FF JSR &FFEE B07A D0 EC BNE &B068 B07C 18 CLC B07D 69 30 ADC #&30 B07F 20 EE FF JSR &FFEE B082 C0 03 CPY #&03 B084 D0 E3 BNE &B069 B086 60 RTS ; B087 20 AA B0 JSR &B0AA B08A C9 30 CMP #&30 B08C 90 F9 BCC &B087 B08E C9 5B CMP #&5B B090 B0 F5 BCS &B087 B092 48 PHA B093 20 EE FF JSR &FFEE ;OSWRCH B096 20 AA B0 JSR &B0AA B099 C9 0D CMP #&0D B09B D0 02 BNE &B09F B09D 68 PLA B09E 60 RTS ; B09F C9 7F CMP #&7F B0A1 D0 F3 BNE &B096 B0A3 68 PLA B0A4 20 25 AE JSR &AE25 B0A7 4C 87 B0 JMP &B087 ;BRA ; B0AA 20 E0 FF JSR &FFE0 ;OSRDCH B0AD B0 01 BCS &B0B0 B0AF 60 RTS ; B0B0 C9 1B CMP #&1B B0B2 F0 01 BEQ &B0B5 B0B4 60 RTS ; B0B5 20 58 A4 JSR &A458 B0B8 20 A7 A7 JSR &A7A7 B0BB AE 10 10 LDX &1010 B0BE 9A TXS B0BF 6C 11 10 JMP (&1011) ; B0C2 A9 07 LDA #&07 B0C4 20 EE FF JSR &FFEE ;OSWRCH B0C7 A2 C4 LDX #&C4 B0C9 A0 B3 LDY #&B3 B0CB 8A TXA B0CC 48 PHA B0CD 98 TYA B0CE 48 PHA B0CF A9 86 LDA #&86 B0D1 20 F4 FF JSR &FFF4 B0D4 8E 26 10 STX &1026 B0D7 8C CF 10 STY &10CF B0DA 68 PLA B0DB A8 TAY B0DC 68 PLA B0DD AA TAX B0DE 20 8D AD JSR &AD8D B0E1 AE 26 10 LDX &1026 B0E4 AC CF 10 LDY &10CF B0E7 20 80 AD JSR &AD80 B0EA A9 05 LDA #&05 B0EC 85 B0 STA &B0 B0EE A2 00 LDX #&00 B0F0 A0 00 LDY #&00 B0F2 88 DEY B0F3 D0 FD BNE &B0F2 B0F5 CA DEX B0F6 D0 FA BNE &B0F2 B0F8 C6 B0 DEC &B0 B0FA D0 F6 BNE &B0F2 B0FC 20 8B B1 JSR &B18B B0FF AE 26 10 LDX &1026 B102 AC CF 10 LDY &10CF B105 20 80 AD JSR &AD80 B108 60 RTS ; B109 A2 00 LDX #&00 B10B 86 B0 STX &B0 B10D 86 B1 STX &B1 B10F BD 31 10 LDA &1031,X B112 20 32 AE JSR &AE32 B115 B0 2B BCS &B142 B117 48 PHA B118 A5 B1 LDA &B1 B11A 48 PHA B11B A5 B0 LDA &B0 B11D 06 B0 ASL &B0 B11F 26 B1 ROL &B1 B121 06 B0 ASL &B0 B123 26 B1 ROL &B1 B125 18 CLC B126 65 B0 ADC &B0 B128 85 B0 STA &B0 B12A 68 PLA B12B 65 B1 ADC &B1 B12D 85 B1 STA &B1 B12F 06 B0 ASL &B0 B131 26 B1 ROL &B1 B133 18 CLC B134 68 PLA B135 65 B0 ADC &B0 B137 85 B0 STA &B0 B139 90 02 BCC &B13D B13B E6 B1 INC &B1 B13D E8 INX B13E 88 DEY B13F D0 CE BNE &B10F B141 18 CLC B142 60 RTS ; B143 20 8B B1 JSR &B18B B146 20 D2 A3 JSR &A3D2 ; B149 1F 05 17 88 83 B14E F O R M A T E R R O R B165 FF B166 60 RTS ; B167 20 8B B1 JSR &B18B B16A 20 D2 A3 JSR &A3D2 ; B16D 1F 05 17 88 83 B172 V E R I F Y E R R O R B189 FF B18A 60 RTS ; B18B A2 00 LDX #&00 B18D A0 14 LDY #&14 B18F 20 80 AD JSR &AD80 B192 A2 78 LDX #&78 B194 4C E0 AD JMP &ADE0 ; B197 A2 34 LDX #&34 B199 A0 B3 LDY #&B3 B19B 20 8D AD JSR &AD8D B19E 20 87 B0 JSR &B087 B1A1 C9 46 CMP #&46 B1A3 D0 F2 BNE &B197 B1A5 20 85 B2 JSR &B285 B1A8 D0 ED BNE &B197 B1AA 20 D2 A3 JSR &A3D2 ; B1AD 0C 1F 00 14 88 83 B1B3 Please wait while formatting disk B1D4 FF ; B1D5 20 7C B6 JSR &B67C B1D8 A9 00 LDA #&00 B1DA 85 BA STA &BA B1DC A9 02 LDA #&02 B1DE 85 B9 STA &B9 B1E0 85 BB STA &BB B1E2 20 4E B8 JSR &B84E B1E5 38 SEC B1E6 A5 B9 LDA &B9 B1E8 E9 02 SBC #&02 B1EA B0 03 BCS &B1EF B1EC 6D E1 10 ADC &10E1 B1EF 85 B9 STA &B9 B1F1 20 8F B6 JSR &B68F B1F4 A9 03 LDA #&03 B1F6 8D 2A 10 STA &102A B1F9 20 40 A4 JSR &A440 B1FC 20 53 B2 JSR &B253 B1FF A0 06 LDY #&06 B201 20 08 B3 JSR &B308 B204 A5 B9 LDA &B9 B206 85 BB STA &BB B208 20 4E B8 JSR &B84E B20B F0 0E BEQ &B21B B20D CE 2A 10 DEC &102A B210 D0 E7 BNE &B1F9 B212 20 43 B1 JSR &B143 B215 A9 02 LDA #&02 B217 8D 13 10 STA &1013 B21A 60 RTS ; B21B 20 28 AB JSR &AB28 B21E F0 0E BEQ &B22E B220 CE 2A 10 DEC &102A B223 D0 D4 BNE &B1F9 B225 20 67 B1 JSR &B167 B228 A9 03 LDA #&03 B22A 8D 13 10 STA &1013 B22D 60 RTS ; B22E E6 BA INC &BA B230 A5 BA LDA &BA B232 C5 C0 CMP &C0 B234 B0 03 BCS &B239 B236 4C E5 B1 JMP &B1E5 ;BRA ; B239 20 D2 A3 JSR &A3D2 ; B23C 1F 08 17 83 B240 Format complete B24F 0D 0A B251 FF B252 60 RTS ; B253 A9 00 LDA #&00 B255 85 B1 STA &B1 B257 A5 BA LDA &BA B259 85 B0 STA &B0 B25B 38 SEC B25C A5 B0 LDA &B0 B25E E9 14 SBC #&14 B260 90 0C BCC &B26E B262 85 B0 STA &B0 B264 18 CLC B265 A5 B1 LDA &B1 B267 69 0A ADC #&0A B269 85 B1 STA &B1 B26B 4C 5B B2 JMP &B25B ;BRA ; B26E A6 B1 LDX &B1 B270 A4 B0 LDY &B0 B272 20 80 AD JSR &AD80 B275 A5 BA LDA &BA B277 85 B0 STA &B0 B279 A9 00 LDA #&00 B27B 85 B1 STA &B1 B27D 20 5D AE JSR &AE5D B280 A0 01 LDY #&01 B282 4C 68 B0 JMP &B068 ; B285 20 E2 A7 JSR &A7E2 B288 F0 59 BEQ &B2E3 B28A 20 D2 A3 JSR &A3D2 ; B28D 1F 00 14 88 83 20 20 20 B295 *** Disk write protected *** B2B1 0D 0A 83 B2B4 Remove write protect label from disk B2D8 0D 0A B2DA FF ; B2DB 20 E4 B2 JSR &B2E4 B2DE 20 8B B1 JSR &B18B B2E1 A9 FF LDA #&FF B2E3 60 RTS ; B2E4 20 D2 A3 JSR &A3D2 ; B2E7 0D 50 72 .Pr ORA &7250 B2E8 Press any key to continue B301 FF ; B302 20 AA B0 JSR &B0AA B305 4C 8B B1 JMP &B18B ; B308 98 TYA B309 48 PHA B30A 20 DA 88 JSR &88DA B30D 68 PLA B30E A8 TAY B30F A9 7F LDA #&7F B311 20 EE FF JSR &FFEE B314 88 DEY B315 D0 F8 BNE &B30F B317 60 RTS ; B318 1F 00 17 B31B Volume : B323 20 20 20 20 20 20 20 20 B32B 7F 7F 7F 7F 7F 7F 7F 7F B333 FF B334 16 07 0A 0A 0A 83 B33A 20 20 20 20 B33E R E A D Y T O F O R M A T B35B 0D 0A 0A 0A 83 B360 Press F(return) to start B375 20 B376 FF B377 1F 00 14 88 83 B37C Please wait while generating volumes B3A0 FF B3A1 1F 02 0E 83 B3A5 VOLUME GENERATION COMPLETE B3BF 0D 0A 0A 0A B3C3 FF B3C4 1F 04 14 88 83 B3C9 20 20 20 20 B3CD E R R O R B3D6 FF ; B3D7 20 0E A0 JSR &A00E B3DA 98 TYA B3DB A2 E6 LDX #&E6 B3DD A0 B3 LDY #&B3 B3DF 20 C7 8E JSR &8EC7 B3E2 A2 03 LDX #&03 B3E4 D0 28 BNE &B40E ; B3E6 SINGLE B3EC B4 28 B3EE 00 B3EF DOUBLE B3F5 B4 25 B3F7 00 B3F8 AUTO B3FC B4 2B B3FE 00 ; B3FF 94 F8 STY &F8,X B401 20 0E A0 JSR &A00E B404 98 TYA B405 A2 11 LDX #&11 B407 A0 B4 LDY #&B4 B409 20 C7 8E JSR &8EC7 B40C A2 00 LDX #&00 B40E 4C CC 80 JMP &80CC ;SEE &8100, and &955A ; B411 ON B413 B4 25 B415 00 B416 OFF B419 B4 28 B41B 00 B41C AUTO B420 B4 2B B422 00 ; B423 94 F8 STY &F8,X B425 A9 40 LDA #&40 B427 AC A9 00 LDY &00A9 B42A AC A9 80 LDY &80A9 B42D 9D E0 10 STA &10E0,X B430 60 RTS ; B431 BA TSX B432 A9 00 LDA #&00 B434 9D 05 01 STA &0105,X B437 20 29 A3 JSR &A329 B43A 20 C1 A7 JSR &A7C1 B43D A9 00 LDA #&00 B43F 85 BA STA &BA B441 85 BB STA &BB B443 20 B3 AE JSR &AEB3 B446 A9 02 LDA #&02 B448 8D 06 0F STA &0F06 B44B A9 00 LDA #&00 B44D 8D 07 0F STA &0F07 B450 A9 02 LDA #&02 B452 85 A1 STA &A1 B454 A9 00 LDA #&00 B456 85 A0 STA &A0 B458 A9 01 LDA #&01 B45A 8D 00 10 STA &1000 B45D 20 ED 92 JSR &92ED B460 20 70 B4 JSR &B470 B463 20 A7 A7 JSR &A7A7 B466 60 RTS ; B467 A5 CF LDA &CF B469 29 0C AND #&0C B46B D0 03 BNE &B470 B46D 4C 5D B7 JMP &B75D ; B470 20 29 A3 JSR &A329 B473 A5 A2 LDA &A2 B475 48 PHA B476 A5 A3 LDA &A3 B478 48 PHA B479 A5 A4 LDA &A4 B47B 48 PHA B47C A5 A5 LDA &A5 B47E 48 PHA B47F A0 54 LDY #&54 B481 B9 11 B5 LDA &B511,Y B484 99 00 0D STA &0D00,Y B487 88 DEY B488 10 F7 BPL &B481 B48A AD 01 10 LDA &1001 B48D 85 A3 STA &A3 B48F A5 BA LDA &BA B491 85 A5 STA &A5 B493 A5 BB LDA &BB B495 85 A4 STA &A4 B497 A5 A0 LDA &A0 B499 F0 02 BEQ &B49D B49B E6 A1 INC &A1 B49D AD 00 10 LDA &1000 B4A0 D0 16 BNE &B4B8 B4A2 A5 A6 LDA &A6 B4A4 8D 14 0D STA &0D14 B4A7 A5 A7 LDA &A7 B4A9 8D 15 0D STA &0D15 B4AC AD D5 10 LDA &10D5 B4AF F0 4C BEQ &B4FD B4B1 A9 8D LDA #&8D B4B3 A0 08 LDY #&08 B4B5 4C DF B4 JMP &B4DF ;BRA ; B4B8 A9 15 LDA #&15 B4BA 8D 52 0D STA &0D52 B4BD A9 A3 LDA #&A3 B4BF 8D 07 0D STA &0D07 B4C2 A9 A2 LDA #&A2 B4C4 8D 0F 0D STA &0D0F B4C7 A5 A6 LDA &A6 B4C9 8D 0C 0D STA &0D0C B4CC A5 A7 LDA &A7 B4CE 8D 0D 0D STA &0D0D B4D1 A9 0D LDA #&0D B4D3 8D 1A 0D STA &0D1A B4D6 AD D5 10 LDA &10D5 B4D9 F0 22 BEQ &B4FD B4DB A9 AD LDA #&AD B4DD A0 00 LDY #&00 B4DF 99 0B 0D STA &0D0B,Y B4E2 C8 INY B4E3 A9 E5 LDA #&E5 B4E5 99 0C 0D STA &0D0C,Y B4E8 A9 FE LDA #&FE B4EA 99 0D 0D STA &0D0D,Y B4ED A9 EA LDA #&EA B4EF 8D 19 0D STA &0D19 B4F2 8D 1A 0D STA &0D1A B4F5 8D 1B 0D STA &0D1B B4F8 A9 60 LDA #&60 B4FA 8D 4B 0D STA &0D4B B4FD A0 00 LDY #&00 B4FF 20 00 0D JSR &0D00 B502 68 PLA B503 85 A5 STA &A5 B505 68 PLA B506 85 A4 STA &A4 B508 68 PLA B509 85 A3 STA &A3 B50B 68 PLA B50C 85 A2 STA &A2 B50E A9 00 LDA #&00 B510 60 RTS ;NMI ROUTINE B511 20 36 0D JSR &0D36 B514 20 4B 0D JSR &0D4B B517 A6 A2 LDX &A2 B519 8E 30 FE STX &FE30 ;ROM PAGING REGISTER B51C B9 00 FF LDA &FF00,Y B51F A6 A3 LDX &A3 B521 8E 30 FE STX &FE30 ;ROM PAGING REGISTER B524 99 00 FF STA &FF00,Y B527 C8 INY B528 D0 0F BNE &B539 B52A EE 15 0D INC &0D15 B52D E6 A4 INC &A4 B52F D0 02 BNE &B533 B531 E6 A5 INC &A5 B533 20 36 0D JSR &0D36 B536 20 4B 0D JSR &0D4B B539 C6 A0 DEC &A0 B53B D0 DA BNE &B517 B53D C6 A1 DEC &A1 B53F D0 D6 BNE &B517 B541 A5 F4 LDA &F4 B543 8D 30 FE STA &FE30 ;ROM PAGING REGISTER B546 60 RTS ; B547 A5 A5 LDA &A5 B549 85 A2 STA &A2 B54B A5 A4 LDA &A4 B54D 29 C0 AND #&C0 B54F 46 A2 LSR &A2 B551 6A ROR A B552 46 A2 LSR &A2 B554 6A ROR A B555 69 10 ADC #&10 B557 09 0E ORA #&0E B559 85 A2 STA &A2 B55B 60 RTS ; B55C A5 A4 LDA &A4 B55E 29 3F AND #&3F B560 09 80 ORA #&80 B562 8D 0D 0D STA &0D0D B565 60 RTS ; B566 BA TSX B567 A9 00 LDA #&00 B569 9D 05 01 STA &0105,X B56C 20 D2 A3 JSR &A3D2 ; B56F 0D 0A B571 WD 1770 status : B581 20 B582 FF ; B583 AD 8F 10 LDA &108F B586 20 29 A4 JSR &A429 B589 4C 67 84 JMP &8467 ; B58C A2 00 LDX #&00 B58E AD A2 01 LDA &01A2 B591 AD A2 02 LDA &02A2 B594 AD A2 03 LDA &03A2 B597 AD A2 04 LDA &04A2 B59A 8E 00 10 STX &1000 B59D 20 36 B6 JSR &B636 B5A0 20 5D B7 JSR &B75D B5A3 A0 0A LDY #&0A B5A5 91 B0 STA (&B0),Y B5A7 60 RTS ; B5A8 20 8F B6 JSR &B68F B5AB A0 08 LDY #&08 B5AD 91 B0 STA (&B0),Y B5AF 60 RTS ; B5B0 20 CB B6 JSR &B6CB B5B3 20 CB B6 JSR &B6CB B5B6 A0 0A LDY #&0A B5B8 91 B0 STA (&B0),Y B5BA A8 TAY B5BB D0 0B BNE &B5C8 B5BD B9 90 10 LDA &1090,Y B5C0 20 21 9E JSR &9E21 B5C3 C8 INY B5C4 C0 04 CPY #&04 B5C6 D0 F5 BNE &B5BD B5C8 60 RTS ; B5C9 4C 8B B8 JMP &B88B ; B5CC 88 DEY B5CD 20 73 B6 JSR &B673 B5D0 4A LSR A B5D1 4A LSR A B5D2 4A LSR A B5D3 09 44 ORA #&44 B5D5 91 B0 STA (&B0),Y B5D7 60 RTS ; B5D8 A5 BA LDA &BA B5DA C9 0D CMP #&0D B5DC D0 F9 BNE &B5D7 B5DE B1 B0 LDA (&B0),Y B5E0 AA TAX B5E1 4C 6F B6 JMP &B66F ; B5E4 B1 B0 LDA (&B0),Y B5E6 A6 BA LDX &BA B5E8 E0 04 CPX #&04 B5EA B0 04 BCS &B5F0 B5EC 9D E0 10 STA &10E0,X B5EF 60 RTS ; B5F0 D0 04 BNE &B5F6 B5F2 8D 01 10 STA &1001 B5F5 60 RTS ; B5F6 E0 12 CPX #&12 B5F8 D0 16 BNE &B610 B5FA 4C A8 B9 JMP &B9A8 ; B5FD A6 BA LDX &BA B5FF E0 04 CPX #&04 B601 B0 06 BCS &B609 B603 BD E0 10 LDA &10E0,X B606 91 B0 STA (&B0),Y B608 60 RTS ; B609 D0 05 BNE &B610 B60B AD 01 10 LDA &1001 B60E 91 B0 STA (&B0),Y B610 60 RTS ; B611 13 B612 8B B613 B5 0B LDA &0B,X B615 8E B5 29 STX &29B5 B618 A7 B619 B5 1F 5. LDA &1F,X B61B 97 . ??? B61C B5 17 5. LDA &17,X B61E 8B . ??? B61F B5 0F 5. LDA &0F,X B621 94 B5 .5 STY &B5,X B623 1B . ??? B624 AF / ??? B625 B5 23 5# LDA &23,X B627 C8 H INY B628 B5 2C 5, LDA &2C,X B62A CB K ??? B62B B5 35 55 LDA &35,X B62D D7 W ??? B62E B5 3A 5: LDA &3A,X B630 E3 c ??? B631 B5 3D 5= LDA &3D,X B633 FC | ??? ; B634 B5 00 LDA &00,X B636 B1 B0 LDA (&B0),Y B638 C8 INY B639 85 BB STA &BB B63B B1 B0 LDA (&B0),Y B63D 20 66 A4 JSR &A466 B640 AA TAX B641 A9 00 LDA #&00 B643 85 A0 STA &A0 B645 B1 B0 LDA (&B0),Y B647 C8 INY B648 29 1F AND #&1F B64A 4A LSR A B64B 66 A0 ROR &A0 B64D 90 03 BCC &B652 B64F 06 A0 ASL &A0 B651 2A ROL A B652 CA DEX B653 10 FA BPL &B64F B655 85 A1 STA &A1 B657 60 RTS ;CONTROL REGISTER ROUTINE B658 A5 CF LDA &CF B65A 29 03 AND #&03 ;CODE CHANGED FROM HERE B65C DA PHX B65D 20 48 BF JSR &BF48 ; BF48 AA TAX BF49 BD 40 BF LDA &BF40,X ;DATA TABLE BF4C 85 F9 STA &F9 BF4E AD E3 10 LDA &10E3 BF51 29 40 AND #&40 BF53 4A LSR A BF54 49 20 EOR #&20 BF56 05 F9 ORA &F9 BF58 60 RTS ; B660 FA PLX B661 8D 24 FE STA &FE24 ;1770 CTRL REG B664 60 RTS ; B665 20 00 A3 JSR &A300 B668 20 1C A8 JSR &A81C B66B 8A TXA B66C 20 5F A4 JSR &A45F B66F 8D 8E 10 STA &108E B672 60 RTS ; B673 20 3A B7 JSR &B73A B676 20 03 BA JSR &BA03 B679 29 40 AND #&40 B67B 60 RTS ; B67C 20 29 A3 JSR &A329 B67F A9 00 LDA #&00 B681 20 B9 B6 JSR &B6B9 B684 A5 CF LDA &CF B686 29 01 AND #&01 B688 AA TAX B689 A9 00 LDA #&00 B68B 9D 8C 10 STA &108C,X B68E 60 RTS ; B68F A5 BA LDA &BA B691 2C E0 10 BIT &10E0 B694 50 01 BVC &B697 B696 0A ASL A B697 C9 00 CMP #&00 B699 F0 E1 BEQ &B67C B69B 20 29 A3 JSR &A329 B69E 48 PHA B69F A5 CF LDA &CF B6A1 29 01 AND #&01 B6A3 AA TAX B6A4 BD 8C 10 LDA &108C,X B6A7 20 B2 B9 JSR &B9B2 B6AA 68 PLA B6AB 9D 8C 10 STA &108C,X B6AE 20 F7 B9 JSR &B9F7 B6B1 A9 10 LDA #&10 B6B3 20 B9 B6 JSR &B6B9 B6B6 29 10 AND #&10 B6B8 60 RTS ; B6B9 0D 8E 10 ORA &108E B6BC 20 EF B9 JSR &B9EF B6BF 4C 03 BA JMP &BA03 ; B6C2 20 CB B6 JSR &B6CB B6C5 F0 03 BEQ &B6CA B6C7 4C D8 B9 JMP &B9D8 ; B6CA 60 RTS ; B6CB 20 29 A3 JSR &A329 B6CE 20 3A B7 JSR &B73A B6D1 A2 04 LDX #&04 B6D3 2C E3 10 BIT &10E3 B6D6 50 0F BVC &B6E7 B6D8 AD E3 10 LDA &10E3 B6DB 09 40 ORA #&40 B6DD A0 12 LDY #&12 B6DF 20 0C B7 JSR &B70C B6E2 F0 25 BEQ &B709 B6E4 CA DEX B6E5 F0 0F BEQ &B6F6 B6E7 AD E3 10 LDA &10E3 B6EA 29 BF AND #&BF B6EC A0 0A LDY #&0A B6EE 20 0C B7 JSR &B70C B6F1 F0 16 BEQ &B709 B6F3 CA DEX B6F4 D0 E2 BNE &B6D8 B6F6 AD E3 10 LDA &10E3 B6F9 29 BF AND #&BF B6FB 8D E3 10 STA &10E3 B6FE 20 58 B6 JSR &B658 B701 A9 0A LDA #&0A B703 8D E1 10 STA &10E1 B706 A9 18 LDA #&18 B708 60 RTS ; B709 A9 00 LDA #&00 B70B 60 RTS ; B70C 8D E3 10 STA &10E3 B70F 8C E1 10 STY &10E1 B712 A0 14 LDY #&14 B714 B9 6F BA LDA &BA6F,Y B717 99 00 0D STA &0D00,Y B71A 88 DEY B71B 10 F7 BPL &B714 B71D A9 00 LDA #&00 B71F 85 A0 STA &A0 B721 20 58 B6 JSR &B658 B724 A9 C0 LDA #&C0 B726 20 EF B9 JSR &B9EF B729 20 03 BA JSR &BA03 B72C 48 PHA B72D A0 03 LDY #&03 B72F B9 90 10 LDA &1090,Y B732 99 02 10 STA &1002,Y B735 88 DEY B736 10 F7 BPL &B72F B738 68 PLA B739 60 RTS ; B73A A9 18 LDA #&18 B73C 20 EF B9 JSR &B9EF B73F A2 0F LDX #&0F B741 CA DEX B742 D0 FD BNE &B741 B744 A9 D0 LDA #&D0 B746 4C EF B9 JMP &B9EF B749 60 RTS ; B74A 20 29 A3 JSR &A329 B74D A9 00 LDA #&00 B74F 85 BB STA &BB B751 85 A0 STA &A0 B753 AD E1 10 LDA &10E1 B756 85 A1 STA &A1 B758 A9 04 LDA #&04 B75A 8D 00 10 STA &1000 B75D 20 29 A3 JSR &A329 B760 20 D6 A7 JSR &A7D6 B763 A2 0A LDX #&0A B765 CA DEX B766 D0 FD BNE &B765 B768 AD 28 FE LDA &FE28 ;1770 STATUS REGISTER B76B 48 PHA B76C 20 8F B6 JSR &B68F B76F A5 BA LDA &BA B771 20 A8 B9 JSR &B9A8 B774 68 PLA B775 30 19 BMI &B790 B777 AD 00 10 LDA &1000 B77A C9 01 CMP #&01 B77C D0 12 BNE &B790 B77E 48 PHA B77F A9 04 LDA #&04 B781 8D 00 10 STA &1000 B784 A2 02 LDX #&02 B786 20 99 B7 JSR &B799 B789 CA DEX B78A D0 FA BNE &B786 B78C 68 PLA B78D 8D 00 10 STA &1000 B790 20 99 B7 JSR &B799 B793 48 PHA B794 20 A0 B9 JSR &B9A0 B797 68 PLA B798 60 RTS ; B799 20 29 A3 JSR &A329 B79C A5 A0 LDA &A0 B79E 48 PHA B79F A5 A1 LDA &A1 B7A1 48 PHA B7A2 20 31 B8 JSR &B831 B7A5 AD 01 10 LDA &1001 B7A8 8D 2D 0D STA &0D2D B7AB A5 A0 LDA &A0 B7AD F0 02 BEQ &B7B1 B7AF E6 A1 INC &A1 B7B1 AD 00 10 LDA &1000 B7B4 29 05 AND #&05 B7B6 F0 14 BEQ &B7CC B7B8 6A ROR A B7B9 B0 15 BCS &B7D0 B7BB A9 4C LDA #&4C B7BD 8D 06 0D STA &0D06 B7C0 A9 11 LDA #&11 B7C2 8D 07 0D STA &0D07 B7C5 A9 0D LDA #&0D B7C7 8D 08 0D STA &0D08 B7CA D0 10 BNE &B7DC B7CC A0 07 LDY #&07 B7CE D0 09 BNE &B7D9 B7D0 A9 00 LDA #&00 B7D2 85 A0 STA &A0 B7D4 20 3D B8 JSR &B83D B7D7 A0 04 LDY #&04 B7D9 20 07 B8 JSR &B807 B7DC A5 F4 LDA &F4 B7DE 8D 38 0D STA &0D38 B7E1 A5 BB LDA &BB B7E3 20 F3 B9 JSR &B9F3 B7E6 AC 00 10 LDY &1000 B7E9 B9 1A BA LDA &BA1A,Y B7EC 20 EF B9 JSR &B9EF B7EF A2 1E LDX #&1E B7F1 CA DEX B7F2 D0 FD BNE &B7F1 B7F4 20 2C 0D JSR &0D2C B7F7 68 PLA B7F8 85 A1 STA &A1 B7FA 68 PLA B7FB 85 A0 STA &A0 B7FD 20 11 BA JSR &BA11 B800 AC 00 10 LDY &1000 B803 39 1F BA AND &BA1F,Y B806 60 RTS ; B807 AD D5 10 LDA &10D5 B80A F0 1A BEQ &B826 B80C A9 E5 LDA #&E5 B80E 99 00 0D STA &0D00,Y B811 A9 FE LDA #&FE B813 99 01 0D STA &0D01,Y B816 A9 4C LDA #&4C B818 8D 09 0D STA &0D09 B81B A9 11 LDA #&11 B81D 8D 0A 0D STA &0D0A B820 A9 0D LDA #&0D B822 8D 0B 0D STA &0D0B B825 60 RTS ; B826 A5 A6 LDA &A6 B828 99 00 0D STA &0D00,Y B82B A5 A7 LDA &A7 B82D 99 01 0D STA &0D01,Y B830 60 RTS ; B831 A0 3C LDY #&3C B833 B9 24 BA LDA &BA24,Y B836 99 00 0D STA &0D00,Y B839 88 DEY B83A 10 F7 BPL &B833 B83C 60 RTS ; B83D A0 0D LDY #&0D B83F B9 61 BA LDA &BA61,Y B842 99 03 0D STA &0D03,Y B845 88 DEY B846 10 F7 BPL &B83F B848 A9 FC LDA #&FC B84A 8D 23 0D STA &0D23 B84D 60 RTS ; B84E A9 0A LDA #&0A B850 2C E3 10 BIT &10E3 B853 50 02 BVC &B857 B855 A9 12 LDA #&12 B857 85 A6 STA &A6 B859 0A ASL A B85A 0A ASL A B85B 85 A7 STA &A7 B85D A6 BB LDX &BB B85F A0 00 LDY #&00 B861 A5 BA LDA &BA B863 99 A0 11 STA &11A0,Y B866 C8 INY B867 A9 00 LDA #&00 B869 99 A0 11 STA &11A0,Y B86C C8 INY B86D 8A TXA B86E 99 A0 11 STA &11A0,Y B871 C8 INY B872 A9 01 LDA #&01 B874 99 A0 11 STA &11A0,Y B877 C8 INY B878 E8 INX B879 E4 A6 CPX &A6 B87B 90 02 BCC &B87F B87D A2 00 LDX #&00 B87F C4 A7 CPY &A7 B881 90 DE BCC &B861 B883 A9 A0 LDA #&A0 B885 85 A6 STA &A6 B887 A9 11 LDA #&11 B889 85 A7 STA &A7 B88B A9 12 LDA #&12 B88D 85 A2 STA &A2 B88F 85 A4 STA &A4 B891 A9 13 LDA #&13 B893 85 A3 STA &A3 B895 A9 15 LDA #&15 B897 85 A5 STA &A5 B899 A2 00 LDX #&00 B89B 2C E3 10 BIT &10E3 B89E 50 02 BVC &B8A2 B8A0 A2 23 LDX #&23 B8A2 A0 05 LDY #&05 B8A4 20 E5 B8 JSR &B8E5 B8A7 88 DEY B8A8 D0 FA BNE &B8A4 B8AA A0 0A LDY #&0A B8AC 2C E3 10 BIT &10E3 B8AF 50 02 BVC &B8B3 B8B1 A0 12 LDY #&12 B8B3 8A TXA B8B4 48 PHA B8B5 20 E5 B8 JSR &B8E5 B8B8 90 FB BCC &B8B5 B8BA 68 PLA B8BB AA TAX B8BC 88 DEY B8BD D0 F4 BNE &B8B3 B8BF A9 00 LDA #&00 B8C1 20 38 B9 JSR &B938 B8C4 20 8F B6 JSR &B68F B8C7 A9 0F LDA #&0F B8C9 2C E3 10 BIT &10E3 B8CC 50 02 BVC &B8D0 B8CE A9 27 LDA #&27 B8D0 85 A0 STA &A0 B8D2 A0 23 LDY #&23 B8D4 B9 84 BA LDA &BA84,Y B8D7 99 00 0D STA &0D00,Y B8DA 88 DEY B8DB 10 F7 BPL &B8D4 B8DD A9 F4 LDA #&F4 B8DF 20 EF B9 JSR &B9EF B8E2 4C 03 BA JMP &BA03 ; B8E5 8A TXA B8E6 48 PHA B8E7 98 TYA B8E8 48 PHA B8E9 A0 00 LDY #&00 B8EB 38 SEC B8EC BD 56 B9 LDA &B956,X B8EF 30 12 BMI &B903 B8F1 F0 09 BEQ &B8FC B8F3 85 A0 STA &A0 B8F5 BD 57 B9 LDA &B957,X B8F8 20 38 B9 JSR &B938 B8FB 18 CLC B8FC 68 PLA B8FD A8 TAY B8FE 68 PLA B8FF AA TAX B900 E8 INX B901 E8 INX B902 60 RTS ; B903 BD 57 B9 LDA &B957,X B906 D0 1C BNE &B924 B908 A9 01 LDA #&01 B90A 85 A0 STA &A0 B90C A2 04 LDX #&04 B90E A0 00 LDY #&00 B910 20 15 9E JSR &9E15 B913 20 38 B9 JSR &B938 B916 E6 A6 INC &A6 B918 D0 02 BNE &B91C B91A E6 A7 INC &A7 B91C CA DEX B91D D0 EF BNE &B90E B91F 85 A1 STA &A1 B921 4C FB B8 JMP &B8FB ; B924 A6 A1 LDX &A1 B926 BD 9C B9 LDA &B99C,X B929 85 A0 STA &A0 B92B A2 08 LDX #&08 B92D A9 E5 LDA #&E5 B92F 20 38 B9 JSR &B938 B932 CA DEX B933 D0 F8 BNE &B92D B935 4C FB B8 JMP &B8FB ; B938 A0 00 LDY #&00 B93A 91 A2 STA (&A2),Y B93C A5 A0 LDA &A0 B93E 91 A4 STA (&A4),Y B940 C6 A4 DEC &A4 B942 E6 A4 INC &A4 B944 D0 05 BNE &B94B B946 38 SEC B947 E9 01 SBC #&01 B949 91 A4 STA (&A4),Y B94B E6 A2 INC &A2 B94D E6 A4 INC &A4 B94F D0 04 BNE &B955 B951 E6 A3 INC &A3 B953 E6 A5 INC &A5 B955 60 RTS ; B956 10 FF BPL &B957 B958 03 ??? B959 00 BRK B95A 03 ??? B95B 00 BRK B95C 01 FC ORA (&FC,X) B95E 0B ??? B95F FF ??? B960 03 ??? B961 00 BRK B962 03 ??? B963 00 BRK B964 01 FE ORA (&FE,X) B966 FF ??? B967 00 BRK B968 01 F7 ORA (&F7,X) B96A 0B ??? B96B FF ??? B96C 03 ??? B96D 00 BRK B96E 03 ??? B96F 00 BRK B970 01 FB ORA (&FB,X) B972 FF ??? B973 01 01 ORA (&01,X) B975 F7 ??? B976 10 FF BPL &B977 B978 00 BRK B979 28 PLP B97A 4E 0C 00 LSR &000C B97D 03 ??? B97E F6 01 INC &01,X B980 FC ??? B981 19 4E 0C ORA &0C4E,Y B984 00 BRK B985 03 ??? B986 F5 01 SBC &01,X B988 FE FF 00 INC &00FF,X B98B 01 F7 ORA (&F7,X) B98D 16 4E ASL &4E,X B98F 0C 00 03 TSB &0300 B992 F5 01 SBC &01,X B994 FB ??? B995 FF ??? B996 01 01 ORA (&01,X) B998 F7 ??? B999 16 4E ASL &4E,X B99B 00 BRK B99C 10 20 BPL &B9BE B99E 40 RTI B99F 80 A5 BRA &B946 ; B9A1 BA TSX B9A2 2C E0 10 BIT &10E0 B9A5 50 01 BVC &B9A8 B9A7 0A ASL A B9A8 48 PHA B9A9 A5 CF LDA &CF B9AB 29 01 AND #&01 B9AD AA TAX B9AE 68 PLA B9AF 9D 8C 10 STA &108C,X B9B2 8D 29 FE STA &FE29 ;1770 TRACK REGISTER B9B5 60 RTS ; B9B6 20 47 A3 JSR &A347 ; B9B9 C5 B9BA 20 B9BB fault B9C0 00 ; B9C1 20 62 A3 JSR &A362 ; B9C4 C5 B9C5 Cannot recalibrate B9D7 00 ; B9D8 20 62 A3 b# JSR &A362 ; B9DB C5 44 ED CMP &44 B9DC Disk not formatted B9EE 00 ; B9EF 8D 28 FE STA &FE28 ;1770 COMMAND REGISTER B9F2 60 RTS ; B9F3 8D 2A FE STA &FE2A ;1770 SECTOR REGISTER B9F6 60 RTS ; B9F7 8D 2B FE STA &FE2B ;1770 DATA REGISTER B9FA 60 RTS ; B9FB AD 28 FE LDA &FE28 ;1770 STATUS REGISTER B9FE 29 80 AND #&80 BA00 49 80 EOR #&80 BA02 60 RTS ; BA03 20 29 A3 JSR &A329 BA06 A2 FF LDX #&FF BA08 CA DEX BA09 D0 FD BNE &BA08 BA0B 20 11 BA JSR &BA11 BA0E 6A ROR A BA0F B0 FA BCS &BA0B BA11 AD 28 FE LDA &FE28 ;1770 STATUS REGISTER BA14 29 7F AND #&7F BA16 8D 8F 10 STA &108F BA19 60 RTS ; BA1A 90 B4 90 B5 90 3C BA20 7C 1C 5C 3C ; BA24 8D 2A 0D STA &0D2A BA27 AD 2B FE LDA &FE2B ;1770 DATA REGISTER BA2A 8D FF FF STA &FFFF ;???????????????????? BA2D EE 07 0D INC &0D07 BA30 D0 03 BNE &BA35 BA32 EE 08 0D INC &0D08 BA35 C6 A0 DEC &A0 BA37 D0 14 BNE &BA4D BA39 C6 A1 DEC &A1 BA3B D0 10 BNE &BA4D BA3D A9 40 LDA #&40 BA3F 8D 00 0D STA &0D00 BA42 A9 CE LDA #&CE BA44 69 01 ADC #&01 BA46 90 00 BCC &BA48 BA48 A9 D0 LDA #&D0 BA4A 8D 28 FE STA &FE28 ;1770 COMMAND REGISTER BA4D A9 00 LDA #&00 BA4F 40 RTI BA50 A9 0E LDA #&0E BA52 8D 30 FE STA &FE30 ;ROM PAGING REGISTER BA55 AD 28 FE LDA &FE28 ;1770 COMMAND REGISTER BA58 6A ROR A BA59 B0 FA BCS &BA55 BA5B A9 00 LDA #&00 BA5D 8D 30 FE STA &FE30 ;ROM PAGING REGISTER BA60 60 RTS ; BA61 AD FF FF LDA &FFFF ;??????????????????? BA64 8D 2B FE STA &FE2B ;1770 DATA REGISTER BA67 EE 04 0D INC &0D04 BA6A D0 03 BNE &BA6F BA6C EE 05 0D INC &0D05 BA6F 8D 13 0D STA &0D13 BA72 8C 11 0D STY &0D11 BA75 A4 A0 LDY &A0 BA77 AD 2B FE LDA &FE2B ;1770 DATA REGISTER BA7A 99 90 10 STA &1090,Y BA7D E6 A0 INC &A0 BA7F A0 00 LDY #&00 BA81 A9 00 LDA #&00 BA83 40 RTI BA84 48 PHA BA85 AD 12 13 LDA &1312 BA88 8D 2B FE STA &FE2B ;1770 DATA REGISTER BA8B C6 A0 DEC &A0 BA8D D0 0A BNE &BA99 BA8F EE 02 0D INC &0D02 BA92 D0 0A BNE &BA9E BA94 EE 03 0D INC &0D03 BA97 68 PLA BA98 40 RTI BA99 10 FC BPL &BA97 BA9B EE 1F 0D INC &0D1F BA9E EE 1E 0D INC &0D1E BAA1 AD 12 15 LDA &1512 BAA4 85 A0 STA &A0 BAA6 68 PLA BAA7 40 RTI ; BAA8 EA NOP BAA9 C9 FE CMP #&FE BAAB 90 5C BCC &BB09 BAAD D0 1B BNE &BACA BAAF C0 00 CPY #&00 BAB1 F0 56 BEQ &BB09 BAB3 A2 06 LDX #&06 BAB5 A9 14 LDA #&14 BAB7 20 F4 FF JSR &FFF4 ;OSBYTE &14 FONT EXPLOSION/DEFINITION BABA 2C E0 FE BIT &FEE0 ;TUBE BABD 10 FB BPL &BABA BABF AD E1 FE LDA &FEE1 ;TUBE BAC2 F0 43 BEQ &BB07 BAC4 20 EE FF JSR &FFEE ;OSWRCH BAC7 4C BA BA JMP &BABA ;BRA ; BACA A9 AD LDA #&AD BACC 8D 20 02 STA &0220 BACF A9 06 LDA #&06 BAD1 8D 21 02 STA &0221 BAD4 A9 16 LDA #&16 BAD6 8D 02 02 STA &0202 BAD9 A9 00 LDA #&00 BADB 8D 03 02 STA &0203 BADE A9 8E LDA #&8E BAE0 8D E0 FE STA &FEE0 ;TUBE BAE3 A0 00 LDY #&00 BAE5 B9 4B BB LDA &BB4B,Y BAE8 99 00 04 STA &0400,Y BAEB B9 4B BC LDA &BC4B,Y BAEE 99 00 05 STA &0500,Y BAF1 B9 4B BD LDA &BD4B,Y BAF4 99 00 06 STA &0600,Y BAF7 88 DEY BAF8 D0 EB BNE &BAE5 BAFA 20 21 04 JSR &0421 BAFD A2 60 LDX #&60 BAFF BD 0A BB LDA &BB0A,X BB02 95 16 STA &16,X BB04 CA DEX BB05 10 F8 BPL &BAFF BB07 A9 00 LDA #&00 BB09 60 RTS ; BB0A A9 FF LDA #&FF BB0C 20 9E 06 JSR &069E BB0F AD E3 FE LDA &FEE3 BB12 A9 00 LDA #&00 BB14 20 95 06 JSR &0695 BB17 A8 TAY BB18 B1 FD LDA (&FD),Y BB1A 20 95 06 JSR &0695 BB1D C8 INY BB1E B1 FD LDA (&FD),Y BB20 20 95 06 JSR &0695 BB23 AA TAX BB24 D0 F7 BNE &BB1D BB26 A2 FF LDX #&FF BB28 9A TXS BB29 58 CLI BB2A 2C E0 FE BIT &FEE0 ;TUBE BB2D 10 06 BPL &BB35 BB2F AD E1 FE LDA &FEE1 ;TUBE BB32 20 EE FF JSR &FFEE ;OSWRCH BB35 2C E2 FE BIT &FEE2 ;TUBE BB38 10 F0 BPL &BB2A BB3A 2C E0 FE BIT &FEE0 ;TUBE BB3D 30 F0 BMI &BB2F BB3F AE E3 FE LDX &FEE3 ;TUBE BB42 86 51 STX &51 BB44 6C 00 05 JMP (&0500) ; BB47 00 80 00 00 ;DATA TABLE BB4B 4C 84 04 JMP &0484 ; BB4E 4C A7 06 JMP &06A7 ; BB51 C9 80 CMP #&80 BB53 90 2B BCC &BB80 BB55 C9 C0 CMP #&C0 BB57 B0 1A BCS &BB73 BB59 09 40 ORA #&40 BB5B C5 15 CMP &15 BB5D D0 20 BNE &BB7F BB5F 08 PHP BB60 78 SEI BB61 A9 05 LDA #&05 BB63 20 9E 06 JSR &069E BB66 A5 15 LDA &15 BB68 20 9E 06 JSR &069E BB6B 28 PLP BB6C A9 80 LDA #&80 BB6E 85 15 STA &15 BB70 85 14 STA &14 BB72 60 RTS ; BB73 06 14 ASL &14 BB75 B0 06 BCS &BB7D BB77 C5 15 CMP &15 BB79 F0 04 BEQ &BB7F BB7B 18 CLC BB7C 60 RTS ; BB7D 85 15 STA &15 BB7F 60 RTS ; BB80 08 PHP BB81 78 SEI BB82 84 13 STY &13 BB84 86 12 STX &12 BB86 20 9E 06 JSR &069E BB89 AA TAX BB8A A0 03 LDY #&03 BB8C A5 15 LDA &15 BB8E 20 9E 06 JSR &069E BB91 B1 12 LDA (&12),Y BB93 20 9E 06 JSR &069E BB96 88 DEY BB97 10 F8 BPL &BB91 BB99 A0 18 LDY #&18 BB9B 8C E0 FE STY &FEE0 BB9E BD 18 05 LDA &0518,X BBA1 8D E0 FE STA &FEE0 BBA4 4A LSR A BBA5 4A LSR A BBA6 90 06 BCC &BBAE BBA8 2C E5 FE BIT &FEE5 BBAB 2C E5 FE BIT &FEE5 BBAE 20 9E 06 JSR &069E BBB1 2C E6 FE BIT &FEE6 BBB4 50 FB BVC &BBB1 BBB6 B0 0D BCS &BBC5 BBB8 E0 04 CPX #&04 BBBA D0 11 BNE &BBCD BBBC 20 14 04 JSR &0414 BBBF 20 95 06 JSR &0695 BBC2 4C 32 00 JMP &0032 ; BBC5 4A LSR A BBC6 90 05 BCC &BBCD BBC8 A0 88 LDY #&88 BBCA 8C E0 FE STY &FEE0 BBCD 28 PLP BBCE 60 RTS ; BBCF 58 CLI BBD0 B0 11 BCS &BBE3 BBD2 D0 03 BNE &BBD7 BBD4 4C 9C 05 JMP &059C ; BBD7 A2 00 LDX #&00 BBD9 A0 FF LDY #&FF BBDB A9 FD LDA #&FD BBDD 20 F4 FF JSR &FFF4 BBE0 8A TXA BBE1 F0 D9 BEQ &BBBC BBE3 A9 FF LDA #&FF BBE5 20 06 04 JSR &0406 BBE8 90 F9 BCC &BBE3 BBEA 20 D2 04 JSR &04D2 BBED A9 07 LDA #&07 BBEF 20 CB 04 JSR &04CB BBF2 A0 00 LDY #&00 BBF4 84 00 STY &00 BBF6 B1 00 LDA (&00),Y BBF8 8D E5 FE STA &FEE5 ;TUBE BBFB EA NOP BBFC EA NOP BBFD EA NOP BBFE C8 INY BBFF D0 F5 BNE &BBF6 BC01 E6 54 INC &54 BC03 D0 06 BNE &BC0B BC05 E6 55 INC &55 BC07 D0 02 BNE &BC0B BC09 E6 56 INC &56 BC0B E6 01 INC &01 BC0D 24 01 BIT &01 BC0F 50 DC BVC &BBED BC11 20 D2 04 JSR &04D2 BC14 A9 04 LDA #&04 BC16 A0 00 LDY #&00 BC18 A2 53 LDX #&53 BC1A 4C 06 04 JMP &0406 ; BC1D A9 80 LDA #&80 BC1F 85 54 STA &54 BC21 85 01 STA &01 BC23 A9 20 LDA #&20 BC25 2D 06 80 AND &8006 ;ROM TYPE BC28 A8 TAY BC29 84 53 STY &53 BC2B F0 19 BEQ &BC46 BC2D AE 07 80 LDX &8007 ;VERSION No. BC30 E8 INX BC31 BD 00 80 LDA &8000,X ;LANGUAGE ENTRY BC34 D0 FA BNE &BC30 BC36 BD 01 80 LDA &8001,X ;LANGUAGE ENTRY+1 BC39 85 53 STA &53 BC3B BD 02 80 LDA &8002,X ;LANGUAGE ENTRY+2 BC3E 85 54 STA &54 BC40 BC 03 80 LDY &8003,X ;SERVICE ENTRY BC43 BD 04 80 LDA &8004,X ;SERVICE ENTRY+1 BC46 85 56 STA &56 BC48 84 55 STY &55 BC4A 60 RTS ;DATA TABLE BC4B 37 BC4C 05 96 BC4E 05 F2 BC50 05 07 BC52 06 27 BC54 06 68 BC56 06 5E BC58 05 2D BC5A 05 20 BC5C 05 42 BC5E 05 A9 BC60 05 D1 BC62 05 86 BC64 88 BC65 96 98 BC67 18 BC68 18 BC69 82 BC6A 18 BC6B 20 C5 06 JSR &06C5 BC6E A8 TAY BC6F 20 C5 06 JSR &06C5 BC72 20 D4 FF JSR &FFD4 ;OSBPUT BC75 4C 9C 05 JMP &059C ; BC78 20 C5 06 JSR &06C5 BC7B A8 TAY BC7C 20 D7 FF JSR &FFD7 ;OSBGET BC7F 4C 3A 05 JMP &053A ; BC82 20 E0 FF JSR &FFE0 ;OSRDCH BC85 6A ROR A BC86 20 95 06 JSR &0695 BC89 2A ROL A BC8A 4C 9E 05 JMP &059E ; BC8D 20 C5 06 JSR &06C5 BC90 F0 0B BEQ &BC9D BC92 48 PHA BC93 20 82 05 JSR &0582 BC96 68 PLA BC97 20 CE FF JSR &FFCE ;OSFIND BC9A 4C 9E 05 JMP &059E ; BC9D 20 C5 06 JSR &06C5 BCA0 A8 TAY BCA1 A9 00 LDA #&00 BCA3 20 CE FF JSR &FFCE ;OSFIND BCA6 4C 9C 05 JMP &059C ; BCA9 20 C5 06 JSR &06C5 BCAC A8 TAY BCAD A2 04 LDX #&04 BCAF 20 C5 06 JSR &06C5 BCB2 95 FF STA &FF,X BCB4 CA DEX BCB5 D0 F8 BNE &BCAF BCB7 20 C5 06 JSR &06C5 BCBA 20 DA FF JSR &FFDA ;OSARGS BCBD 20 95 06 JSR &0695 BCC0 A2 03 LDX #&03 BCC2 B5 00 LDA &00,X BCC4 20 95 06 JSR &0695 BCC7 CA DEX BCC8 10 F8 BPL &BCC2 BCCA 4C 36 00 JMP &0036 ; BCCD A2 00 LDX #&00 BCCF A0 00 LDY #&00 BCD1 20 C5 06 JSR &06C5 BCD4 99 00 07 STA &0700,Y BCD7 C8 INY BCD8 F0 04 BEQ &BCDE BCDA C9 0D CMP #&0D BCDC D0 F3 BNE &BCD1 BCDE A0 07 LDY #&07 BCE0 60 RTS ; BCE1 20 82 05 JSR &0582 BCE4 20 F7 FF JSR &FFF7 ;OSCLI BCE7 A9 7F LDA #&7F BCE9 2C E2 FE BIT &FEE2 ;TUBE BCEC 50 FB BVC &BCE9 BCEE 8D E3 FE STA &FEE3 ;TUBE BCF1 4C 36 00 JMP &0036 ; BCF4 A2 10 LDX #&10 BCF6 20 C5 06 JSR &06C5 BCF9 95 01 STA &01,X BCFB CA DEX BCFC D0 F8 BNE &BCF6 BCFE 20 82 05 JSR &0582 BD01 86 00 STX &00 BD03 84 01 STY &01 BD05 A0 00 LDY #&00 BD07 20 C5 06 JSR &06C5 BD0A 20 DD FF JSR &FFDD ;OSFILE BD0D 20 95 06 JSR &0695 BD10 A2 10 LDX #&10 BD12 B5 01 LDA &01,X BD14 20 95 06 JSR &0695 BD17 CA DEX BD18 D0 F8 BNE &BD12 BD1A F0 D5 BEQ &BCF1 BD1C A2 0D LDX #&0D BD1E 20 C5 06 JSR &06C5 BD21 95 FF STA &FF,X BD23 CA DEX BD24 D0 F8 BNE &BD1E BD26 20 C5 06 JSR &06C5 BD29 A0 00 LDY #&00 BD2B 20 D1 FF JSR &FFD1 ;OSGBPB BD2E 48 PHA BD2F A2 0C LDX #&0C BD31 B5 00 LDA &00,X BD33 20 95 06 JSR &0695 BD36 CA DEX BD37 10 F8 BPL &BD31 BD39 68 PLA BD3A 4C 3A 05 JMP &053A ; BD3D 20 C5 06 JSR &06C5 BD40 AA TAX BD41 20 C5 06 JSR &06C5 BD44 20 F4 FF JSR &FFF4 ;OSBYTE BD47 2C E2 FE BIT &FEE2 ;TUBE BD4A 50 FB BVC &BD47 BD4C 8E E3 FE STX &FEE3 ;TUBE BD4F 4C 36 00 JMP &0036 ; BD52 20 C5 06 JSR &06C5 BD55 AA TAX BD56 20 C5 06 JSR &06C5 BD59 A8 TAY BD5A 20 C5 06 JSR &06C5 BD5D 20 F4 FF JSR &FFF4 ;OSBYTE BD60 49 9D EOR #&9D BD62 F0 EB BEQ &BD4F BD64 6A ROR A BD65 20 95 06 JSR &0695 BD68 2C E2 FE BIT &FEE2 ;TUBE BD6B 50 FB BVC &BD68 BD6D 8C E3 FE STY &FEE3 ;TUBE BD70 70 D5 BVS &BD47 BD72 20 C5 06 JSR &06C5 BD75 A8 TAY BD76 2C E2 FE BIT &FEE2 ;TUBE BD79 10 FB BPL &BD76 BD7B AE E3 FE LDX &FEE3 ;TUBE BD7E CA DEX BD7F 30 0F BMI &BD90 BD81 2C E2 FE BIT &FEE2 ;TUBE BD84 10 FB BPL &BD81 BD86 AD E3 FE LDA &FEE3 ;TUBE BD89 9D 28 01 STA &0128,X BD8C CA DEX BD8D 10 F2 BPL &BD81 BD8F 98 TYA BD90 A2 28 LDX #&28 BD92 A0 01 LDY #&01 BD94 20 F1 FF JSR &FFF1 ;OSWORD BD97 2C E2 FE BIT &FEE2 ;TUBE BD9A 10 FB BPL &BD97 BD9C AE E3 FE LDX &FEE3 ;TUBE BD9F CA DEX BDA0 30 0E BMI &BDB0 BDA2 BC 28 01 LDY &0128,X BDA5 2C E2 FE BIT &FEE2 ;TUBE BDA8 50 FB BVC &BDA5 BDAA 8C E3 FE STY &FEE3 ;TUBE BDAD CA DEX BDAE 10 F2 BPL &BDA2 BDB0 4C 36 00 JMP &0036 ; BDB3 A2 04 LDX #&04 BDB5 20 C5 06 JSR &06C5 BDB8 95 00 STA &00,X BDBA CA DEX BDBB 10 F8 BPL &BDB5 BDBD E8 INX BDBE A0 00 LDY #&00 BDC0 8A TXA BDC1 20 F1 FF JSR &FFF1 ;OSWORD BDC4 90 05 BCC &BDCB BDC6 A9 FF LDA #&FF BDC8 4C 9E 05 JMP &059E ; BDCB A2 00 LDX #&00 BDCD A9 7F LDA #&7F BDCF 20 95 06 JSR &0695 BDD2 BD 00 07 LDA &0700,X BDD5 20 95 06 JSR &0695 BDD8 E8 INX BDD9 C9 0D CMP #&0D BDDB D0 F5 BNE &BDD2 BDDD 4C 36 00 JMP &0036 ; BDE0 2C E2 FE BIT &FEE2 ;TUBE BDE3 50 FB BVC &BDE0 BDE5 8D E3 FE STA &FEE3 ;TUBE BDE8 60 RTS ; BDE9 2C E6 FE BIT &FEE6 ;TUBE BDEC 50 FB BVC &BDE9 BDEE 8D E7 FE STA &FEE7 ;TUBE BDF1 60 RTS ; BDF2 A5 FF LDA &FF BDF4 38 SEC BDF5 6A ROR A BDF6 30 0F BMI &BE07 BDF8 48 PHA BDF9 A9 00 LDA #&00 BDFB 20 BC 06 JSR &06BC BDFE 98 TYA BDFF 20 BC 06 JSR &06BC BE02 8A TXA BE03 20 BC 06 JSR &06BC BE06 68 PLA BE07 2C E0 FE BIT &FEE0 ;TUBE BE0A 50 FB BVC &BE07 BE0C 8D E1 FE STA &FEE1 ;TUBE BE0F 60 RTS ; BE10 2C E2 FE BIT &FEE2 ;TUBE BE13 10 FB BPL &BE10 BE15 AD E3 FE LDA &FEE3 ;TUBE BE18 60 RTS ; BE19 20 D2 A3 R# JSR &A3D2 ;COPYRIGHT NOTICE BE1C 83 8D 20 BE1F C O P Y R I G H T N O T I C E. BE3E 0D 0A BE40 FF BE41 60 RTS ; BE42 20 74 AD JSR &AD74 BE45 20 67 84 JSR &8467 BE48 20 19 BE JSR &BE19 BE4B 20 19 BE JSR &BE19 BE4E 20 D2 A3 JSR &A3D2 ; BE51 0D 0A 0A BE54 This Double Density Operating System BE78 0D 0A BE&A was developed for the BBC computer by BE9F 0D 0A 83 BEA2 SLOGGER SOFTWARE and OPUS SUPPLIES BEC4 0D 0A BEC6 Any unauthorised copying of this BEE6 0D 0A BEE8 Product is unlawfull and may result in BF0D 0D 0A BF0F Slogger or OPUS taking appropriate BF31 0D 0A BF33 action. BF3A 0D 0A 0A BF3D FF BF3E 60 RTS ; BF3F FF ;NEW ROUTINE FOR 1770 DIFFERENCES BF40 05 06 15 16 ;DATA TABLE BF44 FF FF FF FF ;FROM &B65A BF48 AA TAX BF49 BD 40 BF LDA &BF40,X BF4C 85 F9 STA &F9 BF4E AD E3 10 LDA &10E3 BF51 29 40 AND #&40 BF53 4A LSR A BF54 49 20 EOR #&20 BF56 05 F9 ORA &F9 BF58 60 RTS