*COMDECK,FETCOM 
          EJECT 
* 
*         FET-STRUCTURE 
* 
 FETFILE  EQU    0           FILE-NAME
 FETFRST  EQU    FETFILE+1   B47 RANDOM,23-18 SIZE,17-0 FIRST 
 FETIN    EQU    FETFRST+1   CIO-IN 
 FETOUT   EQU    FETIN+1     CIO-OUT
 FETLIMT  EQU    FETOUT+1    CIO-LIMIT
 FETSETV  EQU    FETLIMT+1   B59 SET DUE, 58 SET PAST, 57 APPEND
*                            56 APPEND AND EMPTY, 29-0 SET VALUE
 FETINDX  EQU    FETSETV+1
 FETLOFC  EQU    FETINDX+1   B59-30 LOF,29-0 LOC
 FETLINL  EQU    FETLOFC+1   MAX LINE,B59-30 WDS,29-0 CHARS 
 FETCHAR  EQU    FETLINL+1   ACTUAL COUNT,WDS + CHARS 
 FETSTAT  EQU    FETCHAR+1   B59-48 TYPE,47 CLSBIT,46 WRITE LOCKOUT,
*                            18 INT-ACT,17-0 KBLN 
 FETROI   EQU    FETSTAT+1   B59 WRITE,58-36 RSA
*                            35-18 OUT,17-0 IN
 FETFNUM  EQU    FETROI+1    B59-18 DELIMITER CODEWORD,17-0 FILENO
 FETCHAN  EQU    FETFNUM+1   BASIC FET LENGTH 
 FETLEN   EQU    FETLOFC-5
* 
 SETCHAN  MACRO  FNAME,TYPE,FIRST,LENGTH,LINE,CHAR,KBLANK 
          FNAME                    FILENAME 
          VFD    60/FIRST          FIRST
          VFD    60/FIRST          IN 
          VFD    60/FIRST          OUT
          VFD    60/FIRST+LENGTH   LIMIT
          VFD    60/0              BIT 59 SET ACT BITS 29-0 SET VALUE 
          VFD    30/0,1/0,29/0     CURR RSA,REWRITE FLAG,REWRITE RSA
          VFD    60/0              BITS 59-30 LOF, 29-0 LOC 
          VFD    30/LINE,30/CHAR   LINE-LENGTH
          VFD    60/0              WORD-CHARACTER-COUNT 
          VFD    3/2,9/TYPE,18/0,12/2000B,18/KBLANK     TYPE,KBLANK 
          VFD    60/0              B59 WRITE 58-36 RSA 35-18 OUT 17-0 IN
          VFD    60/0 
          VFD    60/-FETCHAN       CHAIN
          ENDM
* 
*         FET-TYPE
* 
 EORSHFT  EQU   55
 READFUN  EQU    10B         CIO-READ CODED 
 READBIN  EQU    12B         CIO-READ BINARY
 WRITFUN  EQU    14B         CIO-WRITE CODED
 WRITBIN  EQU    16B         CIO-WRITE BINARY 
 WRITBIT  EQU    4
 EOFBIT   EQU    4
 EOIBIT   EQU    9
 EORBIT   EQU    20B        BIT 4 
 IOFLAGS  EQU    4
 CLSBIT   EQU    47 
 INROI    EQU    18 
 OUTROI   EQU    18 
 RSAROI   EQU    23 
 DFLTWDS  EQU    7
 DFLTCHS  EQU    5
          IFC    EQ,,"OS.NAME",SCOPE ,
 DEVTYPL  EQU    6
 DEVTYP3  EQU    61B
          ELSE
 DEVTYPL  EQU    12 
 DEVTYP3  EQU    2424B       TTY
          ENDIF 
* 
