IBM RT Series Hardware Reference Manual page 251

01B2 f6 04
01B4 08 26 0487 R
0188 E8 0168 R
0188 E8 0158 R
018E C3
018f
018f 20 26 0487 R
01C3 E8 0168 R
01C6 E8 0148 R
01C9 C3
01CA
01CA
01CA 20 26 0487 R
01CE E8 0168 R
0101 E8 0158 R
0104 C3
0105
0105 20 26 0487 R
0109 E8 0168 R
OlOC E8 0158 R
01Df C3
OlEO
OlEO 86 03
01E2 82 C2
01E4 BO 00
OlE6 EE
01[7 f6 04
01 E9 08 26 0487 R
OlEO E8 014B R
01 fO E8 0168 R
01f3 C3
01f4
01f4 86 03
OH6 B2 C2
OH8 BO 00
OHA EE
OH8 f6 04
OHD 08 26 0487 R
0201 E8 0158 R
0204 E8 0168 R
0207
0207 C3
0208
0208
0208 53
0209 88 007f
020C 88 f8
020E 50
020f E8 022f R
0212 8B fO
0214 58
0215 50
0216 E8 0239 R
0219 58
021A 50
021 B E8 022f R
021E 3B C7
0220 58
0221 75 03
0223 EB 05 90
0226
0226 33 CO
0228 5B
0229 C3
022A
022A B8 0001
0220 58
022E C3
022f
022f
022f 52
0230 8B DO
0232 BO OE
0234 EE
0235 42
0236 EC
0237 5A
0238 C3
0239
0239
0239 50
023A 52
023B 8B 00
0230 B4 OE
023f BO 7f
0241 E8 0018 R
0244 5A
0245 58
0246 C3
0247
0247
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
C
C
C
C
C
NOT
OR
CALL
CALL
RET
AH
I NfO,AH
ENV_3
ENV_O
C PST_6:
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
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
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
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
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
PST 7:
PST::8:
PST OUT:
AND
CALL
CALL
RET
AND
CALL
CALL
RET
AND
CALL
CALL
RET
"PIout
OUT
NOT
OR
CALL
CALL
RET
may
may
wout
OUT
NOT
OR
CALL
CALL
- RET
MK_ENV ENDP
INfO,AH
ENV_3
ENV_X
INfO,AH
ENV_3
ENV_O
dh,3
d I ,
m i sc_output
.1,0
DX,AL
AH
INfO,AH
ENV X
ENV::3
dh,3
d I •
m
i
sc_output
.1,0
DX,AL
AH
INfO,AH
ENV 0
ENV::3
; -
~ ~~
S -
RO~~~
NE -
~
E S
~S -~~
E-
eR~
-
e~RD -~ N~ ERN~L
-DA
~
A -
~~s
-AND -
~
N -A -L
~;:; ~ ~ED- ---~
; WAY TESTS THE CRTC V IDEO CH I P BY WR I T I NG/READ I NG fROM CURSOR REG I STER :
; CARRY I S SET I f AN ERROR I S fOUND :
; REGISTERS BX,SI,ES,DS ARE PRESERVED.
: -
~~? ~:~ ~~: -~~::~: ~~- ~~~
-
~~~ ~~~~~:
---------------------------------------
CO PRESENCE TST PROC NEAR
- PUSH BX
MOV BX,07fH
mov d
j •
bx
PUSH AX
CALL RO CURSOR
MOV SI:-AX
POP AX
PUSH AX
CALL WR CURSOR
POP AX-
PUSH AX
CALL RD CURSOR
CMP AX:-DI
POP AX
JNZ NOT PRESENT
JMP TST::EX
NOT PRESENT:
- XOR
POP
RET
MOV
POP
RET
AX,AX
BX
AX,l
BX
CD_PRESENCE_ TST ENDP
SAVE BX
INITIAL WORD PATTERN BYTE
SAVE PORT ADDRESS
SAVE OR I G I NAL VALUE
RECOVER PORT ADDRESS
SAVE PORT ADDRESS
WR I TE CURSOR
RECOVER PORT ADDRESS
SAVE PORT ADDRESS
READ IT BACK
SAME?
EXIT I f NOT EQUAL
SET NOT PRESENT
SET PRESENT ON EX I T
RESTORE ax
·
--
--
- -- - - - -
-_
...
-_
....
-_
......
-_
......
-_
.......
-_
..
--_
..
---_
............ _
..
--
-_
..
---
-_
....
_
.....
-_
..... ...
; MODULE NAME RD_CURSOR
; READ CURSOR POS I T I ON
I
ADDRESS J (fROM CRTe J TO AX
; REGISTER AX IS MODifiED. ·
......
-_
..
-_
..............
-- --
.....
--_
...
-- ---
-_
... -- -----
--_
...
---_
...
-- -- --
-_
...........
--_
...
--
...............
--
flO CURSOR PROC NEAR
- PUSH OX
MOV DX,AX
MOV AL, C_CRSR_LOC_HGH
OUT DX,AL
INC OX
IN AL,DX
OX
ENDP
; SAVE REGS USED
RETURN WITH CURSOR POS I N AX
RESTORE REGS USED
·
......
-_
........................
-_
.....
-_
..............
-_
......
-_
.........
-_
.................................
--
-_
......
-- -- -
..
-_
............
--- ------
; MODULE NAME WR_CURSOR
; WR I TE CURSOR POS I T I ON
I
ADDRESS J (TO CRTC) WITH CONTENTS Of AX
; ALL REG I STERS PRESERVED
~R= e~RSOR
-------PRoe -NEAR----- -------------------------- ----------------:
SAVE REGS USED
PUSH
PUSH
MOV
MOV
MOV
CALL
POP
POP
RET
AX
OX
DX,AX
AH, C_CRSR_LOC_HGH
AL,07fH
OUT_OX
OX
AX
CURSOR LOCATION HIGH INDEX
TEST VALUE
RETURN WI TH CURSOR POS I N AX
RESTORE REGS USED
WR_CURSOR ENDP
POST:
I NIT I AL I ZE AND START CRT CONTROLLER (6845)
ON COLOR GRAPH I CS AND MONOCHROME CARDS
TEST V IDEO READ/WR I TE STORAGE.
IBM Enhanced Graphics Adapter 111