IBM 5170 Technical Reference page 281

061A
E8 06Fl
R
CALL S19
0610 S8:
0610 57
061 E 56
06lF 136 04
0621
S9:
0621 AC
GET CODE PO I NT
OG22
0625
E8
23
521
AX, BX
OOUBLE UP ALL THE BITS
CONVERT Til EM TO FOREGROUND COLOR ( 0 BACK)
0627 F6 DL,80H
IS THIS XOR FUNCTION
OG2A
062C
062f
74
26:
26:
25
45 01
510
AH, ES; [DI
1
AL,ES:[OI+lj
NO. STORE I TIN AS I TIS
DO FUNCTION WITH HALF
AND WITH OTH[R IIALF
0633
S10;
0633
0636
26: 88 25
26: 88 45 01
MOV
MOV
ES: [01 ],AH
ES:[OI+lj,AL
STORE FIRST eYTE
STORE SECOND eYTE
~
063A Ae
LOOSS
GET CODE PO I NT
06313 E8 0706 R
CALL
521
063[
0640
23 C3
f6 C2 80
ANO
TEST
AX, BX
DL,80H
CONVERT TO COLOR
AGAIN, IS THIS XO!( fUNCTION
0643
74 OA
J2 511
NO, JUST STORE TH[ VALUES
0645
064A
26: 32 A5 2000
26: 32 85 2001
XOR
XOR
AH,ES:[DI+2000H]
AL, ES: [ 0 I +200 11-1]
;
;
fUNCTION WITII fiRST HALF
AND WI TH SECOND HALF
064f
Sl1:
064F 26: 88 A5 2000 MOV
ES: [ 0 I +2000H), AH;
0654
26: 88 85 2001 MOV
ES:[DI+2000H+1j,AL ; STORE IN SECOND PORTION OF BUFfER
0659 83 C7 50 AOO
01,80 POINT TO N[XT LOCATION
065C fE CE OEe OH
065E 75 C1 JNL 59
K[EP GOI NG
0660 5E POP 51
RECOVER CODE PONTER
0661 5F POP 01
R[COVER REGEN POINTER
0662
,,7
INC
01
POINT TO NEXT CHAR POSITION
0663 47 INC 01
uG64 E2 137 LOOP
58
MORE TO WR I TE
0666 E9 0144 R JMP VI DEO RETURN
0669
GRAPH I CS_WR I TE
ENDP -
; GRAPH I CS READ
0669
GRAPH I CS READ NEAR
0669 E8 0745 R CALL
OGGC 88 FU ~lOV
UGGE 83 EC 08
SUD
0671 88 EC
MOV
DETERMINE GRAPHICS MODES
0673
0678
80 3E 0049
R 06
06
CRT MODE,6
E5 -
0679 1F 05
PO I NT TO REG[N S[GM[NT
OG7A
72 513
MEO I UM R[SOLUT I ON
HIGH RESOLUT I ON READ
;------ GET VALUES FROM REG[N BUfFER AND CONVERT TO CODE POINT
067C 86 04 MOY OH, 4 NUI~BER OF PASSES
067E S12;
067C 8A 04 MOV AL,! SI J GET FIRST BYTE
0680
88 46 00 MOV [ BPJ,AL
SAVE I N STORAGE AREA
0683
45
INC
8P
NEXT LOCAT I ON
0684
8A 84
2000
MOV AL, [ S I +2000H
1
GET LOWER R[G I ON BYTE
0688 88 46 00 MOV [ SPj.AL ADJUST AND STORE
~
0688
45 I Ne 8P
068C
83 C6 50 AOO SI,80
POINT[R. INTO REG[N
068f FE CE
OEe OH
LOOP CONTROL
0691 75 L13 JNZ
512
DO I T SOME MORE
0693 [8
17 90 JMP
515
GO MATCH THE SAVED CODE POINTS
MED I liM RESOLUT I ON READ
0696
$13: MEO R[S READ
0696
01 EO
SAL SI,1
OFFSETi'2 SINCE 2 BYTES/CHAR
0698
BG 04
MOV UH,4
NUM13ER OF PASSES
OG9A S14:
069A E8 0728 R
523
GET PA I R BYTES FROM RECEN INTO SINGLE SAVE
0690 81 CG 2000
SI,20DOH
GO TO LOWER REG 1ON
06Al E8 0728 R
523
GET THIS PAIR INIO SAVE
06A4 81 EE 1 FBO
S I, 2000H-80
ADJUST POINTER BACK INTO UPPER
06A8 FE C[
OH
06AA 75 EE
514
KEEP COINC UNTIL ALL 8 DONE
06AC $15 :
06AC Sf 0000 E OI,OFFSET
ADDRESS 1 NG
06AF DE e5
06130
06Rl
07
83 ED 08
E5
BP,8
ADJUST;
pg~~~E~O ~~T~E6 ~ N~;
NG Of SAVE AREA
06134 813 F;;, SI,BP
06136 Fe
ENSUR[ 01 RECT ION
06137 130 00
AL,O
CURRENT CODE POINT BEING MATCHED
06B9 S16;
06B9
16 PUSH
55
STACk.
06BA 1F
POP 05
06[3[3
BA 0080 HOV DX,128
06BE S17:
06BE 56 PUSH 51
SAVE SAVE Af,[A PO 1 NTER
06SF 57 PUSH 01
SAVE CODE PO INTER
OGCO 139 0008 110V CX,8 NUMBER OF !.lYT[S TO t1ATCH
06C3
OfiC5
f3/ A6
8A 1[ 0017 R
REPE
HOV
CMPSB
BL, KB_FLAG
COI1PARL' TilE 8 !.lYTES
READ ANY BYT[ OF STORAGE
06C9 5F POP
01
R[COVER THE PO INTERS
OGCA 5E POP 51
06CB 74 1 E
JZ 518
I F ZERO FLAG SET, THEN MATCH OCCURRED
OGCD
06CF
rE
co
83 C7 08
INC
AOO
Al
01,8
NO MATCH, MOVE ON
N[-XT COO[­ PO I NT
TO N[XT
0602
4A OEe
ox
LOOP CONTROL
0603 75 E9
JNZ 517
00 ALL Of THEM
!"'"""..
OG05 3C 00
; -----­ CHAR NOT MATCHED, MIGHT BE 1 N USER SliPPL I
[0
S[CONO HALF
AL<> 0 I F ONLY 1ST HALF SCANNED
OG07 74 12 IF = 0, THEN ALL HAS BEEN SCANNED
OG09
213 CO
06DB 8E D8 EST ABL I SH ADDRESS I riC TO VECTOR
0600 C4 3[ 007C R CET POI NTER
06El 8C CO
SEE I F THE PO I NTER REALLY EX I STS
06E3 UB C7 I FALL 0, THEN DOESN'T EXI ST
06E;;, 74 04 NO SENSE LOOK I NG
06[7 BO 80 ORIGIN FOR SECOND HALF
06E9 EB CE
GO BACK AND TRY FOR IT
; -----­ CHARACTER I S FOUND ( AL=O I F NOT FOUND )
06[13
S18:
06EB 83 C4 08 ADD SP,8
; READJUST THE STACK, THi\OW AWAY SAVE
06[[ E9 0144 R JMP Y IDEO_RETURN ; ALL DONE
Video 5-139