Changeset fa38804 in buchla-68k


Ignore:
Timestamp:
07/14/2017 04:18:35 PM (5 years ago)
Author:
Thomas Lopatic <thomas@…>
Branches:
master
Children:
ace9ee7
Parents:
1efe224
Message:

Removed form-feed comments.

Files:
181 edited

Legend:

Unmodified
Added
Removed

  • include/asgdsp.h

    r1efe224 rfa38804  
    4141#define AKSTART         19718           /* word offset for keyboard icon */
    4242
    43 /*
    44 
    45 */
    46 
    4743#define AK_CURS         1               /* cursor color */
    4844#define AK_BORD         10              /* display border color */

  • include/biosdefs.h

    r1efe224 rfa38804  
    5555#define MC2_DEV 4
    5656
    57 /*
    58  */
    5957/*
    6058   ============================================================================
    … …  
    8886#define B_FAT16 0x0001          /* flag for using 16 bit FAT entries */
    8987
    90 /*
    91 
    92 */
    93 
    9488/*
    9589   ============================================================================
    … …  
    118112#define F_SUBDIR        0x10    /* Sub-directory */
    119113#define F_ARCHIV        0x20    /* Archived */
    120 
    121 /*
    122 
    123 */
    124114
    125115/*
    … …  
    158148
    159149#define FC_RW   (FC_RD | FC_WR) /* read-write mode */
    160 
    161 /*
    162  */
    163150
    164151/*

  • include/ctype.h

    r1efe224 rfa38804  
    3939*/
    4040
    41 /*
    42 
    43 */
    44 
    4541#pragma once
    4642
    … …  
    5551#define _B      0x40    /* blank */
    5652#define _X      0x80    /* hex digit */
    57 
    58 /*
    59 
    60 */
    6153
    6254#define isascii(c)      (!((c) & ~0x7f))

  • include/instdsp.h

    r1efe224 rfa38804  
    4343#define WSBFC           4               /* color of waveshape B final values */
    4444
    45 /*
    46 
    47 */
    48 
    4945/* ------------- Foreground colors for instrument display windows ----------- */
    5046
    … …  
    7773#define CFBX22  11              /* Variables */
    7874#define CFBX23  11              /* Name and comments */
    79 /*
    80 
    81 */
    8275
    8376/* --------- Background colors for instrument display windows --------------- */
    … …  
    111104#define CBBX22  7               /* Variables */
    112105#define CBBX23  6               /* Name and comments */
    113 
    114 /*
    115 
    116 */
    117106
    118107/* -------------- pendant function list entry structure definition ---------- */
    … …  
    131120};
    132121
    133 /*
    134 
    135 */
    136 
    137122/* -------------- function point structure definitions ---------------------- */
    138123
    … …  
    162147};
    163148
    164 /*
    165 
    166 */
    167 
    168149/* ------------- function header structure definitions ---------------------- */
    169150
    … …  
    191172};
    192173
    193 /*
    194 
    195 */
    196 
    197174/* ---------- instrument definition structure definitions ------------------- */
    198175

  • include/libdsp.h

    r1efe224 rfa38804  
    5454#define LCBBX10         9               /* background color */
    5555
    56 /*
    57 
    58 */
    59 
    6056#define FCMAX           20              /* number of file catalog entries */
    6157
    … …  
    8985#define NLTYPES         8               /* number of load types */
    9086
    91 /*
    92 
    93 */
    94 
    9587struct  scndx {         /* score index */
    9688

  • include/midas.h

    r1efe224 rfa38804  
    5656
    5757#define FN_NULL         0L              /* null for address entries */
    58 
    59 /*
    60 
    61 */
    6258
    6359#define NASGS           100     /* number of assignments in memory */

  • include/patch.h

    r1efe224 rfa38804  
    3333#define PE_SPEC         0x00FF          /* destination mask */
    3434#define PE_TBIT         0x8000          /* DEF triggered bit */
    35 
    36 /*
    37 
    38 */
    3935
    4036/* Patch structure definitions */
    … …  
    7470        uint16_t        seqdat3;        /* action 3 data */
    7571};
    76 
    77 /*
    78 
    79 */
    8072
    8173/* Patch destination types */
    … …  
    122114#define PSO_FRQ         2
    123115#define PSO_PCH         3
    124 
    125 /*
    126 
    127 */
    128116
    129117/* Sequence control flags */

  • include/scdsp.h

    r1efe224 rfa38804  
    2828#define C1X     256                     /* initial arrow cursor position */
    2929#define C1Y     175
    30 
    31 /*
    32 
    33 */
    3430
    3531/* Background colors */
    … …  
    6965
    7066#define SDCURSR         15              /* score cursor - arrow */
    71 
    72 /*
    73 
    74 */
    7567
    7668/* character attributes */

  • include/score.h

    r1efe224 rfa38804  
    2828        int8_t  smpte[10];
    2929};
    30 
    31 /*
    32 
    33 */
    3430
    3531/* score list structures */
    … …  
    6864};
    6965
    70 /*
    71 
    72 */
    73 
    7466/* constant definitions */
    7567
    … …  
    8880#define GS_DSBL         0       /* group status:  off */
    8981#define GS_ENBL         1       /* group status:  on */
    90 
    91 /*
    92 
    93 */
    9482
    9583/* event types  (number in comment field is event size) */
    … …  
    123111#define N_ETYPES        25      /* number of event types (1 + last type code) */
    124112
    125 /*
    126 
    127 */
    128 
    129113/* event header types */
    130114

  • include/stddefs.h

    r1efe224 rfa38804  
    2626#define OR      ||
    2727
    28 /*
    29 
    30 */
    31 
    3228/* manifest constants for function return and flag values */
    3329

  • include/vsdd.h

    r1efe224 rfa38804  
    5353#define C_ULINE 0x0100
    5454
    55 /*
    56 
    57 */
    58 
    5955struct octent {                 /* Object control table entry */
    6056

  • iolib/dofmt.c

    r1efe224 rfa38804  
    6363        int32_t val;
    6464
    65 /*
    66 
    67 */
    68 
    6965        count = 0;
    7066
    … …  
    112108                        break;
    113109                }
    114 
    115 /*
    116 
    117 */
    118110
    119111                if (fcode EQ '*') {
    … …  
    159151                lzero = 0;
    160152
    161 /*
    162 
    163 */
     153
    164154                switch (fcode = *format++) {
    165155
    … …  
    212202                        p = bp = buf + MAXDIGS;
    213203
    214 /*
    215 
    216 */
     204
    217205                        switch (hradix) {
    218206
    … …  
    276264                        break;
    277265
    278 /*
    279 
    280 */
     266
    281267                default:
    282268                        buf[0] = fcode;
    … …  
    309295                }
    310296
    311 /*
    312 
    313 */
     297
    314298                if (lzero < 0)
    315299                        lzero = 0;

  • iolib/mdump.c

    r1efe224 rfa38804  
    2727#define PERLINE 16
    2828
    29 /*
    30 
    31 */
    32 
    3329/*
    3430   =============================================================================
    … …  
    4743                        printf(".");
    4844}
    49 
    50 /*
    51 
    52 */
    5345
    5446/*
    … …  
    10799}
    108100
    109 /*
    110 
    111 */
    112 
    113101#if     TESTER
    114102

  • iolib/rawio.c

    r1efe224 rfa38804  
    3030        ^Z, or buffer full.  Returns the byte that stopped the input,
    3131        or ERR01 for buffer full.
    32 
    33 
    3432
    3533        int
    … …  
    6058*/
    6159
    62 /*
    63  */
    64 
    6560#include "ram.h"
    6661
    … …  
    9691        return(ERR01);  /* buffer full */
    9792}
    98 
    99 /*
    100  */
    10193
    10294int16_t getln(int16_t unit, int16_t nb, int8_t *buf)
    … …  
    142134                        return((int16_t)c);             /* return -- CR or LF hit */
    143135
    144 /*
    145  */
    146 
    147136                case CTL('X'):
    148137
    … …  
    162151}
    163152
    164 /*
    165  */
    166 
    167153int16_t getrln(int16_t unit, int16_t nb, int8_t *buf)
    168154{
    … …  
    205191}
    206192
    207 /*
    208  */
    209 
    210193void writeln(int16_t unit, int8_t *buf)
    211194{

  • lib700/ctype.c

    r1efe224 rfa38804  
    2121#define _UX     _U|_X
    2222#define _LX     _L|_X
    23 
    24 /*
    25 
    26 */
    2723
    2824int8_t __atab[] = {     /* EOF won't work properly with this table */

  • lib700/micons.c

    r1efe224 rfa38804  
    2727
    2828#define TESTER  0       /* define non-zero for a test program */
    29 
    30 /*
    31  */
    3229
    3330/*
    … …  
    6966}
    7067
    71 /*
    72  */
    73 
    7468#if     TESTER
    7569

  • libcio/blkrd.c

    r1efe224 rfa38804  
    2727
    2828#include "ram.h"
    29 
    30 /*
    31 
    32 */
    3329
    3430#if     TBUFFER
    … …  
    9187#endif
    9288
    93 /*
    94 
    95 */
    96 
    9789/*
    9890   =============================================================================

  • libcio/blkwr.c

    r1efe224 rfa38804  
    7676#endif
    7777
    78 /*
    79 
    80 */
    81 
    8278/*
    8379   =============================================================================
    … …  
    137133
    138134                                buf += _thebpb->recsiz;
    139 /*
    140 
    141 */
     135
    142136                        } else if (fcp->curlsn EQ fcp->asects) {
    143137
    … …  
    181175                                buf += _thebpb->recsiz; /* advance buffer pointer */
    182176                        }
    183 /*
    184 
    185 */
     177
    186178                } else {
    187179

  • libcio/close.c

    r1efe224 rfa38804  
    4545}
    4646
    47 /*
    48 
    49 */
    50 
    5147/*
    5248   =============================================================================
    … …  
    8581}
    8682
    87 /*
    88 
    89 */
    90 
    9183/*
    9284   =============================================================================

  • libcio/clusmap.c

    r1efe224 rfa38804  
    3030        "EOF"   /* D15 - 8000 */
    3131};
    32 
    33 /*
    34 
    35 */
    3632
    3733static  int8_t  *dfname[] = {
    … …  
    5955};
    6056
    61 /*
    62 
    63 */
    64 
    65 /*
    66 
    67 */
    68 
    6957/*
    7058   =============================================================================
    … …  
    132120}
    133121
    134 /*
    135 
    136 */
    137 
    138122/*
    139123   =============================================================================
    … …  
    173157        return(fcp);
    174158}
    175 
    176 
    177 /*
    178 
    179 */
    180159
    181160/*
    … …  
    213192}
    214193
    215 /*
    216 
    217 */
    218 
    219194/*
    220195   =============================================================================
    … …  
    247222}
    248223
    249 /*
    250 
    251 */
    252 
    253224/*
    254225   =============================================================================
    … …  
    276247        return(fp);
    277248}
    278 
    279 /*
    280 
    281 */
    282249
    283250/*
    … …  
    339306}
    340307
    341 /*
    342 
    343 */
    344 
    345308/*
    346309   =============================================================================

  • libcio/dirfns.c

    r1efe224 rfa38804  
    3636}
    3737
    38 /*
    39  */
    40 
    4138static int8_t *mnames[] = {
    4239
    … …  
    6663        return((n < 1 || n > 12) ? mnames[0] : mnames[n]);
    6764}
    68 
    69 /*
    70  */
    7165
    7266/*
    … …  
    114108                break;
    115109
    116 /*
    117  */
    118 
    119110        case 2:         /* mmm dd yyyy hh:mm format */
    120111

  • libcio/filesys.c

    r1efe224 rfa38804  
    4040int32_t _berrno;                        /* BIOS error number */
    4141
    42 /*
    43 
    44 */
    45 
    46 
    4742/*
    4843   =============================================================================
    … …  
    7974}
    8075
    81 /*
    82 
    83 */
    84 
    8576/*
    8677   =============================================================================
    … …  
    9788        return(BIOS(B_RDWR, 0, (int8_t *)bufad, bpp->fsiz, fatsec, 0));
    9889}
    99 
    100 /*
    101 
    102 */
    10390
    10491/*
    … …  
    135122}
    136123
    137 /*
    138 
    139 */
    140 
    141124/*
    142125   =============================================================================
    … …  
    171154                return(IO_EOF);
    172155        }
    173 /*
    174 
    175 */
     156
    176157        /* update clsec and curlsn and see if we need a new cluster */
    177158
    … …  
    216197                return(IO_EOF);
    217198
    218 /*
    219 
    220 */
    221 
    222199        } else {
    223200
    … …  
    234211}
    235212
    236 /*
    237 
    238 */
    239 
    240213/*
    241214   =============================================================================
    … …  
    271244}
    272245
    273 /*
    274 
    275 */
    276 
    277246/*
    278247   =============================================================================
    … …  
    307276        return(DE_NULL);        /* couldn't find an available entry */
    308277}
    309 
    310 /*
    311 
    312 */
    313278
    314279/*
    … …  
    330295}
    331296
    332 /*
    333 
    334 */
    335 
    336297/*
    337298   =============================================================================
    … …  
    370331        fcp->modefl &= ~FC_EOF;                 /* turn off the EOF flag */
    371332
    372 /*
    373 
    374 */
    375 
    376333#if DEBUGIT
    377334        if (fsdebug) {
    … …  
    398355        }
    399356
    400 /*
    401 
    402 */
     357
    403358        for (nc = 0; nc < rcls; nc++) {         /* follow the FAT chain */
    404359
    … …  
    437392}
    438393
    439 /*
    440 
    441 */
    442 
    443394/*
    444395   =============================================================================
    … …  
    477428                acls = ncls;                    /* point at the next one */
    478429        }
    479 
    480 /*
    481 
    482 */
    483430
    484431        dp->flen = 0L;                          /* file length = 0 */
    … …  
    501448}
    502449
    503 /*
    504 
    505 */
    506 
    507450/*
    508451   =============================================================================
    … …  
    524467}
    525468
    526 /*
    527 
    528 */
    529 
    530469/*
    531470   =============================================================================
    … …  
    570509                        pc = ac;
    571510                }
    572 
    573 /*
    574 
    575 */
    576511
    577512#if     DEBUGIT
    … …  
    614549        }
    615550}
    616 
    617 /*
    618 
    619 */
    620551
    621552/*
    … …  
    640571}
    641572
    642 /*
    643 
    644 */
    645 
    646573/*
    647574   =============================================================================
    … …  
    706633                _fatmod = FALSE;
    707634        }
    708 /*
    709 
    710 */
     635
    711636        if (!_dirin) {          /* access the root directory */
    712637
    … …  
    723648        return(SUCCESS);
    724649}
    725 
    726 /*
    727 
    728 */
    729650
    730651/*
    … …  
    774695                }
    775696
    776 /*
    777 
    778 */
    779 
    780697        } else {
    781698
    … …  
    810727                        return(IO_ERR);
    811728                }
    812 
    813 /*
    814 
    815 */
    816729
    817730                /* truncate the file if requested */
    … …  
    866779}
    867780
    868 /*
    869 
    870 */
    871 
    872781/*
    873782   =============================================================================
    … …  
    893802                return(FAILURE);
    894803
    895 /*
    896 
    897 */
     804
    898805        /* check the file name for length */
    899806
    … …  
    926833                return(FAILURE);
    927834
    928 /*
    929 
    930 */
     835
    931836        /* clear the file name and extension in the FCB to blanks */
    932837
    … …  
    963868        }
    964869
    965 /*
    966 
    967 */
    968 
    969870        /* set the flags in the FCB and exit */
    970871
    … …  
    999900}
    1000901
    1001 /*
    1002 
    1003 */
    1004 
    1005902/*
    1006903   =============================================================================
    … …  
    1043940
    1044941                                }
    1045 
    1046 /*
    1047 
    1048 */
    1049942
    1050943                        } else {
    … …  
    1079972}
    1080973
    1081 /*
    1082 
    1083 */
    1084 
    1085974/*
    1086975   =============================================================================
    … …  
    11291018}
    11301019
    1131 /*
    1132 
    1133 */
    1134 
    11351020/*
    11361021   =============================================================================

  • libcio/filname.c

    r1efe224 rfa38804  
    4747}
    4848
    49 /*
    50 
    51 */
    52 
    5349/*
    5450   =============================================================================
    … …  
    9894}
    9995
    100 /*
    101 
    102 */
    103 
    10496#if     TESTER
    10597

  • libcio/fopen.c

    r1efe224 rfa38804  
    6161}
    6262
    63 /*
    64 
    65 */
    66 
    6763FILE *fopen(int8_t *name, int8_t *mode)
    6864{

  • libcio/fsinit.c

    r1efe224 rfa38804  
    3232
    3333#endif
    34 
    35 /*
    36 
    37 */
    3834
    3935/*
    … …  
    8379}
    8480
    85 /*
    86 
    87 */
    88 
    8981/*
    9082   ============================================================================
    … …  
    119111        fp->_buflen = bufsize;
    120112};
    121 
    122 /*
    123 
    124 */
    125113
    126114/*

  • libcio/fsize.c

    r1efe224 rfa38804  
    4747}
    4848
    49 /*
    50 
    51 */
    52 
    5349/*
    5450   =============================================================================

  • libcio/lseek.c

    r1efe224 rfa38804  
    5454                return(-1L);
    5555        }
    56 /*
    5756
    58 */
    5957        if (pos < 0) {                          /* trap seeks before BOF */
    6058

  • libcio/open.c

    r1efe224 rfa38804  
    2424        {      0, &filedev,      NULL }         /* this MUST be the last entry */
    2525};
    26 
    27 /*
    28 
    29 */
    3026
    3127/*
    … …  
    5450        return(FAILURE);
    5551
    56 /*
    57 
    58 */
    59 
    6052fndchan:        /* found a channel to use */
    6153
    … …  
    10193}
    10294
    103 /*
    104 
    105 */
    106 
    10795/*
    10896   =============================================================================
    … …  
    132120        return(open(name, flag|O_RAW, mode));
    133121}
    134 
    135 /*
    136 
    137 */
    138122
    139123/*
    … …  
    152136}
    153137
    154 /*
    155 
    156 */
    157 
    158138/*
    159139   =============================================================================
    … …  
    186166}
    187167
    188 /*
    189 
    190 */
    191 
    192168/*
    193169   =============================================================================

  • libcio/putc.c

    r1efe224 rfa38804  
    2727        (*cls_rtn)();           /* do final closeout */
    2828}
    29 
    30 /*
    31 
    32 */
    3329
    3430/*
    … …  
    8682}
    8783
    88 /*
    89 
    90 */
    91 
    9284/*
    9385   ============================================================================
    … …  
    131123}
    132124
    133 /*
    134 
    135 */
    136 
    137125/*
    138126   ============================================================================

  • libcio/read.c

    r1efe224 rfa38804  
    4545};
    4646
    47 /*
    48 
    49 */
    50 
    5147/*
    5248   =============================================================================
    … …  
    6965        return((*t_read[chp->c_read])(chp->c_arg, buff, len));  /* do the read */
    7066}
    71 
    72 /*
    73 
    74 */
    7567
    7668/*
    … …  
    9890        return(SUCCESS);                        /* return:  all bytes read */
    9991}
    100 
    101 /*
    102 
    103 */
    10492
    10593/*

  • libcio/scan.c

    r1efe224 rfa38804  
    1414static int8_t quit;
    1515
    16 /*
    17 
    18 */
    19 
    2016static int32_t getnum(int8_t *list, int8_t *values, int16_t base)
    2117{
    … …  
    5854}
    5955
    60 /*
    61 
    62 */
    63 
    6456static int16_t skipblk(void)
    6557{
    … …  
    9082        return(EOF);
    9183}
    92 
    93 /*
    94 
    95 */
    9684
    9785int16_t scanfmt(int16_t (*getsub)(int16_t what), int8_t *fmt, int16_t **args)
    … …  
    114102        };
    115103
    116 /*
    117 
    118 */
     104
    119105        count = 0;
    120106        gsub = getsub;
    … …  
    149135                        }
    150136       
    151 /*
    152 
    153 */
     137
    154138                        switch (*fmt++) {
    155139
    … …  
    201185
    202186                                break;
    203 /*
    204 
    205 */
    206187
    207188#ifdef FLOAT
    … …  
    228209                                break;
    229210#endif
    230 
    231 /*
    232 
    233 */
    234211
    235212                        case '[':
    … …  
    285262
    286263                                break;
    287 /*
    288 
    289 */
     264
    290265                        case 'c':
    291266                                if ((c = (*gsub)(0)) EQ EOF)
    … …  
    324299        return(count);
    325300}
    326 
    327 /*
    328 
    329 */
    330301
    331302#ifdef FLOAT
    … …  
    371342#endif
    372343
    373 /*
    374 
    375 */
    376 
    377344int16_t sscanf(int8_t *string, int8_t *fmt, int16_t *args)
    378345{

  • libcio/write.c

    r1efe224 rfa38804  
    1919};
    2020
    21 /*
    22 
    23 */
    24 
    2521/*
    2622   ============================================================================
    … …  
    8884        return(SUCCESS);
    8985}
    90 
    91 /*
    92 
    93 */
    9486
    9587/*
    … …  
    177169                l += k * BPSEC;         /* update amount written */
    178170        }
    179 /*
    180 
    181 */
     171
    182172        if (l < len) {                  /* write out partial sector at end */
    183173
    … …  
    208198        return(len);
    209199}
    210 
    211 /*
    212 
    213 */
    214200
    215201/*

  • prolog/croot.c

    r1efe224 rfa38804  
    2323void (*_clsall)(void);
    2424
    25 /*
    26 
    27 */
    28 
    2925static  int16_t Argc;
    3026static  int8_t  *Argv[MAXARGS];
    31 
    32 /*
    33 
    34 */
    3527
    3628/*
    … …  
    6961
    7062#endif
    71 
    72 /*
    73 
    74 */
    7563
    7664/*

  • ram/addfpu.c

    r1efe224 rfa38804  
    99
    1010#define MAXSEGT         32767
    11 
    12 /*
    13 
    14 */
    1511
    1612/*
    … …  
    4238}
    4339
    44 /*
    45 
    46 */
    47 
    4840/*
    4941   =============================================================================

  • ram/adfield.c

    r1efe224 rfa38804  
    77
    88#include "ram.h"
    9 
    10 /*
    11 
    12 */
    139
    1410struct  fet     ad_fet1[] = {           /* field definitions */
    … …  
    10197};
    10298
    103 /*
    104 
    105 */
    106 
    10799int16_t adbox[][8] = {          /* display box parameters */
    108100
    … …  
    134126        "PhaseShift"                    /* 10 */
    135127};
    136 
    137 /*
    138 
    139 */
    140128
    141129struct curpak ad_flds = {
    … …  
    164152};
    165153
    166 /*
    167 
    168 */
    169 
    170154/*
    171155   =============================================================================
    … …  
    224208}
    225209
    226 /*
    227 
    228 */
    229 
    230210/*
    231211   =============================================================================
    … …  
    269249
    270250                                break;
    271 /*
    272 
    273 */
     251
    274252                        case 4:         /* voice to group */
    275253
    … …  
    310288
    311289                                break;
    312 /*
    313 
    314 */
     290
    315291                        case 6:         /* port or channel */
    316292
    … …  
    342318                                        modasg();
    343319                                        return; /* SUCCESS */
    344 /*
    345 
    346 */
     320
    347321                                } else if (col EQ 59) {
    348322
    … …  
    379353}
    380354
    381 /*
    382 
    383 */
    384 
    385355/*
    386356   =============================================================================

  • ram/adselbx.c

    r1efe224 rfa38804  
    1313#define ATWCOL  1               /* typewriter column */
    1414#define ATDECOL 1               /* data entry base column */
    15 
    16 /*
    17 
    18 */
    1915
    2016struct  selbox  adboxes[] = {
    … …  
    3531};
    3632
    37 /*
    38 
    39 */
    40 
    4133/*
    4234   =============================================================================
    … …  
    5648}
    5749
    58 /*
    59 
    60 */
    61 
    6250/*
    6351   =============================================================================
    … …  
    7462}
    7563
    76 /*
    77 
    78 */
    79 
    8064/*
    8165   =============================================================================
    … …  
    138122        admctl = n;             /* set new menu type */
    139123}
    140 
    141 /*
    142 
    143 */
    144124
    145125/*
    … …  
    202182                                }
    203183                        }
    204 /*
    205 
    206 */
     184
    207185                } else {                /* setup the typewriter */
    208186
    … …  
    245223
    246224                return(SUCCESS);
    247 /*
    248 
    249 */
     225
    250226        case 1:
    251227
    … …  
    292268                        return(entbh(-1));
    293269                }
    294 /*
    295 
    296 */
     270
    297271        case 6:         /* instruments, groups, ports, channels */
    298272
    … …  
    331305
    332306                        return(SUCCESS);
    333 /*
    334 
    335 */
     307
    336308                } else if (col EQ 52) {         /* groups 7..12 */
    337309
    … …  
    361333                        return(entbh(-1));      /* data entry */
    362334                }
    363 /*
    364 
    365 */
     335
    366336        case 7:         /* assignment map */
    367337
    … …  
    413383                                asghit = 0;
    414384                        }
    415 /*
    416 
    417 */
     385
    418386                } else {
    419387

  • ram/asgdsp.c

    r1efe224 rfa38804  
    3939#define AKW_E   0x0FFF
    4040#define AKW_F   0xFFFF
    41 
    42 /*
    43 
    44 */
    4541
    4642int8_t  *gprep[] = {" ", "1", "2", "L"};
    … …  
    8076};
    8177
    82 /*
    83 
    84 */
    85 
    8678uint16_t        asgkbtp[AK_WIDTH] = {           /* keyboard icon top lines */
    8779
    … …  
    121113};
    122114
    123 /*
    124 
    125 */
    126 
    127115uint16_t        asgkbbt[AK_WIDTH] = {           /* keyboard icon bottom lines */
    128116
    … …  
    161149        AKW_D, AKW_F, AKW_E
    162150};
    163 
    164 /*
    165 
    166 */
    167151
    168152int16_t asgpal[16][3] = {       /* assignment editor color palette */
    … …  
    200184};
    201185
    202 /*
    203 
    204 */
    205 
    206186/*
    207187   =============================================================================
    … …  
    252232}
    253233
    254 /*
    255 
    256 */
    257 
    258234/*
    259235   =============================================================================
    … …  
    276252        }
    277253}
    278 
    279 /*
    280 
    281 */
    282254
    283255/*
    … …  
    325297        memsetw(p, akline, AK_WIDTH);
    326298}
    327 
    328 /*
    329 
    330 */
    331299
    332300/*
    … …  
    379347}
    380348
    381 /*
    382 
    383 */
    384 
    385349/*
    386350   =============================================================================
    … …  
    416380        }
    417381}
    418 
    419 /*
    420 
    421 */
    422382
    423383/*
    … …  
    450410                adbxlb[n], 14);
    451411
    452 /*
    453 
    454 */
     412
    455413        switch (n) {    /* final text - overlays above stuff */
    456414
    … …  
    481439
    482440                return;
    483 /*
    484 
    485 */
     441
    486442        case 4:         /* groups to voices */
    487443
    … …  
    523479
    524480                return;
    525 /*
    526 
    527 */
     481
    528482        case 5:         /* MIDI controller number assignments */
    529483
    … …  
    568522
    569523                return;
    570 /*
    571 
    572 */
     524
    573525        case 6:         /* instruments, dynamics, MIDI ports and channels to groups */
    574526
    … …  
    613565                        CTOX(62) + 7, RTOY(3) + 13, adbox[n][4]);
    614566
    615 /*
    616 
    617 */
     567
    618568                for (i = 0; i < 6; i++) {
    619569
    … …  
    651601
    652602                return;
    653 /*
    654 
    655 */
     603
    656604        case 7:         /* port 1 key to group assignments */
    657605
    … …  
    701649        }
    702650}
    703 
    704 /*
    705 
    706 */
    707651
    708652/*
    … …  
    758702}
    759703
    760 /*
    761 
    762 */
    763 
    764704/*
    765705   =============================================================================
    … …  
    785725        *(psg + PSG_WRIT) = psgdata | (aux ? 0 : AUX_BIT);
    786726}
    787 
    788 /*
    789 
    790 */
    791727
    792728/*
    … …  
    839775        asgmod = FALSE;
    840776}
    841 
    842 /*
    843 
    844 */
    845777
    846778/*
    … …  
    876808}
    877809
    878 /*
    879 
    880 */
    881 
    882810/*
    883811   =============================================================================
    … …  
    910838        prgchan = 1;
    911839}
    912 
    913 /*
    914 
    915 */
    916840
    917841/*
    … …  
    942866}
    943867
    944 /*
    945 
    946 */
    947 
    948868/*
    949869   =============================================================================

  • ram/asgvce.c

    r1efe224 rfa38804  
    1111
    1212#include "ram.h"
    13 
    14 /*
    15 
    16 */
    1713
    1814/*
    … …  
    4339        DB_EXIT("clrnl");
    4440}
    45 
    46 /*
    47 
    48 */
    4941
    5042/*
    … …  
    8072        if (se EQ D_BAK)
    8173                chgsef();
    82 /*
    83 
    84 */
     74
    8575        nn = trg & 0x007F;              /* note number */
    8676
    … …  
    113103                DB_EXIT("ne_end");
    114104                return;
    115 /*
    116 
    117 */
     105
    118106        } else if (nkdown GE 1) {       /* process note entry in step mode */
    119107
    … …  
    160148                                        DB_CMNT("ne_end - no space");
    161149                                }
    162 /*
    163 
    164 */
     150
    165151                                DB_CMNT("ne_end - freeing nevent");
    166152                                nx = nelist->nxt;       /* get next nelist ptr */
    … …  
    197183        DB_EXIT("ne_end");
    198184}
    199 
    200 /*
    201 
    202 */
    203185
    204186/*
    … …  
    256238                        }
    257239                }
    258 /*
    259 
    260 */
     240
    261241                if (E_NULL NE (ep = (struct n_entry *)e_alc(E_SIZE1))) {
    262242
    … …  
    288268}
    289269
    290 /*
    291 
    292 */
    293 
    294270/*
    295271   =============================================================================
    … …  
    311287        vputs(obj8, 5, (g * 5) + 6, buf, SDW11ATR);
    312288}
    313 
    314 /*
    315 
    316 */
    317289
    318290/*
    … …  
    338310        vp  = (vp > 11) ? 0 : vp;               /* ... (adjust into range) */
    339311
    340 /*
    341 
    342 */
    343 
    344312        DB_CMNT("asgvce - search unassgined");
    345313

  • ram/barbadj.c

    r1efe224 rfa38804  
    4141
    4242#include "glcbars.h"            /* bar graph driver constant definitions */
    43 
    44 /*
    45 
    46 */
    4743
    4844/*
    … …  
    9288                                LCD_WD = bardot;
    9389                }
    94 /*
    95 
    96 */
     90
    9791        } else {                /* decreasing value */
    9892
    … …  
    125119        BarBcur[bar] = newbar;          /* update current bar position */
    126120}
    127 
    128 /*
    129 
    130 */
    131121
    132122/*
    … …  
    179169}
    180170
    181 /*
    182 
    183 */
    184 
    185171/*
    186172   =============================================================================
    … …  
    210196        baradr = barcol + (85 * (63 - curbar)) + G_PLANE2;
    211197
    212 /*
    213 
    214 */
     198
    215199        if (newbar > curbar) {  /* increasing value */
    216200
    … …  
    236220                        ++baradr;               /* update GLC start address */
    237221                }
    238 /*
    239 
    240 */
     222
    241223        } else {                /* decreasing value */
    242224
    … …  
    270252}
    271253
    272 /*
    273 
    274 */
    275 
    276254/*
    277255   =============================================================================
    … …  
    308286        LCD_WC = G_CRSMUP;              /* set cursor motion "up" */
    309287
    310 /*
    311 
    312 */
     288
    313289        for (i = 0; i < 3; i++) {       /* for each bar column ... */
    314290

  • ram/chksec.c

    r1efe224 rfa38804  
    3939};
    4040
    41 /*
    42 
    43 */
    44 
    4541int8_t  cmgtags[N_ETYPES] = {   /* score event group sensitivity tags */
    4642
    … …  
    7268};
    7369
    74 /*
    75 
    76 */
    77 
    7870int8_t  cmgtype[N_ETYPES] = {   /* score event group types for copy / merge */
    7971
    … …  
    10597};
    10698
    107 /*
    108 
    109 */
    110 
    11199int16_t ehdlist[N_ETYPES] = {           /* hplist update type table */
    112100
    … …  
    138126};
    139127
    140 /*
    141 
    142 */
    143 
    144128/*
    145129   =============================================================================
    … …  
    184168}
    185169
    186 /*
    187 
    188 */
    189 
    190170/*
    191171   =============================================================================
    … …  
    229209}
    230210
    231 /*
    232 
    233 */
    234 
    235211/*
    236212   =============================================================================
    … …  
    263239}
    264240
    265 /*
    266 
    267 */
    268 
    269241/*
    270242   =============================================================================
    … …  
    298270        t_sbgn = p_sbgn->e_time;                /* save section start time */
    299271
    300 /*
    301 
    302 */
     272
    303273        /* find section end by scanning hplist */
    304274
    … …  
    335305        return(0);
    336306}
    337 
    338 /*
    339 
    340 */
    341307
    342308/*
    … …  
    384350}
    385351
    386 /*
    387 
    388 */
    389 
    390352/*
    391353   =============================================================================
    … …  
    412374        DB_EXIT("edelta");
    413375}
    414 
    415 /*
    416 
    417 */
    418376
    419377/*
    … …  
    447405        sat = sbp->e_time - btime;      /* get section adjust time */
    448406        sbp = sbp->e_fwd;               /* advance to first event to copy */
    449 
    450 /*
    451 
    452 */
    453407
    454408        /* copy up to section end */
    … …  
    512466                        }
    513467
    514 /*
    515 
    516 */
     468
    517469                        if (ep) {       /* if copy started */
    518470
    … …  
    548500}
    549501
    550 /*
    551 
    552 */
    553 
    554502/*
    555503   =============================================================================

  • ram/cminit.c

    r1efe224 rfa38804  
    2626
    2727int8_t  QQstr[CM_MXSTR];        /* parser string result */
    28 
    29 /*
    30 
    31 */
    3228
    3329/*
    … …  
    5652}
    5753
    58 /*
    59 
    60 */
    61 
    6254/*
    6355   =============================================================================
    … …  
    7668        return(QQsw = TRUE);
    7769}
    78 
    79 /*
    80 
    81 */
    8270
    8371/*
    … …  
    11098}
    11199
    112 /*
    113 
    114 */
    115 
    116100/*
    117101   =============================================================================
    … …  
    143127        return(QQsw = TRUE);
    144128}
    145 
    146 /*
    147 
    148 */
    149129
    150130/*
    … …  
    189169}
    190170
    191 /*
    192 
    193 */
    194 
    195171/*
    196172   =============================================================================
    … …  
    236212}
    237213
    238 /*
    239 
    240 */
    241 
    242214/*
    243215   =============================================================================
    … …  
    264236        return(QQsw = TRUE);
    265237}
    266 
    267 /*
    268 
    269 */
    270238
    271239/*
    … …  
    304272}
    305273
    306 /*
    307 
    308 */
    309 
    310274/*
    311275   =============================================================================
    … …  
    343307        return(QQsw = FALSE);
    344308}
    345 
    346 /*
    347 
    348 */
    349309
    350310/*

  • ram/ctcpos.c

    r1efe224 rfa38804  
    1212int16_t mtcoldc;                        /* previous cursor column location */
    1313int16_t mtcoldr;                        /* previous cursor row location */
    14 
    15 /*
    16 
    17 */
    1814
    1915/*
    … …  
    4440        stccol = col;
    4541}
    46 
    47 /*
    48 
    49 */
    5042
    5143/*
    … …  
    8375        }
    8476}
    85 
    86 /*
    87 
    88 */
    8977
    9078/*

  • ram/curset.c

    r1efe224 rfa38804  
    2525
    2626int16_t trkonly = FALSE;                /* set TRUE to force use of trackball */
    27 
    28 /*
    29 
    30 */
    3127
    3228#if     DEBUGIT
    … …  
    6763#endif
    6864
    69 /*
    70 
    71 */
    72 
    7365/*
    7466   =============================================================================
    … …  
    10799}
    108100
    109 /*
    110 
    111 */
    112 
    113101/*
    114102   =============================================================================
    … …  
    149137        return(submenu ? CT_MENU : CT_SMTH);
    150138}
    151 
    152 /*
    153 
    154 */
    155139
    156140/*
    … …  
    206190#endif
    207191
    208 /*
    209 
    210 */
     192
    211193        if (cmtype EQ CT_GRAF) {        /* graphics */
    212194

  • ram/dbentr.c

    r1efe224 rfa38804  
    4343        int16_t tag;
    4444};
    45 
    46 /*
    47 
    48 */
    4945
    5046int16_t DB_In;                          /* debug buffer 'in' pointer */
    … …  
    6662};
    6763
    68 /*
    69 
    70 */
    71 
    7264/*
    7365   =============================================================================
    … …  
    9486        }
    9587}
    96 
    97 /*
    98 
    99 */
    10088
    10189/*
    … …  
    127115}
    128116
    129 /*
    130 
    131 */
    132 
    133117/*
    134118   =============================================================================
    … …  
    154138}
    155139
    156 /*
    157 
    158 */
    159 
    160140/*
    161141   =============================================================================
    … …  
    181161}
    182162
    183 /*
    184 
    185 */
    186 
    187163/*
    188164   =============================================================================
    … …  
    232208                return;
    233209        }
    234 /*
    235 
    236 */
     210
    237211        printf("Debug trace level = %ld\n\n", DB_Levl);
    238212

  • ram/dcopy.c

    r1efe224 rfa38804  
    5656        }
    5757
    58 /*
    5958
    60 */
    6159        /* write program header to disk */
    6260

  • ram/dec2fr.c

    r1efe224 rfa38804  
    2828           12L,     6L,     3L,     1L
    2929};
    30 
    31 /*
    32 
    33 */
    3430
    3531/*
    … …  
    6864                }
    6965
    70 /*
    71 
    72 */
    73 
    7466        } else if (s[0] EQ '0') {
    7567
    … …  
    9183        return(0xFFFF); /* ERROR */
    9284}
    93 
    94 /*
    95 
    96 */
    9785
    9886/*
    … …  
    143131        return(s);
    144132}
    145 
    146 /*
    147 
    148 */
    149133
    150134#if TESTER

  • ram/delnote.c

    r1efe224 rfa38804  
    99
    1010#define TO_LFT          (TO_BAK + 1)
    11 
    12 /*
    13 
    14 */
    1511
    1612/*
    … …  
    4339        cp      = (struct n_entry *)frfind(ctime, 0);
    4440
    45 /*
    46 
    47 */
     41
    4842        while (cflag--) {       /* handle both naturals and accidentals */
    4943
    … …  
    6660                                        runtag = FALSE;
    6761                                        continue;
    68 /*
    69 
    70 */
     62
    7163                                } else if ((bp->e_type EQ EV_NEND) AND
    7264                                    (bp->e_note EQ tnote) AND
    … …  
    7769                                        runtag = FALSE;
    7870                                        continue;
    79 /*
    80 
    81 */
    8271
    8372                                } else if ((bp->e_type EQ EV_NBEG) AND
    … …  
    10392                                                                runtag  = FALSE;
    10493                                                                continue;
    105 /*
    106 
    107 */
    10894
    10995                                                } else if ((ep->e_type EQ EV_NEND) AND
    … …  
    131117
    132118                                                        e_del(e_rmv(ep));
    133 /*
    134 
    135 */
    136119
    137120                                                        /* delete note begin */
    … …  
    158141                                                        scantag = FALSE;
    159142                                                        continue;
    160 /*
    161 
    162 */
    163143
    164144                                                } else if (ep->e_type EQ EV_FINI) {
    … …  
    198178
    199179                                }       /* end if */
    200 /*
    201 
    202 */
    203180
    204181                                /* scan left */
    … …  
    219196        }       /* end while (cflag) */
    220197
    221 
    222 /*
    223 
    224 */
    225 
    226198notnote:        /* jumped to if pix2mid() returned FAILURE (not on a note) */
    227199

  • ram/delpnts.c

    r1efe224 rfa38804  
    1717short   debugdf = 1;
    1818#endif
    19 
    20 /*
    21 
    22 */
    2319
    2420/*
    … …  
    8884#endif
    8985
    90 /*
    91 
    92 */
     86
    9387        oldi = setipl(FPU_DI);          /* +++++ disable FPU interrupts +++++ */
    9488
    … …  
    132126                edfunc(curfunc);        /* set new current point */
    133127                subj -= 1;
    134 /*
    135 
    136 */
     128
    137129        } else {                        /* deleting all points */
    138130
    … …  
    185177        }
    186178
    187 /*
    188 
    189 */
     179
    190180#if     DEBUGIT
    191181        if (debugsw AND debugdf) {
    … …  
    212202        return(SUCCESS);
    213203}
    214 
    215 /*
    216 
    217 */
    218204
    219205/*
    … …  
    247233#endif
    248234
    249 /*
    250 
    251 */
     235
    252236        oldi = setipl(FPU_DI);          /* disable FPU interrupts */
    253237

  • ram/dformat.c

    r1efe224 rfa38804  
    1212#define DF_FSIZ         5               /* FAT size */
    1313#define DF_DSIZ         7               /* directory size */
    14 
    15 /*
    16 
    17 */
    1814
    1915/*

  • ram/dopatch.c

    r1efe224 rfa38804  
    2020uint16_t        seqdupd;                /* sequence display update flag */
    2121int8_t  ledstat[24];                    /* LED status */
    22 
    23 /*
    24 
    25 */
    2622
    2723int16_t frq2par[] = {1, 3, 5, 7};                       /* Frq to par */
    … …  
    6864};
    6965
    70 /*
    71 
    72 */
    73 
    7466/*
    7567   =============================================================================
    … …  
    112104        }
    113105}
    114 
    115 /*
    116 
    117 */
    118106
    119107/*
    … …  
    164152}
    165153
    166 /*
    167 
    168 */
    169 
    170154/*
    171155   =============================================================================
    … …  
    182166        setoval(ip, osc, dat2 >> 1);
    183167}
    184 
    185 /*
    186 
    187 */
    188168
    189169/*
    … …  
    230210                trig = 0x007F &  suba;                  /* trigger */
    231211        }
    232 /*
    233 
    234 */
     212
    235213        switch (spec) {         /* dispatch on destination */
    236214
    … …  
    295273
    296274                break;
    297 /*
    298 
    299 */
     275
    300276        case PA_LED:            /* LED control */
    301277
    … …  
    369345                seqdupd |= (1 << suba);
    370346                break;
    371 /*
    372 
    373 */
     347
    374348        case PA_TUNE:           /* tuning table */
    375349
    … …  
    413387
    414388                break;
    415 /*
    416 
    417 */
    418389
    419390        case PA_OSC:            /* oscillator control */
    … …  
    431402
    432403                break;
    433 /*
    434 
    435 */
     404
    436405        case PA_WAVA:           /* waveshape A select */
    437406
    … …  
    481450
    482451                break;
    483 /*
    484 
    485 */
     452
    486453        case PA_LEVL:           /* level */
    487454
    … …  
    513480
    514481                break;
    515 /*
    516 
    517 */
     482
    518483        case PA_FREQ:           /* frequency */
    519484
    … …  
    545510
    546511                break;
    547 /*
    548 
    549 */
     512
    550513        case PA_FILQ:           /* filter resonance */
    551514
    … …  
    577540
    578541                break;
    579 /*
    580 
    581 */
     542
    582543        case PA_DYNM:           /* dynamics */
    583544

  • ram/enterit.c

    r1efe224 rfa38804  
    1818int16_t LastRow = -1;
    1919int16_t LastCol = -1;
    20 
    21 /*
    22 
    23 */
    2420
    2521/*
    … …  
    5753}
    5854
    59 /*
    60 
    61 */
    62 
    6355/*
    6456   =============================================================================
    … …  
    7163}
    7264
    73 /*
    74 
    75 */
    76 
    7765/*
    7866   =============================================================================
    … …  
    8573}
    8674
    87 /*
    88 
    89 */
    90 
    9175/*
    9276   =============================================================================
    … …  
    9983        return(SUCCESS);
    10084}
    101 
    102 /*
    103 
    104 */
    10585
    10686/*
    … …  
    11595        return(SUCCESS);
    11696}
    117 
    118 /*
    119 
    120 */
    12197
    12298/*
    … …  
    172148                break;
    173149
    174 /*
    175 
    176 */
     150
    177151        case CT_TEXT:                           /* TEXT CURSOR */
    178152
    … …  
    223197        (*pstmove)();                           /* handle POST-MOVE functions */
    224198}
    225 
    226 /*
    227 
    228 */
    229199
    230200/*
    … …  
    257227}
    258228
    259 /*
    260 
    261 */
    262 
    263229/*
    264230   =============================================================================
    … …  
    289255        return(cs ? -cratey[cv] : cratey[cv]);
    290256}
    291 
    292 /*
    293 
    294 */
    295257
    296258/*
    … …  
    344306}
    345307
    346 /*
    347 
    348 */
    349 
    350308/*
    351309   =============================================================================
    … …  
    380338
    381339                cxrate = -crxrate(aval);
    382 /*
    383 
    384 */
     340
    385341        } else {                /* release */
    386342
    … …  
    407363}
    408364
    409 /*
    410 
    411 */
    412 
    413365/*
    414366   =============================================================================
    … …  
    443395
    444396                cyrate = cryrate(aval);
    445 /*
    446 
    447 */
     397
    448398        } else {                /* release */
    449399
    … …  
    470420}
    471421
    472 /*
    473 
    474 */
    475 
    476422/*
    477423   =============================================================================
    … …  
    515461        }
    516462}
    517 
    518 /*
    519 
    520 */
    521463
    522464/*

  • ram/etaccn.c

    r1efe224 rfa38804  
    6868}
    6969
    70 /*
    71 
    72 */
    73 
    7470/*
    7571   =============================================================================
    … …  
    9389        return(SUCCESS);
    9490}
    95 
    96 /*
    97 
    98 */
    9991
    10092/*

  • ram/etadep.c

    r1efe224 rfa38804  
    4444        return(SUCCESS);
    4545}
    46 
    47 /*
    48 
    49 */
    5046
    5147/*

  • ram/etadyn.c

    r1efe224 rfa38804  
    2828}
    2929
    30 /*
    31 
    32 */
    33 
    3430/*
    3531   =============================================================================
    … …  
    5753        fpexp = expbit[curintp & 0x000F];
    5854
    59 /*
    6055
    61 */
    6256        for (i = 0; i < 12; i++)
    6357                if (g EQ vce2grp[i]) {
    … …  
    9387}
    9488
    95 /*
    96 
    97 */
    98 
    9989/*
    10090   =============================================================================
    … …  
    118108        return(SUCCESS);
    119109}
    120 
    121 /*
    122 
    123 */
    124110
    125111/*

  • ram/etagch.c

    r1efe224 rfa38804  
    6868}
    6969
    70 /*
    71 
    72 */
    73 
    7470/*
    7571   =============================================================================

  • ram/etagpt.c

    r1efe224 rfa38804  
    5454        return(SUCCESS);
    5555}
    56 
    57 /*
    58 
    59 */
    6056
    6157/*

  • ram/etains.c

    r1efe224 rfa38804  
    7171}
    7272
    73 /*
    74 
    75 */
    76 
    7773/*
    7874   =============================================================================

  • ram/etaint.c

    r1efe224 rfa38804  
    4444        return(SUCCESS);
    4545}
    46 
    47 /*
    48 
    49 */
    5046
    5147/*

  • ram/etaopt.c

    r1efe224 rfa38804  
    4444        return(SUCCESS);
    4545}
    46 
    47 /*
    48 
    49 */
    5046
    5147/*

  • ram/etaprg.c

    r1efe224 rfa38804  
    5454}
    5555
    56 /*
    57 
    58 */
    59 
    6056/*
    6157   =============================================================================

  • ram/etarat.c

    r1efe224 rfa38804  
    4444        return(SUCCESS);
    4545}
    46 
    47 /*
    48 
    49 */
    5046
    5147/*

  • ram/etatab.c

    r1efe224 rfa38804  
    5050        return(SUCCESS);
    5151}
    52 
    53 /*
    54 
    55 */
    5652
    5753/*

  • ram/etatun.c

    r1efe224 rfa38804  
    4242        return(SUCCESS);
    4343}
    44 
    45 /*
    46 
    47 */
    4844
    4945/*

  • ram/etavgr.c

    r1efe224 rfa38804  
    3333        return(SUCCESS);
    3434}
    35 
    36 /*
    37 
    38 */
    3935
    4036/*
    … …  
    8682}
    8783
    88 /*
    89 
    90 */
    91 
    9284/*
    9385   =============================================================================
    … …  
    110102        return(SUCCESS);
    111103}
    112 
    113 /*
    114 
    115 */
    116104
    117105/*

  • ram/etdyn.c

    r1efe224 rfa38804  
    2121        return(SUCCESS);
    2222}
    23 
    24 /*
    25 
    26 */
    2723
    2824/*
    … …  
    6662}
    6763
    68 /*
    69 
    70 */
    71 
    7264/*
    7365   =============================================================================
    … …  
    10092}
    10193
    102 /*
    103 
    104 */
    105 
    10694/*
    10795   =============================================================================

  • ram/etiact.c

    r1efe224 rfa38804  
    5555        return(SUCCESS);
    5656}
    57 
    58 /*
    59 
    60 */
    6157
    6258/*
    … …  
    128124                modinst();
    129125                return(SUCCESS);
    130 /*
    131 
    132 */
     126
    133127        case AC_LOOP:
    134128
    … …  
    163157        return(FAILURE);
    164158}
    165 
    166 /*
    167 
    168 */
    169159
    170160/*
    … …  
    217207                break;
    218208
    219 /*
    220 
    221 */
     209
    222210        case AC_LOOP:
    223211
    … …  
    254242        return(SUCCESS);
    255243}
    256 
    257 /*
    258 
    259 */
    260244
    261245/*
    … …  
    299283                break;
    300284
    301 /*
    302 
    303 */
     285
    304286        case AC_LOOP:
    305287
    … …  
    343325}
    344326
    345 /*
    346 
    347 */
    348 
    349327/*
    350328   =============================================================================
    … …  
    380358                return(FAILURE);
    381359
    382 /*
    383 
    384 */
     360
    385361        } else {
    386362
    … …  
    416392                                return(FAILURE);
    417393                        }
    418 /*
    419 
    420 */
     394
    421395                case AC_LOOP:
    422396

  • ram/eticnf.c

    r1efe224 rfa38804  
    2323        return(SUCCESS);
    2424}
    25 
    26 /*
    27 
    28 */
    2925
    3026/*
    … …  
    5652}
    5753
    58 /*
    59 
    60 */
    61 
    6254/*
    6355   =============================================================================
    … …  
    7870        return(SUCCESS);
    7971}
    80 
    81 /*
    82 
    83 */
    8472
    8573/*

  • ram/etidin.c

    r1efe224 rfa38804  
    7070                                dswin(19);
    7171                        }
    72 /*
    7372
    74 */
    7573                } else if (vtcrow EQ 23) {      /* copy to library */
    7674
    … …  
    9896
    9997                return(SUCCESS);
    100 /*
    10198
    102 */
    10399        } else {                /* 'E' with menu not up */
    104100
    … …  
    125121}
    126122
    127 /*
    128 
    129 */
    130 
    131123/*
    132124   =============================================================================
    … …  
    151143        return(SUCCESS);
    152144}
    153 
    154 /*
    155 
    156 */
    157145
    158146/*

  • ram/etimlt.c

    r1efe224 rfa38804  
    4444}
    4545
    46 /*
    47 
    48 */
    49 
    5046/*
    5147   =============================================================================
    … …  
    7672}
    7773
    78 /*
    79 
    80 */
    81 
    8274/*
    8375   =============================================================================
    … …  
    10395#endif
    10496
    105 /*
    106 
    107 */
     97
    10898        if (idsrcsw) {                  /* entering the source */
    10999
    … …  
    156146                modinst();
    157147                dswin(22);              /* refresh the screen */
    158 /*
    159 
    160 */
     148
    161149        } else if (stccol LT 8) {       /* selecting the source */
    162150
    … …  
    190178}
    191179
    192 /*
    193 
    194 */
    195 
    196180/*
    197181   =============================================================================
    … …  
    215199        return(SUCCESS);
    216200}
    217 
    218 /*
    219 
    220 */
    221201
    222202/*

  • ram/etinst.c

    r1efe224 rfa38804  
    2121        return(SUCCESS);
    2222}
    23 
    24 /*
    25 
    26 */
    2723
    2824/*
    … …  
    7167}
    7268
    73 /*
    74 
    75 */
    76 
    7769/*
    7870   =============================================================================
    … …  
    109101}
    110102
    111 /*
    112 
    113 */
    114 
    115103/*
    116104   =============================================================================

  • ram/etioas.c

    r1efe224 rfa38804  
    2828}
    2929
    30 /*
    31 
    32 */
     30
    3331/*
    3432   =============================================================================
    … …  
    7573}
    7674
    77 /*
    78 
    79 */
    80 
    8175/*
    8276   =============================================================================
    … …  
    116110        return(SUCCESS);
    117111}
    118 
    119 /*
    120 
    121 */
    122112
    123113/*
    … …  
    140130        return(SUCCESS);
    141131}
    142 
    143 /*
    144 
    145 */
    146132
    147133/*
    … …  
    183169}
    184170
    185 /*
    186 
    187 */
    188 
    189171/*
    190172   =============================================================================
    … …  
    222204        return(SUCCESS);
    223205}
    224 
    225 /*
    226 
    227 */
    228206
    229207/*
    … …  
    246224        return(SUCCESS);
    247225}
    248 
    249 /*
    250 
    251 */
    252226
    253227/*
    … …  
    295269}
    296270
    297 /*
    298 
    299 */
    300 
    301271/*
    302272   =============================================================================
    … …  
    338308        return(SUCCESS);
    339309}
    340 
    341 /*
    342 
    343 */
    344310
    345311/*
    … …  
    426392}
    427393
    428 /*
    429 
    430 */
    431 
    432394/*
    433395   =============================================================================

  • ram/etiosc.c

    r1efe224 rfa38804  
    3131
    3232int16_t ndvals[10] = {0, 0, 1200, 1902, 2400, 2786, 3102, 3369, 3600, 3804};
    33 
    34 
    35 /*
    36 
    37 */
    3833
    3934/*
    … …  
    6762        }
    6863}
    69 
    70 /*
    71 
    72 */
    7364
    7465/*
    … …  
    9384}
    9485
    95 /*
    96 
    97 */
    98 
    9986/*
    10087   =============================================================================
    … …  
    130117}
    131118
    132 /*
    133 
    134 */
    135 
    136119/*
    137120   =============================================================================
    … …  
    174157                break;
    175158        }
    176 /*
    177 
    178 */
     159
    179160        bform = ctl & OC_MOD;
    180161
    … …  
    214195}
    215196
    216 /*
    217 
    218 */
    219 
    220197/*
    221198   =============================================================================
    … …  
    256233                | ((bform & 2) ? I_NRATIO : 0);
    257234}
    258 
    259 /*
    260 
    261 */
    262235
    263236/*
    … …  
    299272                modinst();
    300273                return(SUCCESS);
    301 /*
    302 
    303 */
     274
    304275        case OC_FRQ:            /* frequency */
    305276
    … …  
    330301        return(FAILURE);
    331302}
    332 
    333 /*
    334 
    335 */
    336303
    337304/*
    … …  
    378345                break;
    379346        }
    380 /*
    381 
    382 */
     347
    383348        bform = ctl & OC_MOD;
    384349        ocs = ((v EQ 3) ? ' ' : (ctl & OC_SYN ? 'S' : 's'));
    … …  
    431396}
    432397
    433 /*
    434 
    435 */
    436 
    437398/*
    438399   =============================================================================
    … …  
    479440
    480441        bfm = ctl & OC_MOD;
    481 /*
    482 
    483 */
     442
    484443        switch (bform) {
    485444
    … …  
    520479
    521480                break;
    522 /*
    523 
    524 */
     481
    525482        case OC_FRQ:            /* frequency */
    526483
    … …  
    550507}
    551508
    552 /*
    553 
    554 */
    555 
    556509/*
    557510   =============================================================================
    … …  
    603556}
    604557
    605 /*
    606 
    607 */
    608 
    609558/*
    610559   =============================================================================
    … …  
    640589                } else
    641590                        return(FAILURE);
    642 /*
    643 
    644 */
     591
    645592        } else if (stccol EQ 46) {      /* sync */
    646593
    … …  
    661608                        return(FAILURE);
    662609
    663 /*
    664 
    665 */
     610
    666611        } else if ((stccol GE 40) AND (stccol LE 44)) {         /* value */
    667612
    … …  
    704649                        advicur();
    705650                        return(SUCCESS);
    706 /*
    707 
    708 */
     651
    709652                case OC_RAT:            /* ratio */
    710653
    … …  
    751694                                return(FAILURE);
    752695                        }
    753 /*
    754 
    755 */
     696
    756697                case OC_FRQ:            /* frequency */
    757698
    … …  
    778719
    779720                        return(SUCCESS);
    780 /*
    781 
    782 */
     721
    783722                case OC_PCH:            /* pitch */
    784723
    … …  
    829768                                break;
    830769                        }
    831 /*
    832 
    833 */
    834770
    835771                        dspbuf[1] = '\0';

  • ram/etipnt.c

    r1efe224 rfa38804  
    2323        return(SUCCESS);
    2424}
    25 
    26 /*
    27 
    28 */
    2925
    3026/*
    … …  
    108104}
    109105
    110 /*
    111 
    112 */
    113 
    114106/*
    115107   =============================================================================
    … …  
    129121        return(SUCCESS);
    130122}
    131 
    132 /*
    133 
    134 */
    135123
    136124/*

  • ram/etires.c

    r1efe224 rfa38804  
    2323        (1000 << 5)     /* 9 = 10.00 */
    2424};
    25 
    26 /*
    27 
    28 */
    2925
    3026/*
    … …  
    6763}
    6864
    69 /*
    70 
    71 */
    72 
    7365/*
    7466   =============================================================================
    … …  
    9890}
    9991
    100 /*
    101 
    102 */
    103 
    10492/*
    10593   =============================================================================

  • ram/etitim.c

    r1efe224 rfa38804  
    3838        return(SUCCESS);
    3939}
    40 
    41 /*
    42 
    43 */
    4440
    4541/*
    … …  
    9591}
    9692
    97 /*
    98 
    99 */
    100 
    10193/*
    10294   =============================================================================
    … …  
    125117        return(SUCCESS);
    126118}
    127 
    128 /*
    129 
    130 */
    131119
    132120/*

  • ram/etival.c

    r1efe224 rfa38804  
    3838}
    3939
    40 /*
    41 
    42 */
    43 
    4440/*
    4541   =============================================================================
    … …  
    6157#endif
    6258
    63 /*
    64 
    65 */
     59
    6660        if (idsrcsw) {                  /* entering the source */
    6761
    … …  
    114108                dswin(22);                      /* refresh the screen */
    115109                modinst();
    116 /*
    117 
    118 */
     110
    119111        } else if (stccol LT 32) {              /* entering value */
    120112
    … …  
    180172}
    181173
    182 /*
    183 
    184 */
    185 
    186174/*
    187175   =============================================================================
    … …  
    209197}
    210198
    211 /*
    212 
    213 */
    214 
    215199/*
    216200   =============================================================================
    … …  
    233217        ebuf[10] = '\0';
    234218
    235 /*
    236 
    237 */
     219
    238220        if (stccol LT 32) {             /* value */
    239221
    … …  
    276258                dspbuf[0] = k + '0';
    277259        }
    278 /*
    279 
    280 */
     260
    281261        dspbuf[1]  = '\0';      /* terminate display buffer */
    282262

  • ram/etivce.c

    r1efe224 rfa38804  
    2323        return(SUCCESS);
    2424}
    25 
    26 /*
    27 
    28 */
    2925
    3026/*
    … …  
    5450}
    5551
    56 /*
    57 
    58 */
    59 
    6052/*
    6153   =============================================================================
    … …  
    7769        return(SUCCESS);
    7870}
    79 
    80 /*
    81 
    82 */
    8371
    8472/*

  • ram/etiwsn.c

    r1efe224 rfa38804  
    2626        return(SUCCESS);
    2727}
    28 
    29 /*
    30 
    31 */
    3228
    3329/*
    … …  
    9187}
    9288
    93 /*
    94 
    95 */
    96 
    9789/*
    9890   =============================================================================
    … …  
    118110        return(SUCCESS);
    119111}
    120 
    121 /*
    122 
    123 */
    124112
    125113/*

  • ram/etloc.c

    r1efe224 rfa38804  
    2121        return(SUCCESS);
    2222}
    23 
    24 /*
    25 
    26 */
    2723
    2824/*
    … …  
    5147        fpexp = expbit[curintp & 0x000F];
    5248
    53 /*
    5449
    55 */
    5650        for (i = 0; i < 12; i++)
    5751                if (g EQ vce2grp[i]) {
    … …  
    8781                }
    8882}
    89 
    90 /*
    91 
    92 */
    9383
    9484/*
    … …  
    137127}
    138128
    139 /*
    140 
    141 */
    142 
    143129/*
    144130   =============================================================================
    … …  
    171157}
    172158
    173 /*
    174 
    175 */
    176 
    177159/*
    178160   =============================================================================

  • ram/etmcfn.c

    r1efe224 rfa38804  
    2121        return(SUCCESS);
    2222}
    23 
    24 /*
    25 
    26 */
    2723
    2824/*
    … …  
    5147}
    5248
    53 /*
    54 
    55 */
    56 
    5749/*
    5850   =============================================================================
    … …  
    7264        return(SUCCESS);
    7365}
    74 
    75 /*
    76 
    77 */
    7866
    7967/*
    … …  
    10694}
    10795
    108 /*
    109 
    110 */
    111 
    11296/*
    11397   =============================================================================
    … …  
    127111        return(SUCCESS);
    128112}
    129 
    130 /*
    131 
    132 */
    133113
    134114/*
    … …  
    155135        if ((tmpval < 1) OR (tmpval > NUMWAVS))
    156136                return(FAILURE);
    157 /*
    158 
    159 */
     137
    160138        if (wmcsel) {
    161139
    … …  
    194172}
    195173
    196 /*
    197 
    198 */
    199 
    200174/*
    201175   =============================================================================
    … …  
    218192        return(SUCCESS);
    219193}
    220 
    221 /*
    222 
    223 */
    224194
    225195/*

  • ram/etres1.c

    r1efe224 rfa38804  
    2020        return(SUCCESS);
    2121}
    22 
    23 /*
    24 
    25 */
    2622
    2723/*
    … …  
    7167}
    7268
    73 /*
    74 
    75 */
    76 
    7769/*
    7870   =============================================================================
    … …  
    9789}
    9890
    99 /*
    100 
    101 */
    102 
    10391/*
    10492   =============================================================================
    … …  
    118106        return(SUCCESS);
    119107}
    120 
    121 /*
    122 
    123 */
    124108
    125109/*
    … …  
    158142        return(SUCCESS);
    159143}
    160 
    161 /*
    162 
    163 */
    164144
    165145/*
    … …  
    214194}
    215195
    216 /*
    217 
    218 */
    219 
    220196/*
    221197   =============================================================================
    … …  
    260236}
    261237
    262 /*
    263 
    264 */
    265 
    266238/*
    267239   =============================================================================
    … …  
    302274}
    303275
    304 /*
    305 
    306 */
    307 
    308276/*
    309277   =============================================================================
    … …  
    318286        return(SUCCESS);
    319287}
    320 
    321 /*
    322 
    323 */
    324288
    325289/*
    … …  
    347311}
    348312
    349 /*
    350 
    351 */
    352 
    353313/*
    354314   =============================================================================
    … …  
    370330        return(SUCCESS);
    371331}
    372 
    373 /*
    374 
    375 */
    376332
    377333/*

  • ram/etscor.c

    r1efe224 rfa38804  
    2121        return(SUCCESS);
    2222}
    23 
    24 /*
    25 
    26 */
    2723
    2824/*
    … …  
    7369}
    7470
    75 /*
    76 
    77 */
    78 
    7971/*
    8072   =============================================================================

  • ram/etsnbt.c

    r1efe224 rfa38804  
    6464}
    6565
    66 /*
    67 
    68 */
    69 
    7066/*
    7167   =============================================================================
    … …  
    9086        return(SUCCESS);
    9187}
    92 
    93 /*
    94 
    95 */
    9688
    9789/*

  • ram/etstrn.c

    r1efe224 rfa38804  
    2222        return(SUCCESS);
    2323}
    24 
    25 /*
    26 
    27 */
    2824
    2925/*
    … …  
    6763        return(SUCCESS);
    6864}
    69 
    70 /*
    71 
    72 */
    7365
    7466/*

  • ram/ettpch.c

    r1efe224 rfa38804  
    6161}
    6262
    63 /*
    64 
    65 */
    66 
    6763/*
    6864   =============================================================================
    … …  
    8682}
    8783
    88 /*
    89 
    90 */
    91 
    9284/*
    9385   =============================================================================
    … …  
    113105        return(SUCCESS);
    114106}
    115 
    116 /*
    117 
    118 */
    119107
    120108/*
    … …  
    149137        return(SUCCESS);
    150138}
    151 
    152 /*
    153 
    154 */
    155139
    156140/*
    … …  
    195179                dspbuf[0] = k + 'A';
    196180                break;
    197 /*
    198 
    199 */
     181
    200182        case 2:
    201183
    … …  
    220202                } else
    221203                        return(FAILURE);
    222 /*
    223 
    224 */
     204
    225205        case 3:
    226206        case 4:

  • ram/ettrns.c

    r1efe224 rfa38804  
    4343        return(SUCCESS);
    4444}
    45 
    46 /*
    47 
    48 */
    4945
    5046/*
    … …  
    108104}
    109105
    110 /*
    111 
    112 */
    113 
    114106/*
    115107   =============================================================================
    … …  
    169161}
    170162
    171 /*
    172 
    173 */
    174 
    175163/*
    176164   =============================================================================
    … …  
    186174                rd_trns(i);
    187175}
    188 
    189 /*
    190 
    191 */
    192176
    193177/*

  • ram/etttab.c

    r1efe224 rfa38804  
    4040        return(SUCCESS);
    4141}
    42 
    43 /*
    44 
    45 */
    4642
    4743/*

  • ram/ettval.c

    r1efe224 rfa38804  
    2323}
    2424
    25 /*
    26 
    27 */
    28 
    2925/*
    3026   =============================================================================
    … …  
    4642        return(SUCCESS);
    4743}
    48 
    49 /*
    50 
    51 */
    5244
    5345/*
    … …  
    8779}
    8880
    89 /*
    90 
    91 */
    92 
    9381/*
    9482   =============================================================================
    … …  
    113101        return(SUCCESS);
    114102}
    115 
    116 /*
    117 
    118 */
    119103
    120104/*
    … …  
    153137                        return(FAILURE);
    154138                }
    155 /*
    156139
    157 */
    158140        } else {
    159141

  • ram/etvel.c

    r1efe224 rfa38804  
    2121        return(SUCCESS);
    2222}
    23 
    24 /*
    25 
    26 */
    2723
    2824/*
    … …  
    6965}
    7066
    71 /*
    72 
    73 */
    74 
    7567/*
    7668   =============================================================================
    … …  
    9284        return(SUCCESS);
    9385}
    94 
    95 /*
    96 
    97 */
    9886
    9987/*

  • ram/etwavs.c

    r1efe224 rfa38804  
    4747        return(SUCCESS);
    4848}
    49 
    50 /*
    51 
    52 */
    5349
    5450/*

  • ram/etwhar.c

    r1efe224 rfa38804  
    4848}
    4949
    50 /*
    51 
    52 */
    53 
    5450/*
    5551   =============================================================================

  • ram/etwhrv.c

    r1efe224 rfa38804  
    3535        return(SUCCESS);
    3636}
    37 
    38 /*
    39 
    40 */
    4137
    4238/*
    … …  
    8076}
    8177
    82 /*
    83 
    84 */
    85 
    8678/*
    8779   =============================================================================
    … …  
    116108        return(SUCCESS);
    117109}
    118 
    119 /*
    120 
    121 */
    122110
    123111/*

  • ram/etwoff.c

    r1efe224 rfa38804  
    3838}
    3939
    40 /*
    41 
    42 */
    43 
    4440/*
    4541   =============================================================================
    … …  
    8076}
    8177
    82 /*
    83 
    84 */
    85 
    8678/*
    8779   =============================================================================
    … …  
    121113        return(SUCCESS);
    122114}
    123 
    124 /*
    125 
    126 */
    127115
    128116/*
    … …  
    170158                dspbuf[1] = '\0';
    171159        }
    172 /*
    173160
    174 */
    175161        if (v_regs[5] & 0x0180)
    176162                vbank(0);

  • ram/etwpnt.c

    r1efe224 rfa38804  
    2121        return(SUCCESS);
    2222}
    23 
    24 /*
    25 
    26 */
    2723
    2824/*
    … …  
    5349}
    5450
    55 /*
    56 
    57 */
    58 
    5951/*
    6052   =============================================================================
    … …  
    7668        return(SUCCESS);
    7769}
    78 
    79 /*
    80 
    81 */
    8270
    8371/*

  • ram/etwslt.c

    r1efe224 rfa38804  
    4545        return(SUCCESS);
    4646}
    47 
    48 /*
    49 
    50 */
    5147
    5248/*

  • ram/etwvce.c

    r1efe224 rfa38804  
    4747}
    4848
    49 /*
    50 
    51 */
    52 
    5349/*
    5450   =============================================================================

  • ram/fcnote.c

    r1efe224 rfa38804  
    3232*/
    3333
    34 /*
    35 
    36 */
    37 
    3834struct n_entry *fcnote(int16_t grp, int16_t tnote)
    3935{
    … …  
    6763
    6864                        return(E_NULL);
    69 /*
    7065
    71 */
    7266                } else if ((et EQ EV_NBEG) AND (en EQ tnote) AND (eg EQ grp)) {
    7367
    … …  
    8882
    8983                                        return(E_NULL);
    90 /*
    9184
    92 */
    9385                                } else if ((et EQ EV_NEND) AND (en EQ tnote) AND
    9486                                           (eg EQ grp)) {

  • ram/frfind.c

    r1efe224 rfa38804  
    138138#endif
    139139                return(sep);
    140 
    141 /*
    142 
    143 */
    144140
    145141        } else {        /* find right (latest) end of chain */
    … …  
    201197}
    202198
    203 /*
    204 
    205 */
    206 
    207199/*
    208200   =============================================================================
    … …  
    293285        }
    294286
    295 /*
    296 
    297 */
    298 
    299287        dt = (tval GT p_bak->e_time) ?          /* time to p_bak */
    300288                (tval - p_bak->e_time) :
    … …  
    342330        return(ep_adj(ep, sdir, tval)); /* adjust the pointer */
    343331}
    344 
    345 /*
    346 
    347 */
    348332
    349333/*
    … …  
    380364}
    381365
    382 /*
    383 
    384 */
    385 
    386366/*
    387367   =============================================================================

  • ram/gcurpos.c

    r1efe224 rfa38804  
    3030#define AW_F    0xFFFF
    3131
    32 /*
    33 
    34 */
    35 
    3632static  uint16_t        ar_ule[] = {            /* upper left even pixel arrow */
    3733
    … …  
    7470};
    7571
    76 /*
    77 
    78 */
    79 
    8072static  uint16_t        ar_ure[] = {            /* upper right even pixel arrow */
    8173
    … …  
    118110};
    119111
    120 /*
    121 
    122 */
    123 
    124112static  uint16_t        ar_lle[] = {            /* lower left even pixel arrow */
    125113
    … …  
    162150};
    163151
    164 /*
    165 
    166 */
    167 
    168152static  uint16_t        ar_lre[] = {            /* lower right even pixel arrow */
    169153
    … …  
    206190};
    207191
    208 /*
    209 
    210 */
    211 
    212192static  int16_t *arrows[] = {   /* arrow pointer table */
    213193
    … …  
    224204        v_curs7         /* 7 - lower right, odd pixel */
    225205};
    226 
    227 /*
    228 
    229 */
    230206
    231207/*
    … …  
    279255        return(ab + (xloc & 0x0001));
    280256}
    281 
    282 /*
    283 
    284 */
    285257
    286258/*
    … …  
    323295}
    324296
    325 /*
    326 
    327 */
    328 
    329297/*
    330298   =============================================================================

  • ram/idfield.c

    r1efe224 rfa38804  
    5454        "Brth/LP",      /* 13 */
    5555};
    56 
    57 /*
    58 
    59 */
    6056
    6157struct curpak id_flds = {
    … …  
    8480};
    8581
    86 /*
    87 
    88 */
    89 
    9082/*
    9183   =============================================================================
    … …  
    110102                modinst();
    111103}
    112 /*
    113 
    114 */
    115104
    116105/*
    … …  
    165154
    166155                imflag = TRUE;
    167 /*
    168 
    169 */
     156
    170157        } else {                /* just moving the cursor */
    171158
    … …  
    179166}
    180167
    181 /*
    182 
    183 */
    184 
    185168/*
    186169   =============================================================================
    … …  
    216199
    217200                vtcxupd();
    218 /*
    219 
    220 */
     201
    221202        } else if (pntsv) {             /* see if we're moving a point */
    222203
    … …  
    253234                        break;
    254235
    255 /*
    256 
    257 */
     236
    258237                case 2:         /* interior point */
    259238
    … …  
    299278}
    300279
    301 /*
    302 
    303 */
    304 
    305280/*
    306281   =============================================================================
    … …  
    338313                                        modinst();
    339314                                        return(SUCCESS);
    340 /*
    341 
    342 */
     315
    343316                                } else if (k EQ 9) {    /* + = new point */
    344317
    … …  
    372345
    373346                                }
    374 /*
    375 
    376 */
     347
    377348                        } else if (hitbox < 12 ) {      /* label window */
    378349
    … …  
    401372}
    402373
    403 /*
    404 
    405 */
    406 
    407374/*
    408375   =============================================================================
    … …  
    448415                                dswin(13);
    449416                                modinst();
    450 /*
    451 
    452 */
     417
    453418                        } else if ((stccol EQ 15) OR (stccol EQ 16)) {
    454419
    … …  
    480445}
    481446
    482 /*
    483 
    484 */
    485 
    486447/*
    487448   =============================================================================

  • ram/idselbx.c

    r1efe224 rfa38804  
    4444};
    4545
    46 /*
    47 
    48 */
    49 
    5046/*
    5147   =============================================================================
    … …  
    8985        }
    9086}
    91 
    92 /*
    93 
    94 */
    9587
    9688/*
    … …  
    134126}
    135127
    136 /*
    137 
    138 */
    139 
    140128/*
    141129   =============================================================================
    … …  
    178166}
    179167
    180 /*
    181 
    182 */
    183 
    184168/*
    185169   =============================================================================
    … …  
    210194                drawfn(12, 0, ID_CLVL, n);
    211195
    212 /*
    213 
    214 */
     196
    215197        /* next, put the level and selected functions in the level window */
    216198
    … …  
    263245}
    264246
    265 /*
    266 
    267 */
    268 
    269247/*
    270248   =============================================================================
    … …  
    304282        drawpt(ptx, pty, ID_SELD);
    305283}
    306 
    307 /*
    308 
    309 */
    310284
    311285/*
    … …  
    362336}
    363337
    364 /*
    365 
    366 */
    367 
    368338/*
    369339   =============================================================================
    … …  
    383353        col = hitcx >> 3;
    384354
    385 /*
    386 
    387 */
     355
    388356        if (hitbox EQ 12) {             /* process a hit in the level window */
    389357
    … …  
    434402                        return(entbh(-1));
    435403                }
    436 /*
    437 
    438 */
     404
    439405        } else if (hitbox EQ 19) {              /* voice & inst. */
    440406
    … …  
    477443                        return(entbh(-1));      /* do data entry */
    478444                }
    479 /*
    480 
    481 */
     445
    482446        } else if (hitbox EQ 21) {      /* waveshapes */
    483447
    … …  
    525489
    526490                return(TRUE);
    527 /*
    528 
    529 */
     491
    530492        } else if (hitbox < 12) {       /* process a hit in a label window */
    531493

  • ram/im700.c

    r1efe224 rfa38804  
    371371uint16_t        slices[896];    /* score display slices */
    372372
    373 /*
    374 
    375 */
    376 
    377373/* initialized variables */
    378374
    … …  
    395391int16_t tvcwval = TVCWVAL;      /* text cursor V wait time */
    396392int16_t vcwval  = VCWVAL;       /* graphics cursor Y wait time */
    397 
    398 /*
    399 
    400 */
    401393
    402394uint16_t        tmultab[] = {           /* time multiplier table - indexed by voltage */
    … …  
    425417};
    426418
    427 /*
    428 
    429 */
    430 
    431419int16_t crate0[] = {                    /* cursor rate table 1 */
    432420
    … …  
    465453};
    466454
    467 /*
    468 
    469 */
    470 
    471455int16_t loctab[9] = {
    472456
    … …  
    485469        1000 << 5       /* 8 - right */
    486470};
    487 
    488 /*
    489 
    490 */
    491471
    492472/*
    … …  
    531511}
    532512
    533 /*
    534 
    535 */
    536 
    537513/*
    538514   =============================================================================
    … …  
    576552}
    577553
    578 /*
    579 
    580 */
    581 
    582554/*
    583555   =============================================================================
    … …  
    598570        pflist = (struct pflent *)NULL;
    599571}
    600 
    601 /*
    602 
    603 */
    604572
    605573/*
    … …  
    679647        }
    680648
    681 /*
    682 
    683 */
     649
    684650        for (i = 0; i < 3; i++) {       /* reset the state machines */
    685651
    … …  
    722688        ldcmnt[37] = '\0';
    723689
    724 /*
    725 
    726 */
     690
    727691        xkcount = 1;                    /* reset cursor control variables */
    728692        ykcount = 1;
    … …  
    762726
    763727        memsetw(articen, TRUE, 12);     /* enable articulation for all voices */
    764 /*
    765 
    766 */
     728
    767729        curmove = cmvgen;
    768730        premove = nokey;
    … …  
    806768
    807769        submenu = FALSE;        /* no submenu up to start with */
    808 /*
    809 
    810 */
     770
    811771        curinst = 0;            /* current instrument = 0 */
    812772        curfunc = 12;           /* current function = 12 = level */

  • ram/initi.c

    r1efe224 rfa38804  
    5252};
    5353
    54 /*
    55 
    56 */
    57 
    5854/*
    5955   =============================================================================
    … …  
    9995        pp->iptim = tofpu(ptime - tacc);
    10096}
    101 
    102 /*
    103 
    104 */
    10597
    10698/*
    … …  
    131123        return(tf);
    132124}
    133 
    134 /*
    135 
    136 */
    137125
    138126/*
    … …  
    180168}
    181169
    182 /*
    183 
    184 */
    185 
    186170/*
    187171   =============================================================================
    … …  
    204188                return(yval);
    205189}
    206 
    207 /*
    208 
    209 */
    210190
    211191/*
    … …  
    249229}
    250230
    251 /*
    252 
    253 */
    254 
    255231/*
    256232   =============================================================================
    … …  
    302278}
    303279
    304 /*
    305 
    306 */
    307 
    308280/*
    309281   =============================================================================
    … …  
    331303}
    332304
    333 /*
    334 
    335 */
    336 
    337305/*
    338306   =============================================================================
    … …  
    361329}
    362330
    363 /*
    364 
    365 */
    366 
    367331/*
    368332   =============================================================================
    … …  
    403367        instmod[voice] = FALSE; /* instrument matches library */
    404368}
    405 
    406 /*
    407 
    408 */
    409369
    410370/*
    … …  
    455415}
    456416
    457 /*
    458 
    459 */
    460 
    461417/*
    462418   =============================================================================
    … …  
    502458}
    503459
    504 /*
    505 
    506 */
    507 
    508460/*
    509461   =============================================================================

  • ram/instdsp.c

    r1efe224 rfa38804  
    4646        {133, 252, 267, 306, CFBX23, CBBX23, 18, 17}    /* 23: Name & comments */
    4747};
    48 
    49 /*
    50 
    51 */
    5248
    5349/* instrument function to FPU function table */
    … …  
    8985        {3, 3, 0}       /* 15 */
    9086};
    91 
    92 /*
    93 
    94 */
    9587
    9688int8_t  *idbxlbl[] = {  /* display box labels */
    … …  
    135127};
    136128
    137 /*
    138 
    139 */
    140 
    141129int32_t rngdiv[] = {    /* divisors for ranges of 0..9 */
    142130
    … …  
    153141};
    154142
    155 /*
    156 
    157 */
    158 
    159143/*
    160144   =============================================================================
    … …  
    189173        idpoint(px, py, pc);
    190174}
    191 
    192 /*
    193 
    194 */
    195175
    196176/*
    … …  
    224204        color = exp_c(pen);     /* replicate 4 bit 'pen' for 16 bit 'color' */
    225205
    226 /*
    227 
    228 */
     206
    229207        ptx = ttox(timeto(fn, npt1), wn);
    230208        pty = vtoy((pt1->ipval >> 5), wn);
    … …  
    274252                        else
    275253                                idpoint(ptx, pty, ptc);
    276 /*
    277 
    278 */
     254
    279255                } else {
    280256
    … …  
    312288}
    313289
    314 /*
    315 
    316 */
    317 
    318290/*
    319291   =============================================================================
    … …  
    334306}
    335307
    336 /*
    337 
    338 */
    339 
    340308/*
    341309   =============================================================================
    … …  
    355323}
    356324
    357 /*
    358 
    359 */
    360 
    361325/*
    362326   =============================================================================
    … …  
    377341}
    378342
    379 /*
    380 
    381 */
    382 
    383343/*
    384344   =============================================================================
    … …  
    406366        *(io_fpu + vce + (int32_t)FPU_OCFG) = sync;
    407367}
    408 
    409 /*
    410 
    411 */
    412368
    413369/*
    … …  
    453409                        sprintf(idbuf, "%02d.%d ", fh, fl);
    454410                        break;
    455 /*
    456 
    457 */
     411
    458412                case OC_PCH:
    459413
    … …  
    475429}
    476430
    477 /*
    478 
    479 */
    480 
    481431/*
    482432   =============================================================================
    … …  
    497447        }
    498448}
    499 
    500 /*
    501 
    502 */
    503449
    504450/*
    … …  
    535481        cx |= cx << 8;
    536482
    537 /*
    538 
    539 */
    540 
    541483        /* first, fill the box with the background color */
    542484
    … …  
    563505        }
    564506
    565 /*
    566 
    567 */
     507
    568508        switch (n) {    /* final text - overlays above stuff */
    569509
    … …  
    605545
    606546                return;
    607 /*
    608 
    609 */
     547
    610548        case 15:        /* time */
    611549
    … …  
    636574                return;
    637575
    638 /*
    639 
    640 */
     576
    641577        case 17:        /* action */
    642578
    … …  
    669605                        break;
    670606
    671 /*
    672 
    673 */
     607
    674608                case AC_LOOP:
    675609
    … …  
    706640
    707641                return;
    708 
    709 /*
    710 
    711 */
    712642
    713643        case 18:        /* configuration */
    … …  
    747677
    748678                return;
    749 /*
    750 
    751 */
     679
    752680        case 22:        /* message window */
    753681
    … …  
    778706}
    779707
    780 /*
    781 
    782 */
    783 
    784708/*
    785709   =============================================================================
    … …  
    809733        vputp(idoct, x, y, pen);
    810734}
    811 
    812 /*
    813 
    814 */
    815735
    816736/*
    … …  
    852772}
    853773
    854 /*
    855 
    856 */
    857 
    858774/*
    859775   =============================================================================
    … …  
    886802}
    887803
    888 /*
    889 
    890 */
    891 
    892804/*
    893805   =============================================================================
    … …  
    921833        vlbptr[2] = "                              ";
    922834}
    923 
    924 /*
    925 
    926 */
    927835
    928836/*
    … …  
    979887}
    980888
    981 /*
    982 
    983 */
    984 
    985889/*
    986890   =============================================================================

  • ram/itcpos.c

    r1efe224 rfa38804  
    3131};
    3232
    33 /*
    34 
    35 */
    36 
    3733/*
    3834   =============================================================================
    … …  
    4844        andcopy(v_cur, itcur, exp_c(color), 64);
    4945}
    50 
    51 /*
    52 
    53 */
    5446
    5547/*
    … …  
    8577        stccol = col;
    8678}
    87 
    88 /*
    89 
    90 */
    9179
    9280/*

  • ram/kbobj.c

    r1efe224 rfa38804  
    3535        KB, KB, KB, KC,
    3636
    37 /*
    38  */
    39 
    4037        KA, KA, KA, KA,         /* 1 */         /* X */         /* B */
    4138        KB, KB, KB, KC,
    … …  
    7370        KB, KB, KB, KC,
    7471
    75 /*
    76  */
    77 
    7872        KA, KA, KA, KA,         /* 1 */         /* X */         /* B */
    7973        KB, KB, KB, KC,
    … …  
    111105        KB, KB, KB, KC,
    112106
    113 /*
    114  */
    115 
    116107        KA, KA, KA, KA,         /* 1 */         /* X */         /* B */
    117108        KB, KB, KB, KC,
    … …  
    149140        KB, KB, KB, KC,
    150141
    151 /*
    152  */
    153 
    154142        KA, KA, KA, KA,         /* 1 */         /* X */         /* B */
    155143        KB, KB, KB, KC,
    … …  
    187175        KB, KB, KB, KC,
    188176
    189 /*
    190  */
    191 
    192177        KA, KA, KA, KA,         /* 1 */         /* X */         /* B */
    193178        KB, KB, KB, KC,
    … …  
    225210        KB, KB, KB, KC,
    226211
    227 /*
    228  */
    229 
    230212        KA, KA, KA, KA,         /* 1 */         /* X */         /* B */
    231213        KB, KB, KB, KC,
    … …  
    263245        KB, KB, KB, KC,
    264246
    265 /*
    266  */
    267 
    268247        KA, KA, KA, KA,         /* 1 */         /* X */         /* B */
    269248        KB, KB, KB, KC,
    … …  
    300279        KB, KB ,KB, KC,
    301280        KB, KB, KB, KC,
    302 
    303 /*
    304  */
    305281
    306282        KA, KA, KA, KA,         /* 1 */         /* Z */         /* B */

  • ram/knmtab.h

    r1efe224 rfa38804  
    2525
    2626int16_t knmtab[32][256] = {
    27 
    28 /*
    29 
    30 */
    3127
    3228/* Harmonic table # 1 */
    … …  
    6763           433,  463,  493,  524,  555,  587,  618,  650,  683,  715,  748,  782,  815,  849,  883,  918,       /* 239 */
    6864           952,  988, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    69 /*
    70 
    71 */
    7265
    7366/* Harmonic table # 3 */
    … …  
    108101          -656, -603, -546, -485, -419, -349, -275, -195, -111,  -22,   72,  171,  276,  386,  502,  623,       /* 239 */
    109102           751,  884, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    110 /*
    111 
    112 */
    113103
    114104/* Harmonic table # 5 */
    … …  
    149139          -987,-1009,-1020,-1021,-1010, -987, -950, -899, -831, -746, -643, -519, -375, -207,  -16,  201,       /* 239 */
    150140           445,  719, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    151 /*
    152 
    153 */
    154141
    155142/* Harmonic table # 7 */
    … …  
    190177          -178, -308, -436, -560, -676, -782, -873, -947, -998,-1021,-1012, -965, -873, -731, -530, -263,       /* 239 */
    191178            78,  504, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    192 /*
    193 
    194 */
    195179
    196180/* Harmonic table # 9 */
    … …  
    231215           837,  730,  599,  447,  276,   90, -105, -304, -500, -681, -837, -954,-1017,-1005, -899, -672,       /* 239 */
    232216          -298,  254, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    233 /*
    234 
    235 */
    236217
    237218/* Harmonic table # 11 */
    … …  
    272253           887,  970, 1015, 1019,  977,  887,  747,  560,  330,   68, -212, -493, -746, -937,-1021, -943,       /* 239 */
    273254          -635,  -12, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    274 /*
    275 
    276 */
    277255
    278256/* Harmonic table # 13 */
    … …  
    313291           -86,  147,  380,  597,  784,  926, 1008, 1017,  942,  777,  526,  201, -172, -550, -865,-1020,       /* 239 */
    314292          -883, -279, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    315 /*
    316 
    317 */
    318293
    319294/* Harmonic table # 15 */
    … …  
    354329          -959, -835, -648, -406, -125,  176,  472,  733,  926, 1019,  983,  801,  471,   24, -471, -886,       /* 239 */
    355330         -1010, -526, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    356 /*
    357 
    358 */
    359331
    360332/* Harmonic table # 17 */
    … …  
    395367          -725, -903,-1005,-1014, -920, -724, -437,  -84,  295,  648,  912, 1023,  924,  590,   50, -570,       /* 239 */
    396368          -997, -736, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    397 /*
    398 
    399 */
    400369
    401370/* Harmonic table # 19 */
    … …  
    436405           347,   18, -320, -631, -873,-1006,-1000, -840, -532, -112,  351,  762, 1001,  956,  559, -136,       /* 239 */
    437406          -847, -896, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    438 /*
    439 
    440 */
    441407
    442408/* Harmonic table # 21 */
    … …  
    477443          1019,  920,  696,  367,  -26, -429, -771, -983,-1005, -805, -398,  141,  672,  997,  915,  325,       /* 239 */
    478444          -580, -993, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    479 /*
    480 
    481 */
    482445
    483446/* Harmonic table # 23 */
    … …  
    518481           515,  815,  992, 1008,  844,  514,   67, -410, -809,-1013, -933, -545,   69,  698, 1021,  721,       /* 239 */
    519482          -232,-1022, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    520 /*
    521 
    522 */
    523483
    524484/* Harmonic table # 25 */
    … …  
    559519          -582, -182,  261,  666,  944, 1019,  854,  462,  -73, -611, -967, -974, -561,  162,  848,  967,       /* 239 */
    560520           146, -979, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    561 /*
    562 
    563 */
    564521
    565522/* Harmonic table # 27 */
    … …  
    600557         -1007, -979, -740, -325,  180,  655,  965,  998,  710,  158, -481, -943, -963, -428,  443, 1015,       /* 239 */
    601558           506, -869, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    602 /*
    603 
    604 */
    605559
    606560/* Harmonic table # 29 */
    … …  
    641595          -269, -703, -974, -999, -747, -267,  312,  807, 1022,  833,  263, -466, -974, -873,  -82,  853,       /* 239 */
    642596           795, -699, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023, 1023 },     /* 255 */
    643 /*
    644 
    645 */
    646597
    647598/* Harmonic table # 31 */

  • ram/lcdlbls.c

    r1efe224 rfa38804  
    2020
    2121#define PCHMAX  21920L          /* maximum pitch value */
    22 
    23 /*
    24 
    25 */
    2622
    2723/* initialized stuff */
    … …  
    5450int16_t arpar[] = { 4,  2,  9, 11, 12,  1,  3,  5,  7, 13, 14, 15, 10,  6};
    5551
    56 /*
    57 
    58 */
    59 
    6052int16_t sl2gain[32] = {         /* slider value to EQ gain conversion table */
    6153
    … …  
    126118};
    127119
    128 /*
    129 
    130 */
    131 
    132120LPF     t_prmtr[] = {   /* switch assignments for LS_PRMTR */
    133121
    … …  
    174162};
    175163
    176 /*
    177 
    178 */
    179 
    180164LPF     t_other[] = {   /* switch assignments for LS_OTHER */
    181165
    … …  
    222206};
    223207
    224 /*
    225 
    226 */
    227 
    228208LPF     t_inst[] = {    /* switch assignments for LS_INST */
    229209
    … …  
    270250};
    271251
    272 /*
    273 
    274 */
    275 
    276252LPF     t_ngrp[] = {    /* switch assignments for LS_NGRP */
    277253
    … …  
    318294};
    319295
    320 /*
    321 
    322 */
    323 
    324296/*
    325297   =============================================================================
    … …  
    331303{
    332304}
    333 
    334 /*
    335 
    336 */
    337305
    338306/*
    … …  
    373341        dsrpmod();
    374342}
    375 
    376 /*
    377 
    378 */
    379343
    380344/*
    … …  
    427391}
    428392
    429 /*
    430 
    431 */
    432 
    433393/*
    434394   =============================================================================
    … …  
    474434}
    475435
    476 /*
    477 
    478 */
    479 
    480436/*
    481437   =============================================================================
    … …  
    528484        setipl(oldi);           /* turn interrupts back on */
    529485}
    530 
    531 /*
    532 
    533 */
    534486
    535487/*
    … …  
    566518}
    567519
    568 /*
    569 
    570 */
    571 
    572520/*
    573521   =============================================================================
    … …  
    615563}
    616564
    617 /*
    618 
    619 */
    620 
    621565/*
    622566   =============================================================================
    … …  
    650594
    651595                lcdlbls();
    652 /*
    653 
    654 */
     596
    655597        } else {                /* setup for load mode */
    656598
    … …  
    693635}
    694636
    695 /*
    696 
    697 */
    698 
    699637/*
    700638   =============================================================================
    … …  
    746684
    747685                break;
    748 /*
    749 
    750 */
     686
    751687        case LS_VOICE:          /* voice selection */
    752688
    … …  
    798734        }
    799735
    800 /*
    801 
    802 */
     736
    803737        GLCtext(7, 1, potlbls[sliders]);        /* label the pots */
    804738
    … …  
    856790}
    857791
    858 /*
    859 
    860 */
    861 
    862792/*
    863793   =============================================================================
    … …  
    909839}
    910840
    911 /*
    912 
    913 */
    914 
    915841/*
    916842   =============================================================================
    … …  
    926852        selasg(0);
    927853}
    928 
    929 /*
    930 
    931 */
    932854
    933855/*
    … …  
    960882                lseg(GOTO_XL, GOTO_Y, GOTO_XR, GOTO_Y, 0);
    961883        }
    962 /*
    963 
    964 */
     884
    965885        switch (asmode) {
    966886
    … …  
    1000920}
    1001921
    1002 /*
    1003 
    1004 */
    1005 
    1006922/*
    1007923   =============================================================================
    … …  
    1034950
    1035951        GLCcurs(G_OFF);
    1036 /*
    1037 
    1038 */
     952
    1039953        switch (ismode) {
    1040954
    … …  
    1077991}
    1078992
    1079 /*
    1080 
    1081 */
    1082 
    1083993/*
    1084994   =============================================================================
    … …  
    11271037        setinst();
    11281038
    1129 /*
    1130 
    1131 */
     1039
    11321040        ismode  = IS_NULL;
    11331041        pkctrl  = oldpk;
    … …  
    11391047}
    11401048
    1141 /*
    1142 
    1143 */
    1144 
    11451049/*
    11461050   =============================================================================
    … …  
    11561060        selins(0);
    11571061}
    1158 
    1159 /*
    1160 
    1161 */
    11621062
    11631063/*
    … …  
    11941094        recsw = FALSE;                  /* force play mode */
    11951095        dsrpmod();
    1196 /*
    1197 
    1198 */
     1096
    11991097        switch (gomode) {               /* select Go To mode */
    12001098
    … …  
    12301128        setleds();
    12311129}
    1232 
    1233 /*
    1234 
    1235 */
    12361130
    12371131/*
    … …  
    12551149        smp = smf = (struct sment *)&valents[gs];
    12561150
    1257 /*
    1258 
    1259 */
     1151
    12601152        while (smf NE (smp = smp->nxt)) {       /* for each function ... */
    12611153
    … …