IBM 5170 Technical Reference page 199

03£3
26:
C6 06 0064 10
03E9
BO 40
03EB E6 87
03ED 26; AO 0064
03F1 £6 84
03f3 26; 80 3£ 0064 FE
03F9
75
03
03FB EB 79 90
03FE B8 0060
0401 8E 08
0403 28 Ff
0405 88 05
0407 88 DO
0409 88 F7
OI,OB 28 CO
0
1
100 89 05
040F 28 C9
0411 E2 FE
0413 59
0414 56
0415 50
0416 51
0417 38 C2
0419 8B C2
0418 7560
0410 59
041 £ 58
Ol~ 1
f
05 0040
0 1 122 50
0423 51
0424 50
0425 BB OOOA
0428 89 0005
042B 28 FF
042D
01,20
33 02
042F F7 F3
01131 80 CA 30
0434 52
0435 E2 F6
0437 B9 0005
043A
043A
58
0
1
138 E8 0000 E
043£ 47
043F E2 F9
0441 B9 0006
01,44 BE 0000 E
0
1
147
01,47 2E; SA 04
044A 1I6
044B E8 0000 E
044E 47
044F E2 F6
0451 58
0452 59
01153 56
0454 £2 1B
0456 E6 89
0458 86 C4
045A £6 8A
045C £4 61
045E 24 CO
0460 86 C4
0462 E4 87
Q1I6 l
j
22 EO
0466 E4 SA
01168 86 C4
046A E4 89
046C 75 Of
046£ EB 06 90
0471
OLI71 50
0472 51
0473 E9 03BA R
0476
0476 BO 34
0478 E6 80
047A £9 0000 E
0470 £6 82
047F 8A C4
01181 EB 00
0483 E6 83
0485 8B C6
0487 £6 86
0489 86 EO
048B EB 00
0480 E6 85
;---_.-- DO
;------- SET
MOV
OUT
NEXT_A: MOV
j-------
DMA
OUT
; .------ CHECK
CMP
JNZ
JMP
;------- SET OS
NEXT_B: MOV
MOV
SUB
MOV
MOV
MOV
SUB
MOV
: ------- ALLOW
SUB
Z2: LOOP
POP
POP
PUSH
PUSH
CMP
MOV
JNZ
POP
POP
ADO
PUSH
PUSH
PUSH
MOV
; ------- CONVERT
MOV
SUB
DEC_LOOP:
XOR
olV
OR
PUSH
LOOP
ADDITIONAL STORAGE ABOVE 1 MEG
USE TEST 10 CHECK
AL,IO_CHK
DMA_PAGE+6,AL
AL,BYTE PTR ES:(DS_TEMP.BASE_Hl_BYTE}
PAGE REGiSTERS 3
SAVE THE HIGH
FOR
pas
I
BLE
FOR TOP OF RAM
i
FEOOOO) l6MEG
BYTE PTR ES:(oS_TEMP.BASE_HI_BYTE).OfEH
NEXT B
KB_LOOP _3
REGISTER
AX,DS_TEMP
OS,AX
01,01
AX, OS: (D I
J
OX,AX
SI,DI
AX, AX
DS:(Oll.AX
CRT TIME TO
ex, CX
Z2
CX
AX
AX
ex
AX, OX
AX,oX
E21A
ex
AX
AX, 611
AX
CX
AX
BX,10
AND SAVE
CX,5
01,01
ox, ox
ex
DL,30H
OX
DEC_LOOP
;------- DISPLAY LAST OK MEMORY
MOV
PRT_DEC:
POP
CALL
INC
LOOP
MQV
MOV
KB_LOOP_ 1:
MOV
INC
CALL
INC
LOOP
POP
POP
POP
LOOP
;-------- CHECK
OUT
XCHG
OUT
IN
AND
XCHG
IN
AND
IN
XCHG
IN
JNZ
JMP
KB_LOOP_2:
PUSH
PUSH
JMP
CX,5
AX
~70T
_PRT _HEX
PRT_oEC
CX,6
SI,OFFSET f3B
AL,CS: [SI
J
SI
67oT_PRT _HEX
~_LOOP_1
CX
AX
I<B_LOOP_2
PARITY
DMA_PAGE+8,AL
AL,AH
DMA_PAGE+9, AL
AL,PORT_B
AL, PAR I TY ERR
AL,.AH ­
AL,OMA_PAGE+6
AH,AL
AL,oMA_PAGE+9
AL, AH
AL,DMA_PAGE+8
E21A
I<B_LOOP_3
AX
CX
E21_A
; ------- BACK TO REAL MODE
KB_LOOP_3:
MOV AL,34H
OUT
MFG_PORT, AL
JMP
PROC_SHUTDOWN
PRINT FAILING ADDRESS AND
;----- USE DMA PAGE REGISTERS AS
; SET SHUTDOWN 3
E21A: OUT DMA_PAGE+l,AL
MOV AL,AH
JMP SHORT $+2
OUT
DMA_PAGE+2,AL
MOV AX,SI
OUT
DMA_PAGE+5, AL
XCHG AH,.AL
JMP
SHORT $+2
OUT
DMA_PAGE+4,AL
BYTE OF SEGMENT
ERROR
; TOP OF RAM?
GO If MOT
GO NEXT TEST
PO I NT TO START OF 8LOCK
GET THE VALUE OF TH I S BLOCK
SAVE
SET S I FOR POSS
J
SLE ERROR
CLEAR RAN LOCAT I ON
DISPLAY MSG
GET THE LOOP COUNT
RECOVER TESTED MEMORY
SAVE TESTED MEMORY
SAVE LOOP COUMT
DOES THE BLOCK 10 MATCH
GET TH E BLOCK I D FOR POSS I BLE ERROR
GO PR I NT ERROR
POP ex TO GET AX
RECOVER TESTED MEMORY
64K INCREMENTS
SAVE TESTED MEMORY
SAVE LOOP COUNT
SET DEC (MAL CONVERT
OF 5 NIBBLES XX,XXX KB
CRT BUfFER POSITION
DIVIDE BY 10
MAKE INTO Ase I I
SAVE
RECOVER A NUMBER
POINT TO CRT BUFF
PRINT
I
KB OK'
INCREMENT BUfF PTR
RECOVER WORK REGS
RECOVER 641< BLOCK COUNT
LOOP TILL ALL MEM. CHECKED
SAVE AX
CHECK FOR 10 OR PAR CHECK
STR I P UNWANTED BITS
SAVE ERROR
CHECK FOR R/W OR 10 ERR
RESTORE AX
GO I F PAR ITY ERROR
CONTINUE
SAVE LOOP COUNT
CONT I NUE TILL DONE
; <><><><><><><><><><><><><><>
; <><><>CHECKPO I NT 34 <><><><>
; BACK TO REAL MODE
NEXT TEST VIA JUMP TABLE (SHUT2)
XOR'EO PATTERN IF DATA COMPARE ERROR
TEMPORY SAVE AREA FOR ERROR
SAVE FAILING BIT PATTERN (LOW BYTE)
SAVE HIGH BYTE
10 DELAY
GET THE FA 1... 1NG OFFSET
10 DELAY
Test 2
5-57