home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / UTILITY / SYSTEM / DEVLOD.ZIP / DEVLOD.FIG < prev    next >
Encoding:
Text File  |  1990-12-06  |  26.5 KB  |  839 lines
  1. Figure 1: Basic Structure of DEVLOD
  2.  
  3.  
  4. startup code (C0.ASM)
  5. main (DEVLOD.C)
  6.     Move_Loader
  7.         movup (MOVUP.ASM)
  8.     Load_Drvr
  9.         INT 21h Function 4B03h (Load Overlay)
  10.     Get_List
  11.         INT 21h Function 52h (Get List of Lists)
  12.         based on DOS version number:
  13.             get number of block devices
  14.             get value of LASTDRIVE
  15.             get Current Directory Structure (CDS) base
  16.             get pointer to NUL device
  17.     Init_Drvr
  18.         call DD init routine
  19.             build command packet
  20.             call Strategy
  21.             call Interrupt
  22.     Get_Out
  23.         if block device:
  24.             Put_Blk_Dev
  25.                 for each unit:
  26.                     Next_Drive
  27.                         get next available drive letter
  28.                     INT 21h Function 32h (Get DPB)
  29.                     INT 21h Function 53h (Translate BPB -> DPB)
  30.                     poke CDS
  31.                     link into DPB chain
  32.         Fix_DOS_Chain
  33.             link into dev chain
  34.         release environment space
  35.         INT 21h Function 31h (TSR)
  36.  
  37.  
  38. -----------------------------------------------------------------------------
  39.  
  40. Figure 2: Loading Device Drivers
  41.  
  42.  
  43. C:\UNDOC\KYLE>devlod \dos\smartdrv.sys 256 /a
  44. Microsoft SMARTDrive Disk Cache version 3.03
  45.     Cache size: 256K in Expanded Memory
  46.     Room for 30 tracks of 17 sectors each
  47.     Minimum cache size will be 0K
  48.  
  49. C:\UNDOC\KYLE>devlod \dos\ramdrive.sys
  50. Microsoft RAMDrive version 3.04 virtual disk D:
  51.     Disk size: 64k
  52.     Sector size: 512 bytes
  53.     Allocation unit: 1 sectors
  54.     Directory entries: 64
  55.  
  56. C:\UNDOC\KYLE>devlod \dos\vdisk.sys
  57. VDISK Version 3.2 virtual disk E:
  58.    Buffer size adjusted
  59.    Sector size adjusted
  60.    Directory entries adjusted
  61.    Buffer size:         64 KB
  62.    Sector size:        128
  63.    Directory entries:   64
  64.  
  65. C:\UNDOC\KYLE>devlod \dos\ansi.sys
  66.  
  67. C:\UNDOC\KYLE>mem
  68. Seg     Owner   Size           Env
  69. 09F3    0008    00F4 (  3904)        config [15 2F 4B 67 ]
  70. 0AE8    0AE9    00D3 (  3376)  0BC1  c:\dos33\command.com   [22 23 24 2E ]
  71. 0BBC    0000    0003 (    48)        free 
  72. 0BC0    0AE9    0019 (   400)            
  73. 0BDA    0AE9    0004 (    64)            
  74. 0BDF    3074    000D (   208)            
  75. 0BED    0000    0000 (     0)        free 
  76. 0BEE    0BEF    0367 ( 13936)  0BE0   \msc\bin\smartdrv.sys 256 /a [13 19 ]
  77. 0F56    0F57    1059 ( 66960)  0BE0   \msc\bin\ramdrive.sys  [F1 FA ]
  78. 1FB0    1FB1    104C ( 66752)  0BE0   \dos33\vdisk.sys  
  79. 2FFD    2FFE    0075 (  1872)  0BE0   \dos33\ansi.sys  [1B 29 ]
  80. 3073    3074    1218 ( 74112)  0BE0  C:\UNDOC\KYLE\MEM.EXE   [00 ]
  81. 428C    0000    7573 (481072)        free [30 F8 ]
  82.  
  83. C:\UNDOC\KYLE>dev
  84. NUL     
  85. CON     
  86. Block: 1 unit(s)
  87. Block: 1 unit(s)
  88. SMARTAAR
  89. QEMM386$
  90. EMMXXXX0
  91. CON     
  92. AUX     
  93. PRN     
  94. CLOCK$  
  95. Block: 3 unit(s)
  96. COM1    
  97. LPT1    
  98. LPT2    
  99. LPT3    
  100. COM2    
  101. COM3    
  102. COM4
  103.  
  104. -----------------------------------------------------------------------------
  105.  
  106. Sidebar
  107.  
  108. Some DOS and BIOS Data Structures
  109.  
  110.  
  111. BPB     BIOS uses the BPB (Bios Parameter Block) to learn the format of a
  112.         block device. Normally, the BPB is part of a physical disk's boot
  113.         record, and contains information such as the number of bytes
  114.         in a sector, the number of root directory entries, the number of
  115.         sectors taken by the File Allocation Table (FAT), etc.
  116.  
  117. CDS     The CDS (Current Directory Structure) is an undocumented array of
  118.         structures, sometimes also called the Drive Info Table, which
  119.         maintains the current state of each drive in the system. The array is
  120.         n elements long, where n equals LASTDRIVE.
  121.  
  122. DPB     For every block device (disk drive) in the system, there is a DPB
  123.         (Drive Parameter Block). These 32-byte blocks contain the information
  124.         that DOS uses to convert cluster numbers into Logical Sector Numbers,
  125.         and also associate the device driver for that device with its
  126.         assigned drive letter.
  127.  
  128. LoL     Probably the most commonly used undocumented DOS data structure,
  129.         the List of Lists is the DOS internal variable table, which includes,
  130.         amongst other things, the LASTDRIVE value, the head of the device
  131.         driver chain, and the CDS (Current Directory Structure). A pointer to
  132.         the LoL is returned in ES:BX by undocumented DOS Int 21h Function
  133.         52h.
  134.  
  135. ----------------------------------------------------------------------------
  136.  
  137. Listing 1
  138.  
  139.  
  140. /********************************************************************
  141.  *     DEVLOD.C - Jim Kyle - 08/20/90                               *
  142.  *            Copyright 1990 by Jim Kyle - All Rights Reserved      *
  143.  *     (minor revisions by Andrew Schulman - 9/12/90                *
  144.  *     Dynamic loader for device drivers                            *
  145.  *            Requires Turbo C; see DEVLOD.MAK also for ASM helpers.*
  146.  ********************************************************************/
  147.      
  148. #include <stdio.h>
  149. #include <stdlib.h>
  150. #include <dos.h>
  151.  
  152. typedef unsigned char BYTE;
  153.  
  154. #define GETFLAGS __emit__(0x9F)     /* if any error, quit right now */
  155. #define FIXDS    __emit__(0x16,0x1F)/* PUSH SS, POP DS              */
  156. #define PUSH_BP  __emit__(0x55)
  157. #define POP_BP   __emit__(0x5D)
  158.  
  159. unsigned _stklen = 0x200;
  160. unsigned _heaplen = 0;
  161.  
  162. char FileName[65];  /* filename global buffer                       */
  163. char * dvrarg;      /* points to char after name in cmdline buffer  */
  164. unsigned movsize;   /* number of bytes to be moved up for driver    */
  165. void (far * driver)();  /* used as pointer to call driver code      */
  166. void far * drvptr;  /* holds pointer to device driver               */
  167. void far * nuldrvr; /* additional driver pointers                   */
  168. void far * nxtdrvr;
  169. BYTE far * nblkdrs; /* points to block device count in List of Lists*/
  170. unsigned lastdrive; /* value of LASTDRIVE in List of Lists          */
  171. BYTE far * CDSbase; /* base of Current Dir Structure                */
  172. int CDSsize;        /* size of CDS element                          */
  173. unsigned nulseg;    /* hold parts of ListOfLists pointer            */
  174. unsigned nulofs;
  175. unsigned LoLofs;
  176.  
  177. #pragma pack(1)
  178.  
  179. struct packet{      /* device driver's command packet               */
  180.     BYTE hdrlen;
  181.     BYTE unit;
  182.     BYTE command;       /* 0 to initialize      */
  183.     unsigned status;    /* 0x8000 is error      */
  184.     BYTE reserv[8];
  185.     BYTE nunits;
  186.     unsigned brkofs;    /* break adr on return  */
  187.     unsigned brkseg;    /* break seg on return  */
  188.     unsigned inpofs;    /* SI on input          */
  189.     unsigned inpseg;    /* _psp on input        */
  190.     BYTE NextDrv;       /* next available drive */
  191.   } CmdPkt;
  192.   
  193. typedef struct {    /* Current Directory Structure (CDS)            */
  194.     BYTE path[0x43];
  195.     unsigned flags;
  196.     void far *dpb;
  197.     unsigned start_cluster;
  198.     unsigned long ffff;
  199.     unsigned slash_offset;  /* offset of '\' in current path field  */
  200.     // next for DOS4+ only
  201.     BYTE unknown;
  202.     void far *ifs;
  203.     unsigned unknown2;
  204.     } CDS;
  205.  
  206. extern unsigned _psp;       /* established by startup code in c0    */
  207. extern unsigned _heaptop;   /* established by startup code in c0    */
  208. extern BYTE _osmajor;       /* established by startup code      */
  209. extern BYTE _osminor;       /* established by startup code      */
  210.  
  211. void _exit( int );          /* established by startup code in c0    */
  212. void abort( void );         /* established by startup code in c0    */
  213.  
  214. void movup( char far *, char far *, int ); /* in MOVUP.ASM file     */
  215. void copyptr( void far *src, void far *dst ); /* in MOVUP.ASM file  */
  216.  
  217. void exit(int c)            /* called by startup code's sequence    */
  218. { _exit(c);}
  219.  
  220. int Get_Driver_Name ( void )
  221. { char *nameptr;
  222.   int i, j, cmdlinesz;
  223.  
  224.   nameptr = (char *)0x80;   /* check command line for driver name   */
  225.   cmdlinesz = (unsigned)*nameptr++;
  226.   if (cmdlinesz < 1)        /* if nothing there, return FALSE       */
  227.     return 0;
  228.   for (i=0; i<cmdlinesz && nameptr[i]<'!'; i++) /* skip blanks      */
  229.     ;
  230.   dvrarg = (char *)&nameptr[i]; /* save to put in SI                */
  231.   for ( j=0; i<cmdlinesz && nameptr[i]>' '; i++)    /* copy name    */
  232.     FileName[j++] = nameptr[i];
  233.   FileName[j] = '\0';
  234.  
  235.   return 1;                 /* and return TRUE to keep going        */
  236. }
  237.  
  238. void Put_Msg ( char *msg )
  239. { 
  240. #ifdef INT29
  241.     /* gratuitous use of undocumented DOS */
  242.     while (*msg)
  243.     { _AL = *msg++;             /* MOV AL,*msg  */
  244.       geninterrupt(0x29);       /* INT 29h */
  245.     }
  246. #else
  247.     _AH = 2;    /* doesn't need to be inside loop */
  248.     while (*msg)
  249.     { _DL = *msg++;            
  250.       geninterrupt(0x21);
  251.     }
  252. #endif
  253. }
  254.  
  255. void Err_Halt ( char *msg )     /* print message and abort          */
  256. { Put_Msg ( msg );
  257.   Put_Msg ( "\r\n" );           /* send CR,LF   */
  258.   abort();
  259. }
  260.  
  261. void Move_Loader ( void )       /* vacate lower part of RAM         */
  262. {
  263.     unsigned movsize, destseg;
  264.     movsize = _heaptop - _psp; /* size of loader in paragraphs      */
  265.     destseg = *(unsigned far *)MK_FP( _psp, 2 ); /* end of memory   */
  266.     movup ( MK_FP( _psp, 0 ), MK_FP( destseg - movsize, 0 ),
  267.             movsize << 4);      /* move and fix segregs             */
  268. }
  269.  
  270. void Load_Drvr ( void )         /* load driver file into RAM    */
  271. { unsigned handle;
  272.   struct {
  273.     unsigned LoadSeg;
  274.     unsigned RelocSeg;
  275.   } ExecBlock;
  276.  
  277.   ExecBlock.LoadSeg = _psp + 0x10;
  278.   ExecBlock.RelocSeg = _psp + 0x10;
  279.   _DX = (unsigned)&FileName[0];
  280.   _BX = (unsigned)&ExecBlock;
  281.   _ES = _SS;                    /* es:bx point to ExecBlock     */
  282.   _AX = 0x4B03;                 /* load overlay                 */
  283.   geninterrupt ( 0x21 );        /* DS is okay on this call      */
  284.   GETFLAGS;
  285.   if ( _AH & 1 )
  286.     Err_Halt ( "Unable to load driver file." );
  287. }
  288.  
  289. void Get_List ( void )          /* set up pointers via List     */
  290. { _AH = 0x52;                   /* find DOS List of Lists       */
  291.   geninterrupt ( 0x21 );
  292.   nulseg = _ES;                 /* DOS data segment             */
  293.   LoLofs = _BX;                 /* current drive table offset   */
  294.  
  295.   switch( _osmajor )            /* NUL adr varies with version  */
  296.     {
  297.     case  0:
  298.       Err_Halt ( "Drivers not used in DOS V1." );
  299.     case  2:
  300.       nblkdrs = NULL;
  301.       nulofs = LoLofs + 0x17;
  302.       break;
  303.     case  3:
  304.       if (_osminor == 0)
  305.       {
  306.           nblkdrs = (BYTE far *) MK_FP(nulseg, LoLofs + 0x10);
  307.           lastdrive = *((BYTE far *) MK_FP(nulseg, LoLofs + 0x1b));
  308.           nulofs = LoLofs + 0x28;
  309.       }
  310.       else
  311.       {
  312.           nblkdrs = (BYTE far *) MK_FP(nulseg, LoLofs + 0x20);
  313.           lastdrive = *((BYTE far *) MK_FP(nulseg, LoLofs + 0x21));
  314.           nulofs = LoLofs + 0x22;
  315.       }
  316.       CDSbase = *(BYTE far * far *)MK_FP(nulseg, LoLofs + 0x16);
  317.       CDSsize = 81;
  318.       break;
  319.     case  4:
  320.     case  5:
  321.       nblkdrs = (BYTE far *) MK_FP(nulseg, LoLofs + 0x20);
  322.       lastdrive = *((BYTE far *) MK_FP(nulseg, LoLofs + 0x21));
  323.       nulofs  = LoLofs + 0x22;
  324.       CDSbase = *(BYTE far * far *) MK_FP(nulseg, LoLofs + 0x16);
  325.       CDSsize = 88;
  326.       break;
  327.     case 10:
  328.     case 20:
  329.       Err_Halt ( "OS2 DOS Box not supported." );
  330.     default:
  331.       Err_Halt ( "Unknown version of DOS!");
  332.     }
  333. }
  334.  
  335. void Fix_DOS_Chain ( void )     /* patches driver into DOS chn  */
  336. { unsigned i;
  337.  
  338.   nuldrvr = MK_FP( nulseg, nulofs+0x0A ); /* verify the drvr    */
  339.   drvptr = "NUL     ";
  340.   for ( i=0; i<8; ++i )
  341.     if ( *((BYTE far *)nuldrvr+i) != *((BYTE far *)drvptr+i) )
  342.       Err_Halt ( "Failed to find NUL driver." );
  343.  
  344.   nuldrvr = MK_FP( nulseg, nulofs );    /* point to NUL driver  */
  345.   drvptr  = MK_FP( _psp+0x10, 0 );      /* new driver's address */
  346.  
  347.   copyptr ( nuldrvr, &nxtdrvr );        /* hold old head now    */
  348.   copyptr ( &drvptr, nuldrvr );         /* put new after NUL    */
  349.   copyptr ( &nxtdrvr, drvptr );         /* and old after new    */
  350. }
  351.  
  352. // returns number of next free drive, -1 if none available
  353. int Next_Drive ( void )
  354. {
  355. #ifdef USE_BLKDEV
  356.   /* This incorrectly bashes SUBSTed and network drives */
  357.   return (nblkdrs && (*nblkdrs < lastdrive)) ? *nblkdrs : -1;
  358. #else
  359.   /* The following approach takes account of SUBSTed and
  360.      network-redirector drives */
  361.   CDS far *cds;
  362.   int i;
  363.   /* find first unused entry in CDS structure */
  364.   for (i=0, cds=CDSbase; i<lastdrive; i++, ((BYTE far *)cds)+=CDSsize)
  365.     if (! cds->flags)                /* found a free drive  */
  366.         break;
  367.   return (i == lastdrive) ? -1 : i; 
  368. #endif  
  369. }
  370.  
  371. int Init_Drvr ( void )
  372. { unsigned tmp;
  373. #define INIT 0
  374.   CmdPkt.command = INIT;        /* build command packet         */
  375.   CmdPkt.hdrlen = sizeof (struct packet);
  376.   CmdPkt.unit = 0;
  377.   CmdPkt.inpofs  = (unsigned)dvrarg;    /* points into cmd line */
  378.   CmdPkt.inpseg  = _psp;
  379.   /* can't really check for next drive here, because don't yet know
  380.      if this is a block driver or not */
  381.   CmdPkt.NextDrv = Next_Drive();
  382.   drvptr  = MK_FP( _psp+0x10, 0 );      /* new driver's address */
  383.  
  384.   tmp = *((unsigned far *)drvptr+3);    /* STRATEGY pointer     */
  385.   driver = MK_FP( FP_SEG( drvptr ), tmp );
  386.   _ES = FP_SEG( (void far *)&CmdPkt );
  387.   _BX = FP_OFF( (void far *)&CmdPkt );
  388.   (*driver)();                  /* set up the packet address    */
  389.  
  390.   tmp = *((unsigned far *)drvptr+4);    /* COMMAND pointer      */
  391.   driver = MK_FP( FP_SEG( drvptr ), tmp );
  392.   (*driver)();                  /* do the initialization        */
  393.   
  394.   /* check status code in command packet                        */
  395.   return (! ( CmdPkt.status & 0x8000 ));
  396. }
  397.  
  398. int  Put_Blk_Dev ( void )   /* TRUE if Block Device failed      */
  399. { int newdrv;
  400.   int retval = 1;           /* pre-set for failure              */
  401.   int unit = 0;
  402.   BYTE far *DPBlink;
  403.   CDS far *cds;
  404.   int i;
  405.  
  406.   if ((Next_Drive() == -1) || CmdPkt.nunits == 0)
  407.     return retval;          /* cannot install block driver      */
  408.   if (CmdPkt.brkofs != 0)   /* align to next paragraph          */
  409.   {
  410.     CmdPkt.brkseg += (CmdPkt.brkofs >> 4) + 1;
  411.     CmdPkt.brkofs = 0;
  412.   }
  413.   while( CmdPkt.nunits-- )
  414.   {
  415.     if ((newdrv = Next_Drive()) == -1)
  416.         return 1;
  417.     (*nblkdrs)++;
  418.     _AH = 0x32;             /* get last DPB and set poiner      */
  419.     _DL = newdrv;
  420.     geninterrupt ( 0x21 );
  421.     _AX = _DS;              /* save segment to make the pointer */
  422.     FIXDS;
  423.     DPBlink = MK_FP(_AX, _BX);
  424.     (unsigned) DPBlink += (_osmajor < 4 ? 24 : 25 );
  425.     _SI = *(unsigned far *)MK_FP(CmdPkt.inpseg, CmdPkt.inpofs);
  426.     _ES = CmdPkt.brkseg;
  427.     _DS = CmdPkt.inpseg;
  428.     _AH = 0x53;
  429.     PUSH_BP;
  430.     _BP = 0;
  431.     geninterrupt ( 0x21 );    /* build the DPB for this unit    */
  432.     POP_BP;
  433.     FIXDS;
  434.     *(void far * far *)DPBlink = MK_FP( CmdPkt.brkseg, 0 );
  435.  
  436.     /* set up the Current Directory Structure for this drive */
  437.     cds = (CDS far *) (CDSbase + (newdrv * CDSsize));
  438.     cds->flags = 1 << 14;       /* PHYSICAL DRIVE */
  439.     cds->dpb = MK_FP(CmdPkt.brkseg, 0);
  440.     cds->start_cluster = 0xFFFF;
  441.     cds->ffff = -1L;
  442.     cds->slash_offset = 2;
  443.     if (_osmajor > 3)
  444.       { cds->unknown = 0;
  445.         cds->ifs = (void far *) 0;
  446.         cds->unknown2 = 0;
  447.       }
  448.       
  449.     /* set up pointers for DPB, driver  */
  450.     DPBlink = MK_FP( CmdPkt.brkseg, 0);
  451.     *DPBlink = newdrv;
  452.     *(DPBlink+1) = unit++;
  453.     if (_osmajor > 3)
  454.       DPBlink++;          /* add one if DOS 4                 */
  455.     *(long far *)(DPBlink+0x12) = (long)MK_FP( _psp+0x10, 0 );
  456.     *(long far *)(DPBlink+0x18) = 0xFFFFFFFF;
  457.     CmdPkt.brkseg += 2;       /* Leave two paragraphs for DPB   */
  458.     CmdPkt.inpofs += 2;       /* Point to next BPB pointer      */
  459.   }     /* end of nunits loop   */
  460.   return 0;                 /* all went okay                    */
  461. }
  462.  
  463. void Get_Out ( void )
  464. { unsigned temp;
  465.  
  466.   temp = *((unsigned far *)drvptr+2);   /* attribute word       */
  467.   if ((temp & 0x8000) == 0 )    /* if block device, set up tbls */
  468.     if (Put_Blk_Dev() )
  469.       Err_Halt( "Could not install block device" );
  470.  
  471.   Fix_DOS_Chain ();             /* else patch it into DOS       */
  472.  
  473.   _ES = *((unsigned *)MK_FP( _psp, 0x002C ));
  474.   _AH = 0x49;                   /* release environment space    */
  475.   geninterrupt ( 0x21 );
  476.  
  477.   /* then set up regs for KEEP function, and go resident        */
  478.   temp = (CmdPkt.brkofs + 15);  /* normalize the offset         */
  479.   temp >>= 4;
  480.   temp += CmdPkt.brkseg;        /* add the segment address      */
  481.   temp -= _psp;                 /* convert to paragraph count   */
  482.   _AX = 0x3100;                 /* KEEP function of DOS         */
  483.   _DX = (unsigned)temp;         /* paragraphs to retain         */
  484.   geninterrupt ( 0x21 );        /* won't come back from here!   */
  485. }
  486.  
  487. void main ( void )
  488. { if (!Get_Driver_Name() )
  489.     Err_Halt ( "Device driver name required.");
  490.   Move_Loader ();               /* move code high and jump      */
  491.   Load_Drvr ();                 /* bring driver into freed RAM  */
  492.   Get_List();                   /* get DOS internal variables   */
  493.   if (Init_Drvr ())             /* let driver do its thing      */
  494.       Get_Out();                /* check init status, go TSR    */
  495.   else
  496.       Err_Halt ( "Driver initialization failed." );
  497. }
  498.  
  499. ------------------------------------------------------------------------------
  500.  
  501. Listing 2
  502.  
  503.  
  504.         NAME    movup
  505. ;[]------------------------------------------------------------[]
  506. ;|      MOVUP.ASM -- helper code for DEVLOD.C                   |
  507. ;|      Copyright 1990 by Jim Kyle - All Rights Reserved        |
  508. ;[]------------------------------------------------------------[]
  509.  
  510. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  511. _TEXT   ENDS
  512.  
  513. _DATA   SEGMENT WORD PUBLIC 'DATA'
  514. _DATA   ENDS
  515.  
  516. _BSS    SEGMENT WORD PUBLIC 'BSS'
  517. _BSS    ENDS
  518.  
  519. DGROUP  GROUP   _TEXT, _DATA, _BSS
  520.  
  521. ASSUME  CS:_TEXT, DS:DGROUP
  522.  
  523. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  524.  
  525. ;-----------------------------------------------------------------
  526. ;       movup( src, dst, nbytes )
  527. ;       src and dst are far pointers. area overlap is NOT okay
  528. ;-----------------------------------------------------------------
  529.         PUBLIC  _movup
  530.  
  531. _movup  PROC      NEAR
  532.         push    bp
  533.         mov     bp, sp
  534.         push    si
  535.         push    di
  536.         lds     si,[bp+4]               ; source
  537.         les     di,[bp+8]               ; destination
  538.         mov     bx,es                   ; save dest segment
  539.         mov     cx,[bp+12]              ; byte count
  540.         cld
  541.         rep     movsb                   ; move everything to high ram
  542.         mov     ss,bx                   ; fix stack segment ASAP
  543.         mov     ds,bx                   ; adjust DS too
  544.         pop     di
  545.         pop     si
  546.         mov     sp, bp
  547.         pop     bp
  548.         pop     dx                      ; Get return address
  549.         push    bx                      ; Put segment up first
  550.         push    dx                      ; Now a far address on stack
  551.         retf
  552. _movup  ENDP
  553.  
  554. ;-------------------------------------------------------------------
  555. ;       copyptr( src, dst )
  556. ;       src and dst are far pointers.
  557. ;       moves exactly 4 bytes from src to dst.
  558. ;-------------------------------------------------------------------
  559.         PUBLIC  _copyptr
  560.  
  561. _copyptr        PROC      NEAR
  562.         push    bp
  563.         mov     bp, sp
  564.         push    si
  565.         push    di
  566.         push    ds
  567.         lds     si,[bp+4]               ; source
  568.         les     di,[bp+8]               ; destination
  569.         cld
  570.         movsw
  571.         movsw
  572.         pop     ds
  573.         pop     di
  574.         pop     si
  575.         mov     sp, bp
  576.         pop     bp
  577.         ret
  578. _copyptr        ENDP
  579.  
  580. _TEXT   ENDS
  581.  
  582.         end
  583.  
  584.  
  585.  
  586. ------------------------------------------------------------------------------
  587.  
  588. Listing 3
  589.  
  590.  
  591.         NAME c0
  592. ;[]------------------------------------------------------------[] 
  593. ;|  C0.ASM -- Start Up Code                                     | 
  594. ;| based on Turbo-C startup code, extensively modified          |
  595. ;[]------------------------------------------------------------[]
  596.  
  597. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  598. _TEXT   ENDS
  599.  
  600. _DATA   SEGMENT WORD PUBLIC 'DATA'
  601. _DATA   ENDS
  602.  
  603. _BSS    SEGMENT WORD PUBLIC 'BSS'
  604. _BSS    ENDS
  605.  
  606. DGROUP  GROUP   _TEXT, _DATA, _BSS
  607.  
  608. ;       External References
  609.  
  610. EXTRN   _main : NEAR
  611. EXTRN   _exit : NEAR
  612.  
  613. EXTRN   __stklen : WORD
  614. EXTRN   __heaplen : WORD
  615.  
  616. PSPHigh         equ     00002h
  617. PSPEnv          equ     0002ch
  618.  
  619. MINSTACK        equ     128     ; minimal stack size in words
  620.  
  621. ;       At the start, DS, ES, and SS are all equal to CS
  622.  
  623. ;/*-----------------------------------------------------*/
  624. ;/*     Start Up Code                                   */
  625. ;/*-----------------------------------------------------*/
  626.  
  627. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  628.  
  629. ASSUME  CS:_TEXT, DS:DGROUP
  630.  
  631.         ORG     100h
  632.  
  633. STARTX  PROC    NEAR
  634.  
  635.         mov     dx, cs          ; DX = GROUP Segment address
  636.         mov     DGROUP@, dx
  637.         mov     ah, 30h         ; get DOS version
  638.         int     21h
  639.         mov     bp, ds:[PSPHigh]; BP = Highest Memory Segment Addr
  640.         mov     word ptr __heaptop, bp
  641.         mov     bx, ds:[PSPEnv] ; BX = Environment Segment address
  642.         mov     __version, ax   ; Keep major and minor version number
  643.         mov     __psp, es       ; Keep Program Segment Prefix address
  644.  
  645. ;       Determine the amount of memory that we need to keep
  646.  
  647.         mov     dx, ds          ; DX = GROUP Segment address
  648.         sub     bp, dx          ; BP = remaining size in paragraphs
  649.         mov     di, __stklen    ; DI = Requested stack size
  650. ;
  651. ; Make sure that the requested stack size is at least MINSTACK words.
  652. ;
  653.         cmp     di, 2*MINSTACK  ; requested stack big enough ?
  654.         jae     AskedStackOK    ; yes, use it
  655.         mov     di, 2*MINSTACK  ; no,  use minimal value
  656.         mov     __stklen, di    ; override requested stack size
  657. AskedStackOK:
  658.         add     di, offset DGROUP: edata
  659.         jb      InitFailed      ; DATA segment can NOT be > 64 Kbytes
  660.         add     di, __heaplen
  661.         jb      InitFailed      ; DATA segment can NOT be > 64 Kbytes
  662.         mov     cl, 4
  663.         shr     di, cl          ; $$$ Do not destroy CL $$$
  664.         inc     di              ; DI = DS size in paragraphs
  665.         cmp     bp, di
  666.         jnb     TooMuchRAM      ; Enough to run the program
  667.  
  668. ;       All initialization errors arrive here
  669.  
  670. InitFailed:
  671.         jmp     near ptr _abort
  672.  
  673. ;       Set heap base and pointer
  674.  
  675. TooMuchRAM:
  676.         mov     bx, di          ; BX = total paragraphs in DGROUP
  677.         shl     di, cl          ; $$$ CX is still equal to 4 $$$
  678.         add     bx, dx          ; BX = seg adr past DGROUP
  679.         mov     __heapbase, bx
  680.         mov     __brklvl, bx
  681. ;
  682. ;       Set the program stack down into RAM that will be kept.
  683. ;
  684.         cli
  685.         mov     ss, dx          ; DGROUP
  686.         mov     sp, di          ; top of (reduced) program area
  687.         sti
  688.  
  689.         mov     bx,__heaplen    ; set up heap top pointer
  690.         add     bx,15
  691.         shr     bx,cl           ; length in paragraphs
  692.         add     bx,__heapbase
  693.         mov     __heaptop, bx
  694. ;
  695. ;       Clear uninitialized data area to zeroes
  696. ;
  697.         xor     ax, ax
  698.         mov     es, cs:DGROUP@
  699.         mov     di, offset DGROUP: bdata
  700.         mov     cx, offset DGROUP: edata
  701.         sub     cx, di
  702.         rep     stosb
  703. ;
  704. ;       exit(main());
  705. ;
  706.         call    _main           ; the real C program
  707.         push    ax
  708.         call    _exit           ; part of the C program too
  709.  
  710. ;----------------------------------------------------------------
  711. ;       _exit()
  712. ;       Restore interrupt vector taken during startup.
  713. ;       Exit to DOS.
  714. ;----------------------------------------------------------------
  715.  
  716.         PUBLIC  __exit
  717. __exit  PROC      NEAR
  718.         push    ss
  719.         pop     ds
  720.  
  721. ;       Exit to DOS
  722.  
  723. ExitToDOS:
  724.         mov     bp,sp
  725.         mov     ah,4Ch
  726.         mov     al,[bp+2]
  727.         int     21h                     ; Exit to DOS
  728.  
  729. __exit  ENDP
  730.  
  731. STARTX  ENDP
  732.  
  733. ;[]------------------------------------------------------------[]
  734. ;|      Miscellaneous functions                                 |
  735. ;[]------------------------------------------------------------[]
  736.  
  737. ErrorDisplay    PROC    NEAR
  738.                 mov     ah, 040h
  739.                 mov     bx, 2           ; stderr device
  740.                 int     021h
  741.                 ret
  742. ErrorDisplay    ENDP
  743.  
  744.         PUBLIC  _abort
  745. _abort  PROC      NEAR
  746.                 mov     cx, lgth_abortMSG
  747.                 mov     dx, offset DGROUP: abortMSG
  748. MsgExit3        label   near
  749.                 push    ss
  750.                 pop     ds
  751.                 call    ErrorDisplay
  752. CallExit3       label   near
  753.                 mov     ax, 3
  754.                 push    ax
  755.                 call    __exit          ; _exit(3);
  756. _abort   ENDP
  757.  
  758. ;       The DGROUP@ variable is used to reload DS with DGROUP
  759.  
  760.         PUBLIC  DGROUP@
  761. DGROUP@     dw    ?
  762.  
  763. _TEXT   ENDS
  764.  
  765. ;[]------------------------------------------------------------[]
  766. ;|      Start Up Data Area                                      |
  767. ;[]------------------------------------------------------------[]
  768.  
  769. _DATA   SEGMENT WORD PUBLIC 'DATA'
  770.  
  771. abortMSG        db      'Quitting program...', 13, 10
  772. lgth_abortMSG   equ     $ - abortMSG
  773.  
  774. ;
  775. ;                       Miscellaneous variables
  776. ;
  777.         PUBLIC  __psp
  778.         PUBLIC  __version
  779.         PUBLIC  __osmajor
  780.         PUBLIC  __osminor
  781.  
  782. __psp           dw      0
  783. __version       label   word
  784. __osmajor       db      0
  785. __osminor       db      0
  786.  
  787. ;       Memory management variables
  788.  
  789.         PUBLIC  ___heapbase
  790.         PUBLIC  ___brklvl
  791.         PUBLIC  ___heaptop
  792.         PUBLIC  __heapbase
  793.         PUBLIC  __brklvl
  794.         PUBLIC  __heaptop
  795.  
  796. ___heapbase     dw      DGROUP:edata
  797. ___brklvl       dw      DGROUP:edata
  798. ___heaptop      dw      DGROUP:edata
  799. __heapbase      dw      0
  800. __brklvl        dw      0
  801. __heaptop       dw      0
  802.  
  803. _DATA   ENDS
  804.  
  805. _BSS    SEGMENT WORD PUBLIC 'BSS'
  806.  
  807. bdata   label   byte
  808. edata   label   byte            ; mark top of used area
  809.  
  810. _BSS    ENDS
  811.  
  812.         END     STARTX
  813.  
  814.  
  815. ------------------------------------------------------------------------------
  816.  
  817. Listing 4
  818.  
  819.  
  820. # makefile for DEVLOD.COM - last revised 05/23/90 - jk
  821. # can substitute other assemblers for TASM
  822.  
  823. c0.obj  :       c0.asm
  824.         tasm c0 /t/mx/la;
  825.  
  826. movup.obj:      movup.asm
  827.         tasm movup /t/mx/la;
  828.  
  829. devlod.obj:     devlod.c
  830.         tcc -c -ms devlod
  831.  
  832. devlod.com:     devlod.obj c0.obj movup.obj
  833.         tlink c0 movup devlod /c/m,devlod
  834.         if exist devlod.com del devlod.com
  835.         exe2bin devlod.exe devlod.com
  836.         del devlod.exe
  837.  
  838.  
  839.