Files
Digital-Research-Source-Code/CPM OPERATING SYSTEMS/CPM 86/CONCURRENT/CCPM-86 3.1 SOURCE/D6/ISSYSFIL.C
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

20 lines
640 B
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/*----------------------------------------------------------------------*\
| NAME : is_sysfile |
| CREATED : 18-August-83 LAST MODIFIED: 18-August-83 |
| FUNCTION: Is_sysfile checks to see if an FCB references a |
| system type file. |
| INPUT : fcb -- ptr to an FCB to check |
| OUTPUT : Return 1 if a system file was found, 0 if not. |
\*----------------------------------------------------------------------*/
#include <portab.h>
WORD is_sysfile( fcb )
BYTE fcb[];
{
if( fcb[10] & ~0x7f )
return( YES );
return( NO );
}