IBM 5150 Technical Reference page 188

LOC OBJ
F633 803£490006
F638 06
F639 IF
Ft.3,A 721A
F63C 8604
F63£
F631: 8A04
F640 884600
F643 45
F644 8A840020
F648 884600
F648 45
F64C 83C650
F64F FEtE
F651 75EB
F653 E81790
F656
F656 DIE6
F658 8604
F65A
F65" £88500
F650 81C60020
F661 £88100
F664 SIEEBOlF
F668 FEtE
F66,\ 75EE
F66C
F66t BF6EFA90
F670 DE
F671 07
F672: 83ED08
F675 8BFS
F677 FC
F678 BODO
F67.
f67A 16
F678 IF
F67C BA8000
F67F
F67F 56
F680 57
F681 890800
F6M F3
F685 A6
F686 SF
F687 5£
F688 741£
F68. FEeD
FMC 8]C708
FbBF 4A
F690 75ED
F692 leGO
F694 7412
F696 2BCO
F698 8E08
F69A C43E7COO
F69E aceD
F6"0 OBC7
F6A2 7404
F6"4 Boeo
LINE SOURCE
4720 CHP CRT_I1ODE.6
4721 PUSH ES
4722
pop OS
; POINT TO REGEN SEGHENT
4723 JC 513 ; HED 11..11 RESOLUTION
472:4
4125 RESOLUTION READ
i-·---
HIGH
4726
47Z7 1----- GET VALUES FROM REGEN BUFFER AtIJ CONVERT TO CODE POINT
4728
4729 I10V
DH,4
J
tl.leER OF P...SSES
4730 512:
4731 I10V
.\L,ISI) J 6ET FIRST
BYTE
4732
I10V
IBPJ.Al • S"'VE IN STORAGE AREA
4733
INC
BP
I
NEXT LOC"'TION
4734
I10V Al, (S1+2000H
I
I
GET LOWER REGION BYTE
4735
MOV
IBP],Al I ADJUST AND STORE
4736
INC
BP
4737
ADD 51,80
J
POINTER INTO REGEN
4738 DEt
DH J LOOP CONTROL
4739 JNl 512
J DO
IT
SOME
HeRE
4740
"'P
515
I
&0 "ATCH THE SAVED COOE POINTS
4741
4742
1-----
"EDlllt RESOLUTION READ
4743
4144 513:
4745
SAL SI.l I
OFFSET*2 SINCE 2: BYTES/CH...R
4746 MOV
DH.4 I NUHBER OF P"'SSES
4747 S14:
4748
CALL
52:3
I GET PAIR BYTES FROf1 REGEN
4749
I
INTO SINGLE S"'VE
4750
ADD
51.
2000H J GO
TO
LOWER REGION
4751
CALL 523 I 6ET THIS PAIR INTO SAVE
4752:
SUB
SI,2000H-80 I ADJUST POINTER BACK INTO UPPER
4753
DEC DH
4754
JHZ S14
i
KEEP GOING
UNTIL
AlL
8
DONE
4755
J-----
S...VE 4756 "'RE... H...
S
CH...R"'CTER IN
IT.
I1A.TCH
IT
4757
4758 515:
I
FIND_CHAR
4759
HOV DI.OfFSET CRT_CHAR_GEN J ESTABLISH ...DDRESSING
4760 PUSH CS
4761
POP ES I COOE POINTS IN CS
4762
SlIS BP,8
J
",DJUST POINTER TO BEGI...ING
4763 I OF SAVE AREA
4764
I10V SI,BP
4765
tLD
I ENSURE DIRECTION
4766 I1DV
"'L.O I
CURRENT COOE POINT BEING I1A.TCHED
4767
516:
4768 PUSH SS
f ESTABLISH ADDRESSING TO STACK
4769 POP OS
I
FDR THE STRING COMPARE
4770
HOV OX.U8
I
tu1BER TO TEST AGAINST
4771 517:
4772:
PUSH SI I SAVE SAVE AREA POINTER
4773
PUSH 01
; SAVE CODE POINTER
4774 MO'V eX,8
i
NJt18ER
OF
BYTES
TO MATCH
4715
REPE CMPSS
I COHPARE THE 8 BYTES
pop
4771
pop
5r
4778
Jl 518
I I f ZERO FLAG SET. THEN MATCH OCClllRED
4779
INC
AL
I NO "ATtH, HOVE ON TO NEXT
4780 ADD 01,8
I NEXT CODE POINT
4781
O,C
DX
1 LOOP CONTROL
4782 JNZ 517
; DO ALL OF THEM
4783
4784
1-----
CHAR NOT MATCHED. HIGHT BE It-! USER SUPPLIED SECOND HAlF
4785
4786 tMP
"'L.O
I AL
<>
0 IF ONLY 1ST HAlF
~ED
4787
JE
51. I
IF
=
0,
THE'"
"'ll
H...S BEEt-! SCAtifED
4788
AX .... X
4776
or
I RECOVER THE POINTERS
5'"'
4789 I10V
DS.AX ; ESTABLISH ADDRESSING TO 'VECTOR
4790
A$SUI1E DS:ABSO
4791 LES 01 ,EXT_PTA I GET
POINTER
4792
MOV
AX.ES i
SEE IF THE POINTER REALLY EXISTS
4793
OR
AX.DI
I IF ALL O. THEN DOESN'T EXIST
4794 JZ 51.
I NO SENSE LOOKING
4795 HOV
AL.U8 I ORIGIN FOR SECOND HALF
System BIOS 5-95