IBM 5150 Technical Reference page 189

LOC OBJ
LINE
SOURCE
F6A6 EB02
F6A8
F6A8 83C408
F6AB E917F8
F6AE
F6AE BOnDl
Hel 8AC3
f6B3 51
F684 890]00
F6B7
F6B7 ODED
F689 ODED
F6BS OA08
FoBD E2F8
F6BF SAFB
F6CI 59
F6C2 C3
F6C3
F6C3 52
F6C4 51
F6es 53
F6C6 2B02
F6e8 890100
Foee
F6e8 S808
FocD 2309
f6CF OBD3
F601 OlEO
F603 OlEl
F6DS 8808
F607 2309
fbD9 OB03
F6DB DIEI
F60D 73Et
F6DF 8BC2
F6El 58
F6E2 59
F6E3 5A
F6E4 C3
4796
JMP 516
I 60 BACK AND TRY FOR IT
4797
ASStn1E DS:CATA
4798
4799 .---.... CHARACTER IS FOLItI) ( Al=:O IF NOT fOUND )
4800
4801
518:
4802 ADD
sp,a
; READJUST ruE STACK. THROW AWAY SAVE
4803
J"P VIDEO_RETIJRN ; ALL DONE
4604
GRAPHICS.READ ENDP
4605 ; ----­ --------..-----------------------------­ -----------­
4806 ; EXPAND_MED_COLOR
4807 THIS ROUTINE EXPANDS THE lOW 2: BITS IN BL TO
4808 FILL THE ENTIRE BX REGISTER
4809 ENTRY
4810
BL
=
COLOR TO BE USED I lOW 2 BITS )
4811 ; EXIT
4812 BX :: COLOR TO BE USED ( 8 REPLICATIONS OF THE
4813
2 COLOR BITS I
4814
1-----------------------------------------------------.-­
4815 519 PROC NEAR
4816 AND
BL,3
,
ISOLATE THE COLOR BITS
4817 MOV AL,BL ; COPY TO AL
4818 PUSH
ex
, SAVE REGISTER
4819 MOV
CX,3
I t-M1BER OF UHES TO 00 TIUS
482:0
S20:
4821
SAL AL,I
4822 SAL AL,I
,
LEFT SHIFT BY 2:
4823 OR BL,AL ; ANOTHER COLOR VERSION INTO BL
4824 LOOP
520
I FILL AlL OF el
4825 MOV
BH.Bl
,
FILL UPPER PORTION
4826 POP
ex
j
REGISTER BACK
4827 RET ; ALL DONE
4828 519 ENDP
4829
1----------------------------------------------­--------­
4830 ; EXPAND.BYTE
4831 THIS ROUTINE TAKES THE BYTE IN Al AND DOUBLES
4832 ALL OF THE BITS. TURNING THE 8 eITS INTO
4833 16 eITs. THE RESULT IS LEFT IN AX
4834 ; ---------------­ - ----------------------­ - --------------­
4835
521
PRoe NEAR
4836
PUSH
ox
I SAVE REGISTERS
4837 PUSH
ex
4838 PUSH BX
4839
SUB
DX,OX
I RESULT REGISTER
4840 MOV CX,I I
MASK REGISTER
4841
522:
4842
MeV BX,AX I
BASE INTO TEMP
4843
ANO
eX,ex
; USE MASK TO
E~ACT
A BIT
4844 OR DX,BX
PUT INTO RESULT REGISTER
4845
SML
AX'}
4846
SHL eX , l
SHIFT BASE AND MASK BY 1
4847
MOV BX,AX
I BASE TO TEMP
4848
ANO ax.ex
I
EXTRACT THE SAME
BIT
4849
00
DX.BX
; PUT INTO RESULT
4850
SHL
ex.1
I
SHIFT ONLY HASK. NOW,
4851 I
HOVING TO NEXT BASE
4852
JHe
522
I USE MASK BIT COMING OUT TO TERMINATE
4853
MOV AX,OX
; RESULT TO PARM REGISTER
4854
POP BX
4855
POP
ex
; RECOVER REGISTERS
4856 POP
ox
4857
RET I
ALL DONE
4858 521 ENDP
4859 ; -------------­ --------------------­ --------------------­
4860 ; HED_READ_BYTE
4861 THIS RQUTINE
WIll
TAKE
2:
BYTES FROH THE REGEN
4862 8UFFER
I
COMPARE AGAINST THE CURRENT FOREGROUtl)
4863 COLOR, AND PLACE THE CORRESPONDING ON/OFF eIT
4864 PATTERN INTO THE CURRENT POSITION IN THE SAVE
4865 AREA
4866 ; ENTRY
4867 SI.OS :: POINTER TO REGEN AREA OF INTEREST
4868 BX
=
EXPANDED FOREGROUHO COLOR
4869
8P
=
POINTER TO SAVE AREA
4870 I EXIT
4871 BP IS INCREMENT AFTER SAVE
4872 ; --------­ ---------­ ---------­ -------------­ ------------­
5-96 System BIOS