IBM 5150 - Page 204

LOC OBJ LINE SOURCE
685 ; ------ ---- --------------- --- ---------
686 ; nUTIAL RELIABILITY TEST -- PHASE 3
687 ; - ---- ---------- ----- ------ ------- -----
688
ASSUHE CS:COOE,DS:DATA
66.
flE8 20323031 6.0 El DB
201 '
0004 691 ElL
EQU
$-El
692
693 ESTABLISH BIOS SUBROUTINE CALL INTERRUPT VECTORS
694
f2Ee 695
TST8:
E2Ee Fe
696
eLO
jSET OIR FLAG TO CO FORWARD
EZEO BF4000 697
NOV DI,OFFSET VIDEO_INT
; SETUP ADDR TO INTR AREA
EZFO DE
693
PUSH CS
E2Fl IF
699
POP os
jS[TUP AD DR OF VECTOR TABLE
ElF2 BE13FF 700 r-:OV SI,OFF13H
; OFFSET YECTOR_TABLE+3Z
E2:F5
892000 701
MOV CX,ZOH
EZF8 F3 702
REP NOVSU
iMOYE VECTOR TABLE TO
RAM
E2F9 AS
703
704
SETUP
TINER 0 TO NODE 3
705
EZFA BOFF
706
MOV
AL,OFFH ;DISABLE ALL DEVICE INTERRUPTS
E2Fe E621 707 OUT INTAOt ,AL
E2FE
B036
708
MOV AL.36H ;SEl TIM O.LSB,MSB,MODE 3
f300 E643
70.
OUT TINER+3,AL
;WRITE TIMER MODE REG
n02 BODO
710
MOV AL,O
E304 E640
711
OUT TINER,AL
;WRITE LSB TO TIMER 0 REG
f306 E640
71.
OllT
TINER.AL
IWRITE MSB TO TIMER 0 REG
713
714
SETUP TItIER 0 TO BLINK LEO IF MANUFACTlJRING TEST MODE
71S
716
ASSUME OS:OATA
f308 884000
717
MOV AX,DATA i POINT OS TO DATA SEG
f30B BED8
716
MOV OS,AX
E30D
E87803
719
CALL KBD_RESET iSEND SOFTWARE RESET TO KEYBRO
E3l0 60FBAA
720
eMP BL.OAAH iSCAN CODE AA' RETURNED?
Ell3 7426
721
JE
E3
;
YES - CONTINUE {UON MFG MODE I
E3lS BOle
722
MOV
AL.3CH
; EN KBO. SET KBD CLK. LINE LOW
E317 E661
723 OUT
PORT_B.AL
jWRITE 8255 PORT B
E319 90
724
NOP
ellA 90 725
NOP
ElIB E460
726 IN
AL,PORT_A iWAS A BIT CLOCKED IN?
ElID 24Ff
727
ANO AL,OFFH
nIt 7516 726
JNZ
E.
iYES - CONTINUE {HON MFG MODE I
ElZi FE061200
729
INC NFG_ TST i ELSE SET SW FOR MFG TEST MODE
El2S 26C706200082E6 R
730 MOV ES: INT_AODR .OFFSET BLINK_INT ,SETUP TIMER INTR TO BLINK LEO
ElZC 26C7062Z0000FO R 731
MOV ES: INT_AODR+2.. CODE
El33 BOFE
73. MOV
AL.OFEH
; ENABLE TINER INTERRUPT
E33S E621
733
OUT INTAOl.AL
E337
73.
E2:
; JUMPER_NOT_IN:
E337
Boce
735 MOV AL,OCCH ;RESET THE KEYBOARD
039 E66l
736 OUT PORT_B,AL
737 ; -------- -------- - - - - -- --------------.-------
738 ; TEST. OS
739 ROS CHECKSUM II
740 .DESCRIPTION
741
742.
A CHECKSUM
IS DONE FOR THE 4 ROS NODULES CONTAINING BASIC CODE
j ------ _____________________________________ _
El3B 743 E3:
El3S 82.04 744
MOV
OL.4
iNO. OF ROS NODULES TO CHECK
E330 B80060
745
MOV
BX.6000H
j5ETUP STARTWG POS ADDR
E340 746 E4:
; CHECK_ROS:
E340 EBC8fE 747
CALL ROS.CHECKSUM
E343 7507
748
JNE E5
jBEEP SPEAKER IF ERROR
E345 FECA 749
DEC OL
,ANY
MORE TO DO?
!~ E3477SF7
730
JNZ E4
;
YES - cmnINUE
El49 E80790 7>1 Jt1P
E6
;NO - GO TO NEXT TEST
E34C
752
E5:
j ROS_ERROR;
E34C BAOIOl 753
MOV OX.lOIH
E34F f80E02 754
CALL ERR.BEEP
;BEfP SPEAKER
A-ll