* 6800 BOOT 8014 DRVREG EQU $8014 DRIVE REGISTER 8018 COMREG EQU $8018 COMMAND REG 1771 801A TRKREG EQU $801A TRACK REG 1771 801A SECREG EQU $801A SECTOR REG 1771 801B DATREG EQU $801B DATA REG 1771 0300 ORG $0300 0300 B6 80 18 START LDA A COMREG TURN MOTOR ON 0303 86 00 LDA A #0 0305 B7 80 14 STA A DRVREG 0308 CE 00 00 LDX #$0000 030B 08 OVR INX 030C 09 DEX 030D 09 DEX 030E 26 FB BNE OVR 0310 C6 0F LDA B #$0F RESTORE 0312 F7 80 18 STA B COMREG 0315 8D 2C BSR RETURN 0317 F6 80 18 LOOP1 LDA B COMREG 031A C5 01 BIT B #1 031C 26 F9 BNE LOOP1 031E 86 00 LDA A #00 0320 B7 80 1A STA A SECREG 0323 8D 1E BSR RETURN 0325 C6 9C LDA B #$9C READ WITH LOAD 0327 F7 80 18 STA B COMREG 032A 8D 17 BSR RETURN 032C CE 24 00 LDX #$2400 032F C5 02 LOOP2 BIT B #2 0331 27 06 BEQ LOOP3 0333 B6 80 1B LDA A DATREG 0336 A7 00 STA A 0,X 0338 08 INX 0339 F6 80 18 LOOP3 LDA B COMREG 033C C5 01 BIT B #1 033E 26 EF BNE LOOP2 0340 7E 24 00 JMP $2400 0343 8D 00 RETURN BSR RTN 0345 39 RTN RTS END START NO ERROR(S) DETECTED SYMBOL TABLE: COMREG 8018 DATREG 801B DRVREG 8014 LOOP1 0317 LOOP2 032F LOOP3 0339 OVR 030B RETURN 0343 RTN 0345 SECREG 801A START 0300 TRKREG 801A