1 | /*
|
---|
2 | =============================================================================
|
---|
3 | vobjfns.c -- VSDD object functions
|
---|
4 | Version 23 -- 1988-01-29 -- D.N. Lynx Crowe
|
---|
5 | (c) Copyright 1987,1988 -- D.N. Lynx Crowe
|
---|
6 |
|
---|
7 | SelObj(obj)
|
---|
8 | int obj;
|
---|
9 |
|
---|
10 | Select 'obj' as the current working object.
|
---|
11 |
|
---|
12 | SetPri(obj, pri)
|
---|
13 | int obj, pri;
|
---|
14 |
|
---|
15 | Display object 'obj' with priority 'pri'.
|
---|
16 |
|
---|
17 | SetObj(obj, type, bank, base, xpix, ypix, x0, y0, flags, pri)
|
---|
18 | int obj, type, bank, xpix, ypix, x0, y0, flags, pri;
|
---|
19 | unsigned int *base;
|
---|
20 |
|
---|
21 | Setup object 'obj' of type 'type' at 'base' in bank 'bank'
|
---|
22 | with height 'ypix' and width 'xpix' at initial location
|
---|
23 | 'x0','y0', with flags 'flags'. Assumes HRS EQ 1.
|
---|
24 | If 'pri' >= 0, display the object at priority level 'pri'.
|
---|
25 | Define a bitmap object if 'type' EQ 0, or a character object
|
---|
26 | if 'type' NE 0.
|
---|
27 |
|
---|
28 | CpyObj(from, to, w, h, sw)
|
---|
29 | unsigned int *from, *to;
|
---|
30 | int w, h, sw;
|
---|
31 |
|
---|
32 | Copy a 'w'-word by 'h'-line object from 'from' to 'to' with
|
---|
33 | a destination width of 'sw' words.
|
---|
34 | */
|
---|
35 |
|
---|
36 | /* |
---|
37 |
|
---|
38 | */
|
---|
39 |
|
---|
40 | /*
|
---|
41 | VIint() is located in viint.s but is mentioned here for completeness
|
---|
42 |
|
---|
43 | VIint()
|
---|
44 |
|
---|
45 | Vertical Interrupt handler. Enables display of any object
|
---|
46 | whose bit is set in vi_ctl. Bit 0 = object 0, etc.
|
---|
47 |
|
---|
48 | SetPri() uses BIOS(B_SETV, 25, VIint) to set the interrupt
|
---|
49 | vector and lets VIint() enable the object. If vi_dis
|
---|
50 | is set, SetPri() won't enable the interrupt or set the vector
|
---|
51 | so that several objects can be started up at once.
|
---|
52 | =============================================================================
|
---|
53 | */
|
---|
54 |
|
---|
55 | #include "all.h"
|
---|
56 |
|
---|
57 | extern void vbank(uint16_t b);
|
---|
58 | extern void objon(uint16_t obj, uint16_t line, uint16_t num);
|
---|
59 | extern void VIint(void);
|
---|
60 |
|
---|
61 | extern uint16_t setipl(uint16_t arg);
|
---|
62 |
|
---|
63 | int16_t wsize; /* object width calculated by SetObj() */
|
---|
64 | int16_t vi_dis; /* disable use of VIint */
|
---|
65 |
|
---|
66 | uint16_t vi_ctl; /* object unblank control bits */
|
---|
67 |
|
---|
68 | /* |
---|
69 |
|
---|
70 | */
|
---|
71 |
|
---|
72 | /*
|
---|
73 | =============================================================================
|
---|
74 | SelObj(obj) -- Select 'obj' as the current working object.
|
---|
75 | =============================================================================
|
---|
76 | */
|
---|
77 |
|
---|
78 | void SelObj(int16_t obj)
|
---|
79 | {
|
---|
80 | register struct octent *op;
|
---|
81 | register uint16_t newbank;
|
---|
82 |
|
---|
83 | op = &v_obtab[obj];
|
---|
84 |
|
---|
85 | newbank = ((op->obank & 0x0001) << 8) | ((op->obank & 0x0002) << 6);
|
---|
86 |
|
---|
87 | v_nobj = obj;
|
---|
88 | v_curob = op;
|
---|
89 | v_obpri = op->opri;
|
---|
90 |
|
---|
91 | if ((v_regs[5] & 0x0180) NE newbank)
|
---|
92 | vbank(op->obank & 3);
|
---|
93 | }
|
---|
94 |
|
---|
95 | /* |
---|
96 |
|
---|
97 | */
|
---|
98 |
|
---|
99 | /*
|
---|
100 | =============================================================================
|
---|
101 | SetPri(obj, pri) -- Display object 'obj' with priority 'pri'.
|
---|
102 |
|
---|
103 | Blanks the object first, then sets the access table
|
---|
104 | and unblanks the object via VIint().
|
---|
105 | =============================================================================
|
---|
106 | */
|
---|
107 |
|
---|
108 | void SetPri(int16_t obj, int16_t pri)
|
---|
109 | {
|
---|
110 | register struct octent *op;
|
---|
111 |
|
---|
112 | if (v_regs[5] & 0x0180) /* point at the control bank */
|
---|
113 | vbank(0);
|
---|
114 |
|
---|
115 | op = &v_obtab[obj]; /* point at the object table */
|
---|
116 | op->opri = pri; /* set the priority */
|
---|
117 |
|
---|
118 | v_odtab[pri][0] = op->odtw0 | V_BLA; /* start object as blanked */
|
---|
119 | v_odtab[pri][1] = op->odtw1;
|
---|
120 | v_odtab[pri][2] = ((int32_t)op->obase >> 1) & 0xFFFF;
|
---|
121 |
|
---|
122 | objon(pri, op->objy, op->ysize); /* enable access table bits */
|
---|
123 |
|
---|
124 | if (vi_dis) /* don't unblank if vi_dis set */
|
---|
125 | return;
|
---|
126 |
|
---|
127 | setipl(7); /* disable interrupts */
|
---|
128 |
|
---|
129 | vi_ctl |= (1 << pri); /* set unblank bit */
|
---|
130 |
|
---|
131 | if (*((int32_t *)0x000064) NE &VIint) /* make sure VI vector is set */
|
---|
132 | BIOS(B_SETV, 25, VIint);
|
---|
133 |
|
---|
134 | setipl(0); /* enable VI interrupt */
|
---|
135 | }
|
---|
136 |
|
---|
137 | /* |
---|
138 |
|
---|
139 | */
|
---|
140 |
|
---|
141 | /*
|
---|
142 | =============================================================================
|
---|
143 | SetObj(obj, type, bank, base, xpix, ypix, x0, y0, flags, pri)
|
---|
144 | Setup an object, and optionally display it. Assumes HRS EQ 1.
|
---|
145 | =============================================================================
|
---|
146 | */
|
---|
147 |
|
---|
148 | void SetObj(int16_t obj, int16_t type, int16_t bank, int16_t xpix, int16_t ypix, int16_t x0, int16_t y0, int16_t flags, int16_t pri, uint16_t *base)
|
---|
149 | {
|
---|
150 | register struct octent *op;
|
---|
151 |
|
---|
152 | if (v_regs[5] & 0x0180) /* point at the control bank */
|
---|
153 | vbank(0);
|
---|
154 |
|
---|
155 | op = &v_obtab[obj];
|
---|
156 |
|
---|
157 | v_curob = op;
|
---|
158 | v_nobj = obj;
|
---|
159 | v_obpri = pri;
|
---|
160 |
|
---|
161 | op->ysize = ypix;
|
---|
162 | op->xsize = xpix;
|
---|
163 | op->objx = x0;
|
---|
164 | op->objy = y0;
|
---|
165 | op->obase = base;
|
---|
166 | op->opri = pri;
|
---|
167 | op->obank = bank & 3;
|
---|
168 |
|
---|
169 | /* |
---|
170 |
|
---|
171 | */
|
---|
172 | if (type) { /* character objects */
|
---|
173 |
|
---|
174 | op->odtw0 = (flags & 0xF9FF) | V_CTYPE;
|
---|
175 |
|
---|
176 | switch (V_RES3 & op->odtw0) {
|
---|
177 |
|
---|
178 | case V_RES0:
|
---|
179 |
|
---|
180 | wsize = xpix / 128;
|
---|
181 | break;
|
---|
182 |
|
---|
183 | case V_RES1:
|
---|
184 |
|
---|
185 | wsize = xpix / 48;
|
---|
186 | break;
|
---|
187 |
|
---|
188 | case V_RES2:
|
---|
189 |
|
---|
190 | wsize = xpix / 64;
|
---|
191 | break;
|
---|
192 |
|
---|
193 | case V_RES3:
|
---|
194 |
|
---|
195 | wsize = xpix / 96;
|
---|
196 | break;
|
---|
197 | }
|
---|
198 |
|
---|
199 | if (V_FAD & op->odtw0)
|
---|
200 | wsize = wsize + (wsize << 1);
|
---|
201 |
|
---|
202 | /* |
---|
203 |
|
---|
204 | */
|
---|
205 | } else { /* bitmap objects */
|
---|
206 |
|
---|
207 | op->odtw0 = (flags & 0x0E37) | (V_BTYPE | ((bank & 3) << 6));
|
---|
208 |
|
---|
209 | switch (V_RES3 & op->odtw0) {
|
---|
210 |
|
---|
211 | case V_RES0:
|
---|
212 | case V_RES1:
|
---|
213 |
|
---|
214 | wsize = 0;
|
---|
215 | break;
|
---|
216 |
|
---|
217 | case V_RES2:
|
---|
218 |
|
---|
219 | wsize = xpix / 32;
|
---|
220 | break;
|
---|
221 |
|
---|
222 | case V_RES3:
|
---|
223 |
|
---|
224 | wsize = xpix / 16;
|
---|
225 | break;
|
---|
226 | }
|
---|
227 | }
|
---|
228 |
|
---|
229 | op->odtw1 = ((x0 >> 1) & 0x03FF) | (0xFC00 & (wsize << 10));
|
---|
230 |
|
---|
231 | if (pri < 0)
|
---|
232 | return;
|
---|
233 |
|
---|
234 | SetPri(obj, pri);
|
---|
235 | }
|
---|
236 |
|
---|
237 | /* |
---|
238 |
|
---|
239 | */
|
---|
240 |
|
---|
241 | /*
|
---|
242 | =============================================================================
|
---|
243 | CpyObj(from, to, w, h, sw)
|
---|
244 |
|
---|
245 | Copy a 'w'-word by 'h'-line object from 'from' to 'to' with
|
---|
246 | a destination width of 'sw' words. Assumes we're pointing at
|
---|
247 | the correct bank.
|
---|
248 | =============================================================================
|
---|
249 | */
|
---|
250 |
|
---|
251 | void CpyObj(uint16_t *from, uint16_t *to, uint16_t w, uint16_t h, uint16_t sw)
|
---|
252 | {
|
---|
253 | register uint16_t *tp;
|
---|
254 | register uint16_t i, j;
|
---|
255 |
|
---|
256 | for (i = h; i--; ) {
|
---|
257 |
|
---|
258 | tp = to;
|
---|
259 |
|
---|
260 | for (j = w; j--; )
|
---|
261 | *tp++ = *from++;
|
---|
262 |
|
---|
263 | to += sw;
|
---|
264 | }
|
---|
265 | }
|
---|
266 |
|
---|