Subversion Repositories SvarDOS

Rev

Rev 358 | Rev 366 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 358 Rev 359
Line 91... Line 91...
91 
  mcb = MK_FP(rmodseg - 1, 0);
 91 
  mcb = MK_FP(rmodseg - 1, 0);
92 
  owner = (void far *)(mcb + 1);
 92 
  owner = (void far *)(mcb + 1);
93 
  *owner = rmodseg;
 93 
  *owner = rmodseg;
94 
  _fmemcpy(mcb + 8, "SVARCOM", 8);
 94 
  _fmemcpy(mcb + 8, "SVARCOM", 8);
95 
 
 95 
 
96 
  /* mark env memory as "self owned" (only if allocated by me) */
 96 
  /* mark env memory as "self owned" */
97 
  if (envsize != 0) {
 - 
 
98 
    printf("envseg allocated at %04X:0000 with %u paragraphs\r\n", envseg, envsize);
 - 
 
99 
    mcb = MK_FP(envseg - 1, 0);
 97 
  mcb = MK_FP(envseg - 1, 0);
100 
    owner = (void far *)(mcb + 1);
 98 
  owner = (void far *)(mcb + 1);
101 
    *owner = rmodseg;
 99 
  *owner = rmodseg;
102 
    _fmemcpy(mcb + 8, "SVARENV", 8);
 100 
  _fmemcpy(mcb + 8, "SVARENV", 8);
103 
  }
 - 
 
104 
 
 101 
 
105 
  /* write env segment to rmod buffer */
 102 
  /* write env segment to rmod buffer */
106 
  owner = MK_FP(rmodseg, RMOD_OFFSET_ENVSEG);
 103 
  owner = MK_FP(rmodseg, RMOD_OFFSET_ENVSEG);
107 
  *owner = envseg;
 104 
  *owner = envseg;
108 
 
 105