IBM RT Series Hardware Reference Manual page 264

OF32
OF32 A2 0449 R
OF35 B2 B4
OF37 89 16 0463 R
OF3B EB lC 90
OF3E
OF3E 58
OF3F 50
OF40 B6 03
OF42 24 80
OF44 80 26 0487 R 7F
OF49 08 06 0487 R
OF40 58
OF4E 24 7F
o
F50 A2 0449 R
OF53 B2 04
OF55 89 16 0463 R
OF59
OF59 C7 06 044E R 0000
OF5F C6 06 0462 R 00
OF64 B9 0008
OF67 BF 0450 R
OF6A lE
OF6B 07
OF6C 2B CO
OF6E F3/ AB
o
F70 E8 0050 R
OF73 26: 8A 07
0F76 2A E4
o
F78 A3 044A R
OF7B 26: 8A 47 01
o
F7F A2 0484 R
OF82 26: 8A 47 02
OF86 2A E4
OF88 A3 0485 R
OF8B 26: 88 47 03
OF8F A3 044C R
OF92 28 DB
OF94 80 01
OF96 8A 26 0449 R
OF9A 80 FC 07
OF9D 74 OC
OF9F 80 FC 03
OFA2 77 35
OFA4 E8 OE9C R
OFA7 72 02
OFA9 BO 02
OFAB
OF AB E8 1 EAB R
OFAE E8 0001 R
OFBl 8A 26 0449 R
OFB5 80 FC 07
OFB8 74 03
OFBA EB 10 90
OFBD
o
F8D 80 0000 E
OFCO BB OEOO
OFC3
OFC3 OE
OFC4 07
OFC5 26: 88 56 00
OFC9 OB 02
OFCB 74 OC
OFCO B9 0001
OFDO 45
OFDl E8 1 EF3 R
OFD4 83 C5 OE
OFD7 EB EA
OFD9
OFD9 E8 ODAE R
OFDC E8 OE57 R
OFDF E8 OE98 R
OFE2 E8 0001 R
OFE5 80 3E 0449 R OF
OFEA 72 06
OFEC C7 06 OlOC R 0000 E
OFF2
OFF2 80 3E 0449 R 07
OFF7 77 09
OFF9 74 4B
OFFB 80 3E 0449 R 03
1000 76 44
1002
1002 C4 1 E 04A8 R
1006 83 C3 OC
1009 26: C4 1F
100C 8C CO
100E OB C3
1010 74 32
1012 BE 0007
1015
10 15 26: 8A 00
1018 3C FF
lOlA 74 7A
101C 3A 06 0449 R
1020 74 03
1022 46
1023 EB FO
1025
1025 FA
1026 26: 8A 07
1029 FE C8
102B A2 0484 R
102E 26: 8B 47 01
1032 A3 0485 R
1035 26: 8B 47 03
1039 A3 010C R
103C 26: 8B 47 05
1040 A3 OlOE R
1043 FB
1044
1044 EB 50
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
MOV CRT_MODE, AL
MOV DL, CRTC_ADDR_B
MOV ADDR_6845, OX
JMP QQl
; ----- COLOR SETUP TO THE ADAPTER
QQl :
ENTRY 2;
POP AX
PUSH AX
mav dh,3
AND AL,080H
AND INFO,07FH
OR INFO,AL
POP AX
AND AL,07FH
MOV CRT_MODE, AL
MOV DL, CRTC_ADDR
MOV ADDR_6845, OX
MOV
MOV
ASSUME
MOV
MOV
PUSH
POP
SUB
REP
ca II
MOV
SUB
MOV
MOV
MOV
MOY
SUB
MOV
MOY
MOY
SUB
MOY
MOY
CMP
JE
cmp
ja
ca II
jc
MOY
CRT_START, 0
ACT I VE_PAGE, 0
ES: NOTHI NG
CX,8
01, OFfSET CURSOR_POSN
OS
ES
AX, AX
STOSW
Al,ES:[bxl
AH,AH
CRT _ COLS,
AX
AL,ES:[bx)[l
I
ROWS,AL
AL, ES; [bx)[ 2
I
AH,AH
POINTS,AX
AX,ES;[bx)[31
CRT_LEN,AX
BX,BX
AL,l
AH , CRT_MODE
AH,7
ENTRY 2
ah,03h
entry_'
brst det
entrY_2
AL,2
- CALL
CH GEN
FDG_I T:
FDG;
ENTRY_l :
CALL
MOV
CMP
JE
JMP
DDS
AH,CRT_MODE
AH,7
FOG
IT
ENTRY_l
MOY BP,OFFSET CGMNJDG
MOV BX,OEOOH
PUSH
POP
MOY
OR
JZ
MOY
INC
CALL
ADD
JMP
ca
11
CALL
CALL
ASSUME
CALL
cmp
jb
MOY
cmp
ja
je
cmp
jbe
CS
ES
OX, ES; [BPI
DX,DX
ENTRY_l
CX,l
BP
DO_MAP2
BP,014D
FOG
set_regs
BLANK
PH_5
DS:ABSO
DDS
crt_mode,Ofh
ms 1
word ptr GRX_SET , OFfSET CGMN
crt_mode, 7
save_9 rph
save_a I ph
crt_mode, 3
save_a I ph
save_9 rph:
les
add
les
bx,save_ptr
bx,Och
bX,dword ptr es:[bxl
ax,es
S9- 1 ;
j4j:
or ax,bx
~~v j4j
si ,07h
mov a
I ,
e s: [ bx )[ s i
I
cmp a I,Offh
je ahO done
cmp a I , crt_mode
je S9_2
inc s i
jmp s9-1
eli
may al,byte ptr es:[bx]
dec a I
rO'w'S,a I
sti
aX,word ptr es: [bxl [1
I
po ints, ax
aX,word ptr es;[bx)[31
'Word ptr grx_set,ax
aX,word ptr es;[bx)[51
'Word pt r 9 rx_set + 2, ax
jrnp short ahO_done
124 IBM Enhanced Graphics Adapter
SAVE MODE VALUE
IT IS (2/3 )-B-X
SAVE CRTC ADDRESS
CONTI NUE THE MODE SET
RECOVER PARAMETER VALUE
SAVE IT
I SOLATE REGEN CLEAR BIT
PREPARE I NfO BYTE
SET IT, OR NOT
RECOVER TRUE MODE CALL
DONE WITH 07
SAVE TH I S MODE
(2/3 )-D-X
SAVE CRTC ADDRESS
SAVE START ADDRESS
RESET PAGE VALUE TO ZERO
8 PAGES OF CURSOR VALUES
OFFSET
ESTABLI SH
ADDRESSING
o
THOSE CURSOR LOCATIONS
CLEAR OUT SAVED VALUES
GET COLUMN COUNT
ZERO HIGH BYTE
STORE COLUMN VALUE
GET ROW VALUE
STORE ROW VALUE
GET THE BYTES/CHAR
ZERO HIGH BYTE
STORE BYTES/CHAR
GET PAGE SIZE
STORE PAGE LENGTH
ZERO
MONOCHROME ALPHA CHAR GEN
GET CURRENT MODE
I SIT MONOCHROME
9X14 FONT
; COLOR ALPHA CHAR GEN
; LOAD AL PHA CHAR GEN
GET CURRENT MODE
I SIT MONOCHROME
9Xl~ FONT
TABLE POINTER
14 BYTES PER CHAR
GET THE ROM SEGMENT
INTO ES
GET THE CHAR HEX CODE
ZERO = NO MORE CHARS
NO MORE
DO ONE CHAR AT A TIME
MOVE TO FIRST CODE PO I NT
STORE THE CODE PO I NT
ADJUST BP TO NEXT CODE
DO ANOTHER
; CLEAR OUT THE BUFFER