IBM 5150 - Page 174

LOC OBJ
LINE
SOURCE
3649 ;----- DETERtlINE Nllt1BEIi! OF COLlIHHS, BOTH FOR ENTIRE DISPLAY
3650 ;----- AND THE NUMBER TO BE USED FOR TTY INTERFACE
3651
Fl92: 2E8A84ECFO 3652 MOV ALles: I 51 + OFFSET t'I6 ]
F197 32E4 3653 XOR
AH.AH
F199 A34AOO
3654
MOV CRT_COLS,AX
1 t-nlMBER OF COll.tlNS IN THIS SCREEN
3655
3656 1----- SET CURSOR POSITIONS
3657
~
F19C 81E60£00
3658
AND
5I.OEH
I WORD OFFSET INTO CLEAR LENGTH TABLE
FlAO 2E888CE4FO
3659
MOV
CX,es:[SI + OFFSET tiS]
; LENGTH TO CLEAR
FlAS 890E4COO 3660
NOV
CRT_lEN.ex i SAVE lENGTH OF CRT -- NOT USED FOR ew
FIA9 890800 3661
MOV ex.a
I CLEAR ALL CURSOR POSITIONS
FlAC 8F5000 3662
MOV DI.OFFSET CURSOR_POSH
FlAF IE 3663
PUSH DS
I ESTABLISH SEGMENT
F180 07 3664
pop
ES
ADDRESSING
FlBl 33CO 3665 XOR AX.AX
f 183 F3 3666 REP 510SW
; FILL WITH ZEROES
FIB4 AB
3667
3668
1----- SET UP OVERSCAN REGISTER
3669
FIBS 42 3670
INC DX
I SET OVERSCAN PORT TO A DEFAULT
FIB6 B030 3671
MOV
AL,30H
; VAWE OF 30H FOR ALL HODES
3672
,
EXCEPT 640X200
FIB8 803E490006 3673 eMP
CRT_I1ODE.6
J
SEE IF THE HODE IS 640X200 BW
FIBD 7502 367. JNZ
M"
I
IF IT ISNT 640X200. THEN GOTO REGULAR
FIBF B03F 3675 MOV AL,3FH l IF IT IS 640X200. THEN PUT IN 3FH
FtCl
367'
H14:
FICI EE
3677
OUT
OX,AL
• OUTPUT THE CORRECT VALUE TO 309 PORT
FlC2 A26600 367.
MOV
CRT_PAlETIE.AL
; SAVE THE VALUE FOR FL'ruRE USE
367'
3680
i----- NORHAL RETURN FROM ALL VIDEO RETURNS
3681
FICS 3682 VIDEO_RETURN:
FICS SF 3683
POP DI
FlC6 SE 3684
POP 51
F1C7 5B 3685
POP BX
~
FlC8 3686
MIS:
J VIDEO_RETURN.C
F1C8
59 3687
POP ex
FlC9 SA 3688 POP
DX
FlCA IF 3689
POP
DS
FICB 07
3690 POP ES I RECOVER SEGMENTS
FlCC CF 3691
IRET J ALL DONE
3692
SET_t1OOE ENIlP
3693
j-------- .. -------------------------------------------------------
3694
J SET.CTYPE
3695
THIS ROUTINE SETS THE CURSOR VALUE
3696 I INPUT
36.7 (CX) HAS CURSOR VALUE CH-START LINE. CL-STOP LINE
3698
, OUTPUT
3699
NONE
; ____________________________________________________ 4 ___________
3700
FlCD 3701
SET.CHPE PROC NEAR
FICO MDA 3702
MOV AHolO
J 6845 REGISTER FOR CURSOR SET
FICF 890E6000
3703 MOV CURSOR_HOOE .CX 1 SAVE IN DATA AREA
FlD3 E80200
3704
CALL
M'.
i OUTPUT CX REG
FID6 EBED 3705
JMP
VIDEO_RETURN
3706
3707
1----- THIS ROUTINE OUTPUTS THE CX REGISTER TO THE 6845 REGS NAMED IN AH
3706
F106 3709 H16:
FID8 8B16631)0
3710 MOV
OX.ADDR_6645
I
ADDRESS REGISTER
FlOC 8AC4
3711
MOV AL.AH
; GET VALUE
flOE EE 3712
OUT DX,AL I REGISTER SET
FlOF 42 3713 INC DX ; DATA REGISTER
FlED 8AC5
3714 MOV AL.CH ; DATA
FIE2 EE 3715
OUT DX,Al
FlE3 4A
3716 DEC
DX
~
FlEli 8AC4
3717 MOV
AL.AH
FlE6 FECD
3718 INC Al
I POINT TO OTHER DATA REGISTER
FlE8 EE
3719
OUT DX.AL
; SET FOR SECOND REGISTER
Fln 42
FlEA 8ACl
3720
3721
INC
MOV
DX
AL,CL
j SECOND OAT A VALUE
FIEC EE
3722 OUT
ax,AL
FlED C3
3723 RET
J
ALL DONE
3724
SET.CTYPE
ENDP
System BIOS 5-81