IBM 5170 Technical Reference page 175

'" 0000
BEGIN EQU
6 1 8 1 0 2 8 COP R • IBM
1 9 8 4 ; EVEN
6 1 8 1 0 2 9
COP R •
IBM
1 9 8
4 ;
ODD
0000 36 36 31 31 38 38
'66118811002289 CCOOPPRR •• IIBBMM
11998844
t ;
COPYR! GHT NOTI CE
31 31 30 30 32 32
38 39 20 20 43 43
/IF 4F 50 !)O 52
52
2E 2E 20 20 JI9 49
42 42 4D 40 20 20
31 31 39 39 38 38
34 34
;
----
- - -- -
-- --
------
---
----
---
-
-------
--------- _.
INITIAL RELIABILITY TESTS -- PHASE 1
~O;;:~---;~;;C----N~;~-----------------------------
002C
LOAD A BLOCK OF TEST CODE THROUGH THE KEYBOARD PORT
FOR MANUFACTU I NG TEST.
THIS ROUTINE W! LL LOAD A TEST (MAX LENGTH:::;FAFFH) THROUGH
THE KEYBOARD PORT. CODE WILL BE LOADED AT LOCATION
0000:0500. AFTER LOADING, CONTROL WILL BE TRANSFERED
TO LOCATION 0000:0500. STACK WILL BE LOCATED AT 30: 100
TH I S ROuT I NE ASSUMES THAT THE FIRST 2
BYTES TRANSFERED CONTAIN THE COUNT OF BYTES TO BE LOADED
(BYTE l=COUNT LOW, BYTE 2=COUNT HI.) :
;
-----
-
-
-
------
-------------
---------
------------
-
- -- -
------
---------­
002C MfG BOOT;
002C FA
- CL I NO INTERRUPTS
;------- DEGATE ADDRESS LINE 20
0020 B4 DO
MOV
AH,DISABLE BIT20
DEGATE COMMAND
002F E8 0000 E CALL
GATE_A20 -
I
SSUE THE COMMAND
; ------- SETUP HARDWARE I NT VECTOR TABLE LVL 0-7
0032 2B CO SUB
AX, AX
0034 8E CO
MOV ES,AX
OU36 B9 OOOB MOV
CX,08 GET VECTOR CNT
0039
DE
PUSH
CS SETUP
as
SEG REG
003A
lF POP OS
003B BE 0000 E MOV
SI,OFFSET VECTOR_TABLE
003E BF 0020 R MOV
DI,OFFSET INT_PTR
0041 A5
MFG_B: MOVSW
0042 47 INC
01 ; SK I P OVER SEGMENT
0043
47 INC
01
0044
E2 FB
LOOP MFG_B
;------- SETUP HARDWARE INT VECTOR TABLE LVL 8-15 (VECTOR.S START AT INT 70H)
0046 2B CO SUB
AX, AX
0048 BE CO MOV ES,AX
004A B9 0008
Mav
CX,08 ; GET VECTOR CNT
0040 DE
PUSH
CS ; SETUP OS SEG REG
OOIIE 1F POP OS
004F BE 0000 E MOV
SI,OFFSET SLAVE_VECTOR_TABLE
0052 BF 01CO R MOV
DI,OFFSET SlAVE_tNT_PTR
0055 A5
MFG_C: MOVSW
0056 47 INC
01
; SK I P OVER SEGMENT
0057 47 INC 01
~
0058 E2 FB
LOOP MFG_C
; ----- SET UP OTHER I NTERRUPTS AS NECESSARY
ASSUME
DS:ABSO
ASSUME ES:ABSO
005A 2B CO SUB
AX,AX
DS=O
005C
BE 08
Mav
DS,AX
005E 8E CO
Mav
ES,AX
ES=O
0060
C7 06 0008 R 0000 E MOV
NMI_PTR,OFFSET NMI_INT
NMI INTERRUPT
0066
C7 06 0014 R 0000 E MOV
I NT5_PTR, OFFSET PR I NT_SCREEN
PR I NT SCREEN
006C C7 06 0062 R F600 MOV BAS I C_PTR+2, OF600H
SEGMENT FOR CASSETTE BAS
I
C
; ------- ENABLE KEYBOARD PORT
0072 80 60
MOV AL,60H
WR I TE 8042 RAM 0
0074 E8 0405 R
CALL C8042
I SSUE THE COMMAND
0077 BO 09
MOV Al,000010018
SET INHIBIT OVERIOE/ENABLE OBF INT
0079 E6 60
OUT PORT_A,AL
AND NOT PC COMP
007B E8 0090 R
CALL MfG_2
GET COUNT LOW
007E 8A F8 l·tOV BH,AL
SAVE IT
0080 E8 0090 R
CALL MFG 2
GET COUNT HI
0083
8A E8
MOV CH,Al
0085 8A CF MOV CL, BH
CX NOW HAS COUNT
0087 FC CLO
SET DIR. FLAG TO INCRIMENT
0088
BF 0500
MOV 0 I, 0500H
SET TARGET OFFSET (DS=OOOO)
008B
008B E4 64
IN
AL, STATUS_PORT
GET 8042 STATUS PORT
0080 A8 01 TEST
Al, OUT_BUF_FULL
KB REQUEST PENDING?
008F 74 FA JZ
MFG_1
LOOP T t Ll DATA PRESENT
0091
E4 60 IN AL, PORT_A
GET DATA
0093 AA
STOSB
STORE IT
0094 £6 80 OUT MFG_PORT ,AL
DISPLAY CHAR AT MFG PORT
0096 £2 f3
LOOP MFG_l
LOOP TI Ll ALL BYTES READ
0098 EA 0500 ---- R
JMP MFG_TEST_RTN
FAR JUMP TO CODE THAT WAS JUST
LOADED
0090
E4 64
MFG_2: IN AL, STATUS PORT
CHECK FOR OUTPUT BUFF FULL
009F A8 01
TEST AL,OUT_BUF_FULL
HANG HERE I F NO DATA AVA I LABlE
OOAl El FA
LOOPZ MFG_2
OOA3 E4 60
IN
GET THE COUNT
00A5
C3
RET
~
;
---.------- ----------------------------­
• TEST.Ol •
; X286 PROCESSOR TEST (REAL MODE) ;
; DESCR I PT ION
VERIFY FLAGS, REGISTERS
AND CONDIT!ONAL JUMPS
ASSUME
CS: CODE,
os:
DATA, ES: NOTH
r
NG, 5S; NOTH I NG
00A6 FA
START_l: Cli
; DISABLE INTERRUPTS
00A7 B4 05 MOV
AH,OD5H SET SF, CF, ZF, AND AF FLAGS ON
00A9 9E SAHF
OOAA 73
JNC
2A
ERR02
GO TO ERR ROUTl NE I
r
CF NOT SET
OOAC 75 28
JNZ
ERR02
GO TO ERR ROUT I NE IF ZF NOT SET
OOAE 7B
JNP
26
ERR02
GO TO ERR ROUTINE IF PF NOT SET
OOBO 79
JNS
24
ERR02
GO TO ERR ROUT
j
NE I F SF NOT SET
OOB2 9f
LAHF
LOAD FLAG I MAGE TO AH
Test 1 5-33