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