Changeset 7ecfb7b in buchla-68k
- Timestamp:
- 07/14/2017 09:11:47 PM (7 years ago)
- Branches:
- master
- Children:
- aa021e2
- Parents:
- 4810254
- Files:
-
- 97 edited
Legend:
- Unmodified
- Added
- Removed
-
iolib/dofmt.c
r4810254 r7ecfb7b 45 45 46 46 int16_t hradix, 47 lowbit,48 47 length, 49 48 fplus, -
iolib/rawio.c
r4810254 r7ecfb7b 83 83 84 84 for (j = 0; j < nc; j++) /* scan each byte of ctl */ 85 if (*c tl++ EQ c ) /* done if we find it */85 if (*cp++ EQ c ) /* done if we find it */ 86 86 return((int16_t)c); 87 87 -
libcio/conin.c
r4810254 r7ecfb7b 15 15 int16_t nbp; 16 16 register int16_t l; 17 18 (void)arg; 17 19 18 20 if (_ConBuf[1] EQ 0) { -
libcio/fseek.c
r4810254 r7ecfb7b 16 16 int16_t fseek(FILE *fp, int32_t pos, int16_t mode) 17 17 { 18 register int16_t i, lr; 19 int32_t curpos; 18 register int16_t lr; 20 19 21 20 if (fp->_flags & _DIRTY) { -
libcio/fsinit.c
r4810254 r7ecfb7b 41 41 int16_t _badfio(io_arg arg, int8_t *buff, int16_t len) 42 42 { 43 (void)arg; 44 (void)buff; 45 (void)len; 46 43 47 errno = EBADF; /* set bad fd code */ 44 48 return(FAILURE); /* return with an error indication */ … … 53 57 int16_t _badfc(io_arg arg) 54 58 { 59 (void)arg; 60 55 61 errno = EBADF; /* set bad fd code */ 56 62 return(FAILURE); /* return with an error indication */ … … 65 71 int16_t _nopo(int8_t *name, int16_t flag, int16_t mode, struct channel *chp, struct devtabl *dp) 66 72 { 73 (void)name; 74 (void)flag; 75 (void)mode; 76 (void)chp; 77 (void)dp; 78 67 79 return(SUCCESS); /* return with a non-error indication */ 68 80 } … … 76 88 int16_t _nopc(io_arg arg) 77 89 { 90 (void)arg; 91 78 92 return(SUCCESS); /* return with a non-error indication */ 79 93 } -
libcio/fstubs.c
r4810254 r7ecfb7b 38 38 int16_t readbuf(int16_t dev, int8_t *buf) 39 39 { 40 (void)dev; 41 (void)buf; 42 40 43 xtrap15(); 41 44 return(1); -
libcio/open.c
r4810254 r7ecfb7b 179 179 int8_t tmpname[9], tmpext[4]; 180 180 181 (void)mode; 182 (void)dp; 183 181 184 /* search for an available fcb entry */ 182 185 -
libcio/rename.c
r4810254 r7ecfb7b 10 10 int16_t rename(int8_t *old, int8_t *new) 11 11 { 12 int8_t buff[60]; 12 (void)old; 13 (void)new; 13 14 14 15 return(-1); /* return an error for now */ -
prolog/croot.c
r4810254 r7ecfb7b 133 133 } 134 134 135 #else 136 (void)cp; 137 (void)k; 138 (void)fname; 135 139 #endif 136 140 -
ram/adselbx.c
r4810254 r7ecfb7b 56 56 void admtxt(int16_t row, int16_t col, int8_t *txt, int16_t tag) 57 57 { 58 (void)tag; 59 58 60 if (v_regs[5] & 0x0180) 59 61 vbank(0); … … 70 72 void admenu(int16_t n) 71 73 { 72 register int16_t i;73 74 74 if (n GE 0) { /* put up a submenu */ 75 75 -
ram/asgdsp.c
r4810254 r7ecfb7b 390 390 { 391 391 register int16_t cx, i; 392 register int8_t *bfsp;393 392 int8_t buf1[4], buf2[4]; 394 393 -
ram/asgvce.c
r4810254 r7ecfb7b 301 301 register int16_t trg; 302 302 register int16_t aflag; 303 register struct nevent *np;304 register struct n_entry *ep;305 303 306 304 DB_ENTR("asgvce"); -
ram/barbadj.c
r4810254 r7ecfb7b 50 50 void BarBadj(int16_t bar, int16_t val) 51 51 { 52 register int16_t bardot, barpos,curdif;52 register int16_t bardot, curdif; 53 53 register uint16_t baradr; 54 54 int16_t barcol, bardif, curbar, i, newbar; -
ram/dopatch.c
r4810254 r7ecfb7b 209 209 chan = 0x000F & (suba >> 7); /* channel */ 210 210 trig = 0x007F & suba; /* trigger */ 211 212 (void)port; 213 (void)chan; 211 214 } 212 215 -
ram/enterit.c
r4810254 r7ecfb7b 71 71 void nodkey(int16_t k) 72 72 { 73 (void)k; 73 74 } 74 75 … … 81 82 int16_t nonf(int16_t k) 82 83 { 84 (void)k; 85 83 86 return(SUCCESS); 84 87 } … … 92 95 int16_t entbh(int16_t n) 93 96 { 97 (void)n; 98 94 99 enterit(); 95 100 return(SUCCESS); … … 443 448 void stddkey(int16_t k) 444 449 { 450 (void)k; 451 445 452 if (infield(stcrow, stccol, curfet)) { 446 453 -
ram/etaccn.c
r4810254 r7ecfb7b 17 17 { 18 18 register int16_t ctl; 19 20 int8_t buf[4];21 19 22 20 ctl = 0x00FF & (n >> 8); -
ram/etadep.c
r4810254 r7ecfb7b 16 16 int16_t et_adep(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%02d", ps_dpth); 19 21 ebflag = TRUE; … … 31 33 { 32 34 register int16_t i, tmpval; 35 36 (void)n; 33 37 34 38 ebuf[2] = '\0'; /* terminate the string in ebuf */ -
ram/etadyn.c
r4810254 r7ecfb7b 37 37 { 38 38 register int16_t g, i, val; 39 register int32_t ltmp;40 39 register uint16_t *fpu; 41 40 register struct idfnhdr *fp; -
ram/etagch.c
r4810254 r7ecfb7b 17 17 { 18 18 register int16_t grp; 19 20 int8_t buf[4];21 19 22 20 grp = 0x00FF & (n >> 8); -
ram/etagpt.c
r4810254 r7ecfb7b 36 36 int16_t ef_agpt(int16_t n) 37 37 { 38 register int16_t tmpval,grp, i;38 register int16_t grp, i; 39 39 40 40 grp = 0x00FF & (n >> 8); -
ram/etains.c
r4810254 r7ecfb7b 32 32 { 33 33 register int16_t grp; 34 35 int8_t buf[4];36 34 37 35 grp = 0x00FF & (n >> 8); … … 80 78 { 81 79 register int16_t n, grp; 82 int8_t buf[4];83 80 84 81 n = 0x00FF & nn; -
ram/etaint.c
r4810254 r7ecfb7b 16 16 int16_t et_aint(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%02d", ps_intn); 19 21 ebflag = TRUE; … … 31 33 { 32 34 register int16_t i, tmpval; 35 36 (void)n; 33 37 34 38 ebuf[2] = '\0'; /* terminate the string in ebuf */ -
ram/etaopt.c
r4810254 r7ecfb7b 16 16 int16_t et_aopt(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%01.1d", curmop); 19 21 ebflag = TRUE; … … 31 33 { 32 34 register int16_t tmpval; 35 36 (void)n; 33 37 34 38 ebuf[1] = '\0'; /* terminate the string in ebuf */ -
ram/etaprg.c
r4810254 r7ecfb7b 18 18 int16_t et_aprg(int16_t n) 19 19 { 20 (void)n; 21 20 22 sprintf(ebuf, "%02d", prgchan); 21 23 ebflag = TRUE; … … 33 35 { 34 36 register int16_t i, tmpval; 37 38 (void)n; 35 39 36 40 ebuf[2] = '\0'; /* terminate the string in ebuf */ -
ram/etarat.c
r4810254 r7ecfb7b 16 16 int16_t et_arat(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%02d", ps_rate); 19 21 ebflag = TRUE; … … 31 33 { 32 34 register int16_t i, tmpval; 35 36 (void)n; 33 37 34 38 ebuf[2] = '\0'; /* terminate the string in ebuf */ -
ram/etatab.c
r4810254 r7ecfb7b 16 16 int16_t et_atab(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%02d", curasg); 19 21 ebflag = TRUE; … … 31 33 { 32 34 register int16_t i, tmpval; 35 36 (void)n; 33 37 34 38 ebuf[2] = '\0'; /* terminate the string in ebuf */ -
ram/etatun.c
r4810254 r7ecfb7b 16 16 int16_t et_atun(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%01.1d", curtun); 19 21 ebflag = TRUE; … … 31 33 { 32 34 register int16_t tmpval; 35 36 (void)n; 33 37 34 38 ebuf[1] = '\0'; /* terminate the string in ebuf */ -
ram/etdyn.c
r4810254 r7ecfb7b 100 100 int16_t nd_dyn(int16_t n, int16_t k) 101 101 { 102 (void)n; 103 102 104 ebuf[0] = k + '0'; 103 105 -
ram/etiact.c
r4810254 r7ecfb7b 19 19 { 20 20 register struct instpnt *pp; 21 22 (void)nn; 21 23 22 24 pp = &vbufs[curvce].idhpnt[curpnt]; … … 67 69 register struct instpnt *pp; 68 70 register struct idfnhdr *fp; 71 72 (void)nn; 69 73 70 74 fp = &vbufs[curvce].idhfnc[curfunc]; -
ram/eticnf.c
r4810254 r7ecfb7b 18 18 int16_t et_icnf(int16_t n) 19 19 { 20 (void)n; 21 20 22 sprintf(ebuf, "%02d", vbufs[curvce].idhcfg); 21 23 ebflag = TRUE; … … 33 35 { 34 36 register int16_t i, tmpval; 37 38 (void)n; 35 39 36 40 ebuf[2] = '\0'; /* terminate the string in ebuf */ … … 79 83 int16_t nd_icnf(int16_t n, int16_t k) 80 84 { 81 register int16_t ec , c;85 register int16_t ec; 82 86 83 87 ec = stccol - cfetp->flcol; /* setup edit buffer column */ -
ram/etidin.c
r4810254 r7ecfb7b 18 18 int16_t et_idin(int16_t n) 19 19 { 20 (void)n; 21 20 22 sprintf(ebuf, "%02d", curinst); 21 23 ebflag = TRUE; … … 34 36 { 35 37 register int16_t i, tmpval, j; 36 register struct instdef *ip; 38 39 (void)n; 37 40 38 41 if (idcfsw) { /* 'E' with menu up */ … … 152 155 int16_t nd_idin(int16_t n, int16_t k) 153 156 { 154 register int16_t ec , c;157 register int16_t ec; 155 158 156 159 ec = stccol - cfetp->flcol; /* setup edit buffer column */ -
ram/etimlt.c
r4810254 r7ecfb7b 55 55 register struct idfnhdr *fp; 56 56 57 (void)n; 58 57 59 ip = &vbufs[curvce]; 58 60 fp = &ip->idhfnc[curfunc]; … … 80 82 int16_t ef_imlt(int16_t n) 81 83 { 82 register int16_t i,tmpval, srctmp;84 register int16_t tmpval, srctmp; 83 85 register struct instdef *ip; 84 86 register struct idfnhdr *fp; 87 88 (void)n; 85 89 86 90 ip = &vbufs[curvce]; -
ram/etinst.c
r4810254 r7ecfb7b 111 111 register int16_t ec; 112 112 113 (void)n; 114 113 115 ec = stccol - cfetp->flcol; 114 116 ebuf[ec] = k + '0'; -
ram/etioas.c
r4810254 r7ecfb7b 22 22 int16_t et_ioas(int16_t n) 23 23 { 24 (void)n; 25 24 26 sprintf(ebuf, "%02.2d", curasg); 25 27 ebflag = TRUE; … … 39 41 register int16_t ival; 40 42 register struct s_entry *ep; 43 44 (void)n; 41 45 42 46 ebuf[2] = '\0'; … … 81 85 int16_t rd_ioas(int16_t n) 82 86 { 87 (void)n; 88 83 89 sprintf(dspbuf, "%02.2d", curasg); 84 90 … … 99 105 { 100 106 register int16_t ec; 107 108 (void)n; 101 109 102 110 ec = stccol - cfetp->flcol; … … 125 133 int16_t et_tune(int16_t n) 126 134 { 135 (void)n; 136 127 137 ebuf[0] = '0' + curtun; 128 138 ebuf[1] = '\0'; … … 141 151 register int16_t ival; 142 152 register struct s_entry *ep; 153 154 (void)n; 143 155 144 156 ebuf[1] = '\0'; … … 177 189 int16_t rd_tune(int16_t n) 178 190 { 191 (void)n; 192 179 193 if (v_regs[5] & 0x0180) 180 194 vbank(0); … … 193 207 int16_t nd_tune(int16_t n, int16_t k) 194 208 { 195 register int16_t ec;209 (void)n; 196 210 197 211 ebuf[0] = k + '0'; … … 219 233 int16_t et_tmpo(int16_t n) 220 234 { 235 (void)n; 236 221 237 sprintf(ebuf, "%03.3d", tmpoval); 222 238 ebflag = TRUE; … … 235 251 register int16_t ival; 236 252 register struct s_entry *ep; 253 254 (void)n; 237 255 238 256 ebuf[3] = '\0'; … … 277 295 int16_t rd_tmpo(int16_t n) 278 296 { 297 (void)n; 298 279 299 sprintf(dspbuf, "%03.3d", tmpoval); 280 300 … … 296 316 { 297 317 register int16_t ec; 318 319 (void)n; 298 320 299 321 ec = stccol - cfetp->flcol; … … 325 347 register int16_t th, tl; 326 348 register int32_t tt, sc, sf; 349 350 (void)n; 327 351 328 352 sc = 1000L; … … 349 373 register uint16_t tmpval; 350 374 register struct s_entry *ep; 375 376 (void)n; 351 377 352 378 ebuf[2] = '.'; /* add implied decimal point */ … … 403 429 register int32_t tt, sc, sf; 404 430 431 (void)n; 432 405 433 sc = 1000L; 406 434 sf = 100L; … … 428 456 register int16_t ec; 429 457 458 (void)n; 459 430 460 ec = stccol - cfetp->flcol; /* setup edit buffer column */ 431 461 -
ram/etipnt.c
r4810254 r7ecfb7b 18 18 int16_t et_ipnt(int16_t n) 19 19 { 20 (void)n; 21 20 22 sprintf(ebuf, "%02d", subj); 21 23 ebflag = TRUE; … … 35 37 register struct idfnhdr *fp; 36 38 register struct instdef *ip; 39 40 (void)n; 37 41 38 42 ip = &vbufs[curvce]; /* set instrument pointer */ -
ram/etires.c
r4810254 r7ecfb7b 32 32 int16_t et_ires(int16_t n) 33 33 { 34 (void)n; 35 34 36 if (curfunc NE 4) 35 37 return(FAILURE); … … 50 52 { 51 53 register int16_t tmpval; 54 55 (void)n; 52 56 53 57 if (curfunc NE 4) -
ram/etitim.c
r4810254 r7ecfb7b 20 20 register int16_t th, tl; 21 21 register int32_t tt, sc; 22 23 (void)n; 22 24 23 25 pntsel(); /* make sure edit limits are current */ … … 47 49 int16_t ef_itim(int16_t n) 48 50 { 49 register int16_t i , endpnt, basept;51 register int16_t i; 50 52 register uint16_t tmpval; 51 register struct idfnhdr *fp;52 register struct instdef *ip;53 53 54 ip = &vbufs[curvce]; /* set instrument pointer */ 55 fp = &ip->idhfnc[curfunc]; /* set function pointer */ 54 (void)n; 56 55 57 56 ebuf[2] = '.'; /* add implied decimal point */ -
ram/etival.c
r4810254 r7ecfb7b 19 19 { 20 20 register int16_t vv, vh, vl; 21 22 (void)n; 21 23 22 24 vv = pntptr->ipval >> 5; … … 47 49 { 48 50 register int16_t i, tmpval, srctmp; 51 52 (void)n; 49 53 50 54 ebuf[2] = '.'; -
ram/etivce.c
r4810254 r7ecfb7b 18 18 int16_t et_ivce(int16_t n) 19 19 { 20 (void)n; 21 20 22 sprintf(ebuf, "%02d", curvce + 1); 21 23 ebflag = TRUE; … … 33 35 { 34 36 register int16_t i, tmpval; 37 38 (void)n; 35 39 36 40 ebuf[2] = '\0'; /* terminate the string in ebuf */ -
ram/etiwsn.c
r4810254 r7ecfb7b 119 119 int16_t nd_iwsn(int16_t nn, int16_t k) 120 120 { 121 register int16_t ec, c,n;121 register int16_t ec, n; 122 122 123 123 n = nn & 0x00FF; -
ram/etloc.c
r4810254 r7ecfb7b 31 31 { 32 32 register int16_t g, i, val; 33 register int32_t ltmp;34 33 register uint16_t *fpu; 35 34 register struct idfnhdr *fp; … … 165 164 int16_t nd_loc(int16_t n, int16_t k) 166 165 { 166 (void)n; 167 167 168 ebuf[0] = k + '0'; 168 169 -
ram/etmcfn.c
r4810254 r7ecfb7b 16 16 int16_t et_mcfn(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%02d", vbufs[curvce].idhcfg); 19 21 ebflag = TRUE; … … 31 33 { 32 34 register int16_t tmpval; 35 36 (void)n; 33 37 34 38 wmctag = FALSE; … … 55 59 int16_t rd_mcfn(int16_t n) 56 60 { 61 (void)n; 62 57 63 sprintf(dspbuf, "%02d", vbufs[curvce].idhcfg); 58 64 … … 73 79 int16_t nd_mcfn(int16_t n, int16_t k) 74 80 { 75 register int16_t ec, c; 81 register int16_t ec; 82 83 (void)n; 76 84 77 85 ec = stccol - cfetp->flcol; /* setup edit buffer column */ … … 201 209 int16_t nd_mwsn(int16_t nn, int16_t k) 202 210 { 203 register int16_t ec, c; 211 register int16_t ec; 212 213 (void)nn; 204 214 205 215 ec = stccol - cfetp->flcol; /* setup edit buffer column */ -
ram/etres1.c
r4810254 r7ecfb7b 97 97 int16_t nd_res1(int16_t n, int16_t k) 98 98 { 99 (void)n; 100 99 101 ebuf[0] = k; 100 102 … … 116 118 { 117 119 register int16_t val, grp, gs; 118 int16_t val1, val2 , val3;120 int16_t val1, val2; 119 121 120 122 grp = abs(angroup) - 1; … … 246 248 register int16_t ec; 247 249 250 (void)n; 251 248 252 ec = stccol - cfetp->flcol; 249 253 … … 282 286 int16_t et_agrp(int16_t n) 283 287 { 288 (void)n; 289 284 290 sprintf(ebuf, "%02.2d", abs(angroup)); 285 291 ebflag = TRUE; … … 296 302 { 297 303 register int16_t ival; 304 305 (void)n; 298 306 299 307 ebflag = FALSE; … … 321 329 int8_t buf[4]; 322 330 331 (void)n; 332 323 333 sprintf(buf, "%02.2d", abs(angroup)); 324 334 … … 340 350 { 341 351 register int16_t ec; 352 353 (void)n; 342 354 343 355 ec = stccol - cfetp->flcol; -
ram/etscor.c
r4810254 r7ecfb7b 16 16 int16_t et_scor(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%02.2d", curscor + 1); 19 21 ebflag = TRUE; … … 31 33 { 32 34 register int16_t ival; 35 36 (void)n; 33 37 34 38 ebuf[2] = '\0'; … … 59 63 int16_t rd_scor(int16_t n) 60 64 { 65 (void)n; 66 61 67 sprintf(dspbuf, "%02.2d", curscor + 1); 62 68 … … 79 85 register int16_t ec; 80 86 87 (void)n; 88 81 89 ec = stccol - cfetp->flcol; 82 90 ebuf[ec] = k + '0'; -
ram/etsnbt.c
r4810254 r7ecfb7b 17 17 { 18 18 register int32_t curfr, beat; 19 20 (void)n; 19 21 20 22 if (clkrun) { … … 43 45 register int32_t ival; 44 46 register int16_t i; 47 48 (void)n; 45 49 46 50 if (clkrun) … … 75 79 int8_t buf[8]; 76 80 81 (void)n; 82 77 83 curfr = t_cur; 78 84 beat = curfr / 48; … … 97 103 register int16_t ec; 98 104 105 (void)n; 106 99 107 if (clkrun) 100 108 return(FAILURE); -
ram/etstrn.c
r4810254 r7ecfb7b 16 16 int16_t et_strn(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%c%02d", grptran < 0 ? '-' : '+', abs(grptran)); 19 21 … … 32 34 { 33 35 register int16_t ival; 36 37 (void)n; 34 38 35 39 ebuf[3] = '\0'; … … 54 58 int16_t rd_strn(int16_t n) 55 59 { 60 (void)n; 61 56 62 sprintf(dspbuf, "%c%02d", grptran < 0 ? '-' : '+', abs(grptran)); 57 63 … … 73 79 { 74 80 register int16_t ec; 81 82 (void)n; 75 83 76 84 if (sdmctl NE 4) -
ram/ettpch.c
r4810254 r7ecfb7b 71 71 register int16_t key, val; 72 72 73 (void)nn; 74 73 75 key = loc2key(stcrow, stccol); 74 76 … … 91 93 { 92 94 register int16_t key; 95 96 (void)nn; 93 97 94 98 ebflag = FALSE; -
ram/ettrns.c
r4810254 r7ecfb7b 112 112 int16_t rd_trns(int16_t n) 113 113 { 114 register int16_t trval , i;114 register int16_t trval; 115 115 register int8_t trsign; 116 116 … … 183 183 int16_t nd_trns(int16_t n, int16_t k) 184 184 { 185 register int16_t ec, c, advsw; 185 register int16_t ec, advsw; 186 187 (void)n; 186 188 187 189 ec = stccol - cfetp->flcol; /* setup edit buffer column */ -
ram/etttab.c
r4810254 r7ecfb7b 16 16 int16_t et_ttab(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%d", curtun); 19 21 ebflag = TRUE; … … 30 32 int16_t ef_ttab(int16_t n) 31 33 { 32 register int16_t i, tmpval;34 (void)n; 33 35 34 36 ebuf[1] = '\0'; /* terminate the string in ebuf */ -
ram/ettval.c
r4810254 r7ecfb7b 34 34 register int8_t ts; 35 35 36 (void)n; 37 36 38 tv = (tunval < 0 ? -tunval : tunval) >> 1; 37 39 ts = tunval < 0 ? '-' : '+'; … … 51 53 int16_t ef_tval(int16_t n) 52 54 { 53 register int16_t *ov;54 55 register int16_t i, tmpval, tv; 55 56 register int8_t ts; -
ram/etvel.c
r4810254 r7ecfb7b 95 95 register int16_t ec; 96 96 97 (void)n; 98 97 99 ec = stccol - cfetp->flcol; /* setup edit buffer column */ 98 100 ebuf[ec] = k + '0'; -
ram/etwavs.c
r4810254 r7ecfb7b 16 16 int16_t et_wavs(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%02d", curwave + 1); 19 21 ebflag = TRUE; … … 31 33 { 32 34 register int16_t i, tmpval; 35 36 (void)n; 33 37 34 38 ebuf[2] = '\0'; /* terminate the string in ebuf */ -
ram/etwhar.c
r4810254 r7ecfb7b 16 16 int16_t et_whar(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%02d", curwhrm + 1); 19 21 ebflag = TRUE; … … 30 32 { 31 33 register int16_t i, tmpval; 34 35 (void)n; 32 36 33 37 ebuf[2] = '\0'; /* terminate the string in ebuf */ -
ram/etwhrv.c
r4810254 r7ecfb7b 18 18 register int16_t harv; 19 19 register int8_t hvsgn; 20 21 (void)n; 20 22 21 23 if (curwhrv LT 0) { … … 46 48 register int16_t *hv; 47 49 register int16_t i, tmpval; 50 51 (void)n; 48 52 49 53 ebuf[4] = '\0'; /* terminate the string in ebuf */ -
ram/etwoff.c
r4810254 r7ecfb7b 18 18 register int16_t hoff; 19 19 register int8_t hosgn; 20 21 (void)n; 20 22 21 23 lstwoff = curwoff; … … 46 48 int16_t ef_woff(int16_t n) 47 49 { 48 register int16_t *ov;49 50 register int16_t i, tmpval; 51 52 (void)n; 50 53 51 54 ebuf[5] = '\0'; /* terminate the string in ebuf */ -
ram/etwpnt.c
r4810254 r7ecfb7b 16 16 int16_t et_wpnt(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%03d", curwpnt); 19 21 ebflag = TRUE; … … 31 33 { 32 34 register int16_t i, tmpval; 35 36 (void)n; 33 37 34 38 ebuf[3] = '\0'; /* terminate the string in ebuf */ -
ram/etwslt.c
r4810254 r7ecfb7b 18 18 int16_t et_wslt(int16_t n) 19 19 { 20 (void)n; 21 20 22 sprintf(ebuf, "%c", curwslt + 'A'); 21 23 ebflag = TRUE; … … 32 34 int16_t ef_wslt(int16_t n) 33 35 { 36 (void)n; 37 34 38 ebuf[1] = '\0'; /* terminate the string in ebuf */ 35 39 ebflag = FALSE; -
ram/etwvce.c
r4810254 r7ecfb7b 16 16 int16_t et_wvce(int16_t n) 17 17 { 18 (void)n; 19 18 20 sprintf(ebuf, "%02d", curvce + 1); 19 21 ebflag = TRUE; … … 31 33 { 32 34 register int16_t i, tmpval; 35 36 (void)n; 33 37 34 38 ebuf[2] = '\0'; /* terminate the string in ebuf */ -
ram/idfield.c
r4810254 r7ecfb7b 382 382 register struct sment *smp; 383 383 register struct valent *vep; 384 register int16_t i;385 register struct instdef *ip;386 384 387 385 if (astat) { -
ram/idselbx.c
r4810254 r7ecfb7b 52 52 void idtxput(int16_t row, int16_t col, int8_t *txt, int16_t tag) 53 53 { 54 (void)tag; 55 54 56 if (v_regs[5] & 0x0180) 55 57 vbank(0); -
ram/im700.c
r4810254 r7ecfb7b 792 792 scinit(); /* initialize the score */ 793 793 794 clearer(1 , 0); /* reset the fpu to its nominal values */794 clearer(1); /* reset the fpu to its nominal values */ 795 795 getasg(curasg = 0); /* setup default assignments */ 796 796 -
ram/initi.c
r4810254 r7ecfb7b 337 337 void setivce(int16_t voice) 338 338 { 339 register int16_t i,j, k, oldi;339 register int16_t j, k, oldi; 340 340 register struct instdef *ip; 341 341 -
ram/instdsp.c
r4810254 r7ecfb7b 456 456 void dswin(int16_t n) 457 457 { 458 int16_t th, tl, vh, vl, vv , mltval, lboff;459 int8_t *s1 , mltstr[6], mltsgn;458 int16_t th, tl, vh, vl, vv; 459 int8_t *s1; 460 460 int32_t tt, sc; 461 461 register int16_t cx, pnt, par; … … 842 842 void instdsp(void) 843 843 { 844 register struct instdef *ip;845 register struct idfnhdr *fp;846 847 844 instob = &v_score[0]; /* setup object pointer */ 848 845 idoct = &v_obtab[INSTOBJ]; /* setup object control table pointer */ -
ram/lcdlbls.c
r4810254 r7ecfb7b 302 302 void l_none(int16_t _1, int16_t _2) 303 303 { 304 (void)_1; 305 (void)_2; 304 306 } 305 307 … … 313 315 { 314 316 register int16_t vce; 317 318 (void)_1; 319 (void)_2; 315 320 316 321 for (vce = 0; vce < 12; vce++) /* for each voice ... */ … … 335 340 void rpctl(int16_t stat, int16_t _2) 336 341 { 342 (void)_2; 343 337 344 if (NOT stat) 338 345 return; … … 350 357 void trapper(int16_t stat, int16_t _2) 351 358 { 359 (void)_2; 360 352 361 if (stat) 353 362 xtrap15(); … … 362 371 void l_clock(int16_t stat, int16_t _2) 363 372 { 373 (void)_2; 374 364 375 if (NOT stat) 365 376 return; … … 443 454 { 444 455 register int16_t oldi; 456 457 (void)_2; 445 458 446 459 if (NOT stat) /* only act on key closures */ … … 571 584 void l_load(int16_t stat, int16_t _2) 572 585 { 586 (void)_2; 587 573 588 if (NOT stat) 574 589 return; … … 847 862 void l_adfl(int16_t stat, int16_t _2) 848 863 { 864 (void)_2; 865 849 866 if (NOT stat) 850 867 return; … … 861 878 void l_asgn(int16_t stat, int16_t _2) 862 879 { 880 (void)_2; 881 863 882 if (NOT stat) /* only do this on key closure */ 864 883 return; … … 928 947 void l_inst(int16_t stat, int16_t _2) 929 948 { 949 (void)_2; 950 930 951 if (NOT stat) 931 952 return; … … 1055 1076 void l_dflt(int16_t stat, int16_t _2) 1056 1077 { 1078 (void)_2; 1079 1057 1080 if (NOT stat) 1058 1081 return; … … 1069 1092 void l_goto(int16_t stat, int16_t _2) 1070 1093 { 1094 (void)_2; 1095 1071 1096 if (NOT stat) /* only do this on key closure */ 1072 1097 return; … … 1354 1379 */ 1355 1380 1356 void l_prmtr(int16_t stat, int16_t sig) 1357 { 1381 void l_prmtr(int16_t stat, int16_t _2) 1382 { 1383 (void)_2; 1384 1358 1385 if (NOT stat) 1359 1386 return; … … 1452 1479 */ 1453 1480 1454 void l_other(int16_t stat, int16_t sig) 1455 { 1481 void l_other(int16_t stat, int16_t _2) 1482 { 1483 (void)_2; 1484 1456 1485 if (NOT stat) 1457 1486 return; … … 1469 1498 */ 1470 1499 1471 void l_eq(int16_t stat, int16_t sig) 1472 { 1500 void l_eq(int16_t stat, int16_t _2) 1501 { 1502 (void)_2; 1503 1473 1504 if (NOT stat) 1474 1505 return; … … 1508 1539 */ 1509 1540 1510 void l_init(int16_t stat, int16_t sig)1541 void l_init(int16_t stat, int16_t _2) 1511 1542 { 1512 1543 register uint16_t *fpu; 1513 1544 register int16_t barval, i, j; 1514 int8_t buf[16]; 1545 1546 (void)_2; 1515 1547 1516 1548 if (NOT stat) -
ram/ldfield.c
r4810254 r7ecfb7b 313 313 void loadem(int16_t key) 314 314 { 315 register int16_t c, i, rc , slot;315 register int16_t c, i, rc; 316 316 317 317 rc = FALSE; … … 356 356 { 357 357 register int16_t c, col, row, slot; 358 int8_t buf[4];359 358 360 359 if (NOT astat) /* only on key closure */ -
ram/ldselbx.c
r4810254 r7ecfb7b 105 105 int16_t scskip(FILE *fp, int16_t ns) 106 106 { 107 register int16_t ehdr,go;107 register int16_t go; 108 108 int8_t etype; 109 109 int8_t erms[64]; -
ram/libdsp.c
r4810254 r7ecfb7b 796 796 int16_t showcat(void) 797 797 { 798 register int16_t i,fcslot, fcrow, fcount;798 register int16_t fcslot, fcrow, fcount; 799 799 register uint16_t color; 800 800 -
ram/librw.c
r4810254 r7ecfb7b 557 557 register FILE *fp; 558 558 register int16_t i; 559 int32_t tnb;560 559 int8_t cstemp[8]; 561 560 -
ram/m7menu.c
r4810254 r7ecfb7b 270 270 int16_t mdselbx(int16_t n) 271 271 { 272 register uint16_t m lcv, mbcv, mbak;272 register uint16_t mbcv, mbak; 273 273 register int16_t rc; 274 274 … … 278 278 #endif 279 279 280 mlcv = exp_c(MLINES);281 280 mbcv = exp_c(MBUTTON); 282 281 mbak = exp_c(MBKGRND); -
ram/msl.c
r4810254 r7ecfb7b 55 55 { 56 56 register int8_t *ioadr; 57 register uint16_t *fpu;58 57 register struct s_entry *ep; 59 58 register int16_t i, ti, val; 60 register int32_t rt;61 59 uint16_t chan, crel, oldsr, port, trg, trig, vel; 62 int16_t cxprev, cyprev,esi, newsig, oldclk, oldrec;60 int16_t esi, newsig, oldclk, oldrec; 63 61 int32_t fctemp; 64 62 -
ram/ptdkey.c
r4810254 r7ecfb7b 59 59 void SnapPTV(int8_t *s) 60 60 { 61 register uint16_t stim;62 61 register int16_t i; 63 62 int8_t dbuf[50]; … … 295 294 void pte2buf(void) 296 295 { 297 register uint16_t spec;298 299 296 memset(ptdebuf, ' ', 50); 300 297 … … 369 366 stim = (n ? ptestm : ptedef) & 0x007F; 370 367 368 (void)stim; 369 371 370 if ((port EQ 0) OR (port EQ 1) OR ((port EQ 2) AND (chan < 2))) { 372 371 … … 486 485 register int16_t key, val, vg; 487 486 int8_t buf[8]; 487 488 (void)k; 488 489 489 490 if (NOT astat) /* only do this on key closures */ -
ram/ptread.c
r4810254 r7ecfb7b 212 212 int16_t ptread(FILE *fp) 213 213 { 214 register int16_t go;215 214 int8_t cb; 216 217 go = TRUE;218 215 219 216 ldwmsg(" Busy -- please stand by", (int8_t *)NULL, " Reading patches", -
ram/ptselbx.c
r4810254 r7ecfb7b 802 802 register int32_t ltemp; 803 803 804 (void)n; 805 804 806 if (NOT submenu) { /* PATCH DATA ENTRY LINE */ 805 807 -
ram/scfield.c
r4810254 r7ecfb7b 156 156 int16_t et_null(int16_t n) 157 157 { 158 (void)n; 159 158 160 return(SUCCESS); 159 161 } … … 161 163 int16_t ef_null(int16_t n) 162 164 { 165 (void)n; 166 163 167 return(SUCCESS); 164 168 } … … 166 170 int16_t rd_null(int16_t n) 167 171 { 172 (void)n; 173 168 174 return(SUCCESS); 169 175 } … … 171 177 int16_t nd_null(int16_t n, int16_t k) 172 178 { 179 (void)n; 180 (void)k; 181 173 182 return(SUCCESS); 174 183 } -
ram/scinit.c
r4810254 r7ecfb7b 227 227 struct s_entry *e_alc(int16_t w) 228 228 { 229 register struct s_entry *e v, *ex;229 register struct s_entry *ex; 230 230 231 231 se_chg = TRUE; … … 517 517 int16_t selscor(int16_t ns) 518 518 { 519 register int16_t oldscor , grp;519 register int16_t oldscor; 520 520 register struct s_entry *nsp, *ep; 521 521 -
ram/scordsp.c
r4810254 r7ecfb7b 657 657 void sdwin(int16_t n) 658 658 { 659 int16_t atr [64], atrib, i;659 int16_t atrib, i; 660 660 661 661 if (ndisp NE 2) /* only if score is selected */ -
ram/scselbx.c
r4810254 r7ecfb7b 146 146 void svtdsp(uint16_t *obj, uint16_t fg, uint16_t bg, int16_t row, int16_t col, int8_t *buf) 147 147 { 148 (void)fg; 149 (void)bg; 150 148 151 if (v_regs[5] & 0x0180) 149 152 vbank(0); … … 363 366 void sdmtxt(int16_t row, int16_t col, int8_t *txt, int16_t tag) 364 367 { 368 (void)tag; 369 365 370 if ((v_regs[5] & 0x0180) NE 0x0100) 366 371 vbank(1); … … 464 469 void scmenu(int16_t n) 465 470 { 466 register int16_t i;467 471 register struct octent *op; 468 472 … … 1028 1032 int16_t sdboxfn(int16_t n) 1029 1033 { 1030 register int16_t row, col, grp, what,i;1034 register int16_t row, col, i; 1031 1035 register struct s_entry *ep; 1032 1036 int16_t atr, modewas; 1037 1038 (void)n; 1033 1039 1034 1040 row = hitcy / 14; -
ram/sctrak.c
r4810254 r7ecfb7b 280 280 { 281 281 register struct s_entry *rp, *ep; 282 register int32_t tc,rt;282 register int32_t rt; 283 283 register int16_t et, grp; 284 284 -
ram/sedump.c
r4810254 r7ecfb7b 275 275 { 276 276 register int16_t i; 277 register struct gdsel *gp;278 277 279 278 printf("\n"); -
ram/sendval.c
r4810254 r7ecfb7b 82 82 */ 83 83 84 void clearer(int16_t stat , int16_t sig)84 void clearer(int16_t stat) 85 85 { 86 86 register uint16_t *fpu; -
ram/sendval.x
r4810254 r7ecfb7b 15 15 */ 16 16 17 extern void clearer(int16_t stat , int16_t sig);17 extern void clearer(int16_t stat); 18 18 extern void sendval(int16_t voice, int16_t par, int16_t ival); -
ram/setv2gi.c
r4810254 r7ecfb7b 17 17 { 18 18 register int16_t grp, vce, ins; 19 register struct instdef *ip;20 register struct idfnhdr *fp;21 19 22 20 ins = ins2grp[group] & 0x00FF; -
ram/showcfg.c
r4810254 r7ecfb7b 496 496 int16_t imfnbox(int16_t n) 497 497 { 498 register int16_t row, col; 499 500 row = hitcy / 14; 498 register int16_t col; 499 500 (void)n; 501 501 502 col = hitcx >> 3; 502 503 -
ram/smscrl.c
r4810254 r7ecfb7b 236 236 void stopcm(void) 237 237 { 238 register int16_t i;239 240 238 if (PdScDnF) 241 239 SetDTop(CurLine, CurScan = TOPSCAN); … … 274 272 void stopsm(void) 275 273 { 276 register int16_t i;277 278 274 if (PdScDnF) 279 275 SetDTop(CurLine, CurScan = TOPSCAN); -
ram/sqdisp.c
r4810254 r7ecfb7b 123 123 void dsact(int8_t *buf, uint16_t act, uint16_t dat) 124 124 { 125 uint16_t sqa, sqd, sqf, sqr, sqt , t1, t2, val;125 uint16_t sqa, sqd, sqf, sqr, sqt; 126 126 uint16_t chan, i, key, port; 127 127 … … 304 304 void sqwin(int16_t n) 305 305 { 306 register int16_t i , j;306 register int16_t i; 307 307 int16_t atrbuf[64]; 308 308 int8_t linbuf[66]; -
ram/sqdkey.c
r4810254 r7ecfb7b 341 341 int8_t buf[8]; 342 342 343 (void)k; 344 343 345 if (NOT astat) /* only do this on key closures */ 344 346 return; -
ram/sqscan.c
r4810254 r7ecfb7b 115 115 int16_t Qevent(void) 116 116 { 117 register int16_t aux1, aux2, aux3, aux4 , aux5;117 register int16_t aux1, aux2, aux3, aux4; 118 118 register int8_t *chptr; 119 119 register struct s_entry *tsp1, *tsp2; -
ram/sqselbx.c
r4810254 r7ecfb7b 421 421 register int32_t ltemp; 422 422 423 (void)n; 424 423 425 if (NOT submenu) { /* SEQUENCE DATA ENTRY LINE */ 424 426 -
ram/sqwrite.c
r4810254 r7ecfb7b 65 65 int16_t seq; 66 66 int8_t cb, zero; 67 int8_t scid[48];68 67 69 68 #if DEBUGIT -
ram/tdfield.c
r4810254 r7ecfb7b 209 209 void tdcyupd(void) 210 210 { 211 register int16_t pval, vh, vl;212 213 211 if (tdnamsw) { /* see if we're in the menu area */ 214 212 -
ram/tdselbx.c
r4810254 r7ecfb7b 128 128 int16_t tdfnbox(int16_t n) 129 129 { 130 register int16_t i, key,dcol, row, col;130 register int16_t i, dcol, row, col; 131 131 132 132 row = hitcy / 14; -
ram/uslice.c
r4810254 r7ecfb7b 430 430 register struct gdsel *gdsep; 431 431 register uint16_t i, ncolor, w; 432 uint16_t *ncptr , *nctabp;432 uint16_t *ncptr; 433 433 struct gdsel **gdstp, *gdprv, *gdnxt; 434 434 int16_t wrote; … … 440 440 441 441 gdstp = gdstb; /* group control table */ 442 nctabp = sd ? nttab2 : nttab1; /* note transition table */443 442 ncptr = gtctab; /* group to color table */ 444 443 wrote = 0; /* reset count of active groups */ -
ram/wdfield.c
r4810254 r7ecfb7b 98 98 void updfpu(void) 99 99 { 100 register int16_t i;101 100 register int16_t *wsp1, *wsp2; 102 101 … … 355 354 { 356 355 register struct instdef *ip; 357 register int16_t *ov, *hv; 358 register int16_t i, j, k, tv; 356 register int16_t *hv; 359 357 register int8_t wsgn; 360 int16_t wval , cwnp, cwin;358 int16_t wval; 361 359 362 360 ip = &vbufs[curvce]; -
ram/wdselbx.c
r4810254 r7ecfb7b 90 90 int16_t wdfnbox(int16_t n) 91 91 { 92 register int16_t wval;93 register int8_t wsgn;94 register int16_t *fpuws;95 96 92 switch (n) { /* switch off of window ID */ 97 93 -
ram/wheel.c
r4810254 r7ecfb7b 727 727 void txstd(void) 728 728 { 729 register int16_t i, oldcx, oldi, txdelta, txcdvr;729 register int16_t oldcx, txdelta, txcdvr; 730 730 731 731 trkball = TRUE; /* set trackball mode */ … … 815 815 void tystd(void) 816 816 { 817 register int16_t i, oldcy, oldi, tydelta, tycdvr;817 register int16_t oldcy, tydelta, tycdvr; 818 818 819 819 trkball = TRUE; /* set trackball mode */ … … 901 901 void curproc(void) 902 902 { 903 register int16_t i,cxprev, cyprev;903 register int16_t cxprev, cyprev; 904 904 int16_t oldcx, oldcy; 905 905 register uint16_t oldi; -
rom/romp.c
r4810254 r7ecfb7b 3267 3267 */ 3268 3268 3269 void rompbp( int32_t d0, int32_t d1, int32_t d2, int32_t d3, int32_t d4, int32_t d5, int32_t d6, int32_t d7, int8_t *a0, int8_t *a1, int8_t *a2, int8_t *a3, int8_t *a4, int8_t *a5, int8_t *a6, int8_t *a7, uint16_t sr0, uint16_t sr, int8_t *pc)3269 void rompbp(uint32_t d0, ...) 3270 3270 { 3271 3271 register int16_t i; 3272 3272 3273 3273 regptr = (struct regs *)&d0; /* make registers accessable */ 3274 pc -= 2L;/* adjust pc */3274 regptr->reg_pc -= 2L; /* adjust pc */ 3275 3275 3276 3276 if (-1 EQ setipl(iplev)) /* enable interrupts */ … … 3287 3287 regptr->a_reg[7] = ISTACK; /* setup initial stack */ 3288 3288 3289 sr = INITSR;/* setup sr */3290 pc += 2L; /* adjust pc past TRAP 15 */3289 regptr->reg_sr = INITSR; /* setup sr */ 3290 regptr->reg_pc += 2L; /* adjust pc past TRAP 15 */ 3291 3291 3292 3292 } else { /* breakpoint */ … … 3296 3296 showrs(regptr); /* show registers */ 3297 3297 3298 if (bphit() EQ FALSE) /* fixup breakpoints */3299 pc += 2L; /* and maybe the pc */3298 if (bphit() EQ FALSE) /* fixup breakpoints */ 3299 regptr->reg_pc += 2L; /* and maybe the pc */ 3300 3300 3301 3301 } … … 3569 3569 GLCcrc(0, 0); 3570 3570 3571 (int8_t *)BIOS(B_SETV, 47, trap15); /* set ROMP trap vec */3571 BIOS(B_SETV, 47, trap15); /* set ROMP trap vec */ 3572 3572 3573 3573 for (i = 0; i < 128; i++) { … … 3592 3592 progid(); /* identify the program */ 3593 3593 3594 (int8_t *)BIOS(B_SETV, 47, trap15); /* set ROMP trap vec */3594 BIOS(B_SETV, 47, trap15); /* set ROMP trap vec */ 3595 3595 writeln(cmdunit, "\r\n\n"); 3596 3596 -
rom/romp.x
r4810254 r7ecfb7b 164 164 extern void puthn(uint32_t num, int16_t cw, int16_t unit); 165 165 extern void putn(uint32_t num, int16_t cw, int16_t unit); 166 extern void rompbp( int32_t d0, int32_t d1, int32_t d2, int32_t d3, int32_t d4, int32_t d5, int32_t d6, int32_t d7, int8_t *a0, int8_t *a1, int8_t *a2, int8_t *a3, int8_t *a4, int8_t *a5, int8_t *a6, int8_t *a7, uint16_t sr0, uint16_t sr, int8_t *pc);166 extern void rompbp(uint32_t d0, ...); 167 167 extern int16_t setp(void *var, void *deflt); 168 168 extern int16_t setvar(int32_t *var, int32_t deflt);
Note:
See TracChangeset
for help on using the changeset viewer.