IBM 5150 Technical Reference page 180

LOC OBJ LINE SOURCE
4108
F39E 4109
FIND_POSITION PROC HEAR
F39E 8ACF 4110
I1<JV
CL.BH J DISPLAY PAGE TO
ex
FlAO 32£D 4111
XOR CH,CH
FlA2 88Fl
F3A4 DIE6
flAb 8B4450
4112
4113
4114
I10V
SAL
I10V
SI,ex
1 MOVE TO 51 FOR INDEX
51,1
, *
2 FOR WORD OFFSET
AX,[SI. OFFSET CI..IRSOR_POSNJ J GET ROW/COllffi OF
TIt"
T PAGE
F3"9 3308 4115
XOR
'8X.BX
I SET START ADDRESS TO ZERO
~
f3AB flOb
4116 JCXZ
PS
I NO_PAGE
F3AD
4117 P4:
; PAGE_LOOP
F3AD 031E4COO 4118 ADD eX.CRT_LEN
I LENGTH OF BUFFER
F381 EZFA 4119
LOOP
P'
f383 4120
P5:
J NO_PAGE
F383 ESCFFE 4121 CAll POSITION
I DETERMINE LOCATION IN REGEN
f3B6 0308 4122 ADD aX,AX J ADD TO START OF REGEN
F38a C3 4123
RET
4124
FIt-i)_POSITION
ENDP
4125
,-----------------------------------------------­
4126
I WRITE_At_ClIRRENT
4127
THIS ROUTINE
~ITES
THE ATTRIBUTE
4128
ANtI CHARACTER AT THE CURRENT ClIRSOR
4129
POSITION
4130 INPUT
4131 U.H)
=
CURRENT CRT MODE
4132 (BH)
=
DISPL...Y PAGE
4133
(CX) :: COUNT OF CHAR"'CTERS TO WRITE
4134 (AL)
=
CHAR TO WRITE
4135 (BLI
=
",TTRIBUTE OF CHAR TO WRITE
4136 (DS I :: OAT A SEGMENT
4137 I ES J :: REGEN SEGMENT
4138
J OUTPUT
4139
NONE
4140
J-----------------------------------------------­
F3B9 4141
WRITE.At.CURRENT PROC
NEAR
F3B9 80FC04
FlBC 7208
4142
4143
C"P
JC
AN,'
..
I IS nus GR"'PHICS
F3BE 80FC07 4144
C"P
AH.7
i
IS THIS BW CARD
F3Cl 7403 4145
JE
P'
~
F3Cl E98201 4146
J"P
GRAPHICS.WRITE
nC6 4147 P6:
J
WRITE.AC.CONTINlIE
F3e6 8"'E3 4148
I10V
.\H.Bt I GET ATTRIBUTE TO AM
F3C8 50 4149
PLSH AX I SAVE ON STACK
F3C9 51 4150
PUSH CX
; SAVE WRITE COUNT
FlC... E801FF
4151
CALt FIND_POSITION
nco 8BFB 4152 I10V
DI.ex
I ADDRESS TO DI REGISTER
nCF 59 4153
pop
CX
I WRITE COUNT
noo 5B 4154
pop
BX I CHARACTER IN BX REG
FlOt
4155
P7:
I WRITE. LOOP
4156
4157
i ----­
WAIT FOR HORIZONTAL RETR...CE
4158
FlDl 8B166300 4159 t10V
ox ....00R.6845 I GET BASE ADDRESS
F305 83C206 4160
ADD OX.6 I POINT AT STATUS PORT
FlD8 4161 P8:
Fl08 EC 4162
IH
AL.OX I GET STATUS
F309 A801 4163
TEST ALtl
; IS IT LOW
F3DB 75FB
4164
JHZ
P8
I WAIT UNTIL IT IS
FlDD FA 4165
CLI
I NO MORE INTERRUPTS
flOE
4166 P9:
F30E EC 4167
IH
AL,DX I GET STATUS
nDF "'801
4168
TEST
At,1
I IS IT HIGH
F3El 74FB
4169
JZ
P'
I WAIT UNTIL IT IS
f3E3 8BC3 4170
I'IOV
AX,BX J RECOVER THE CHAR/ATTR
F3E5 AB
4171 STOSW I PUT THE CHAR/ATTR
F3E6 F8
4172 STI I INTERRUPTS BACK ON
f3E7 E2Ee
4173 LOOP
P7
I
AS MANY TIMES AS REQUESTED
F3E9 E9D9FD
4174
J"P
VIDEO.RETURN
4175 WRITE_AC.CURRENT ENDP
r"'\
4176
4177
;-----------------------------------------------­
I WRITE.C.CVRREHT
4178 THIS ROUTINE WRITES THE CHARACTER AT
4179
THE CURRENT CURSOR POSITION. AT'rnIBUTE
4180 UNCHANGED
4181
I INPUT
4182 (AH I :: CURRENT CRT MODE
4183 (BHI :: DISPLAY PAGE
4184
(ex) :: COUNT OF CHARACTERS TO WRITE
System BIOS 5-87