IBM 5150 - Page 247

LOC OBJ LINE SOURCE
F3Cl
3910
NEAR
F3C3 60fC04
3911
CMP AH,4
i IS THIS GRAPHICS
F3C6 7208
3912
JC P6
nCB BOFC07
3913
CMP AH,7
I
IS THIS BW CARD
nCB 7403
3914
J' P6
nco E98101
3915
JMP
noo
3916 P6:
i WRITE_AC_CONTINUE
Floa 8An
3917
HOV AH,BL
;
GET ATTRIBUTE TO AH
F30Z 50 3918
PUSH AX
I SAVE ON STACK
Fl03 SI
3919
PUSH ex
;
SAVE WRITE COUNT
F3D4 ESC OFF
39Z0
CALL FlNO_POSITlOH
F30? 8BFB
]92:1
HOY DI.BX
• ADDRESS TO 01 REGISTER
n09 59
3922
POP ex
~ WRITE COUNT
FlOA 58
3923
pop ex
J CHARACTER IN BX REG
F30B
3924 1'7:
; WRITE_LOOP
3925
3926 ; ------ WAlT FOR HORIZONTAL RETRACE
3927
F30B 8B166300
3n8 MOY
DX.ADDR_6645
;
GET BASE ADDRESS
nOf 63C206
3929
ADD
DX.6 i POINT AT STATUS PORT
F3El
3930 P6:
F3E2 EC
3931
IN Al,DX
; GET STATUS
BE3 A801
3932
TEST Al.t
I IS IT LOW
F3E5 75FB
39~3
JUZ P6
I WAIT UNTIL IT IS
F3E7 FA
3934
ell ; NO MORE INTERRUPTS
FlEa
3935
P9:
FlEe EC
3936
IN .U,DX
;
GET STATUS
F3E9 ASOI
3937
TEST Al,l
;
IS IT HIGH
FlEB 74FB
3936
JZ P9
; WAIT
UNTIL IT IS
FlED 8BC3
3939
MOV Ax.ex ; RECOVER THE CHAR/ATTR
F3EF AS
3940
STOSW
;
PUT THE CHAR/ATTR
F3FO Fa
3941
sn
; INTERRUPTS
BACK ON
F3F1 E2E8
3942
j AS MANY TIMES AS REQUESTED
F3F3 E9DIFD
3943
3944
3945
. ----------------------------- ------------
394. .WRITE_C_CURRENT
3947
THIS ROUTINE WRITES THE CHARACTER AT
3946
THE CURRENT CURSOR POSITION. ATTRIBUTE UNCHANGED
3949 ;INPUT
3950 ( AH) : CURRENT CRT MODE
3951 (BH) = DISPLAY PAGE
3952 (CX) : COUNT OF CHARACTERS TO WRITE
3953 tAll = CHAR TO WRITE
3954 (OS) = DATA SEGMENT
3955 (ES) = REGEN SEGMEtlT
3956 .OUTPUT
3957 NONE
3956 ; -------- --------- -- ----- ________________ ----
F3F6 3959
WRITE_C_CURRENT PROC NEAR
F3F6 BOFC04
396-0 eMP AH.4 IS THIS GRAPHICS
F3F9
7208
396.1
JC
PI0
F3FB 80FC07
3962
CMP AH.7 IS THIS Bioi CARD
F3FE 7403 3963
J'
Pl.
F400 E97EOI
3964
JMP GRAPHICS_WRITE
F403 3965 PIO:
F403 50 396-6 PUSH AX ; SAVE ON STACK
F404 51 3967
PUSH CX
;
SAVE WRITE COUNT
F40S E89FFF
3966
CALL FIND_POSITION
F40e SBFB
3969
HOV DI.BX ; ADDRESS TO 01
F40A S9
3970
POP CX ; WRITE coutn
F40B 58 3971 POP
; BL HAS CHAR TO WRITE
F40C 3912 PH:
i WRITE_LOOP
3973
3974
j------ WAIT FOR HORIZONTAL RETRACE
3975
F40C 8S166300 3976 HOY OX , AODR_6845 ; GET BASE ADDRESS
F410 83C206 3977
ADD DX.6
I POINT AT STATUS PORT
f413
3976
pt2:
F413 EC 3979 IN AL.DX GET STATUS
F414 A801 3960 TEST AL,I
IS IT LOW
F416 7SfB 3961 JNZ PI2 ; WAIT UNTIL IT IS
F418 FA 3962 ClI ; NO MORE INTERRUPTS
F419
3963
PI3:
F419 EC
3964 IN AL,OX
I
GET STATUS
F41A A801
3965
TEST Al.t ;; IS IT HIGH
A·54