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

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

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