source: buchla-68k/ram/etains.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.5 KB
Line 
1/*
2 =============================================================================
3 etains.c -- MIDAS assignment editor -- instrument to groups
4 Version 10 -- 1988-07-11 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#include "ram.h"
9
10/*
11 =============================================================================
12 modasg() -- indicate that the assignment table was modified
13 =============================================================================
14*/
15
16void modasg(void)
17{
18 if (NOT asgmod) {
19
20 asgmod = TRUE;
21 adswin(0);
22 }
23}
24
25/*
26 =============================================================================
27 et_ains() -- load the edit buffer
28 =============================================================================
29*/
30
31int16_t et_ains(int16_t n)
32{
33 register int16_t grp;
34
35 int8_t buf[4];
36
37 grp = 0x00FF & (n >> 8);
38
39 sprintf(ebuf, "%02.2d", ins2grp[grp] & 0x00FF);
40 ebflag = TRUE;
41
42 return(SUCCESS);
43}
44
45/*
46 =============================================================================
47 ef_ains() -- parse (unload) the edit buffer
48 =============================================================================
49*/
50
51int16_t ef_ains(int16_t n)
52{
53 register int16_t tmpval, grp, i;
54
55 grp = 0x00FF & (n >> 8);
56 ebuf[2] = '\0';
57 ebflag = FALSE;
58 tmpval = 0;
59
60 for (i = 0; i < 2; i++)
61 tmpval = (tmpval * 10) + (ebuf[i] - '0');
62
63 if (tmpval GE NINST )
64 return(FAILURE);
65
66 ins2grp[grp] = tmpval | (ins2grp[grp] & 0xFF00);
67 modasg();
68 setv2gi(grp);
69 setinst();
70 return(SUCCESS);
71}
72
73/*
74 =============================================================================
75 rd_ains() -- (re)display the field
76 =============================================================================
77*/
78
79int16_t rd_ains(int16_t nn)
80{
81 register int16_t n, grp;
82 int8_t buf[4];
83
84 n = 0x00FF & nn;
85 grp = 0x00FF & (nn >> 8);
86
87 sprintf(dspbuf, "%02.2d", ins2grp[grp] & 0x00FF);
88
89 vbank(0);
90 vcputsv(asgob, 64, adbox[n][4], adbox[n][5],
91 cfetp->frow, cfetp->flcol, dspbuf, 14);
92
93 return(SUCCESS);
94}
95
96/*
97 =============================================================================
98 nd_ains() -- handle new data entry
99 =============================================================================
100*/
101
102int16_t nd_ains(int16_t nn, int16_t k)
103{
104 register int16_t n;
105
106 n = nn & 0xFF;
107 ebuf[stccol - cfetp->flcol] = k + '0';
108 ebuf[2] = '\0';
109
110 dspbuf[0] = k + '0';
111 dspbuf[1] = '\0';
112
113 vbank(0);
114 vcputsv(asgob, 64, AK_ENTRY, adbox[n][5],
115 stcrow, stccol, dspbuf, 14);
116
117 advacur();
118 return(SUCCESS);
119}
120
121
Note: See TracBrowser for help on using the repository browser.