Return to dcdwatch.c CVS log

Up to [Synchronet] / sbbs / sbbs2 / dcdwatch

Annotation of sbbs/sbbs2/dcdwatch/dcdwatch.c, revision 1.1

1.1     ! root        1: /* DCDWATCH.C */
        !             2: 
        !             3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
        !             4: 
        !             5: /* Program to execute another program, but terminate if carrier detect is      */
        !             6: /* lost */
        !             7: 
        !             8: /* Compile small memory model */
        !             9: 
        !            10: #include <stdio.h>
        !            11: #include <stdlib.h>
        !            12: #include <process.h>
        !            13: #include <dos.h>
        !            14: #include <io.h>
        !            15: #include <alloc.h>
        !            16: 
        !            17: extern unsigned _heaplen=2048;
        !            18: 
        !            19: #define uint unsigned int
        !            20: 
        !            21: #pragma warn -par
        !            22: 
        !            23: char hungup=0;
        !            24: uint far *msr;
        !            25: 
        !            26: void interrupt (*old_int21)(void);
        !            27: 
        !            28: struct REGPACK r;
        !            29: 
        !            30: void interrupt new_int21(uint bp, uint di, uint si, uint ds, uint es,
        !            31:        uint dx, uint cx, uint bx, uint ax, uint ip, uint cs, uint flags)
        !            32: {
        !            33: 
        !            34: r.r_ax=ax;
        !            35: r.r_bx=bx;
        !            36: r.r_cx=cx;
        !            37: r.r_dx=dx;
        !            38: r.r_bp=bp;
        !            39: r.r_si=si;
        !            40: r.r_di=di;
        !            41: r.r_flags=flags;
        !            42: r.r_ds=ds;
        !            43: r.r_es=es;
        !            44: 
        !            45: intr(0xaa,&r);
        !            46: 
        !            47: ax=r.r_ax;
        !            48: bx=r.r_bx;
        !            49: cx=r.r_cx;
        !            50: dx=r.r_dx;
        !            51: bp=r.r_bp;
        !            52: si=r.r_si;
        !            53: di=r.r_di;
        !            54: flags=r.r_flags;
        !            55: ds=r.r_ds;
        !            56: es=r.r_es;
        !            57: 
        !            58: if(!(*(msr)&0x8000) && !hungup) {
        !            59:     hungup=1;
        !            60:        r.r_ax=0x4c00;
        !            61:        intr(0xaa,&r); }                                         /* so exit */
        !            62: }
        !            63: 
        !            64: #pragma warn +par
        !            65: 
        !            66: 
        !            67: int main(int argc, char **argv)
        !            68: {
        !            69:        char str[256],*arg[30],*comspec;
        !            70:        int i;
        !            71:        FILE *stream;
        !            72: 
        !            73: if(argc<3) {
        !            74:        printf("usage: %%!dcdwatch %%& <program> <arguments>\n");
        !            75:        exit(1) ;}
        !            76: 
        !            77: msr=(uint far *)atol(argv[1]);
        !            78: 
        !            79: if((stream=fopen("INTRSBBS.DAT","r"))!=NULL) {
        !            80:        fgets(str,81,stream);
        !            81:        msr=(uint far *)atol(str);
        !            82:        fclose(stream);
        !            83:        remove("INTRSBBS.DAT"); }
        !            84: 
        !            85: if(msr) {
        !            86:        old_int21=getvect(0x21);
        !            87:        setvect(0xAA,old_int21);
        !            88:        setvect(0x21,new_int21); }
        !            89: 
        !            90: comspec=getenv("COMSPEC");
        !            91: 
        !            92: arg[0]=comspec;
        !            93: arg[1]="/c";
        !            94: for(i=2;i<30;i++)
        !            95:        arg[i]=argv[i];
        !            96: 
        !            97: i=spawnvp(P_WAIT,arg[0],arg);
        !            98: 
        !            99: if(msr)
        !           100:        setvect(0x21,old_int21);
        !           101: return(i);
        !           102: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.