zyscm()
{
REGISTER word result;
Enter("zysbm");
if (!kvcom_ptr) /* Cheap optimization to speed up */
kvcom_ptr = get_data_offset(KVCOM, long *); /* &COMPARE consultation */
result =
gencmp(XL(char *), XR(char *), WA(word), WB(word), *kvcom_ptr);
SET_XL(0);
if (result == 0x80000000) {
Exit("zysbm");
return EXI_1;
}
else if (result == 0) {
Exit("zysbm");
return EXI_0;
}
else if (result < 0) {
Exit("zysbm");
return EXI_2;
}
else {
Exit("zysbm");
return EXI_3;
}
Exit("zysbm");
}
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;
}
zyscm()
{
register word result;
if (!kvcom_ptr) /* Cheap optimization to speed up */
kvcom_ptr = GET_DATA_OFFSET(KVCOM,long *); /* &COMPARE consultation */
result = gencmp(XL(char *), XR(char *), WA(word), WB(word), *kvcom_ptr);
SET_XL(0);
if (result == 0x80000000)
return EXIT_1;
else if (result == 0)
return NORMAL_RETURN;
else if (result < 0)
return EXIT_2;
else
return EXIT_3;
}
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;
}
