* 6809 Version
*
* HEAD STEPTEST-STEPPING PROGRAMS
*
COMREG  EQU $F020 1791 COMMAND REGISTER
 ORG $0100 
START LDX #COMREG LOAD THE COMMAND ADDRESS
 LDB #$FE SELECT DRIVE #0
 STB 4,X STORE IN DRYREG
 LDB 0,X MOTORS ON, WAIT UNTIL READY
 BITB #$80 
 BNE START 
LOOP LDB #$08 RESTORE THE HEADS
 BSR EXEC EXECUTE THE COMMAND
 LDB #76 TRACK 76
 STB 3,X STORE IN DATA REGISTER
 BSR DEL28 WAIT FOR 1791
 LDB #$18 SEEK COMMAND
 BSR EXEC EXECUTE THE COMMAND
 BRA LOOP RE-DO THE STEPPING
   
EXEC STB 0,X EXECUTE THE COMMAND
 BSR DEL28 WAIT FOR 1791
WAIT LDB 0,X LOOP UNTIL NOT BUSY
 BITB #1 
 BNE WAIT 
 RTS  
   
DEL28 BSR DEL14 
DEL14 BSR DEL 
DEL RTS  
   
 END START