IBM XT 5160

LOC OB..JECT
LI NE SOURCE (B I OS FOR THE I BM PERSONAL COMPUTER XTl I 1/08/82
;----- GET VALUES FROM REGEN BUFFER AND CONVERT TO CODE POINT
; - - - - - CHAR NOT MATCHED, MIGHT BE I N USER SUPPLI ED SECOND HALF
; ----- CHARACTER I S FOUND ( AL=O IF NOT FOUND )
S 18:
MOV
DH,4
; NUMBER OF PASSES
S 12:
MOV
AL, [S I]
GET FIRST BYTE
MOV
[BP] ,AL
SAVE
I N STORAGE AREA
INC
BP
NEXT LOCAT I ON
MOV
AL,[SI+2000H]
GET LOWER REG I ON BYTE
MOV
[BP] ,AL
AD..JUST AND STORE
INC
BP
ADD
S
1,80
POINTER
INTO REGEN
DEC
DH
LOOP CONTROL
..JNZ
S 12
DO
I T SOME MORE
..JMP
S 15
GO MATCH THE SAVED CODE POINTS
;----- MEDIUM RESOLUTION READ
S 13:
MED RES READ
SAL
S I, I
OFFSET *2 SINCE 2 BYTES 1CHAR
MOV
DH,4
NUMBER OF PASSES
S14:
CALL
S23
GET PA I R BYTES FROM REGEN
INTO SINGLE SAVE
ADD
S
I, 2000H
GO TO LOWER REG I ON
CALL
S23
GET TH IS PA I R
INTO SAVE
SUB
S I
,2000H-80
AD..JUST PO I NTER BACK
INTO UPPER
DEC
DH
..JNZ
S14
KEEP GO I NG UNT I L ALL 8 DONE
CODE
POINTS IN CS
AD..JUST PO I NTER TO BEG I NN I NG
OF
SAVE AREA
GET POINTER
SEE I F THE PO INTER REALLY EX I STS
IF ALL 0, THEN DOESN'T EXIST
NO SENSE LOOK I NG
OR I GIN FOR SECOND HALF
GO BACK AND TRY FOR IT
ENSURE 0 I RECT I ON
CURRENT CODE PO I NT BE I NG MA TCHED
AL <> 0 IF ONLY 1ST HALF SCANNED
IF = 0, THEN ALL HAS BEEN SCANNED
ESTABLISH ADDRESSING TO VECTOR
CONVERTED TO OFFSET I N REGEN
SAVE IN SI
ALLOCATE SPACE TO SAVE THE
READ CODE PO I NT
PO I NTER TO SAVE AREA
PO I NT TO REGEN SEGMENT
MED I
UM RESOLUT I ON
RECOVER THE PO INTERS
SAVE SAVE AREA PO INTER
SAVE CODE PO INTER
NUMBER OF BYTES TO MATCH
COMPARE
THE 8 BYTES
ESTABLISH ADDRESSING TO STACK
FOR THE STR I NG COMPARE
NUMBER TO
TEST AGA I NST
I F ZERO FLAG SET, THEN MATCH OCCURRED
NO
MATCH, MOVE ON TO NEXT
NEXT
CODE POINT
LOOP CONTROL
DO ALL OF THEM
;
READ..JUST THE STACK, THROW AWAY SAVE
; ALL DONE
AL,O
SI,BP
CRT MODE,6
ES -
OS
S 13
SS
OS
DX,128
SI
01
CX ,8
CMPSB
01
SI
S 18
AL
01,8
OX
S 17
SP,8
V IDEO RETURN
ENDP -
AL,O
S 18
AX ,AX
DS,AX
OS: ABSO
DI,EXT PTR
AX, ES -
AX
,01
S18
AL,128
S 16
DS:DATA
01 ,OFFSET CRT CHAR GEN
CS
--
ES
BP,8
MOV
PUSH
POP
SUB
POP
POP
..JZ
INC
ADD
DEC
..JNZ
PUSH
POP
MOV
MOV
CLD
MOV
CMP
PUSH
POP
..JC
CMP
..JE
SUB
MOV
ASSUME
LES
MOV
OR
..JZ
MOV
..JMP
ASSUME
PUSH
PUSH
MOV
REPE
SAVE AREA HAS CHARACTER I NIT, MATCH IT
FIND CHAR
ESTABLISH ADDRESSING
.------------------------
; GRAPH I CS READ
MOV BP, SP
;----- DETERMINE GRAPHICS MODES
;
----- HIGH RESOLUT I ON READ
S 15:
S 16:
S 17:
.------------------------
GRAPH I CS READ PROC NEAR
CALL S26
MOV S I ,AX
SUB SP,8
ADD
..JMP
GRAPH I CS_READ
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661
4662
4663
4664
4665
4666
4667
4668
4669
4670
4671
4672
4673
4674
4675
4676
4677
4678
4679
4680
4584
4585
4586
4587
4588
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
460 I
4602
4603
4604
4605
4606
4607
4608
4609
4610
461 I
4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642
4643
4644
4645
4646
4647
4648
4649
4650
4651
F65D 81 C60020
F661 E88100
F66481EEBOIF
F668 FECE
F66A 75EE
F69A C43E7COO
F69E 8CCO
F6AO OBC7
F6A2 7404
F6A4 B080
F6A6 EBD2
F656
F656 D1E6
F658 B604
F65A
F65A E88800
F633 803E490006
F638 06
F639 IF
F63A 721A
F66C
F66C
BF6EFA90
F670 OE
F671 07
F672 83ED08
F692 3COO
F6947412
F696 2BCO
F698 8ED8
F629
F629
E8D600
F62C 8BFO
F62E 83EC08
F675 8BF5
F677 FC
F678 BOOO
F67A
F67A
16
F67B IF
F67C BA8000
F67F
F67F
56
F680 57
F681 B90800
F684 F3
F685 A6
F686 5F
F687 5E
F688 74IE
F68A FECO
F68C 83C708
F68F 4A
F690 75ED
F6A8
F6A8
83C408
F6AB E917FB
F631 8BEC
F63C B604
F63E
F63E
F640 884600
- F643 45
F644 8A840020
F648 884600
F64B 45
F64C 83C650
F64F FECE
F651 75EB
F653 EB 1. 790
5-162
PC-XT System BIOS (11/08/82)