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