IBM RT Series Hardware Reference Manual page 283

5167 C
5168 C ; ----- WR I TE
~OT
5169 C
lBC8 5170
C AHC:
5171
C ASSUME OS: ABSO
lBC8 80 3E 0449 R 07
5172 C cmp
crt_mode, 7
lBCO 77 2A
5173 C
Ja wrl te_dot_2
5174 C
lBCf
5175 C
WR I TE_OOT PROC NEAR
5176
C assume
ds: absO, as: nath Ing
lBCf 52 5177
C push dx
5178 C
srload
eS,Ob800h
lBOO BA B800 5179
C+ MOV OX,Ob800h
lB03
8E C2
5180 C+
MOV es,OX
lB05
5A
5181
C pop dx
lB06 50
5182 C PUSH AX
SAVE DOT VALUE
lB07 50
5183 C PUSH
AX TWICE
lB08 E8 lB85 R
5184 C
CALL
R3
OETERM I NE BYTE POS I T I ON Of THE ~OT
lBOB 02 E8
5185 C
SHR AL,CL
SH I fT TO SET UP THE BITS fOR OUTPUT
lBOO 22 C4 5186 C
AND AL,AH
STR I P Off THE OTHER B I T5
lBOf 26: 8A OC 5187
C MOV CL, ES: (SI]
GET THE CURRENT BYTE
lBE2 5B 5188
C POP BX
RECOVER XOR fLAG
lBE3 f6 C3 80
5189 C
TEST BL,80H IS IT ON
lBE6 75 00
5190 C JNZ
R2
YES, XOR THE DOT
lBE8 f6 04
5191 C
NOT AH
SET THE MASK TO REMOVE THE
lBEA 22 CC 5192 C
AND CL,AH
I NO I CATED BITS
lBEC OA Cl
5193 C OR
AL, CL OR I N THE NEW VALUE Of THOSE BITS
lBEE
5194 C Rl :
fiN ISH_DOT
lBEE 26: 88 04
5195 C
MOV ES:(SI],AL
RESTORE THE BYTE IN MEMORY
lBfl
58
5196 C
POP AX
lBf2 E9 219B R 5197
C jmp
v_ret
lBf5 5198
C R2:
XOR ~OT
lBf5 32 Cl 5199
C XOR AL, CL
EXCLUS I VE OR THE DOTS
lBf7 EB f5
5200 C
JMP Rl
fiNISH UP THE WRITING
lBf9
5201 C
WRI TE_OOT ENOP
5202 C
lBF9 5203
C WR I TE_00T_2 PROC NEAR
lBf9 80 3E 0449 R Of 5204
C cmp
crt_mode,Ofh
lBfE 72 00
5205 C jb
no_adj2
lCOO E8 14f4 R
5206 C
ca
II
mem det
base card
lC03 72 08 5207 C
jc nO_Bdj2
lC05 24 85 5208
C and a 1,10000101b
85h, xor c2 cO mask
lC07 8A EO
5209 C
may ah, a I
lC09 DO E4
5210 C
sh I ah,l
expand cO to c1, 02 to 03
lCOB OA C4
5211 C
or a I, ah
bui Id ?(80h) + (0, 3,c, f)
lCOO
5212 C
no_adj2:
lCOD
50
5213 C
push ax
lCOE 8B C2 5214
C MOV AX,DX
ROW VALUE
lCl0 EB lB5D R
5215 C CALL DOT SUP 1
BX=OffSET, AL=B I T MASK
lC13 B6 03
5216 C
may dh,"3 -
lC15 B2 CE
5217 C MOV
OL, GRAPH_ADDR
GRAPH I CS CH I P
lC17 B4 08
5218 C
MOV AH, G_B IT_MASK
BIT MASK REG I STER
lC19 E8 OD18 R 5219 C
CALL OUT_DX
SET BIT MASK
lC1C 52 5220
C PUSH
DX
5221 C
SRLOAD ES,OAOOOH
REGEN SEGMENT
lCl D BA AOOO 5222
C+ MOV DX,OAOOOH
lC20 8E C2 5223
C+ MOV ES, DX
lC22 5A
5224 C POP DX
lC23 58
5225 C
POP AX
RECOVER COLOR
lC24 8A E8
5226 C
MOV CH,AL
SAVE COLOR
lC26 f6 C5 80 5227
C TEST CH,080H
SEE If XOR
lC29 74 OA
5228 C JZ WD A
NO XOR
lC2B B4 03
5229 C
MOV
AH~G_DATA_ROT
DO XOR
lC2D BO 18 5230
C MOV AL,018H
XOR fUNCT I ON
lC2f E8 OD18 R
5231 C CALL
OUT DX
SET THE REG I STER
lC32 EB 12 90
5232 C
JMP WD_B
SK I P THE 8LANK
lC35
5233 C WD_A:
8LANK THE DOT
lC35 B2 C4 5234
C MOV DL, SEQ_AooR
SEQUENCER
lC37 84 02 5235
C MOV AH, S_MAP
MAP MASK
lC39 BO ff
5236 C MOV
AL,OffH
ENABLE ALL MAPS
lC3B E8 0018 R
5237 C
CALL OUT OX
SET THE REG I STER
lC3E 26: 8A 07
5238 C
MOV AL, ES: (BX]
LATCH DATA
lC41 2A CO 5239 C
SUB AL,AL
ZERO
lC43 26: 88 07 5240
C MOV ES: (BXj,AL
BLANK THE DOT
lC46 5241
C WO_B:
SET THE COLOR MAP MASK
lC46 B2 C4
5242 C
MOV DL, SEQ_AOoR SEQUENCER
lC48 B4 02
5243 C MOV
AH, S_MAP
MAP MASK REGI STER
lC4A SA C5
5244 C
MOV AL,CH
COLOR VALUE
lC4C 24 Of 5245 C
AND AL,OfH
VALUES 0-15
lC4E [8 0018 R 5246
C CALL OUT DX
SET IT
lC51 26: 8A 07 5247
C MOV AL, ES: (BX]
LATCH DATA
lC54 BO ff
5248 C
MOV AL,OffH
WRITE VALUE
lC56 26: 88 07
5249 C
MOV ES: (BXj,AL
SET THE DOT
5250
C
5251
C ;----- NORMALIZE THE ENVIRONMENT
5252 C
lC59 E8 0018 R
5253 C
CALL OUT OX
ALL MAPS ON
lC5C
B2 C[ 5254 C MOV
OL, GRAPH_ADDR
GRAPH I CS CH I PS
lC5E B4 03
5255 C
MOV AH, C_DATA_ROT
XOR REG I STER
lC60 2A CO 5256 C
SUB AL,AL
NORMAL WR ITES
lC62
E8 OD18 R 5257 C
CALL OUT OX
SET IT
lC65 B4 08 5258
C MOV AH,G_BIT_MASK
BI T MASK
lC67 BO FF 5259
C MOV Al,OFFH
ALL BITS ON
lC69 E8 OD18 R
5260 C CALL OUT DX
SET IT
lC6C E9 219B R
5261 C
JMP V RET
WR I TE DOT DONE
lC6F 5262 C
WR I TE_00T_2 ENDP
5263
C
lC6F
5264 C RD_S PROC NEAR
5265 C
ASSUME DS: ABSO
lC6F 50
5266 C
PUSH AX
lC70 52
5267 C
PUSH DX
5268 C
SRLOAD ES,OAOOOH
lC71 BA AOOO 5269
C+ MOV DX,OAOOOH
lC74 8E C2 5270
C+ MOV ES,DX
lC76 5A
5271 C
POP DX
lC77 58
5272 C
POP AX
lC78
8B C2 5273 C
MOV AX, DX
lC7A E8 lB5D R 5274 C
CALL DOT SUP 1
lC70 B5 07
5275 C MOV
CH,7 -
lC7F 2A E9
5276 C
SUB CH, CL
lC81 2B 02
5277 C
SUB DX,OX
lC83 BO 00
5278 C
MOV AL,O
lC85 C3 5279
C RET
lC86 5280
C RD_S ENDP
5281 C
lC86
5282 C RD_'S
PROC NEAR
lC86 8A CD
5283 C
MOV CL,CH
lC88 B4 04
5284 C
MOV AH,4
lC8A
52
5285
C PUSH DX
lC8B B6 03 5286
C
may
dh,3
lC8D B2 CE
5287 C MOV
DL, GRAPH_ADDR
lC8f E8 OD18 R
5288 C
CALL OUT_DX
lC92
5A
5289 C
POP DX
lC93 26: SA 27 5290
C MOV
AH, ES: (BX)
lC96 D2 EC
5291 C SHR
AH,Cl
lC98 80 E4 01 5292
C
AND AH,l
IBM Enhanced Graphics Adapter 143