Changeset 7258c6a in buchla-68k for ram/etioas.c
- Timestamp:
- 07/09/2017 04:45:34 PM (7 years ago)
- Branches:
- master
- Children:
- 8618599
- Parents:
- 0292fbb
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ram/etioas.c
r0292fbb r7258c6a 19 19 #include "scdsp.h" 20 20 21 extern u nsigned fromfpu(unsignedfputime);22 extern u nsigned tofpu(unsignedtime);23 24 extern u nsigned*obj8;25 extern u nsignedcurintp;26 27 extern short ctrsw;28 extern short curasg;29 extern short curtun;30 extern short tmpoval;31 extern short recsw;32 extern short stccol;33 34 extern chardspbuf[];21 extern uint16_t fromfpu(uint16_t fputime); 22 extern uint16_t tofpu(uint16_t time); 23 24 extern uint16_t *obj8; 25 extern uint16_t curintp; 26 27 extern int16_t ctrsw; 28 extern int16_t curasg; 29 extern int16_t curtun; 30 extern int16_t tmpoval; 31 extern int16_t recsw; 32 extern int16_t stccol; 33 34 extern int8_t dspbuf[]; 35 35 36 36 extern struct gdsel *gdstbc[]; … … 52 52 */ 53 53 54 short et_ioas(short n)54 int16_t et_ioas(int16_t n) 55 55 { 56 56 sprintf(ebuf, "%02.2d", curasg); … … 69 69 */ 70 70 71 short ef_ioas(short n)72 { 73 register short ival;71 int16_t ef_ioas(int16_t n) 72 { 73 register int16_t ival; 74 74 register struct s_entry *ep; 75 75 … … 117 117 */ 118 118 119 short rd_ioas(short n)119 int16_t rd_ioas(int16_t n) 120 120 { 121 121 sprintf(dspbuf, "%02.2d", curasg); … … 134 134 */ 135 135 136 short nd_ioas(short n, short k)137 { 138 register short ec;136 int16_t nd_ioas(int16_t n, int16_t k) 137 { 138 register int16_t ec; 139 139 140 140 ec = stccol - cfetp->flcol; … … 165 165 */ 166 166 167 short et_tune(short n)167 int16_t et_tune(int16_t n) 168 168 { 169 169 ebuf[0] = '0' + curtun; … … 183 183 */ 184 184 185 short ef_tune(short n)186 { 187 register short ival;185 int16_t ef_tune(int16_t n) 186 { 187 register int16_t ival; 188 188 register struct s_entry *ep; 189 189 … … 225 225 */ 226 226 227 short rd_tune(short n)227 int16_t rd_tune(int16_t n) 228 228 { 229 229 if (v_regs[5] & 0x0180) … … 241 241 */ 242 242 243 short nd_tune(short n, short k)244 { 245 register short ec;243 int16_t nd_tune(int16_t n, int16_t k) 244 { 245 register int16_t ec; 246 246 247 247 ebuf[0] = k + '0'; … … 271 271 */ 272 272 273 short et_tmpo(short n)273 int16_t et_tmpo(int16_t n) 274 274 { 275 275 sprintf(ebuf, "%03.3d", tmpoval); … … 289 289 */ 290 290 291 short ef_tmpo(short n)292 { 293 register short ival;291 int16_t ef_tmpo(int16_t n) 292 { 293 register int16_t ival; 294 294 register struct s_entry *ep; 295 295 … … 337 337 */ 338 338 339 short rd_tmpo(short n)339 int16_t rd_tmpo(int16_t n) 340 340 { 341 341 sprintf(dspbuf, "%03.3d", tmpoval); … … 355 355 */ 356 356 357 short nd_tmpo(short n, short k)358 { 359 register short ec;357 int16_t nd_tmpo(int16_t n, int16_t k) 358 { 359 register int16_t ec; 360 360 361 361 ec = stccol - cfetp->flcol; … … 387 387 */ 388 388 389 short et_intp(short n)390 { 391 register short th, tl;392 register longtt, sc, sf;389 int16_t et_intp(int16_t n) 390 { 391 register int16_t th, tl; 392 register int32_t tt, sc, sf; 393 393 394 394 sc = 1000L; … … 410 410 */ 411 411 412 short ef_intp(short n)413 { 414 register short i;415 register u nsignedtmpval;412 int16_t ef_intp(int16_t n) 413 { 414 register int16_t i; 415 register uint16_t tmpval; 416 416 register struct s_entry *ep; 417 417 … … 426 426 tmpval = ((tmpval * 10) + (ebuf[3] - '0')) * 100; 427 427 428 if (tmpval > (u nsigned)64900)428 if (tmpval > (uint16_t)64900) 429 429 return(FAILURE); 430 430 … … 468 468 */ 469 469 470 short rd_intp(short n)471 { 472 register short th, tl;473 register longtt, sc, sf;470 int16_t rd_intp(int16_t n) 471 { 472 register int16_t th, tl; 473 register int32_t tt, sc, sf; 474 474 475 475 sc = 1000L; … … 494 494 */ 495 495 496 short nd_intp(short n, short k)497 { 498 register short ec;496 int16_t nd_intp(int16_t n, int16_t k) 497 { 498 register int16_t ec; 499 499 500 500 ec = stccol - cfetp->flcol; /* setup edit buffer column */
Note:
See TracChangeset
for help on using the changeset viewer.