IBM 5150 - Page 250

LINE
SOURCE
loe OBJ
F4A7 2BOl
F4A9 81C20101
F4AO DOE6
F4AF DOE6
r"'\
F481 803£490006
F486 7304
F488 00E2
F4SA DIE7
FItSe
F4SC
06
F480 1f
F48E 2AED
F4eo OOEl
F4e2 001:3
F4C4 7420
F4C6 SAC]
F4CB 8450
F4CA F6E4
F4CC
BBF7
F4CE 03FO
F4DO 8AE6
F4DZ: ZAf3
F404
F404 EaMOD
F407 8IEEBOlF
F4DS 81EFBOIF
F40F FEee
r"'\
F4El 75Fl
F4E3
F4E3 8AC7
F4ES
F4ES E88800
FitE8 81EFBOIF
F4EC FECB
F4EE 75F5
F4FO E9D4FC
F4H
F4F3 8AOE
F4FS EBEC
r"'\
F4H
F4F7 FD
F4F8 SADS
F4FA 8BCl.
F4FC
E81002
4137
SUB ox.ex
4138
ADO
OX,lOlH I ADJUST VALUES
4139
SAL DH.l
I NUL TIPLY a- ROWS BY It SINCE 8 VERT DOTS/CHAR
414Q
SAL OHt!
I
AND EVEN/ODD ROWS
4141
4142
1------ DETERMINE CRT HODE
4143
4144
CMP CRT_mlOE.6 J TEST FOR MEDIUM RES
4145 JNC
R7
FIHO_SOURCE
4146
4147
1------ MEDIUM RES UP
4148
SAL OL.!
; I COLUMNS * 2:, SINCE ;2 BYTES/CHAR
4149
SAL
Old
; OFFSET *2 SINCE 2: BYTES/tHAR
4150
4151
;------ DETERttINE THE SOURejE ADDRESS IN THE BUfFER
4152
R7:
; FIND_SOURCE
4153
PUSH
ES ; GET SEGMENTS BOTH POINTING TO REGEN
4154
POP OS
4155
SUB CHtCH
I ZERO TO HIGH OF COUNT REG
4156
SAL Bl.t
; MULTIPLY tU1BER OF LINES BY 4
4157
SAL
Bl.l
4158
JZ
; IF ZERO. THEN BLANt< ENTIRE FIELD
4159
NOV
""
Al.St ; GET NUMBER OF LItlES IN AL
4160
MOV AH,80 J 80 SrTES/ROW
4161
NUL AH t DETERMINE OFfSET TO SOURCE
4162
NOV
SI,D! ; SET UP SOURCE
4163
ADO
51,AX ;
ADD IN OFFSET TO IT
4164
HOY AH,DH I NUMBER OF ROWS IN FIELD
4165
SUB AH,Ol ; DETERMINE NUt1BER TO MOVE
4166
4167
,------ LOOP THROUGH. MOVING ONE ROW AT A TIME, BOTH EVEN AND ODD fIELDS
4168
pa:
; ROW_lOOP
4169
CALL
"17
; MOVE DUE ROW
4170
SUB SI.2000H-8.0
; ttOVE TO NEXT ROW
4171
SUB DX ,2000H-80
4172
OEC AH
I NUMBER OF ROWS TO tfOVE
4173
J»Z .s
J CONTINUE TILL ALL HOVED
4174
4175
;------ FILL IN THE VACATED LINE(S)
4176 R9:
i CLEAR_ENTRY
4177 MOV Al,SH ; ATTRIBUTE TO FILL NITH
4178 RIO:
4179
CAll Rle I CLEAR THAT ROW
4180
SUB
DI.2:000H-80 POINT TO NEXT LINE
41S1
DEC BL
NUHBER OF LINES TO FIll
4182
JNZ RIO ; CLEAR_LOOP
41S3
JMP VIDEO_RETURN
j EVERYTHING DONE
41S4
41SS Rll: ; BLANKJIElO
4186-
HOV
BL,DH ; SET BLANK COUNT TO EVERYTHING IN FIElD
4187 JNP f CLEAR THE FIELD
.9
4188
GRAPHICS_UP ENDP
4189
;---------- ..... --- .. ----------------------------
4190 I SCROll DOWN
4191
I
THIS ROUTINE SCROllS DOriN THE INFORMATION ON THE CRT
4192
; ENTRY --
4193
I
CH .CL = UPPER LEFT CORNER OF REGION TO SCROLL
4194 DH,DL ::; LOWER RIGHT CORNER OF REGION TO SCROLL
4195
BOTH OF THE ABOVE ARE IN CHARACTER POSITIONS
4196
BH- = FILL VALUE FOR BLANKED LIHES
4)97
I
AL ::; I LINES TO SCROll fAL=O MEANS BLAHI< THE ENTIRE FIELD)
4198 OS =DATA SEGMENT
4199
I
ES ::; REGEN SEGMENT
4200
I EXIT --
4201
;
NOTHING, THE SCREEN IS SCROLLED
42:02
1---- --------- -- --- --------- -------------- ---
4203
4204
GRAPHICS_DOWN PROC NEAR
4205
5TO ; SET DIRECTION
4206 NOV BL,AL J SAVE LINE COUNT IN BL
4207 NOV AX ,ox. ; GET LOWER RIGHT POSITION INTO AX REG
4208
4209
; ------ USE CHARACTER SUBROUTINE FOR POSITIONING
4210 ; .. ----- ADDRESS RETURt~ED IS tlULTIPLIED BY 2 FROt! CORRECT VAWE
4211
4212
CALL GRAPH_POSN
A-57