IBM 5170 Technical Reference page 274

0222
SCROll_UP
PROC NEAR
0222 E8 0303 R
0225 80 fC 04
0228 72 08
022A 80 fC 07
0220
74 03
022f E9 0405 R
0232
0232
53
0233 8B Cl
0235 E8 026f R
0238 74 31
023A 03 fO
023C
8A E6
023E 2A E3
0240
0240
E8 02B6 R
0243 03 f5
0245 03 fD
0247 fE CC
0249 75 f5
024B
024B
5.
024C BO 20
024E
024E E8 02Bf R
0251 03 fO
0253 fE CB
0255 75 f7
0257
0257 E8 0000 E
025A 80 3E 0049 R 07
025f 74 07
0261 AD 0065 R
0264 BA 0308
0267
EE
0268
0268 E9 0144 R
026B
026B 8A DE
0260
EB DC
026f
026f
026f 80 3E 0049 R 02
0274 72 19
0276 80 3E 0049 R 03
027B 77 12
0270
52
027E BA 03DA
0281 50
0282
0282
EC
0283
A8 08
0285 74 fB
0287 BO 25
0289
BA 0308
028C
EE
0280
5.
028E
5A
028f
E8 02'1 R
0292 03 06 004E R
0296 8B f8
0298 8B fO
029A
2B 01
029C fE C6
029E fE C2
02AO 32 ED
02A2 88 2E 004A R
02A6 03 ED
02A8 8A C3
02M
f6 26 004A R
02AE 03 CO
02BO
06
02B1 1F
02B2 80 fB 00
02B5 C3
02B6
02B6
02B6
8A CA
02B8 56
02B9 57
02BA f3/ A5
02BC
5F
02BO
5E
02BE
C3
02Bf
02Bf
02Bf 8A CA
02C1
57
02C2 f3/ AB
02C4
5F
02C5 C3
02C6
02C6
02C6 FD
02C7 E8 0303 R
02CA 80 FC 04
02CD 72 08
CAll
TEST_l I NE_COUNT ;
CMP AH,4 TEST fOR GRAPH I CS MODE
JC Nl HANDLE SEPARATELY
CMP
AH,7 TEST fOR BW CARD
JE
Nl
JMP GRAPHICS_UP
N1 :
UP_CONT
j
NUE
PUSH
BX SAVE f i l l ATTR I BUTE IN BH
MOV AX,CX UPPER lEfT POSITION
CAll SCROll_POS ITt ON DO SETUP fOR SCROll
JZ
N7
BLANKJI ElO
ADO SI,AX fROM ADDRESS
MOV AH,DH
H
ROWS I N BLOCK
SUB
AH,Bl
II
ROWS TO BE MOVED
N2: ROW_lOOP
CAll
Nl0 MOVE ONE ROW
AOD SI,BP
AOO DI,BP PO I NT TO NEXT LI NE I N BLOCK
DEC
AH
COUNT Of liNES TO MOVE
JNZ N2
ROW_lOOP
N3:
CLEAR_ENTRY
POP AX RECOVER ATTR I BUTE IN AH
MOV Al, ' f i l l WITH BLANKS
N4: CLEAR_lOOP
CAll
N11
CLEAR THE ROW
ADD DI,BP POINT TO NEXT liNE
OEC BL
COUNTER Of liNES TO SCROll
JNZ N4
CLEAR lOOP
N5: SCROLL_END
CAll
DDS
CMP CRT_MODE,7 IS TH I S THE BLACK AND WH I TE CARD
JE
N6
I f SO, SK I P THE MODE RESET
MOV Al,CRT_MODE_SET
GET THE VALUE Of THE MODE SET
MOV
DX,03D8H ALWAYS SET COLOR CARD PORT
OUT
DX,Al
N6: VIDEO_RET_HERE
JMP V IDEO_RETURN
N7: BLANK_f I ElD
MOV Bl,DH
GET ROW COUNT
JMP
N3
GO CLEAR THAT AREA
SCROll_UP ENOP
; ----- HANDLE COMMON SCROll SET UP HERE
SCROll_POS I T I ON PROC NEAR
CMP CRT_MODE,2 TEST fOR SPEC tAL CASE HERE
JB
N9
HAVE TO HANDLE 80X25 SEPARATELY
CMP CRT_MODE,3
JA
N9
; ------ 80X25 COLOR CARD SCROll
PUSH
OX
MOV DX,3DAH
GUARANTEED TO BE COLOR CARD HERE
PUSH
AX
N8: WA I T_DI SP_ENABLE
IN Al,DX GET PORT
TEST Al,8
WA I T fOR VERT I CAL RETRACE
JZ N6
WAIT_DI SP_ENABLE
MOV Al,25H
MOV
DX,03D8H
OUT DX,Al
TURN Off V
J
DEO
POP AX OUR I NG VERT I CAL RETRACE
POP OX
N9:
CAll POSITION CONVERT TO REGEN PO INTER
ADD
AX, CRT_START OffSET Of ACTIVE PAGE
MOV
DI,AX
TO ADDRESS fOR SCROll
MOV SI,AX
fROM ADDRESS fOR SCROll
SU6 DX,CX
OX
=
#ROWS, NCOlS
I
N BLOCK
INC DH
INC DL
I NCREMENT fOR 0 OR I GIN
XOR CH,CH SET HIGH BYTE Of COUNT TO ZERO
MOV BP, CRT_COlS
GET NUMBER Of COLUMNS IN DISPLAY
ADD
BP,BP TIMES 2 fOR ATTRIBUTE BYTE
MOV Al,Bl ; GET liNE COUNT
MUL
BYTE PTR CRT_COlS DETERMINE OffSET TO fROM ADDRESS
ADD
AX,AX *2 fOR' ATTR
r
BUTE BYTE
PUSH ES
ESTABLISH ADDRESSING TO REGEN BUffER
POP OS
fOR BOTH PO INTERS
CMP Bl,O
o
SCROll MEANS BLANK fiELD
RET
RETURN WITH fLAGS SET
SCROll_POS I T I ON ENOP
; ------ MOVE_ROW
Nl0 PROC NEAR
MOV Cl,Dl
GET
/I
Of COlS TO MOVE
PUSH
SI
PUSH
01
SAVE START ADDRESS
REP MOVSW
MOVE THAT LI NE ON SCREEN
POP 01
POP SI
RECOVER ADDRESSES
RET
N10
ENDP
; ------ CLEAR_ROW
N11 PROC NEAR
MOV
Cl,Dl GET
N
COLUMNS TO CLEAR
PUSH 01
REP STOSW
STORE THE f i l l CHARACTER
P·OP
01
RET
N11 ENDP
;
---
---
---
----------------
---
------­
SCROll_DOWN
THIS ROUTINE MOVES THE CHARACTERS WITHIN A DEfiNED
BLOCK DOWN ON THE SCREEN, filLING THE TOP liNES
WITH A DEfiNED CHARACTER
INPUT
(AH)
=
CURRENT CRT MODE
(Al)
=
NUMBER OF liNES TO SCROll
(CX)
=
UPPER lEFT CORNER OF REGION
(OX)
=
lOWER RIGHT CORNER OF REG I ON
( BH) = Fill CHARACTER
(OS)
=
DATA SEGMENT
( ES) ::: REGEN SEGMENT
OUPUT
; NONE -- SCREEN I S SCROllED
~CR;;LL:O;;WN-----PR;;C----NE~R----------
STD
TEST_L1NCCOUNT
~
DIRECTION FOR SCROll DOWN
CAll
CMP AH,4 ; TEST FOR GRAPHICS
JC N12
~
~
~
5-132 Video