IBM 5150 - Page 200

LaC OBJ
LINE SOURCE
E100 EBAO
38. JNP SHORT ERROl
386
387 INITIALIZE TINER 1 TO REFRESH MEMORY
388
EIOF
38.
C15: ; WRAP _OMA_REG
flOF 8054 3.0
MOV Al.54H
;SEl TIM I. LSB. MODE 2
Ell1 E643
391
OUT TIMER+3.AL
;WRITE TIMER
MODE REG
E113 B012
392
MOV AL.IS
;SETUP DIVISOR FOR REFRESH
EllS E641 393
OUT
TIMER+l.Al iL-:RITE TIMER 1 CNT REG
E1l7 E600
394
OUT
OMA+ODH,Al iSH/O MASTER CLEAR TO DMA
395
396 WRAP oMA CHANNELS ADDRESS AND COUNT REGISTERS
397
E119 BOFF 3.8
MOV
AL,OFFH ;WRITE PATTERN FFH TO ALL REGS
EllB 8A08 39.
C16:
MOV
BL,AL ;SAVE PATTERN FOR COMPARE
EllD 8AF8 400
MOV
BH,AL
EllF 890800 401
MOV
CX,B ;SETUP LOOP CNT
E122 BAOOOO 402
MOV
OX,DMA
;
SETUP I/O PORT AD DR OF REG
E125 EE 403
t17:
O'JT DX,Al
IWRITE PATTERN TO REG, LSB
E126 EE
404
OUT OX,AL ;t1SB OF 16 BIT REG
E127 B80101
405 110V
AX,OIOIH ;AX TO ANOTHER PAT BEFORE RO
E12A
EC 406
'"
AL,oX
;READ 16-BIT DMA eH REG, LSB
E128 8AEO 407 tIDY AH,AL
;SAYE lSB OF 16~BIT REG
E120 EC 408
IN
AL,oX ;READ MSB OF DMA CH REG
f12E 3808 40. CtlP 8X,AX
;PATTERN READ AS WRITTEN?
EnD 7403 410
J'
C18
;
YES - CHECK NEXT REG
E 132 E97AFF 411 JMP ERROl ;NO - HALT THE SYSTEM
E135
41. C18:
I NXT_DI1A_CH
E135 42
413 INC OX
;SET I/O PORT TO NEXT CH REG
E136 ElED
414
LOOP CI7
iWRITE PATTERN TO NEXT REG
E136 F6DO
41. NOT AL
iSET PATTERN TO ZERO
E13A 74DF
416
JZ C16
;WRITE
TO CHANNEL REGS
417
418
INITIALIZE AND START DMA FOR MEMORY REFRESH.
419
EBe BOFF 420
MOV
At,OFFH
; SET CNT OF 64K FOR RAM REFRESH
E13E E601 421
OUT DMA+l,Al
E140 E601 422
OUT QMA+l,Al
El42 B058 423
tlOV Al,058H ,SET OMA MODE.CH O,READ,AUOTIHT
E144 E608 424
OUT DHA+OBH,AL ,WRITE oMA MODE REG
E146 8000
425
MOV Al,O
;
ENABLE OMA CONTROLLER
E148 E606
426 OUT
OMA+8,Al
; SETUP OMA COMMAND REG
E14A E60A
427
OUT
DMA+I0 ,At ;ENABLE CHANNEL 0 FOR REFRESH
E14C B041
42.
MOV AL,41H ,SET MODE FOR CHANNEL 1
E14E E608
4 ••
OUT
OMA+OBH,AL
E150 8042
43D MOV AL,42H ;SET MODE FOR CHANNEL 2
E152 E608 431
OUT DMA+OBH,AL
E154 8043
432 MOV AL,43H ;SET MODE FOR CHANNEl 3
E156 E608 433
OUT OMA+OBH .AL
434
;--------------------------------------------
435 ;TESr.04
436 BASE 16K REAO/WRITE STORAGE TEST
437
438 ;DESCRIPTION
439 WRITE/REAOIVERIFY DATA PATTERNS FF,55.AA.Ol, ANO 00 TO 1ST 16K OF
440 STORAGE. VERIFY STORAGE AOORESSABIllTY.
441 INITIALIZE THE 8259 INTERRUPT CONTROllER CHIP FOR CHECKING
442 MANUFACTURING TEST 2 MODE.
443 ; ----- ---------------- ---- ------------ - ------
444 DETERMINE MENORY SIZE AND FILL MEMORY Wlrn DATA
445
E158
884000 446 MOV AX,OATA jPOINT OS TO DATA SEG
E158 8E08
447
MOV
OS,AX
I
EISC 681E7200 448
HOV BX,RESETJLAG ;SAVE RESET_FLAG' IN ax
E161 28CO
449
SUB AX,AX
;SET ES MID OS TO 0
E163 8EtO
450
NOV ES,AX ; SETUP ES SEGMENT REG
f165 6E08
451
MOV oS,AX
El67 2BFF 452
SUB
01,01
E 169 E460
453
IN
Al.PORT_A
IDETERMINE BASE RAM SIZE
E168 240C 454 AHO AL,OCH jISQlATE RAM SIZE SWS
E160 0404 455
ADO
AL, 4
I CALCULATE MEMORY SIZE
E16F BlOC 456 MOV CL, 12
E171 03EO
457
SHL AX, CL
EI73 88C8
458 MOV
CX, AX
E175 8AEO
45. MOV AH. AL
fI77 Fe 460 CLD ISET DIR FLAG TO INCR
E178 AA
461
C19:
STOSB
;FIlL BASE RAM WITH DATA
A-7