h_vogt
16 years ago
48 changed files with 412 additions and 393 deletions
-
5.cvsignore
-
49ChangeLog
-
4src/include/cmproto.h
-
4src/include/dllitf.h
-
8src/xspice/cm/cm.c
-
11src/xspice/cm/cmevt.c
-
182src/xspice/examples/nco/cfunc.mod
-
93src/xspice/examples/real_delay/cfunc.mod
-
152src/xspice/examples/real_to_v/cfunc.mod
-
6src/xspice/icm/analog/d_dt/cfunc.mod
-
4src/xspice/icm/analog/hyst/cfunc.mod
-
7src/xspice/icm/analog/int/cfunc.mod
-
18src/xspice/icm/analog/oneshot/cfunc.mod
-
71src/xspice/icm/analog/s_xfer/cfunc.mod
-
2src/xspice/icm/analog/sine/cfunc.mod
-
8src/xspice/icm/analog/slew/cfunc.mod
-
10src/xspice/icm/analog/square/cfunc.mod
-
8src/xspice/icm/analog/triangle/cfunc.mod
-
6src/xspice/icm/digital/adc_bridge/cfunc.mod
-
2src/xspice/icm/digital/d_and/cfunc.mod
-
2src/xspice/icm/digital/d_buffer/cfunc.mod
-
11src/xspice/icm/digital/d_dff/cfunc.mod
-
10src/xspice/icm/digital/d_dlatch/cfunc.mod
-
6src/xspice/icm/digital/d_fdiv/cfunc.mod
-
2src/xspice/icm/digital/d_inverter/cfunc.mod
-
8src/xspice/icm/digital/d_jkff/cfunc.mod
-
2src/xspice/icm/digital/d_nand/cfunc.mod
-
2src/xspice/icm/digital/d_nor/cfunc.mod
-
1src/xspice/icm/digital/d_open_c/cfunc.mod
-
1src/xspice/icm/digital/d_open_e/cfunc.mod
-
2src/xspice/icm/digital/d_or/cfunc.mod
-
8src/xspice/icm/digital/d_osc/cfunc.mod
-
8src/xspice/icm/digital/d_ram/cfunc.mod
-
4src/xspice/icm/digital/d_source/cfunc.mod
-
8src/xspice/icm/digital/d_srff/cfunc.mod
-
12src/xspice/icm/digital/d_srlatch/cfunc.mod
-
8src/xspice/icm/digital/d_state/cfunc.mod
-
8src/xspice/icm/digital/d_tff/cfunc.mod
-
2src/xspice/icm/digital/d_xnor/cfunc.mod
-
2src/xspice/icm/digital/d_xor/cfunc.mod
-
6src/xspice/icm/digital/dac_bridge/cfunc.mod
-
8src/xspice/icm/dlmain.c
-
3src/xspice/icm/xtradev/capacitor/cfunc.mod
-
4src/xspice/icm/xtradev/core/cfunc.mod
-
3src/xspice/icm/xtradev/inductor/cfunc.mod
-
18src/xspice/icm/xtradev/lcouple/cfunc.mod
-
2src/xspice/icm/xtraevt/real_delay/cfunc.mod
-
4src/xspice/icm/xtraevt/real_to_v/cfunc.mod
@ -1,90 +1,92 @@ |
|||||
/* $Id$ */ |
|
||||
|
|
||||
void *malloc(unsigned); |
|
||||
|
|
||||
#define OUT_STATE 0 |
|
||||
#define NXT_TIME 1 |
|
||||
#define NUM_NOTES 128 |
|
||||
|
|
||||
|
|
||||
/* A numerically controlled oscillator. Output frequencies */ |
|
||||
/* are determined according to the MIDI note number at input */ |
|
||||
|
|
||||
void ucm_nco (ARGS) |
|
||||
{ |
|
||||
|
|
||||
double *freq; |
|
||||
|
|
||||
int *output_state; |
|
||||
double *next_time; |
|
||||
|
|
||||
int i; |
|
||||
int index; |
|
||||
int scale_factor; |
|
||||
|
|
||||
double half_period; |
|
||||
|
|
||||
|
|
||||
if(INIT) { |
|
||||
|
|
||||
/* Setup storage for the toggled output state */ |
|
||||
output_state = (int *) cm_event_alloc(OUT_STATE, sizeof(int)); |
|
||||
next_time = (double *) cm_event_alloc(NXT_TIME, sizeof(double)); |
|
||||
|
|
||||
/* Allocate storage for frequencies */ |
|
||||
STATIC_VAR(freq) = malloc(NUM_NOTES * sizeof(double)); |
|
||||
freq = STATIC_VAR(freq); |
|
||||
|
|
||||
/* Initialize the frequency array */ |
|
||||
for(i = 0; i < NUM_NOTES; i++) { |
|
||||
if(i == 0) |
|
||||
freq[0] = 8.17578 * PARAM(mult_factor); |
|
||||
else |
|
||||
freq[i] = freq[i-1] * 1.059463094; |
|
||||
} |
|
||||
} |
|
||||
else { |
|
||||
|
|
||||
/* Get old output state */ |
|
||||
output_state = (int *) cm_event_get_ptr(OUT_STATE, 0); |
|
||||
next_time = (double *) cm_event_get_ptr(NXT_TIME, 0); |
|
||||
} |
|
||||
|
|
||||
|
|
||||
/* Convert the input bits to an integer */ |
|
||||
index = 0; |
|
||||
scale_factor = 64; |
|
||||
for(i = 0; i < 7; i++) { |
|
||||
if(INPUT_STATE(in[i]) == ONE) |
|
||||
index += scale_factor; |
|
||||
scale_factor /= 2; |
|
||||
} |
|
||||
|
|
||||
/* Look up the frequency and compute half its period */ |
|
||||
freq = STATIC_VAR(freq); |
|
||||
half_period = 1.0 / freq[index]; |
|
||||
|
|
||||
|
|
||||
/* Queue up events and output the new state */ |
|
||||
if(TIME == 0.0) { |
|
||||
*next_time = half_period; |
|
||||
cm_event_queue(*next_time); |
|
||||
OUTPUT_STATE(out) = *output_state; |
|
||||
} |
|
||||
else { |
|
||||
if(TIME == *next_time) { |
|
||||
*next_time = TIME + half_period; |
|
||||
cm_event_queue(*next_time); |
|
||||
*output_state = 1 - *output_state; |
|
||||
OUTPUT_STATE(out) = *output_state; |
|
||||
OUTPUT_DELAY(out) = PARAM(delay); |
|
||||
} |
|
||||
else |
|
||||
OUTPUT_CHANGED(out) = FALSE; |
|
||||
} |
|
||||
|
|
||||
} |
|
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
/* $Id$ */ |
||||
|
|
||||
|
void *malloc(unsigned); |
||||
|
|
||||
|
#define OUT_STATE 0 |
||||
|
#define NXT_TIME 1 |
||||
|
#define NUM_NOTES 128 |
||||
|
|
||||
|
|
||||
|
/* A numerically controlled oscillator. Output frequencies */ |
||||
|
/* are determined according to the MIDI note number at input */ |
||||
|
|
||||
|
void ucm_nco (ARGS) |
||||
|
{ |
||||
|
|
||||
|
double *freq; |
||||
|
|
||||
|
int *output_state; |
||||
|
double *next_time; |
||||
|
|
||||
|
int i; |
||||
|
int index; |
||||
|
int scale_factor; |
||||
|
|
||||
|
double half_period; |
||||
|
|
||||
|
|
||||
|
if(INIT) { |
||||
|
|
||||
|
/* Setup storage for the toggled output state */ |
||||
|
cm_event_alloc(OUT_STATE, sizeof(int)); |
||||
|
cm_event_alloc(NXT_TIME, sizeof(double)); |
||||
|
output_state = (int *) cm_event_get_ptr(OUT_STATE, 0); |
||||
|
next_time = (double *) cm_event_get_ptr(NXT_TIME, 0); |
||||
|
|
||||
|
/* Allocate storage for frequencies */ |
||||
|
STATIC_VAR(freq) = malloc(NUM_NOTES * sizeof(double)); |
||||
|
freq = STATIC_VAR(freq); |
||||
|
|
||||
|
/* Initialize the frequency array */ |
||||
|
for(i = 0; i < NUM_NOTES; i++) { |
||||
|
if(i == 0) |
||||
|
freq[0] = 8.17578 * PARAM(mult_factor); |
||||
|
else |
||||
|
freq[i] = freq[i-1] * 1.059463094; |
||||
|
} |
||||
|
} |
||||
|
else { |
||||
|
|
||||
|
/* Get old output state */ |
||||
|
output_state = (int *) cm_event_get_ptr(OUT_STATE, 0); |
||||
|
next_time = (double *) cm_event_get_ptr(NXT_TIME, 0); |
||||
|
} |
||||
|
|
||||
|
|
||||
|
/* Convert the input bits to an integer */ |
||||
|
index = 0; |
||||
|
scale_factor = 64; |
||||
|
for(i = 0; i < 7; i++) { |
||||
|
if(INPUT_STATE(in[i]) == ONE) |
||||
|
index += scale_factor; |
||||
|
scale_factor /= 2; |
||||
|
} |
||||
|
|
||||
|
/* Look up the frequency and compute half its period */ |
||||
|
freq = STATIC_VAR(freq); |
||||
|
half_period = 1.0 / freq[index]; |
||||
|
|
||||
|
|
||||
|
/* Queue up events and output the new state */ |
||||
|
if(TIME == 0.0) { |
||||
|
*next_time = half_period; |
||||
|
cm_event_queue(*next_time); |
||||
|
OUTPUT_STATE(out) = *output_state; |
||||
|
} |
||||
|
else { |
||||
|
if(TIME == *next_time) { |
||||
|
*next_time = TIME + half_period; |
||||
|
cm_event_queue(*next_time); |
||||
|
*output_state = 1 - *output_state; |
||||
|
OUTPUT_STATE(out) = *output_state; |
||||
|
OUTPUT_DELAY(out) = PARAM(delay); |
||||
|
} |
||||
|
else |
||||
|
OUTPUT_CHANGED(out) = FALSE; |
||||
|
} |
||||
|
|
||||
|
} |
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
@ -1,46 +1,47 @@ |
|||||
/* $Id$ */ |
|
||||
|
|
||||
|
|
||||
#define CLK_STATE 0 |
|
||||
|
|
||||
|
|
||||
void ucm_real_delay (ARGS) |
|
||||
{ |
|
||||
|
|
||||
double *in; |
|
||||
double *out; |
|
||||
|
|
||||
Digital_State_t *state; |
|
||||
Digital_State_t *old_state; |
|
||||
|
|
||||
|
|
||||
if(INIT) { |
|
||||
state = (void *) cm_event_alloc(CLK_STATE, sizeof(Digital_State_t)); |
|
||||
old_state = state; |
|
||||
*state = INPUT_STATE(clk); |
|
||||
} |
|
||||
else { |
|
||||
state = (void *) cm_event_get_ptr(CLK_STATE, 0); |
|
||||
old_state = (void *) cm_event_get_ptr(CLK_STATE, 1); |
|
||||
} |
|
||||
|
|
||||
if(ANALYSIS != TRANSIENT) |
|
||||
OUTPUT_CHANGED(out) = FALSE; |
|
||||
else { |
|
||||
*state = INPUT_STATE(clk); |
|
||||
if(*state == *old_state) |
|
||||
OUTPUT_CHANGED(out) = FALSE; |
|
||||
else if(*state != ONE) |
|
||||
OUTPUT_CHANGED(out) = FALSE; |
|
||||
else { |
|
||||
in = INPUT(in); |
|
||||
out = OUTPUT(out); |
|
||||
*out = *in; |
|
||||
OUTPUT_DELAY(out) = PARAM(delay); |
|
||||
} |
|
||||
} |
|
||||
} |
|
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
/* $Id$ */ |
||||
|
|
||||
|
|
||||
|
#define CLK_STATE 0 |
||||
|
|
||||
|
|
||||
|
void ucm_real_delay (ARGS) |
||||
|
{ |
||||
|
|
||||
|
double *in; |
||||
|
double *out; |
||||
|
|
||||
|
Digital_State_t *state; |
||||
|
Digital_State_t *old_state; |
||||
|
|
||||
|
|
||||
|
if(INIT) { |
||||
|
cm_event_alloc(CLK_STATE, sizeof(Digital_State_t)); |
||||
|
state = (void *) cm_event_get_ptr(CLK_STATE, 0); |
||||
|
old_state = state; |
||||
|
*state = INPUT_STATE(clk); |
||||
|
} |
||||
|
else { |
||||
|
state = (void *) cm_event_get_ptr(CLK_STATE, 0); |
||||
|
old_state = (void *) cm_event_get_ptr(CLK_STATE, 1); |
||||
|
} |
||||
|
|
||||
|
if(ANALYSIS != TRANSIENT) |
||||
|
OUTPUT_CHANGED(out) = FALSE; |
||||
|
else { |
||||
|
*state = INPUT_STATE(clk); |
||||
|
if(*state == *old_state) |
||||
|
OUTPUT_CHANGED(out) = FALSE; |
||||
|
else if(*state != ONE) |
||||
|
OUTPUT_CHANGED(out) = FALSE; |
||||
|
else { |
||||
|
in = INPUT(in); |
||||
|
out = OUTPUT(out); |
||||
|
*out = *in; |
||||
|
OUTPUT_DELAY(out) = PARAM(delay); |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
@ -1,75 +1,77 @@ |
|||||
/* $Id$ */ |
|
||||
|
|
||||
|
|
||||
#define TS 0 |
|
||||
#define VS 1 |
|
||||
|
|
||||
|
|
||||
void ucm_real_to_v (ARGS) |
|
||||
{ |
|
||||
|
|
||||
double *t, *v; |
|
||||
double *in; |
|
||||
|
|
||||
double out; |
|
||||
|
|
||||
|
|
||||
in = INPUT(in); |
|
||||
|
|
||||
if(INIT) { |
|
||||
t = (void *) cm_event_alloc(TS, 2 * sizeof(double)); |
|
||||
v = (void *) cm_event_alloc(VS, 2 * sizeof(double)); |
|
||||
t[0] = -2.0; |
|
||||
t[1] = -1.0; |
|
||||
v[0] = *in; |
|
||||
v[1] = *in; |
|
||||
} |
|
||||
else { |
|
||||
t = (void *) cm_event_get_ptr(TS, 0); |
|
||||
v = (void *) cm_event_get_ptr(VS, 0); |
|
||||
} |
|
||||
|
|
||||
switch(CALL_TYPE) { |
|
||||
|
|
||||
case ANALOG: |
|
||||
if(TIME == 0.0) { |
|
||||
OUTPUT(out) = *in; |
|
||||
v[0] = *in; |
|
||||
v[1] = *in; |
|
||||
} |
|
||||
else { |
|
||||
if(TIME <= t[0]) |
|
||||
OUTPUT(out) = v[0]; |
|
||||
else if(TIME >= t[1]) |
|
||||
OUTPUT(out) = v[1]; |
|
||||
else { |
|
||||
OUTPUT(out) = v[0] + (v[1] - v[0]) * |
|
||||
(TIME - t[0]) / (t[1] - t[0]); |
|
||||
} |
|
||||
} |
|
||||
break; |
|
||||
|
|
||||
case EVENT: |
|
||||
if(TIME == 0.0) |
|
||||
return; |
|
||||
if(TIME >= t[1]) { |
|
||||
v[0] = v[1]; |
|
||||
v[1] = *in; |
|
||||
t[0] = TIME; |
|
||||
t[1] = TIME + PARAM(transition_time); |
|
||||
} |
|
||||
else { |
|
||||
v[0] = v[0] + (v[1] - v[0]) * |
|
||||
(TIME - t[0]) / (t[1] - t[0]); |
|
||||
v[1] = *in; |
|
||||
t[0] = TIME; |
|
||||
t[1] = TIME + PARAM(transition_time); |
|
||||
} |
|
||||
break; |
|
||||
|
|
||||
} |
|
||||
} |
|
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
/* $Id$ */ |
||||
|
|
||||
|
|
||||
|
#define TS 0 |
||||
|
#define VS 1 |
||||
|
|
||||
|
|
||||
|
void ucm_real_to_v (ARGS) |
||||
|
{ |
||||
|
|
||||
|
double *t, *v; |
||||
|
double *in; |
||||
|
|
||||
|
double out; |
||||
|
|
||||
|
|
||||
|
in = INPUT(in); |
||||
|
|
||||
|
if(INIT) { |
||||
|
cm_event_alloc(TS, 2 * sizeof(double)); |
||||
|
cm_event_alloc(VS, 2 * sizeof(double)); |
||||
|
t = (void *) cm_event_get_ptr(TS, 0); |
||||
|
v = (void *) cm_event_get_ptr(VS, 0); |
||||
|
t[0] = -2.0; |
||||
|
t[1] = -1.0; |
||||
|
v[0] = *in; |
||||
|
v[1] = *in; |
||||
|
} |
||||
|
else { |
||||
|
t = (void *) cm_event_get_ptr(TS, 0); |
||||
|
v = (void *) cm_event_get_ptr(VS, 0); |
||||
|
} |
||||
|
|
||||
|
switch(CALL_TYPE) { |
||||
|
|
||||
|
case ANALOG: |
||||
|
if(TIME == 0.0) { |
||||
|
OUTPUT(out) = *in; |
||||
|
v[0] = *in; |
||||
|
v[1] = *in; |
||||
|
} |
||||
|
else { |
||||
|
if(TIME <= t[0]) |
||||
|
OUTPUT(out) = v[0]; |
||||
|
else if(TIME >= t[1]) |
||||
|
OUTPUT(out) = v[1]; |
||||
|
else { |
||||
|
OUTPUT(out) = v[0] + (v[1] - v[0]) * |
||||
|
(TIME - t[0]) / (t[1] - t[0]); |
||||
|
} |
||||
|
} |
||||
|
break; |
||||
|
|
||||
|
case EVENT: |
||||
|
if(TIME == 0.0) |
||||
|
return; |
||||
|
if(TIME >= t[1]) { |
||||
|
v[0] = v[1]; |
||||
|
v[1] = *in; |
||||
|
t[0] = TIME; |
||||
|
t[1] = TIME + PARAM(transition_time); |
||||
|
} |
||||
|
else { |
||||
|
v[0] = v[0] + (v[1] - v[0]) * |
||||
|
(TIME - t[0]) / (t[1] - t[0]); |
||||
|
v[1] = *in; |
||||
|
t[0] = TIME; |
||||
|
t[1] = TIME + PARAM(transition_time); |
||||
|
} |
||||
|
break; |
||||
|
|
||||
|
} |
||||
|
} |
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
Write
Preview
Loading…
Cancel
Save
Reference in new issue