IBM 5150 Hardware Reference Manual page 203

LOC OBJ LINE
SOURCE
E278 7408
612 JZ 07
i NO ~ GO TO NEXT TEST
E270 BACIOl
'13
06:
tlDV
OX,lOIH
;BEEP SPEAKER IF ERROR
E280 £6ADO]
CALL
61'
ERR_BEEP
.GO TO BEEP SUBROUTINE
£283 FA 615
eLI
E284 F4
.16 HLT
;HALT THE SYSTEM
617
;
-
-- --------
---------------------------
-----­
618 ; TEST • 7
61' 8253 TIMER CHECKOUT
62.
.DESCRIPTION
621 VERIFY THAT THE SYSTEM TIMER (0
J
DOESN'T CDum TOO FAST NOR TOO
6Z2
SLOW •
.
"
,------------------------------------------- ­
E285 6•• 07:
E285 8400
625 MOV
AH.O
;RESET TIMER I»TR RECYO FLAG
£287 32EO
6. .
XDR CH,CH ,CLEAR THE CH REG
£289 BOFE
627 MOV AL,OFEH lttASK ALL INTAS EXCEPT lVl 0
E28B E6Z 1 628 OUT
INTAOt.AL jlolRITE THE 6259 IMR
£2:80 BOlO
02'
MOV
Al,aODiacoae
iSH TIM O. LSB, MODE O. BINARY
E28F E643 63. OUT TIM.CTL,Al
j~RITE TIMER CONTROL HODE REG
E291 BU6
631 IfOV Cl.l6H
j
SET PGM LOOP tNT
E293 8ACI
632 MOV AL.CL jSET TIMER 0 CNT REG
E295 E640 633
OUT TIMERO.AL ;1o.'RITE TINER 0 CNT REG
E297 F6C4FF
63.
08:
TEST
AH.OFFH ;010 TIMER 0 INTERRUPT OCCUR?
E29A 7504 635
Jill
O'
; YES - CHECK TIMER OP FOR SLOW TIME
E29C E2F9
"6
LOOP 08 IWAIT FOR INTR FOR SPECIFIED TIME
£29E EBOD
637
JMP
06
j
TINER 0 INTR DION T OCCUR - ERR
E2AO 6112
"8
09: HOV
CL.18 ISET PGM LOOP CNT
HA2 BOFF
63'
MOV AL,OFFH jWRITE TIMER 0 CNT REG
E2A4 E640 6•• OUT TIMEPO.AL
E2A6 B400 641 MOV AH.O JRESET mTR RECEIVED FLAG
E2A8 BOFE
64.
HOV
AL.OfEH jREENABLE TIMER 0 INTERRUTS
E2AA E621 643 OUT
IN7A01.AL
E2AC F6C4FF
6••
010: TEST AH.OfFH JDID TIMER 0 INTERRUPT OCCUR?
E2AF 75CC
"5
JllZ
D.
;YES - TIMER CNTING TOO FAST. ERR
E2Bl E2F9 646 LOOP 01.
.WAIT
FOP. INTR FOR SPECIFIED TIME
£2B3 £93600
647
JMP TST6 ;GO TO NEXT TES r ROUTIU£
6.8
;------------------------------------------- ­
64. TEMPORARY INTERRUPT SERVICE ROurItfE
65.
J-------------------------------------------­
••66
651 011
PROC NEAR
E286 8401
.5'
H.V
"',1
E288 50 653 PUSH AX ;SAVE REG AX CONTENTS
E289 eOFF
654 MOV
AL.OFFH
jHASK ALL INTERRUPTS OFF
E2BD £621 655 OUT
INTA01,AL
f2BD 8020 6. . MOV AL,EOI
E2BF £62:0
657 OUT INTAOQ,Al
E2:Cl 56
658
POP
AX
;RESTORE REG AX CONTENTS
£2C2 CF
65.
lRET
...
011
ENDP
661
E2C]
662 NMI_INT PROC NEAR
E2C3 50 . .3 PUSH
AX
;SAVE DRIS CONTENTS Of AX
Eleft Elt62:
66'
IN AL.PORT_C
E2C6 A640 665 TEST AL.40H
; 10 CH PARITY CHECK?
E2C8 7408 66. Jl 01. I YES - FLAG IS SET TO 0
E2CA BEI9E2: . . 7 flOV SI,OFfSET 01 ; ADoR OF ERROR MSG
E2Co B90EOO . .8 HOV
CX.olL
IMSG LENGTH
E2:00 EBOA
66.
JMP SHORT 013 jOISPLAY ERROR "SG
E2:02
67. 012:
E202 A880 671
TEST
AL,80H
jPLANAR RAM P-CHECK?
EZ04 7410
672 JZ
01'
INa - AUX INT
£206 BE27E2
'73
HOV S1.OFFSET 02
;ADOR OF ERROR MSG
'7'
E209 B90EOO MQV
CX.02L
iMSG LENGTH
E20C 675 013:
E2DC asoooo 676 MOV AX.O
; INIT Atm SET 110DE FOR VIDEO
E20F COlO 677 INT 10H
JCALL VIDEO_IO PROCEDURE
E2El E8E603 678 CALL P_MSG ;PRINT ERROR I1SG
E2E4 FA
6i9
eLI
E2ES F4 6B.
HLT ;HALT SYSTEM
E2E6
'SI
014:
E2E6 56
'S2
POP
AX i RESlORE ORIG CONTENTS OF AX
E2E7 CF
'S3
IRET
6•• HMI_INT ENDP
A-tO