IBM RT Series Hardware Reference Manual page 266

1126 80 Cl 05
1129
1129 E8 lOCO R
112C
112C E8 1132 R
112F E9 219B R
1132
1132 8B 160463 R
1136 8A C5
1138 E8 0018 R
1138 FE C4
1130 SA Cl
113F E8 0018 R
1142 C3
1143
1143 53
1144 88 08
1146 SA C4
1148 F6 26 044A R
114C 32 FF
114E 03 C3
1150 01 EO
1152 5B
1153 C3
1154
1154
1154 E8 115A R
1157 E9 219B R
115A
115A
115C
115E
1160
1162
1166
116A
116C
116E
1171
8A CF
32 ED
~~ ~1
89 94 0450 R
38 3E 0462 R
75 05
88 C2
E8 1172 R
1171 C3
1172
1172 E8 1143 R
1175 8B C8
1177 03 OE 044E R
1178 01 F9
1170 B4 OE
117F E8 1132 R
1182 C3
1183
1183
1183 8A OF
1165 32 FF
1167 01 E3
1169 88 97 0450 R
1160 88 OE 0460 R
1191 5F
1192 5E
1193 58
1194 56
1195 56
1196 1F
1197 07
1198 50
1199 CF
119A
119A AO 0449 R
1190 3C 07
119F 77 37
l1Al F6 06 0467 R 02
l1A6 7407
l1A6 3C 07
11M 742C
1 lAC EB 05 90
11Af
l1AF 3C 06
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3036
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116
3117
3116
3119
3120
3121
3122
3123
3124
3125
3126
3.127
3126
3129
3130
3131
3132
3133
3134
3135
3136
3137
3136
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
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
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
C
C
C
C
C
C
C
C
C
C
C
add
cs
II
do_set:
CALL
JMP
cl,5
ca
I
c_cursor ; adjust end register
OUTPUT CX REG
RETURN TO CALLER
;----- THIS ROUTINE OUTPUTS THE CX REGISTER TO THE CRTC REGS NAMED IN AH
M16:
MOV
MOV
CALL
INC
MOV
CALL
RET
OX, ADDR_6845
AL,CH
OUT_OX
AH
AL,CL
OUT_OX
ADDRESS REG I STER
DATA
OUTPUT THE VALUE
NEXT REG I STER
SECOND DATA VALUE
OUTPUT THE VALUE
ALL DONE
;
.. --- ---
...
-- .. ----- --------- ----
--------
-- --
---
........
__
..
__
.....
-------
---
POSITION
THIS SERVICE ROUTINE CALCULATES THE REGEN BUffER
; I NPUT ADDRESS OF A CHARACTER I N THE ALPHA MODE
; AX = ROW, COLUMN POSITION
; OUTPUT
; AX = OFFSET OF CHAR POSITION IN REGEN BUFFER
~osiTioN--------PROC----NEAR-------------------------------------
PUSH BX ; SAVE REG I STER
MOV BX, AX
MOV AL, AH
MUL BYTE PTR CRT COLS
XOR BH, BH -
ADD AX, BX
SAL AX,l
POP BX
RET
POS I T ION ENDP
ROWS TO AL
DETERM I NE BYTES TO ROW
ZERO OUT
ADD I N COLUMN VALUE
*
2 FOR ATTR I BUTE BYTES
RESTORE REG I STER
;
----------------------------------------------------------------
SET_CPOS SET CURSOR POS I T I ON
TH I S ROUT I NE SETS THE CURRENT CURSOR POS I T I ON TO THE
; I NPUT NEW X-Y VALUES PASSED
;
g~
:
~?~pmU~~G~F O~E~U~~~~OR
; OUTPUT
; CURSOR I S SET AT CRTC IF 0 I SPLAY PAGE I S CURRENT
; DISPLAY
iH2~-------------------------------------------------------------
CALL
JMP
SET CPOS:
- MOV
M17:
XOR
SAL
MOV
MOV
CMP
JNZ
MOV
CALL
RET
CL, BH
CH,CH
CX,1
SI,CX
(S I +OFFSET CURSOR_POSN], OX
ACT IVE_PAGE, BH
M17
AX,DX
M18
ESTABLI SH LOOP COUNT
WORD OFFSET
USE I NO EX REG I STER
SAVE THE PO INTER
SET CPOS RETURN
GET-ROW/COLUMN TO AX
CURSOR SET
SET_CPOS_RETURN
; ----- SET CURSOR POS I T ION, AX HAS ROW/COLUMN FOR CURSOR
C M18
C
PROC
CALL
MOV
ADD
NEAR
POS I T I ON
CX,AX
; DETERMINE LOC IN REGEN
ADD I N THE START ADDR
C
C CX, CRT_START
C
C CX,l
C
C
AH, C CRSR LOC HGH
M16 - - -
C
FOR TH I S PAGE
/ 2 FOR CHAR ONLY COUNT
REGISTER NUMBER FOR CURSOR
SET VALUE TO CRTC
C M18
C
SAR
MOV
CALL
RET
ENDP
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
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
; ............................
-_
..
-- -- --
-_
...
-_
.. --
--- ----
-_
...................
----
_
........
---_
..
--_
..
READ CURSOR
- TH I S ROUT I NE READS THE CURRENT CURSOR VALUE FROM
MEMORY AND SENDS I T BACK TO THE CALLER
; INPUT BH _ PAGE OF CURSOR
; OUTPUT
; OX - ROW, COLUMN OF THE CURRENT CURSOR POS I T I ON
; CX - CURRENT CURSOR MODE :
iH3~-------------------------------------------------------------
MOV
XOR
SAL
MOV
MOV
POP
POP
POP
POP
POP
POP
POP
POP
IRET
BL, BH
BH, BH
BX,1
OX, (BX + OFFSET CURSOR_POSN J
CX, CURSOR_MODE
01
SI
BX
AX
AX
OS
ES
BP
;----- READ LIGHT PEN POSITION
AH4;
MOV
CMP
JA
test
JZ
AL, CRT_MODE
AL,07H
READ_LPEN
info,2
CVA_I S_COLQR
;----- MONOCHROME HERE (MONOC BIT 1>
CMP
JE
JMP
AL,07H
READ LPEN
OLD_LP
; ----- CVA I S COLOR HERE (MONOC BIT 0>
CVA I S COLOR:
- - CMP
AL,06H
PAGE VALUE
ZERO UPPER BYTE
WORD OFFSET
GET CURSOR FOR TH I S PAGE
GET THE CURSOR MODE
DISCARD CX
DISCARD OX
126 IBM Enhanced Graphics Adapter