
F000
F80A
F024
0100
0100
0103
0106
0108
010A
010C
O10E
0111
0114
0117
0119
0118
011D
011F
0121
0123
0125
0127
012A
012C
012F
0131
0134
0136
0139
0138
013E
0140
0142
0145
0147
0149
014C_
O14E
0152
0154
0157
0159
015B
O15F
0160
|
0163
0165
0168
016A
016B
0100
FF
iF
00
F9
00
21
23
21
22
23
6B
24
24
24
F8
6B
F8
FF
00
OA
OA.
OK
*
*
ADDREG
OUTCH
DRVREG
-
START
TEST
DELAY
DEC
BYTE
REGTEST
-
6809
Version
*
~~
DMAF2 REGISTER
TESTING
PROGRAM
EQU
$F
000
EQU
$F80A
EQU
$F024
ORG
$0100
LDX
#ADDREG
LDB
BYTE
STB
0,X
STB
1,X
STB
2X
STB
3,X
STB
$21,X
STB
«$22,
X
STB
$23
,X
LDB
0,X
BSR
TEST
LDB
1,X
BSR
TEST
LDB
2,X
BSR
TEST
LDB
3,X
BSR
TEST
LDB
$21,X
BSR
TEST
LDB
$22,X
BSR
TEST
LDB
$23,X
BSR
TEST
INC
BYTE
LDB
#$FE
STB
DRVREG
BSR
DELAY
LDB
#$FD
STB
DRVREG
BSR
DELAY
LOB
O#$FF
STB
DRVREG
LDA.
#"
4"
JSR
[OUTCH]
BRA
_START
CMPB._—s-BYTE
BEQ
OK
LDA.
"Xx"
JSR
[OUTCH]
RTS
bog
LDX
#$F
FFF
LEAX
-1,X
CPX
#0
BNE
DEC
RTS
FCB
0
END
START
START OF
DMAC REGISTERS
-
CHARACTER OUTPUT
ROUTINE
DRIVE
SELECT
LATCH
LOAD
ADDRESS
OF REGISTERS
STORE
IN
REGISTERS
START
READING
DATA
INCREMENT
THE
PATTERN
SELECT
DRIVE
0
WAIT
AWHILE
SELECT
DRIVE
1
DESELECT
ALL
DRIVES
A+.
~
RE-DO
THE
TEST
COMPARE THE
DATA
OUTPUT
A X
IF
ERRORS
TEMPORARY STORAGE
LOCATION