0005 ; *FM DISASSEMBLED (FORMAT FLOPPY) 0010 ; USING DESSAINT'S DISASSEMBLER 0015 0020 ZA4 .DE $A4 0025 ZA5 .DE $A5 0030 A7210 .DE $7210 0035 A7211 .DE $7211 0040 A7212 .DE $7212 0045 A7213 .DE $7213 0050 A7214 .DE $7214 0055 A7215 .DE $7215 0060 A7216 .DE $7216 0065 A7217 .DE $7217 0070 A7218 .DE $7218 0075 A7219 .DE $7219 0080 A721A .DE $721A 0085 A721B .DE $721B 0090 A721C .DE $721C 0095 A7280 .DE $7280 0100 SET.2 .DE $73F5 0105 S746D .DE $746D 0110 S754F .DE $754F 0115 J7792 .DE $7792 0120 S7BEA .DE $7BEA 0125 S7C0C .DE $7C0C 0130 S7C38 .DE $7C38 0135 S7C41 .DE $7C41 0140 S7C63 .DE $7C63 0145 S7C6A .DE $7C6A 0150 S7C7C .DE $7C7C 0155 S7DC5 .DE $7DC5 0160 S7E7C .DE $7E7C 0165 S7EB6 .DE $7EB6 0170 IRQ.VEC .DE $A67E 0175 0180 ; DISK CONTROLLER LOCATIONS 0185 0190 DSK.REGB .DE $A880 0195 DSK.REGA .DE $A881 0200 DSK.IRF .DE $A88D 0205 ; 0210 .BA $6D00 0215 6D00- A9 F5 0220 LDA #L,SET.2 6D02- 8D 7E A6 0225 STA IRQ.VEC 6D05- A9 73 0230 LDA #H,SET.2 6D07- 8D 7F A6 0235 STA IRQ.VEC+1 6D0A- 20 3A 6D 0240 JSR S6D3A 6D0D- 20 BC 6E 0245 JSR S6EBC 6D10- A9 00 0250 LDA #$00 ;^@ 6D12- 8D 14 72 0255 STA A7214 6D15- 20 EA 7B 0260 JSR S7BEA 6D18- 20 B6 7E 0265 JSR S7EB6 6D1B- B0 17 0270 BCS B6D34 0275 ; 6D1D- 20 C5 7D 0280 JSR S7DC5 6D20- B0 12 0285 BCS B6D34 0290 ; 6D22- A9 F4 0295 LDA #$F4 ;.t 6D24- 20 7C 7E 0300 JSR S7E7C 6D27- B0 0B 0305 BCS B6D34 0310 ; 6D29- 20 63 6D 0315 JSR S6D63 6D2C- B0 06 0320 BCS B6D34 0325 ; 6D2E- 20 1C 6F 0330 JSR S6F1C 6D31- B0 01 0335 BCS B6D34 0340 ; 6D33- 00 0345 BRK 0350 ; 6D34- AD 1B 72 0355 B6D34 LDA A721B 6D37- 4C 92 77 0360 JMP J7792 0365 ; 6D3A- A9 00 0370 S6D3A LDA #$00 ;^@ 6D3C- A2 0D 0375 LDX #$0D ;^M 6D3E- 9D 10 72 0380 B6D3E STA A7210,X 6D41- CA 0385 DEX 6D42- 10 FA 0390 BPL B6D3E 0395 ; 6D44- A9 00 0400 LDA #$00 ;^@ 6D46- 8D 10 72 0405 STA A7210 6D49- A9 60 0410 LDA #$60 ;` 6D4B- 8D 11 72 0415 STA A7211 6D4E- A9 B2 0420 LDA #$B2 ;.2 6D50- 8D 12 72 0425 STA A7212 6D53- A9 6C 0430 LDA #$6C ;l 6D55- 8D 13 72 0435 STA A7213 6D58- A9 00 0440 LDA #$00 ;^@ 6D5A- 8D 16 72 0445 STA A7216 6D5D- A9 01 0450 LDA #$01 ;^A 6D5F- 8D 17 72 0455 STA A7217 6D62- 60 0460 RTS 0465 ; 6D63- A9 01 0470 S6D63 LDA #$01 ;^A 6D65- 8D 17 72 0475 STA A7217 6D68- 20 B5 6D 0480 JSR S6DB5 6D6B- 20 EA 7B 0485 JSR S7BEA 6D6E- 20 AA 6D 0490 JSR S6DAA 6D71- B0 28 0495 BCS B6D9B 0500 ; 6D73- A9 14 0505 LDA #$14 ;^T 6D75- 8D 1B 72 0510 STA A721B 6D78- 20 6A 7C 0515 JSR S7C6A 6D7B- D0 1E 0520 BNE B6D9B 0525 ; 6D7D- 20 CA 6F 0530 JSR S6FCA 6D80- B0 19 0535 BCS B6D9B 0540 ; 6D82- EE 16 72 0545 INC A7216 6D85- AD 16 72 0550 LDA A7216 0555 0560 ; NEXT INSTRUCTION DETERMINES NUMBER OF TRACKS 0565 ; $28 = 40 TRACKS, $50 = 80 TRACKS 0570 6D88- C9 50 0575 CMP #$50 ; 80 TRACKS 6D8A- F0 14 0580 BEQ B6DA0 0585 ; 6D8C- 20 5A 6E 0590 JSR S6E5A 6D8F- A9 15 0595 LDA #$15 ;^U 6D91- 8D 1B 72 0600 STA A721B 6D94- 20 6A 7C 0605 JSR S7C6A 6D97- 29 DD 0610 AND #$DD ;.] 6D99- F0 C8 0615 BEQ S6D63 0620 ; 6D9B- 20 63 7C 0625 B6D9B JSR S7C63 6D9E- 38 0630 SEC 6D9F- 60 0635 RTS 0640 ; 6DA0- 20 63 7C 0645 B6DA0 JSR S7C63 6DA3- A9 FF 0650 LDA #$FF ;. 6DA5- 8D 1B 72 0655 STA A721B 6DA8- 18 0660 CLC 6DA9- 60 0665 RTS 0670 ; 6DAA- A9 0B 0675 S6DAA LDA #$0B ;^K 6DAC- 8D 19 72 0680 STA A7219 6DAF- 20 41 7C 0685 JSR S7C41 6DB2- 4C 6C 6E 0690 JMP J6E6C 0695 ; 6DB5- D8 0700 S6DB5 CLD 6DB6- 18 0705 CLC 6DB7- A9 00 0710 LDA #$00 ;^@ 6DB9- 8D 10 72 0715 STA A7210 6DBC- 85 A4 0720 STA *ZA4 6DBE- A9 60 0725 LDA #$60 ;` 6DC0- 8D 11 72 0730 STA A7211 6DC3- 85 A5 0735 STA *ZA5 6DC5- A0 00 0740 LDY #$00 ;^@ 6DC7- A9 FF 0745 LDA #$FF ;. 6DC9- A2 10 0750 LDX #$10 ;^P 6DCB- 20 4E 6E 0755 JSR S6E4E 6DCE- A9 00 0760 B6DCE LDA #$00 ;^@ 6DD0- A2 06 0765 LDX #$06 ;^F 6DD2- 20 4E 6E 0770 JSR S6E4E 6DD5- A9 FE 0775 LDA #$FE ;.~ 6DD7- A2 01 0780 LDX #$01 ;^A 6DD9- 20 4E 6E 0785 JSR S6E4E 6DDC- AD 16 72 0790 LDA A7216 6DDF- A2 01 0795 LDX #$01 ;^A 6DE1- 20 4E 6E 0800 JSR S6E4E 6DE4- A9 00 0805 LDA #$00 ;^@ 6DE6- A2 01 0810 LDX #$01 ;^A 6DE8- 20 4E 6E 0815 JSR S6E4E 6DEB- AD 17 72 0820 LDA A7217 6DEE- A2 01 0825 LDX #$01 ;^A 6DF0- 20 4E 6E 0830 JSR S6E4E 6DF3- A9 00 0835 LDA #$00 ;^@ 6DF5- A2 01 0840 LDX #$01 ;^A 6DF7- 20 4E 6E 0845 JSR S6E4E 6DFA- A9 F7 0850 LDA #$F7 ;.w 6DFC- A2 01 0855 LDX #$01 ;^A 6DFE- 20 4E 6E 0860 JSR S6E4E 6E01- A9 FF 0865 LDA #$FF ;. 6E03- A2 0B 0870 LDX #$0B ;^K 6E05- 20 4E 6E 0875 JSR S6E4E 6E08- A9 00 0880 LDA #$00 ;^@ 6E0A- A2 06 0885 LDX #$06 ;^F 6E0C- 20 4E 6E 0890 JSR S6E4E 6E0F- A9 FB 0895 LDA #$FB ;.{ 6E11- A2 01 0900 LDX #$01 ;^A 6E13- 20 4E 6E 0905 JSR S6E4E 6E16- A9 00 0910 LDA #$00 ;^@ 6E18- A2 80 0915 LDX #$80 ;.^@ 6E1A- 20 4E 6E 0920 JSR S6E4E 6E1D- A9 F7 0925 LDA #$F7 ;.w 6E1F- A2 01 0930 LDX #$01 ;^A 6E21- 20 4E 6E 0935 JSR S6E4E 6E24- A9 FF 0940 LDA #$FF ;. 6E26- A2 01 0945 LDX #$01 ;^A 6E28- 20 4E 6E 0950 JSR S6E4E 6E2B- A9 FF 0955 LDA #$FF ;. 6E2D- A2 1A 0960 LDX #$1A ;^Z 6E2F- 20 4E 6E 0965 JSR S6E4E 6E32- EE 17 72 0970 INC A7217 6E35- A9 11 0975 LDA #$11 ;^Q 6E37- CD 17 72 0980 CMP A7217 6E3A- D0 92 0985 BNE B6DCE 0990 ; 6E3C- A9 FF 0995 LDA #$FF ;. 6E3E- A2 E2 1000 LDX #$E2 ;.b 6E40- 20 4E 6E 1005 JSR S6E4E 6E43- A5 A4 1010 LDA *ZA4 6E45- 8D 12 72 1015 STA A7212 6E48- A5 A5 1020 LDA *ZA5 6E4A- 8D 13 72 1025 STA A7213 6E4D- 60 1030 RTS 1035 ; 6E4E- 91 A4 1040 S6E4E STA (ZA4),Y 6E50- E6 A4 1045 INC *ZA4 6E52- D0 02 1050 BNE B6E56 1055 ; 6E54- E6 A5 1060 INC *ZA5 6E56- CA 1065 B6E56 DEX 6E57- D0 F5 1070 BNE S6E4E 1075 ; 6E59- 60 1080 RTS 1085 ; 6E5A- A9 A4 1090 S6E5A LDA #$A4 ;.$ 6E5C- 8D 19 72 1095 STA A7219 6E5F- 20 41 7C 1100 JSR S7C41 6E62- BD 8D A8 1105 B6E62 LDA DSK.IRF,X 6E65- 10 FB 1110 BPL B6E62 1115 ; 6E67- 29 10 1120 AND #$10 ;^P 6E69- F0 3B 1125 BEQ B6EA6 1130 ; 6E6B- 60 1135 RTS 1140 ; 6E6C- A0 00 1145 J6E6C LDY #$00 ;^@ 6E6E- 20 0C 7C 1150 JSR S7C0C 6E71- 20 38 7C 1155 JSR S7C38 6E74- AD 10 72 1160 LDA A7210 6E77- 85 A4 1165 STA *ZA4 6E79- AD 11 72 1170 LDA A7211 6E7C- 85 A5 1175 STA *ZA5 6E7E- BD 8D A8 1180 B6E7E LDA DSK.IRF,X 6E81- 10 FB 1185 BPL B6E7E 1190 ; 6E83- 29 02 1195 AND #$02 ;^B 6E85- F0 16 1200 BEQ B6E9D 1205 ; 6E87- B1 A4 1210 LDA (ZA4),Y 6E89- 49 FF 1215 EOR #$FF ;. 6E8B- 9D 81 A8 1220 STA DSK.REGA,X 6E8E- E6 A4 1225 INC *ZA4 6E90- D0 EC 1230 BNE B6E7E 1235 ; 6E92- E6 A5 1240 INC *ZA5 6E94- D0 E8 1245 BNE B6E7E 1250 ; 6E96- A9 16 1255 LDA #$16 ;^V 6E98- 8D 1B 72 1260 STA A721B 6E9B- 38 1265 SEC 6E9C- 60 1270 RTS 1275 ; 6E9D- BD 8D A8 1280 B6E9D LDA DSK.IRF,X 6EA0- 29 10 1285 AND #$10 ;^P 6EA2- F0 02 1290 BEQ B6EA6 1295 ; 6EA4- 18 1300 CLC 6EA5- 60 1305 RTS 1310 ; 6EA6- A9 11 1315 B6EA6 LDA #$11 ;^Q 6EA8- 8D 1B 72 1320 STA A721B 6EAB- BD 8D A8 1325 LDA DSK.IRF,X 6EAE- 8D 1A 72 1330 STA A721A 6EB1- 38 1335 SEC 6EB2- 60 1340 RTS 1345 ; 6EB3- BD 80 A8 1350 LDA DSK.REGB,X 6EB6- 09 18 1355 ORA #$18 ;^X 6EB8- 9D 80 A8 1360 STA DSK.REGB,X 6EBB- 60 1365 RTS 1370 ; 6EBC- A2 00 1375 S6EBC LDX #$00 ;^@ 6EBE- 20 E2 6E 1380 JSR S6EE2 6EC1- AA 1385 TAX 6EC2- 20 6D 74 1390 JSR S746D 6EC5- AD 80 72 1395 LDA A7280 6EC8- 29 0F 1400 AND #$0F ;^O 6ECA- 38 1405 SEC 6ECB- E9 01 1410 SBC #$01 ;^A 6ECD- 0A 1415 ASL A 6ECE- 8D 15 72 1420 STA A7215 6ED1- 20 E0 6E 1425 B6ED1 JSR S6EE0 6ED4- AA 1430 TAX 6ED5- 20 6D 74 1435 JSR S746D 6ED8- AD 80 72 1440 LDA A7280 6EDB- C9 2B 1445 CMP #$2B ;+ 6EDD- D0 F2 1450 BNE B6ED1 1455 ; 6EDF- 60 1460 RTS 1465 ; 6EE0- A2 17 1470 S6EE0 LDX #$17 ;^W 6EE2- BD EE 6E 1475 S6EE2 LDA A6EEE,X 6EE5- F0 06 1480 BEQ B6EED 1485 ; 6EE7- 20 4F 75 1490 JSR S754F 6EEA- E8 1495 INX 6EEB- D0 F5 1500 BNE S6EE2 1505 ; 6EED- 60 1510 B6EED RTS 1515 ; 6EEE- 45 4E 54 1520 A6EEE .BY 'ENTER DRIVE NUMBER :' 6EF1- 45 52 20 6EF4- 44 52 49 6EF7- 56 45 20 6EFA- 4E 55 4D 6EFD- 42 45 52 6F00- 20 20 20 6F03- 3A 6F04- 00 1525 .BY $00 6F05- 45 4E 54 1530 .BY 'ENTER "+" WHEN READY :' 6F08- 45 52 20 6F0B- 22 2B 22 6F0E- 20 57 48 6F11- 45 4E 20 6F14- 52 45 41 6F17- 44 59 20 6F1A- 3A 6F1B- 00 1535 .BY $00 1540 ; 1545 ; 6F1C- A9 FF 1550 S6F1C LDA #$FF ;. 6F1E- 8D 12 72 1555 STA A7212 6F21- A9 67 1560 LDA #$67 ;g 6F23- 8D 13 72 1565 STA A7213 6F26- A9 AA 1570 LDA #$AA ;.* 6F28- 8D EB 6F 1575 STA A6FEA+1 6F2B- 20 9F 6F 1580 JSR S6F9F 6F2E- A9 00 1585 LDA #$00 ;^@ 6F30- 8D EA 6F 1590 STA A6FEA 6F33- A9 01 1595 LDA #$01 ;^A 6F35- 2C 1600 .BY $2C 6F36- A9 06 1605 B6F36 LDA #$06 6F38- 8D EC 6F 1610 STA A6FEA+2 6F3B- AD 10 72 1615 B6F3B LDA A7210 6F3E- 85 A4 1620 STA *ZA4 6F40- AD 11 72 1625 LDA A7211 6F43- 85 A5 1630 STA *ZA5 6F45- AD EA 6F 1635 LDA A6FEA 6F48- 8D 16 72 1640 STA A7216 6F4B- A9 01 1645 LDA #$01 ;^A 6F4D- 8D 17 72 1650 STA A7217 6F50- AD EC 6F 1655 LDA A6FEA+2 6F53- 8D 18 72 1660 STA A7218 6F56- 20 7C 7C 1665 JSR S7C7C 6F59- B0 42 1670 BCS B6F9D 1675 ; 6F5B- AD 1C 72 1680 LDA A721C 6F5E- D0 3D 1685 BNE B6F9D 1690 ; 6F60- EE EA 6F 1695 INC A6FEA 6F63- AD EA 6F 1700 LDA A6FEA 6F66- C9 23 1705 CMP #$23 ;# 6F68- D0 D1 1710 BNE B6F3B 1715 ; 6F6A- A9 00 1720 LDA #$00 ;^@ 6F6C- 8D EA 6F 1725 STA A6FEA 6F6F- AD EC 6F 1730 LDA A6FEA+2 6F72- C9 01 1735 CMP #$01 ;^A 6F74- F0 C0 1740 BEQ B6F36 1745 ; 6F76- A9 01 1750 LDA #$01 ;^A 6F78- 8D EC 6F 1755 STA A6FEA+2 6F7B- AD EB 6F 1760 LDA A6FEA+1 6F7E- C9 AA 1765 CMP #$AA ;.* 6F80- F0 0B 1770 BEQ B6F8D 1775 ; 6F82- C9 55 1780 CMP #$55 ;U 6F84- F0 0A 1785 BEQ B6F90 1790 ; 6F86- C9 FF 1795 CMP #$FF ;. 6F88- D0 11 1800 BNE B6F9B 1805 ; 6F8A- A9 00 1810 LDA #$00 ;^@ 6F8C- 2C 1815 .BY $2C 6F8D- A9 55 1820 B6F8D LDA #$55 6F8F- 2C 1825 .BY $2C 6F90- A9 FF 1830 B6F90 LDA #$FF 6F92- 8D EB 6F 1835 STA A6FEA+1 6F95- 20 9F 6F 1840 JSR S6F9F 6F98- 4C 3B 6F 1845 JMP B6F3B 1850 ; 6F9B- 18 1855 B6F9B CLC 6F9C- 60 1860 RTS 1865 ; 6F9D- 38 1870 B6F9D SEC 6F9E- 60 1875 RTS 1880 ; 6F9F- AD 10 72 1885 S6F9F LDA A7210 6FA2- 85 A4 1890 STA *ZA4 6FA4- AD 11 72 1895 LDA A7211 6FA7- 85 A5 1900 STA *ZA5 6FA9- A0 00 1905 LDY #$00 ;^@ 6FAB- AD EB 6F 1910 B6FAB LDA A6FEA+1 6FAE- 91 A4 1915 STA (ZA4),Y 6FB0- E6 A4 1920 INC *ZA4 6FB2- D0 02 1925 BNE B6FB6 1930 ; 6FB4- E6 A5 1935 INC *ZA5 6FB6- A5 A4 1940 B6FB6 LDA *ZA4 6FB8- CD 12 72 1945 CMP A7212 6FBB- D0 EE 1950 BNE B6FAB 1955 ; 6FBD- A5 A5 1960 LDA *ZA5 6FBF- CD 13 72 1965 CMP A7213 6FC2- D0 E7 1970 BNE B6FAB 1975 ; 6FC4- AD EB 6F 1980 LDA A6FEA+1 6FC7- 91 A4 1985 STA (ZA4),Y 6FC9- 60 1990 RTS 1995 ; 6FCA- D8 2000 S6FCA CLD 6FCB- 38 2005 SEC 6FCC- A5 A4 2010 LDA *ZA4 6FCE- E9 F5 2015 SBC #$F5 ;.u 6FD0- A5 A5 2020 LDA *ZA5 6FD2- E9 6B 2025 SBC #$6B ;k 6FD4- 30 0D 2030 BMI B6FE3 2035 ; 6FD6- 38 2040 SEC 6FD7- A9 35 2045 LDA #$35 ;5 6FD9- E5 A4 2050 SBC *ZA4 6FDB- A9 6C 2055 LDA #$6C ;l 6FDD- E5 A5 2060 SBC *ZA5 6FDF- 30 02 2065 BMI B6FE3 2070 ; 6FE1- 18 2075 CLC 6FE2- 60 2080 RTS 2085 ; 6FE3- A9 24 2090 B6FE3 LDA #$24 ;$ 6FE5- 8D 1B 72 2095 STA A721B 6FE8- 38 2100 SEC 6FE9- 60 2105 RTS 2110 ; 6FEA- 2115 A6FEA .DS 3 2120 .EN 0000,6FED,6FED >