home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / dobbs / v16n11 / devlod.asc next >
Encoding:
Text File  |  1991-11-15  |  21.8 KB  |  696 lines
  1. _LOADING DEVICE DRIVERS FROM THE DOS COMMAND LINE_
  2. by Jim Kyle
  3.  
  4. [LISTING ONE]
  5.  
  6. /********************************************************************
  7.  *     DEVLOD.C - Copyright 1990 by Jim Kyle - All Rights Reserved  *
  8.  *     (minor revisions by Andrew Schulman                             *
  9.  *     Dynamic loader for device drivers                            *
  10.  *            Requires Turbo C; see DEVLOD.MAK also for ASM helpers.*
  11.  ********************************************************************/
  12.      
  13. #include <stdio.h>
  14. #include <stdlib.h>
  15. #include <dos.h>
  16.  
  17. typedef unsigned char BYTE;
  18.  
  19. #define GETFLAGS __emit__(0x9F)     /* if any error, quit right now */
  20. #define FIXDS    __emit__(0x16,0x1F)/* PUSH SS, POP DS              */
  21. #define PUSH_BP  __emit__(0x55)
  22. #define POP_BP   __emit__(0x5D)
  23.  
  24. unsigned _stklen = 0x200;
  25. unsigned _heaplen = 0;
  26.  
  27. char FileName[65];  /* filename global buffer                       */
  28. char * dvrarg;      /* points to char after name in cmdline buffer  */
  29. unsigned movsize;   /* number of bytes to be moved up for driver    */
  30. void (far * driver)();  /* used as pointer to call driver code      */
  31. void far * drvptr;  /* holds pointer to device driver               */
  32. void far * nuldrvr; /* additional driver pointers                   */
  33. void far * nxtdrvr;
  34. BYTE far * nblkdrs; /* points to block device count in List of Lists*/
  35. unsigned lastdrive; /* value of LASTDRIVE in List of Lists          */
  36. BYTE far * CDSbase; /* base of Current Dir Structure                */
  37. int CDSsize;        /* size of CDS element                          */
  38. unsigned nulseg;    /* hold parts of ListOfLists pointer            */
  39. unsigned nulofs;
  40. unsigned LoLofs;
  41.  
  42. #pragma pack(1)
  43.  
  44. struct packet{      /* device driver's command packet               */
  45.     BYTE hdrlen;
  46.     BYTE unit;
  47.     BYTE command;       /* 0 to initialize      */
  48.     unsigned status;    /* 0x8000 is error      */
  49.     BYTE reserv[8];
  50.     BYTE nunits;
  51.     unsigned brkofs;    /* break adr on return  */
  52.     unsigned brkseg;    /* break seg on return  */
  53.     unsigned inpofs;    /* SI on input          */
  54.     unsigned inpseg;    /* _psp on input        */
  55.     BYTE NextDrv;       /* next available drive */
  56.   } CmdPkt;
  57.   
  58. typedef struct {    /* Current Directory Structure (CDS)            */
  59.     BYTE path[0x43];
  60.     unsigned flags;
  61.     void far *dpb;
  62.     unsigned start_cluster;
  63.     unsigned long ffff;
  64.     unsigned slash_offset;  /* offset of '\' in current path field  */
  65.     // next for DOS4+ only
  66.     BYTE unknown;
  67.     void far *ifs;
  68.     unsigned unknown2;
  69.     } CDS;
  70.  
  71. extern unsigned _psp;       /* established by startup code in c0    */
  72. extern unsigned _heaptop;   /* established by startup code in c0    */
  73. extern BYTE _osmajor;       /* established by startup code      */
  74. extern BYTE _osminor;       /* established by startup code      */
  75.  
  76. void _exit( int );          /* established by startup code in c0    */
  77. void abort( void );         /* established by startup code in c0    */
  78.  
  79. void movup( char far *, char far *, int ); /* in MOVUP.ASM file     */
  80. void copyptr( void far *src, void far *dst ); /* in MOVUP.ASM file  */
  81.  
  82. void exit(int c)            /* called by startup code's sequence    */
  83. { _exit(c);}
  84.  
  85. int Get_Driver_Name ( void )
  86. { char *nameptr;
  87.   int i, j, cmdlinesz;
  88.  
  89.   nameptr = (char *)0x80;   /* check command line for driver name   */
  90.   cmdlinesz = (unsigned)*nameptr++;
  91.   if (cmdlinesz < 1)        /* if nothing there, return FALSE       */
  92.     return 0;
  93.   for (i=0; i<cmdlinesz && nameptr[i]<'!'; i++) /* skip blanks      */
  94.     ;
  95.   dvrarg = (char *)&nameptr[i]; /* save to put in SI                */
  96.   for ( j=0; i<cmdlinesz && nameptr[i]>' '; i++)    /* copy name    */
  97.     FileName[j++] = nameptr[i];
  98.   FileName[j] = '\0';
  99.  
  100.   return 1;                 /* and return TRUE to keep going        */
  101. }
  102.  
  103. void Put_Msg ( char *msg )  /* replaces printf()                    */
  104. { 
  105. #ifdef INT29
  106.     /* gratuitous use of undocumented DOS */
  107.     while (*msg)
  108.     { _AL = *msg++;             /* MOV AL,*msg  */
  109.       geninterrupt(0x29);       /* INT 29h */
  110.     }
  111. #else
  112.     _AH = 2;    /* doesn't need to be inside loop */
  113.     while (*msg)
  114.     { _DL = *msg++;            
  115.       geninterrupt(0x21);
  116.     }
  117. #endif
  118. }
  119.  
  120. void Err_Halt ( char *msg )     /* print message and abort          */
  121. { Put_Msg ( msg );
  122.   Put_Msg ( "\r\n" );           /* send CR,LF   */
  123.   abort();
  124. }
  125.  
  126. void Move_Loader ( void )       /* vacate lower part of RAM         */
  127. {
  128.     unsigned movsize, destseg;
  129.     movsize = _heaptop - _psp; /* size of loader in paragraphs      */
  130.     destseg = *(unsigned far *)MK_FP( _psp, 2 ); /* end of memory   */
  131.     movup ( MK_FP( _psp, 0 ), MK_FP( destseg - movsize, 0 ),
  132.             movsize << 4);      /* move and fix segregs             */
  133. }
  134.  
  135. void Load_Drvr ( void )         /* load driver file into RAM    */
  136. { unsigned handle;
  137.   struct {
  138.     unsigned LoadSeg;
  139.     unsigned RelocSeg;
  140.   } ExecBlock;
  141.  
  142.   ExecBlock.LoadSeg = _psp + 0x10;
  143.   ExecBlock.RelocSeg = _psp + 0x10;
  144.   _DX = (unsigned)&FileName[0];
  145.   _BX = (unsigned)&ExecBlock;
  146.   _ES = _SS;                    /* es:bx point to ExecBlock     */
  147.   _AX = 0x4B03;                 /* load overlay                 */
  148.   geninterrupt ( 0x21 );        /* DS is okay on this call      */
  149.   GETFLAGS;
  150.   if ( _AH & 1 )
  151.     Err_Halt ( "Unable to load driver file." );
  152. }
  153.  
  154. void Get_List ( void )          /* set up pointers via List     */
  155. { _AH = 0x52;                   /* find DOS List of Lists       */
  156.   geninterrupt ( 0x21 );
  157.   nulseg = _ES;                 /* DOS data segment             */
  158.   LoLofs = _BX;                 /* current drive table offset   */
  159.  
  160.   switch( _osmajor )            /* NUL adr varies with version  */
  161.     {
  162.     case  0:
  163.       Err_Halt ( "Drivers not used in DOS V1." );
  164.     case  2:
  165.       nblkdrs = NULL;
  166.       nulofs = LoLofs + 0x17;
  167.       break;
  168.     case  3:
  169.       if (_osminor == 0)
  170.       {
  171.           nblkdrs = (BYTE far *) MK_FP(nulseg, LoLofs + 0x10);
  172.           lastdrive = *((BYTE far *) MK_FP(nulseg, LoLofs + 0x1b));
  173.           nulofs = LoLofs + 0x28;
  174.       }
  175.       else
  176.       {
  177.           nblkdrs = (BYTE far *) MK_FP(nulseg, LoLofs + 0x20);
  178.           lastdrive = *((BYTE far *) MK_FP(nulseg, LoLofs + 0x21));
  179.           nulofs = LoLofs + 0x22;
  180.       }
  181.       CDSbase = *(BYTE far * far *)MK_FP(nulseg, LoLofs + 0x16);
  182.       CDSsize = 81;
  183.       break;
  184.     case  4:
  185.     case  5:
  186.       nblkdrs = (BYTE far *) MK_FP(nulseg, LoLofs + 0x20);
  187.       lastdrive = *((BYTE far *) MK_FP(nulseg, LoLofs + 0x21));
  188.       nulofs  = LoLofs + 0x22;
  189.       CDSbase = *(BYTE far * far *) MK_FP(nulseg, LoLofs + 0x16);
  190.       CDSsize = 88;
  191.       break;
  192.     case 10:
  193.     case 20:
  194.       Err_Halt ( "OS2 DOS Box not supported." );
  195.     default:
  196.       Err_Halt ( "Unknown version of DOS!");
  197.     }
  198. }
  199.  
  200. void Fix_DOS_Chain ( void )     /* patches driver into DOS chn  */
  201. { unsigned i;
  202.  
  203.   nuldrvr = MK_FP( nulseg, nulofs+0x0A ); /* verify the drvr    */
  204.   drvptr = "NUL     ";
  205.   for ( i=0; i<8; ++i )
  206.     if ( *((BYTE far *)nuldrvr+i) != *((BYTE far *)drvptr+i) )
  207.       Err_Halt ( "Failed to find NUL driver." );
  208.  
  209.   nuldrvr = MK_FP( nulseg, nulofs );    /* point to NUL driver  */
  210.   drvptr  = MK_FP( _psp+0x10, 0 );      /* new driver's address */
  211.  
  212.   copyptr ( nuldrvr, &nxtdrvr );        /* hold old head now    */
  213.   copyptr ( &drvptr, nuldrvr );         /* put new after NUL    */
  214.   copyptr ( &nxtdrvr, drvptr );         /* and old after new    */
  215. }
  216.  
  217. // returns number of next free drive, -1 if none available
  218. int Next_Drive ( void )
  219. {
  220. #ifdef USE_BLKDEV
  221.   return (nblkdrs && (*nblkdrs < lastdrive)) ? *nblkdrs : -1;
  222. #else
  223.   /* The following approach takes account of SUBSTed and
  224.      network-redirector drives */
  225.   CDS far *cds;
  226.   int i;
  227.   /* find first unused entry in CDS structure */
  228.   for (i=0, cds=CDSbase; i<lastdrive; i++, ((BYTE far *)cds)+=CDSsize)
  229.     if (! cds->flags)                /* found a free drive  */
  230.         break;
  231.   return (i == lastdrive) ? -1 : i; 
  232. #endif  
  233. }
  234.  
  235. int Init_Drvr ( void )
  236. { unsigned tmp;
  237. #define INIT 0
  238.   CmdPkt.command = INIT;        /* build command packet         */
  239.   CmdPkt.hdrlen = sizeof (struct packet);
  240.   CmdPkt.unit = 0;
  241.   CmdPkt.inpofs  = (unsigned)dvrarg;    /* points into cmd line */
  242.   CmdPkt.inpseg  = _psp;
  243.   /* can't really check for next drive here, because don't yet know
  244.      if this is a block driver or not */
  245.   CmdPkt.NextDrv = Next_Drive();
  246.   drvptr  = MK_FP( _psp+0x10, 0 );      /* new driver's address */
  247.  
  248.   tmp = *((unsigned far *)drvptr+3);    /* STRATEGY pointer     */
  249.   driver = MK_FP( FP_SEG( drvptr ), tmp );
  250.   _ES = FP_SEG( (void far *)&CmdPkt );
  251.   _BX = FP_OFF( (void far *)&CmdPkt );
  252.   (*driver)();                  /* set up the packet address    */
  253.  
  254.   tmp = *((unsigned far *)drvptr+4);    /* COMMAND pointer      */
  255.   driver = MK_FP( FP_SEG( drvptr ), tmp );
  256.   (*driver)();                  /* do the initialization        */
  257.   
  258.   /* check status code in command packet                        */
  259.   return (! ( CmdPkt.status & 0x8000 ));
  260. }
  261.  
  262. int  Put_Blk_Dev ( void )   /* TRUE if Block Device failed      */
  263. { int newdrv;
  264.   int retval = 1;           /* pre-set for failure              */
  265.   int unit = 0;
  266.   BYTE far *DPBlink;
  267.   CDS far *cds;
  268.   int i;
  269.  
  270.   if ((Next_Drive() == -1) || CmdPkt.nunits == 0)
  271.     return retval;          /* cannot install block driver      */
  272.   if (CmdPkt.brkofs != 0)   /* align to next paragraph          */
  273.   {
  274.     CmdPkt.brkseg += (CmdPkt.brkofs >> 4) + 1;
  275.     CmdPkt.brkofs = 0;
  276.   }
  277.   while( CmdPkt.nunits-- )
  278.   {
  279.     if ((newdrv = Next_Drive()) == -1)
  280.         return 1;
  281.     (*nblkdrs)++;
  282.     _AH = 0x32;             /* get last DPB and set poiner      */
  283.     _DL = newdrv;
  284.     geninterrupt ( 0x21 );
  285.     _AX = _DS;              /* save segment to make the pointer */
  286.     FIXDS;
  287.     DPBlink = MK_FP(_AX, _BX);
  288.     (unsigned) DPBlink += (_osmajor < 4 ? 24 : 25 );
  289.     _SI = *(unsigned far *)MK_FP(CmdPkt.inpseg, CmdPkt.inpofs);
  290.     _ES = CmdPkt.brkseg;
  291.     _DS = CmdPkt.inpseg;
  292.     _AH = 0x53;
  293.     PUSH_BP;
  294.     _BP = 0;
  295.     geninterrupt ( 0x21 );    /* build the DPB for this unit    */
  296.     POP_BP;
  297.     FIXDS;
  298.     *(void far * far *)DPBlink = MK_FP( CmdPkt.brkseg, 0 );
  299.  
  300.     /* set up the Current Directory Structure for this drive */
  301.     cds = (CDS far *) (CDSbase + (newdrv * CDSsize));
  302.     cds->flags = 1 << 14;       /* PHYSICAL DRIVE */
  303.     cds->dpb = MK_FP(CmdPkt.brkseg, 0);
  304.     cds->start_cluster = 0xFFFF;
  305.     cds->ffff = -1L;
  306.     cds->slash_offset = 2;
  307.     if (_osmajor > 3)
  308.       { cds->unknown = 0;
  309.         cds->ifs = (void far *) 0;
  310.         cds->unknown2 = 0;
  311.       }
  312.       
  313.     /* set up pointers for DPB, driver  */
  314.     DPBlink = MK_FP( CmdPkt.brkseg, 0);
  315.     *DPBlink = newdrv;
  316.     *(DPBlink+1) = unit++;
  317.     if (_osmajor > 3)
  318.       DPBlink++;          /* add one if DOS 4                 */
  319.     *(long far *)(DPBlink+0x12) = (long)MK_FP( _psp+0x10, 0 );
  320.     *(long far *)(DPBlink+0x18) = 0xFFFFFFFF;
  321.     CmdPkt.brkseg += 2;       /* Leave two paragraphs for DPB   */
  322.     CmdPkt.inpofs += 2;       /* Point to next BPB pointer      */
  323.   }     /* end of nunits loop   */
  324.   return 0;                 /* all went okay                    */
  325. }
  326.  
  327. void Get_Out ( void )
  328. { unsigned temp;
  329.  
  330.   temp = *((unsigned far *)drvptr+2);   /* attribute word       */
  331.   if ((temp & 0x8000) == 0 )    /* if block device, set up tbls */
  332.     if (Put_Blk_Dev() )
  333.       Err_Halt( "Could not install block device" );
  334.  
  335.   Fix_DOS_Chain ();             /* else patch it into DOS       */
  336.  
  337.   _ES = *((unsigned *)MK_FP( _psp, 0x002C ));
  338.   _AH = 0x49;                   /* release environment space    */
  339.   geninterrupt ( 0x21 );
  340.  
  341.   /* then set up regs for KEEP function, and go resident        */
  342.   temp = (CmdPkt.brkofs + 15);  /* normalize the offset         */
  343.   temp >>= 4;
  344.   temp += CmdPkt.brkseg;        /* add the segment address      */
  345.   temp -= _psp;                 /* convert to paragraph count   */
  346.   _AX = 0x3100;                 /* KEEP function of DOS         */
  347.   _DX = (unsigned)temp;         /* paragraphs to retain         */
  348.   geninterrupt ( 0x21 );        /* won't come back from here!   */
  349. }
  350.  
  351. void main ( void )
  352. { if (!Get_Driver_Name() )
  353.     Err_Halt ( "Device driver name required.");
  354.   Move_Loader ();               /* move code high and jump      */
  355.   Load_Drvr ();                 /* bring driver into freed RAM  */
  356.   Get_List();                   /* get DOS internal variables   */
  357.   if (Init_Drvr ())             /* let driver do its thing      */
  358.       Get_Out();                /* check init status, go TSR    */
  359.   else
  360.       Err_Halt ( "Driver initialization failed." );
  361. }
  362.  
  363.  
  364. [LISTING TWO]
  365.  
  366.         NAME    movup
  367. ;[]------------------------------------------------------------[]
  368. ;|      MOVUP.ASM -- helper code for DEVLOD.C                   |
  369. ;|      Copyright 1990 by Jim Kyle - All Rights Reserved        |
  370. ;[]------------------------------------------------------------[]
  371.  
  372. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  373. _TEXT   ENDS
  374.  
  375. _DATA   SEGMENT WORD PUBLIC 'DATA'
  376. _DATA   ENDS
  377.  
  378. _BSS    SEGMENT WORD PUBLIC 'BSS'
  379. _BSS    ENDS
  380.  
  381. DGROUP  GROUP   _TEXT, _DATA, _BSS
  382.  
  383. ASSUME  CS:_TEXT, DS:DGROUP
  384.  
  385. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  386.  
  387. ;-----------------------------------------------------------------
  388. ;       movup( src, dst, nbytes )
  389. ;       src and dst are far pointers. area overlap is NOT okay
  390. ;-----------------------------------------------------------------
  391.         PUBLIC  _movup
  392.  
  393. _movup  PROC      NEAR
  394.         push    bp
  395.         mov     bp, sp
  396.         push    si
  397.         push    di
  398.         lds     si,[bp+4]               ; source
  399.         les     di,[bp+8]               ; destination
  400.         mov     bx,es                   ; save dest segment
  401.         mov     cx,[bp+12]              ; byte count
  402.         cld
  403.         rep     movsb                   ; move everything to high ram
  404.         mov     ss,bx                   ; fix stack segment ASAP
  405.         mov     ds,bx                   ; adjust DS too
  406.         pop     di
  407.         pop     si
  408.         mov     sp, bp
  409.         pop     bp
  410.         pop     dx                      ; Get return address
  411.         push    bx                      ; Put segment up first
  412.         push    dx                      ; Now a far address on stack
  413.         retf
  414. _movup  ENDP
  415.  
  416. ;-------------------------------------------------------------------
  417. ;       copyptr( src, dst )
  418. ;       src and dst are far pointers.
  419. ;       moves exactly 4 bytes from src to dst.
  420. ;-------------------------------------------------------------------
  421.         PUBLIC  _copyptr
  422.  
  423. _copyptr        PROC      NEAR
  424.         push    bp
  425.         mov     bp, sp
  426.         push    si
  427.         push    di
  428.         push    ds
  429.         lds     si,[bp+4]               ; source
  430.         les     di,[bp+8]               ; destination
  431.         cld
  432.         movsw
  433.         movsw
  434.         pop     ds
  435.         pop     di
  436.         pop     si
  437.         mov     sp, bp
  438.         pop     bp
  439.         ret
  440. _copyptr        ENDP
  441.  
  442. _TEXT   ENDS
  443.  
  444.         end
  445.  
  446.  
  447. [LISTING THREE]
  448.  
  449.  
  450.  
  451.         NAME    c0
  452. ;[]------------------------------------------------------------[]
  453. ;|      C0.ASM -- Start Up Code                                 |
  454. ;|        based on Turbo-C startup code, extensively modified   |
  455. ;[]------------------------------------------------------------[]
  456.  
  457. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  458. _TEXT   ENDS
  459.  
  460. _DATA   SEGMENT WORD PUBLIC 'DATA'
  461. _DATA   ENDS
  462.  
  463. _BSS    SEGMENT WORD PUBLIC 'BSS'
  464. _BSS    ENDS
  465.  
  466. DGROUP  GROUP   _TEXT, _DATA, _BSS
  467.  
  468. ;       External References
  469.  
  470. EXTRN   _main : NEAR
  471. EXTRN   _exit : NEAR
  472.  
  473. EXTRN   __stklen : WORD
  474. EXTRN   __heaplen : WORD
  475.  
  476. PSPHigh         equ     00002h
  477. PSPEnv          equ     0002ch
  478.  
  479. MINSTACK        equ     128     ; minimal stack size in words
  480.  
  481. ;       At the start, DS, ES, and SS are all equal to CS
  482.  
  483. ;/*-----------------------------------------------------*/
  484. ;/*     Start Up Code                                   */
  485. ;/*-----------------------------------------------------*/
  486.  
  487. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  488.  
  489. ASSUME  CS:_TEXT, DS:DGROUP
  490.  
  491.         ORG     100h
  492.  
  493. STARTX  PROC    NEAR
  494.  
  495.         mov     dx, cs          ; DX = GROUP Segment address
  496.         mov     DGROUP@, dx
  497.         mov     ah, 30h         ; get DOS version
  498.         int     21h
  499.         mov     bp, ds:[PSPHigh]; BP = Highest Memory Segment Addr
  500.         mov     word ptr __heaptop, bp
  501.         mov     bx, ds:[PSPEnv] ; BX = Environment Segment address
  502.         mov     __version, ax   ; Keep major and minor version number
  503.         mov     __psp, es       ; Keep Program Segment Prefix address
  504.  
  505. ;       Determine the amount of memory that we need to keep
  506.  
  507.         mov     dx, ds          ; DX = GROUP Segment address
  508.         sub     bp, dx          ; BP = remaining size in paragraphs
  509.         mov     di, __stklen    ; DI = Requested stack size
  510. ;
  511. ; Make sure that the requested stack size is at least MINSTACK words.
  512. ;
  513.         cmp     di, 2*MINSTACK  ; requested stack big enough ?
  514.         jae     AskedStackOK    ; yes, use it
  515.         mov     di, 2*MINSTACK  ; no,  use minimal value
  516.         mov     __stklen, di    ; override requested stack size
  517. AskedStackOK:
  518.         add     di, offset DGROUP: edata
  519.         jb      InitFailed      ; DATA segment can NOT be > 64 Kbytes
  520.         add     di, __heaplen
  521.         jb      InitFailed      ; DATA segment can NOT be > 64 Kbytes
  522.         mov     cl, 4
  523.         shr     di, cl          ; $$$ Do not destroy CL $$$
  524.         inc     di              ; DI = DS size in paragraphs
  525.         cmp     bp, di
  526.         jnb     TooMuchRAM      ; Enough to run the program
  527.  
  528. ;       All initialization errors arrive here
  529.  
  530. InitFailed:
  531.         jmp     near ptr _abort
  532.  
  533. ;       Set heap base and pointer
  534.  
  535. TooMuchRAM:
  536.         mov     bx, di          ; BX = total paragraphs in DGROUP
  537.         shl     di, cl          ; $$$ CX is still equal to 4 $$$
  538.         add     bx, dx          ; BX = seg adr past DGROUP
  539.         mov     __heapbase, bx
  540.         mov     __brklvl, bx
  541. ;
  542. ;       Set the program stack down into RAM that will be kept.
  543. ;
  544.         cli
  545.         mov     ss, dx          ; DGROUP
  546.         mov     sp, di          ; top of (reduced) program area
  547.         sti
  548.  
  549.         mov     bx,__heaplen    ; set up heap top pointer
  550.         add     bx,15
  551.         shr     bx,cl           ; length in paragraphs
  552.         add     bx,__heapbase
  553.         mov     __heaptop, bx
  554. ;
  555. ;       Clear uninitialized data area to zeroes
  556. ;
  557.         xor     ax, ax
  558.         mov     es, cs:DGROUP@
  559.         mov     di, offset DGROUP: bdata
  560.         mov     cx, offset DGROUP: edata
  561.         sub     cx, di
  562.         rep     stosb
  563. ;
  564. ;       exit(main());
  565. ;
  566.         call    _main           ; the real C program
  567.         push    ax
  568.         call    _exit           ; part of the C program too
  569.  
  570. ;----------------------------------------------------------------
  571. ;       _exit()
  572. ;       Restore interrupt vector taken during startup.
  573. ;       Exit to DOS.
  574. ;----------------------------------------------------------------
  575.  
  576.         PUBLIC  __exit
  577. __exit  PROC      NEAR
  578.         push    ss
  579.         pop     ds
  580.  
  581. ;       Exit to DOS
  582.  
  583. ExitToDOS:
  584.         mov     bp,sp
  585.         mov     ah,4Ch
  586.         mov     al,[bp+2]
  587.         int     21h                     ; Exit to DOS
  588.  
  589. __exit  ENDP
  590.  
  591. STARTX  ENDP
  592.  
  593. ;[]------------------------------------------------------------[]
  594. ;|      Miscellaneous functions                                 |
  595. ;[]------------------------------------------------------------[]
  596.  
  597. ErrorDisplay    PROC    NEAR
  598.                 mov     ah, 040h
  599.                 mov     bx, 2           ; stderr device
  600.                 int     021h
  601.                 ret
  602. ErrorDisplay    ENDP
  603.  
  604.         PUBLIC  _abort
  605. _abort  PROC      NEAR
  606.                 mov     cx, lgth_abortMSG
  607.                 mov     dx, offset DGROUP: abortMSG
  608. MsgExit3        label   near
  609.                 push    ss
  610.                 pop     ds
  611.                 call    ErrorDisplay
  612. CallExit3       label   near
  613.                 mov     ax, 3
  614.                 push    ax
  615.                 call    __exit          ; _exit(3);
  616. _abort   ENDP
  617.  
  618. ;       The DGROUP@ variable is used to reload DS with DGROUP
  619.  
  620.         PUBLIC  DGROUP@
  621. DGROUP@     dw    ?
  622.  
  623. _TEXT   ENDS
  624.  
  625. ;[]------------------------------------------------------------[]
  626. ;|      Start Up Data Area                                      |
  627. ;[]------------------------------------------------------------[]
  628.  
  629. _DATA   SEGMENT WORD PUBLIC 'DATA'
  630.  
  631. abortMSG        db      'Quitting program...', 13, 10
  632. lgth_abortMSG   equ     $ - abortMSG
  633.  
  634. ;
  635. ;                       Miscellaneous variables
  636. ;
  637.         PUBLIC  __psp
  638.         PUBLIC  __version
  639.         PUBLIC  __osmajor
  640.         PUBLIC  __osminor
  641.  
  642. __psp           dw      0
  643. __version       label   word
  644. __osmajor       db      0
  645. __osminor       db      0
  646.  
  647. ;       Memory management variables
  648.  
  649.         PUBLIC  ___heapbase
  650.         PUBLIC  ___brklvl
  651.         PUBLIC  ___heaptop
  652.         PUBLIC  __heapbase
  653.         PUBLIC  __brklvl
  654.         PUBLIC  __heaptop
  655.  
  656. ___heapbase     dw      DGROUP:edata
  657. ___brklvl       dw      DGROUP:edata
  658. ___heaptop      dw      DGROUP:edata
  659. __heapbase      dw      0
  660. __brklvl        dw      0
  661. __heaptop       dw      0
  662.  
  663. _DATA   ENDS
  664.  
  665. _BSS    SEGMENT WORD PUBLIC 'BSS'
  666.  
  667. bdata   label   byte
  668. edata   label   byte            ; mark top of used area
  669.  
  670. _BSS    ENDS
  671.  
  672.         END     STARTX
  673.  
  674.  
  675.  
  676. [LISTING FOUR]
  677.  
  678. # makefile for DEVLOD.COM 
  679. # can substitute other assemblers for TASM
  680.  
  681. c0.obj  :       c0.asm
  682.         tasm c0 /t/mx/la;
  683.  
  684. movup.obj:      movup.asm
  685.         tasm movup /t/mx/la;
  686.  
  687. devlod.obj:     devlod.c
  688.         tcc -c -ms devlod
  689.  
  690. devlod.com:     devlod.obj c0.obj movup.obj
  691.         tlink c0 movup devlod /c/m,devlod
  692.         if exist devlod.com del devlod.com
  693.         exe2bin devlod.exe devlod.com
  694.         del devlod.exe
  695.  
  696.