IBM 5150 - Using Diagnostic Aids

•••
lOC OBJ
LINE SOURCE
£179 E2FD 462 LOOP
C19
; LOOP TIL All ZERO
463
464
DETERMINE 10 CHANNEl RAM SIZE
465
fI78 £462
466
IN
Al,PORT_C
E170 240F
'67
AND Al,orH
E17F 7418
'b.
JZ CZl
f161 BA0010 4., MOV
DX.loaOH
SEGMENT FOR 110 RAM
£184 8AEO 47. MOV AH,Al
El86 BODO
.71 MOV AL.O
ElB8
'7>
C20:
FIll_IO:
ElM 8etZ
473 HOY
ES.DX
EISA 890080
.7 • ttov CX.800OH ; FIll 3ZK BYTES
El80 2:BFF
• 75 SUB 01.01
£18F f3 47b REP
SIOSB
£190 AA
fl'9l 81C20008 477 ADD DX,800H
i NEXT SEGMENT VALUE
El'95 FEee
'7.
DEC
AH
£197 75EF .79 JtlZ C2 • ; FIll_IO
•••
; -- ----- ------ --- --- -- --- -- ----- -- -- ---- -----
INITIALIZE THE 8259 INTERRUPT CONTROLLER CHIP
'8'
.82
; ------------------------------------ --------
El'99 483 C21:
El'99 8013
.8. MOV Al.13H iICWl - EDGE, SHGL. ICW4
El'9B £62:0 485
OUT INTAOD ,Al
El'90 B008
48b
MOV
AL.8 iSETUP lewz - INT TYPE 8 IS-F J
El9F £621
.87
OUT INTAOl,A1.
ELl! 8009 MOV AL.'9 .SETUP ICW4 - 8UFFRO,8086 l100E
.. ,"
ElA3 E621
.8. OUT HITAOI,AL
EIA5 2BeO
'.0
SUB AX,AX
,POINT OS AND ES TO BEGIN
ElA7 8ECO
49.
MOV
ES,AX
; OF R/w STORAGE
ElA9 BE4000
.92 HOV
SI,DATA ;PQIHT as TO DATA SEG
ElAc SEDE
'93
MOV DS,SI
EIAE 891E7,ZOO HDV
RESET_FLAG,BX
,RESTORE RESETJUG
.,.
E182 813E72003412
'.5
CMP RESET_FUG,l234H .RESETJLAG SET?
El88 7438
JE
C25
ins - SKIP STG TEST
ElBA 8E08
497 MOV OS,AX
i FOltIT as TO 1ST 16K OF STG
.. 8
i--------------------------------------------
CHECK FOR MAHUFACTUIUNG TEST 2 TO LOAD TEST PROGRAMS FROM KEYBOARD.
4"
soo
;--------------------------------------------
EISC BCF03F
501 MOV SP, lFFOH
,
ESTABLISH TEMPORARY STACK
EI8F 8EDO 502
MOV
S5, AX
EICI 8BFe
50'
NOV 01, AX
EIC3 882400 5 •• MOV
6X, 24H
EIC6 C707B6E2
5.5 MOV WORD PTR tBX),OFFSET 011 ISET UP KB INTERRUPT
EICA 43 50b
INC
BX
ElCB 43
S07 INC
BX
Elce 8COF SOS
MOV (BXJ,CS
ElCE E88704 50. CAU KBD_RESET ; READ IN KB RESET CODE TO Bt
EIDI 80FB65 .. 0
CftP
Bl,065H ; IS THIS MANUFACTURING TEST 2?
EI04 750E
511
JNZ
C23
; JUMP
IF NOT MAN. TEST
EI06 B2FF .. 2
MOV
Dl,255 ; READ IN TEST PROGRAM
Et06 E86A04
513
e22 : CAll SP _TEST
EIOB 8AC3 514 MOV
At.BL
ElDD AA
515
STose
ElOE FECA
51b DEC OL
ElEO 75F6 5.7
JNZ
C22 i JUMP IF NOT DONE YET
EIE2 CD3E
5."
ItIT 3EH
;SET INTERUPT TYPE 62 ADDRESS F8H
EIE4
5.'
e23: jCONTItlUE IN NORMAL t100E
EIE4 DE 520 PUSH CS ; PUT SS B'.CK
ElE5 17
521 POP 55
ElE6 FA
CLI
5"
E1E7 BC18EO
523
~10V SP,OFFSET C2 ;SETUP REltrRN ADDRESS
ElEA EnDFE
JHP STGTST
IGO
TO RDIWRT STG SUBROUTINE
'"
EIED 7403
525
C24:
JE
C25
.GO TO NEXT TEST IF OK
EIEF E9BDFE
JMP
ERROl
52'
527
5Z8
SHUP STACK SEt AtID S1'
52~
EIF2 530 C25:
E1F2 B83000
531 MOV
AX.STA.CK
;
GET STACK VALUE
E1F5 8EDO
532 MOV SS,AX ; SET THE STACk UP
EIF7 BCOOOI 533 ttoV
SP ,OFFSET TOS
; STACK
IS READY TO GO
534
535
SETUP THE HHI INTERRUPT VECTOR POINTER
53.
A-8