zysld()
{
#if EXTFUN
void *fd; // keep stack word-aligned
void *result = 0;
fd = openloadfile(pTSCBLK->str);
if ( fd != -1 ) { // If file opened OK
result = loadef(fd, pTSCBLK->str); // Invoke loader
closeloadfile(fd);
switch ((word)result) {
case (word)0:
return EXIT_2; // I/O error
case (word)-1:
return EXIT_1; // doesn't exist
case (word)-2:
return EXIT_3; // insufficient memory
default:
SET_XR(result);
return NORMAL_RETURN; // Success, return pointer to stuff in EFBLK
}
}
else
return EXIT_1;
}
zysld()
{
#if EXTFUN
word fd; /* keep stack word-aligned */
void *result = 0;
fd = openloadfile(pTSCBLK->str);
if ( fd != -1 ) { /* If file opened OK */
result = loadef(fd, pTSCBLK->str); /* Invoke loader */
closeloadfile(fd);
switch ((word)result) {
case (word)0:
return EXIT_2; /* I/O error */
case (word)-1:
return EXIT_1; /* doesn't exist */
case (word)-2:
return EXIT_3; /* insufficient memory */
default:
SET_XR(result);
return NORMAL_RETURN; /* Success, return pointer to stuff in EFBLK */
}
}
else
return EXIT_1;
}
zysid()
{
register char *cp;
SET_XR( pID1 );
gettype( pID2BLK, ID2BLK_LENGTH );
cp = pID2BLK->str + pID2BLK->len;
*cp++ = ' ';
*cp++ = ' ';
pID2BLK->len += 2 + storedate(cp, ID2BLK_LENGTH - pID2BLK->len);
SET_XL( pID2BLK );
return NORMAL_RETURN;
}
zysid()
{
time_t now;
register char *cp;
char * s;
int i;
SET_XR( pid1blk );
now = time(NULL);
gettype( pid2blk, id2blk_length );
cp = pid2blk->str + pid2blk->len;
*cp++ = ' ';
*cp++ = ' ';
s = ctime(&now);
for (i=0;i<strlen(s);i++) *cp++ = s[i];
pid2blk->len = pid2blk->len + 2 + strlen(s);
SET_XL( pid2blk );
return NORMAL_RETURN;
}
int zysem()
{
ptscblk->len = msgcopy( WA(word), errors, ptscblk->str );
SET_XR( ptscblk );
return NORMAL_RETURN;
}
