IBM RT Series Hardware Reference Manual page 274

1643 E8 1378 R
1646 FC
1647 E9 219B R
164A
164A 8A DE
164C EB F5
164E
164E
164E 8A CF
1650 32 ED
1652 8B Fl
1654 01 E6
1656 8B 84 0450 R
165A 33 DB
165C
[3
06
165E
165E 03 lE 044C R
1662 E2 FA
1664
1664 E8 1143 R
1667 03 08
1669 C3
16M
16M
16M 80
[3
03
1660 8A C3
166F 51
1670 B9 0003
1673
1673 DO EO
1675 DO EO
1677 OA 08
1679 E2 f8
1678 8A fB
1670 59
167E C3
167f
i67f
167f 52
1680 51
1681 53
1682 28 02
1684 B9 0001
1687
1687 8B 08
1689 23 09
168B OB 03
1680 01 EO
168f 01 E1
1691 8B 08
1693 23 09
1695 OB 03
1697 01 E1
1699 73 EC
169B 8B C2
1690 5B
169E 59
169f 5A
16AO C3
16A1
16A1
16Al A1 0450 R
16A4
16A4 53
16A5 8B 08
16A7 8A C4
16A9 f6 26 044A R
16AO 01 EO
16M 01 EO
16B1 2A ff
16B3 03 C3
16B5 5B
16B6 C3
16B7
16B7
16B7 53
16B8 8A Of
16BA 2A ff
16BC 01
[3
16BE 8B 87 0450 R
16C2 5B
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
4044
4045
4046
4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078
4079
4080
4081
4082
4083
4084
4085
4086
4087
4088
4089
4090
4091
4092
4093
4094
4095
4096
4097
4098
4099
4100
4101
4102
4103
4104
4105
4106
4107
4108
4109
4110
4111
4112
4113
4114
4115
4116
4117
4118
4119
4120
4121
4122
4123
4124
4125
4126
4127
4128
4129
4130
4131
4132
4133
4134
4135
4136
4137
4138
4139
4140
4141
4142
4143
4144
4145
4146
4147
4148
4149
4150
4151
4152
4153
4154
4155
4156
4157
4158
C
C
C
C
C
C
C
C
C
C
C
C
C
CALL BLNK_4
CLO
JHP V_RET
OXR9:
HOV BL,OH
JHP OXR10
GRAPH I CS_ON_2 ENDP
SUBTTL
INCLUDE VGRW. I HC
SUBTTL VGRW. INC
PAGE
ASSUME
fiNO POSITION
- MOV
XOR
MOV
SAL
MOV
XOR
JCXZ
OS: ABSO
PROC NEAR
CL,BH
CH,CH
SI,CX
SI,1
AX, [S I
+
OffSET CURSOR_POSN
J
BX,BX
P5
; BLANK ENT I RE WINDOW
; DISPLAY PAGE TO CX
HOVE TO S I fOR INDEX
*
2 fOR WORD OffSET
ROW/COLUMN Of THAT PAGE
SET START ADDRESS TO 0
NO PAGE
C P4:
PAGE LOOP
LENGTH Of BUffER
C
C
ADD
LOOP
BX, CRT_LEN
P4
C P5:
NO_PAGE
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
CALL
ADO
RET
POSITION
BX,AX
DETERM I NE LOC I N REGEN
ADD TO START Of REGEN
f I NO_POSIT ION
ENDP
;
----- - --
---
- --- - - - ---- -- - - - - - - - - -- -- - -- -- -
---
-
---
- -- -- --
EXPAND MEO COLOR
ENTRY
THIS-ROUTINE EXPANDS THE LOW 2 BITS IN BL TO
fiLL THE ENT I RE BX REG I STER
BL = COLOR TO BE USED ( LOW 2 BITS)
EXI T
;
~XC~Lg~Lg~T~O)BE
USED ( 8 REPLICATIONS Of THE :
§i9-----;ROC----~[~R-------------------------------------
S20:
AND BL,3 ISOLATE THE COLOR BITS
MOV AL, BL COpy TO AL
PUSH CX SAVE REG I STER
MOV CX,3 NUMBER Of TIMES
SAL
SAL
OR
AL,l
AL,1
BL,AL
S20
BH, BL
CX
LEfT SHIfT BY 2
ANOTHER COLOR VERSION
INTO BL
fiLL ALL Of BL
fiLL UPPER PORT ION
REG I STER BACK
ALL DONE
C S19
LOOP
MOV
POP
RET
ENOP
g ;
-[~;~~~-~~T[------------------
--------------------------
c ; THIS ROUTINE TAKES THE BYTE IN AL AND DOUBLES
C ; ALL Of THE 81 TS, TURN I HG THE 8 BITS INTO
C ; 16 BITS. THE RESULT
'$
LEfT IN AX :
C ; ------------------ -------------- ------------------------
C S21 PROC NEAR
C PUSH OX
C PUSH CX
C PUSH BX
C SUB OX, OX
C HOV CX,1
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
S22:
C S21
C
C S26
MOV
AND
OR
SHL
SHL
MOV
AND
OR
SHL
JNC
MOV
POP
POP
POP
RET
ENDP
PROC
MOV C
C
C
C
GRAPH_POSN
C
C
C
C
C
C
C
C
C S26
C
PUSH
MOV
MOV
MUL
SHL
SHL
SUB
ADO
POP
RET
ENDP
BX,AX
BX,CX
OX,BX
AX,l
CX,1
BX,AX
BX,CX
OX,BX
CX,1
S22
AX,OX
BX
CX
OX
NEAR
AX, CURSOR_POSN
LABEL NEAR
BX
BX,AX
AL,AH
BYTE PTR CRT COLS
AX,1 -
AX,1
BH, BH
AX,BX
BX
; SAVE REG I STERS
RESULT REG I ST[R
MASK REG I STER
BASE I NTO TEMP
USE MASK TO EXTRACT BIT
PUT I NTO RESULT REG I STER
SH I fT BASE AND MASK BY 1
BASE TO TEMP
EXTRACT THE SAME BIT
PUT INTO RESULT
SH I fT ONLY MASK NOW,
MOV I NG TO NEXT BASE
USE MASK BIT COM I NG OUT
TO TERM I NATE
RESULT TO PARM REG I STER
; RECOVER REG I STERS
; ALL DONE
; GET CURRENT CURSOR
SAVE REG I STER
SAVE A COPY Of CURSOR
GET ROWS TO AL
MULT I PLY BY BYTES/COLUMN
*4 SINCE 4 ROWS/BYTE
I SOLA TE COLUMN VALUE
DETERM I NE OffSET
RECOVER PO INTER
ALL DONE
C
C
C
C
C
C
C
C
C
C
;
-~R
-CUR -- -------------- -------------------------------- ---------
C
C
C
C
C
C
C
C
C
C
C
C
ENTRY
; EXIT BH = DISPLAY PAGE
AX = CURSOR POS I T I ON fOR REQUESTED PAGE
bR=CUR~----------------------------------------------------------
ASSUME OS: A8S0
PUSH BX , SAVE REG I STER
MOV BL, BH ; GET TO LOW BYTE
SUB BH,BH ; ZERO HIGH BYTE
SAL BX,1 ; *2 fOR WORD COUNT
MOV AX, [BX
+
OffSET CURSOR_POSN
J ;
CURSOR, REQUESTED PAGE
; _______
~~ ~
_____
~~
______________________________
~
_
~~?~~~~
_
~ ~~ ~:~ ~R
GRX PSN
ENTRY
EXIT
AX = CURSOR POS I T I ON I N DES I RED PAGE
BH
=
DES I REO PAGE
AX = BYTE OfFSET I NTO REGEN
134 IBM Enhanced Graphics Adapter