Table of Contents
Advertisement
5419
C
lD36
5420
C
Ul :
1036
E8 115A R
5421
C
CALL
SET_CPOS
;
SET THE CURSOR
5422
C
5423
C
;----- DETERMINE VALUE TO FILL WITH DURING SCROLL
5424
C
lD39
AO 0449 R
5425
C
MOV
AL, CRT _MODE
; GET THE CURRENT MODE
103C
3C 04
5426
C
CMP
AL,4
lD3E
72 06
5427
C
JB
U2
; READ-CURSOR
1040
2A ff
5426
C
SUB
BH,BH
;
fiLL WI TH BACKGROUND
lD42
3C 07
5429
C
CMP
AL,7
lD44
75 06
5430
C
JNE
U3
; SCROLL-UP
1046
5431
C
U2:
; READ-CURSOR
lD46
B4 08
5432
C
MOV
AH,8
lD48
CD 10
5433
C
I NT
10H
READ CHAR/ATTR
lD4A
BA fC
5434
C
MOV
BH,AH
STORE IN BH
104C
5435
C
U3:
SCROLL-UP
lD4C
B8 0601
5436
C
MOV
AX,601H
SCROLL ONE LI NE
lD4f
2B C9
5437
C
SUB
CX,CX
UPPER LEfT CORNER
lD51
BA 36 0484 R
5438
C
MOV
DH, ROWS
LOWER RIGHT ROW
lD55
BA 16 044A R
5439
C
MOV
DL, BYTE PTR CRT _COLS
LOWER RIGHT COLUMN
lD59
fE CA
5440
C
DEC
DL
lD5B
5441
C
U4:
VIDEO-CALL-RETURN
105B
CD 10
5442
C
INT
10H
SCROLL UP THE SCREEN
1050
5443
C
U5:
TTY-RETURN
1050
58
5444
C
POP
AX
RESTORE THE CHARACTER
lD5E
E9 219B R
5445
C
JMP
V_RET
RETURN TO CALLER
lD61
5446
C
U6:
SET-CURSOR-I NC
1061
fE C6
5447
C
INC
DH
NEXT ROW
lD63
5448
C
U7:
SET-CURSOR
1063
B4 02
5449
C
MOV
AH,2
1 D65
EB f4
5450
C
JMP
U4
ESTABL I SH THE NEW CURSOR
5451
C
5452
C
; ----- BACK SPACE fOUND
5453
C
lD67
5454
C
U8:
1067
OA D2
5455
C
OR
DL,DL
ALREADY AT END Of LINE
lD69
74 F8
5456
C
JZ
U7
SET CURSOR
lD6B
FE CA
5457
C
DEC
DL
NO -- JUST MOVE I T BACK
lD60
EB F4
5458
C
JMP
U7
SET_CURSOR
5459
C
5460
C
; ----- CARR I AGE RETURN FOUND
5461
C
1D6F
5462
C
U9:
106f
2A D2
5463
C
SUB
DL, DL
MOVE TO FIRST COLUMN
1071
EB FO
5464
C
JMP
U7
SET_CURSOR
5465
C
5466
C
; ----- LI NE fEED FOUND
5467
C
lD73
5468
C
Ul0:
1073
3A 36 0484 R
5469
C
CMP
DH, ROWS
BOTTOM OF SCREEN
1077
75 E8
5470
C
JNE
u6
YES, SCROLL THE SCREEN
1079
EB BB
5471
C
JMP
Ul
NO, JUST SET THE CURSOR
5472
C
5473
C
; ----- BELL FOUND
5474
C
lD7B
5475
C
Ull :
107B
B3 02
5476
C
MOV
BL,2
SET UP COUNT FOR BEEP
1070
E8 OD23 R
5477
C
CALL
BEEP
SOUND THE POD BELL
1080
EB DB
5478
C
JMP
U5
TTY_RETURN
5479
C
5480
C
5481
C
;----- CURRENT VIOEO STATE
5482
C
1082
5483
C
AHF:
5484
C
ASSUME
DS: ABSO
lD82
8A 26 044A R
5485
C
MOV
AH, BYTE PTR CRT_COlS
GET NUMBER Of COLUMNS
lD86
8A 3E 0462 R
5486
C
MOV
BH,ACTIVE_PAGE
1 DBA
AO 0487 R
5487
C
MOV
AL, INfO
lD80
24 80
5488
C
AND
AL,080H
108f
OA 06 0449 R
5489
C
OR
AL, CRT _MODE
1093
5F
5490
C
POP
01
1094
5E
5491
C
POP
SI
1095
59
5492
C
POP
CX
DI SCARD BX
1096
59
5493
C
POP
CX
1097
5A
5494
C
POP
DX
1096
1F
5495
C
POP
DS
1099
07
5496
C
POP
ES
109A
50
5497
C
POP
BP
109B
CF
5498
C
IRET
5499
C
5500
C
SUBTTL
5501
5502
109C
5503
PAL_SET PROC
NEAR
109C
50
5504
PUSH
AX
1090
E8 OD06 R
5505
CALL
WHAT_BASE
lOAO
fA
5506
CLI
lOAl
5507
VR:
5508
WIN
10Al
EC
5509
IN
AL,DX
10A2
AS 06
5510
TEST
AL,08H
VERT I CAL RETRACE
lOA4
74 FB
5511
JZ
VR
lDA6
58
5512
POP
AX
lOA7
B2 CO
5513
MOV
OL,ATTR_WRITE
lDA9
86 C4
5514
XCHG
AL,AH
5515
WOUT
10AB
EE
5516
OUT
DX,AL
lOAC
66 C4
5517
XCHG
AL,AH
5518
WOUT
1DAE
EE
5519
OUT
DX,AL
lDAF
BO 20
5520
MOV
AL,020H
5521
WOUT
lDBl
EE
5522
OUT
DX,AL
10B2
FB
5523
ST I
10B3
C3
5524
RET
lOB4
5525
PAL_SET ENDP
5526
lDB4
5527
PAL_ON
PROC
NEAR
lDB4
E8 lOBD R
5528
CALL
PAL I NIT
10B7
B2 CO
5529
MOV
Dl, ATTR_WR I TE
10B9
BO 20
5530
MOV
Al,020H
5531
WOUT
lOBB
EE
5532
OUT
DX,AL
lOBC
C3
5533
RET
10BD
5534
PAL_ON
ENDP
5535
10BD
5536
PAL_I NIT
PROG
NEAR
10BD
E8 OD08 R
5537
CALL
WHAT_BASE
5538
WIN
lOCO
EC
5539
IN
AL,DX
lDCl
C3
5540
RET
lDC2
5541
PAL I NI T
ENDP
5542
5543
; ----- SET PALETTE REG I STERS
5544
IBM Enhanced Graphics Adapter 145
Advertisement
Chapters
Table of Contents
