blob: 8f25b104197e01402056fcf94eb0278c66e89be6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" =B
; VIDEO REGISTER PORT ADDRESS EQUATES =B
;
;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" =B
seq_addr EQU 0C4H ;AN000;Sequencer Address =B
seq_data EQU 0C5H ;AN000;Sequencer Data =B
crtc_addr EQU 0D4H ;AN000;CRT Controller Address (Color) =B
crtc_addr_b EQU 0B4H ;AN000;CRT Controller Address (Mono) =B
crtc_data EQU 0D5H ;AN000;CRT Controller Data =B
graph_1_pos EQU 0CCH ;AN000;Graphics 1 Position =B
graph_2_pos EQU 0CAH ;AN000;Graphics 2 Position =B
graph_addr EQU 0CEH ;AN000;Graphics 1 & 2 Address =B
graph_data EQU 0CFH ;AN000;Graphics 1 & 2 Data =B
misc_output EQU 0C2H ;AN000;Miscellaneous Output =B
misc_read EQU 0CCH ;AN000;Miscellaneous Output Read Port Address =B
in_stat_0 EQU 0C2H ;AN000;Input Status Register 0 =B
input_status_b EQU 0BAH ;AN000;Feature Control (Mono) =B
input_status EQU 0DAH ;AN000;Feature Control (Color) =B
attr_read EQU 0C1H ;AN000;Attribute Controller Read Address =B
attr_write EQU 0C0H ;AN000;Attribute Controller Write Address =B
fctrl_read EQU 0CAH ;AN000;Feature Control Regiester Read Address =B
;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
; SEQUENCER ADDRESS REGISTER EQUATES
;
;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
s_reset EQU 00H ;AN000;Reset =B
s_clock EQU 01H ;AN000;Clocking Mode =B
s_map EQU 02H ;AN000;Map Mask =B
s_cgen EQU 03H ;AN000;Character Map Select =B
s_mem EQU 04H ;AN000;Memory Mode =B
;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
; GRAPHICS ADDRESS REGISTER EQUATES
;
;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
g_set_reset EQU 00H ;AN000;set/reset =B
g_enbl_set EQU 01H ;AN000;enable set/reset =B
g_clr_comp EQU 02H ;AN000;color compare =B
g_data_rot EQU 03H ;AN000;data rotate =B
g_read_map EQU 04H ;AN000;read map select =B
g_mode EQU 05H ;AN000;mode =B
g_misc EQU 06H ;AN000;miscellaneous =B
g_color EQU 07H ;AN000;color don't care =B
g_bit_mask EQU 08H ;AN000;bit mask =B
;---------------------------------------------------------------------+
; |
; Miscellaneous Equates |
; |
;---------------------------------------------------------------------+
LINELEN EQU 80 ;AN000; Length of a Graphics Buffer Line
COLPELS EQU 8 ;AN000; Number of pels per text column
DEFROFFU EQU 0 ;AN000; Default Pointer Icon Row Center Offset
DEFROFFD EQU 14 ;AN000; Default Pointer Icon Row Center Offset
DEFCOFFR EQU 11 ;AN000; Default Pointer Icon Column Center Offst
DEFCOFFL EQU 4 ;AN000; Default Pointer Icon Column Center Offst
ICONROWS EQU 16 ;AN000; Number of Rows in Pointer Icon
ICONCOLS EQU 16 ;AN000; Number of Columns in Pointer Icon
SHFTMSK EQU 07H ;AN000; Column Shift Count Bit Mask (Hi-Res)
M_BLACK EQU 0 ;AN000;default background color (icon)
M_WHITE EQU 15 ;AN000;default foreground color (icon)
M_DAXIS EQU 11 ;AN000;default axis mouse pointer
VSICONR EQU 28 ;AN000;# pel rows
VSICONC EQU 2*8 ;AN000;# pel columns
MVSICONR EQU 16 ;AN000;minimun pel rows in sb icon
MHSICONC EQU 3*8 ;AN000;minimum pel cols in sb icon
;;
;; Long Conditional Jump Macros
;;
lja macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jna Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljae macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jnae Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljb macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jnb Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljc macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jnc Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljbe macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jnbe Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
lje macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jne Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljz macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jnz Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljg macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jng Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljge macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jnge Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljl macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jnl Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljle macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jnle Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljnc macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jc Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljne macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
je Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljnz macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jz Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljno macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jo Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
ljo macro Farlabel ;;AN000;
local Nearlabel ;;AN000;
jno Nearlabel ;;AN000;
jmp Farlabel ;;AN000;
Nearlabel: ;;AN000;
endm ;;AN000;
|
