source: buchla-68k/ram/etdyn.c@ b28a12e

Last change on this file since b28a12e was b28a12e, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Zero redundant declarations.
  • Property mode set to 100644
File size: 2.4 KB
Line 
1/*
2 =============================================================================
3 etdyn.c -- dynamics field handlers
4 Version 8 -- 1988-06-08 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#include "ram.h"
9
10/*
11 =============================================================================
12 et_dyn() -- load edit buffer
13 =============================================================================
14*/
15
16int16_t et_dyn(int16_t n)
17{
18 ebuf[0] =grpdyn[n] + '0';
19 ebuf[1] = '\0';
20 ebflag = TRUE;
21 return(SUCCESS);
22}
23
24/*
25
26*/
27
28/*
29 =============================================================================
30 ef_dyn() -- parse edit buffer
31 =============================================================================
32*/
33
34int16_t ef_dyn(int16_t n)
35{
36 register int16_t ival;
37 register struct s_entry *ep;
38
39 ebuf[1] = '\0';
40 ival = ebuf[0] - '0';
41 ebflag = FALSE;
42
43 setdyn(n, ival);
44
45 if (recsw AND grpmode[n] AND (2 EQ grpmode[n])) {
46
47 if (E_NULL NE (ep = findev(p_cur, t_cur, EV_DYN, n, -1))) {
48
49 ep->e_data2 = ival;
50
51 } else if (E_NULL NE (ep = e_alc(E_SIZE2))) {
52
53 ep->e_type = EV_DYN;
54 ep->e_data1 = n;
55 ep->e_data2 = ival;
56 ep->e_time = t_cur;
57 p_cur = e_ins(ep, ep_adj(p_cur, 0, t_cur))->e_fwd;
58 eh_ins(ep, EH_DYN);
59 ctrsw = TRUE;
60 se_disp(ep, D_FWD, gdstbc, 1);
61 scupd();
62 }
63 }
64
65 return(SUCCESS);
66}
67
68/*
69
70*/
71
72/*
73 =============================================================================
74 rd_dyn() -- (re)display the field
75 =============================================================================
76*/
77
78int16_t rd_dyn(int16_t n)
79{
80 if (v_regs[5] & 0x0180)
81 vbank(0);
82
83 vputc(obj8, 4, 6+(n*5), (grpdyn[n] + '0'), SDW11ATR);
84
85 return(SUCCESS);
86}
87
88/*
89 =============================================================================
90 ds_dyn() -- display all dynamics to group assignments
91 =============================================================================
92*/
93
94void ds_dyn(void)
95{
96 register int16_t i;
97
98 for (i = 0; i < 12; i++)
99 rd_dyn(i);
100}
101
102/*
103
104*/
105
106/*
107 =============================================================================
108 nd_dyn() -- data entry function
109 =============================================================================
110*/
111
112int16_t nd_dyn(int16_t n, int16_t k)
113{
114 ebuf[0] = k + '0';
115
116 if (v_regs[5] & 0x0180)
117 vbank(0);
118
119 vputc(obj8, 4, stccol, k + '0', SDW11DEA);
120 advscur();
121
122 return(SUCCESS);
123}
124
Note: See TracBrowser for help on using the repository browser.