; *FM DISASSEMBLED (FORMAT FLOPPY ; USING DESSAINT'S DISASSEMBLE ZA4 .DE $A%ZA5 .DE $A0A7210 .DE $7215A7211 .DE $721@A7212 .DE $721EA7213 .DE $721PA7214 .DE $721UA7215 .DE $721`A7216 .DE $721eA7217 .DE $721pA7218 .DE $721uA7219 .DE $721A721A .DE $721A721B .DE $721A721C .DE $721ÕA7280 .DE $728SET.2 .DE $73FS746D .DE $746S754F .DE $754J7792 .DE $779 S7BEA .DE $7BE%S7C0C .DE $7C00S7C38 .DE $7C35S7C41 .DE $7C4@S7C63 .DE $7C6ES7C6A .DE $7C6PS7C7C .DE $7C7US7DC5 .DE $7DC`S7E7C .DE $7E7eS7EB6 .DE $7EBpIRQ.VEC .DE $A67u ; DISK CONTROLLER LOCATIONӅDSK.REGB .DE $A88DSK.REGA .DE $A88DSK.IRF .DE $A88 .BA $6D0  LDA #L,SET.% STA IRQ.VE0 LDA #H,SET.5 STA IRQ.VEC+@ JSR S6D3E JSR S6EBP LDA #$00 ;^U STA A721` JSR S7BEe JSR S7EBp BCS B6D3u JSR S7DC BCS B6D3 LDA #$F4 ;. JSR S7E7 BCS B6D3 JSR S6D6  BCS B6D3%0 JSR S6F15 BCS B6D3@E BRKPUB6D34 LDA A721` JMP J779epS6D3A LDA #$00 ;^u LDX #$0D ;^̀B6D3E STA A7210,؅ DEX BPL B6D3ŕ LDA #$00 ;^ STA A721 LDA #$60 ; STA A721  LDA #$B2 ;.% STA A7210 LDA #$6C ;5 STA A721@ LDA #$00 ;^E STA A721P LDA #$01 ;^U STA A721` RTSepS6D63 LDA #$01 ;^u STA A721 JSR S6DB JSR S7BE JSR S6DA BCS B6D9 LDA #$14 ;^ STA A721 JSR S7C6  BNE B6D9%0 JSR S6FC5 BCS B6D9@E INC A721P LDA A721U` ; NEXT INSTRUCTION DETERMINES NUMBER OF TRACKe ; $28 = 40 TRACKS, $50 = 80 TRACKpu CMP #$50 ; 80 TRACKӀ BEQ B6DA JSR S6E5 LDA #$15 ;^ STA A721 JSR S7C6 AND #$DD ;. BEQ S6D6 %B6D9B JSR S7C60 SEC5 RTS@EB6DA0 JSR S7C6P LDA #$FF ;.U STA A721` CLCe RTSpuS6DAA LDA #$0B ;^ˀ STA A721 JSR S7C4 JMP J6E6ÕS6DB5 CLD CLC LDA #$00 ;^ STA A721  STA *ZA% LDA #$60 ;0 STA A7215 STA *ZA@ LDY #$00 ;^E LDA #$FF ;.P LDX #$10 ;^U JSR S6E4`B6DCE LDA #$00 ;^e LDX #$06 ;^p JSR S6E4u LDA #$FE ;. LDX #$01 ;^ JSR S6E4Ő LDA A721 LDX #$01 ;^ JSR S6E4 LDA #$00 ;^ LDX #$01 ;^ JSR S6E4  LDA A721% LDX #$01 ;^0 JSR S6E45 LDA #$00 ;^@ LDX #$01 ;^E JSR S6E4P LDA #$F7 ;.U LDX #$01 ;^` JSR S6E4e LDA #$FF ;.p LDX #$0B ;^u JSR S6E4ŀ LDA #$00 ;^ LDX #$06 ;^Ɛ JSR S6E4ŕ LDA #$FB ;. LDX #$01 ;^ JSR S6E4 LDA #$00 ;^ LDX #$80 ;.^ JSR S6E4% LDA #$F7 ;.0 LDX #$01 ;^5 JSR S6E4@ LDA #$FF ;.E LDX #$01 ;^P JSR S6E4U LDA #$FF ;.` LDX #$1A ;^e JSR S6E4p INC A721u LDA #$11 ;^р CMP A721 BNE B6DCŐ LDA #$FF ;. LDX #$E2 ;. JSR S6E4 LDA *ZA STA A721  LDA *ZA% STA A7210 RTS5@S6E4E STA (ZA4),E INC *ZAP BNE B6E5U` INC *ZAeB6E56 DEXp BNE S6E4u RTSS6E5A LDA #$A4 ;. STA A721 JSR S7C4B6E62 LDA DSK.IRF, BPL B6E6  AND #$10 ;^% BEQ B6EA05 RTS@EJ6E6C LDY #$00 ;^P JSR S7C0U JSR S7C3` LDA A721e STA *ZAp LDA A721u STA *ZAB6E7E LDA DSK.IRF,؅ BPL B6E7Ő AND #$02 ;^ BEQ B6E9 LDA (ZA4), EOR #$FF ;.  STA DSK.REGA,% INC *ZA0 BNE B6E75@ INC *ZAE BNE B6E7PU LDA #$16 ;^` STA A721e SECp RTSuB6E9D LDA DSK.IRF,؅ AND #$10 ;^А BEQ B6EA CLC RTSB6EA6 LDA #$11 ;^  STA A721% LDA DSK.IRF,0 STA A7215 SEC@ RTSEP LDA DSK.REGB,U ORA #$18 ;^` STA DSK.REGB,e RTSpuS6EBC LDX #$00 ;^ JSR S6EE TAX JSR S746ĕ LDA A728 AND #$0F ;^ SEC SBC #$01 ;^ ASL  STA A721%B6ED1 JSR S6EE0 TAX5 JSR S746@ LDA A728E CMP #$2B ;P BNE B6EDU` RTSepS6EE0 LDX #$17 ;^uS6EE2 LDA A6EEE,؀ BEQ B6EEą JSR S754ƕ INX BNE S6EEB6EED RTS A6EEE .BY 'ENTER DRIVE NUMBER :% .BY $00 .BY 'ENTER "+" WHEN READY :5 .BY $0@EPS6F1C LDA #$FF ;.U STA A721` LDA #$67 ;e STA A721p LDA #$AA ;.u STA A6FEA+ JSR S6F9ƅ LDA #$00 ;^ STA A6FE LDA #$01 ;^ .BY $2B6F36 LDA #$0 STA A6FEA+B6F3B LDA A721  STA *ZA% LDA A7210 STA *ZA5 LDA A6FE@ STA A721E LDA #$01 ;^P STA A721U LDA A6FEA+` STA A721e JSR S7C7p BCS B6F9u LDA A721Å BNE B6F9Đ INC A6FE LDA A6FE CMP #$23 ; BNE B6F3  LDA #$00 ;^% STA A6FE0 LDA A6FEA+5 CMP #$01 ;^@ BEQ B6F3EP LDA #$01 ;^U STA A6FEA+` LDA A6FEA+e CMP #$AA ;.p BEQ B6F8u CMP #$55 ;Յ BEQ B6F9 CMP #$FF ;. BNE B6F9 LDA #$00 ;^ .BY $2 B6F8D LDA #$5% .BY $20B6F90 LDA #$F5 STA A6FEA+@ JSR S6F9E JMP B6F3PUB6F9B CLC` RTSepB6F9D SECu RTSS6F9F LDA A721 STA *ZA LDA A721 STA *ZA LDY #$00 ;^B6FAB LDA A6FEA+ STA (ZA4),  INC *ZA% BNE B6FB05 INC *ZA@B6FB6 LDA *ZAE CMP A721P BNE B6FAU` LDA *ZAe CMP A721p BNE B6FAu LDA A6FEA+ STA (ZA4),ِ RTS S6FCA CLD SEC LDA *ZA SBC #$F5 ;. LDA *ZA% SBC #$6B ;0 BMI B6FE5 @ SECE LDA #$35 ;P SBC *ZAU LDA #$6C ;` SBC *ZAe BMI B6FEp u CLC RTS B6FE3 LDA #$24 ; STA A721! SEC! RTS!!A6FEA .DS ! .EN 0F