Initial Commit

seal-hack/examples/example5.c

@@ -0,0 +1,120 @@
+/* example5.c - update the system using the timer interrupt, please compile
+ *              using WATCOM C/C++32 and assume that the stack segment is
+ *              not pegged to the DGROUP segment:
+ *
+ *   wcl386 -l=dos4g -zu -s -I..\include example5.c ..\lib\dos\audiowcf.lib
+ */
+
+#ifndef __WATCOMC__
+
+#include <stdio.h>
+
+int main(void)
+{
+    printf("This example only works with WATCOM C/C++32 and DOS4GW\n");
+    return 0;
+}
+
+#else
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <audio.h>
+#include <conio.h>
+#include <dos.h>
+
+/* call the timer handler 70 times per second */
+#define TIMER_RATE  (1193180/70)
+
+volatile void (interrupt far *lpfnBIOSTimerHandler)(void) = NULL;
+volatile long dwTimerAccum = 0L;
+
+void SetBorderColor(BYTE nColor)
+{
+    outp(0x3c0, 0x31);
+    outp(0x3c0, nColor);
+}
+
+void interrupt far TimerHandler(void)
+{
+    SetBorderColor(1);
+    AUpdateAudio();
+    SetBorderColor(0);
+    if ((dwTimerAccum += TIMER_RATE) >= 0x10000L) {
+        dwTimerAccum -= 0x10000L;
+        lpfnBIOSTimerHandler();
+    }
+    else {
+        outp(0x20, 0x20);
+    }
+}
+
+VOID InitTimerHandler(VOID)
+{
+    lpfnBIOSTimerHandler = _dos_getvect(0x08);
+    _dos_setvect(0x08, TimerHandler);
+    outp(0x43, 0x34);
+    outp(0x40, LOBYTE(TIMER_RATE));
+    outp(0x40, HIBYTE(TIMER_RATE));
+}
+
+VOID DoneTimerHandler(VOID)
+{
+    outp(0x43, 0x34);
+    outp(0x40, 0x00);
+    outp(0x40, 0x00);
+    _dos_setvect(0x08, lpfnBIOSTimerHandler);
+}
+
+
+int main(void)
+{
+    static AUDIOINFO info;
+    static AUDIOCAPS caps;
+    static LPAUDIOMODULE lpModule;
+
+    /* initialize audio library */
+    AInitialize();
+
+    /* open audio device */
+    info.nDeviceId = AUDIO_DEVICE_MAPPER;
+    info.wFormat = AUDIO_FORMAT_16BITS | AUDIO_FORMAT_STEREO;
+    info.nSampleRate = 44100;
+    AOpenAudio(&info);
+
+    /* show device information */
+    AGetAudioDevCaps(info.nDeviceId, &caps);
+    printf("%s detected. Please type EXIT to return.\n", caps.szProductName);
+
+    /* load module file */
+    ALoadModuleFile("test.s3m", &lpModule, 0);
+
+    /* open voices for module */
+    AOpenVoices(lpModule->nTracks);
+
+    /* play the module file */
+    APlayModule(lpModule);
+
+    /* initialize the timer routines */
+    InitTimerHandler();
+
+    /* invoke the DOS command processor */
+    system(getenv("COMSPEC"));
+
+    /* terminate the timer routines */
+    DoneTimerHandler();
+
+    /* stop playing the module */
+    AStopModule();
+    ACloseVoices();
+
+    /* release the waveform & module */
+    AFreeModuleFile(lpModule);
+
+    /* close audio device */
+    ACloseAudio();
+    return 0;
+}
+
+#endif