IBM RT Series Hardware Reference Manual page 290

20BF 72 51
20Cl 74 lB
20C3 80 FB 20
20C6 74 03
20C8 E9 219B R
20CB
20CB 2B 02
20CO 8E OA
20CF FA
2000 C7 06 0014 R 21A4 R
2006 8C OE 0016 R
200A FB
200B E9 219B R
200E
200E 8A 3E 0487 R
20E2 80 E7 02
20E5 DO EF
20E7 AO 0487 R
20EA 24 60
20EC Bl 05
20EE 02 E8
20FO 8A 08
20F2 8A OE 0488 R
20F6 8A E9
20F8 80 El OF
20FB DO ED
20FO DO ED
20FF DO ED
2101 DO ED
2103 80 E5 OF
2106 SF
2107 5E
2108 SA
2109 SA
210A SA
210B 1F
210C 07
2100 50
210E CF
210F
210F E9 219B R
2112
2112
2112 E9 219B R
2115
2115 3C 04
2117 73 F9
2119 E3 F7
211B 53
211C 8A OF
211 E 2A FF
2120 01 E3
2123 68 B7 0450 R
2126 5B
2127 56
2128 50
2129 B8 0200
212C CD 10
212E 58
212F
212F 51
2130 53
2131 50
2132 86 EO
2134 26: 8A 46 00
2138 45
2139 3C 00
213B 74 3D
2130 3C OA
213F 74 39
2141 3C 08
2143 74 35
2145 3C 07
2147 74 31
2149 B9 0001
214C 80 FC 02
214F 72 05
2151 26: 8A 5E 00
2155 45
2156
2156 B4 09
2158 CD 10
215A FE C2
215C 3A 16 044A R
2160 72 11
2162 3A 36 0484 R
2166 75 07
2168 B8 OEOA
216B CD 10
2160 FE CE
216F
216F FE C6
2171 2A 02
2173
2173 B8 0200
2176 CD 10
2178 E8 OE
217A
217A B4 OE
217C CD 10
217E 8A OF
2180 2A FF
2182 01 E3
2184 88 97 0450 R
2188
2188 58
2189 58
218A 59
218B E2 A2
2160 5A
216E 3C 01
2190 74 09
2192 3C 03
2194 74 05
2196 B8 0200
2199 CD 10
6049
6050
6051
6052
6053
6054
6055
6056
6057
6056
6059
6060
6061
6062
6063
6064
6065
6066
6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6076
6079
6080
6081
6082
6063
6084
6065
6066
6067
6066
6069
6090
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110
6111
6112
6113
6114
6115
6116
6117
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139
6140
6141
6142
6143
6144
6145
6146
6147
6148
6149
6150
6151
6152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162
6163
6164
6165
6166
6167
6168
6169
6170
6171
6172
6173
6174
J8
JE
CMP
JE
JMP
ACT_l
ACT_3
BL,020H
ACT_2
V_RET
SRLOAO OS,O
SUB OX, OX
MOV OS,OX
CLI
; ALTERNATE PRINT SCREEN
, I NVALI 0 CALL
; NEW PR I NT SCREEN
MOV WORD PTR INT5_PTR, OFFSET PRINT_SCREEN
MOV WORD PTR I NT5_PTR+2, CS
STI
JMP V_RET
mov bh, info
and bh,2
shr bh,l
mav 81, info
and al,01100000b
mav cl,5
shr a I,e I
mav
bl,8 I
MOV CL, I NFO_3
MOV CH, CL
AND CL,OFH
SHR CH,l
SHR CH,l
SHR CH,l
SHR CH,l
AND CH,OFH
POP 01
POP SI
POP OX
POP OX
POP OX
POP OS
POP ES
POP BP
IRET
ACT_' :
STR OUTZ:
- JMP
; ----- WR I TE STR I NG
AH13:
OO_STR:
CMP AL,04
JAE STR OUTZ
JCXZ STR-OUTZ
PUSH BX -
MOV BL, BH
SUB BH, BH
SAL BX,l
MOV 51, (BX
+
OFFSET CURSOR_POSN)
POP BX
PUSH SI
PUSH AX
MOV AX,0200H
I NT 10H
POP AX
PUSH CX
PUSH BX
PUSH AX
XCHG AH, AL
MOV AL, ES: (BP)
INC BP
CMP AL,ODH
JE STR_CR_LF
CMP AL,OAH
JE STR CR LF
CMP AL,08H-
JE STR CR LF
CMP AL,07H-
JE STR_CR_LF
MOV CX,l
CMP AH,2
JB DO STR
MOV BL-;-ES: (BP)
INC BP
MOV
I NT
INC
CMP
J8
CMP
JNE
MOV
I NT
DEC
INC
SUB
MOV
I NT
JMP
AH,09H
10H
OL
OL, BYTE PTR CRT_COLS
STR 2
OH, ROWS
STR 3
AX,OEOAH
10H
OH
OH
OL,OL
AX,0200H
10H
SHORT STR_4
STR CR LF:
- - MOV
I NT
MOV
SUB
SAL
MOV
AH,OEH
10H
BL,BH
BH,BH
BX,l
OX, (BX
+
OFFSET CURSOR_POSN)
POP AX
POP BX
POP CX
LOOP STR_'
POP
CMP
JE
CMP
JE
MOV
I NT
OX
AL,l
STR OUT
AL,
"3
STR OUT
AX,0200H
10H
looking for manoe bit
isolate
adjust
look ing for memory
memory bits
shift count
adjust mem va I ue
return register
FEATURE/SWI TCH
,
~UPLICATE
IN CH
; MASK OFF SWI TCH VALUE
; MOVE FEATURE VALUE
MASK IT
DISCARD BX
01 SCARO CX
RETURN TO CALLER
RETURN TO CALLER
RANGE CHECK
I NVALI 0 PARAMETER
SAVE REGI STER
GET PAGE TO LOW BYTE
*2 FOR WORD OF FSET
GET CURSOR POS I T ION
RESTORE
CURRENT VALUE ON STACK
SET THE CURSOR POS I T I ON
; GET THE CHAR TO WR I TE
; CARR I AGE RETURN
LINE FEED
; BACKSPACE
; BELL
; COUNT OF CHARACTERS
; CHECK WHERE ATTR IS
; NOT IN THE STRING
; GET THE A TTR I BUTE
; NEXT ITEM IN STRING
; WR ITE THE CHAR/ATTR
NEXT CURSOR POS I T I ON
, COLUMN OVERFLOW
; NOT YET
NEXT ROW
COLUMN ZERO
SET TH E CURSOR
; GET PAGE TO LOW BYTE
; *2 FOR WORD OF FSET
; GET CURSOR POS I T ION
RECOVER CURSOR POS I T I ON
FROM PUSH S I ABOVE
SET CURSOR POS I T I ON
1 SO IBM Enhanced Graphics Adapter