IBM 5150 - 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:
JWRITE.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