source: buchla-68k/ram/etsnbt.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.1 KB
RevLine 
[f40a309]1/*
2 =============================================================================
3 etsnbt.c -- beat field handlers
4 Version 4 -- 1988-07-28 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
[b28a12e]8#include "ram.h"
[f40a309]9
10/*
11 =============================================================================
12 et_snbt() -- load edit buffer
13 =============================================================================
14*/
15
[7258c6a]16int16_t et_snbt(int16_t n)
[f40a309]17{
[7258c6a]18 register int32_t curfr, beat;
[f40a309]19
20 if (clkrun) {
21
22 ebflag = FALSE;
23 return(FAILURE);
24 }
25
26 curfr = t_cur;
27 beat = curfr / 48;
28
29 sprintf(ebuf, "%05ld", beat);
30 ebflag = TRUE;
31
32 return(SUCCESS);
33}
34
35/*
36 =============================================================================
37 ef_snbt() -- parse edit buffer
38 =============================================================================
39*/
40
[7258c6a]41int16_t ef_snbt(int16_t n)
[f40a309]42{
[7258c6a]43 register int32_t ival;
44 register int16_t i;
[f40a309]45
46 if (clkrun)
47 return(FAILURE);
48
49 ival = 0L;
50
51 for (i = 0; i < 5; i++)
52 ival = (ival * 10) + (ebuf[i] - '0');
53
54 ebflag = FALSE;
55
56 if (insmode) {
57
58 icancel();
59 dsimode();
60 }
61
62 sc_goto(fc_val = ival * 48L);
63 return(SUCCESS);
64}
65
66/*
67 =============================================================================
68 rd_snbt() -- (re)display the field
69 =============================================================================
70*/
71
[7258c6a]72int16_t rd_snbt(int16_t n)
[f40a309]73{
[7258c6a]74 register int32_t curfr, beat;
75 int8_t buf[8];
[f40a309]76
77 curfr = t_cur;
78 beat = curfr / 48;
79 sprintf(buf, "%05ld", beat);
80
81 if (v_regs[5] & 0x0180)
82 vbank(0);
83
84 vputs(obj8, 0, 11, buf, SDW00ATR);
85
86 return(SUCCESS);
87}
88
89/*
90 =============================================================================
91 nd_snbt() -- data entry function
92 =============================================================================
93*/
94
[7258c6a]95int16_t nd_snbt(int16_t n, int16_t k)
[f40a309]96{
[7258c6a]97 register int16_t ec;
[f40a309]98
99 if (clkrun)
100 return(FAILURE);
101
102 ec = stccol - cfetp->flcol;
103 ebuf[ec] = k + '0';
104
105 if (v_regs[5] & 0x0180)
106 vbank(0);
107
108 vputc(obj8, 0, stccol, k + '0', SDW00DEA);
109 advscur();
110
111 return(SUCCESS);
112}
[6262b5c]113
Note: See TracBrowser for help on using the repository browser.