IBM 5150 - Page 183

LaC OBJ
LINE
SOURCE
F487 DOC8
4339
ROR AL,l I LEFT JUSTIFY THE VAWE
4340
I
IN AL (FOR WRITE)
f489 02CD
4341
ADD CL.CH 1 ADD IN THE BIT OFFSET VAWE
F488 FEeF
4342
DEC
eH
J LOOP CONTROL
F480
75F8
4343
JHZ R. J ON EXIT, CL HAS SHIFT COlHT
4344
I
TO RESTORE BITS
fitSF SAn 4345
I10Y AH,BL ; GET MASK TO AH
F491 D2EC 4346 SH.
AH,CL I MOVE THE MASK TO CORRECT LOCATION
F493 58
4347
pop
ex
I RECOVER REG
F494 C3 4348
RET
I RETURN WITH EVERYTHING SET UP
4349
.3 ENDP
4 350 ~ - ---- ---- - ------ --------------------- --- -- --- -- - - - - - - - - - - - - - - - --
4351 • SCROLL UP
4352 THIS ROUTINE SCROllS UP THE INFORMATION ON THE CRT
4353 ENTRY
4354 CH,CL = UPPER LEFT CORNER OF REGION TO SCROLL
4355 DH,Dl = LOWER RIGHT CORNER OF REGION TO SCROLL
4356 BOTH OF THE ABOVE ARE IN CHARACTER POSITIONS
4357 BH = FILL VALUE FOR BLANKED LINES
4358 AL = • LINES TO SCROll (AL=O MEANS BLAt« THE ENTIRE
4359 FIElD)
4360 OS = D.l.TA SEGMENT
4361 ES = REGEN SEGMENT
4362 , EXIT
4363 NOTHING. THE SCREEN IS SCROLLED
4364
,---------- ---- -- ---- -- ---- --- --- ------- --- ----------- - -- -- ------
F495
4365 GRAPHICS_UP PROC NEAR
F495 8AD8
4.66
HOY Bl.AL I SAVE LINE CDlIfT IN BL
F497 88Cl
4367
I10V AX.CX
;
GET UPPER LEFT POSITION IHTO AX REG
4368
J----- USE 4369 CHARACTER SUBROUTINE FOR POSITIONING
4370 1----- ADDRESS RETURNED IS MULTIPLIED BY 2 FROM CORRECT VALUE
4371
F499 £86902
4372
F49C 88F8
4373
MOY OI,AX I SAVE RESULT AS DESTINATION AODRESS
4374
4375
1----- DETERMINE SIZE OF WINDOW
4376
F49£ 2801 4377
SUB DX,CX
F4.4.0 61C20101
4378
'00
OX,lOlH
I ADJUST VALUES
F4
... 4 DOE6
4379
SAL
OH,l
I MULTIPLY I ROWS BY 4
4380
J SINCE 8 VERT DOTS/CHAR
F4A6 OOE6 4381
SAL DH,l
I AND EVEN/COD ROWS
4382
4383
1----- DETERMINE CRT HOOE
4384
4_
F4"8 803E490006 4385 CMP
I TEST FOR MEDII.I'I RES
F4AD 7304
JNC
I FIt«UiOURCE
4 .. 7
4388 J----- HEDIUH RES UP
4 ...
F4AF oOE2 4390
SAL
Dl,l J • COlltlNS * 2, SINCE 2 BYTES/CHAR
F481 DIE7
4391
SAL
01.1
I OFFSET *2 SINCE 2 BYTES/CHAR
4392
4393 J----- DETERHINE THE SOURCE ADDRESS IN THE BUFFER
4.94
F483 4395 R7: I FIND_SOURCE
F483
06
4396 PUSH ES
J GET SEGMENTS BOTH POINTING TO REGEN
F484 IF
4197
pop
OS
F4SS 2AED 4398
SUB CH.CH
;
ZERO TO NIGH OF COUNT REG
F487 Don
4399
S'L
Bl,1
I MULTIPLY NUMBER OF LINES BY 4
F489 Don
4400 SAL
BL,l
F488 7420 4401 JZ
RII
I IF ZERO. THEN BLANK ENTIRE FIELD
F480 8AC3
4402 MOY
AL,Bl
I GET NUMBER OF LINES IN AL
F48F
8450
4403
I10Y AH,80
I 80 BYTESIROW
F4Cl F6E4
4404
IOJL
AH
I DETERMINE OFFSET TO SOURCE
F4C3 88F7
4405
I10Y
SI,OI
I SET UP SOURCE
F4C5 O3FO
4406
ADO SI,AX
; ADD IN OFFSET TO IT
F4C7 8AE6 4407 MOV
AH,nH I NVMEIER OF ROWS IN FIElD
F4C9 ZAB
4408 S,",
AH,BL
I DETERMINE NUMBER TO HOVE
4409
4410 1----- lOOP THROUGH, HOVING ONE ROW .l.T A TIME. BOTH EVEN AHa COD FIELDS
4411
F4C8 4412 R8:
F4CB £88000
4413
CALL R17
I I10VE ONE ROW
F4CE S1EESO!F 44 .. SUB SI, ZOOOH-80 J HOVE TO NEXT ROW
F402 81£F801F
4415
SUB
OI.2000H-80
5-90 System BIOS