IBM 5150 - Page 243

LOC OBJ
LINE SOURCE
F260 750E
f2:62 24Eo
F264 80EllF
Fl67 OAe3
F269
F269 EE
Fl6A A26600
Fl60 E957FF
F27Q
FHO 24Df
F272 DOEB
F274 73F3
FZ76 OC20
F278 EBEF
F27A
F27A
8A264AOO
F27E 1.04900
F281 8A3E6200
H8S SF
F286 Sf
F287 59
FleB E93FFF
F2eB
F2aB S3
Flac 8808
Fl8E 8AC4
F290 F6264AOO
F294 32FF
F296 03e3
F298 OlEO
F29A 58
F29B C3
F29C
F29C 8A08
F29E 80FC04
3606 JNZ
H2O ; OUTPUT COLOR 1
3609
3610 j------ HANDLE COLOR 0 BY SETTING THE BACKGROUND COLOR
3611
3612
AND Al,DEOH
t TURN OFF LOW 5 BITS Of CURRENT
3613
.ND BL,OlFH ; TURN OFF HIGH 3 BITS OF INPUT VALUE
3614
OR
Al,Bl ; PUT VALUE IHTO REGISTER
3615 N19:
; OUTPUT THE PALLETTE
3616 OUT
OX,AL ioutput c.olor selection to 3d9 port
3617
MOV CRT_PAlLETTE,AL ; SAVE THE COLOR VALUE
3616
JHP VIDEO_RETURN
3619
3!J20 ;------ HANDLE COLOR 1 BY SELECTING THE PALLETTE TO BE USED
3621
3622 H2O:
3623 AND
AL,OaFH
;
TURN OFF PALlETTE SElECT BIT
3624
SH.
BL.l ; TEST THE LOW ORDER BIT Of BL
3625
JNC
MI. i ALREADY DONE
3626
OR Al,20H
TURN au PAllETTE SElECT BIT
3627
JMP MI.
iGODOIT
3628 SET_COLOR
ENDP
3629 i -------------------- ------------ -- ----------
3630 iVIDEO STATE
3631 RETURNS THE CURRENT VIDEO STATE IN AX
3632 AH = NUMBER OF COLUMNS ON THE SCREEN
3633 AL = CURRENT VIDEO MODE
3634 ; BH = CURRENT ACTIVE PAGE
3635 i ---- --- --------- -- - ------------------- ------
3636 VIDEO_STATE
PROC NEAR
3637
"OV
AH,BYTE PTR CRT_COLS ; GET NUMBER OF COLUMNS
3638
"OV
AL,eRT_MODE
;
CURRENT MODE
3639
HOV BH.ACTIVE]AGE i GET CURRENT ACTIVE PAGE
3640
pop
01
f RECOVER REGISTERS
3641
pop
51
3642
POP
CX
DISCARD
SAVED ex
3643 JHP MIS RETURN TO CALLER
3644
VIDEO_STATE
ENDP
3645 i -----------------------------------
3646 POSITION
3647 THIS SERVICE ROUTINE CALCULATES THE REGEN BUFFER ADDRESS
3648 OF A CHARACTER IN THE ALPHA MOOE
3649 ; INPUT
3650 AX = ROW, COLUMN POSITION
3651 i OUTPUT
3652 AX = OFFSET OF CHAR POSITION IN REGEN BUffER
3653
3654
POSITION PROC NEAR
3655
PUSH BX SAVE REGISTER
3656
HOV eX,AX
3657
HOV
AL,AH
,
ROJ.IS TO AL
3658
MUL
BYTE
PTR CRT_COLS
; DETERMINE BYTES
TO ROW
3659
XOR BH,BH
3660 AOO AX,BX
ADD IN COLUMN VALUE
3661 SAL AX,1 * 2 FOR ATTRIBUTE BYTES
3662 POP BX
3663
RET
3664
POSITION
ENDp
3665 ; ----------------------------- -- -----------
3666 ; SCROLL UP
3667 THIS ROUTINE MOVES A BLOCK OF CHARACTERS UP
3668 ON THE SCREEN
3669 ; INPUT
3670 (AH) = CURRENT CRT MODE
3671 (Al) '" NUME',ER OF ROWS TO SCROLL
3672 ICXI :: ROW/COLUMN OF UPPER LEFT CORNER
3673 (OX) = ROW/COLUMN OF LOWER RIGHT CORNER
3674 (BH) = ATTRIBUTE TO BE USED ON BLANKED LINE
3675 (oS) = DATA SEGMENT
3676 IES) = REGEN BUFrER SEGMENT
3677 j OUTPUT
3678 NONE -- THE REGEN BUFFER IS MODIFIED
3679 ; ---- -- -- ----- -- --- ------------------ --- ----
3680
ASSUME CS:COOE,DS:DATA,ES:DATA
3681
SCROLL_UP PROC HEAR
3682
MOV BL.AL
f SAVE LINE COUNT IN BL
3683
CMP AH.4
; TEST FOR GRAPHICS MODE
A-50