IBM 5150 - 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