NAM HOME RESTORE HARD DISK TO TRACK 000 * 25 ARP 1982 MICHAEL HOLLEY * FLEX EQUATES WARMS EQU $AD03 PSTRNG EQU $AD1E * HARD DISK EQUATES DCMMD EQU $711E ISSUE COMMAND DSENSE EQU $7121 READ STATUS SENSE RSCMND EQU $01 RECALIBRATE ORG $7000 * DEVICE CONTROL BLOCK CMDOP RMB 1 LUN RMB 1 TRACK RMB 1 SECTOR RMB 1 BLKCNT RMB 1 CTRFLD RMB 1 ORG $A100 START BRA HOME VN FCB 1 HOME LDAA #RSCMND STAA CMDOP CLR LUN JSR DCMMD ISSUE COMMAND BNE HOME3 LDX #MSG1 BRA HOME5 HOME3 LDX #MSG2 HOME5 JSR PSTRNG JMP WARMS MSG1 FCC /DISK AT TRACK 000/ FCB 4 MSG2 FCC /RECALIBRATE FAILED/ FCB 4 END START