IBM 5170 Technical Reference page 180

0339
E6 80 OUT MFG_PORT ,AL
<><><>CHECKPO I tiT 8<><><>
0338 2A CO
SUB
AL,AL
0330 BA 0081 ~10Y OX,OMA_PAGE
03 1 10
B9 00 FF
~10Y CX,OFFH
DO ALL DATA PATTERNS
03 1 13
034 1 1
03115
EE
',2
FE CO
C22A: OUI
1 rlC
INC
OX,AL
OX
AL
03 1 17 81
FA 008F
Ct~ P DX,8FH TEST OMA PAGES 81 THUR 8EH
0348 75 F6 JNZ C22A
0340 86 EO XCHG AH,Al
SAVE CURRENT DATA PATTERN
034F FE CC DEC AH
CHECI( LAST WR I TTEN
0351
4A
DEC
ox
0352 2A CO C22B:
SUB
Al,AL
CHANGE DATA BEFORE READ
0354 EC
IN Al,DX
0355
3A C4 CMP Al,AH DATA AS WRITTEN?
0357 75 30
JNZ C26
GO ERROR HALT I F NOT
0359
FE CC DEC
Ati
035B
4A DEC
ox
035C
81 FA 0080
CMP OX, MFG_PORT CONT
1
NUE TILL PORT 80
0360 75 FO JNZ C22B
0362 FE C4
INC AH
NEXT PATTERN TO RI PPlE
0364 8A C4 MDV AL,AH
0366
E2 DB LOOP C22A
;-------- TEST LAST DMA PAGE REGISTER (USED FOR ADDRESS LINES DURING REFRESH)
flO CC
AL,OCCH WR I TE AN CC TO PAGE REG I STERS
BA 008F C22: OX, LAST _OHA_PAGE
8A EO AH,AL
SAVE THE DATA PATTERN
EE C23:
DX,AL
OUTPUT PAGE REG
;
--------
ry PAGE REGISTER 8F
0370
2A CO C24: SUB AL,AL CHANGE DATA PATTERN BEFORE READ
0372
EC
IN AL, OX
GET THE DATA FROM PAGE REG
0373
3A C4 CMP AL,AH
0375 75 12 JNZ C26
GO I F ERROR
0377 80 FC CC CMP AH,OCCH
037A 75 04 JNZ
C25 GO I F ERROR
037C BO
33 MOV
AL,033H
SET UP DATA PATTERN OF
33
037E EB EA
JMP
C22
DO DATA 33
0380
80 FC 00 C25: CMP AH,O
CHECK DONE
0383
14
05 JZ C27
GO I F YES
0385
2A CO
SUB
AL,AL
SET UP FOR DATA PATTERN 00
0387 EB El
JMP C22 DO DATA
0
; ------- ERROR tiALT
0389
f4
C26: HLT
HALT SYSTEM
---.----.----------------------------------------------­
; TEST
.09
; STORAGE REFRESH TEST
; DESCRIPTION
; VEI{I FY STORAGE REFRESH IS OCCURRING
;.-
--- --- ---
--- ---
-- --- .------.------------------ --- ----­
;------- CHECKPOINT
9
TEST MEMORY REFRESH
038A BO 09 C27:
r~oY
AL,09H
<><><>
<> <><><><><><><> <>
038C E6 80
OUT r~FG_PORT
,Al
<><><>CH ECK PO I NT 9<><><>
038E 28 C9
suo
cX,ex
0390
[4 61 C28: IN AL, PORT_B
INSURE REFRESH BIT IS TOGGLI NG
0392
A8 10
TEST
AL, REFRESH_BIT
039 '
1
E1
fA LOOPZ C2B
INSURE I{[FRESH IS OFF
0396
7"
f ]
JZ C26 GO
If NOT
0398
2B C9 SUB
cX,ex
039A
E4 61 C29:
IN AL, PORT_B
039C A8 10
TEST AL, REfRESH_ BIT INSURE RE FRESH I S ON
039E
EO fA LOOPNZ C29
03AO 75 E7 JNZ C26
CO If NO REFRESH
TEST.l0
8042 TEST AND CONFIGURATION JUMPERS
OESCR I PT I ON
ISSUE A SElf TEST TO THE 8042
1 NSURE A 551'1 IS RECE I YEO
GET MANUfACTURING/DISPLAY TYPE JUMPER
I NPUT PORT I NfO SAYED IN MFG_ TEST
; ------- CIIECKPO
I
NT OA
03A2 flO OA
~10Y AL,OAH
; <><><><><><><><><><><>
03A4 E6 80
OUT MrC_PORT,AL
; <><>CHfCPO I NT OA<><><>
;------- SOfT RESET (HANDLE ALL POSSIBLE CONDITIONS)
03A6
211 C9 SUB
eX,ex
laO MSfC FOI, T~j
I
SLOOP
03A8
Ell 64 TSTl : IN AL, STATUS_PORT
CHECK FOI{ I NPUT BUFFEr{ FuLL
03AA
8A EO MOV AH,AL
03AC
r6 CII 01 TFST
AH,OUT_BUF_FUll
03AF 74 02 JZ
TST2
GO
I
f NOT
03B1
E4 60
IN AL, PORT A FLUSH
03B3 F6 c4 02 TST2: TrST AH,INPT::::BUF_FULL
IS THE OUTPUT BUFFER ALSO FULL?
03B6 EO Fa
lOOPNZ TSTl
TRY AGAIN
03B8 74 01 JZ TST4
CONTINUE IF 01(
03BA f4 ERRO: HLT
HALT SYSTEM 1 F BUFFER FULL
; --------- ISSUE A RESET TO THE 80/12
03BB BO DB
TST4: MOV AL,OBH
<> <><><><><><><><><><><>
03BO
E6 80
OUT MrC_PORT, AL
<><><>CHECKPO I;-.jT OB <><>
03BF BO AA
MDV
AL,OAAH
SELF TEST COMMAND
03Cl BC 0000 E MOV SP,OFFSET C8042A
SET RETURN ADDR
03C4 EB 3F 90 JMP C8042
03C7 A8 01
TST4_B: TEST AL,OUT_BUF_fULL I
S THE OUTPUT BUFFER FULl?
OlC9 74 02
JZ TST4 A GO I F NOT
OlCB
Ell 6(j
IN
AL. PORT
A
FLUSH
03CO 13C 0000 E
TST4_A: MOV SP,OFFSET OBF 42A SET ReTURN AllOR
0300 EB 3 F 90
JMP OBF_42 -
GO 1·,lAIT FOR BUFFER
0303 Ell 60 TST4_C: IN AL, PORT A
GET THE END I NG RESPONSE
0305 3C 55 eMP
AL,55H ­
0307
BO OC ~10Y AL,OCH
<><><> <><> <> <> <> <><> <>< >
0309
[6 80
OUT
MrC_PORT ,Al
<><><>CHECKPO I NT DC <><>
03D13 75 00
JNZ ERRO
GO IF NOT OK
;------- GET THF SWITCH SETTINGS
0300 flO CO
MOV
AL,OCOH
READ I
N
PUT CO~MAND
030F
BC 0000 E MOV SP,OfFSET C8042C
SET RETURN ADDRESS
03E2 fB 21 90 JMP
C8042 I
SSUE COMMAND
03E5
BC 0000 E E30B: MOV SP,OFFSET OBF _426
SET RETURN ADDRESS
5-38
Test 1