IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

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]
61' CALL 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
E209 B90EOO '7'
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