IBM 5150 - Page 206

LOC OBJ
LINE SOURCE
82.4 ; ------------------------------------- -------
82.5 ;TE5T .10
826 CRT INTERFACE lINES TEST
827 ;DESCRIPTION
62:8 SENSE ON/OFF TRANSITION OF THE VIDEO ENABLE AtIJ HORIZONTAL
829 ; SYNC LINES.
830 1--------------------------------------------
pop AX
; GET VIDEO SENSE
SW INFO
~:~~::
8"
PUSH
i5AVE
AX
IT
E3C2 80FC30
8ll CHP AH.30H
iB/w CARD ATTACHED?
E3C5 BABADl
81. MaV DX.038AH
iSETUP AODR OF BW STATUS PORT
nee 7403 815 JE Ell ;YES - GO TEST LINES
f3eA BADA03 81.
I10V
DX,03DAH jCOLOR CARD IS ATTACHED
1!!3CD
817 Ell: i LIHf_TST:
nco 8408 818 MOV AH.8
EXF
8 .. EI2.:
BeF 28C9 8.0
SUB
CX,CX
BOI EC 8.1
E13:
IH AL,DX
;READ CRT STATUS PORT
£302 22C4 AND AL,AH ;CHECK VIDEO/ttORZ LINE
8"
8.,
-£304 7504
8.,
JNZ EI4
; ITS ON - CHECK IF IT GOES OfF
ElOtt E2F9
LOOP EU
; LOOP TILL ON OR TIMEOUT
8.,
E3D8 [ell
8'5
JMP SHORT 'El7
I GO PRINT ERROR MSG
nOA 28t9 El4:
SUB CX,CX
8"
flOC EC 8.7
ElS:
IN
AL,DX
;READ CRT STATUS PORT
ElOO 22:C4
8.8
AND AL,AH
;CHECK VIDEO/HORZ LINE
nOF 7404- ; ITS ON - CHECK NEXT LINE
8"
JZ
El'
ElEl £2F9 850
LOOP ElS
; LOOP IF OFF TILl: IT GOES ON
E3E] EBO-S 851
JMP
SHORT E17
E3£5 8S>
E16: I NXT_LINE:
E3ES BI03 851 MOV CL,3
; GET NEXT BIT TO CHECK
E3E7 D2EC 85. SHO AH.CL
ElE9 75£4
855 JHZ ElO
;GO CHECK HORIZONTAL LINE
ElEB £B06
85. JMP SHORT El8
;DISPLAY CURSOR ON SCREEN
ElEO 857 E17:
; CRT_ERR:
E3ED
BADlOI
85. HOV DX.I02H
£3FO E83D02
85. CALL ERR_BEEP
;GO
BEEP SPEAKER
8'0
E18:
; DISPLAY_CURSOR:
~:~:~ 58
8.1 POP
AX
IGET VIOEO
SENSE SWS UH)
ElF4 8400
MOV AH.O
iSET HOOE AND DISPLAY CURSOR
8"
'E3F6 COlO
8 .. mT
10H
;CALL VIDEO liD PROCEDURE
864 J -- --- -- - - -- -- -- - ---- -- ---- - --- ---- - --- ------
865 ;TEST. 11
866 ADDITIONAL READ/WRITE STORAGE TEST
867 ;DESCRIPTION
868 WRITE/READ DATA PATTERNS TO ANY READ/WRITE STORAGE AFTER ntE BASIC
869 16K. STORAGE ADDRESSABILITY IS CHECKED.
870 ; -- - --- -- - - ---- --- ------ ------------ --- - --- --
871 ASSUME OS:DATA
ElF8
870
£19:
BF8 884000
8n
MOV
E3FB 8E08 87. MOV
875
87. DETERMINE RAM SIZE ON PLA~iAR BOARD
877
BFD 8A261000 8i8
MOV AH.BYTE PTR EQUIP_FLAG
;
GET SENSE SIoIS INFO
E401 80E40C 87. AND
AH.OCH
; ISOLATE
RAM SIZE SWS
£404 8004
8 ..
MOV AL~4
£406 F6E4
881 MUL AH
£408 0410
8S;!
ADO AL,I6
;AOD BASIC 16K
£40A 8BOO
881
MOV
OX.AX
;SAVE
PLANAR RAM SIZE IN ox
E40C 8B08
88'
MOV
eX.AX
; AND IN ex
M'
8 ••
DETERMINE 10 CHAHNEL RAM SIZE
U7
E40£ £462
8U IN AL,PCRT_C ;READ 10 CH RAM SIZE SWS
£410 240F
88.
ANO AL.OFH
I ISOLATE
FROI1 OntER BITS
~E412 842:0- 8.0
MOV
AH,32
£414 F6£4
891
M\JL AH
£416 A31500
MOV IO_RAM_SIZE .AX ;SAVE 10 CHANNEL RAM SIZE
8.,
£419 83F840
8"
CMP 8X.40H ; P LAHAR RAM SIZE ::: 64K?
E41C 7402:
8"
JE EaO ;YES - ADD 10 CHN RAM SIZE
E41E lacO
895
SUB
AX,AX ;NO - 000 T ADD ANY 10 RAM
£420 E20:
; ADD_IO_SIZE:
8"
£42:0 OX3 897 ADD
Ax.ex
;SUM TOTAL RAM SIZE
£422 A31300
898 MOV MEtfORY_SIZE,AX ;SETUP MEMORY SIZE PARM
E425 813E72003412
8'9
CMP RESETJLAG.l2.34N
; POD INITIATED BY KBD RESET?
A-13