IBM 5150

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 E17
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 E18C
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