0005 ; DISASSEMBLY OF %FRE COMMAND 0010 0015 ZA4 .DE $A4 0020 A6E0E .DE $6E0E 0025 A700A .DE $700A 0030 A700B .DE $700B 0035 A7229 .DE $7229 0040 J7464 .DE $7464 0045 J74BB .DE $74BB 0050 S754A .DE $754A 0055 S754F .DE $754F 0060 S7578 .DE $7578 0065 S758A .DE $758A 0070 S78AA .DE $78AA 0075 ; 0080 .BA $6D00 0085 6D00- AD 29 72 0090 LDA A7229 6D03- C9 32 0095 CMP #$32 ;2 6D05- F0 07 0100 BEQ B6D0E 0105 ; 6D07- C9 31 0110 CMP #$31 ;1 6D09- F0 13 0115 BEQ B6D1E 0120 ; 6D0B- 4C BB 74 0125 JMP J74BB 0130 ; 6D0E- 20 AA 78 0135 B6D0E JSR S78AA 6D11- 90 0B 0140 BCC B6D1E 0145 ; 6D13- A9 00 0150 LDA #$00 ;^@ 6D15- 8D 0A 70 0155 STA A700A 6D18- 8D 0B 70 0160 STA A700B 6D1B- EE 0A 70 0165 INC A700A 6D1E- 38 0170 B6D1E SEC 6D1F- D8 0175 CLD 6D20- A9 4F 0180 LDA #$4F ; 80 TRACKS, 27 FOR 40 TRACKS 6D22- ED 0A 70 0185 SBC A700A 6D25- 8D 07 6E 0190 STA A6E07 6D28- 38 0195 SEC 6D29- A9 10 0200 LDA #$10 ;^P 6D2B- ED 0B 70 0205 SBC A700B 6D2E- 8D 08 6E 0210 STA A6E08 6D31- A9 00 0215 LDA #$00 ;^@ 6D33- A2 05 0220 LDX #$05 ;^E 6D35- 9D 09 6E 0225 B6D35 STA A6E08+1,X 6D38- CA 0230 DEX 6D39- 10 FA 0235 BPL B6D35 0240 ; 6D3B- AE 07 6E 0245 LDX A6E07 6D3E- F0 2F 0250 BEQ B6D6F 0255 ; 6D40- F8 0260 B6D40 SED 6D41- 18 0265 CLC 6D42- AD 09 6E 0270 LDA A6E08+1 6D45- 69 48 0275 ADC #$48 ;H 6D47- 8D 09 6E 0280 STA A6E08+1 6D4A- AD 0A 6E 0285 LDA A6E0A 6D4D- 69 20 0290 ADC #$20 ; 6D4F- 8D 0A 6E 0295 STA A6E0A 6D52- AD 0B 6E 0300 LDA A6E0A+1 6D55- 69 00 0305 ADC #$00 ;^@ 6D57- 8D 0B 6E 0310 STA A6E0A+1 6D5A- 18 0315 CLC 6D5B- D8 0320 CLD 6D5C- AD 0D 6E 0325 LDA A6E0A+3 6D5F- 69 08 0330 ADC #$08 ;^H 6D61- 8D 0D 6E 0335 STA A6E0A+3 6D64- AD 0E 6E 0340 LDA A6E0E 6D67- 69 00 0345 ADC #$00 ;^@ 6D69- 8D 0E 6E 0350 STA A6E0E 6D6C- CA 0355 DEX 6D6D- D0 D1 0360 BNE B6D40 0365 ; 6D6F- AE 08 6E 0370 B6D6F LDX A6E08 6D72- F0 37 0375 BEQ B6DAB 0380 ; 6D74- F8 0385 B6D74 SED 6D75- 18 0390 CLC 6D76- AD 09 6E 0395 LDA A6E08+1 6D79- 69 28 0400 ADC #$28 ;( 6D7B- 8D 09 6E 0405 STA A6E08+1 6D7E- AD 0A 6E 0410 LDA A6E0A 6D81- 69 01 0415 ADC #$01 ;^A 6D83- 8D 0A 6E 0420 STA A6E0A 6D86- AD 0B 6E 0425 LDA A6E0A+1 6D89- 69 00 0430 ADC #$00 ;^@ 6D8B- 8D 0B 6E 0435 STA A6E0A+1 6D8E- D8 0440 CLD 6D8F- 18 0445 CLC 6D90- AD 0C 6E 0450 LDA A6E0A+2 6D93- 69 80 0455 ADC #$80 ;.^@ 6D95- 8D 0C 6E 0460 STA A6E0A+2 6D98- AD 0D 6E 0465 LDA A6E0A+3 6D9B- 69 00 0470 ADC #$00 ;^@ 6D9D- 8D 0D 6E 0475 STA A6E0A+3 6DA0- AD 0E 6E 0480 LDA A6E0E 6DA3- 69 00 0485 ADC #$00 ;^@ 6DA5- 8D 0E 6E 0490 STA A6E0E 6DA8- CA 0495 DEX 6DA9- D0 C9 0500 BNE B6D74 0505 ; 6DAB- AD 0B 6E 0510 B6DAB LDA A6E0A+1 6DAE- F0 03 0515 BEQ B6DB3 0520 ; 6DB0- 20 78 75 0525 JSR S7578 6DB3- AD 0A 6E 0530 B6DB3 LDA A6E0A 6DB6- 20 78 75 0535 JSR S7578 6DB9- AD 09 6E 0540 LDA A6E08+1 6DBC- 20 78 75 0545 JSR S7578 6DBF- A2 00 0550 LDX #$00 ;^@ 6DC1- BD F9 6D 0555 B6DC1 LDA A6DF9,X 6DC4- 20 4F 75 0560 JSR S754F 6DC7- E8 0565 INX 6DC8- E0 03 0570 CPX #$03 ;^C 6DCA- D0 F5 0575 BNE B6DC1 0580 ; 6DCC- AD 0E 6E 0585 LDA A6E0E 6DCF- F0 03 0590 BEQ B6DD4 0595 ; 6DD1- 20 78 75 0600 JSR S7578 6DD4- AD 0D 6E 0605 B6DD4 LDA A6E0A+3 6DD7- 20 78 75 0610 JSR S7578 6DDA- AD 0C 6E 0615 LDA A6E0A+2 6DDD- 20 78 75 0620 JSR S7578 6DE0- A9 29 0625 LDA #$29 ;) 6DE2- 20 4F 75 0630 JSR S754F 6DE5- 20 4A 75 0635 JSR S754A 6DE8- A2 FF 0640 LDX #$FF ;. 6DEA- E8 0645 B6DEA INX 6DEB- BD FC 6D 0650 LDA A6DFC,X 6DEE- 20 4F 75 0655 JSR S754F 6DF1- 10 F7 0660 BPL B6DEA 0665 ; 6DF3- 20 8A 75 0670 JSR S758A 6DF6- 4C 64 74 0675 JMP J7464 0680 ; 6DF9- 20 28 24 0685 A6DF9 .BY ' ($' 6DFC- 42 59 54 0690 A6DFC .BY 'BYTES FREE' 6DFF- 45 53 20 6E02- 46 52 45 6E05- 45 6E06- A0 0695 .BY $A0 0700 6E07- 0705 A6E07 .DS 1 6E08- 0710 A6E08 .DS 2 6E0A- 0715 A6E0A .DS 4 0720 .EN 0000,6E0E,6E0E >