IBM 5150 Hardware Reference Manual page 241

lOC OBJ LINE SOURCE
FtC7
3458 VIDEO_RETURN:
FIC7 Sf 3459 POP 01
Flce 5E
346.
POP S!
flC9 58 3461 POP BX
FICA 3462
MIS:
j
VlOEO_RETURN_C
FICA 59
3463
pOP CX
Fica SA
3464 POP
ox
Flee IF
3465 POP DS
fleD 07
3466
POP ES I RECOVER SEGMENTS
Fle( Cf
3467
IRET
; ALL DONE
3468 SET_MODE ENIlP
3469 ; .-­ --­ ----------------------- ..-------------­
3470 1 SET_CTYf'E
3471 THIS ROUTINE SETS THE CURSOR VALUE
3472 I INPUT
3473 I (eXI HAS CURSOR VALUE CH-Sf.ART LINE, CL-STOP LINE
3474
j
OUTPUT
3475 NONE
3476 ; ------------------ ­ --­ ------- ­ - ­ - ­ -­ --------
FIeF 3477
PROt NEAR
FIeF 840A 3418 AH,10 J 6845 REGISTER FOR CURSOR SET
FIOI 890E6000 3479 HOV CURSOR_f1ODE ,CX ; SAVE IN DATA AReA
FID5 £80200
3480
CALL
M16 J OUTPUT
ex
REG
FID8 EBED 3481 JHP
3482
3483
i ----- ­ THIS ROUTINE OUTPUTS THE
ex
REGISTER TO THE 6845 REGS HAMED IN AH
3484
FIDA
3485 N16:
FIDA 8B166300 3486 HOV oX,ADDR_6845 , ADDRESS
REGISTER
FIDE 6AC4 3487 HOV AL,AH i GET VALUE
FlED EE 3488 OUT DX,AL ; REGISTER SET
FIEI 42 3489
INC
OX
; DATA REGISTER
FJE2 8AC5 3490 11.0V AL,CH i DATA
F1E4 EE 3491 OUT OX,AL
FIES 4A 3492 DEC
DX
FIE6 8AC4 3493
HOV AL,AH
FlEB FEtD 3494 INC AL
; POINT TO OTHER DATA REGISTER
FlEA EE 3495 OUT OX,AL
J SET FOR SECOND REGISTER
FlEB 42
3496 INC OX
FlEe 6ACl 3497 MOV AL ,CL
; SECOND DATA VALUE
FlEE EE
3498 OUT
OX.Al
FIEF C3 3499
RET ; ALL DONE
3500 SET_CTYPE
nmp
350 I ; --------------------------­ ----------- ­ ----­
3502 J SET_CPOS
3503 THIS ROUTINE SETS THE CURRENT CURSOR POSITION TO THE
3504 NEW X-Y VAI.UES PASSED
3505 INPUT
3506
ox -
ROW.COLUMN OF NEW CURSOR
3507 BH - DISPLAY PAGE OF CURSOR
3508 ; OUTPUT
3509 I CURSOR IS SET AT 6845 IF DISPLAY PAGE IS CURRENT DISPLAY
3510
i ----..------------- ­ ------ ­ --- ­ - ­ - ­ ---- ­ ---- ­
FIFO
3511 SET_CPOS PROC NEAR
FIFO BACF 3512
HOV
CL,BH
FIF2 3ZED 3513
XO.
CH,CH
I
ESTABLISH LOOP COUHT
FIF4 DlEl 3514 SAL
CX.l I WORO OFFSET
FIF6 88Fl
3515 HOV SI,CX ; USE INDEX REGISTER
FIF8 89945000
3516
MOV (SI+OFFSET CURSOR_POSNI,OX
; SAVE THE POINTER
FIFC 383E6200
3517 CMP
Floa 7505 3518
JHZ
HI7 ; SET_CPOS_RETURN
F202 88C2 3519 I10V AX,OX ; GET ROW/COLUMN TO AX
F204 E80200
352.
CAl.l HIS ; CURSOR_SET
F207 3521
M17:
I SET_CPOS_RETURN
F207 'f;BBE 3522 JHP
3523 ENOP
3524
3525 ;------ SET CURSOR POSITION, AX HAS ROW/COLUMN FOR CURSOR
3526
F209 3521 MI8 PRoe NEAR
F209 £87FOO 3528
CALL POSITION
; DETERMINE I.OCATION IN REGEN BUFFER
FlOC 88C8 3529 MOV eX,AX
F20E 030[4EOO
3530
ADO
CX,CRT_START
; ADD IN THE START ADDRESS FOR THIS PAGE
F212 01F9 3531 SAR CX,l ; DIVIDE BY 2 FOR CHAR ONLY COUNT
F214 640E
3532
MOV AH.14 ; REGISTER NUI1BER fOR CURSOR
A-48