IBM RT Series Hardware Reference Manual page 273

1571 50 3907 C
PUSH AX
1572 52 3908
C PUSH
DX
1573 8B Cl
3909 C
MOV AX,CX
1575
F7 26 0485 R 3910 C
MUL POINTS
; BYTES PER CHAR
1579
BB C8 3911
C MOV CX,AX
; SET THE COUNT
157B 5A
3912 C POP
DX
157C 58
3913 C
POP AX
3914
C ASSUME DS:NOTHING
157D IF 3915
C POP DS
3916 C
157E 52 3917 C
PUSH DX
157F 8B C5 3918
C HOV AX,BP
1581 B6 03 3919 C
mov dh,3
1583 B2 CE 3920 C
MOV DL, GRAPH_ADDR
; GRAPHICS
1585 E8 OD18 R
3921 C CALL
OUT DX
1588 B2 C4
3922
C MOV DL,SEQ_ADDR SEQUENCER
158A
B8 020F 3923 C
MOV AX,020FH
ENABLE ALL MAPS
158D E8 0018 R 3924
C CALL OUT_OX
1590 5A
3925 C POP
DX
1591
E8 1200 R 3926 C
CALL CRANK
SCROLL THE SCREEN
3927
C
1594 52 3928
C PUSH OX
1595 40
3929 C DEC
BP
1596
8B C5 3930 C
MOV AX,BP
1598 B6 03 3931 C
mov dh,3
159A B2 CE 3932
C MOV
OL, GRAPH_ADDR
159C E8 OD18 R 3933 C
CALL OUT_DX
159F 5A 3?34
C POP OX
15AO 3935
C ARlO:
15AO
E8 1350 R 3936 C
CALL BLNK 3
15A3 E9 219B R 3937
C JMP V_RET
15A6
3938 C AR9:
15A6 8A DE
3939 C
MOV BL,OH
BLANK ENT I RE WI NOOW
15A8 EB F6 3940
C JMP ARlO
15AA
3941 C GRAPH I CS_UP_2
ENOP
3942 C
3943 C
;----- SCROLL ACTIVE DISPLAY PAGE DOWN
3944
C
15AA
3945 C SC_3:
15AA E9 143F R 3946
C JMP SCROLL_DOWN
3947 C
15AO
3948 C AH7:
3949
C ASSUME OS:ABSO
15AO E8 12CE R 3950
C CALL FLTA
15BO
8A 26 0449 R 3951 C MOV
AH, CRT _MODE
15B4 80 FC 03 3952 C
CMP AH,03H
; OLD COLOR ALPHA
15B7 76 Fl 3953
C JBE SC 3
15B9 80 FC 07
3954 C CMP
AH~07H ; MONOCHROME ALPHA
15BC 74 EC 3955 C
JE SC_3
3956
C
15BE 80 FC 00 3957
C CMP
AH,OOH ; NEW GRAPH I CS MODES
15C1 73 DC
3958 C
JAE GRAPH I CS_DN_2
15C3 80 FC 06 3959
C CMP AH,06H
; OLD GRAPH I CS MODES
15C6 77 04
3960 C
JA M_O
15C8 B4 07 3961
C MOV AH,07H
15CA CO 42
3962 C I NT 42H
15CC
3963 C M_O:
15CC E9 219B R 3964 C
JMP V_RET
3965
C
15CF
3966 C GRAPH I CS_ON_2
PROC NEAR
15CF FD 3967 C
STD
; DIRECT i ON TO DECREMENT
1500 8A 08 3968
C MOV BL,AL
; LI NE COUNT
1502 52
3969 C
PUSH OX
; SAVE LOWER RIGHT
1503 E8 151 F R 3970
C CALL GR_ST_1
3971 C
SRLOAO ES
; SET REGEN SEGMENT
1506 8E C2
3972 C+
MOV ES,OX
1508 5A 3973
C
POP OX
1509 8B C2
3974 C
MOV AX,OX
150B FE C4
3975 C
INC AH
; MOV CHAR ROW UP BY ONE
1500
53
3976
C
PUSH BX
150E 8A 3E 0462 R
3977 C
MOV BH,ACTIVE_PAGE
15E2 E8 16C3 R
3978 C
CALL GRX_PSN
; ADDRESS I N REGEN
15E5 5B
3979
C POP BX
15E6 2B 06 044A R
3980 C SUB
AX, CRT _COLS
; ONE SCAN OVERSHOOT
15EA 8B F8
3981 C
MOV OI,AX
15EC 2B Dl 3982 C
SUB DX,CX
; CALCULATE WINDOW
15EE 81 C2 0101
3983 C
ADD DX,0101H
; ADJUST COUNT
15F2 2A E4
3984 C
SUB AH,AH
15F4
8A C3 3985 C
MOV AL,BL
15F6 52 3986
C PUSH
DX
15F7 F7 26 0485 R
3987 C
MUL POI HTS
; BYTES PER CHAR
15FB
F7 26 044A R 3988 C
MUL CRT COLS
; BYTES PER ROW
15FF 8B F7 3989
C
MOV 51,51
1601 2B FO
3990 C
SUB 51 ,AX
3991
C ASSUME OS: NOTH I NG
1603
06
3992
C PUSH ES
SET OS TO
1604
,.
3993 C POP
DS
THE REGEN SEGMENT
1605 5A
3994 C
POP DX
1606
OA DB 3995 C
OR BL, BL
SCROLL COUNT
1608 74 40 3996
C JZ
DXR9
BLANK ENTIRE WINDOW
160A 6A CE
3997 C
MOV CL,OH
160C 2A CB
3998 C
SUB CL,BL
160E 2A ED 3999
C SUB CH,CH
4000 C
4001
C ASSUME OS:ABSO
1610 1E
4002 C PUSH DS
1611 E8 0001 R
4003 C
CALL DDS
1614 50
4004
C PUSH AX
1615
52
4005
C PUSH DX
1616 8B C1
4006 C
MOV AX,CX
1618
F7 26 0485 R 4007 C
MUL PO I NTS
BYTES PER CHAR
161C 8B C8 4008
C MOV
CX,AX
161E 5A
4009 C
POP DX
16,. 58
4010 C
POP AX
4011
C ASSUME
OS: NOTH I NG
1620
,.
4012 C
POP OS
4013 C
1621
52
4014 C PUSH OX
1622 8B C5
4015 C MOV
AX,BP
1624 B6 03
4016 C
mov dh,3
1626
B2 CE 4017 C
MOV
DL, GRAPH_AOOR
; GRAPHICS
1628 E8 OD18 R
4018 C CALL
OUT OX
162B B2 C4
4019 C
MOV OL,SEQ_AOOR
SEQUENCER
1620
B8 020F 4020 C
MOV AX,020FH
ENABLE ALL MAPS
163O E8 OD18 R 4021
C CALL
OUT_OX
1633 5A
4022 C
POP OX
1634 E8 12FB R
4023 C
CALL CRANK_4
SCROLL THE SCREEN
4024
C
1637
52
4025
C
PUSH OX
1638 40
4026 C
DEC BP
1639 8B C5
4027
C MOV AX,BP
163B B6 03
4028 C
mov dh,3
163D 82 CE
4029 C
MOV OL, GRAPH_AOOR
163F E8 0018 II 4030
C CALL
OUT_OX
1642 5A
4031 C
POP OX
1643
4032
C
OXR10:
IBM Enhanced Graphics Adapter 133