
STEPTEST
-
6809
Version
*
*
HEAD
STEPPING
PROGRAM
*
F020
COMREG
EQU
$F020
_
1791
COMMAND REGISTER
0100
ORG
$0100
0100
8E
FO
20
START
LDX
#COMREG
LOAD THE
COMMANDADDRESS
0103
C6 FE
LDB
#$FE
SELECT
DRIVE
#0
0105
£7
04
STB
4,X
STORE
IN
DRVREG
0107
£6
84
LDB
0,X
MOTORS
ON,
WAIT
UNTIL
READY
0109
C5
80
BITB
#$80
010B
26
F3
BNE
START
010D
C6
08
LOOP
LDB
#$08
RESTORE
THE
HEADS
O10F
8D
OC
BSR
EXEC
EXECUTE
THE
COMMAND
0111
C6
4C
LDB
#76
TRACK
76
0113
£7
03
STB
3,X
.
STORE
IN DATA
REGISTER
0115
8D
11
BSR
DEL
28
WAIT FOR
1791
0117
C6
18
LDB
#$18
SEEK
COMMAND
0119
8D 02
~
BSR
EXEC
_
EXECUTE
THE
COMMAND
011B
20
FO
BRA
LOOP
RE-DO
THE STEPPING
011D
£7
84
EXEC
STB
0,X
EXECUTE
THE
COMMAND
O11F
8D
07
BSR
‘DEL
28
WAIT FOR
1791
0121
£6
84
WAIT
LDB
0,X
.
LOOP
UNTIL
NOT BUSY
0123
C5
O1
BITB
#1
0125
26
FA
BNE
WAIT
0127
39
RTS
0128
8D
00
DEL28
BSR
DEL14
012A
8D 00.
DEL14
-
BSR
DEL
012C
39
DEL
RTS
0100
END
START
-
10
-