IBM 5150 - Page 202

LOC OBJ
LINE SOURCE
EIFA 26C7060800C3EZ R 537
MOV ES:NMI_PTR,OFFSET NI1I_INT
E201 ZilC706QAQOOOfO A 538
MOV ES:Ht1I_PTRtZ .COOE
E208 E920400 539 JMP
T5T6
1
GO TO NEXT TEST
54.
f208
S41
ROS_CHECKSUM PROC
HEAR
J NEXT_ROS_MODULE
f2:0B 8900:1:0 542 tl0Y
CX.8192
;NUtI8ER- Of BYTES TO ADD
f20E 32C;0
5"
XCR
Al,Al
E210
544 C26:
1;210 2E0207
545
ADO
Al,cs:IBXl
un 43 546
INC. BX
; POINT TO NEXT BYTE
1:214 ElF. 547
lOOP C26
IADO ALL BYTES IN ROS t10DULE
E216 OACO 548
OR AL,AL 150M = 07
£2.18 C3
549
RET
55.
ROS_CHECKSUM E~mp
551 ; --- -----.--.--------------------------
552 I INITIAL RELIABILITY TEST -- PHASE 2
553 1-- -- --------------------------------- ---
554
ASSUME CS:COOE,ES:ABSO
555
E219 504152,4954$920 556
01 OB
'PARITY CHECK 2'
43484543482032
OOOE 55.7
OIL EQU
$-01
E227 50415249545920
55. D2 08 'PARITY CHECK l'
43484S43482031 ,/
DaDE 55. on
'QU
$-02
StoO ; ------ --- -----------------------------------
561 ; TEST. 06
562 8259 INTERRUPT CONTROLLER TEST
563 IDESCRIPTION
564 • READl'WRITE THE INTERRUPT MASK REGISTER (UIU WITH ALL ONES AHO ZEROES.
565 ENABLE SYSTEM INTERRUPTS. MASt< DEVICE INTER.RUPTS OFF. CHECK FOR
566 HOT INTERRUPTS (UNEXPECTED).
567 ; - --- -- ____________________________ ----.-----
£235
568 T5T6:
E235 Z8tO
569
SUB
AX,AX
;
SET UP ES REG
E237 BEtD
57'
MOV E5,AX
571
572 i--~--- SET UP THE INTERRUPT 5 POINTER TO A OUNNY
~
573
E239 26C706140054FF R 574
MOV
ES-:INT5_PTR,OFFSET PRINT_SCREEN
;PRINT
SCREEN
E240 26C70"6160000FO R
575
MOV
ES: It'fT5_PTR+2,CODE
576
577
TEST THE IMR REGISTER
578
E247 fA
579
eLI
IOIABLE INTERRUPTS
E248 BODO 58.
MOV
AL,O ; SET II1R TO ZERO
E24A E62.l
OUT INTA01.AL
5.,
E24C E421
582 IN
AL,IUTAOI IREAO IMR
E24E OACO 5.3 OR Al.AL
;INR :::: 07
E250 7528
5.'
JIll
06
;GO TO ERR ROUTINE IF HOT 0
E252
BOFF 585 MOV AL,OFFH iDISABLE DEVICE INTERRUPTS
E254 E621 .. 6
OUT
INTA01,AL
iWRITE TO IMR:
E256 £421
5.7 Al,INTAOl IREAD IMR
E258 0401
5 •• AOO
AL,!
IAlL 1t1R BIT OM?
...
HI
E25A 7521
JHZ 06 iND· - GO TO 'ERR ROUTINE
5'.
591
CHECK FOR HOT INTERRUPTS
592
E'25C Fe 593
ClO ISET DIR flAG TO GO FORWARD
E250 890800. 594
MOV CX.8
;
SETUP TEMP INT RTNE IN PRT TBL
E260 8F2000 595
MOV
DI,OFfSET INT_PTR ;GET ADDRESS OF INT PROC TABLE
E263 596
03;
; VECTBLO:
E261 8886£2:
597
NOV
AX,OFFSET 011 ; HOVE ADDR Of INTR PROC TO TSl
£266 AS
STOSW
...
E267 8800"0 59.
MOV AX,CODE IGET ADDR OF INTR PROC SEG
ElU AB
6'0
STOSW
H6B 83C]04 6.1
AOO BX.4 ;SET BX TO POINT TO NEXT VAL
r"'\
f26E E2J1'3 6 ..
lOOP
03
; VECTBLO
603
6 .. INTERRUPTS ARe: MASKED OfF. CHECK THAT NO INTERRUPTS OCCUR.
60S
E270 32E4 6.6
XOR
AH,AH
ICLUR AH REG.
E272 Fe
6.7 srr ; ENABL'E EXTERNAL INTERRUPTS
E273 28C9 608
SUB
eX,ex
INAlT 1
SEC FOR ANY INTRS THAT
E275 HFE
LOOP 04 iHIGHl OCCUR
£277 E2fE 61. DS:
LOOP
05
6.'
0'"
E279 04E4 611
OR AK.AH IDID ANY' IlfTERRUPTS OCCUR?
A-9