IBM 5150 - Page 205

lOC OBJ
LINE
SOURCE
755
; ---- --- -- ------- --- - ------.-----------------
750
;TEST .08
757
INITlALIZE AH1) START CRT COUTROLLER (6845)
758
TEST VID EO READ/WRITE STtmAGE.
759 ;OESCIHPTIOU
760
R£SET THE VID.fO EtlABlE SIGNAl~
7.,
SELECT ALPHANUMERIC troDt. 40 * 2:5. B & W.
7.'
READ/URITE DATA PATT~::flS TO 51G. CHECK SIG -ADDRESSABIlITY.
763
; - ---------- ------------- --- - ------ -----.----
E352 764 E6:
E352 f46D
765 AL.PORT_A ;RUO SENSE SWITCHES
El54 8400
'"
AH,C 766 HOY
E3S6 A31000 767 HOY
EQUIP JUG,AX
;STORE SENSE SW INFO
£359 2430
76a .NO Al.'30H ; ISOLATE VIDEO SWS
Elsa 7503
7 •• JHZ E7 I VIDEO SWS SET TO 01
fl'
E3S0 £99800
77.
JMP
;SKIP VIDEO TESTS FOR BURN-IN
E36D 771 £7:
; TEST.VIDEO:
£360 86£0
772 XCHG
AIi.AL
E362 Bort3o
773
C""
Alt,3DH ;B/W CARD ATTACHED'!
£365 7409
774 JE
Ea
,YES - SET MODE fOR 8/W CARD
E367 FECO 775 rHe
Al
lS£T COLOR I'100E FOR COLOR CD
E369 80fC20 77. tHP AH,20H 180X25 MODE SElECTED?
E36C
7502 777 JNE Ea
iNQ - SET MODE fOR 40X25
£36£ B003 77a HOY AL.3
jSET MODE FOR eOX25
E370 779
E8:
I SET_HODE:
£370 50
7a.
PUSH AX ;SAVE VID'EO "'ODE ON STACK
E371 2.1.[4
7a. SUB AH,AH
lINITlALIZE TO ALPHANUMERIC I1D
E373 COlO 7a2
IHT
'.H
;CALl VIDEO_IO
E375 S8 783
pop
AX
JRESTORE VIDEO SENSE SWS IN AH
£376 SO
7a_
PUSH AX
J RESAVE VALUE
E377 8800BO 7a5
HOV
8X,OSOOOH
IBEG VIDEO
RAM ADDR BIW CO
E37A BAB803 786 I10V DX.3B8H
IMOOE REG fOR B/W
El7a 890010 7a7 HOY CX,4096
iRAtI BYTE CNT FOR 8/W CD
BSO 8001 788 MOV
AL,1
; SET MODE FOR BW CARD
£382 SOFC30 7a.
CHP
AH .30H
lB.IW VlDEO CARD ATTACHED!
£3.55
740B 7 •• JE EO
I YES - GO TEST VIDEO STG
E3S7 BMOBa 79l HOY BX.OB800H
jBEG VIDEO
RAM AODR COLOR CD
ElBA BADS03 792 HOY oX,30aH
;NOOE REG FOR COLOR CD
E36D 890040 7.3
HOY
CX,4000H
;RAM BYTE tNT FOR COLOR CO
E390 fEce 7 •• DEC AL
I SET f100E TO 0 FOR COLOR CO
£392
7'5
£9: ; TEST_VIDEO_STG!
E392
EE
79. OUT OX ,At.
iQISABLE VIDEO FOR COlOR CD
£393 S£C3 7.7
NOV Es,ax
JPOINT ES TO VIDEO RAI'1 STS
£395 884000 R 7.8 MOY AX ,DATA.
IPOINT OS TO DATA SEGM'ENT
E39S SEDS 799 HOY DS .. AX
E39A 813E72.oo3412 a •• CHP RESETJLAG,1234H
; POD INITIATED BY KBO RESET!
BAD 7400
8.1
JE flO
I1ES - SKIP VIDEO RAM TEST
E3A2 8EDB
802
HOY
DS.BX
; POINT OS TO VIO'£O RAM STG
E3A4 Ee76FC
a03
CALL STGTST_CN'T
;GO TEST VIDEO R/w STC;
BA7 7406
a04
JE flO
ISTG OK - CONTINUE TESTING
flA' BA020}
8.5 HOY OX ,l02H
; SHUP I Of BEEPS
BAC E6810Z 8 ••
CALL
ERR_BEEP
;GO BEEP SPEAKER
807
;--------------------------------------------
80a ;TEST.09
a •• SETUP VIDEO DATA ON SCREEN FOR VIDEO UNE TEST.
alO
;DESCRIPTION
8ll EtlABLE VIDEO SIGNAL AtID SET MODE.
8l'
DISPLAY A HORIZONTAL f\AR ON SCREEt{.
al3
i -------------- ----- ---------.-------.- - - ----
E3AF
8l'
ElO:
E3AF 58
815
POP AX
jGET VIDEO SENSE SWS (AM)
nBO 50
al6
PUSH
AX
JSAVE IT
UBI 5400 817
HOY AH ,0
;EIIABLE VIDEO AND SET MODE
E3Bl COlO ala INT lOH
j VIDEO
E3B5
SS2070 HOV AX.70Z0H
;W~T BLANKS IN PEVERSE V,IDEO
8"
E3B8 2BfF
8'.
SUB DI,Dt
; SETUP STARTING LOC
E38A B9'2600 8ll l10V CX,CiO
;NO. Of" BLANKS TO DISPLAY
E38D Fe
CLO
;SET OIR flAG TO INCREMENT
0"
E3BE F3 821 REP 5T05101
iWRITf VIDEO STORAGE
E3Bf AB
A-12