Table of Contents
Advertisement
1748
8B fO
4285
C
MOV
SI,AX
S"'VE IN SI
174 ...
83 EC DB
4286
C
SUB
SP,8
; ... LLOC ... TE SP ... CE TO S ... VE
4287
C
THE READ CODE PO I NT
1740
8B EC
4288
C
MOV
BP,SP
PO I NTER TO SAVE AREA
4289
C
4290
C
; ----- DETERM I NE GRAPH I CS MODES
4291
C
174f
BO 3E 0449 R 06
4292
C
CMP
CRT_MODE,6
1754
06
4293
C
PUSH
ES
1755
1f
4294
C
POP
OS
PO I NT TO REGEN SEGMENT
1756
72 1.0.
4295
C
JC
S13P
MED I UM RESOLUT I ON
4296
C
4297
C
;----- HIGH RESOLUTION READ
4298
C
4299
C
;----- GET VALUES fROM REGEN BUffER AND CONVERT TO CODE POINT
4300
C
1758
B6 04
4301
C
MOV
OH,4
NUMBER OF PASSES
175.0.
4302
C
SI2P:
175.0.
SA 04
4303
C
MOV
AL, [SI J
; GET fiRST BYTE
175C
B8 46 00
4304
C
MOV
I BPJ, ... L
SAVE I N STORAGE AREA
175f
45
4305
C
INC
BP
;
NEXT LOCAT I ON
1760
8.0. 84 2000
4306
C
MOV
AL,I S I +2000H J
; GET LOWER REG I ON BYTE
1764
88 46 00
4307
C
MOV
I BPJ,AL
; ADJUST AND STORE
1767
45
4308
C
INC
BP
1768
83 C6 50
4309
C
ADO
SI,80
PO I NTER I NTO REGEN
1768
FE CE
4310
C
DEC
DH
;
LOOP CONTROL
1760
75 EB
4311
C
JNZ
S12P
; DO I T SOME MORE
176F
EB 17 90
4312
C
JMP
S15P
; GO MATCH THE SAVED CODE
4313
C
;
POI NTS
4314
C
4315
C
;----- MEDIUM RESOLUTION READ
4316
C
1772
4317
C
S13P:
MED RES READ
1772
01 E6
4318
C
SAL
S 1,1
, OFFSET*2, 2 BYTES/CHAR
1774
B6 04
4319
C
MOV
DH,4
; NUMBER OF PASSES
1776
4320
C
S14P:
1776
E8 1725 R
4321
C
CALL
S23
; GET PA I R BYTES
4322
C
INTO SINGLE SAVE
1779
61 C6 2000
4323
C
ADD
SI,2000H
; GO TO LOWER REG I ON
1770
E6 1725 R
4324
C
CALL
S23
; GET TH I S PA I R I NTO SAVE
1780
81 EE 1 FBO
4325
C
SUB
S I , 2000H -80
; ADJUST PO I NTER BACK INTO
1784
FE CE
4326
C
DEC
DH
UPPER
1786
75 EE
4327
C
JNZ
S14P
KEEP GOING UNTIL 8 DONE
4326
C
4329
C
; ----- SAVE AREA HAS CHARACTER IN IT, MATCH IT
4330
C
1788
4331
C
SI5P:
F I NO_CHAR
1788
IE
4332
C
PUSH
OS
1769
E8 0001 R
4333
C
CALL
DDS
4334
C
WLXS
ES,OI,GRX_SET
EST ABL I SH ADDRESS I NG
178C
C4 3E 010C R
4335
C+
LES
01, GRX_SET
1790
1f
4336
C
POP
OS
1791
83 ED 08
4337
C
SUB
BP,8
ADJUST PO I NTER TO
4338
C
BEG I NN I NG Of SAVE AREA
1794
8B F5
4339
C
MOV
SI, BP
1796
FC
4340
C
CLD
ENSURE DIRECTION
1797
BO 00
4341
C
MOV
Al,O
CURRENT CODE PO I NT BE I NG
1799
4342
C
SI6P:
MATCHED
1799
16
4343
C
PUSH
SS
, ADDRESSING TO STACK
179A
1f
4344
C
POP
OS
FOR THE STR I NG COMPARE
179B
BA 0080
4345
C
MOV
DX,128
; NUMBtR TO TEST AGA I NST
179E
4346
C
S17P:
179E
56
4347
C
PUSH
SI
SAVE SAVE AREA PO INTER
179F
57
4348
C
PUSH
01
;
SAVE CODE PO INTER
17AO
B9 0006
4349
C
MOV
ex,s
; NUMBER OF BYTES TO MATCH
17A3
F3/ .0.6
4350
C
REPE
CMPSB
; COMPARE THE 6 BYTES
17A5
5F
4351
C
POP
01
; RECOVER THE PO INTERS
17.0.6
5E
4352
C
POP
SI
17.0.7
74 10
4353
C
JZ
S16P
I F ZERO FLAG SET,
4354
C
THEN MATCH OCCURRED
17.0.9
FE CO
4355
C
INC
AL
NO MATCH, MOVE TO NEXT
17AB
63 C7 06
4356
C
ADD
01,8
NEXT CODE PO I NT
17AE
4A
4357
C
DEC
OX
LOOP CONTROL
17AF
75 ED
4356
C
JNZ
S17P
DO ALL OF THEM
4359
C
4360
C
;----- CHAR NOT MATCHED, MIGHT BE I N USER SUPPLI ED SECOND HALF
4361
C
17Bl
3C 00
4362
C
CMP
AL,O
; AL
<>
0 IF ONLY 1ST
4363
C
HALF SCANNED
1763
74 11
4364
C
JE
S16P
IF = 0, THEN ALL HAS
4365
C
BEEN SCANNED
4366
C
ASSUME
DS:ABSO
17B5
E8 0001 R
4367
C
CALL
DDS
4366
C
WLXS
ES, 0 I, EXT_PTR
; GET PO INTER
17B6
C4 3E 007C R
4369
C+
LES
01, EXT_PTR
17°C
6C CO
4370
C
MOV
AX,ES
SEE I F THE PNTR EX I STS
17BE
DB C7
4371
C
OR
AX,DI
;
I
FALL
0,
OOESN
I
T EX I
sr
17CO
74 04
4372
C
JZ
S18P
; NO SENSE LOOK I NG
17C2
BO 80
4373
C
MOV
AL,128
; OR I GIN FOR SECOND HALF
17C4
EB 03
4374
C
JMP
S16P
; GO BACK AND TRY FOR IT
4375
C
4376
C
; ----- CHARACTER I S FOUND ( AL=O I F NOT FOUND )
4377
C
17C6
4376
C
S16P:
17C6
63 C4 06
4379
C
ADO
SP,6
READJUST THE STACK,
4380
C
THROW AWAY SAVE
17C9
E9 219B R
4381
C
JMP
V RET
ALL DONE
17CC
4382
C
GRAPH I CS_READ
ENDP
4383
C
4384
C
4385
C
;----- READ CHARACTER/ATTRIBUTE AT CURRENT CURSOR POSITION
4386
C
17CC
4387
C
AH8S:
17CC
E9 16FE R
4368
C
JMP
READ_AC_CURRENT
4389
C
17CF
4390
C
AH8:
4391
C
ASSUME
OS: ABSO
17CF
6.0. 26 0449 R
4392
C
MOV
AH,CRT_MODE
; GET THE CURRENT MODE
1703
80 FC 07
4393
C
CMP
AH,07H
1706
74 F4
4394
C
JE
AH8S
1706
80 FC 03
4395
C
CMP
AH,03H
170B
76 EF
4396
C
JBE
AH8S
1700
60 FC 06
4397
C
CMP
AH,06H
17EO
{~ ~~42
R
4398
C
JA
Z 1
17E2
4399
C
JMP
GRAPH I CS_REAO
17E5
I
4400
C
Z_l :
17E5 • 80 FC OF
4401
C
cmp
ah,Ofh
~ml ~~ ~~F4
R
4402
C
jb
grx_rd2
4403
C
ca II
mem det
17ED
72 40
4404
C
jc
grx=rd2
17EF
EB 0.0.
4405
C
jmp
short grx_rd1
17Fl
80 FC 00
4406
C
CMP
AH, DOH
RANGE TEST
17F4
73 46
4407
C
JAE
GRX R02
FOUR MAP READ
17F6
BO 00
4408
C
MOV
AL,a
17F8
E9 219B R
4409
C
JMP
V_RET
4410
C
136 IBM Enhanced Graphics Adapter
Advertisement
Chapters
Table of Contents
