/***************************************************************************
* NAME: EXAMPLE.C
** COPYRIGHT:
** "Copyright (c) 1992, by FORTE
**
** "This software is furnished under a license and may be used,
** copied, or disclosed only in accordance with the terms of such
** license and with the inclusion of the above copyright notice.
** This software or any other copies thereof may not be provided or
** otherwise made available to any other person. No title to and
** ownership of the software is hereby transfered."
****************************************************************************
* CREATION DATE: 11/18/92
*--------------------------------------------------------------------------*
* VERSION DATE NAME DESCRIPTION
*> 1.0 05/01/93 Original
***************************************************************************/
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <io.h>
#include <dos.h>
#include <malloc.h>
#include <string.h>
#ifdef PHAR_LAP
#include <pharlap.h>
#endif
#define REC_SIZE (unsigned int)((63*1024))
#ifdef WATCOMC
#define close _dos_close
#endif
#ifdef MSOFTC
#define close _dos_close
#endif
#ifdef METAWARE
#define close _close
#endif
#include "forte.h"
#include "gf1proto.h"
#include "extern.h"
#include "ultraerr.h"
PFV UltraTimer2Handler(PFV handler);
PFV UltraTimer1Handler(PFV handler);
int UltraGetCfg(ULTRA_CFG *config);
int timer1_val=1;
int timer2_val=1;
int count1=0;
int count2=0;
void
HandleTimer1(void)
{
count1++;
}
void
HandleTimer2(void)
{
count2++;
}
void
main()
{
char filename[80];
char temp_char[10];
unsigned char control;
unsigned char rec_control;
void *data_ptr;
void *vdata_ptr;
int fd;
int dram_len;
int temp;
int done;
int select;
int voice_num = 0; /* examples use voice #0 */
unsigned int val;
unsigned int temp_val;
unsigned long dram_loc;
unsigned long begin,start_loop,end_loop;
unsigned long frequency;
unsigned long pos;
ULTRA_CFG config;
/* Get the ULTRASND environment string parameters */
UltraGetCfg(&config);
#ifdef PHAR_LAP
unsigned short nParagraphs; // set before call
unsigned short paragraphAddress;
unsigned short largestMemoryBlock;
unsigned long physicalAddress;
#endif
if (UltraProbe(config.base_port) == NO_ULTRA)
{
printf("No card found\n");
exit(-1);
}
if (UltraOpen(&config,14) == NO_ULTRA)
{
printf("No card found\n");
exit(-1);
}
dram_len = UltraSizeDram();
printf("\nFound %dK of Dram\n",dram_len);
/* Grab the 80 microsecond timer handler */
UltraTimer1Handler(HandleTimer1);
/* Grab the 320 microsecond timer handler */
UltraTimer2Handler(HandleTimer2);
printf("\nExample program for UltraSound Audio Card\n");
printf("=========================================\n\n");
done = FALSE;
while (!done)
{
printf("0 - Exit\n");
printf("1 - Reset UltraSound\n");
printf("2 - Download a sample\n");
printf("3 - Note on\n");
printf("4 - Note off\n");
printf("5 - Set Playback/Record rate\n");
printf("6 - Set Balance\n");
printf("7 - Set Volume\n");
printf("8 - Set Channel to use\n");
printf("9 - Read voice's absolute position\n");
printf("10 - Ramp volume\n");
printf("11 - Demo timer #1 (80 usec)\n");
printf("12 - Demo timer #2 (320 usec)\n");
printf("13 - Demo recording\n");
while (TRUE)
{
printf("\nEnter Selection : ");
val = scanf("%d",&select);
if (val != 0)
break;
else
{
printf("\nBad Selection\n");
scanf("%*s"); /* eat the bad string */
}
}
switch (select)
{
case 0:
done = TRUE;
break;
case 1:
temp = UltraGetOutput();
UltraDisableOutput();
UltraReset(32);
/* Re-Init some voice parms to defaults ... */
UltraSetLinearVolume(voice_num,256);
UltraSetFrequency(voice_num,22050L);
UltraSetBalance(voice_num,7);
if (temp)
UltraEnableOutput();
break;
case 2: /* download a sample to DRAM */
control = 0;
printf("Filename to get data from ? ");
scanf("%s",filename);
#ifdef BORLANDC
fd = _open(filename,O_RDONLY|O_BINARY);
#else
_dos_open(filename,O_RDONLY|O_BINARY,&fd);
#endif
if (fd == -1)
{
printf("Can't open file\n");
break;
}
printf("Amount to send down (bytes) ? ");
scanf("%u",&val);
#ifdef PHAR_LAP
/*************************************************************************
NOTE: This section is for getting a physical addr to DMA buffer. It
DOES NOT WORK !!!! Please contact Forte if you can get it to work
**************************************************************************/
nParagraphs = (val+16)>>4;
_dx_real_alloc(nParagraphs, ¶graphAddress, &largestMemoryBlock);
physicalAddress = paragraphAddress << 4;
data_ptr = (void *)physicalAddress;
// if(_dx_real_alloc(val,(USHORT*)&data_ptr,(USHORT*)&vdata_ptr) != 0)
// data_ptr = NULL;
#else
data_ptr = malloc(val);
#endif
if (data_ptr == NULL)
{
printf("\n\nError allocating DMA buffer\n");
close(fd);
break;
}
#ifdef BORLANDC
temp_val = _read(fd,data_ptr,val);
#else
_dos_read(fd,(_Far void *)data_ptr,val,&temp_val);
#endif
if (temp_val != val)
{
printf("Read failure %d\n",temp_val);
free(data_ptr);
close(fd);
break;
}
printf("Ultra DRAM location to put data ? ");
scanf("%ld",&dram_loc);
printf("8 bit (y/n) ? ");
scanf("%s",temp_char);
strupr(temp_char);
if (strcmp(temp_char,"Y") == 0)
{
control |= DMA_8;
}
else
{
control |= DMA_16;
}
printf("Is it in twos compliment form ? ");
scanf("%s",temp_char);
strupr(temp_char);
if (strcmp(temp_char,"Y") == 0)
{
control |= DMA_NO_CVT;
}
else
{
control |= DMA_CVT_2;
}
UltraDownload(data_ptr,control,dram_loc,val,TRUE);
free(data_ptr);
close(fd);
break;
case 3: /* Note on */
printf("Begining location ? ");
scanf("%ld",&begin);
printf("Loop start location ? ");
scanf("%ld",&start_loop);
printf("End location ? ");
scanf("%ld",&end_loop);
printf("Loop type (0=none,1=uni-direct,2=bi_direct) ? ");
scanf("%d",&temp_val);
control = 0;
if (temp_val > 2)
{
printf("Bad loop type\n");
break;
}
switch (temp_val)
{
case 0: /* no looping */
break;
case 1: /* uni-directional looping */
control |= 0x08;
break;
case 2: /* bi-directional looping */
control |= 0x08;
control |= 0x10;
break;
}
printf("8 bit (y/n) ? ");
scanf("%s",temp_char);
strupr(temp_char);
if (strcmp(temp_char,"Y") != 0)
{
control |= 0x04;
}
printf("Frequency (in hertz) = : ");
scanf("%ld",&frequency);
UltraVoiceOn(voice_num,begin,start_loop,end_loop,control,frequency);
break;
case 4: /* Note off */
/* This could be used to change the end point and let the sample */
/* stop at end (sampled decay.... ) */
/* UltraSetVoiceEnd(voice_num,end_loop); */
UltraVoiceOff(voice_num,FALSE);
break;
case 5: /* Set playback rate */
printf("New Frequency (in hertz) = : ");
scanf("%ld",&frequency);
printf("\n");
UltraSetFrequency(voice_num,frequency);
break;
case 6: /* Set balance */
printf("New Balance = (0-15) : ");
scanf("%d",&val);
printf("\n");
UltraSetBalance(voice_num,val);
break;
case 7: /* Set volume */
printf("New Volume = (0-511) : ");
scanf("%d",&val);
printf("\n");
UltraSetLinearVolume(voice_num,val);
break;
case 8:
printf("Channel to use ? ");
scanf("%d",&voice_num);
break;
case 9:
printf("Voice #%d position (hit a key to stop)\n",voice_num);
while (!kbhit())
{
pos = UltraReadVoice(voice_num);
printf("\r%ld ",pos);
}
getch();
printf("\n\n");
break;
case 10:
printf("Start Volume = (0-511) : ");
scanf("%d",&val);
printf("End Volume = (0-511) : ");
scanf("%d",&temp_val);
printf("Milliseconds to Ramp Volume : ");
scanf("%ld",&pos);
printf("\n");
UltraRampLinearVolume(voice_num,val,temp_val,pos,0x18);
break;
case 11:
count1 = 0;
printf("Time value (1-255) : ");
scanf("%d",&timer1_val);
printf("Press any key to halt\n");
UltraStartTimer(1,timer1_val);
while (!kbhit())
;
UltraStopTimer(1);
printf("Count = %d\n",count1);
break;
case 12:
count2 = 0;
printf("Time value (1-255) : ");
scanf("%d",&timer2_val);
printf("Press any key to halt\n");
UltraStartTimer(2,timer2_val);
while (!kbhit())
;
UltraStopTimer(2);
printf("Count = %d\n",count2);
break;
case 13:
rec_control = 0;
control = 0;
printf("Frequency (in hertz) = : ");
scanf("%ld",&frequency);
UltraSetRecordFrequency(frequency);
UltraSetFrequency(voice_num,frequency);
data_ptr = malloc(REC_SIZE);
UltraMemAlloc((unsigned long)REC_SIZE,&dram_loc);
UltraEnableLineIn();
UltraEnableMicIn();
UltraEnableOutput();
while(TRUE)
{
printf("Hit a key to begin recording ....(ESC to quit)");
while (!kbhit())
;
printf("\n");
if (getch() == 0x1b)
break;
UltraRecordData(data_ptr,rec_control,REC_SIZE,FALSE,FALSE);
while (UltraRecordDmaBusy())
{
val = UltraReadRecordPosition();
printf("%05u\r",val);
}
printf("\n");
printf("Hit a key to begin playback ....(ESC to quit)");
while (!kbhit())
;
printf("\n");
if (getch() == 0x1b)
break;
/* start download with no wait. Then start voice. */
UltraDownload(data_ptr,control,dram_loc,REC_SIZE,TRUE);
UltraStartVoice(voice_num,dram_loc,dram_loc,
dram_loc+REC_SIZE-1,0);
/* If this check is ommitted, it will begin recording */
/* while it is still downloading & playing ... Try it ... */
while (!UltraVoiceStopped(voice_num))
{
pos = UltraReadVoice(voice_num);
printf("%05ld\r",pos-dram_loc);
}
printf("\n");
}
free(data_ptr);
UltraMemFree((unsigned long)REC_SIZE,dram_loc);
UltraDisableLineIn();
UltraDisableMicIn();
break;
default:
break;
}
}
/* Shut sound down & re-init hardware ... */
UltraClose();
}
