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