IBM 5170 Technical Reference page 272

011F 2[;
8B 8C 0000 [ MOV
CX,CS:[SI + OFFSET M5J LLNGTH TO CLLAR
0124
01?8
89 OE 004C R
l59 0008
SAVL LLNGTH OF CRT -­ NOT USED FOR BW
CLLAR ALL CURSOR POS I
T
IONS
01?l5 l5F 0050 R
012E
012F
1E
0)
ESTABLI SH S[GM[NI
ADDRLSS I NG
0130 33 CO
0132 F3/ AB
F ILL WI TH ZEROES
SET UP OVERSCAN REGISTER
0131t
,,2
INC
OX SET OVLRSCAN PORT TO A DEFAULT
0135
l5fJ 30
MOY AL,30H
VALUL OF 30H FOR ALL MODES EXCEPT 640X200
0137 80 3E 0049 R 06 CMP
CRT_MOoE,6
SEE .1 F TilL MODL IS 640X200 BW
013C
75 02
JNL M14 IF IT ISNT 61tOX200, THEN GOTO REGULAR
013E BO 3f MOY AL,3fH
IF IT IS 640X200, THEN rUT IN 3FH
0140
0141
EE
A2 0066 R
OOT
MOV
DX,AL
CRT_PALLL TTE:., AL
OUTPUT THE CORRECT VALUE TO 3D')
SAVL THL VALUE FOR FUTURE USE
PORT
;----- NORMAL RETURN FROM ALL VIDEO RETURNS
011tlt
VIDEO RETURN:
0144 50
- por l5P
0145 5f por DI
011t6 5E
por SI
0147 50 por 8X
()148
011t8 59 POP
CX
0149 5A POP
Ox
014A 1f
ror
OS
0148 07 POP
ES RECOVER SEGMENTS
014C Cf
IRET ALL DONE
014D SET_MODE LNDP
SET CTYPL
; I
NP:T TH I S ROUT I Nl SL TS Till CURSOR VALUE
; (CX) liAS CURSOR VALUE CH-START LINE, CL-STOP LINE
; OUTPUT
NONE
014D SET CTYPE
- MOV
014D
84 OA
; 6845 REG I STER FOR ClJRSOR SLT
011tF 89 OE 0060 R MOV ; SAVE IN OAT A ARI:.A
0153 L8 0158 R CALL ; OUTPUT CX REG
0156
EB
EC JMP
;------ THIS ROUTINE OUTPUTS THF: CX R[GISTER TO THE 681+5 REGS NAMED IN AH
0158
M16:
0158 8B 16 0063 R
Mav
ADDRESS REG I STER
015C 8A C4
Mav
GET VALUE
015l I I OUT RlGISTER SET
015F INC DATA REGISTER
,,2
0160 EB 00
JMP 10 DELAY
0162 8A C5
Mav
DATA
lL OUT
0165
DCC
0166 E8 00
JMP
10 DELAY
0168 8A CII MOV
016A
FE CO
'NC
POINT TO OTHER DATA '{[GISTER
fJ16C EE OOT DX,AL
SET FOR SlCONO RlG I STER
0160 42
'NC DX
016F LB 00 JMP SHORT $+2 10 DELAY
0170
8A C1 MOV AL,CL SECOND DATA VALUE
0172 Cf OUT DX,AL
0173
C3
RLT
ALL DONE
0174
SET_CTYPE
LNDP
0164
,,.
SET CPOS
- THIS ROUTINE SETS THE CURRENT CURSOR POSITION TO THE
NEW X-Y VALULS PASSED
INPUT
OX - ROW, COLUMN OF NEW CURSOR
BH - 0 I SPLAY PAGE Of CURSOR
OUTPUT
CURSOR IS SLT AT 68115 IF DISPLAY PAGE IS CURRENT DISPLAY
0174
5l T
cros
0174 8A CF
- r~ov
0176 32 LO
XDR
0178 01 L 1 SAL
017A 813 Fl MOV
onc
89 91t 0050 R
Mav
THE POI NTER
0180 38 3t 0062 R
CMP
0184 75 05
JNL
0186 815 C2 MOV
0188 L8 0180 R
CALL
0188 M17:
018B
EB
B·f VloLO RlTURN
0180
LNOP ­
SET CURSOR POSITION, AX HAS ROW/COLUMN FOR CURSOR
0180
M18
0180 f8 0211 R DETERMINE LOCATION IN REGEN BUFFER
01<}l1 813 C8
0192 03 OL OOltE R PAGE
0196 Dl F9
0198 84 DE
019A L8 0158 R
0190 C3
019E
M18
READ CURSOR
- TH I S ROUT I NL RlADS THl CURRENT CURSOR VALUl FROM TIlL
6845, FORMATS IT, AND SENDS I T BACK TO THE CALLLR
INPUT
BH - f'AGL OF CURSOR
OUTPUT
OX - ROW, COLUMN OF THE CURRENT CURSOR POSITION
CX - CURRENT CURSOR MODE
019E
RLAD CURSOR PROC NEAR
019L 8A OF BL,13H
- MOV
OlAO 32 fF
XOR BH, BH
01A2 01
E3 SAL BX,1 ; WORD OFFSET
OlA4 88 97 0050 R MOV OX,
I
BX+OF FSL T CURSOR_POSN
1
01A8 8El OL 0060 R MOY
ex,
CURSOR_MODE
OlAC 50
POP BP
GlAD 5F POP
01AE 5E
POP
"'
S,
OlAf 515
par
8X
01BO 58 POP AX ; DISCARD SAVED
ex
AND OX
5-130 Video