1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
|
/*
entry1.c:
Copyright (C) 1991 Barry Vercoe, John ffitch
This file is part of Csound.
The Csound Library is free software; you can redistribute it
and/or modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
Csound is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with Csound; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
02110-1301 USA
*/
#include "entry1.h" /* ENTRY1.C */
#include "interlocks.h"
/* thread vals, where isub=1, ksub=2:
0 = 1 OR 2 (B out only)
1 = 1
2 = 2
3 = 1 AND 2
*/
/* inarg types include the following:
i irate scalar
k krate scalar
a arate vector
f frequency variable
w spectral variable
x krate scalar or arate vector
S String
T String or i-rate
U String or i/k-rate
B Boolean k-rate
b Boolean i-rate; internally generated as required
l Label
. required arg of any-type
and codes
? optional arg of any-type
m begins an indef list of iargs (any count)
M begins an indef list of args (any count/rate i,k,a)
N begins an indef list of args (any count/rate i,k,a,S)
o optional i-rate, defaulting to 0
p " " 1
q " " 10
v " " .5
j " " -1
h " " 127
O optional k-rate, defaulting to 0
J " " -1
V " " .5
P " " 1
W begins indef list of Strings (any count)
y begins indef list of aargs (any count)
z begins indef list of kargs (any count)
Z begins alternating kakaka...list (any count)
*/
/* outarg types include:
i, k, a, S as above
* multiple out args of any-type
m multiple out aargs
z multiple out kargs
I multiple out irate (not implemented yet)
s deprecated (use a or k as required)
X multiple args (a, k, or i-rate) IV - Sep 1 2002
N multiple args (a, k, i, or S-rate)
F multiple args (f-rate)#
*/
/* inargs and outargs may also be arrays, e.g. "a[]" is an array of
arate vectors. Then for polymorphic opcode entries, "opcode.a" is
for arate vectors, and "opcode.A" is for arrays of arate vectors.
*/
OENTRY opcodlst_1[] = {
/* opcode dspace flags thread outarg inargs isub ksub asub */
{ "", 0, 0, 0, "", "", NULL, NULL, NULL, NULL },
{ "instr", 0, 0, 0, "", "", NULL, NULL, NULL, NULL },
{ "endin", 0, 0, 0, "", "", NULL, NULL, NULL, NULL },
/* IV - Sep 8 2002 */
{ "opcode", 0, 0, 0, "", "", NULL, NULL, NULL, NULL },
{ "endop", 0, 0, 0, "", "", NULL, NULL, NULL, NULL },
{ "$label", S(LBLBLK), 0,0, "", "", NULL, NULL, NULL, NULL },
{ "pset", S(PVSET), 0,0, "", "m", NULL, NULL, NULL, NULL },
/* IV - Sep 8 2002 - added entries for user defined opcodes, xin, xout */
/* and setksmps */
{ "##userOpcode", S(UOPCODE),0, 7, "", "", useropcdset, useropcd, useropcd, NULL },
/* IV - Sep 10 2002: removed perf time routines of xin and xout */
{ "xin", S(XIN_MAX),0, 1, "****************", "", xinset, NULL, NULL, NULL },
/* { "xin.64", S(XIN_HIGH),0, 1,
"****************************************************************", "",
xinset, NULL, NULL },
{ "##xin256", S(XIN_MAX),0, 1,
"****************************************************************"
"****************************************************************"
"****************************************************************"
"****************************************************************", "",
xinset, NULL, NULL },*/
{ "xout", S(XOUT_MAX),0, 1, "", "*", xoutset, NULL, NULL, NULL },
{ "setksmps", S(SETKSMPS),0, 1, "", "i", setksmpsset, NULL, NULL },
{ "ctrlinit",S(CTLINIT),0,1, "", "im", ctrlinit, NULL, NULL, NULL},
{ "ctrlinit.S",S(CTLINITS),0,1, "", "Sm", ctrlnameinit, NULL, NULL, NULL},
{ "ctrlsave",S(SAVECTRL),0,3, "k[]","im", savectrl_init, savectrl_perf, NULL, NULL},
{ "ctrlprint.S",S(PRINTCTRL),0,3, "", "k[]S", printctrl_init1, printctrl, NULL},
{ "ctrlprint",S(PRINTCTRL),0,3, "", "k[]", printctrl_init, printctrl, NULL},
{ "ctrlpreset", S(PRESETCTRL1), 0,3, "k", "kk[]", presetctrl1_init, presetctrl1_perf, NULL},
{ "ctrlpreset", S(PRESETCTRL), 0,3, "k", "kim", presetctrl_init, presetctrl_perf, NULL},
{ "ctrlselect", S(SELECTCTRL), 0,3,"", "k", selectctrl_init, selectctrl_perf, NULL },
{ "ctrlprintpresets", S(PRINTPRESETS), 0,3, "", "", printpresets_init, printpresets_perf, NULL},
{ "ctrlprintpresets.S", S(PRINTPRESETS), 0,3, "", "S", printpresets_init1, printpresets_perf, NULL},
{ "massign",S(MASSIGN), 0,1, "", "iip",massign_p, NULL, NULL, NULL},
{ "massign.iS",S(MASSIGNS), 0,1, "", "iSp",massign_S, NULL, NULL, NULL},
{ "turnon", S(TURNON), 0,1, "", "io", turnon, NULL, NULL, NULL},
{ "turnon.S", S(TURNON), 0,1, "", "So", turnon_S, NULL, NULL, NULL},
{ "remoteport", S(REMOTEPORT), 0,1, "", "i", remoteport, NULL, NULL, NULL},
{ "insremot",S(INSREMOT),0,1, "", "SSm",insremot, NULL, NULL, NULL},
{ "midremot",S(MIDREMOT),0,1, "", "SSm",midremot, NULL, NULL, NULL},
{ "insglobal",S(INSGLOBAL),0,1, "", "Sm", insglobal, NULL, NULL, NULL},
{ "midglobal",S(MIDGLOBAL),0,1, "", "Sm", midglobal, NULL, NULL, NULL},
{ "ihold", S(LINK),0, 1, "", "", ihold, NULL, NULL, NULL },
{ "turnoff",S(LINK),0, 2, "", "", NULL, turnoff, NULL, NULL },
{ "=.S", S(STRCPY_OP),0, 1, "S", "S",
(SUBR) strcpy_opcode_S, NULL, (SUBR) NULL, NULL },
{ "#=.S", S(STRCPY_OP),0, 2, "S", "S",
NULL, (SUBR) strcpy_opcode_S, (SUBR) NULL, NULL },
{ "=.T", S(STRGET_OP),0, 1, "S", "i",
(SUBR) strcpy_opcode_p, (SUBR) NULL, (SUBR) NULL, NULL },
{ "=.r", S(ASSIGN),0, 1, "r", "i", rassign, NULL, NULL, NULL },
{ "=.i", S(ASSIGNM),0, 1, "IIIIIIIIIIIIIIIIIIIIIIII", "m",
minit, NULL, NULL, NULL },
{ "=.k", S(ASSIGNM),0, 2, "zzzzzzzzzzzzzzzzzzzzzzzz", "z",
NULL, minit, NULL, NULL },
{ "=.a", S(ASSIGN),0, 2, "a", "a", NULL, gaassign, NULL },
{ "=.l", S(ASSIGN),0, 2, "a", "a", NULL, laassign, NULL },
{ "=.up", S(UPSAMP),0, 2, "a", "k", NULL, (SUBR)upsamp, NULL },
{ "=.down", S(DOWNSAMP),0, 3, "k", "ao", (SUBR)downset,(SUBR)downsamp },
// { "=.t", S(ASSIGNT),0, 2, "t", "kk", NULL, tassign, NULL },
{ "init.S", S(STRCPY_OP),0, 1, "S", "S", (SUBR) strcpy_opcode_S },
{ "init.Si", S(STRCPY_OP),0, 1, "S", "i", (SUBR) strcpy_opcode_p },
{ "init.i", S(ASSIGNM),0, 1, "IIIIIIIIIIIIIIIIIIIIIIII", "m", minit },
{ "init.k", S(ASSIGNM),0, 1, "zzzzzzzzzzzzzzzzzzzzzzzz", "m", minit },
{ "init.a", S(ASSIGNM),0, 1, "mmmmmmmmmmmmmmmmmmmmmmmm", "m", mainit },
{ ">", S(RELAT),0, 0, "b", "ii", gt, gt },
{ ">.0", S(RELAT),0, 0, "B", "kk", gt, gt },
{ ">=", S(RELAT),0, 0, "b", "ii", ge, ge },
{ ">=.0", S(RELAT),0, 0, "B", "kk", ge, ge },
{ "<", S(RELAT),0, 0, "b", "ii", lt, lt },
{ "<.0", S(RELAT),0, 0, "B", "kk", lt, lt },
{ "<=", S(RELAT),0, 0, "b", "ii", le, le },
{ "<=.0", S(RELAT),0, 0, "B", "kk", le, le },
{ "==", S(RELAT),0, 0, "b", "ii", eq, eq },
{ "==.0", S(RELAT),0, 0, "B", "kk", eq, eq },
{ "!=", S(RELAT),0, 0, "b", "ii", ne, ne },
{ "!=.0", S(RELAT),0, 0, "B", "kk", ne, ne },
{ "!", S(LOGCL),0, 0, "b", "b", b_not, b_not },
{ "!.0", S(LOGCL),0, 0, "B", "B", b_not, b_not },
{ "&&", S(LOGCL),0, 0, "b", "bb", and, and },
{ "&&.0", S(LOGCL),0, 0, "B", "BB", and, and },
{ "||", S(LOGCL),0, 0, "b", "bb", or, or },
{ "||.0", S(LOGCL),0, 0, "B", "BB", or, or },
{ ":cond.i", S(CONVAL),0, 1, "i", "bii", conval },
{ ":cond.k", S(CONVAL),0, 2, "k", "Bkk", NULL, conval },
{ ":cond.a", S(CONVAL),0, 2, "a", "Bxx", NULL, aconval },
{ ":cond.s", S(CONVAL),0, 1, "S", "bSS", conval, NULL },
{ ":cond.S", S(CONVAL),0, 3, "S", "BSS", conval, conval },
{ "##add.ii", S(AOP),0, 1, "i", "ii", addkk },
{ "##sub.ii", S(AOP),0, 1, "i", "ii", subkk },
{ "##mul.ii", S(AOP),0, 1, "i", "ii", mulkk },
{ "##div.ii", S(AOP),0, 1, "i", "ii", divkk },
{ "##mod.ii", S(AOP),0, 1, "i", "ii", modkk },
{ "##add.kk", S(AOP),0, 2, "k", "kk", NULL, addkk },
{ "##sub.kk", S(AOP),0, 2, "k", "kk", NULL, subkk },
{ "##mul.kk", S(AOP),0, 2, "k", "kk", NULL, mulkk },
{ "##div.kk", S(AOP),0, 2, "k", "kk", NULL, divkk },
{ "##mod.kk", S(AOP),0, 2, "k", "kk", NULL, modkk },
{ "##add.ka", S(AOP),0, 2, "a", "ka", NULL, addka },
{ "##sub.ka", S(AOP),0, 2, "a", "ka", NULL, subka },
{ "##mul.ka", S(AOP),0, 2, "a", "ka", NULL, mulka },
{ "##div.ka", S(AOP),0, 2, "a", "ka", NULL, divka },
{ "##mod.ka", S(AOP),0, 2, "a", "ka", NULL, modka },
{ "##add.ak", S(AOP),0, 2, "a", "ak", NULL, addak },
{ "##sub.ak", S(AOP),0, 2, "a", "ak", NULL, subak },
{ "##mul.ak", S(AOP),0, 2, "a", "ak", NULL, mulak },
{ "##div.ak", S(AOP),0, 2, "a", "ak", NULL, divak },
{ "##mod.ak", S(AOP),0, 2, "a", "ak", NULL, modak },
{ "##add.aa", S(AOP),0, 2, "a", "aa", NULL, addaa },
{ "##sub.aa", S(AOP),0, 2, "a", "aa", NULL, subaa },
{ "##mul.aa", S(AOP),0, 2, "a", "aa", NULL, mulaa },
{ "##div.aa", S(AOP),0, 2, "a", "aa", NULL, divaa },
{ "##mod.aa", S(AOP),0, 2, "a", "aa", NULL, modaa },
{ "##addin.i", S(ASSIGN),0, 1, "i", "i", addin, NULL },
{ "##addin.k", S(ASSIGN),0, 2, "k", "k", NULL, addin },
{ "##addin.K", S(ASSIGN),0, 2, "a", "k", NULL, addinak },
{ "##addin.a", S(ASSIGN),0, 2, "a", "a", NULL, addina },
{ "##subin.i", S(ASSIGN),0, 1, "i", "i", subin, NULL },
{ "##subin.k", S(ASSIGN),0, 2, "k", "k", NULL, subin },
{ "##subin.K", S(ASSIGN),0, 2, "a", "k", NULL, subinak },
{ "##subin.a", S(ASSIGN),0, 2, "a", "a", NULL, subina },
//{ "divz", 0xfffc },
{ "divz.ii", S(DIVZ),0, 1, "i", "iii", divzkk, NULL, NULL },
{ "divz.kk", S(DIVZ),0, 2, "k", "kkk", NULL, divzkk, NULL },
{ "divz.ak", S(DIVZ),0, 2, "a", "akk", NULL, divzak },
{ "divz.ka", S(DIVZ),0, 2, "a", "kak", NULL, divzka },
{ "divz.aa", S(DIVZ),0, 2, "a", "aak", NULL, divzaa },
{ "int.i", S(EVAL),0, 1, "i", "i", int1 },
{ "frac.i", S(EVAL),0, 1, "i", "i", frac1 },
{ "round.i",S(EVAL),0, 1, "i", "i", int1_round },
{ "floor.i",S(EVAL),0, 1, "i", "i", int1_floor },
{ "ceil.i", S(EVAL),0, 1, "i", "i", int1_ceil },
{ "rndseed", S(EVAL),0, 1, "", "i", rnd1seed },
{ "rnd.i", S(EVAL),0, 1, "i", "i", rnd1 },
{ "birnd.i",S(EVAL),0, 1, "i", "i", birnd1 },
{ "abs.i", S(EVAL),0, 1, "i", "i", abs1 },
{ "exp.i", S(EVAL),0, 1, "i", "i", exp01 },
{ "log.i", S(EVAL),0, 1, "i", "i", log01 },
{ "sqrt.i", S(EVAL),0, 1, "i", "i", sqrt1 },
{ "sin.i", S(EVAL),0, 1, "i", "i", sin1 },
{ "cos.i", S(EVAL),0, 1, "i", "i", cos1 },
{ "tan.i", S(EVAL),0, 1, "i", "i", tan1 },
{ "qinf.i", S(EVAL),0, 1, "i", "i", is_inf },
{ "qnan.i", S(EVAL),0, 1, "i", "i", is_NaN },
{ "sininv.i", S(EVAL),0, 1, "i", "i", asin1 },
{ "cosinv.i", S(EVAL),0, 1, "i", "i", acos1 },
{ "taninv.i", S(EVAL),0, 1, "i", "i", atan1 },
{ "taninv2.i",S(AOP),0, 1, "i", "ii", atan21 },
{ "log10.i",S(EVAL),0, 1, "i", "i", log101 },
{ "log2.i", S(EVAL),0, 1, "i", "i", log21 },
{ "sinh.i", S(EVAL),0, 1, "i", "i", sinh1 },
{ "cosh.i", S(EVAL),0, 1, "i", "i", cosh1 },
{ "tanh.i", S(EVAL),0, 1, "i", "i", tanh1 },
{ "int.k", S(EVAL),0, 2, "k", "k", NULL, int1 },
{ "frac.k", S(EVAL),0, 2, "k", "k", NULL, frac1 },
{ "round.k",S(EVAL),0, 2, "k", "k", NULL, int1_round },
{ "floor.k",S(EVAL),0, 2, "k", "k", NULL, int1_floor },
{ "ceil.k", S(EVAL),0, 2, "k", "k", NULL, int1_ceil },
{ "rnd.k", S(EVAL),0, 2, "k", "k", NULL, rnd1 },
{ "birnd.k",S(EVAL),0, 2, "k", "k", NULL, birnd1 },
{ "abs.k", S(EVAL),0, 2, "k", "k", NULL, abs1 },
{ "exp.k", S(EVAL),0, 2, "k", "k", NULL, exp01 },
{ "log.k", S(EVAL),0, 2, "k", "k", NULL, log01 },
{ "sqrt.k", S(EVAL),0, 2, "k", "k", NULL, sqrt1 },
{ "sin.k", S(EVAL),0, 2, "k", "k", NULL, sin1 },
{ "cos.k", S(EVAL),0, 2, "k", "k", NULL, cos1 },
{ "tan.k", S(EVAL),0, 2, "k", "k", NULL, tan1 },
{ "qinf.k", S(EVAL),0, 2, "k", "k", NULL, is_inf },
{ "qnan.k", S(EVAL),0, 2, "k", "k", NULL, is_NaN },
{ "sininv.k", S(EVAL),0, 2, "k", "k", NULL, asin1 },
{ "cosinv.k", S(EVAL),0, 2, "k", "k", NULL, acos1 },
{ "taninv.k", S(EVAL),0, 2, "k", "k", NULL, atan1 },
{ "taninv2.k",S(AOP),0, 2, "k", "kk", NULL, atan21 },
{ "sinh.k", S(EVAL),0, 2, "k", "k", NULL, sinh1 },
{ "cosh.k", S(EVAL),0, 2, "k", "k", NULL, cosh1 },
{ "tanh.k", S(EVAL),0, 2, "k", "k", NULL, tanh1 },
{ "log10.k",S(EVAL),0, 2, "k", "k", NULL, log101 },
{ "log2.k", S(EVAL),0, 2, "k", "k", NULL, log21 },
{ "int.a", S(EVAL),0, 2, "a", "a", NULL, int1a },
{ "frac.a", S(EVAL),0, 2, "a", "a", NULL, frac1a },
{ "round.a",S(EVAL),0, 2, "a", "a", NULL, int1a_round },
{ "floor.a",S(EVAL),0, 2, "a", "a", NULL, int1a_floor },
{ "ceil.a", S(EVAL),0, 2, "a", "a", NULL, int1a_ceil },
{ "abs.a", S(EVAL),0, 2, "a", "a", NULL, absa },
{ "exp.a", S(EVAL),0, 2, "a", "a", NULL, expa },
{ "log.a", S(EVAL),0, 2, "a", "a", NULL, loga },
{ "sqrt.a", S(EVAL),0, 2, "a", "a", NULL, sqrta },
{ "sin.a", S(EVAL),0, 2, "a", "a", NULL, sina },
{ "cos.a", S(EVAL),0, 2, "a", "a", NULL, cosa },
{ "tan.a", S(EVAL),0, 2, "a", "a", NULL, tana },
{ "qinf.a", S(EVAL),0, 2, "a", "a", NULL, is_infa },
{ "qnan.a", S(EVAL),0, 2, "a", "a", NULL, is_NaNa },
{ "sininv.a", S(EVAL),0, 2, "a", "a", NULL, asina },
{ "cosinv.a", S(EVAL),0, 2, "a", "a", NULL, acosa },
{ "taninv.a", S(EVAL),0, 2, "a", "a", NULL, atana },
{ "taninv2.a",S(AOP),0, 2, "a", "aa", NULL, atan2aa },
{ "sinh.a", S(EVAL),0, 2, "a", "a", NULL, sinha },
{ "cosh.a", S(EVAL),0, 2, "a", "a", NULL, cosha },
{ "tanh.a", S(EVAL),0, 2, "a", "a", NULL, tanha },
{ "log10.a",S(EVAL),0, 2, "a", "a", NULL, log10a },
{ "log2.a", S(EVAL),0, 2, "a", "a", NULL, log2a },
{ "ampdb.a",S(EVAL),0, 2, "a", "a", NULL, aampdb },
{ "ampdb.i",S(EVAL),0, 1, "i", "i", ampdb },
{ "ampdb.k",S(EVAL),0, 2, "k", "k", NULL, ampdb },
{ "ampdbfs.a",S(EVAL),0, 2, "a", "a", NULL, aampdbfs },
{ "ampdbfs.i",S(EVAL),0, 1, "i", "i", ampdbfs },
{ "ampdbfs.k",S(EVAL),0, 2, "k", "k", NULL, ampdbfs },
{ "dbamp.i",S(EVAL),0, 1, "i", "i", dbamp },
{ "dbamp.k",S(EVAL),0, 2, "k", "k", NULL, dbamp },
{ "dbfsamp.i",S(EVAL),0, 1, "i", "i", dbfsamp },
{ "dbfsamp.k",S(EVAL),0, 2, "k", "k", NULL, dbfsamp },
{ "rtclock.i",S(EVAL),0, 1, "i", "", rtclock },
{ "rtclock.k",S(EVAL),0, 2, "k", "", NULL, rtclock },
{ "ftlen.i",S(EVAL),0, 1, "i", "i", ftlen },
{ "ftsr.i",S(EVAL),0, 1, "i", "i", ftsr },
{ "ftlptim.i",S(EVAL),0, 1, "i", "i", ftlptim },
{ "ftchnls.i",S(EVAL),0, 1, "i", "i", ftchnls },
{ "ftcps.i",S(EVAL),0, 1, "i", "i", ftcps },
{ "i.i", S(ASSIGN),0, 1, "i", "i", assign },
{ "i.k", S(ASSIGN),0, 1, "i", "k", assign },
{ "k.i", S(ASSIGN),0, 1, "k", "i", assign },
{ "k.a", S(DOWNSAMP),0, 3, "k", "ao", (SUBR)downset,(SUBR)downsamp },
{ "cpsoct.i",S(EVAL),0, 1, "i", "i", cpsoct },
{ "octpch.i",S(EVAL),0, 1, "i", "i", octpch },
{ "cpspch.i",S(EVAL),0, 1, "i", "i", cpspch },
{ "pchoct.i",S(EVAL),0, 1, "i", "i", pchoct },
{ "octcps.i",S(EVAL),0, 1, "i", "i", octcps },
{ "cpsoct.k",S(EVAL),0, 2, "k", "k", NULL, cpsoct },
{ "octpch.k",S(EVAL),0, 2, "k", "k", NULL, octpch },
{ "cpspch.k",S(EVAL),0, 2, "k", "k", NULL, cpspch },
{ "pchoct.k",S(EVAL),0, 2, "k", "k", NULL, pchoct },
{ "octcps.k",S(EVAL),0, 2, "k", "k", NULL, octcps },
{ "cpsoct.a",S(EVAL),0, 2, "a", "a", NULL, acpsoct },
{ "cpsmidinn.i",S(EVAL),0,1, "i", "i", cpsmidinn },
{ "octmidinn.i",S(EVAL),0,1, "i", "i", octmidinn },
{ "pchmidinn.i",S(EVAL),0,1, "i", "i", pchmidinn },
{ "cpsmidinn.k",S(EVAL),0,2, "k", "k", NULL, cpsmidinn },
{ "octmidinn.k",S(EVAL),0,2, "k", "k", NULL, octmidinn },
{ "pchmidinn.k",S(EVAL),0,2, "k", "k", NULL, pchmidinn },
{ "notnum", S(MIDIKMB),0, 1, "i", "", notnum },
{ "veloc", S(MIDIMAP),0, 1, "i", "oh", veloc },
{ "pchmidi",S(MIDIKMB),0, 1, "i", "", pchmidi },
{ "octmidi",S(MIDIKMB),0, 1, "i", "", octmidi },
{ "cpsmidi",S(MIDIKMB),0, 1, "i", "", cpsmidi },
{ "pchmidib.i",S(MIDIKMB),0,1, "i", "o", pchmidib_i },
{ "octmidib.i",S(MIDIKMB),0,1, "i", "o", octmidib_i },
{ "cpsmidib.i",S(MIDIKMB),0,1, "i", "o", icpsmidib_i },
{ "pchmidib.k",S(MIDIKMB),0,3, "k", "o", midibset, pchmidib },
{ "octmidib.k",S(MIDIKMB),0,3, "k", "o", midibset, octmidib },
{ "cpsmidib.k",S(MIDIKMB),0,3, "k", "o", midibset, icpsmidib },
{ "ampmidi",S(MIDIAMP),0, 1, "i", "io", ampmidi },
{ "aftouch",S(MIDIKMAP),0, 3, "k", "oh", aftset, aftouch },
{ "pchbend.i",S(MIDIMAP),0,1, "i", "jp", ipchbend },
{ "pchbend.k",S(MIDIKMAP),0,3, "k", "jp", kbndset,kpchbend },
{ "midictrl.i",S(MIDICTL),0,1, "i", "ioh", imidictl },
{ "midictrl.k",S(MIDICTL),0,3, "k", "ioh", mctlset, midictl },
{ "polyaft.i",S(MIDICTL),0,1, "i", "ioh", imidiaft },
{ "polyaft.k",S(MIDICTL),0,3, "k", "ioh", maftset, midiaft },
{ "chanctrl.i",S(CHANCTL),0,1, "i", "iioh", ichanctl },
{ "chanctrl.k",S(CHANCTL),0,3, "k", "iioh", chctlset,chanctl },
{ "line", S(LINE),0, 3, "k", "iii", linset, kline, NULL },
{ "line.a", S(LINE),0, 3, "a", "iii", linset, aline },
{ "expon", S(EXPON),0, 3, "k", "iii", expset, kexpon, NULL },
{ "expon.a", S(EXPON),0, 3, "a", "iii", expset, expon },
{ "cosseg", S(COSSEG),0, 3, "k", "iim", csgset, kosseg, NULL },
{ "cosseg.a", S(COSSEG),0, 3, "a", "iim", csgset, cosseg },
{ "cossegb", S(COSSEG),0, 3, "k", "iim", csgset_bkpt, kosseg, NULL },
{ "cossegb.a", S(COSSEG),0, 3, "a", "iim", csgset_bkpt, cosseg },
{ "cossegr", S(COSSEG),0, 3, "k", "iim", csgrset, kcssegr, NULL },
{ "cossegr.a", S(COSSEG),0, 3, "a", "iim", csgrset, cossegr },
{ "linseg", S(LINSEG),0, 3, "k", "iim", lsgset, klnseg, NULL },
{ "linseg.a", S(LINSEG),0, 3, "a", "iim", lsgset, linseg },
{ "linsegb", S(LINSEG),0, 3, "k", "iim", lsgset_bkpt, klnseg, NULL },
{ "linsegb.a", S(LINSEG),0, 3, "a", "iim", lsgset_bkpt, linseg },
{ "linsegr",S(LINSEG),0, 3, "k", "iim", lsgrset,klnsegr,NULL },
{ "linsegr.a",S(LINSEG),0, 3, "a", "iim", lsgrset,linsegr },
{ "expseg", S(EXXPSEG),0, 3, "k", "iim", xsgset, kxpseg, NULL },
{ "expseg.a", S(EXXPSEG),0, 3, "a", "iim", xsgset, expseg },
{ "expsegb", S(EXXPSEG),0, 3, "k", "iim", xsgset_bkpt, kxpseg, NULL },
{ "expsegb.a", S(EXXPSEG),0, 3, "a", "iim", xsgset_bkpt, expseg },
{ "expsega",S(EXPSEG2),0, 3, "a", "iim", xsgset2, expseg2 },
{ "expsegba",S(EXPSEG2),0, 3, "a", "iim", xsgset2b, expseg2 },
{ "expsegr",S(EXPSEG),0, 3, "k", "iim", xsgrset,kxpsegr,NULL },
{ "expsegr.a",S(EXPSEG),0, 3, "a", "iim", xsgrset,expsegr },
{ "linen", S(LINEN),0, 3, "k", "kiii", lnnset, klinen, NULL },
{ "linen.a", S(LINEN),0, 3, "a", "aiii", alnnset, linen },
{ "linen.x", S(LINEN),0, 3, "a", "kiii", alnnset, linen },
{ "linenr", S(LINENR),0, 3, "k", "kiii", lnrset, klinenr,NULL },
{ "linenr.a", S(LINENR),0, 3, "a", "aiii", alnrset,linenr },
{ "linenr.x", S(LINENR),0, 3, "a", "kiii", alnrset,linenr },
{ "envlpx", S(ENVLPX), TR, 3, "k","kiiiiiio", evxset, knvlpx, NULL },
{ "envlpxr", S(ENVLPR),TR, 3, "k","kiiiiioo", evrset, knvlpxr, NULL },
{ "envlpx.a", S(ENVLPX), TR, 3, "a","aiiiiiio", aevxset,envlpx },
{ "envlpxr.a", S(ENVLPR),TR, 3, "a","aiiiiioo", aevrset,envlpxr },
{ "envlpx.x", S(ENVLPX), TR, 3, "a","kiiiiiio", aevxset,envlpx },
{ "envlpxr.x", S(ENVLPR),TR, 3, "a","kiiiiioo", aevrset,envlpxr },
{ "phasor", S(PHSOR),0, 3, "a", "xo", phsset, phsor },
{ "phasor.k", S(PHSOR),0, 3, "k", "ko", phsset, kphsor, NULL },
{ "ephasor", S(EPHSOR), 0, 3, "aa", "xko", ephsset, ephsor },
{ "signum.i", S(ASSIGN), 0, 1, "i", "i", signum, NULL, NULL },
{ "signum.k", S(ASSIGN), 0, 3, "k", "k", signum, signum, NULL },
{ "signum.a", S(ASSIGN), 0, 2, "a", "a", NULL, asignum },
{ "table.i", S(TABL),TR, 1, "i", "iiooo",(SUBR)tabler_init },
{ "table.k", S(TABL),TR, 3, "k", "xiooo",(SUBR)tabl_setup,
(SUBR)tabler_kontrol },
{ "table.a", S(TABL),TR, 3, "a", "xiooo",(SUBR)tabl_setup,
(SUBR)tabler_audio },
{ "tablei.i", S(TABL),TR, 1, "i", "iiooo",(SUBR)tableir_init },
{ "tablei.k", S(TABL),TR, 3, "k", "xiooo",(SUBR)tabl_setup,
(SUBR)tableir_kontrol },
{ "tablei.a", S(TABL),TR, 3, "a", "xiooo",(SUBR)tabl_setup,
(SUBR)tableir_audio },
{ "table3.i", S(TABL),TR, 1, "i", "iiooo",(SUBR)table3r_init },
{ "table3.k", S(TABL),TR, 3, "k", "xiooo",(SUBR)tabl_setup,
(SUBR)table3r_kontrol },
{ "table3.a", S(TABL),TR, 3, "a", "xiooo",(SUBR)tabl_setup,
(SUBR)table3r_audio },
{ "ptable.i", S(TABLE),TR|_QQ, 1,"i", "iiooo",(SUBR)tabler_init },
{ "ptable.k", S(TABLE),TR|_QQ, 3, "k", "xiooo",(SUBR)tabl_setup,
(SUBR)tabler_kontrol },
{ "ptable.a", S(TABLE),TR|_QQ, 3, "a", "xiooo",(SUBR)tabl_setup,
(SUBR)tabler_audio },
{ "ptablei.i", S(TABLE),TR|_QQ, 1,"i", "iiooo",(SUBR)tableir_init },
{ "ptablei.k", S(TABLE),TR|_QQ, 3, "k", "xiooo",(SUBR)tabl_setup,
(SUBR)tableir_kontrol },
{ "ptablei.a", S(TABLE),TR|_QQ, 3, "a", "xiooo",(SUBR)tabl_setup,
(SUBR)tableir_audio },
{ "ptable3.i", S(TABLE),TR|_QQ, 1,"i", "iiooo",(SUBR)table3r_init },
{ "ptable3.k", S(TABLE),TR|_QQ, 3, "k", "xiooo",(SUBR)tabl_setup,
(SUBR)table3r_kontrol },
{ "ptable3.a", S(TABLE),TR|_QQ, 3, "a", "xiooo",(SUBR)tabl_setup,
(SUBR)table3r_audio },
{ "oscil1", S(OSCIL1), TR, 3, "k", "ikij", ko1set, kosc1 },
{ "oscil1i",S(OSCIL1), TR, 3, "k", "ikij", ko1set, kosc1i },
{ "osciln", S(OSCILN), TR, 3, "a", "kiii", oscnset, osciln },
{ "oscil.a",S(OSC),TR, 3, "a", "kkjo", oscset, osckk },
{ "oscil.kkk",S(OSC),TR, 3, "k", "kkjo", oscset, koscil },
{ "oscil.kka",S(OSC),TR, 3, "a", "kkjo", oscset, osckk },
{ "oscil.ka",S(OSC),TR, 3, "a", "kajo", oscset, oscka },
{ "oscil.ak",S(OSC),TR, 3, "a", "akjo", oscset, oscak },
{ "oscil.aa",S(OSC),TR, 3, "a", "aajo", oscset, oscaa },
{ "oscil.kkA",S(OSC),0, 3, "k", "kki[]o", oscsetA, koscil },
{ "oscil.kkA",S(OSC),0, 3, "a", "kki[]o", oscsetA, osckk },
{ "oscil.kaA",S(OSC),0, 3, "a", "kai[]o", oscsetA, oscka },
{ "oscil.akA",S(OSC),0, 3, "a", "aki[]o", oscsetA, oscak },
{ "oscil.aaA",S(OSC),0, 3, "a", "aai[]o", oscsetA,oscaa },
/* Change these to
{ "oscil.kkk", S(POSC),TR, 3, "k", "kkjo", posc_set, kposc },
{ "oscil.kka", S(POSC),TR, 3,, "a", "kkjo"_set, NULL, posckk },
{ "oscil.ka", S(POSC),TR, 3, "a", "kajo", posc_set, poscka },
{ "oscil.ak", S(POSC),TR, 3, "a", "akjo", posc_set, poscak },
{ "oscil.aa", S(POSC),TR, 3, "a", "aajo", posc_set, poscaa },
{ "oscil3.kk", S(POSC),TR, 7, "s", "kkjo", posc_set, kposc3, posc3 },
*/
{ "oscili.a",S(OSC),TR, 3, "a", "kkjo", oscset, osckki },
{ "oscili.kk",S(OSC),TR, 3, "k", "kkjo", oscset, koscli, NULL },
{ "oscili.ka",S(OSC),TR, 3, "a", "kajo", oscset, osckai },
{ "oscili.ak",S(OSC),TR, 3, "a", "akjo", oscset, oscaki },
{ "oscili.aa",S(OSC),TR, 3, "a", "aajo", oscset, oscaai },
{ "oscili.aA",S(OSC),0, 3, "a", "kki[]o", oscsetA, osckki },
{ "oscili.kkA",S(OSC),0, 3, "k", "kki[]o", oscsetA, koscli, NULL },
{ "oscili.kaA",S(OSC),0, 3, "a", "kai[]o", oscsetA, osckai },
{ "oscili.akA",S(OSC),0, 3, "a", "aki[]o", oscsetA, oscaki },
{ "oscili.aaA",S(OSC),0, 3, "a", "aai[]o", oscsetA, oscaai },
{ "oscil3.a",S(OSC),TR, 3, "a", "kkjo", oscset, osckk3 },
{ "oscil3.kk",S(OSC),TR, 3, "k", "kkjo", oscset, koscl3, NULL },
{ "oscil3.ka",S(OSC),TR, 3, "a", "kajo", oscset, oscka3 },
{ "oscil3.ak",S(OSC),TR, 3, "a", "akjo", oscset, oscak3 },
{ "oscil3.aa",S(OSC),TR, 3, "a", "aajo", oscset, oscaa3 },
{ "oscil3.aA",S(OSC),0, 3, "a", "kki[]o", oscsetA, osckk3 },
{ "oscil3.kkA",S(OSC),0, 3, "k", "kki[]o", oscsetA, koscl3, NULL },
{ "oscil3.kaA",S(OSC),0, 3, "a", "kai[]o", oscsetA, oscka3 },
{ "oscil3.akA",S(OSC),0, 3, "a", "aki[]o", oscsetA, oscak3 },
{ "oscil3.aaA",S(OSC),0, 3, "a", "aai[]o", oscsetA, oscaa3 },
/* end change */
{ "foscil", S(FOSC),TR, 3, "a", "xkxxkjo",foscset, foscil },
{ "foscili",S(FOSC),TR, 3, "a", "xkxxkjo",foscset, foscili },
{ "loscil", S(LOSC),TR, 3, "mm","xkjojoojoo",losset, loscil },
{ "loscilphs", S(LOSCPHS),TR, 3, "amm","xkjojoojoo",losset_phs, loscil_phs },
{ "loscil3phs", S(LOSCPHS),TR, 3,"amm","xkjojoojoo",losset_phs, loscil3_phs },
{ "loscil3", S(LOSC),TR, 3, "mm","xkjojoojoo",losset, loscil3 },
{ "adsyn", S(ADSYN),0, 3, "a", "kkkSo", adset_S, adsyn },
{ "adsyn.i", S(ADSYN),0, 3, "a", "kkkio", adset, adsyn },
{ "buzz", S(BUZZ),TR, 3, "a", "xxkio", bzzset, buzz },
{ "gbuzz", S(GBUZZ),TR, 3, "a", "xxkkkio",gbzset, gbuzz },
{ "pluck", S(PLUCK), TR, 3, "a", "kkiiioo",plukset, pluck },
{ "rand", S(RAND),0, 3, "a", "xvoo", rndset, arand },
{ "rand.k", S(RAND),0, 3, "k", "xvoo", rndset, krand, NULL },
{ "randh", S(RANDH),0, 3, "a", "xxvoo", rhset, randh },
{ "randh.k", S(RANDH),0, 3, "k", "xxvoo", rhset, krandh, NULL },
{ "randi", S(RANDI),0, 3, "a", "xxvoo", riset, randi },
{ "randi.k", S(RANDI),0, 3, "k", "xxvoo", riset, krandi },
{ "randc", S(RANDC),0, 3, "a", "xxvoo", rcset, randc },
{ "randc.k", S(RANDC),0, 3, "k", "xxvoo", rcset, krandc },
{ "port", S(PORT),0, 3, "k", "kio", porset, port },
{ "tone.k", S(TONE),0, 3, "a", "ako", tonset, tone },
{ "tonex.k",S(TONEX),0, 3, "a", "akoo", tonsetx, tonex },
{ "atone.k", S(TONE),0, 3, "a", "ako", tonset, atone },
{ "atonex.k", S(TONEX),0, 3, "a", "akoo", tonsetx, atonex },
{ "reson", S(RESON), 0, 3, "a", "axxoo", rsnset, reson },
{ "resonx", S(RESONX),0, 3, "a", "axxooo", rsnsetx, resonx },
{ "areson.kk", S(RESON),0,3, "a", "akkoo",rsnset, areson },
{ "lpread", S(LPREAD),0, 3, "kkkk", "kSoo", lprdset_S,lpread },
{ "lpread.i", S(LPREAD),0, 3, "kkkk", "kioo", lprdset,lpread },
{ "lpform", S(LPFORM),0, 3, "kk", "k", lpformantset,lpformant },
{ "lpreson",S(LPRESON),0, 3, "a", "a", lprsnset, lpreson },
{ "lpfreson",S(LPFRESON),0,3, "a", "ak", lpfrsnset, lpfreson},
{ "lpslot" , S(LPSLOT),0, 1, "", "i", lpslotset, NULL, NULL },
{ "lpinterp", S(LPINTERPOL),0, 3, "", "iik", lpitpset, lpinterpol, NULL},
{ "rms", S(RMS),0, 3, "k", "aqo", rmsset, rms },
{ "gain", S(GAIN),0, 3, "a", "akqo", gainset, gain },
{ "balance",S(BALANCE),0, 3, "a", "aaqo", balnset, balance },
{ "balance2",S(BALANCE),0, 3, "a", "aaqo", balnset, balance2 },
{ "pan", S(PAN),0, 3, "aaaa", "akkioo",(SUBR)panset, (SUBR)pan },
{ "soundin",S(DISKIN2),0,3,"mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm","Soooo",
sndinset_S, soundin },
{ "soundin.i",S(DISKIN2),0,3,"mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm","ioooo",
sndinset, soundin },
{ "soundout",S(SNDOUT), _QQ, 3, "", "aSo", sndoutset_S, soundout },
{ "soundout.i",S(SNDOUT), _QQ, 3, "", "aio", sndoutset, soundout },
{ "soundouts",S(SNDOUTS),_QQ, 3, "", "aaSo", sndoutset_S, soundouts },
{ "soundouts.i",S(SNDOUTS),_QQ, 3, "", "aaio", sndoutset, soundouts },
{ "in.a", S(INM),0, 2, "a", "", NULL, in },
{ "in.s", S(INS),0, 2, "aa", "", NULL, ins },
{ "in.A", S(INA),0, 2, "a[]", "", NULL, inarray },
{ "ins", S(INS),0, 2, "aa", "", NULL, ins },
{ "inq", S(INQ),0, 2, "aaaa", "", NULL, inq },
{ "out.a", S(OUTX),IR, 3, "", "y", ochn, outall },
{ "out.A", S(OUTARRAY),IR, 3, "", "a[]", outarr_init, outarr },
{ "outs", S(OUTX),IR, 3, "", "y", ochn, outall },
{ "outq", S(OUTX),IR, 3, "", "y", ochn, outall },
{ "outh", S(OUTX),IR, 3, "", "y", ochn, outall },
{ "outo", S(OUTX),IR, 3, "", "y", ochn, outall },
{ "outx", S(OUTX),IR, 3, "", "y", ochn, outall },
{ "out32", S(OUTX),IR, 3, "", "y", ochn, outall },
{ "outs1", S(OUTM),IR, 2, "", "a", NULL, outs1 },
{ "outs2", S(OUTM),IR, 3, "", "a", och2, outs2 },
{ "outq1", S(OUTM),IR, 2, "", "a", NULL, outs1 },
{ "outq2", S(OUTM),IR, 3, "", "a", och2, outs2 },
{ "outq3", S(OUTM),IR, 3, "", "a", och3, outq3 },
{ "outq4", S(OUTM),IR, 3, "", "a", och2, outq4 },
{ "outall", S(OUTM),IR, 2, "", "a", NULL, outrep },
{ "igoto", S(GOTO),0, 1, "", "l", igoto },
{ "kgoto", S(GOTO),0, 2, "", "l", NULL, kgoto },
{ "goto", S(GOTO),0, 3, "", "l", igoto, kgoto },
{ "cigoto", S(CGOTO),0, 1, "", "Bl", icgoto },
{ "ckgoto", S(CGOTO),0, 2, "", "Bl", NULL, kcgoto },
{ "cggoto.0", S(CGOTO),0, 3, "", "Bl", icgoto, kcgoto },
{ "timout", S(TIMOUT),0, 3, "", "iil", timset, timout },
{ "reinit", S(GOTO),0, 2, "", "l", NULL, reinit },
{ "rigoto", S(GOTO),0, 1, "", "l", rigoto },
{ "rireturn",S(LINK),0, 1, "", "", rireturn },
{ "tigoto", S(GOTO),0, 1, "", "l", tigoto },
{ "tival", S(EVAL),0, 1, "i", "", tival },
{ "print", S(PRINTV),WR, 1, "", "m", printv },
{ "display.k",S(DSPLAY),0, 3, "", "kioo", dspset, kdsplay,NULL },
{ "display.a",S(DSPLAY),0, 3, "", "aioo", dspset ,dsplay },
{ "pvsdisp",S(FSIGDISP),0, 3, "", "foo", fdspset, fdsplay,NULL },
{ "dispfft.k",S(DSPFFT),0, 3, "", "kiiooooo",fftset,kdspfft,NULL },
{ "dispfft.a",S(DSPFFT),0, 3, "", "aiiooooo",fftset,dspfft },
{ "dumpk", S(KDUMP),0, 3, "", "kSii", kdmpset_S,kdump },
{ "dumpk2", S(KDUMP2),0, 3, "", "kkSii",kdmp2set_S,kdump2 },
{ "dumpk3", S(KDUMP3),0, 3, "", "kkkSii",kdmp3set_S,kdump3 },
{ "dumpk4", S(KDUMP4),0, 3, "", "kkkkSii",kdmp4set_S,kdump4 },
{ "dumpk.i", S(KDUMP),0, 3, "", "kiii", kdmpset_p,kdump },
{ "dumpk2.i", S(KDUMP2),0, 3, "", "kkiii",kdmp2set_p,kdump2 },
{ "dumpk3.i", S(KDUMP3),0, 3, "", "kkkiii",kdmp3set_p,kdump3 },
{ "dumpk4.i", S(KDUMP4),0, 3, "", "kkkkiii",kdmp4set_p,kdump4 },
{ "readk", S(KREAD),0, 3, "k", "Sii", krdset_S, kread },
{ "readk2", S(KREAD2),0, 3, "kk", "Sii", krd2set_S, kread2 },
{ "readk3", S(KREAD3),0, 3, "kkk", "Sii", krd3set_S, kread3 },
{ "readk4", S(KREAD4),0, 3, "kkkk", "Sii", krd4set_S, kread4 },
{ "readk.i", S(KREAD),0, 3, "k", "iii", krdset_p, kread },
{ "readk2.i", S(KREAD2),0, 3, "kk", "iii", krd2set_p, kread2 },
{ "readk3.i", S(KREAD3),0, 3, "kkk", "iii", krd3set_p, kread3 },
{ "readk4.i", S(KREAD4),0, 3, "kkkk", "iii", krd4set_p, kread4 },
{ "readks", S(KREADS),0, 3, "S", "Si", krdsset_S, kreads },
{ "readks.i", S(KREADS),0, 3, "S", "ii", krdsset_p, kreads },
{ "xyin", S(XYIN), _QQ, 1, "kk", "iiiiioo",xyinset,NULL },
{ "tempest", S(TEMPEST),0, 3, "k","kiiiiiiiiiop",tempeset,tempest},
{ "tempo", S(TEMPO),0, 3, "", "ki", tempset,tempo },
{ "pow.i", S(POW),0, 1, "i", "iip", ipow, NULL, NULL },
{ "pow.k", S(POW),0, 2, "k", "kkp", NULL, ipow, NULL },
{ "pow.a", S(POW),0, 2, "a", "akp", NULL, apow },
{ "##pow.i", S(POW),0, 1, "i", "iip", ipow, NULL, NULL },
{ "##pow.k", S(POW),0, 2, "k", "kkp", NULL, ipow, NULL },
{ "##pow.a", S(POW),0, 2, "a", "akp", NULL, apow },
{ "oscilx", S(OSCILN), TR, 3, "a", "kiii", oscnset, osciln },
{ "linrand.i",S(PRAND),0, 1, "i", "k", iklinear, NULL, NULL },
{ "linrand.k",S(PRAND),0, 2, "k", "k", NULL, iklinear, NULL },
{ "linrand.a",S(PRAND),0, 2, "a", "k", NULL, alinear },
{ "trirand.i",S(PRAND),0, 1, "i", "k", iktrian, NULL, NULL },
{ "trirand.k",S(PRAND),0, 2, "k", "k", NULL, iktrian, NULL },
{ "trirand.a",S(PRAND),0, 2, "a", "k", NULL, atrian },
{ "exprand.i",S(PRAND),0, 1, "i", "k", ikexp, NULL, NULL },
{ "exprand.k",S(PRAND),0, 2, "k", "k", NULL, ikexp, NULL },
{ "exprand.a",S(PRAND),0, 2, "a", "k", NULL, aexp },
{ "bexprnd.i",S(PRAND),0, 1, "i", "k", ikbiexp, NULL, NULL },
{ "bexprnd.k",S(PRAND),0, 2, "k", "k", NULL, ikbiexp, NULL },
{ "bexprnd.a",S(PRAND),0, 2, "a", "k", NULL, abiexp },
{ "cauchy.i", S(PRAND),0, 1, "i", "k", ikcauchy, NULL, NULL },
{ "cauchy.k", S(PRAND),0, 2, "k", "k", NULL, ikcauchy, NULL },
{ "cauchy.a", S(PRAND),0, 2, "a", "k", NULL, acauchy },
{ "pcauchy.i",S(PRAND),0, 1, "i", "k", ikpcauchy, NULL,NULL },
{ "pcauchy.k",S(PRAND),0, 2, "k", "k", NULL, ikpcauchy,NULL },
{ "pcauchy.a",S(PRAND),0, 2, "a", "k", NULL, apcauchy},
{ "poisson.i",S(PRAND),0, 1, "i", "k", ikpoiss, NULL, NULL },
{ "poisson.k",S(PRAND),0, 2, "k", "k", NULL, ikpoiss, NULL },
{ "poisson.a",S(PRAND),0, 2, "a", "k", NULL, apoiss },
{ "gauss.i" , S(PRAND),0, 1, "i", "k", ikgaus, NULL, NULL },
{ "gauss.k" , S(PRAND),0, 2, "k", "k", NULL, ikgaus, NULL },
{ "gauss.a" , S(PRAND),0, 2, "a", "k", NULL, agaus },
{ "gauss.iii" , S(GAUSS),0, 1, "i", "ii", gauss_scalar, NULL, NULL },
{ "gauss.kkk" , S(GAUSS),0, 2, "k", "kk", NULL, gauss_scalar, NULL },
{ "gauss.akk" , S(GAUSS),0, 2, "a", "kk", NULL, gauss_vector },
{ "weibull.i",S(PRAND),0, 1, "i", "kk", ikweib, NULL, NULL },
{ "weibull.k",S(PRAND),0, 2, "k", "kk", NULL, ikweib, NULL },
{ "weibull.a",S(PRAND),0, 2, "a", "kk", NULL, aweib },
{ "betarand.i",S(PRAND),0,1, "i", "kkk", ikbeta, NULL, NULL },
{ "betarand.k",S(PRAND),0,2, "k", "kkk", NULL, ikbeta,NULL },
{ "betarand.a",S(PRAND),0,2, "a", "kkk", NULL, abeta },
{ "seed", S(PRAND),0, 1, "", "i", seedrand, NULL, NULL },
{ "getseed.i",S(GETSEED),0, 1, "i", "", getseed, NULL, NULL },
{ "getseed.k",S(GETSEED),0, 3, "k", "", getseed, getseed, NULL },
{ "unirand.i",S(PRAND),0, 1, "i", "k", ikuniform, NULL, NULL },
{ "unirand.k",S(PRAND),0, 2, "k", "k", NULL, ikuniform, NULL},
{ "unirand.a",S(PRAND),0, 2, "a", "k", NULL, auniform },
{ "diskin",S(DISKIN2_ARRAY),0, 3, "a[]",
"SPooooooo",
(SUBR) diskin_init_array_S,
(SUBR) diskin2_perf_array },
{ "diskin2",S(DISKIN2_ARRAY),0, 3, "a[]",
"SPooooooo",
(SUBR) diskin2_init_array_S,
(SUBR) diskin2_perf_array },
{ "diskin.i",S(DISKIN2_ARRAY),0, 3, "a[]",
"iPooooooo",
(SUBR) diskin_init_array_I,
(SUBR) diskin2_perf_array },
{ "diskin2.i",S(DISKIN2_ARRAY),0, 3, "a[]",
"iPooooooo",
(SUBR) diskin2_init_array_I,
(SUBR) diskin2_perf_array },
{ "diskin",S(DISKIN2),0, 3, "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm",
"SPooooooo",
(SUBR) diskin_init_S,
(SUBR) diskin2_perf },
{ "diskin2",S(DISKIN2),0, 3, "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm",
"SPooooooo",
(SUBR) diskin2_init_S,
(SUBR) diskin2_perf },
{ "diskin.i",S(DISKIN2),0, 3, "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm",
"iPooooooo",
(SUBR) diskin_init,
(SUBR) diskin2_perf },
{ "diskin2.i",S(DISKIN2),0, 3, "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm",
"iPooooooo",
(SUBR) diskin2_init,
(SUBR) diskin2_perf },
{ "noteon", S(OUT_ON),0, 1, "", "iii", iout_on, NULL, NULL },
{ "noteoff", S(OUT_ON),0, 1, "", "iii", iout_off, NULL, NULL },
{ "noteondur",S(OUT_ON_DUR),0,3, "", "iiii", iout_on_dur_set,iout_on_dur,NULL},
{ "noteondur2",S(OUT_ON_DUR),0,3, "", "iiii", iout_on_dur_set,iout_on_dur2,NULL},
{ "moscil",S(MOSCIL),0, 3, "", "kkkkk",moscil_set, moscil, NULL},
{ "midion",S(KOUT_ON),0, 3, "", "kkk", kvar_out_on_set,kvar_out_on,NULL},
{ "outic",S(OUT_CONTR),0, 1, "", "iiiii", out_controller, NULL, NULL},
{ "outkc",S(OUT_CONTR),0, 2, "", "kkkkk", NULL, out_controller, NULL},
{ "outic14",S(OUT_CONTR14),0,1, "", "iiiiii",out_controller14, NULL,NULL},
{ "outkc14",S(OUT_CONTR14),0,2, "", "kkkkkk",NULL, out_controller14, NULL},
{ "outipb",S(OUT_PB),0, 1, "", "iiii", out_pitch_bend, NULL , NULL},
{ "outkpb",S(OUT_PB),0, 2, "", "kkkk", NULL, out_pitch_bend, NULL},
{ "outiat",S(OUT_ATOUCH),0,1, "", "iiii", out_aftertouch, NULL , NULL},
{ "outkat",S(OUT_ATOUCH),0,2, "", "kkkk", NULL, out_aftertouch, NULL},
{ "outipc",S(OUT_PCHG),0, 1, "", "iiii", out_progchange, NULL , NULL},
{ "outkpc",S(OUT_PCHG),0, 2, "", "kkkk", NULL, out_progchange, NULL},
{ "outipat",S(OUT_POLYATOUCH),0,1,"", "iiiii", out_poly_aftertouch, NULL,NULL},
{ "outkpat",S(OUT_POLYATOUCH),0,2,"", "kkkkk", NULL, out_poly_aftertouch,NULL},
{ "release",S(REL),0, 3, "k", "", release_set, release, NULL },
{ "xtratim",S(XTRADUR),0, 1, "", "i", xtratim, NULL, NULL },
{ "mclock", S(MCLOCK),0, 3, "", "i", mclock_set, mclock, NULL },
{ "mrtmsg", S(XTRADUR),0, 1, "", "i", mrtmsg, NULL, NULL },
{ "midiout",S(MIDIOUT),0, 2, "", "kkkk", NULL, midiout, NULL },
{ "midiout_i",S(MIDIOUT), 0, 1, "", "iiii", midiout, NULL, NULL },
{ "midion2", S(KON2),0, 3, "", "kkkk", kon2_set, kon2, NULL },
{ "nrpn", S(NRPN),0, 2, "", "kkk", NULL, nrpn ,NULL },
{ "mdelay", S(MDELAY),0, 3, "", "kkkkk",mdelay_set, mdelay, NULL },
{ "nsamp.i", S(EVAL),0, 1, "i", "i", numsamp },
{ "powoftwo.i",S(EVAL),0, 1, "i", "i", powoftwo },
{ "powoftwo.k",S(EVAL),0, 2, "k", "k", NULL, powoftwo },
{ "powoftwo.a",S(EVAL),0, 2, "a", "a", NULL, powoftwoa },
{ "logbtwo.i",S(EVAL),0, 1, "i", "i", ilogbasetwo },
{ "logbtwo.k",S(EVAL),0, 3, "k", "k", logbasetwo_set, logbasetwo },
{ "logbtwo.a",S(EVAL),0, 3, "a", "a",
logbasetwo_set, logbasetwoa },
{ "filelen", S(SNDINFO),0, 1, "i", "Sp", filelen_S, NULL, NULL },
{ "filenchnls", S(SNDINFO),0, 1, "i", "Sp", filenchnls_S, NULL, NULL },
{ "filesr", S(SNDINFO),0, 1, "i", "Sp", filesr_S, NULL, NULL },
{ "filebit", S(SNDINFO),0, 1, "i", "Sp", filebit_S, NULL, NULL },
{ "filepeak", S(SNDINFOPEAK),0, 1, "i", "So", filepeak_S, NULL, NULL },
{ "filevalid", S(FILEVALID),0, 1, "i", "S", filevalid_S, NULL, NULL },
{ "filelen.i", S(SNDINFO),0, 1, "i", "ip", filelen, NULL, NULL },
{ "filenchnls.i", S(SNDINFO),0, 1, "i", "ip", filenchnls, NULL, NULL },
{ "filesr.i", S(SNDINFO),0, 1, "i", "ip", filesr, NULL, NULL },
{ "filebit.i", S(SNDINFO),0, 1, "i", "ip", filebit, NULL, NULL },
{ "filepeak.i", S(SNDINFOPEAK),0, 1, "i", "io", filepeak, NULL, NULL },
{ "filevalid.i", S(FILEVALID),0, 1, "i", "i", filevalid, NULL, NULL },
{ "filevalid.k", S(FILEVALID),0, 2, "k", "S", NULL, filevalid_S, NULL },
{ "filevalid.k", S(FILEVALID),0, 2, "k", "i", NULL, filevalid, NULL },
/* { "nlalp", S(NLALP),0, 3, "a", "akkoo", nlalp_set, nlalp }, */
{ "ptableiw", S(TABLEW),TW|_QQ, 1, "", "iiiooo", (SUBR)tablew_init, NULL, NULL},
{ "ptablew.kk", S(TABLEW),TB, 3, "", "kkiooo",(SUBR)tabl_setup,
(SUBR)tablew_kontrol, NULL },
{ "ptablew.aa", S(TABLEW),TB, 3, "", "aaiooo",(SUBR)tabl_setup,
(SUBR)tablew_audio },
{ "tableiw", S(TABL),TW|_QQ, 1, "", "iiiooo", (SUBR)tablew_init, NULL, NULL},
{ "tablew", S(TABL),TW, 1, "", "iiiooo", (SUBR)tablew_init, NULL, NULL},
{ "tablew.kk", S(TABL),TW, 3, "", "kkiooo",(SUBR)tabl_setup,
(SUBR)tablew_kontrol, NULL },
{ "tablew.aa", S(TABL),TW, 3, "", "aaiooo",(SUBR)tabl_setup,
(SUBR)tablew_audio },
{ "tablewkt.kk", S(TABL),TW,3, "", "kkkooo",
(SUBR)tablkt_setup,(SUBR)tablewkt_kontrol,NULL},
{ "tablewkt.aa", S(TABL),TW,3, "", "aakooo",
(SUBR)tablkt_setup,(SUBR)tablewkt_audio},
{ "tableng.i", S(TLEN),TR,1, "i", "i", (SUBR)table_length, NULL, NULL},
{ "tableng.k", S(TLEN),TR,2, "k", "k", NULL, (SUBR)table_length, NULL},
{ "tableigpw",S(TGP), TB, 1, "", "i", (SUBR)table_gpw, NULL, NULL},
{ "tablegpw", S(TGP), TB,2, "", "k", NULL, (SUBR)table_gpw, NULL},
{ "tableimix",S(TABLMIX),TB, 1, "", "iiiiiiiii", (SUBR)table_mix, NULL, NULL},
{ "tablemix", S(TABLMIX),TB, 2, "", "kkkkkkkkk", NULL, (SUBR)table_mix, NULL},
{ "tableicopy",S(TGP),TB, 1, "", "ii", (SUBR)table_copy, NULL, NULL},
{ "tablecopy", S(TGP),TB, 2, "", "kk", NULL, (SUBR)table_copy, NULL},
{ "tablera", S(TABLRA),TR, 3, "a", "kkk",
(SUBR)table_ra_set, (SUBR)table_ra},
{ "tablewa", S(TABLWA),TW, 3, "k", "kakp",
(SUBR)table_wa_set, (SUBR)table_wa},
{ "tablekt", S(TABL),TR, 3, "k", "xkooo", (SUBR)tablkt_setup,
(SUBR)tablerkt_kontrol,
NULL },
{ "tablekt.a", S(TABL),TR, 3, "a", "xkooo", (SUBR)tablkt_setup,
(SUBR)tablerkt_audio },
{ "tableikt", S(TABL),TR, 3, "k", "xkooo", (SUBR)tablkt_setup,
(SUBR)tableirkt_kontrol,
NULL },
{ "tableikt.a", S(TABL),TR, 3, "a", "xkooo", (SUBR)tablkt_setup,
(SUBR)tableirkt_audio },
{ "table3kt", S(TABL),TR, 3, "k", "xkooo", (SUBR)tablkt_setup,
(SUBR)table3rkt_kontrol,
NULL },
{ "table3kt.a", S(TABL),TR, 3, "a", "xkooo", (SUBR)tablkt_setup,
(SUBR)table3rkt_audio },
{ "inz", S(IOZ), ZW, 2, "", "k", NULL, (SUBR)inz },
{ "outz", S(IOZ),ZR|IR, 2, "", "k", NULL, (SUBR)outz },
{ "timek.k", S(RDTIME),0, 2, "k", "", NULL, (SUBR)timek, NULL },
{ "timek.i", S(RDTIME),0, 1, "i", "", (SUBR)timek, NULL, NULL },
{ "times.k", S(RDTIME),0, 2, "k", "", NULL, (SUBR)timesr,NULL },
{ "times.i", S(RDTIME),0, 1, "i", "", (SUBR)timesr, NULL, NULL },
{ "elapsedcycles.k", S(RDTIME),0, 2, "k", "", NULL, (SUBR)elapsedcycles, NULL },
{ "elapsedcycles.i", S(RDTIME),0, 1, "i", "", (SUBR)elapsedcycles, NULL, NULL },
{ "elapsedtime.k", S(RDTIME),0, 2, "k", "", NULL, (SUBR)elapsedtime,NULL },
{ "elapsedtime.i", S(RDTIME),0, 1, "i", "", (SUBR)elapsedtime, NULL, NULL },
{ "timeinstk", S(RDTIME),0, 3, "k", "",
(SUBR)instimset, (SUBR)instimek, NULL },
{ "timeinsts", S(RDTIME),0, 3, "k", "",
(SUBR)instimset, (SUBR)instimes, NULL },
{ "eventcycles", S(RDTIME),0, 3, "k", "",
(SUBR)instimset, (SUBR)eventcycles, NULL },
{ "eventtime", S(RDTIME),0, 3, "k", "",
(SUBR)instimset, (SUBR)eventtime, NULL },
{ "peak.k", S(PEAK),0, 2, "k", "k", NULL, (SUBR)peakk, NULL },
{ "peak.a", S(PEAK),0, 2, "k", "a", NULL, (SUBR)peaka },
{ "printk", S(PRINTK),WR, 3,"", "ikoooo",
(SUBR)printkset, (SUBR)printk, NULL },
{ "printks",S(PRINTKS),WR, 3, "", "SiN",
(SUBR)printksset_S,(SUBR)printks, NULL },
{ "printks2", sizeof(PRINTK3),0, 3, "", "Sk", (SUBR)printk3set, (SUBR)printk3 },
{ "printks.i",S(PRINTKS),WR, 3, "", "iiN",
(SUBR)printksset,(SUBR)printks, NULL },
{ "prints",S(PRINTS),0, 1, "", "SN", (SUBR)printsset_S, NULL, NULL },
{ "prints.i",S(PRINTS),0, 1, "", "iN", (SUBR)printsset, NULL, NULL },
{ "printk2", S(PRINTK2), WR, 3, "", "koo",
(SUBR)printk2set, (SUBR)printk2, NULL },
{ "portk", S(KPORT),0, 3, "k", "kko", (SUBR)kporset, (SUBR)kport, NULL },
{ "tonek", S(KTONE),0, 3, "k", "kko", (SUBR)ktonset, (SUBR)ktone, NULL },
{ "atonek", S(KTONE),0, 3, "k", "kko", (SUBR)ktonset, (SUBR)katone, NULL},
{ "resonk", S(KRESON),0, 3, "k", "kkkpo",(SUBR)krsnset, (SUBR)kreson, NULL},
{ "aresonk",S(KRESON),0, 3, "k", "kkkpo",(SUBR)krsnset, (SUBR)kareson, NULL},
{ "limit.i", S(LIMIT),0, 1, "i", "iii", (SUBR)klimit, NULL, NULL },
{ "limit.k", S(LIMIT),0, 2, "k", "kkk", NULL, (SUBR)klimit, NULL },
{ "limit.a", S(LIMIT),0, 2, "a", "akk", NULL, (SUBR)limit },
{ "prealloc", S(AOP),0, 1, "", "iio", (SUBR)prealloc, NULL, NULL },
{ "prealloc", S(AOP),0, 1, "", "Sio", (SUBR)prealloc_S, NULL, NULL },
/* opcode dspace thread outarg inargs isub ksub asub */
{ "inh", S(INH),0, 2, "aaaaaa","", NULL, inh },
{ "ino", S(INO),0, 2, "aaaaaaaa","", NULL, ino },
{ "inx", S(INALL),0, 2, "aaaaaaaaaaaaaaaa","", NULL, in16 },
{ "in32", S(INALL),0, 2, "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa",
"", NULL, in32 },
{ "inch", S(INCH1),0, 3, "a",
"k", inch1_set, (SUBR) inch_opcode1 },
{ "inch.m", S(INCH),0, 3, "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm",
"z", inch_set, inch_opcode },
{ "_in", S(INALL),0, 3, "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm",
"", inch_set, inall_opcode },
/* Note that there is code in rdorch.c that assumes that opcodes starting
with the characters out followed by a s, q, h, o or x are in this group
***BEWARE***
CODE REMOVED 2011-Dec-14
*/
{ "outch", S(OUTCH),IR, 2, "", "Z", NULL, outch },
{ "outc", S(OUTX),IR, 2, "", "y", ochn, outall },
{ "cpsxpch", S(XENH),TR, 1, "i", "iiii", cpsxpch, NULL, NULL },
{ "cps2pch", S(XENH),TR, 1, "i", "ii", cps2pch, NULL, NULL },
{ "cpstun", S(CPSTUN), TR, 2, "k", "kkk", NULL, cpstun },
{ "cpstuni",S(CPSTUNI), TR, 1, "i", "ii", cpstun_i, },
{ "cpstmid", S(CPSTABLE),0, 1, "i", "i", (SUBR)cpstmid },
{ "adsr", S(LINSEG),0, 3, "k", "iiiio",adsrset,klnseg, NULL },
{ "adsr.a", S(LINSEG),0, 3, "a", "iiiio",adsrset, linseg },
{ "madsr", S(LINSEG),0, 3, "k", "iiiioj", madsrset,klnsegr,NULL },
{ "madsr.a", S(LINSEG),0, 3, "a", "iiiioj", madsrset, linsegr },
{ "xadsr", S(EXXPSEG),0, 3, "k", "iiiio", xdsrset, kxpseg, NULL },
{ "xadsr.a", S(EXXPSEG),0, 3, "a", "iiiio", xdsrset, expseg },
{ "mxadsr", S(EXPSEG),0, 3, "k", "iiiioj", mxdsrset, kxpsegr, NULL},
{ "mxadsr.a", S(EXPSEG),0, 3, "a", "iiiioj", mxdsrset, expsegr},
{ "schedule", S(SCHED),0, 1, "", "iiim",
schedule, NULL, NULL },
{ "schedule.N", S(SCHED),0, 1, "", "iiiN",
schedule_N, NULL, NULL },
{ "schedule.S", S(SCHED),0, 1, "", "Siim",
schedule_S, NULL, NULL },
{ "schedule.SN", S(SCHED),0, 1, "", "SiiN",
schedule_SN, NULL, NULL },
{ "schedule.array", S(SCHED),0, 1, "", "i[]",
schedule_array, NULL, NULL },
/* **** Experimental schedulek opcodes **** */
{ "schedulek", S(SCHED),0, 2, "", "kkkM",
NULL, schedule, NULL },
{ "schedulek.N", S(SCHED),0, 2, "", "kkkN",
NULL, schedule_N, NULL },
{ "schedulek.S", S(SCHED),0, 2, "", "SkkM",
NULL, schedule_S, NULL },
{ "schedulek.SN", S(SCHED),0, 2, "", "SkkN",
NULL, schedule_SN, NULL },
{ "schedulek.array", S(SCHED),0, 2, "", "k[]",
NULL, schedule_array, NULL },
/* **** End of schedulek **** */
{ "schedwhen", S(WSCHED),0,3, "", "kkkkm",ifschedule, kschedule, NULL },
{ "schedwhen", S(WSCHED),0,3, "", "kSkkm",ifschedule, kschedule, NULL },
{ "schedkwhen", S(TRIGINSTR),0, 3,"", "kkkkkz",triginset, ktriginstr, NULL },
{ "schedkwhen.S", S(TRIGINSTR),0, 3,"", "kkkSkz",
triginset_S, ktriginstr_S, NULL },
{ "schedkwhennamed", S(TRIGINSTR),0, 3,"", "kkkkkz",triginset, ktriginstr, NULL },
{ "schedkwhennamed.S", S(TRIGINSTR),0, 3,"",
"kkkSkz",triginset_S, ktriginstr_S, NULL },
{ "trigseq", S(TRIGSEQ),0, 3, "", "kkkkkz", trigseq_set, trigseq, NULL },
{ "event", S(LINEVENT),0, 2, "", "Skz", NULL, eventOpcode, NULL },
{ "event_i", S(LINEVENT),0,1, "", "Sim", eventOpcodeI, NULL, NULL },
{ "event.S", S(LINEVENT),0, 2, "", "SSz", NULL, eventOpcode_S, NULL },
{ "event_i.S", S(LINEVENT),0,1, "", "SSm", eventOpcodeI_S, NULL, NULL },
{ "nstance", S(LINEVENT2),0,2, "k", "kkz", NULL, instanceOpcode, NULL },
{ "nstance.i", S(LINEVENT2),0,1, "i", "iiim", instanceOpcode, NULL, NULL },
{ "nstance.kS", S(LINEVENT2),0, 2, "k", "SSz", NULL, instanceOpcode_S, NULL },
{ "nstance.S", S(LINEVENT2),0, 1, "i", "Siim", instanceOpcode_S, NULL, NULL},
{ "turnoff.i", S(KILLOP),0,1, "", "i", kill_instance, NULL, NULL },
{ "turnoff.k", S(KILLOP),0,2, "", "k", NULL, kill_instance, NULL},
{ "lfo", S(LFO),0, 3, "k", "kko", lfoset, lfok, NULL },
{ "lfo.a", S(LFO),0, 3, "a", "kko", lfoset, lfoa },
{ "oscils", S(OSCILS),0, 3, "a", "iiio",
(SUBR)oscils_set, (SUBR)oscils },
{ "lphasor", S(LPHASOR),0,3, "a", "xooooooo" ,
(SUBR)lphasor_set, (SUBR)lphasor },
{ "tablexkt", S(TABLEXKT),TR, 3, "a", "xkkiooo", (SUBR)tablexkt_set,
(SUBR)tablexkt },
{ "reverb2", S(NREV2),0, 3, "a", "akkoojoj",
(SUBR)reverbx_set,(SUBR)reverbx },
{ "nreverb", S(NREV2),0, 3, "a", "akkoojoj",
(SUBR)reverbx_set,(SUBR) reverbx },
{ "=.f", S(FASSIGN),0, 3, "f", "f", (SUBR)fassign_set, (SUBR)fassign },
{ "init.f", S(FASSIGN),0, 1, "f", "f", (SUBR)fassign_set, NULL, NULL },
{ "pvsanal", S(PVSANAL), 0, 3, "f", "aiiiioo", pvsanalset, pvsanal },
{ "pvsynth", S(PVSYNTH),0, 3, "a", "fo", pvsynthset, pvsynth },
{ "pvsadsyn", S(PVADS),0, 3, "a", "fikopo", pvadsynset, pvadsyn, NULL },
{ "pvscross", S(PVSCROSS),0,3, "f", "ffkk", pvscrosset, pvscross, NULL },
{ "pvsfread", S(PVSFREAD),0,3, "f", "kSo", pvsfreadset_S, pvsfread, NULL},
{ "pvsfread.i", S(PVSFREAD),0,3, "f", "kio", pvsfreadset, pvsfread, NULL},
{ "pvsmaska", S(PVSMASKA),0,3, "f", "fik", pvsmaskaset, pvsmaska, NULL },
{ "pvsftw", S(PVSFTW), TW, 3, "k", "fio", pvsftwset, pvsftw, NULL },
{ "pvsftr", S(PVSFTR),TR, 3, "", "fio", pvsftrset, pvsftr, NULL },
{ "pvsinfo", S(PVSINFO),0, 1, "iiii","f", pvsinfo, NULL, NULL },
{ "octave.i", S(EVAL),0, 1, "i", "i", powoftwo },
{ "octave.k", S(EVAL),0, 2, "k", "k", NULL, powoftwo },
{ "octave.a", S(EVAL),0, 2, "a", "a", NULL, powoftwoa },
{ "semitone.i",S(EVAL),0, 1, "i", "i", semitone },
{ "semitone.k",S(EVAL),0, 2, "k", "k", NULL, semitone },
{ "semitone.a",S(EVAL),0, 2, "a", "a", NULL, asemitone },
{ "cent.i", S(EVAL),0, 1, "i", "i", cent },
{ "cent.k", S(EVAL),0, 2, "k", "k", NULL, cent },
{ "cent.a", S(EVAL),0, 2, "a", "a", NULL, acent },
{ "db.i", S(EVAL),0, 1, "i", "i", db },
{ "db.k", S(EVAL),0, 2, "k", "k", NULL, db },
{ "db.a", S(EVAL),0, 2, "a", "a", NULL, dba },
{ "midichn", S(MIDICHN),0, 1, "i", "", midichn, NULL, NULL },
{ "pgmassign",S(PGMASSIGN),0, 1, "", "iio", pgmassign, NULL, NULL },
{ "pgmassign.S",S(PGMASSIGN),0, 1, "", "iSo", pgmassign_S, NULL, NULL },
{ "midiin", S(MIDIIN),0, 3, "kkkk", "", midiin_set, midiin, NULL },
{ "pgmchn", S(PGMIN),0, 3, "kk", "o", pgmin_set, pgmin, NULL },
{ "ctlchn", S(CTLIN),0, 3, "kkk", "oo", ctlin_set, ctlin, NULL },
{ "miditempo", S(MIDITEMPO),0, 3, "k", "",
(SUBR) midiTempoOpcode, (SUBR) midiTempoOpcode, NULL },
{ "midifilestatus", S(MIDITEMPO),0, 2, "k", "",
NULL, (SUBR) midiFileStatus, NULL },
{ "midinoteoff", S(MIDINOTEON),0,3 ,"", "xx", midinoteoff, midinoteoff, },
{ "midinoteonkey", S(MIDINOTEON),0,3, "", "xx", midinoteonkey, midinoteonkey },
{ "midinoteoncps", S(MIDINOTEON),0, 3, "", "xx", midinoteoncps,midinoteoncps },
{ "midinoteonoct", S(MIDINOTEON),0, 3, "", "xx", midinoteonoct,midinoteonoct },
{ "midinoteonpch", S(MIDINOTEON),0, 3, "", "xx", midinoteonpch, midinoteonpch },
{ "midipolyaftertouch", S(MIDIPOLYAFTERTOUCH),0,
3, "", "xxoh", midipolyaftertouch, midipolyaftertouch},
{ "midicontrolchange", S(MIDICONTROLCHANGE),0,
3, "", "xxoh",midicontrolchange, midicontrolchange },
{ "midiprogramchange", S(MIDIPROGRAMCHANGE),0,
3, "", "x", midiprogramchange, midiprogramchange },
{ "midichannelaftertouch", S(MIDICHANNELAFTERTOUCH),0,
3, "", "xoh",midichannelaftertouch, midichannelaftertouch },
{ "midipitchbend", S(MIDIPITCHBEND),0,3, "", "xoh",
midipitchbend, midipitchbend },
{ "mididefault", S(MIDIDEFAULT),0, 3, "", "xx", mididefault, mididefault },
//{ "invalue", 0xFFFF, _CR, 0, NULL, NULL, NULL, NULL },
{ "invalue.k", S(INVAL),_CR, 3, "k", "i", (SUBR) invalset,(SUBR)kinval, NULL },
{ "invalue.i", S(INVAL),_CR, 1, "i", "i", (SUBR) invalsetgo, NULL, NULL },
{ "invalue.iS", S(INVAL),_CR, 1, "i", "S", (SUBR) invalsetSgo, NULL, NULL },
{ "invalue.kS", S(INVAL),_CR, 3, "k", "S",(SUBR) invalset_S,(SUBR)kinval, NULL },
{ "invalue.S", S(INVAL),_CR, 3, "S", "i",
(SUBR) invalset_string, (SUBR)kinvalS, NULL },
{ "invalue.SS", S(INVAL),_CR, 3, "S", "S",
(SUBR) invalset_string_S, (SUBR)kinvalS, NULL },
{ "outvalue", S(OUTVAL), _CW, 3, "", "ik", (SUBR) outvalset, (SUBR)koutval, NULL},
{ "outvalue.i", S(OUTVAL), _CW, 1, "", "ii", (SUBR) outvalsetgo, NULL, NULL},
{ "outvalue.Si", S(OUTVAL), _CW, 1, "", "Si",
(SUBR) outvalsetSgo, NULL, NULL},
{ "outvalue.k", S(OUTVAL), _CW, 3, "", "Sk",
(SUBR) outvalset_S, (SUBR)koutval, NULL},
{ "outvalue.S", S(OUTVAL), _CW, 3, "", "iS",
(SUBR) outvalset_string, (SUBR)koutvalS, NULL},
{ "outvalue.SS", S(OUTVAL), _CW, 3, "", "SS",
(SUBR) outvalset_string_S, (SUBR)koutvalS, NULL},
/* IV - Oct 20 2002 */
{ "subinstr", S(SUBINST),0, 3, "mmmmmmmm", "SN", subinstrset_S, subinstr },
{ "subinstrinit", S(SUBINST),0, 1, "", "SN", subinstrset_S, NULL, NULL },
{ "subinstr.i", S(SUBINST),0, 3, "mmmmmmmm", "iN", subinstrset, subinstr },
{ "subinstrinit.i", S(SUBINST),0, 1, "", "iN", subinstrset, NULL, NULL },
{ "nstrnum", S(NSTRNUM),0, 1, "i", "S", nstrnumset_S, NULL, NULL },
{ "nstrnum.i", S(NSTRNUM),0, 1, "i", "i", nstrnumset, NULL, NULL },
{ "nstrstr", S(NSTRSTR),0, 1, "S", "i", nstrstr, NULL, NULL },
{ "nstrstr.k", S(NSTRSTR),0, 2, "S", "k", NULL, nstrstr, NULL },
//{ "turnoff2", 0xFFFB, _CW, 0, NULL, NULL, NULL, NULL, NULL },
{ "turnoff2_i.S",S(TURNOFF2),_CW,1, "", "Soo", turnoff2S, NULL },
{ "turnoff2_i.i",S(TURNOFF2),_CW,1, "", "ioo", turnoff2k, NULL },
{ "turnoff2.S",S(TURNOFF2),_CW,2, "", "Skk", NULL, turnoff2S, NULL },
{ "turnoff2.c",S(TURNOFF2),_CW,2, "", "ikk", NULL, turnoff2k, NULL },
{ "turnoff2.k",S(TURNOFF2),_CW,2, "", "kkk", NULL, turnoff2k, NULL },
{ "turnoff2.i",S(TURNOFF2),_CW,2, "", "ikk", NULL, turnoff2k, NULL },
{ "turnoff2.r",S(TURNOFF2),_CW,2, "", "ikk", NULL, turnoff2k, NULL },
{ "turnoff3.S",S(TURNOFF2),_CW,2, "", "S", NULL, turnoff3S, NULL },
{ "turnoff3.c",S(TURNOFF2),_CW,2, "", "i", NULL, turnoff3k, NULL },
{ "turnoff3.k",S(TURNOFF2),_CW,2, "", "k", NULL, turnoff3k, NULL },
{ "turnoff3.i",S(TURNOFF2),_CW,2, "", "i", NULL, turnoff3k, NULL },
{ "turnoff3.r",S(TURNOFF2),_CW,2, "", "i", NULL, turnoff3k, NULL },
{ "cngoto", S(CGOTO),0, 3, "", "Bl", ingoto, kngoto, NULL },
{ "cnkgoto", S(CGOTO),0, 2, "", "Bl", NULL, kngoto, NULL },
{ "cingoto", S(CGOTO),0, 1, "", "Bl", ingoto, NULL, NULL },
{ "tempoval", S(GTEMPO),0, 2, "k", "", NULL, (SUBR)gettempo, NULL },
{ "downsamp",S(DOWNSAMP),0,3, "k", "ao", (SUBR)downset,(SUBR)downsamp },
{ "upsamp", S(UPSAMP),0, 2, "a", "k", NULL, (SUBR)upsamp },
/* IV - Sep 5 2002 */
{ "interp", S(INTERP),0, 3, "a", "kooo", (SUBR)interpset, (SUBR)interp },
{ "a.k", S(INTERP),0, 3, "a", "k", (SUBR)a_k_set, (SUBR)interp },
{ "integ", S(INDIFF), 0, 3, "a", "xo",
(SUBR)indfset,(SUBR)integrate},
{ "integ.k", S(INDIFF), 0, 3, "k", "xo",
(SUBR)indfset,(SUBR)kntegrate, NULL},
{ "diff", S(INDIFF),0, 3, "a", "xo", (SUBR)indfset, (SUBR)diff },
{ "diff.k", S(INDIFF),0, 3, "k", "xo", (SUBR)indfset,(SUBR)kdiff, NULL },
{ "samphold",S(SAMPHOLD),0,3, "a", "xxoo",
(SUBR)samphset,(SUBR)samphold },
{ "samphold.k",S(SAMPHOLD),0,3, "k", "xxoo",
(SUBR)samphset,(SUBR)ksmphold,NULL },
{ "delay", S(DELAY),0, 3, "a", "aio", (SUBR)delset, (SUBR)delay },
{ "delayr", S(DELAYR),0, 3, "aX","io", (SUBR)delrset, (SUBR)delayr },
{ "delayw", S(DELAYW),0, 3, "", "a", (SUBR)delwset, (SUBR)delayw },
{ "delay1", S(DELAY1),0, 3, "a", "ao", (SUBR)del1set, (SUBR)delay1 },
{ "deltap", S(DELTAP),0, 3, "a", "ko", (SUBR)tapset, (SUBR)deltap },
{ "deltapi",S(DELTAP),0, 3, "a", "xo", (SUBR)tapset, (SUBR)deltapi },
{ "deltapn",S(DELTAP),0, 3, "a", "xo", (SUBR)tapset, (SUBR)deltapn },
{ "deltap3",S(DELTAP),0, 3, "a", "xo", (SUBR)tapset, (SUBR)deltap3 },
{ "reverb", S(REVERB),0, 3, "a", "ako", (SUBR)rvbset, (SUBR)reverb },
{ "vdelay", S(VDEL),0, 3, "a", "axio", (SUBR)vdelset, (SUBR)vdelay },
{ "vdelay3", S(VDEL),0, 3, "a", "axio", (SUBR)vdelset, (SUBR)vdelay3 },
{ "vdelayxwq",S(VDELXQ),0,3, "aaaa", "aaaaaiio",
(SUBR)vdelxqset, (SUBR)vdelayxwq},
{ "vdelayxws",S(VDELXS),0,3, "aa", "aaaiio", (SUBR)vdelxsset,
(SUBR)vdelayxws },
{ "vdelayxw", S(VDELX),0, 3, "a", "aaiio",
(SUBR)vdelxset, (SUBR)vdelayxw},
{ "vdelayxq", S(VDELXQ),0,3, "aaaa", "aaaaaiio",
(SUBR)vdelxqset, (SUBR)vdelayxq},
{ "vdelayxs", S(VDELXS),0,3, "aa", "aaaiio",
(SUBR)vdelxsset, (SUBR)vdelayxs},
{ "vdelayx", S(VDELX),0, 3, "a", "aaiio", (SUBR)vdelxset, (SUBR)vdelayx},
{ "deltapx", S(DELTAPX),0,3, "a", "aio", (SUBR)tapxset, (SUBR)deltapx },
{ "deltapxw", S(DELTAPX),0,3, "", "aaio", (SUBR)tapxset, (SUBR)deltapxw },
{ "multitap", S(MDEL),0, 3, "a", "am",
(SUBR)multitap_set,(SUBR)multitap_play},
{ "comb", S(COMB),0, 3, "a", "akioo", (SUBR)cmbset, (SUBR)comb },
{ "combinv",S(COMB),0, 3, "a", "akioo", (SUBR)cmbset, (SUBR)invcomb },
{ "alpass", S(COMB),0, 3, "a", "axioo", (SUBR)cmbset, (SUBR)alpass },
{ "strset", S(STRSET_OP),0, 1, "", "iS",
(SUBR) strset_init, NULL, NULL },
{ "strget", S(STRGET_OP),0, 1, "S", "i",
(SUBR) strget_init, NULL, NULL },
{ "S", S(STRGET_OP),0, 1, "S", "i",
(SUBR) s_opcode, NULL, NULL },
{ "S", S(STRGET_OP),0, 3, "S", "k",
(SUBR) s_opcode,(SUBR) s_opcode_k, NULL },
{ "strcpy", S(STRCPY_OP),0, 1, "S", "S",
(SUBR) strcpy_opcode_S, NULL, NULL },
{ "strcpy", S(STRGET_OP),0, 1, "S", "i",
(SUBR) strcpy_opcode_p, NULL, NULL },
{ "strcpyk", S(STRCPY_OP),0, 3, "S", "S",
(SUBR) strcpy_opcode_S, (SUBR) strcpy_opcode_S, NULL },
{ "strcpyk.k", S(STRGET_OP),0, 3, "S", "k",
(SUBR) strcpy_opcode_p, (SUBR) strcpy_opcode_p, NULL },
{ "strcat", S(STRCAT_OP),0, 1, "S", "SS",
(SUBR) strcat_opcode, NULL, NULL },
{ "strcatk", S(STRCAT_OP),0, 3, "S", "SS",
(SUBR) strcat_opcode, (SUBR) strcat_opcode, NULL },
{ "strcmp", S(STRCMP_OP),0, 1, "i", "SS",
(SUBR) strcmp_opcode, NULL, NULL },
{ "strcmpk", S(STRCAT_OP),0, 3, "k", "SS",
(SUBR) strcmp_opcode, (SUBR) strcmp_opcode, NULL },
{ "sprintf", S(SPRINTF_OP),0, 1, "S", "STN",
(SUBR) sprintf_opcode, NULL, NULL },
{ "sprintfk", S(SPRINTF_OP),WR, 3, "S", "SUN",
(SUBR) sprintf_opcode, (SUBR) sprintf_opcode, NULL },
{ "printf_i", S(PRINTF_OP),0, 1, "", "SiN", /* SiTN */
(SUBR) printf_opcode_init, NULL, NULL },
{ "printf", S(PRINTF_OP),WR, 3, "", "SkN", /* SkUN */
(SUBR) printf_opcode_set, (SUBR) printf_opcode_perf, NULL },
{ "puts", S(PUTS_OP),WR, 3, "", "Sko",
(SUBR) puts_opcode_init, (SUBR) puts_opcode_perf, NULL },
{ "strtod", S(STRSET_OP),0, 1, "i", "S",
(SUBR) strtod_opcode_S, NULL, NULL },
{ "strtod", S(STRTOD_OP),0, 1, "i", "i",
(SUBR) strtod_opcode_p, NULL, NULL },
{ "strtodk", S(STRSET_OP),0, 3, "k", "S",
(SUBR) strtod_opcode_S, (SUBR) strtod_opcode_S, NULL },
{ "strtol", S(STRSET_OP),0, 1, "i", "S",
(SUBR) strtol_opcode_S, NULL, NULL },
{ "strtol", S(STRTOD_OP),0, 1, "i", "i",
(SUBR) strtol_opcode_p, NULL, NULL },
{ "strtolk", S(STRSET_OP),0, 3, "k", "S",
(SUBR) strtol_opcode_S, (SUBR) strtol_opcode_S, NULL },
{ "strsub", S(STRSUB_OP),0, 1, "S", "Soj",
(SUBR) strsub_opcode, NULL, NULL },
{ "strsubk", S(STRSUB_OP),0, 3, "S", "Skk",
(SUBR) strsub_opcode, (SUBR) strsub_opcode, NULL },
{ "strchar", S(STRCHAR_OP),0, 1, "i", "So",
(SUBR) strchar_opcode, NULL, NULL },
{ "strchark", S(STRCHAR_OP),0, 3, "k", "SO",
(SUBR) strchar_opcode, (SUBR) strchar_opcode, NULL },
{ "strlen", S(STRLEN_OP),0, 1, "i", "S",
(SUBR) strlen_opcode, NULL, NULL },
{ "strlenk", S(STRLEN_OP),0, 3, "k", "S",
(SUBR) strlen_opcode, (SUBR) strlen_opcode, NULL },
{ "strupper", S(STRUPPER_OP),0, 1, "S", "S",
(SUBR) strupper_opcode, NULL, NULL },
{ "strupperk", S(STRUPPER_OP),0, 3, "S", "S",
(SUBR) strupper_opcode, (SUBR) strupper_opcode, NULL },
{ "strlower", S(STRUPPER_OP),0, 1, "S", "S",
(SUBR) strlower_opcode, NULL, NULL },
{ "strlowerk", S(STRUPPER_OP),0, 3, "S", "S",
(SUBR) strlower_opcode, (SUBR) strlower_opcode, NULL },
{ "getcfg", S(GETCFG_OP),0, 1, "S", "i",
(SUBR) getcfg_opcode, NULL, NULL },
{ "strindex", S(STRINDEX_OP),0, 1, "i", "SS",
(SUBR) strindex_opcode, NULL, NULL },
{ "strindexk", S(STRINDEX_OP),0, 3, "k", "SS",
(SUBR) strindex_opcode, (SUBR) strindex_opcode, NULL },
{ "strrindex", S(STRINDEX_OP),0, 1, "i", "SS",
(SUBR) strrindex_opcode, NULL, NULL },
{ "strrindexk", S(STRINDEX_OP),0, 3, "k", "SS",
(SUBR) strrindex_opcode, (SUBR) strrindex_opcode, NULL },
{ "print_type", S(PRINT_TYPE_OP),0, 1, "", ".",
(SUBR) print_type_opcode, NULL, NULL },
#ifdef HAVE_CURL
{ "strfromurl", S(STRCPY_OP), 0, 1, "S", "S", (SUBR) str_from_url },
#endif
{ "changed.S", S(STRCHGD),0, 3, "k", "S",
(SUBR) str_changed, (SUBR) str_changed_k, NULL },
{ "changed2.S", S(STRCHGD),0, 3, "k", "S",
(SUBR) str_changed, (SUBR) str_changed_k, NULL },
{ "loop_lt.i", S(LOOP_OPS),0, 1, "", "iiil", (SUBR) loop_l_i, NULL, NULL },
{ "loop_le.i", S(LOOP_OPS),0, 1, "", "iiil", (SUBR) loop_le_i, NULL, NULL },
{ "loop_gt.i", S(LOOP_OPS),0, 1, "", "iiil", (SUBR) loop_g_i, NULL, NULL },
{ "loop_ge.i", S(LOOP_OPS),0, 1, "", "iiil", (SUBR) loop_ge_i, NULL, NULL },
{ "loop_lt.k", S(LOOP_OPS),0, 2, "", "kkkl", NULL, (SUBR) loop_l_p, NULL },
{ "loop_le.k", S(LOOP_OPS),0, 2, "", "kkkl", NULL, (SUBR) loop_le_p, NULL },
{ "loop_gt.k", S(LOOP_OPS),0, 2, "", "kkkl", NULL, (SUBR) loop_g_p, NULL },
{ "loop_ge.k", S(LOOP_OPS),0, 2, "", "kkkl", NULL, (SUBR) loop_ge_p, NULL },
{ "chnget", 0xFFFF, _CR },
{ "chnget.i", S(CHNGET),_CR, 1, "i", "S",
(SUBR) chnget_opcode_init_i, NULL, NULL },
{ "chnget.k", S(CHNGET),_CR, 3, "k", "S",
(SUBR) chnget_opcode_init_k, (SUBR) notinit_opcode_stub, NULL },
{ "chngeti.i", S(CHNGET),_CR, 1, "i[]", "S[]",
(SUBR) chnget_array_opcode_init_i, NULL, NULL },
{ "chngeta.a", S(CHNGET),_CR, 3, "a[]", "S[]",
(SUBR) chnget_array_opcode_init, (SUBR) notinit_opcode_stub, NULL },
{ "chngets.s", S(CHNGET),_CR, 3, "S[]", "S[]",
(SUBR) chnget_array_opcode_init, (SUBR) notinit_opcode_stub, NULL },
{ "chngetk.k", S(CHNGET),_CR, 3, "k[]", "S[]",
(SUBR) chnget_array_opcode_init, (SUBR) notinit_opcode_stub, NULL },
{ "chnget.a", S(CHNGET),_CR, 3, "a", "S",
(SUBR) chnget_opcode_init_a, (SUBR) notinit_opcode_stub },
{ "chnget.S", S(CHNGET),_CR, 3, "S", "S",
(SUBR) chnget_opcode_init_S, (SUBR) chnget_opcode_perf_S, NULL},
{ "chngetks", S(CHNGET),_CR, 2, "S", "S",
NULL, (SUBR) chnget_opcode_perf_S, NULL},
//{ "chnset", 0xFFFB, _CW },
{ "chnseti.i", S(CHNGET),_CW, 1, "", "i[]S[]",
(SUBR) chnset_array_opcode_init_i, NULL, NULL },
{ "chnsetk.k", S(CHNGET),_CW, 3, "", "k[]S[]",
(SUBR) chnset_array_opcode_init, (SUBR) notinit_opcode_stub, NULL },
{ "chnseta.a", S(CHNGET),_CW, 3, "", "a[]S[]",
(SUBR) chnset_array_opcode_init, (SUBR) notinit_opcode_stub, NULL },
{ "chnsets.s", S(CHNGET),_CW, 3, "", "S[]S[]",
(SUBR) chnset_array_opcode_init, (SUBR) notinit_opcode_stub, NULL },
{ "chnset.i", S(CHNGET),_CW, 1, "", "iS",
(SUBR) chnset_opcode_init_i, NULL, NULL },
// { "chnset.r", S(CHNGET),0, 1, "", "iS",
// (SUBR) chnset_opcode_init_i, NULL, NULL },
// { "chnset.c", S(CHNGET),0, 1, "", "iS",
// (SUBR) chnset_opcode_init_i, NULL, NULL },
{ "chnset.k", S(CHNGET),_CW, 3, "", "kS",
(SUBR) chnset_opcode_init_k, (SUBR) notinit_opcode_stub, NULL },
{ "chnset.a", S(CHNGET),_CW, 3, "", "aS",
(SUBR) chnset_opcode_init_a, (SUBR) notinit_opcode_stub },
{ "chnset.S", S(CHNGET),_CW, 3, "", "SS",
(SUBR) chnset_opcode_init_S, (SUBR) chnset_opcode_perf_S, NULL },
{ "chnsetks", S(CHNGET),_CW, 2, "", "SS",
NULL, (SUBR) chnset_opcode_perf_S, NULL },
{ "chnmix", S(CHNGET), _CB, 3, "", "aS",
(SUBR) chnmix_opcode_init, (SUBR) notinit_opcode_stub },
{ "chnclear", S(CHNCLEAR), _CW, 3, "", "W",
(SUBR) chnclear_opcode_init, (SUBR) notinit_opcode_stub },
{ "chn_k", S(CHN_OPCODE_K), _CW, 1, "", "SiooooooooN",
(SUBR) chn_k_opcode_init, NULL, NULL },
{ "chn_k", S(CHN_OPCODE_K), _CW, 1, "", "SSooooooooN",
(SUBR) chn_k_opcode_init_S, NULL, NULL},
{ "chn_a", S(CHN_OPCODE), _CW, 1, "", "Si",
(SUBR) chn_a_opcode_init, NULL, NULL },
{ "chn_S", S(CHN_OPCODE), _CW, 1, "", "Si",
(SUBR) chn_S_opcode_init, NULL, NULL },
//{ "chnexport", 0xFFFF, 0, 0, NULL, NULL, NULL, NULL },
{ "chnexport.i", S(CHNEXPORT_OPCODE),0, 1, "i", "Sioooo",
(SUBR) chnexport_opcode_init, NULL, NULL },
{ "chnexport.k", S(CHNEXPORT_OPCODE),0, 1, "k", "Sioooo",
(SUBR) chnexport_opcode_init, NULL, NULL },
{ "chnexport.a", S(CHNEXPORT_OPCODE),0, 1, "a", "Si",
(SUBR) chnexport_opcode_init, NULL, NULL },
{ "chnexport.S", S(CHNEXPORT_OPCODE),0, 1, "S", "Si",
(SUBR) chnexport_opcode_init, NULL, NULL },
{ "chnparams", S(CHNPARAMS_OPCODE),_CR, 1, "iiiiii", "S",
(SUBR) chnparams_opcode_init, NULL, NULL },
/* these opcodes have never been fully implemented
{ "chnrecv", S(CHNSEND), _CR, 3, "", "So",
(SUBR) chnrecv_opcode_init, (SUBR) notinit_opcode_stub, NULL },
{ "chnsend", S(CHNSEND),0, 3, "", "So",
(SUBR) chnsend_opcode_init, (SUBR) notinit_opcode_stub, NULL },
*/
//{ "chano", 0xFFFD, _CW, 0, NULL, NULL, NULL, NULL },
{ "chano.k", S(ASSIGN),_CW, 2, "", "kk",
NULL, (SUBR) chano_opcode_perf_k, NULL },
{ "chano.a", S(ASSIGN),_CW, 2, "", "ak",
NULL, (SUBR) chano_opcode_perf_a },
{ "pvsout", S(FCHAN),0, 3, "", "fk",
(SUBR) pvsout_init, (SUBR) pvsout_perf, NULL },
//{ "chani", 0xFFFF, _CR, 0, NULL, NULL, NULL, NULL },
{ "chani.k", S(ASSIGN),_CR, 2, "k", "k",
NULL, (SUBR) chani_opcode_perf_k, NULL },
{ "chani.a", S(ASSIGN),_CR, 2, "a", "k",
NULL, (SUBR) chani_opcode_perf_a },
{ "pvsin", S(FCHAN),0, 3, "f", "kooopo",
(SUBR) pvsin_init, (SUBR) pvsin_perf, NULL },
{ "sense", S(KSENSE),0, 2, "kz", "",
NULL, (SUBR) sensekey_perf, NULL },
{ "sensekey", S(KSENSE),0, 2, "kz", "",
NULL, (SUBR) sensekey_perf, NULL },
{ "remove", S(DELETEIN),0, 1, "", "T",
(SUBR) delete_instr, NULL, NULL },
// { "##globallock", S(GLOBAL_LOCK_UNLOCK),0, 3, "", "i",
// globallock, globallock, NULL},
// { "##globalunlock", S(GLOBAL_LOCK_UNLOCK),0, 3, "", "i",
// globalunlock, globalunlock, NULL},
{ "##error",S(ERRFN),0, 1, "i", "i", error_fn, NULL, NULL },
{ "exprandi.i",S(PRANDI),0, 1, "i", "kxx", iexprndi, NULL, NULL },
{ "exprandi.k",S(PRANDI),0, 3, "k", "kxx", exprndiset, kexprndi, NULL },
{ "exprandi.a",S(PRANDI),0, 2, "a", "kxx", exprndiset, aexprndi },
{ "cauchyi.i", S(PRANDI),0, 1, "i", "kxx", icauchyi, NULL, NULL },
{ "cauchyi.k", S(PRANDI),0, 3, "k", "kxx", cauchyiset, kcauchyi, NULL },
{ "cauchyi.a", S(PRANDI),0, 2, "a", "kxx", cauchyiset, acauchyi },
{ "gaussi.i", S(PRANDI),0, 1, "i", "kxx", igaussi, NULL, NULL },
{ "gaussi.k", S(PRANDI),0, 3, "k", "kxx", gaussiset, kgaussi, NULL },
{ "gaussi.a", S(PRANDI),0, 2, "a", "kxx", gaussiset, agaussi },
{ "ftresizei", S(RESIZE), TB, 1, "i", "ii", (SUBR) resize_table, NULL, NULL },
{ "ftresize", S(RESIZE), TB, 2, "k", "kk", NULL, (SUBR) resize_table, NULL },
{ "compileorc", S(COMPILE), 0, 1, "i", "S", (SUBR) compile_orc_i, NULL, NULL },
{ "compilecsd", S(COMPILE), 0, 1, "i", "S", (SUBR) compile_csd_i, NULL, NULL },
{ "compilestr", S(COMPILE), 0, 1, "i", "S", (SUBR) compile_str_i, NULL, NULL },
{ "evalstr", S(COMPILE), 0, 1, "i", "S", (SUBR) eval_str_i, NULL, NULL },
{ "evalstr", S(COMPILE), 0, 2, "k", "Sk", NULL, (SUBR) eval_str_k, NULL },
{ "readscore", S(COMPILE), 0, 1, "i", "S", (SUBR) read_score_i, NULL, NULL },
{ "return", S(RETVAL), 0, 1, "", "i", (SUBR) retval_i, NULL, NULL },
/* ----------------------------------------------------------------------- */
{ "monitor", sizeof(MONITOR_OPCODE), IB, 3, "mmmmmmmmmmmmmmmmmmmmmmmm", "",
(SUBR) monitor_opcode_init, (SUBR) notinit_opcode_stub, NULL },
{ "outrg", S(OUTRANGE), IR,3, "", "ky",
(SUBR)outRange_i, (SUBR)outRange},
{ "nchnls_hw", S(ASSIGN), 0,1, "ii", "",
(SUBR)hw_channels},
{ "midiarp", S(MIDIARP),0, 3, "kk", "kO",
midiarp_set, midiarp, NULL },
{"lpcfilter", S(LPCFIL), 0, 3, "a", "akkiiio",
(SUBR) lpfil_init, (SUBR) lpfil_perf},
{"lpcfilter", S(LPCFIL2), 0, 3, "a", "aakkiio",
(SUBR) lpfil2_init, (SUBR) lpfil2_perf},
{"allpole", S(LPCFIL3), 0, 3, "a", "ak[]",
(SUBR) lpfil3_init, (SUBR) lpfil3_perf},
{"lpcanal", S(LPREDA), 0, 3, "k[]kkk", "kkiiio",
(SUBR) lpred_alloc, (SUBR) lpred_run},
{"lpcanal", S(LPREDA2), 0, 3, "k[]kkk", "akkiio",
(SUBR) lpred_alloc2, (SUBR) lpred_run2},
{"lpcanal", S(LPREDA), 0, 1, "i[]iii", "iiii",
(SUBR) lpred_i, NULL},
{"pvslpc", S(LPCPVS), 0, 3, "f", "aiiio",
(SUBR) lpcpvs_init, (SUBR) lpcpvs},
{"pvscfs", S(PVSCFS), 0, 3, "k[]kk", "fip",
(SUBR) pvscoefs_init, (SUBR) pvscoefs},
{"apoleparams", S(CF2P), 0, 3, "k[]", "k[]",
(SUBR) coef2parm_init, (SUBR) coef2parm},
{"resonbnk", S(RESONB), 0, 3, "a", "ak[]kkipoo",
(SUBR) resonbnk_init, (SUBR) resonbnk},
/* terminate list */
{ NULL, 0, 0, 0, NULL, NULL, NULL, NULL, NULL }
};
|
