IBM PC CONVERTIBLE

0209
020C
020E
020E
0211
0213
0216
0216
0219
021C
021C
021E
0220
0223
0225
0227
0228
0228
0229
022A
022E
0230
0231
0232
0234
0235
0236
0238
023A
023B
023C
023E
023F
0240
0241
0241
0241
0243
0245
0247
0249
024D
0251
0253
0255
0258
0258
025B
80 E5 9F
EB 08
F6 C5 20
74 03
B9 0808
E8 0228 R
E9 016F R
F6 E7
F6 F3
SO FC 07
72 02
FE CO
C3
9C
FA
SB 16 0063
8A C4
EE
42
SA C5
EE
4A
8A C4
FE CO
EE
42
8A Cl
EE
9D
C3
8A CF
32 ED
01 El
SB Fl
AND CH,09FH TURN OFF BLINK (BIT 5 & 6)
JMP SHORT SELC
SEL3:
TEST CH,20H
IS BIT 5 ON (DSPLY NO CUSR)
JZ SELC NO, JUMP ON
SEL4: MOV CX,080SH LCDC VAL FOR DSPL Y NO CURSOR
SELC:
CALL
M16
OUTPUT CX REG
JMP V IDEO_RETURN
THE RESCALING FORMULA IS (( X * 8) / 14.) + ROUND UP. X IS EITHER
CH REGISTER OR CL REGISTER, 8 IS FOR THE LCD CHAR BOX HEIGHT(8 x 8),
AND 14 IS FOR THE MONO CHARACTER SOX HEIGHT(9 x 14). ROUND UP IS 1
IF THE REMAINDER IS GREATER THAN 6. AND, RND UP IS 0 IF REMNDR IS <
THAN 7. ON ENTRANCE AL WILL CONTAIN X, BH = SAND BL = 14.
SELRESCALE:
MUL SH MUL T SY LCD CHAR BX LEN S
OIV BL DIV BY MONO CHAR BX LEN 14
CMP AH,7 AH = RMNDR , AL = QUOT! ENT
JS SELRI
INC
AL ADD 1 TO QUOTI ENT FOR RND UP
SELRl: RET
RETURN TO CALLER
TH I S ROUT! N E OUTPUTS TH E CX REGISTER TO THE REGS NAMED IN AH
M16:
PUSHF
SAVE CURRENT FLAGS
CLI INHIBIT INTERRUPTS
MOV OX ,ADDR_6845
ADDRESS REGISTER
MOV AL,AH GET VALUE
OUT DX,AL REGISTER SET
INC DX DATA REGISTER
MOV AL,CH DATA
OUT DX,AL
DEC OX
MOV AL,AH
INC AL POINT TO OTHER DATA REGISTER
OUT OX ,AL SET FOR SECOND REGISTER
INC OX
MOV AL,CL SECOND DATA VALUE
OUT DX,AL
POPF RESTORE FLAGS
RET ALL DONE
SELCTYPE ENDP
SELCPOS
INPUT
THIS ROUTINE SETS THE CURRENT CURSOR
POSITION TO THE NEW X-Y VALUES PASSED
OX - ROW,COLUMN OF NEW CURSOR
BH - DISPLAY PAGE OF CURSOR
*** BH = 0 FOR GRAPH I CS
OS - DATA SEGMENT
OUTPUT
CURSOR IS SET AT 6845 I F DISPLAY PAGE
IS CURRENT DISPLAY
SET_CPOS
PROC NEAR
MOV CL, BH
XOR CH,CH ; ESTABLISH LOOP
SAL
CX,l ; WORD OFFSET
COUNT
MOV SI,CX ; USE INDEX REGISTER
89 94 0050 R MOV [SI+OFFSET CURSOR_POSN],DX ; SAVE THE POINTER
38 3E 0062 R CMP ACTIVE_PAGE, BH
75 05 JNZ MI7 SELCPOS_RETURN
SB C2 MOV AX,DX GET ROW/COLUMN TO AX
ES 025B R CALL M18 CURSOILSET
M17 : SELCPOS_RETURN
E9 016F R
JMP
VIDEO_RETURN
SELCPOS ENDP
ROM BIOS 2-89