# WARNING: IF YOU CHANGE THESE, YOU MUST CHANGE CORRESPONDING
#   MNEMONICS IN COMPASS ROUTINES OR YOU
#   WILL CAUSE THE APOCALYPSE!
 
DEFINE(MAXFILES,16)%# NUMBER OF OPENED FILES PERMITTED
DEFINE (FETLEN,5)%# LENGTH OF CYBER FET
DEFINE (MAXBUFSIZE,65)%# LENGTH OF CIRCULAR BUFFER
DEFINE (BINARYFILE,2B)%# BIT 1 IN FET, SET TO INDICATE BINARY FILE
DEFINE (FILENOTBUSY,1B) # BIT 0 IN FET, MUST BE SET WHEN OPEN
 
# FILE BLOCK FORMAT
DEFINE (BKSTART,1)%# START OF A FILE BLOCK
DEFINE (USECNT,1)%# USE COUNT
DEFINE (MODE,2)%%# OPEN MODE
DEFINE (MAPFLAG,3)%# -1 IF ASCII, 1 IF DISPLAY, 0 OTHERWISE
DEFINE (BUFSIZE,4)%# VALID SIZE OF I/O BUFFER
DEFINE (BYTESPERWORD,5) # NO. OF BYTES / WORD
DEFINE (CURRENTWORD,6)%# POINTER TO CURRENT WORD IN I/O BUFFER
DEFINE (CURRENTBYTE,7)%# POINTER TO CURRENT BYTE IN CURRENT WORD
DEFINE (BITSPERBYTE,8)%# NO. OF BITS / BYTE
DEFINE (EOFFLAG,9)%# NON-ZERO IF EOF ON LAST READ
DEFINE (COL1BLANK,10)%# NON-ZERO IF NEED CARRIAGE CONTROL
DEFINE (FETSTART,11)%# FIRST WORD OF FET (5 WORDS LONG)
DEFINE (BUFSTART,16)%# FIRST WORD OF I/O BUFFER (65 WORDS LONG)
DEFINE (FDBLOC,82)%# POINTER TO FDB IF PERMANENT FILE
DEFINE (FBLEN,100)%# LENGTH OF ONE FILE BLOCK
 
DEFINE (FDBLEN,17)%# LENGTH OF ONE FILE CONTROL BLOCK
DEFINE (FILBLK,1600)%# MAXFILES * FBLEN
 
DEFINE (IDKEY,14B)%# FDB CODE FOR ID
DEFINE (XRKEY,13B)%# FDB CODE FOR EXTEND PASSWORD
DEFINE (TKKEY,4B)%# FDB CODE FOR TURNKEY PASSWORD
DEFINE (PW1KEY,20B)%# FDB CODE FOR PASSWORD
DEFINE (PW2KEY,21B)%# FDB CODE FOR PASSWORD
DEFINE (RPKEY,2B)%# FDB CODE FOR RETENTION PERIOD
DEFINE (CYKEY,3B)%# FDB CODE FOR CYCLE NUMBER
DEFINE (MRKEY,11B)%# FDB CODE FOR MULTI-READ ACCESS
DEFINE (RDKEY,10B)%# FDB CODE FOR READ PASSWORD
 
DEFINE (ATTACH,1)%# PFN CMD IS AN ATTACH
DEFINE (CATALOG,2)%# PFN CMD IS A CATALOG
DEFINE (PURGE,3)%# PFN CMD IS PURGE
DEFINE (ALTER,4)%# PFN CMD IS ALTER
DEFINE (EXTEND,5)%# PFN CMD IS EXTEND
DEFINE (RENAME,6)%# PFN CMD IS RENAME
 
DEFINE(LFNMASK,77777777777777000000B)
DEFINE(KEYMASK,77777777777777777700B)
DEFINE(QRIGHT,1)%# IF WANT PACK AND RIGHT-JUSTIFIED
DEFINE(QLEFT,2)%%# IF WANT PACK AND LEFT-JUSTIFIED
 
DEFINE (MAXARG, 60)
DEFINE (COMADDR, 70B)           # ADDRESS OF COMMAND LINE STORAGE
 
DEFINE (LOCALFILE,1)%%# FILENAME IS LFN
DEFINE (PERMFILE,2)%%# FILENAME IS PFN
