Changeset 7258c6a in buchla-68k for ram/scinit.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/scinit.c
r0292fbb r7258c6a 89 89 */ 90 90 91 extern short sd; /* Scroll direction */92 extern short curasg; /* Current assgnment table */93 extern short tmpoval; /* Current tempo */94 extern short curtun; /* Current tuning table */91 extern int16_t sd; /* Scroll direction */ 92 extern int16_t curasg; /* Current assgnment table */ 93 extern int16_t tmpoval; /* Current tempo */ 94 extern int16_t curtun; /* Current tuning table */ 95 95 96 96 extern BOOL se_chg; /* Score free list changed flag */ 97 97 98 extern longspcount; /* Score storage pool free entry count */99 extern longfrags; /* Score storage pool fragment count */100 101 extern longse1_cnt; /* Score free list E_SIZE1 entry count */102 extern longse2_cnt; /* Score free list E_SIZE2 entry count */103 extern longse3_cnt; /* Score free list E_SIZE3 entry count */104 105 extern long*pspool; /* Score storage pool pointer */98 extern int32_t spcount; /* Score storage pool free entry count */ 99 extern int32_t frags; /* Score storage pool fragment count */ 100 101 extern int32_t se1_cnt; /* Score free list E_SIZE1 entry count */ 102 extern int32_t se2_cnt; /* Score free list E_SIZE2 entry count */ 103 extern int32_t se3_cnt; /* Score free list E_SIZE3 entry count */ 104 105 extern int32_t *pspool; /* Score storage pool pointer */ 106 106 107 107 extern struct s_entry *size1; /* Score E_SIZE1 entry free list pointer */ … … 115 115 extern struct s_time stimes[N_SCORES][N_SECTS]; /* section times */ 116 116 117 extern charscname[N_SCORES][16]; /* Score names */118 119 extern short curscor; /* Current score number */120 extern short cursect; /* Current section number in score */117 extern int8_t scname[N_SCORES][16]; /* Score names */ 118 119 extern int16_t curscor; /* Current score number */ 120 extern int16_t cursect; /* Current section number in score */ 121 121 122 122 extern struct s_entry *scp; /* Current score pointer */ 123 123 124 extern longt_bak; /* Time at p_bak */125 extern longt_cur; /* Time at p_cur */126 extern longt_ctr; /* Time at p_ctr */127 extern longt_fwd; /* Time at p_fwd */124 extern int32_t t_bak; /* Time at p_bak */ 125 extern int32_t t_cur; /* Time at p_cur */ 126 extern int32_t t_ctr; /* Time at p_ctr */ 127 extern int32_t t_fwd; /* Time at p_fwd */ 128 128 129 129 extern struct s_entry *p_bak; /* Pointer to entry at left edge of display */ … … 132 132 extern struct s_entry *p_fwd; /* Pointer to entry at right edge of display */ 133 133 134 extern longspool[]; /* Score storage pool */134 extern int32_t spool[]; /* Score storage pool */ 135 135 136 136 /* … … 144 144 */ 145 145 146 longevleft(void)146 int32_t evleft(void) 147 147 { 148 148 return(spcount + (se1_cnt * E_SIZE1) + (se2_cnt * E_SIZE2) + … … 161 161 */ 162 162 163 longscinit(void)164 { 165 register longi, *cp;163 int32_t scinit(void) 164 { 165 register int32_t i, *cp; 166 166 167 167 se1_cnt = 0L; /* fragments */ … … 174 174 frags = 0L; 175 175 176 spcount = ( long)MAX_SE; /* storage pool */176 spcount = (int32_t)MAX_SE; /* storage pool */ 177 177 pspool = spool; 178 178 cp = spool; … … 298 298 */ 299 299 300 struct s_entry *e_alc( short w)300 struct s_entry *e_alc(int16_t w) 301 301 { 302 302 register struct s_entry *ev, *ex; … … 453 453 */ 454 454 455 short e_del(struct s_entry *e1)455 int16_t e_del(struct s_entry *e1) 456 456 { 457 457 e_clr(e1); … … 499 499 */ 500 500 501 void eh_ins(struct s_entry *ne, short et)501 void eh_ins(struct s_entry *ne, int16_t et) 502 502 { 503 503 register struct s_entry *hp, *ep; … … 553 553 */ 554 554 555 void eh_rmv(struct s_entry *ev, short et)555 void eh_rmv(struct s_entry *ev, int16_t et) 556 556 { 557 557 if (hplist[curscor][et] EQ ev) /* update hplist */ … … 577 577 */ 578 578 579 void sc_clr( short ns)579 void sc_clr(int16_t ns) 580 580 { 581 581 register struct s_entry *dsp, *nsp; 582 register short i;582 register int16_t i; 583 583 584 584 if (E_NULL NE (nsp = scores[ns])) { … … 618 618 */ 619 619 620 short selscor(short ns)621 { 622 register short oldscor, grp;620 int16_t selscor(int16_t ns) 621 { 622 register int16_t oldscor, grp; 623 623 register struct s_entry *nsp, *ep; 624 624
Note:
See TracChangeset
for help on using the changeset viewer.