IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

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