IBM 5150 - Page 184

LOC OBJ LINE
SOURCE
F4D6 FEee
4416
DEC AH
I t-ft..IMBER OF ROWS TO t10YE
F40a 7SFI
4417
JHZ
o.
; COHTItfJE TIll ALL MOVED
4416
4419
;----- FILL IN THE VACATED LINE(S)
4420
F40A
4421 R9:
J CLEAR_ENTRY
F4DA 8AC7
4422
HDV Al.,BH
I ATTRIBUTE TO FILL WIlli
F4DC
4423 RIO:
~
F4ac £88800 4424
CALL
0'.
I CLEAR THAT ROW
F40F 81fF801F
4425
SUB OI.2000H-BO I POINT TO NEXT LINE
F4E3 fEce
4426 DEC
BL
; NUMBER OF LINES TO FILL
f4E5 75F5 4427
JHZ 010 I CLEAR_lOOP
F4E7 E9D8Ft 4428
JHP VIDEO_RETURN ; EVERYTHING DONE
F4EA
4429 FBI:
; BlAUKJIElD
F4EA 8ADE 4430
HOV
BL.DH
I SET BLANK COUNT TO
F4EC EBEC
4431
4432
JHP
O.
,
EVERYTHING IN FIELD
;
CLEAR THE FIELD
4433
GRAPHICS_UP
ENOP
4434
; ------- ----- ------ --- -- ----------- ------- - -----------------._---
4435
I SCROll DOWN
4436
,
THIS ROUTINE SCROLLS Dos.ei THE INFORMATION ON THE CRT
4437
I ENTRY
4438
CH.eL ;: UPPER LEFT CORNER OF REGIOH TO SCROLL
4439
DH ,OL = LOWER RIGHT CORNER OF REGION TO SCROll
4440
BOTH OF THE ABOVE ARE IN CHARACTER POSITIONS
4441
BH = FILL VALUE FOR BLANKED LINES
4442
At = • LINES TO SCROLL (Al=O MEANS BLAHI< THE ENTIRE
4443
fIELD I
4444
OS = DATA SEGMENT
4445
ES = REGEN SEGMENT
4446
J EXIT
4447
NOTHING. THE SCREEN IS SCROllED
4448
;----------------------------------------------------------------
F~EE 4~49
GRAPHICS.DOWN P.OC NEAR
F4EE FD
4450
STD ; SET DIRECTION
F4EF
8A.D8
4451
HOY BL.AL ; SAVE LINE COUNT IN BL
F4Fl 8BC2
4452
HOV AX.OX
I
GET LOWER RIGHT POSITION INTO AX REG
r""\
4453
4454
1----- USE CHARACTER SUBROUTINE FOR POSITIONING
4455
t----- ADDRESS RETURNED IS MULTIPLIED BY 2 FROM CORRECT VAlUE
4~56
F4F3 E80F02
4457
CALL
GRAPH.POSN
F4F6 8BF8 4458
HOV DI,AX
I SAVE RESULT AS DESTINATION ADDRESS
4459
4460
J----- DETERMINE SIZE OF WINDOW
4461
F4F8 2801 4462
SUB DX,cX
F4FA 81C20101
4463
ADD
oX.IOIH I ADJUST VALUES
F4FE 00E6
it464
SAl
oH,1
1 I'tJLTIPL Y • ROWS BY 4
4465
,
SINCE 8 VERT DOTs/cHAR
F500 00E6
4466
SAL DH'}
,
AND EVEN/OOo ROWS
4467
4468
J----- DETERMINE CRT MODE
4469
F502 803E490006
F507 7305
4470
4471
CHP
JHC
CRT.HOOE .6
."
I TEST FOR MEDIUM RES
I FIND.SOURCE.DOWN
4472:
4473
;----- HEDIUtt RES DOWN
447~
F509 DOE2
4475
SAL
OLd
I • COLUMNS * 2, SINCE
4476
,
2 SYTES/CHAR {OFFSET OK)
F50B
o1E7
4477
SAL
01,1
I OFFSET *2 SINCE 2 BYTES/CHAR
FSOD 47
4478
INC
01
; POINT TO LAST BYTE
4479
4480
1----- DETERMINE THE SOURCE ADDRESS IN THE BUFFER
4481
F50E
4482
RI:?::
I FItm.SOURCE.DOWN
F50E 06
4483
PUSH
ES
; BOTH SEGMENTS TO REGEN
~
F50F IF
4484
POP
OS
F510 2AEO
4485
SUB
CH,CH
I
ZERO TO HIGH OF COUNT REG
F512 81C7FOOO
4486
ADO
01,240
I POINT TO LAST ROW OF PIXELS
F516 DOn
4487
SAL BL,I
; I'tJLTlPLY HUI1BER OF LINES BY 4
F518
00E3
FSIA 742E
4488
4489
SAL
JZ
Blol
.,.
i IF ZERO, Tl-tEN BLAHI< ENTIRE FIELD
F5IC 8ACl
4490
HOV
AL,Bl
; GET HUJ1BER OF LINES IN AL
F51E B450
4491
I10V AH.80
I 80 BYTES/ROW
F520 F6E4
4492:
lOll
AH
I DETERMINE OFFSET TO sotmCE
System BIOS 5-91