IBM XT 5160 - Page 299

LaC 08JECT LINE
SOURCE (810S FOR THE IBM PERSONAL COMPUTER XT) 11/08/82
INPUT
;----- THIS ROUTINE OUTPUTS THE CX REGISTER TO THE 6845 REGS NAMED IN AH
;
(CXl HAS CURSOR VALUE CH-START LINE, CL-STOP LINE
; OUTPUT
NONE
DETERM I NE LOCAT I ON I N REGEN 8UFFER
ADD I N THE START AODR FOR TH I S PAGE
o I V I DE 8Y 2 FOR CHAR ONL Y COUNT
REG I
STER NUM8ER FOR CURSOR
OUTPUT THE VALUE TO THE 6845
SET CPOS RETURN
GET-ROW /COLUMN TO AX
CURSOR SET
SET _CPOS_RETURN
SECOND DATA VALUE
ALL DONE
PO I
NT TO OTHER DATA REG I STER
SET FOR SECOND REG I STER
ADDRESS REGI STER
GET VALUE
REG I STER SET
DATA REGISTER
DATA
RECOVER SEGMENTS
ALL DONE
SET OVERSCAN PORT TO A DEFAULT
VALUE OF 30H FOR ALL MODES
EXCEPT 640X200
SEE I F THE MODE IS 640X200 8W
I FIT I SNT 640X200, THEN GOTO REGULAR
I F IT IS 640X200, THEN PUT IN 3FH
OUTPUT THE CORRECT V ALUE TO 309 PORT
SAVE THE VALUE FOR FUTURE USE
; 6845 REG I STER FOR CURSOR SET
; SAVE I N DATA AREA
; OUTPUT CX REG
V
IDEO RETURN
ENOP -
NEAR
pas ITION
CX,AX
CX,CRT START
CX,I -
AH,I4
MI6
ENOP
OX, ADOR 6845
AL,AH -
DX,AL
OX
AL,CH
DX,AL
OX
AL,AH
AL
DX,AL
OX
AL,CL
DX,AL
ENDP
CX
OX
OS
ES
DX,AL
CRT_PALETTE, AL
CRT MODE,6
M14-
AL,3FH
OX
AL,30H
PROC
CALL
MOV
ADD
SAR
MOV
CALL
RET
ENDP
OUT
MOV
CMP
JNZ
MOV
INC
MOV
SET CURSOR pas I T I ON, AX HAS ROW /COLUMN FOR CURSOR
SET UP OVERSCAN REG I STER
JMP
SET_CPOS
MI8
. ------------------------------------------------
SET CPOS PROC NEAR
- MOV CL,8H
XOR CH, CH ; EST A8L I SH LOOP COUNT
SAL CX, I ; WORD OFFSET
MOV S I ,CX ; USE I NDEX REG I STER
MOV [SI+OFFSET CURSOR POSN],DX ; SAVE THE POINTER
CMP ACT I VE PAGE, 8H -
JNZ M17-
MOV AX,DX
CALL MI8
M17:
MI8
MOV
MOV
OUT
INC
MOV
OUT
DEC
MOV
INC
OUT
INC
MOV
OUT
RET
SET _CTYPE
. ----------------------------------------------------------------
SET CTYPE PROC NEAR
- MOV AH,IO
MOV CURSOR MODE, CX
CALL MI6 -
JMP V IDEO_RETURN
SET CTYPE
~ I NP~T TH IS ROUTI NE SETS THE CURSOR VALUE
OX - ROW, COLUMN OF NEW CURSOR
8H - 0 I SPLA Y PAGE OF CURSOR
OUTPUT
CURSOR I S SET AT 6845 IF 01 SPLAY PAGE
I S CURRENT 0 I SPLA Y
SET CPOS
-
TH I S ROUT I NE SETS THE CURRENT CURSOR
POSITION TO THE NEW X-Y VALUES PASSED
POP
POP
POP
POP
IRET
SET_MODE
M16:
; - - - - - NORMAL RETURN FROM ALL V IDEO RETURNS
V IDEO RETURN:
- POP 01
POP SI
POP 8X
M14:
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
360 I
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
F206
F206
E87COO
F209 88C8
F208 030E4EOO
F20F D1F9
F211 840E
F213 E8C2FF
F216 C3
FICO
FICO
840A
F 1 CF 890E6000
F I 03 E80200
F I 06 E8EO
FlEE
FlEE 8ACF
FIFO 32EO
F1F2 DIEI
FIF4 88FI
F I F6 895450
F I F9 383E6200
FIFO 7505
F IFF 88C2
F20 I E80200
F204
F204
E88F
FI08
Fl0888166300
F I DC 8AC4
F I DE EE
F I OF 42
FIEO 8AC5
F 1 E2 EE
F I E3 4A
F I E4 8AC4
FIE6 FECO
F
lE8 EE
F 1 E9 42
FlEA 8AC I
F I EC
EE
F I ED C3
F IC5
F 1 C5 5F
F 1 C6 5E
FIC7 58
FIC8
F 1 C8 59
F 1 C9 5A
FICA IF
FIC8 07
F I CC CF
F 188 803E490006
F 180 7502
F18F 803F
F1Cl
F1Cl EE
F I C2 A26600
F 185 42
FI86 8030
5-152
PC-XT System BIOS (11/08/82)