IBM 5150 - Page 244

LOC OBJ
LINE SOURCE
F2Al n08
F2A3 80FC07
f2Ab 7403
FlAB E9F301
flAB
fZAB 53
f2AC saCl
FUE E83900
F2Bl 7433
F2:83 03FO
F2:85
8AE6
F287 2:AE3
F2.89
F289 E87500
FZBC 03F5
FZBE 03FO
F2:CO FEee
F2C2 7SFS
F2:C4
F2C4 58
F2CS· B020
F2C7
F2C7 E87000
F2eA 03FO
Flee FEC8
F2CE 75F7
F200
F200 884000
F2:03 8ED8
F205 803E490007
F2DA 7407
F2DC A06500
FlOf SADeD3
F2E2 EE
FtE3
F2f3 E9EIFE
F2E6
F2E6 SADE
F2:E8 EeDA
FlEA
f2EA 803E490002
FtEF 7219
FtF 1 803E490003
F2Fb 7712
FHS 52
F2F9 SADAa]
F2FC 50
F2FD
F2FO EC
FtFE A808
F30D 74F8
F302 B025
F304 BA0803
F307 EE
noe 58
n09 5A
nOA ES7EFF
noD 03064EOO
F311 88f8
FlU 8BFO
Fl15 2801
F3l7 fEe6
F319 FEe2
F318 32EO
F310 882E4AOO
F321 03EO
F3Z3 8AC3
F325 F6264AOO
F3Z9 03eO
3684 JC
HI
; HANDLE SEPARATELY
3685
CMP AH.7
; TEST
FOR BW CARD
~8.
JE HI
3687
JMP
3688
Nl:
; UP _CotnIHUE
3689
PUSH ex j SAVE FILL ATTRIBUTE IN 8H
3690
NOV AX.CX I UPPER lEFT POSITION
3691
CAll SCROLL_POSITION i DO SETUP FOR SCROLL
3692
JZ N7 I BLANK_FIELD
3693
ADD SI,AX
;
FROM ADDRESS
3694
NOV AH,DH ; • ROWS IN BLOCK
3695
SUB AH,Bl ; # ROWS TO BE MOVED
3696
3697
CAll HID
; MOVE ONE ROW
3698
ADD SI.B?
3699
ADD
DI,B? ; POINT TO NEXT LINE IN BLOCK
3700
DEC All
;
COUNT OF LINES TO HOVE
3701
JHZ
H'
3702 H3:
; CLEAR_ENTRY
3703
pop
AX J RECOVER ATTRIBUTE IN AH
3704
NOV
AL, •
I FILL WITH BLANKS
3705
J CLEAR_lOOP
3706
CALL Nil
; CLEAR THE ROW
3707
ADD DI,B? ; POINT TO NEXT LINE
3708
DEC BL
; COUNTER OF LINES TO SCROLL
3709
JNZ H4 ; CLEAR_lOOP
3710 NS:
; SCROLL_END
3711
MOV AX,OATA
;
GET LOCATION
3712
MOV
OS,AX
3713
CNP
CRT_HODE,7 ;
IS THIS THE BLACK AND WHITE CARD
3714
JE
~16 ; IF SO, SKIP THE MODE RESET
3715
NOV
AL.CRT_tfODE_SET
~ GET THE VALUE OF THE MODE SET
3716
NOV
DX,0308H ; ALWAYS SET COLOR CARD PORT
3717
OUT DX,AL
3718
3719 JMP
3720
N7:
; BLANK_FIELD
3721 NOV BL,OH
GET ROW COUNT
3722
JMP
H'
; GO CLEAR THAT AREA
3723 ENDP
3724
3725 ; ----- HANllE COMMON SCROLL SET UP HERE
3726
3127
SCROll_POSITION PROC NEAR
3128
CM? CRT_MOOE,2 I TEST FOR SPECIAL CASE HERE
3129
J8 N9
; HAVE TO HANDLE 80X25 SEPARATELY
3730
CMP CRT_MODE, 3
3731
JA
N9
3732
3733 j ------ 80X2S COLOR CARD SCROll
3734
3735 PUSH
OX
3736
MOV
oX,30AH ; GUARANTEED TO BE COLOR CARD HERE
3737
PUSH AX
3738
i WAIT_DISP _ENABLE
3739
IN AL,oX
; GET
PORT
3740 TEST AL.S ; WAIT FOR VERTICAL RETRACE
3741
JZ H8 ; WAIT_DISP _ENABLE
3742
NOV
AL,25H
3743
MOV OX , 030SH
3744
OUT
OX.Al
;
TURN OFF VIDEO
3745 POP
AX i DURING VERTICAL RETRACE
3746
POP OX
3747 N9:
CALL
POSITION
; CONVERT TO REGEN POINTER
3748
ADD AX.CRT_START ; OFFSET OF ACTIVE PAGE
3749
HOV
OI,AX
; TO ADDRESS FOR SCROll
3750
HOV
5I,AX
; fROM ADDRESS fOR SCROLL
3751
SUB
OX,CX
;
OX =#ROWS, WCOLS IN BLOCK
3752
INC DH
3753
INC Dl J INCREMENT FOR 0 ORIGIN
3754
XOR CH,CH
J SET HIGH BYTE OF COUNT TO ZERO
3755
MOV
BP,CRT_COLS
;
GET NUMBER OF COLUMNS IN DISPLAY
3756
AOO BP,BP ; TIMES 2 FOP ATTRIBUTE BYTE
3757
MOV
AL,Bl ; GET LINE COUNT
3758
MUl BYTE PTR CRT_COLS ; DETERMINE OFFSET TO FROM
3759 ADD AX,AX ; *2 FOR ATTRIBUTE BYTE
ADDRESS
A-51