blob: c49b8eb60828b590ec235910c1cda394b7514bf3 (
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
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" =B
; CONDITIONAL ASSEMBLY CONTROLS
;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" =B
WINTHORN EQU 1 ;OS/2 compatible
;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" =B
; VIDEO REGISTER PORT ADDRESS EQUATES =B
; =B
;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" =B
seq_addr EQU 0C4H ;Sequencer Address =B
seq_data EQU 0C5H ;Sequencer Data =B
crtc_addr EQU 0D4H ;CRT Controller Address (Color) =B
crtc_addr_b EQU 0B4H ;CRT Controller Address (Mono) =B
crtc_data EQU 0D5H ;CRT Controller Data =B
graph_1_pos EQU 0CCH ;Graphics 1 Position =B
graph_2_pos EQU 0CAH ;Graphics 2 Position =B
graph_addr EQU 0CEH ;Graphics 1 & 2 Address =B
graph_data EQU 0CFH ;Graphics 1 & 2 Data =B
misc_output EQU 0C2H ;Miscellaneous Output =B
misc_read EQU 0CCH ;Miscellaneous Output Read Port Address =B
in_stat_0 EQU 0C2H ;Input Status Register 0 =B
input_status_b EQU 0BAH ;Feature Control (Mono) =B
input_status EQU 0DAH ;Feature Control (Color) =B
attr_read EQU 0C1H ;Attribute Controller Read Address =B
attr_write EQU 0C0H ;Attribute Controller Write Address =B
fctrl_read EQU 0CAH ;Feature Control Regiester Read Address =B
;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
; SEQUENCER ADDRESS REGISTER EQUATES
;
;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
s_reset EQU 00H ;Reset =B
s_clock EQU 01H ;Clocking Mode =B
s_map EQU 02H ;Map Mask =B
s_cgen EQU 03H ;Character Map Select =B
s_mem EQU 04H ;Memory Mode =B
;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
; GRAPHICS ADDRESS REGISTER EQUATES
;
;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
g_set_reset EQU 00H ;set/reset =B
g_enbl_set EQU 01H ;enable set/reset =B
g_clr_comp EQU 02H ;color compare =B
g_data_rot EQU 03H ;data rotate =B
g_read_map EQU 04H ;read map select =B
g_mode EQU 05H ;mode =B
g_misc EQU 06H ;miscellaneous =B
g_color EQU 07H ;color don't care =B
g_bit_mask EQU 08H ;bit mask =B
;---------------------------------------------------------------------+
; |
; Miscellaneous Equates |
; |
;---------------------------------------------------------------------+
LINELEN EQU 80 ; Length of a Graphics Buffer Line
COLPELS EQU 8 ; Number of pels per text column
;DEFROFFU EQU 1 ; Default Pointer Icon Row Center Offset
;DEFROFFD EQU 14 ; Default Pointer Icon Row Center Offset
;DEFCOFFR EQU 11 ; Default Pointer Icon Column Center Offst
;DEFCOFFL EQU 4 ; Default Pointer Icon Column Center Offst
;ICONROWS EQU 16 ; Number of Rows in Pointer Icon
;M_WHITE EQU 15 ;default foreground color (icon)
;M_DAXIS EQU 11 ;default axis mouse pointer
DEFROFFU EQU 1 ; Default Pointer Icon Row Center Offset
DEFROFFD EQU 14 ; Default Pointer Icon Row Center Offset
DEFCOFFR EQU 14 ; Default Pointer Icon Column Center Offst
DEFCOFFL EQU 2 ; Default Pointer Icon Column Center Offst
ICONROWS EQU 20 ; Number of Rows in Pointer Icon
M_DAXIS EQU 800 ;default axis mouse pointer
ICONCOLS EQU 16 ; Number of Columns in Pointer Icon
SHFTMSK EQU 07H ; Column Shift Count Bit Mask (Hi-Res)
M_BLACK EQU 0 ;default background color (icon)
M_WHITE EQU 15 ;default foreground color (icon)
VSICONR EQU 28 ;# pel rows
VSICONC EQU 2*8 ;# pel columns
MVSICONR EQU 16 ;minimun pel rows in sb icon
MHSICONC EQU 3*8 ;minimum pel cols in sb icon
;;
;; Long Conditional Jump Macros
;;
lja macro Farlabel
local Nearlabel
jna Nearlabel
jmp Farlabel
Nearlabel:
endm
ljae macro Farlabel
local Nearlabel
jnae Nearlabel
jmp Farlabel
Nearlabel:
endm
ljb macro Farlabel
local Nearlabel
jnb Nearlabel
jmp Farlabel
Nearlabel:
endm
ljc macro Farlabel
local Nearlabel
jnc Nearlabel
jmp Farlabel
Nearlabel:
endm
ljbe macro Farlabel
local Nearlabel
jnbe Nearlabel
jmp Farlabel
Nearlabel:
endm
lje macro Farlabel
local Nearlabel
jne Nearlabel
jmp Farlabel
Nearlabel:
endm
ljz macro Farlabel
local Nearlabel
jnz Nearlabel
jmp Farlabel
Nearlabel:
endm
ljg macro Farlabel
local Nearlabel
jng Nearlabel
jmp Farlabel
Nearlabel:
endm
ljge macro Farlabel
local Nearlabel
jnge Nearlabel
jmp Farlabel
Nearlabel:
endm
ljl macro Farlabel
local Nearlabel
jnl Nearlabel
jmp Farlabel
Nearlabel:
endm
ljle macro Farlabel
local Nearlabel
jnle Nearlabel
jmp Farlabel
Nearlabel:
endm
ljnc macro Farlabel
local Nearlabel
jc Nearlabel
jmp Farlabel
Nearlabel:
endm
ljne macro Farlabel
local Nearlabel
je Nearlabel
jmp Farlabel
Nearlabel:
endm
ljnz macro Farlabel
local Nearlabel
jz Nearlabel
jmp Farlabel
Nearlabel:
endm
ljno macro Farlabel
local Nearlabel
jo Nearlabel
jmp Farlabel
Nearlabel:
endm
ljo macro Farlabel
local Nearlabel
jno Nearlabel
jmp Farlabel
Nearlabel:
endm
|
