IBM RT Series Hardware Reference Manual page 288

1 F35 75 05
lF37 B4 14
1 F39 E8 0018 R
H3C
lF3C FE C8
H3E B4 09
1 F40 E8 0018 R
lF43 FE C8
1 FII5 8A E8
1 FII7 8A C8
lF49 FE Cl
lF4B B4 01
lF40 CD 10
1 F4 F 8A 1
E
0449 R
1 F53 B8 015E
lf56 80 FB 03
1 F59 77 08
1 F5B E8 OE9C R
1 F5E 72 03
1 F60 B8 00C8
H63
lF63 99
1 F64 F7 36 0485 R
lF68 48
1 F69 A2 0484 R
1 F6C FE CO
lF6E 2A E4
1 F70 F7 26 0485 R
1 F74 48
1 F75 8B 16 0463 R
IF79 B4 12
1 F7B E8 0018 R
H7E AO 0484 R
1 F81 FE CO
1 F83 F6 26 044A R
1 F87 01 EO
H89 05 0.100
1 F8e A3 044C R
1 F8F E8 OE98 R
lF92 E9 219B R
H95
H95 3C 10
H97 73 17
lF99 3C 03
H9B 73 17
H9D E8 1 EAB R
1 FAO E8 OOAE R
HA3 E8 OE98 R
1 FA6 E8 0001 R
1 FA9 88 OE 0460 R
lFAD B4o.l
1 FAF CD 10
lFBl E9 219B R
HB4
HB4 75 17
1 f86 B6
O~
HB8 B2 C4
1 FBA B8 0001
1 FBO E8 0018 R
1 FCO B4 03
H\:2 8A 03
He4 E8 0018 R
1 fC7 s8 0003
1 fCA E8 0018 R
HCO
1 FCO E9 219B R
lFOO
lFOO 30 20
1F02 73 26
1FD4 2C 19
1F06 3C 02
1FD8 17 F3
1 FDA 50
1 FOB 53
IFOC E8 1 E"!I R
HDF (8 OQAE R
1 FE2 5B
1 FE3 56
1FE4 8A EO
1 FE6 OA E4
lFE8
M P
1 FEA 74 09
1 FEC BO 0.8
lFEE 8Q FC 01
IFF1 75 02
IFF3 BO OE
1 fF5
IFF5 U. E4
lfF7 [9 lf26 R
1FFA
1FFA 3C 30
1Ffc 73 6A
1 FFE 2C 20.
2000 75 11
2002 2B 02
2004 8E DA
2006 FA
5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814
5815
5816
5811
5818
5819
5820
5821
5822
5823
5824
5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5.837
5838
5839
5840
5841
5842
5843
58g4
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
5867
5868
5&69
5870
5871
5872
5873
~874
5875
5876
5877
5878
5879
5880
5881
58B2
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
58.95
5896
5891
5898
5899
5900
5901
5902
5903
5904
5905
5906
5907
5908
5909
5910
5911
5912
5913
5914
5915
5916
5917
59 1 8
5919
5920
5921
5922
C
C
C
C
C
C
C
C
C
C
C
C
C
C
o
c.
C
C
C
C
C
C
C.
C
C
C
C.
C
C
C
C
C
C
C
C
C
C
C
C
C
o
C
C
C
C
C
C
C
C
C
C
C
C
C
C
c
e
e
C
C
C
C
h11a:
Hl1 :
jne
MOV
CALL
DEC
MOV
CALL
DEC
inc
moy
int
MOV
MOV
CMP
JA
ca"
jc
MOV
CWO
DIV
DEC
MOV
INC
SU~
MUL
DEC
HQV
MOV
CALL
MOV
INC
MUL
SHL
add
MOV
CALL
JMP
hIla
AH, C_UNDERLN_LOC
OUT_OX
AL
AH, C_MAX_SCAN_LN
OUT_OX
AL
ch,sl
cl,al
cl
ah,l
10h
BL, CRT_MODE
AX, 3500
BL,l
H11
brst det
hll -
AX,200D
POI HTS
AX
ROWS,AL.
AL
AH,AH
POINTS
AX
OX, A[lDR_6845
AH,C_ VRT_OSP _END
OUT OX
AL, RQWS
AL
BYTE PTR CRLCOLS
AX,l
ax,2~6d
CRLLEN,AX
p~-?
V_RET
; ----- LQADABLE CHi'o.RACTER GENERATOR ROUT I NES
AHll:
CMP
JAE
AL,010H
AH11_ALPHAl
; --.-- ALPHA MODE AC,T I V I TY
H~RE
CMP
JAE
CALL
ca II
CALL
as,s,ume
ca
I t
moy
moY
I
nt
JMP
AL,OlH
H1
CH GEN
se~_regs
PH 5
ds:~bsO
ddS
cx,eur·sol"_mode
ah
t
1
10h
V_RET
R14~
l;ET THE UNI)ERLI NE LOC
POINTS - 1
R09H
lIET THE CHARACTER HE I GHT
; PO I NTS -
II
au rso r s ta rt
cursor end
adjust end
set c_type bios <;~ I I
set the cursQr
, GET THE CURRENT MO[)E
; MAX SCANS ON SCREE,,!
; 640X200 ALPHA MODES
1
H~ST BE ~50
; SET FOR 200
PREPARE TO DIVIDE
MAX I\OWS ON SCREEN
ADJUST
SAVE ROWS
READJUST
CLEAR
ROWS*BYTES/CHAR
ADJUST
CRTC ADDRESS
SCANS 0 I SPLAYED
SET IT
GET CHARACTER ROWS
ADJUST
RQWS*COLUMNS
*2 FOR ALPHA MODE
space between pages
BYTES PER PAGE
VIDEO ON
RETURN TO CALLER
CHECK PARAMETER
NEXT STAGE
RANGE CHECK
NEXT STAGE
SET THE CHAR GEN
; VIDEO ON
$I;lt
the da ta s~gment
get the mode
s~t c_type
~lJlulate correct cursor
RETURN TO CALLER
G
C
e
,----- &ET THE CHARA()TER GENERATOR BLOCK SELEOT REGISTER
C H1:
C
C
C
C
C
c
C
C
C
C
C
C
C
C H2:
C
JNE
mov
MOV
mov
ca II
MOV
MOV
CALL
mQV
ca II
JMP
C
C
C
C
AH11_ALPHA1 :
C
ASSUME
CMP
JAE
H2
dh,3
DL, SEQ_ADDR
AH, S_CGEN
AL,BL
OUT~DX
OS: ABSa
AL,020H
AH11_GRAPH lOS
C
C
C
C
; --.-. ALPHA MODE ACT IV, TY HERE
C
C
C
C
C
G
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
H13:
SUB
CMP
JA
PUSH
PUSH
CALL
ca II
POP
POP
MOV
OR
MOV
JZ
MOV
CMP
JNE
MOV
SUB
JMP
AL,010H
AL,02H
H2
AX
BX
CH_GEN
$~~_regs
BX
AX
AH,AL
AH,AH
AL,BH
H13
AL,8
AH,l
H13
AL,14D
AH,AH
BRK_1
;--.-- GRAPHiCS MODE ACTIVITY HERE
AH11 ORAPHICS,
- ASSUME
CMP
JAE
SUB
JNZ
DS:ABSO
AL,030H
AHll INFORM
AL,020H
FlO
; NOT I N RANGE
; SEQUENCER
; ah=s_reset, a 1=1
; CHAR BLOCK REG I STER
I GET THE VALUE
; SET IT
; RETURN TO CALLER
; ADJUST TO 0 - N
; RANGE CHECK
i
INVALID CALL
SAVE
; LOAD THE CHAR (lEN
RESTORE
CALL I NG PARAMETER
USER MODE
DO NOT SET BYTES/CHAR
8 X 8 FONT -
I S THE CALL FOR MONOC
NO, LEAVE I T AT B
; MONQO SET
CLEAR UPPER BYTE
CaNT I NUE
C
C
C
C
;----_ COMPATIB.ILITY, UPPER HALF GRAPHICS CHARACTER !>ET
C
C+
C+
C
ASSUME
SRLOAQ
SUB
MOV
CLI
OS: ABSQ
OS,O
DX,DX
OS,DX
148 IBM Enhanced Graphics Adapter