IBM 5170 Technical Reference page 179

02A4
38 08 CMP
ax.
AX
PATTERN READ AS WR I TTEN?
02M 74 01 JE C18
YES ~ CHECK NEXT REG
02AS F4 HLT NO - HALT THE SYSTEM
02A9
02A9
02AA
42
E2 EA
C18:
INC
lOOP
OX
C17
~~i_~~Apg~T
TO NEXT CH REG
WRITE PATTERN TO NEXT REG
02AC FE CO
INC AL
SET PATTERN TO 0
02AE 74 DC
JZ C16
YES CaNT I NUE
;~------
WRITE DHA WITH 55 PATTERN
0280
0283
80 f8
55
74 09
CMP
JZ
BL,55H
C1,
Cli£CK IF 55
GO
IF YES
PATTERN ~ONE
02B5
0268
80
m
AA
74 08
CMP
JZ
BL,OAAH
C20
CUECK IF AA pATTERN ~ONE
GO IF YES
02BA BO 55
MOV
AL,55H
02BC EB CE JMP C16
~
;~~----- WRITE OMA WLTH AA PATTERN
02SE BO AA C19:
MOV
AL,OAAH
02CO
ES CA
JMP
C16
TEST .07
8237 OMA 1 INITIALIZATION CHANNEL REGISTER TEST
OESCR I PT 1 ON
DISABLE THE 8237 OMA CONTROLLER 1.
WRITE/READ THE CURRENT DHA 1
ADDRESS AND WORD COUNT REG I STERS FOR ALL
CHANNELS.
;
~-~----
CHECKPO I NT 7 DMA 1
02C2
BO 07 C20: i'IOV AL.O-(H
; <><><><><><><><><><><><>
02C4 E6 80
OUT
MFG PORT. AL
; <><><>CHECKPOlfH 7<><><>
02C6 E6 OA
OUT
DMA"+QOH*2, AL
; SEND MASTER CLEAR TO 2ND DMA
;
~~~--
WRAP DMA 1 CHANNEL ADDRESS AND COUNT REG I STERS
02C8 BO FF
MOV
AL,OFFH
WRITE PATTERN FF TO ALL REGS
02CA 8A
08
Cl6A: MOV 6L,AL
SAVE PATTERN fOR COMPARE
02CC
02CE
0201
0204
0205
8A F8
89 0008
SA OOCO
EE
EB 00
C17A:
MOV
MOV
MOV
OUT
JMP
BH,AL
CX,8
OX,DMAl
DX,Al
SHORT $+2
SETUP LOOP CNT
SETUP I/O PORT ADDR OF REG
WR I
TE PATTERN TO REG, LSB
WAIT STATE FOR 10
0207 EE
OUT
DX,Al
MSB Of 16 BIT REG
0208 80 01
MOV
AL,01H
AL TO ANOTHER PAT BEFORE RD
020A EB 00
JMP
SHORT $+2 WAIT STATE FOR 10
020C
EC
IN AL,DX READ 16-81T DMA
CH
REG, lSB 2ST DHA
0200
020F
EB 00
8A EO
JMP
Mav
SHoRT $+2
AH.AL
WAIT STATE FOR 10
SAVE LSB OF 16-BIT REG
02E1 EC IN AL.DX
READ M5B OF OMA CH REG
02E2 3B 08
CMP
BX,AX
PATTERN READ AS WRiTTEN?
02E4 74 01 JE
e18A
YES - CHECK NEXT REG
02E6
F4
liLT
NO ~ HALT THE SYSTEM
02E7
02E7
02EA
83 C2 02
E2 E8
e18A:
ADD
LOOP
DX.2
C17A
~~i-~~\;g~T
TO NEXT CH REG
WRITE PATTERN TO NEXT REG
02EC FE CO INC AL
SET PATTERN TO 0
02EE
74 DA
JZ
el6A YES CONT I NUE
~
;--~~--~ WRITE DMA WITH 55 PATTERN
02fO 80 FB 55
CM'
BL,55H
CHECK IF 55 PATTERN DONE
02F3 74 09 JZ C20A GO I F YES
02F5 80 FB AA
CMP
BL,OMH CHECK IF AA PATTERN DONE
02F8 74 08
JZ
C21 GO I F YES
02FA
BO 55
MOV
AL , 55H
02fC EB CC
JMP c16A
;-~--~--
WRITE DMA WITH AA PATTERN
02FE BO AA
C20A: MOV AL,OAAH
0300 EB C8
JMP
C16A
INITIALIZE AND START MEMORY REFRESH.
0302 88 lE 0072 R C2l:
MOV
8X, RESET_FLAG GET THE RESET fLAG
0306 A3 ~OlO R
MOV
EQU I P _FLAG, AX DO A ~UMMY WR I TE RAM BEFORE REFRESH
0309
BO 12
MOV
AL,18
START TIMER
030B E6 lf1
OUT
TIMER+l,Al
;~~~----
SET DMA COMMAND
0300 C21Z:
0300 2A CO SUB AL,AL DACI( SENSE LOW, OREQ SENSE HIGH
030F E6 08
OUT
DMA+8,AL LATE WRITE,FIXED PRIORITY,NORMAL TIMING
CONTROLLER ENABLE, CHO ADDR HOLD 0 I SABLE
MEMORY TO MEM DISABLE
0311 £6 00
OUT
DMA18,AL SAME TO SECOND CONTROLLER
;----.. --~ MODE SET ALL DMA CHANNELS
0313
0315
80 40
E6 DB
HOV
OUT
AL,40H
DMA+OBH.AL
SET MODE FOR CHANNEL 0
0317 BO CO
MOV
AL,OCOH SET CASCADE MODE ON CHANNEL 4
0319
E6 06
OUT
DMA18+06H,AL
031B EB 00
JMP
SHORT $+2 WAIT STATE FOR 10
0310
BO 41
MOV
Al.41H
SET MODE FOR CHANNEL 1
03H
E6 DB
OUT
DMA+OBH, AL
0321 E6 06
OUT
DMA18+06H,AL SET MODE FOR CHANNEL 5
0323
EB 00
JMP SHORT $+2
WAIT STATE FOR 10
0325
BO 42
MOV
AL,42H SET MODE FOR CHANNEL 2
0327 £6 DB
OUT
DMA+QBH,AL
0329
E6 06
OUT
DHA18+06H,AL SET MODE FOR CHANNEL 6
0328 EB 00
JMP
SHORT $+2
WAIT STATE FOR 10
0320 80 43
MOV
Al,43H SET MODE FOR CHANNEL 3
~
032F
0331
£6 OB
£6 06
OUT
OUT
DMA+OBH,AL
DMA18+06H,AL
SET MODE FOR CHANNEL 1
;----~-~ RESTORE RESET FLAG
0333 89 1E 0072 R MOV RESET_FLAG,aX
~ -TEST~
08 --..
-~ ~~ ~ ~---
..
-~
------
--~-----~ ~-~ ~ ~-~ ~---~----~ ~
; DMA PAGE REG I STER TEST
; OEseR' PT I ON
WR I TE/READ ALL PAGE REG I STERS
;---~-
CHECK POINT 8
0337 BO 08 MOV
AL, 08H
; <><><><><><><><><><><><>
Test 1 5-37