IBM 5150 Technical Reference page 134

LOC OBJ
LINE SOURCE
818 AND HQRIZOtfTAl SYNC LINES.
819 ; --­ -----­ -­ -----.-----------­ - ---------­ - - - ------------­
E32E 58 82. POP AX ; GET VIDEO SENSE SW INFO
E32F 50
821 PUSH AX ; SAVE IT
EHO 80FC30
822 CMP AH,30H
; SIlo' CARD ATTACHED?
E333 BABA03
823 MOY DX.03BAH i
SETUP ADDR OF BW STATUS PORT
E336 7402 824
JE Ell
; YES - GO TEST LINES
EHe B2DA
825 MOV DL,ODAH
; COLOR CARD IS ATTACHED
E33A
826
Ell:
; LINE_TST:
E33A 8408
827
MOV
AH,8
E33C 828
E33C 2BC9
829 SUB cX,ex
E33E 83. E13:
E33E EC
831 IN Al.DX
; READ CRT STATUS PORT
E33F 22C4
832 ANO AL,AH
; CHECK VIDEO/HORZ LINE
E341 7504
833
JNZ
El4 J
ITS ON - CHECK IF IT GOES OFF
E343 E2F9
834 lOOP E13 ; LOOP TILL ON OR TIMEOUT
E345 E609
835
JMP SHORT E 1 7 i GO PRINT ERROR MSG
E347
836 E14:
£347 28C9 837 CX,CX
£349
838
El5:
E349 EC
839 IN AL,OX I READ CRT STATUS PORT
E34A 22C4
84. AND AL.AH J CHECK VIOEO/HORZ LINE
E!4C 740A
841 JZ £16 ITS ON - CHECK NEXT LINE
E34E ElF9
842
LOOP E15
lOOP IF OFF TILL IT GOES ON
ElSO
843 E17:
I
CRT_ERR
ElSO BA0201 844
MOV DX,I02H
E353 f87902
845
CAll ERR_BEEP
; GO BEEP SPEAKER
E356 fB06
846 JMP SHORT E18
E358
847 Elb: ; NXT_LINE
Else B103
E35A D2ft
848
849
MOV
...
CL,3
AH,CL
I GET NEXT BIT TO CHECK
E1St 750E
85.
JHZ
El2
I GO
CHECK HORIZONTAL LINE
ElSE
851
El8:
; DISPLAY_CURSOR:
E35E 58
852
pop
AX
i GET VIOEO SENSE SWS
(AH)
nSF 8400
E361 COlO
853
854
MOV
INT
AH,O ,.N ; SET MODE AND DISPLAY CURSOR
; CALL VIDEO 110 PROCEDURE
855
E363
856
Db3 BAooeo
857 MOV
OX,OCOOOH
[366
858 ElBA:
El66 BEDA
859
MOV
DS,DX
E368 ZBDB
86.
.....
BX,BX
ElbA 8B07
861 MOV AX,(BXJ I GET FIRST 2 LOCATIONS
E36C 53
862 PUSH BX
E36D 58
863
pop
BX
I LET BUS SETTLE
E36E 3055"A
864 CMP AX.OAA55H
I
PRESENT?
E371 7505
865 JNZ E18B ; NO? GO LOOK FOR OTHER MODULES
£373 f80E03
866 CAll ROM_CHECK
J
GO SCAN HOOULE
E376 £804 867
JMP SHORT E 18C
E378
868 E18B:
E378 81C28000 869
ADD OX,0080H
I
POINT TO NEXT 2K BLOCK
E!7C
87. EI8C:
E37C 81FAOOC8
871 eMP DX,oe800H ; TOP OF VIDEO ROf1 AREA YET?
E380 7C£4
872 Jl El8A I GO SCAN FOR ANOTHER tIOOULE
873
1------------­-------­------------------------­------­----­-----­
874 ; EXPANSION
110
BOX TEST
875 CHECK TO SEE IF EXPANSION BOX PRESENT - IF INSTALLED,
876 TEST DATA ANO AOORESS BUSES TO 110 BOX.
877 ; ERROR=' 1801 ,
878 ; -----------­ - - - - ----­ -­ - - - - ---­ - - - ----------­ -­ -----­ - - ­ --­ - ___ _
879
880
j-----
DETERMINE IF BOX IS PRESENT
881
[382
882
; (CARD WAS ENABLED EARLIER)
nBl BAI002
883 MDV OX,02l0H
I
CONTROL PORT ADDRESS
E385 B85555
884
NOV AX,5555H
I
SET DATA PATTERN
E388 EE
885
ruT
DX,AL
E389 BOOI
886
MOV AL,OlH
ElSB EC
887 IH AL,OX ; RECOVER DATA
E3eC 3AC4
888
eMP AL.AH I REPLY?
ElSE 7534
889
JHE
E19
1 NO RESPONSE. GO TO NEXT TEST
E390 F7DG
89.
HOT
AX ; MAKE OATA=AAAA
n92 EE
891 OUT
DX,AL
EJ9l BOOI
8 . .
MOV AL,OIH
D9S EC
893
IN AL.DX I RECOYER DATA
E396 JAC4
894
eMP AL,AH
System BIOS 5-41