Changeset fa38804 in buchla-68k for ram/ptselbx.c


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

Removed form-feed comments.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ram/ptselbx.c

    r1efe224 rfa38804  
    2727#define HT_OFF  0x00    /* no submenu highlighted */
    2828
    29 /*
    30 
    31 */
    32 
    3329int16_t ptegood;                /* pte buffer -- entire entry valid flag */
    3430
    … …  
    6359
    6460int8_t  ptdebuf[50];            /* patch edit buffer */
    65 
    66 /*
    67 
    68 */
    6961
    7062int8_t  *rawdfst[] = {          /* def/stm field initial contents */
    … …  
    10799};
    108100
    109 /*
    110 
    111 */
    112 
    113101int8_t  *rawmode[] = { "Frq ",  "Pch ",   "Int ",  "Rat " };    /* oscillator modes */
    114102int8_t  *rawmdat[] = { "00.1 ", "0C 00",  "+0000", "1/1  " };   /* oscillator data */
    … …  
    141129        SM_PTCH,  SM_FREQ,  SM_KVEL,  SM_KPRS,  SM_RAND
    142130};
    143 
    144 /*
    145 
    146 */
    147131
    148132int16_t destype[] = {                   /* destination type table */
    … …  
    179163};
    180164
    181 /*
    182 
    183 */
    184 
    185165int8_t  desdatf[] = {           /* data entry default flags */
    186166
    … …  
    212192        SM_HTPW,        SM_HTPW,        SM_HTPW,        SM_HTPW,        SM_HTPW
    213193};
    214 
    215 /*
    216 
    217 */
    218194
    219195int8_t  *rawdata[] = {
    … …  
    249225};
    250226
    251 /*
    252 
    253 */
    254 
    255227/*
    256228   =============================================================================
    … …  
    279251}
    280252
    281 /*
    282 
    283 */
    284 
    285253/*
    286254   =============================================================================
    … …  
    311279                break;
    312280
    313 /*
    314 
    315 */
     281
    316282        case 34:                /* may be a destination sub-address */
    317283        case 35:
    … …  
    360326
    361327                break;
    362 /*
    363 
    364 */
     328
    365329        case 42:                /* datum */
    366330
    … …  
    409373}
    410374
    411 /*
    412 
    413 */
    414 
    415375/*
    416376   =============================================================================
    … …  
    444404}
    445405
    446 /*
    447 
    448 */
    449 
    450406/*
    451407   =============================================================================
    … …  
    487443        stim =  (n ? ptestm : ptedef)        & 0x007F;
    488444
    489 /*
    490 
    491 */
    492 
    493445        if ( (port EQ 0) OR (port EQ 1) OR
    494446             ((port EQ 2) AND (chan < 2)) ) {           /* key / rel */
    … …  
    535487                else
    536488                        ptedef = (ptedef & 0x8000) | (port << 11) | (chan << 7) | stim;
    537 /*
    538 
    539 */
     489
    540490        } else if ((port EQ 2) AND (chan EQ 2)) {       /* Trig */
    541491
    … …  
    559509                else
    560510                        ptedef = 0x1100 | stim;
    561 /*
    562 
    563 */
     511
    564512        } else if ((port EQ 2) AND (chan EQ 3)) {       /* Pulse */
    565513
    … …  
    602550        }
    603551}
    604 
    605 /*
    606 
    607 */
    608552
    609553/*
    … …  
    656600
    657601                chan = ltemp - 1;
    658 /*
    659 
    660 */
     602
    661603                if (ptdebuf[34] EQ 'L') {
    662604
    … …  
    671613                ptesuba = (port << 11) | (chan << 7) | stim;
    672614                break;
    673 /*
    674 
    675 */
     615
    676616        case 1:         /* trigger */
    677617
    … …  
    721661                break;
    722662
    723 /*
    724 
    725 */
     663
    726664        case 5:         /* tuning */
    727665        case 7:         /* aux, rate, inten, depth */
    … …  
    752690                ptesuba = ptdebuf[32] - '0';
    753691                break;
    754 /*
    755 
    756 */
     692
    757693        case 9:         /* osc, ind, frq */
    758694
    … …  
    797733#endif
    798734}
    799 
    800 /*
    801 
    802 */
    803735
    804736/*
    … …  
    834766}
    835767
    836 /*
    837 
    838 */
    839 
    840768/*
    841769   =============================================================================
    … …  
    863791}
    864792
    865 /*
    866 
    867 */
    868 
    869793/*
    870794   =============================================================================
    … …  
    913837
    914838                        return(SUCCESS);
    915 /*
    916 
    917 */
     839
    918840                } else if (inrange(stccol, 28, 40)) {   /* DESTINATION */
    919841
    … …  
    941863
    942864                        return(SUCCESS);
    943 /*
    944 
    945 */
     865
    946866                } else if (inrange(stccol, 42, 46)) {   /* DATUM */
    947867
    … …  
    976896                                epatch();       /* enter -- multiplier */
    977897                                return(SUCCESS);
    978 /*
    979 
    980 */
     898
    981899                        case 2:         /* time -- 32767 */
    982900
    … …  
    1022940                                return(SUCCESS);
    1023941
    1024 /*
    1025 
    1026 */
     942
    1027943                        case 4:         /* interval -- +1200 */
    1028944
    … …  
    1044960                                epatch();       /* enter -- interval */
    1045961                                return(SUCCESS);
    1046 /*
    1047 
    1048 */
     962
    1049963                        case 5:         /* ratio -- 9/9 */
    1050964
    … …  
    1084998                                epatch();       /* enter - pitch */
    1085999                                return(SUCCESS);
    1086 /*
    1087 
    1088 */
     1000
    10891001                        case 8:         /* trans/stop/start */
    10901002                        case 9:         /* stop/start */
    … …  
    11271039                                epatch();       /* enter -- register | value */
    11281040                                return(SUCCESS);
    1129 /*
    1130 
    1131 */
     1041
    11321042                        case 13:        /* sequence line */
    11331043
    … …  
    11631073                                return(SUCCESS);
    11641074
    1165 /*
    1166 
    1167 */
     1075
    11681076                        case 15:        /* instrument number */
    11691077
    … …  
    11951103                                epatch();       /* enter -- waveshape number */
    11961104                                return(SUCCESS);
    1197 /*
    1198 
    1199 */
     1105
    12001106                        case 17:        /* configuration number */
    12011107
    … …  
    12271133
    12281134                return(FAILURE);
    1229 /*
    1230 
    1231 */
     1135
    12321136        } else {                                /* SUBMENU SELECTION */
    12331137
    … …  
    12551159                        return(FAILURE);
    12561160
    1257 /*
    1258 
    1259 */
     1161
    12601162                switch (ptemenu) {      /* switch on submenu type */
    12611163
    … …  
    12981200
    12991201                        return(FAILURE);
    1300 /*
    1301 
    1302 */
     1202
    13031203                case HT_1:      /* SOURCES */
    13041204
    … …  
    13191219
    13201220                        return(FAILURE);
    1321 /*
    1322 
    1323 */
     1221
    13241222                case HT_2:      /* DESTINATIONS */
    13251223
    … …  
    13601258
    13611259                        return(FAILURE);
    1362 /*
    1363 
    1364 */
     1260
    13651261                case HT_3:      /* OSCILLATOR MODES */
    13661262
    … …  
    13891285
    13901286                        return(FAILURE);
    1391 /*
    1392 
    1393 */
     1287
    13941288                case HT_5:      /* FPU OUTPUTS WITHOUT FUNCTIONS */
    13951289
Note: See TracChangeset for help on using the changeset viewer.