IBM RT Series Hardware Reference Manual page 250

00E2 8A 08
757 C MOV BL,AL
00E4
B2 BA 758 C
MOV OL,OBAH
00E6 80 02 759
C MOV AL,2
760 C WOUT
00E8
EE 761 C+ OUT DX,AL
00E9 82 OA 762 C
MOV DL,OOAH
763
C WOUT
00E8 EE 764
C+ OUT DX,AL
OOEC 82 C2
765 C MOV OL, I N_STAT_O
766 C
WIN
READ FEATURE 81TS
OOEE EC 767
C+ IN AL,OX
OOH 24 60
768 C AND AL,060H
OOFl DO EO 769
C SHL AL,l
00F3 OA C3
770 C OR AL,BL
00F5
C3 771 C RET
00F6
772 C F_8TS ENOP
773 C
774 C
;----- ESTA8L1SH THE VIDEO ENVIRONMENT, KEYED OFF OF THE SW ITCHES
775 C
00F6 776
C MK_ENV PROC NEAR
777 C
ASSUME OS:ABSO
00F6 2A FF 778
C SU8 8H,8H
00F8 80 E3 OF 779
C AND 8L,OFH
00F8 01 E3
780 C SAL 8X,1
OOFD 52
781 C
PUSH OX
OOFE B6 03 782
C
mov
dh,3
0100 8A E6 783
C MOV AH,DH
0102 5A 784 C
POP
OX
0103 80 E4 01 785
C AND AH,l
0106 FE C4 786
C INC AH
0108
F6 04 787 C NOT AH
010A 2E: FF A7 012B R 788 C
JMP WORD PTR CS: [BX + OFFSET T5
J
789
C
010F
790 C save_tb I labe I
dW'ord
010F 071A R 791 C
d""
offset
v
I deD_p8 rms parms
0111 COOO 792
C
d""
OcOOOh parms
0113 0000
793 C
d""
0
pa I save a rea
0115 0000
794 C
d""
0
pa I save a rea
0117 0000 795
C
d""
0
a I pha tab les
0119 0000 796
C
d""
0
a
I pha tab les
011B
0000
797 C
d""
0
graphics tables
0110 0000 798
C
d""
0
graphics tables
799 C
011F
0000
800 C
d""
0121 0000 801
C
d""
0123 0000
802 C
d""
0125 0000
803 C
d""
0127 0000 804
C dw
0129 0000 805
C dw
806 C
012B 807 C T5
LABEL WORO
012B 0176 R 808
C
ow
OFFSET PST 0
0120 0181 R 809 C
ow
OFFSET PST-l
012F 0181 R 810 C
ow
OFFSET PST-2
0131 018C R
811 C OW
OFFSET PST-3
0133 0197 R
812 C OW
OFFSET PST-4
0135
01A8 R 813
C
ow
OFFSET PST::5
0137 01BF R
814 C OW OFFSET PST 6
0\39
01CA R 815
c ow
OFFSET PST::7
816
C
013B 01CA R
817 C
ow
OFFSET PST 8
0130 0105 R
818 C
ow
OFFSET PST::9
013F OlEO R 819 C
ow
OFFSET PST_A
0141 01 F4 R
820 C OW OFFSET pst B
0143 0207 R
821 C OW
OFFSET PST-OUT
0145 0207 R 822 C
ow
OFFSET PST-OUT
0147 0207 R
823 C OW OFFSET PST-OUT
0149
0207 R 824 C OW OFFSET PST::OUT
825 C
014B
826 C ENV_X PROC NEAR
SET 40X25 COLOR ALPHA
014B
80 26 0410 R C F 827 C and
equip_low,Ocfh
0150 80 OE 0410 R 10 828 C
or
equip_lo .... ,010h
0155 B8 0001 829
C MOV AX,lH
0158
co
10 830
C INT 10H
015A
C3 831 C
RET
015B 832 C ENV_X
ENOP
833
C
015B
834 C ENV_O PROC NEAR
SET 80X25 COLOR ALPHA
015B 80 26 0410 R C F 835 C
and equ i p_low, Ocfh
0160 80 OE 0410 R 20 836 C
or equip_low,020h
0165 88 0003
837 C MOV AX,03H
0168 CO 10 838 C
INT 10H
016A C3 839
C RET
016B
840 C ENV_O ENOP
841 C
016B 842
C ENV_3 PROC NEAR
SET MONOCHROME ALPHA
016B 80 OE 0410 R 30
843 C
or
equip_lo ..... ,030h
0170
B8 0007 844 C
MOV AX,07H
0173 CO 10 845
C INT 10H
0175 C3
846 C RET
0176
847 C ENV_3 ENOP
848 C
849 C
0176 850
C PST_O:
0176 20 26 0487 R
851 C
AND INFO,AH
017A E8 0148 R 852
C CALL ENV X
0170 E8 0168 R 853
C CALL ENV::3
0180 C3
854 C
RET
0181 855
C PST 1:
0181 856
C PST::2:
0181 20 26 0487 R
857 C ANO INFO,AH
0185 E8 0158 R 858 C
CALL ENV 0
0188 E8 0168 R 859
C CALL ENV::3
0188 C3 860
C RET
018C
861 C PST_3:
018C 20 26 0487 R 862 C
AND INFO,AH
0190 E8 0158 R 863
C CALL ENV 0
0193 E8 0168 R
864 C CALL ENV::3
0196 C3 865
C RET
0197 866
C PST_4:
0197 B6 03
867 C
dh,3
0199
B2 C2 868 C
d I, m i sc_output
0198 BO 00 869
C a I ,0
870 C
wout
0190
EE 871 C+
OUT OX,AL
019E F6 04 872 C
NOT AH
01AO 08 26 0487 R 873
C OR INFO,AH
01A4
E8 0166 R 874 C CALL ENV 3
01A7 E8 0146 R 875 C
CALL ENV::X
01AA C3 876
C RET
01A6
877 C PST_5:
01A6 B6 03 878 C
dh,3
01AD 62 C2
879 C d I.
m
i
sc_output
OlAF
60 00 880 C
mov a
1,0
881 C
..... out
0161 EE 882
C+ OUT DX,AL
110 IBM Enhanced Graphics Adapter