IBM 5150 Technical Reference page 187

LOC OBJ
F5AE
F5AE At
FSAF F6C380
F582 7516
F584 AA
F585 AC
F586
F586 26888SFFlF
F5BB 83C74F
FSBE FEtE
F5CO 75ft
FSCZ Sf
F5C3 SF
F5C4 47
F5C5 E2E3
F5C7 E9FBFB
FSCA
F5CA 261205
FSCD AA
FSCE At
FSCF 263285FF 1 F
F504 fBED
F506
F506 8.6003
F508 DIE7
FSDA. f80100
FSOD
FSDD 57
FSDE 56
FSDF 8604
F5£1
F5El AC
FSE2 E8DEOO
F5£5 23C3
FSE7 F6C280
FSEA 7407
FSEC 2:632:25
FSEf 26324501
FSF3
F5F3 26882:5
F5F6 26884501
FSFA At
FSF8 £8C500
FSFE 23C3
F600 F6C280
F60l 740A
F60S 2632.6.5002:0
F60.6o 2632850120
F60F
F60F 2688.6.50020
F614 268885012:0
F619 83C750
F6lC FEtE
F61E 75tl
F620 5f
F621 SF
F622 47
F623 47
F624 £287
F626 E99CFB
F629
F629 E80600
F62e 88FO
F62E 63Ee08
F631 8BEt
LINE SOURCE
464] 54:
4644
lOOSB
4645
TEST Bl.80H
4646
JNZ
56
4647 ST058
4648 LDOse
4649
S5:
4650 MOY
ES: IDl+2000H-l
J•• U
4651
ADD 01.79
4652
DEC
DH
4653
JHZ
5.
4654 POP
51
4655 POP 01
4656
lHe
01
4657
lOOP 53
4656
JHP VIDEO_RETURN
4659 56:
4660
XOR
Al.ES:[DII
4661 STOSB
4662
lOOSB
4663 XOR
Al,ES:(DI+2DODH-l1
4664
JMP 55
4665
4666
J-----
MEDIUM RESOLUTION WRITE
4667
4668
57:
4669
tfOV OL.8L
4670
SAL DI,!
4671
4672
..
'
CAll 519
4673 PUSH 01
4674
PUSH SI
4675 MOV
4676 59:
4677
lODSB
4678
CAll 521
4679 AND AX,BX
4660
4681
TEST DL,80H
4682
JZ 510
4683 XOR AH,ES:[DI]
4.84
XOR Al,ES:(DI+l1
4.85
510:
4.86
HOY ES: [DII,AH
4687
HOV ES: [01+1 ],Al
4688 LOOse
4689
CAll S2.
4690
AtI)
AX.BX
4691
TEST Dl,80H
4692
JZ 511
4693
XOR AH,ES:[DI+2000H
I
4.94
XDR AL,ES:[OI+2:00IHI
4695
S11:
4696
MOY
ES: (OI+2000H I.AH
4697
HOV ES:[OI+ZOOOH+ll.AL
4698
AOO 01.80
4699
DEC OH
4700 JNZ 59
4701
POP SI
4702 POP Ot
4703 INC 01
4704
INC 01
4705 LOOP 58
4706 JMP
4707 GRAPHICS_WRITE ENDP
4708 ;-----------------------­
4709 ; GRAPHICS READ
4710
J -----------------------­
4711
GRAPHICS_READ MOC NEAR
4712
CAll 52:6
4713
MOV SI.AX
4714
SUB SP.8
4715
4716
MOV BP,SP
4717
4718 ;----- DETERHINE GRAPHICS HODES
4719
I GET BYTE FROH CODE POINTS
I SHOULD WE USE THE FUNCTION
; TO PUT CHAR IN
I STORE IN REGEN BUFFER
; STORE IN SECOND HALF
I
HOVE TO NEXT ROW IN REGEN
J DONE WITH lOOP
I RECOVER REGEN POINTER
I POINT TO NEXT CHAR POSITION
J ttORE CHARS TO WRITE
I EXCLUSIVE OR WITH CURRENT
J STORE THE CODE POINT
; AGAIN FOR ODD FIELD
J BACK TO HAINSTREAM
I SAVE HIGH COLOR BIT
I OFFSET*2 SINCE 2 8YTE5/CHAR
; EXPAND BL TO FULL WORD OF COLOR
J HED.CHAR
; SAVE REGEN POINTER
I
SAVE THE CODE POINTER
; NUMBER
OF lOOPS
J GET CDOE POINT
I
DOUBLE UP ALL THE BITS
J CONVERT THEM TO FOREGROlH)
I
COLOR ( 0 BACK )
I IS THIS XOR FUNCTION
; NO, STORE
IT
IN AS
IT
IS
; DO FUNCTION WITH HAU
J AN) WITH OTHER HALF
J STORE FIRST BYTE
J STORE SECOND BYTE
J GET CDOE POINT
J CONVERT TO COLOR
J AGAIN. IS THIS XOR FUNCTION
; NO. JUST STORE THE VALUES
; FUNCTION WITH FIRST HALF
; AND WITH SECotI) HALF
I STORE IN SECOND PORTION OF BUFFER
; POINT TO NEXT LOCATION
J KEEP GOING
I RECOVER CODE POHTER
; RECOVER REGEN POINTER
I POINT TO NEXT CHAR POSITION
; HORE TO WRITE
J CONVERTED TO OFFSET IN REGEN
; SAVE IN SI
; ALLOCATE SPACE TO SAVE THE
I READ CODE POINT
; POINTER TO SAVE AREA
5-94 System BIOS