Audio 4.94 - Over 11,000 Files/audio-11000.iso/msdos/sndbords/proaudio/funsrc/funsrc.arj/TMR.C

C/C++ Source or Header | 1993-03-19 | 4KB | 216 lines

#include <stdio.h>

char *syntax= "Syntax: tmr [-bXXX] # set delay  OR  tmr [-bXXX] # on  OR  tmr [-bXXX] # off\n";
char *pcmcom= "Requires that \"pcmfun.com\" be loaded.\n";
char *helpem= "Set or Turn on or off one of the \"Timers\".\n";
char *pcmnot= "error: pcmfun.com is not loaded.\n";
char *copyright= "tmr - v(1.0) - Copyright Media Vision, Inc. 1992\n";
char *programmer= "Bart Crane";

main(int argc, char **argv)
{
    unsigned int boardaddress= 0;

    if (argc < 3)
        {
        fprintf(stderr, syntax);
        fprintf(stderr, pcmcom);
        fprintf(stderr, helpem);
        return(1);
        }

    if (argv[1][0] == '-' && argv[1][1] == 'b')
        {
        char *b= &argv[1][2];

        while (isxdigit(*b))
            {
            boardaddress*= 16;
            if (*b >= '0' && *b <= '9') boardaddress+= *b- '0';
            else
            if (*b >= 'A' && *b <= 'F') boardaddress+= *b- 'A'+ 10;
            else
            if (*b >= 'a' && *b <= 'f') boardaddress+= *b- 'a'+ 10;
            b++;
            }

            {
            int i= 1;

            while (i < argc- 1)
                {
                argv[i]= argv[i+ 1];
                i++;
                }
            argv[i]= NULL;
            argc--;
            }

        boardaddress<<= 4;
        }

    if (!checkforsig(boardaddress))
        {
        fprintf(stderr, pcmnot);
        return(2);
        }

    if (!stricmp(argv[2], "on"))
        {
        int timer= 0;

        if (argc < 3)
            {
            fprintf(stderr, syntax);
            return(1);
            }

        timer= atoi(argv[1])- 1;

        _asm
            {
            mov ax, 4010h                    ; 01 00 0100    = ON TIMER# TIMERCONTROL
            or ah, byte ptr timer[0];
            push si
            mov si, 8017h
            or si, boardaddress
            int 94h
            pop si
            }
        }
    else
    if (!stricmp(argv[2], "off"))
        {
        int timer= 0;

        if (argc < 3)
            {
            fprintf(stderr, syntax);
            return(1);
            }

        timer= atoi(argv[1])- 1;

        _asm
            {
            mov ax, 0010h
            or ah, byte ptr timer[0]    ;    00 00 0100    = OFF TIMER# TIMERCONTROL
            push si
            mov si, 8017h
            or si, boardaddress
            int 94h
            pop si
            }
        }
    else
    if (!stricmp(argv[2], "set"))
        {
        int timer= 0;
        long delay= 0;

        if (argc < 4)
            {
            fprintf(stderr, syntax);
            return(1);
            }

        timer= atoi(argv[1])- 1;
        delay= atol(argv[3]);

        if (argc > 4)
            {
            if (!stricmp(argv[4], "oneshot"))
                delay|= 0x80000000;
            else
                {
                fprintf(stderr, syntax);
                return(1);
                }
            }

        _asm
            {
            mov ax, 8010h                    ; 10 00 0100    = SET TIMER# TIMERCONTROL
            or ah, byte ptr timer[0]
            mov cx, word ptr delay[0]
            mov dx, word ptr delay[2]
            push si
            mov si, 8017h
            or si, boardaddress
            int 94h
            pop si
            }
        }
    else
        {
        fprintf(stderr, syntax);
        return(1);
        }

    return(0);
}

checkforsig(int boardaddress)
{
    int status;
    int int94isthere= 0;

    _asm
        {
        mov al, 94h
        mov ah, 35h                    ; GETDOSVECTOR
        int 21h

        mov ax, es
        or ax, bx
        mov int94isthere, ax

        mov bx, 107h                ; offset f_sig in segment holding int 94h

        mov ax, es:[bx][0]
        xor ax, 4350h                ; 'CP'
        jnz nodriver

        mov ax, es:[bx][2]
        xor ax, 2D4dh                ; '-M'
        jnz nodriver

        mov ax, es:[bx][4]
        xor ax, 4853h                ; 'HS'
        jnz nodriver

        mov ax, es:[bx][6]
        xor ax, 5241h                ; 'RA'
        jnz nodriver

        mov ax, es:[bx][8]
        xor al, 4Bh                    ; 'K'
        jnz nodriver

        cbw                            ; ax= 0

        cmp boardaddress, 0        ; board specified?
        jz nodriver

        cmp int94isthere, 0        ;
        jz nodriver

        push si
        mov si, 8002h
        or si, boardaddress
        int 94h
        pop si
        or ax, ax                    ; ax= 0 if not at address, !0 if is
        mov ax, 0                    ; ax= 0
        jnz nodriver                ; ax= 0 if driver
        dec ax                        ; ax= !0 if nodriver

        nodriver:

        mov status, ax                ; ax= !0 if nodriver, 0 if driver
        }

    return(!status);                // status= 0 if nodriver, !0 if driver
}