di2622l3.txt 
;**************************************************************************************************
; LISTING 3 - TABLE GENERATION FOR A 20-Hz-RING SINE WAVE
;
; "Generate CID/CIDCW analog signals," EDN, Dec 7, 2000, pg 188

; http://www.ednmag.com/ednmag/reg/2000/12072000/designideas.htm#25di2
;
***************************************************************************************************

PI = 3.1415926#
KM = 246              ' MAXIMUM RANGE OF PULSE WIDTH
DT = 27648 / 11059200 ' TIME FOR EACH SAMPLE
DTI = DT
F = (11059200 / 27648) / 20 ' OUTPUT FREQUENCY
FOR I = 1 TO 20             ' 20 SAMPLES THEN REPEAT
V = KM / 2 + (KM / 2) * (SIN(2 * PI * F * DT))
PRINT I, DT, V
DT = DT + DTI         ' NEXT SAMPLE
NEXT I