IBM 5150 - Page 177

LOC OBJ
LINE
SOURCE
3679
AX = OFFSET OF CHAR POSITION IN REGEN BUFFER
3880
; --- ------------- ---- -------- ------ -------- ------- ----- --
F285
3881
POSITION
PRDC
HEAR
F2:85 53
3882
PUSH
BX
I SAVE REGISTER
F286 8608
F288 8AC4
388'
.. 8.
HOV
HOV
BX,AX
AL,AH
, ROWS TO AL
f28A F6264"'00
3885
HUL BYTE PTR CRT_COLS I DETERMINE BYTES TO ROW
F28E 32FF
3686
XOR BH,eH
F290 03e3
3687 ADD
AX,8X
J ADO IN COlUHH VALUE
Fl92 OlEO
3886
SAL
AX.l I • 2: fOR ATTIUBUTE BYTES
f294 58
3889
POP
BX
f295 C3
3890
RET
.. 91
POSITION
ENOP
3892
1--------------------------------------------------------
"0'
; SCROLL UP
.. 94
nus ROUTINE HOVES A BLOCK OF CHARACTERS UP
3895 ON THE SCREEN
.. 96 INPlJT
"07
(AH) = CURRENT CRT HOOE
1898
(All = N1.R1BER OF ROWS TO SCROLL
3899
lex) = ROW/COLl..It1N OF UPPER LEFT CORNER
3900 (OX) = ROW/COLut1N OF LOWER RIGHT CORNER
3901 (BH) = ATTRIBUTE TO BE USED ON BLANKED LINE
3<)02
(OS) = DATA SEGMENT
3<)03
(ES) = REGEN BUFFER SEGMENT
3<)04
, OUTPUT
3<)05
NONE -- THE REGEN BUFFER IS MODIFIED
3<)06
1------------------------ - -------------------------------
3<)07
ASSUME CS:CODE.DS:OATA. ES:OATA
'296
3<)08
SCROLL_UP
PROC NEAR
FU6 8AD8
3909 HOV
BL.AL I SAVE LINE COUNT IN BL
F298 80FC04
3910
CMP
AH.4
I TEST FOR GRAPHICS MODE
F2<)B 7208 3<)11
JC
H'
; HANDLE SEPARATELY
F2<)o 80FC07
3912 CHP
AH.7 I TEST FOR BW CARD
FUO 7403
3913 JE
H'
F2A2 E9FOOl
3914 JHP GRAPHICS_UP
F2A5
3915
Nl:
1 UP _CONTItnJE
F2A5
53
3916
PUSH
BX I SAVE FILL ATTRIBUTE IN eH
F2A6 8BCI
3917 HOV AX.CX j UPPER LEFT POSITION
F2A8 E83700
3918
CALL
SCROLL_POSITION
• DO SETUP FOR SCROLL
F2AB 7431
3919 JZ H7 J BLANKJIELD
F2Ao 03FO
3920
ADD SI.AX
I fROM ADDRESS
F2AF 8AE6
3921
HDV AH,DH I • ROWS IN BLOCK
F2Bl 2AE3
3922
SUB AH,BL J • ROWS TO BE HOVEo
FZB3
3923 N2: I ROW_LOOP
FZB3 E87200
3924 CALL
HIO
I HOVE ONE ROW
F2B6 03F5
3<)25
AOD
SI,BP
nB8 03FD 3926 AOD OI.BP I POINT TO NEXT LINE IN BLOCK
F2BA FECC
3<)27
DEC
AH
I COUNT OF LINES TO HOVE
F2BC 75F5
3928
JNZ
H2 ; ROW_LOOP
F2BE
392<) N3:
J CLEAR_ENTRY
F2BE
58 3930
POP
AX
I RECOVER ATTRIBUTE IN AH
F2BF B020
3931
MOV
AL, ,
I
FILL WITH BLANKS
FlCI
3<)32 ....
I CLEAR_LOOP
FZCI E86000 3933
CALL
Hl1
I CLEAR THE ROW
F2C4 03FO
3934
ADD DI,8P
I POINT TO NEXT LINE
F2C6
FECB 3935
DEC
BL
I COUNTER OF LINES TO SCROLL
FlC8 75F7 3936
JHZ
...
I CLEAR_LOOP
F2eA
3937
NS. ; SCROLL_END
HCA E8710C 3938
CALL
OOS
FlCD 803E490007
3939 CHP CRT_HODE.7
I
IS THIS THE BLACK AND WHITE CARD
F202 7407 3940 JE
H.
I IF SO. SKIP THE HOOE RESET
Fl04 A06500 3941 HOV
"L.CRT_HOOE_SET
i
GET THE VALUE OF THE HOOE SET
FlD7 BA0803 3942 MIIV OX,0308H
I
ALWAYS SET COLOR CARD PORT
FZoA EE
3<)43
OUT OX.AL
F20B
3944
.... I VIDEO_RET_HERE
FlDB E9E7FE 3945 JHP YIOEO_RETUiN
FlOE 3946
N7:
; BLANKJIELD
F2:DE 8ADE
'947
HOV
BL,DH 1 GET ROW CDlR'lT
F2EO EBDC 3948
JHP
H'
I GO CLEAR THAT AREA
3<)49
SCROLL_UP ENOP
3950
3951
;----- HAMJlE COtt1DH SCROLL SET UP HERE
3952
F2E2
3953 SCROLL_POSITION PROC NEAR
F2E2 803E4<)0002 3954
CHP CRT_HOOE.2
I TEST
FOR SPECIAL CASE HERE
F2E7 7218
3955
JB
HO
I HAYE TO HANDLE 80X,S SEPARATELY
5-84 System BIOS