*COMDECK  COMPTFS 
          USE    /COMPTFS/
          ORGC   *
          SPACE  4
**        EQUATES.
  
  
 CONTCHR  EQU    1R,         TEXT CONTINUATION CHARACTER
  
 TEXTL    EQU    101         USER TEXT AREA LENGTH
  
 TEXTMAX  EQU    80          MAXIMUM TEXT LENGTH, CHARACTERS
          SPACE  4
**        DATA AREAS. 
  
  
 ABTFLG   CON    0           ABORT APPLICATION ON ALL ERRORS
  
 ACKT     DATA   60          ACK WAIT INTERVAL
  
 NOS      IFEQ   OS$NOS 
 APPL     DATA   7LPTFS      APPLICATION NAME 
 NOS      ELSE
 APPL     DATA   7LFTFS 
 NOS      ENDIF 
  
 BUFDFM   BSS    65          DAYFILE MESSAGE FILE BUFFER
 BUFDFML  EQU    *-BUFDFM 
  
 BUFTXT   BSS    65          TXTFILE BUFFER 
 BUFTXTL  EQU    *-BUFTXT 
  
 CNCDEL   CON    0           CONNECTION REQUEST WAIT TIME 
  
 NOSBE    IFEQ   OS$NOSBE 
 ZZZZZDF  RFILEC BUFDFM,BUFDFML,FET=10B 
 DFFIRST  EQU    ZZZZZDF+1
 DFIN     EQU    ZZZZZDF+2
 DFOUT    EQU    ZZZZZDF+3
 DFLIMIT  EQU    ZZZZZDF+4
 DFPRUI   EQU    ZZZZZDF+6
 NOSBE    ELSE
 DFMFILE  BSS    0
 ZZZDFM   FILEC  BUFDFM,BUFDFML 
 NOSBE    ENDIF 
  
 NOS      IFEQ   OS$NOS 
 F        BSS    0           FILE TRANSFER FET
 INPUT    FILEC  BUFDFM,BUFDFML    DUMMY FET FOR RETURNING INPUT
          BSS    CFLM-5      EXTRA FET SPACE
 ALV      EQU    F+CFAL      FILE ACCESS LEVEL
 NFN      EQU    F+CFNF      NEW FILE NAME FOR *CHANGE* 
 PFN      EQU    F+CFPN      PERMANENT FILE NAME
 PN       EQU    F+CFPK      PACK NAME OF FILE RESIDENCE
 PW       EQU    F+CFPW      PASSWORD FOR FILE ACCESS 
 S        EQU    F+CFOU      FILE SIZE
 UN       EQU    F+CFOU      ALTERNATE USER NUMBER
  
 AC       BSS    1           ALTERNATE CATLIST PERMISSION 
 AL       BSS    1           ACCESS LEVEL 
 BR       BSS    1           BACKUP REQUIREMENT 
 CE       BSS    1           CLEAR ERROR FLAG 
 CP       BSS    1           RESET CHARGE/PROJECT FLAG
 CT       BSS    1           CATEGORY 
 M        BSS    1           MODE 
 PACK     BSS    1           PACKNAME 
 PR       BSS    1           PREFERRED RESIDENCE
 R        BSS    1           DEVICE TYPE
 NA       BSS    1           *NO ABORT* FLAG
  
 RT       BSS    1           REAL-TIME PROCESSING REQUESTED 
  
 WB       BSS    1           WAIT BUSY FLAG 
  
 XD       BSS    1           EXPIRATION DATE
  
 XT       BSS    1           EXPIRATION TERM
  
 FVPL     EQU    *-F         LENGTH OF FET AND VARIOUS PARAMETERS 
  
 NOS      ELSE
 F        FILEB  100B,100B   DUMMY FET FOR XFR FILE 
 NOS      ENDIF 
 CCTOPF   CON    ICCTOP      CONTROL CARD TO PROCESS FLAGS
 ICCTOP   EQU    0           INTERNAL CONTROL CARD TO PROCESS 
 NCCTOP   EQU    1           NO CONTROL CARD TO PROCESS 
 ECCTOP   EQU    2           EXTERNAL CONTROL CARD TO PROCESS 
  
 JCI      BSSZ   2           JOB CONTROL INFORMATION
                             (R1) = CURRENT JOB STATE.
                             (R2) = LOWER 18 BITS OF DAYFILE PRU. 
                             (R3) = (BIT 17) = 0, ZZZZZTU INPUT LFN.
                                               1, ZZZZZUT INPUT LFN.
                                    (BIT 16) = 1, ACCOUNT SPECIFIED.
                                    (BIT 15) = 1, RECOVERY TEXT SENT. 
                                    (BITS 14 - 6) = RESERVED. 
                                    (BITS 5 - 0) = DAYFILE PRU. 
  
*         VALID FTFS STATES.
  
 FRSTENT  EQU    0           FIRST TIME FTFS ENTERED
 NOTCON   EQU    1           NOT CONNECTED
 IDLE     EQU    2           IDLE 
 RFTRPCC  EQU    3           RFT RECEIVED, PROCESS CONTROL CARDS
 RPOSSWR  EQU    4           RPOS SENT, WAIT FOR REPLY
 RNEGSWR  EQU    5           RNEG SENT, WAIT FOR REPLY
 RFXFR    EQU    6           READY FOR FILE TRANSFER
 PXFRREP  EQU    7           PROCESS NETXFR REPLY 
 XFRCPCC  EQU    8           TRANSFER COMPLETE, PROCESS CTRL. CARDS 
 UTXTPRC  EQU    9           USER TEXT PROCESSING COMPLETE
 WRAPUP   EQU    10          WRAP-UP PHASE
  
 NETONF   CON    0           NETON FLAG 
  
 FUNC     BSS    1           *PFM* FUNCTION FOR POST-PROCESS
  
 GIVE     DATA   0LG0000     GIVE MODE OF TRANSFER
  
 HA       BSSZ   1           *NETPUT* HEADER
  
 NOS      IFEQ   OS$NOS 
 HOST     BSS    1           THIS HOST-S PID
  
 JOBNAME  BSS    1           THIS JOB-S JOBNAME 
 NOS      ENDIF 
  
 LCMD     BSS    1           LAST COMMAND RECEIVED
  
 MBS      CON    0           MAXIMUM BLOCK SIZE 
  
 NULL     DATA   0LN0000     NULL TRANSFER
  
 OMSGE    BSSZ   1           OPERATOR MESSAGE ENTRY ADDRESS 
  
 PACKTXT  BSSZ   9           PACKING BUFFER FOR CONTINUED TEXT
  
 QBIT     BSSZ   1           INPUT AND SUPERVISORY MESSAGE QUEUE BITS 
  
 NOS      IFEQ   OS$NOS 
 RBUF     BSS    65          RFILE BUFFER 
 RBUFL    EQU    *-RBUF 
 NOS      ENDIF 
  
 REQT     DATA   30          *CON/REQ/R* WAIT TIME
  
 NOSBE    IFEQ   OS$NOSBE 
 RETLFN   FILEB  100B,100B,EPR     LFN OF FILE TO RETURN
 NOSBE    ENDIF 
  
 RFTPASS  BSS    1           FIRST/SECOND PASS THRU USER TEXT 
  
 RLID     BSSZ   1           *RFT* *LID*
  
 RTYP     BSS    1           REPLY TYPE FOR *RFT* 
  
 XFR      BSSZ   1           FILE TO TRANSFER FLAG
  
 NOS      IFEQ   OS$NOS 
 ZZFILE   BSS    0           RECOVERY TEXT FILE 
 ZZRFILE  FILEC  RBUF,RBUFL 
  
 TEXTPFX  DATA   10H  PTFS  -  TEXT PREFIX FOR DFM
 NOS      ENDIF 
  
 TEXT     BSS    TEXTL       USER TEXT AREA 
  
 TMSGE    BSSZ   1           TEXT ERROR MESSAGE ADDRESS 
  
 TRACE    CON    1S18        AIP/FIP TRACE ENABLED IF ZERO
  
 NOSBE    IFEQ   OS$NOSBE 
 ZZZZZUT  FILEC  BUFTXT,BUFTXTL    USER TEXT FILE 
 UTFIRST  EQU    ZZZZZUT+1
 UTIN     EQU    ZZZZZUT+2
 UTOUT    EQU    ZZZZZUT+3
 UTLIMIT  EQU    ZZZZZUT+4
 ZZUTLFN  VFD    42/0LZZZZZUT,18/1
 ZZTULFN  VFD    42/0LZZZZZTU,18/1
 NOSBE    ELSE
 TXTFILE  BSS    0           TEXT STRINGS FROM ONE RFT
 ZZZTXT   FILEC  BUFTXT,BUFTXTL 
 NOSBE    ENDIF 
  
 SHAB     BSSZ   1           SUPERVISORY HEADER AREA
  
  
 NOS      IFEQ   OS$NOS 
  
*         THE FOLLOWING FOUR DEFINITIONS MUST BE CONTIGUOUS FOR 
*         THE *CHARGE* VALIDATION.
  
 SRUM     BSS    2           CONTROL POINT SRU WORDS
 CGN      BSS    1           CHARGE NUMBER
 PRN      BSS    2           PROJECT NUMBER 
 ACCM     BSS    5           ACCOUNT FILE MESSAGE AREA
  
 DCI      BSS    4           DEFAULT CHARGE INFORMATION 
 NOS      ENDIF 
 STAB     BSSZ   11          SUPERVISORY TEXT AREA
 STABL    CON    *-STAB      SUPERVISORY TEXT AREA LENGTH 
  
 STAT     DATA   77B         CONNECTION STATUS
  
 TAKE     DATA   0LT0000     TAKE MODE OF TRANSFER
  
  
          USE    *
          USE    *
