*COMDECK ECSDEF 
*         ECS EXTENSIONS PARAMETERS AND SYMBOL DEFINITIONS
BYTELGT   EQU    12 
FOUR      EQU    4
FETECS    EQU    39                ECS FLEG IN FET WORD 2 
* 
*         STACK PROCESSOR COMMUNICATION AREA
*              OFFSETS RELATIVE TO PPOR 
DLASRQ    EQU    MSG2              NEXT,CURRENT,PREVIOS REQUEST 
DFNT      EQU    MSG3              ECS BUFFER DESCRIPTOR(FNT 5TH) 
DBUF      EQU    MSG4              FIRST BUFFER DESCRIPTOR
DECFWA    EQU    MSG6              ECS PAGE ADDRESS AND WORD COUNT
*                FIELDS OFFSET
OFPRUCT   EQU    24                PRU COUNT
OFTERSR   EQU    36                 TERMINATE STACK REQUEST FLAG OFFSET 
OFBUFID   EQU    12                BUFFER IDENTIFICATION
OFEOT     EQU    13                END OF TRANSFER FLAG 
OFREIS    EQU    14                REISSUED REQUEST FLAG
OFALT     EQU    15                ALTERNATE TYPE FLAG (ON REPLY) 
OFDDP     EQU    15                2 BITS DDP TRANSFER FLAGS
OFPLIB    EQU    15                PP LIBRARY LOAD FALG 
OFCM      EQU    17                CM BUFFER ONLY FOR PP LIBRARY LOAD 
OFDESC    EQU    24                DESCRIPTOR LIST FWA
OFTRATP   EQU    12                TRANSFER TYPE (0 = INPUT TO ECS) 
OFFNT     EQU    42                ECS DESCRIPTOR WORD
* 
*         ECS BUFFER DESCRIPTION WORD (FNT 5TH)-FIELD  OFFSET 
LASTSBP   EQU    0                 OFFSET LAST SUBPAGE ADDRESS
FIRSTSP   EQU    24                OFFSET FIRST SUBPAGE ADDRESS 
DESCIND   EQU    48                OFFSET OF THE CURRENT DESCRIPTOR IND 
FLAG      EQU    54                OFFSET 1ST FLAG
WAITRCL   EQU    54                WAIT COMPLETION PP-CIO IF=1
PREAL     EQU    55                ECSPREALLOCATION FLEG
RELEASE   EQU    56                RELEASE FLAG (SEE FET) 
IOTYPE    EQU    57                FOR BUFFERING ONLY-O=OUTPUT BUFFER 
ROPT      EQU    58                0 IF THE FILE HAS TO BE FLUSHED OUT
ECBUF     EQU    59                1 IF THE FILE HAS A BUFFER IN ECS
*         ECS BUFFER DESCRIPTOR COMPLEMENT(FNT 6TH) 
OVFLCT    EQU    24                ECS OVERFLOW FLAG FOR MOVE-IN(NUMBER 
*                                  OF PRU TO BACKSPACE ON RMS DEVICE) 
ECRELBUF  EQU    55                INDICATES FILE HAS ECS BUFFER THAT 
*                                  MUST BE RELEASED.
ECINDEX   EQU    56                INDICATES RANDOM INDEX EXISTS FOR
*                                  FILE IN ECS
ECEXTEND  EQU    57                THE ECS BUFFER CAN BE EXTENDED IF=0
*                                      FOR R/W ON RMS WITHOUT AUTO RCL
ECSR      EQU    58                A STACK REQUEST HAS BEEN ISSUED IF=1 
ECRAND    EQU    59                A RANDOM WRITE IS IN PROCESS IF=1
* 
*         RECORD DESCRIPTOR TYPE FLAG (VALUES RELATIVE TO AN OFFSET 0)
SYSTFLG   EQU    E.SYSTF           SYSTEM DESCRIPTOR
DATAFLG   EQU    E.DATAF           DATA DESCRIPTOR
LISTBND   EQU    E.LSTBND          LIST LIMIT DESCRIPTOR
ENDLIST   EQU    E.ENDLST          END OF DESCRIPTOR LIST 
BEGLIST   EQU    E.BEGLST          BEGINNING OF DESCRIPTOR LIST 
LINKPTR   EQU    E.LNKPTR          LINK DESCRIPTOR
FORWDLK   EQU    0                 FORWARD LINK 
BACKWLK   EQU    2                 BACKWARD LINK
CURPAGE   EQU    0                 DATA ON CURRENT ECS PAGE 
NEWPAGE   EQU    2                 NEW ECS PAGE 
SPLITRD   EQU    4                 RECORD OVERFLOWS ON THE NEXT PAGE
NOSPLIT   EQU    0                 THE CURRENT RECORD IS FINISHED 
ECINIT    EQU    0                 INITIAL BEGIN DESCRIPTOR 
ECEXTBUF  EQU    1                 BUFFER EXTENSION BEGIN DESCRIPTOR
PEFLAG    EQU    1                 RMS PARITY ERROR FLAG
* 
*         RECORD DESCRIPTOR- FIELD OFFSET 
RECDADR   EQU    0                 DATA ADDRESS IN ECS
RECDLGT   EQU    24                RECORD LENGTH
CODSTAT   EQU    42                CODE " STATUS PRE-INFORMATION
AVFWA     EQU    24                FWA UNUSED AREA CURRENT PAGE (ENDLIST
LEVEL     EQU    52                RECORD LEVEL 
RECTYPE   EQU    56                RECORD DESCRIPTOR TYPE FIELD 
TERINF    EQU    57                    AND PARITY ERROR INDICATOR.
SECINF    EQU    58 
TYPINF    EQU    59 
*         PRU DESCRIPTOR - FIELD OFFSET 
PRUADR    EQU    0                 PRU CM OR ECS ADDRESS (OPTIONAL) 
PRULGT    EQU    24                PRU LENGTH 
PRULEVL   EQU    48                PRU LEVEL
PARITY    EQU    52                PARITY ERROR FLAG
SPLIT     EQU    53                SPLIT PRU FLAG 
NEWADR    EQU    54                NEW CM OR ECS PAGE ADDRESS FLAG
*         RANDOM FILE DESCRIPTOR- FIELD OFFSET
*LASTSBA  EQU    0
AUXDESC   EQU    24                ADDRESS 1ST SUBPAGE AUXILIARY HEADER 
FRAND     EQU    AUXDESC
*                                  DESCRIPTOR 
*DESCIND  EQU    48 
AXMNEMO   EQU    54 
*         SYSTEM PAGE HEADER- FIELD OFFSET
LKNEXT    EQU    0                 POINTER TO NEXT PAGE 
LKPREV    EQU    24                POINTER TO PREVIOUS PAGE 
SUBPLG    EQU    48                SUBPAGE LENGTH FIELD 
LKEMPTY   EQU    0                 ADDRESS 1ST EMPTY SUBPAGE
EMPTYCT   EQU    24                CURRENT NUMBER OF EMPTY SUBPAGES 
MAXCT     EQU    42                MAXIMUN NUMBER OF EMPTY SUBPAGES 
*         SUBPAGE HEADER. FIELDS OFFSET.
*LKEMPTY  EQU    0                 ADDRESS OF THE NEXT EMPTY ENTRY
SYSPGAD   EQU    24                SYSTEM PAGE ADDRESS
*         RANDOM RECORD INDEX 
RDOFF     EQU    0                 DESCRIPTOR OFFSET IN SUBPAGE 
SUBPOFF   EQU    6                 SUBPAGE RANK 
INDLGT    EQU    24 
*         BUFFER HEADER- OFFSET RELATIVE TO SUBPAGE FWA 
DMAXBFL   EQU    2
*         BUFFER HEADER. FIELDS DEFINITION
*                FIRST WORD 
SUBPGTP   EQU    E.SUBPTP          SUBPAGE TYPE AND POSITION
*SYSPGAD  EQU    24                SYSTEM PAGE ADDRESS
CURPAGE   EQU    0                 CURRENT PAGE (INPUTFILE) 
DATATP    EQU    E.DATATP          BUFFER TYPE
*                SECOND WORD
FILEID    EQU    18                FILE NAME
*                THIRD WORD 
FNTRES    EQU    48                BUFFER DESCRIPTION WORD RESIDENCE
MAXBUFL   EQU    0                 MAXIMUN BUFFER LENGTH
JDTADD    EQU    24                JDT ORDINAL
FNTADD    EQU    36                BUFFER DESCRIPTOR(FNT 5TH) 
*         BUFFER TYPE FLAG (RELATIVE TO DATATP) 
DEALLOC   EQU    E.DEALOC          THE DATA PAGES ARE AUTOMATICALLY 
*                                  RELEASED WHEN TRANSFERED OUT OF ECS
KEEP      EQU    E.KEEP            THE INFORMATION IN ECS IS PERMANENT
IOBUF     EQU    E.IOBUF           STANDARD I/O BUFFERING THROUGH ECS 
ROPTION   EQU    E.ROPTN           NO BUFFER FLUSH- OUT OPTION
LIBRARY   EQU    E.LIBRY           SYSTEM LIBRARY BUFFER
SWAP      EQU    E.SWAP            JOB SWAPPED OUT TO CECS
ECSRES    EQU    E.ECSRS           ECS RESIDENT FILES 
AUXRAND   EQU    E.AUXRN           ECS RESIDENT RANDOM FILE AUXILIARY 
INDFILE   EQU    KEEP+30B          ECS RESIDENT RANDOM FILE INDEX FILE
* 
*         SUBPAGE POSITION (RELATIVE TO SUBPGTP)
EFIRST    EQU    1                 1ST SUBPAGE BUFFER HEADER. 
CONTD     EQU    0                 INTERMEDIATE SUBPAGE BUFFER HEADER.
LAST      EQU    2                 LAST SUBPAGE BUFFER HEADER.
*         ECS PARAMETERS AND POINTERS AREA
IDIR      EQU    0                 36/COMPUTER ID,24/INPUT REGISTER ADDR
SYSPGLK   EQU    1                 LINK OF THE SYSTEM PAGES ASSIGNED TO 
*                                  THE COMPUTER 12/0,24/FIRST,24/LAST 
NWPGOFF   SET    60-TERINF
AREALGT   EQU    0                 AREA LENGTH (18 BITS)
AREAFWA   EQU    36                AREA FIRST WORD ADDRESS (18 BITS)
*         GET DATA TERMINATION CONDITION
NORMEND   EQU    2                 EOR REACHED ON READ
ENDATUM   EQU    -1                END OF DATUM FOUND BEFORE REQ COMPLET
ENDEOI    EQU    -2                END OF INFORMATION ON RMS DEVICE 
OVFLSTP   EQU    0                 NO SPACE FOR NEXT PRU.EOR NOT FOUND
*         AUXILIARY SUBPAGE HEADER
SUBPCT    EQU    1                 OFFSET SUBPAGE COUNTER WORD
LASTIND   EQU    2                 ADDRESS NEXT ENTRY 
AUXSBP    EQU    0                 ADDRESS CURRENT AUXILIARY SUBPAGE
AUXPAR    EQU    24                SUBPAGE ADDRESS 0-23 (0),24-47 (1) 
AUXIND    EQU    25                CURRENT INDEX AUXILIARY SUBPAGE
* 
AXTYPE    EQU    20B               ECS DEVICE CODE
NORTYPE   EQU    30B               STANDARD FILE OR BUFFRE SUBPAGE TYPE 
RESTYPE   EQU    NORTYPE+1         PREALLOCATED FILE TYPE 
SCBFNT    EQU    42                FNT ADDRESS
SCBECS    EQU    24                FST ECS DESCRIPTOR ADDRESS 
SCBDIR    EQU    2                 SCB DIRECTION FLAG 
SCBTYP    EQU    1                 SCB TYPE, =0 IF CMD, =1 IF DDP 
SCBSTS    EQU    0                 SCB STATUS, 0 IF ASSIGNED
SCBCHN    EQU    48                CHANNEL NUMBER IF DDP
SCBLNG    EQU    24                SCB LENGTH 
SCBOLD    EQU    36                POINTER VALUE SAVED BY CBM 
SCBFLG    EQU    24                DIRECTION FLAG FOR M.BUFPTR
SCBDSC    EQU    24                SAVED SUBPAGE ADDRESS
SCBIDX    EQU    48                SAVED SUBPAGE INDEX
SCBFST    EQU    1                 SCB FIRST POINTER WORD 
SCBIN     EQU    2                 SCB IN POINTER WORD
SCBOUT    EQU    3                 SCB OUT POINTER WORD 
SCBLMT    EQU    4                 SCB LIMIT POINTER WORD 
SCBTRG    EQU    5                 SCB TRIGGER WORD 
SCBWAIT   EQU    6                 SCB WAIT FLAG
SCBDDPW   EQU    7                 DDP EST ADDRESS (WORD) 
SCBDDP    EQU    36                DDP EST ADDRESS (BIT POSITION) 
AVAIL     EQU    48                NUMBER OF AVAILABLE PRUS 
* 
*         FIELD IN PRU CONTROL WORD 
* 
PCWLGT    EQU    0                 PRU LENGTH IN BYTES
PCWLVL    EQU    24                PRU LEVEL
PCWECS    EQU    36                ECS ADDRESS IF DDP 
ORSYS     EQU    36                SCB ASSIGNMENT FLAG, 1 = ASSIGNED
ORDIR     EQU    37                DIRECTION FLAG, 1 = ECS TO RMS 
ORTERM    EQU    38                TERMINATION FLAG 
ORREIS    EQU    39                REISSUE FLAG 
ORADDR    EQU    12                FST OR SCB ADDRESS 
EX.CBM    EQU    11B               ********** 
  
  
**        ECS MMF LINK / STATION DEFINITIONS
* 
  
 XSBX     EQU    2000B
 XAKX     EQU    3000B
 XRBX     EQU    0400B
 XEBX     EQU    0300B
 XCRX     EQU    7000B
 XWRX     EQU    4000B
 XRRX     EQU    XWRX 
 XEIX     EQU    5000B
 TTYS     CEQU   11D         SCH TYPE BIT 
 TEIS     CEQU   9D          END - OF INFORMATION BIT POSITION
 TDRS     CEQU   10D         DATA SCH DIRECTION BIT POSITION
 TRBS     CEQU   8D          *****************************
 TSBS     CEQU   10D         SEND BUFFER FLAG POSITION
 TAKS     CEQU   9D          ACKNOWLEDGE FLAG BIT POSITION
 TUXS     CEQU   7           UNEXPECTED ERROR BIT POSITION
 TEXS     CEQU   6           EXCESS DATA ERROR FLAG POSITION
 TCKS     CEQU   9D          CHECK BIT POSITION 
 TCPS     CEQU   0           CONTROL POINT OFFSET 
 TRBE     CEQU   400B 
 TUXE     EQU    200B 
 TCNS     CEQU   8D 
 TEXE     EQU    100B 
 TCKE     CEQU   1000B
 TAKE     CEQU   1000B
 TCNE     CEQU   0400B
 TCNE     CEQU   400B 
 HAKS     EQU    11D
 HEIM     CEQU   2000B
 HEIS     CEQU   10D
 L.SCHT   EQU    100B 
  
*         STATUS CODE MASKS 
 SABE     CEQU   4000B
 SACE     CEQU   2000B
 SRNE     CEQU   1000B
 SIRE     CEQU   0400B
 SLCE     CEQU   0200B
  
  
****
  
*         STATUS CODES, ECS LINK DRIVER TO CP STATION 
 SABS     CEQU   11D         ABORTED DURING INITIALIZATION
 SACS     CEQU   10D         DRIVER ACTIVE
 SRNS     CEQU   09D         DRIVER RUNNING 
 SLCS     CEQU   07D         DRIVER LOST CONTACT
 SIRS     CEQU   08D         ILLEGAL REQUEST
  
*         ERROR CODES 
 SLBC     CEQU   1           BLOCK LENGTH LONGER THAN BUFFER LENGTH 
 SEQC     CEQU   2           EST ENTRY NOT *CC* OR *CX* 
 SEAC     CEQU   3           EST ENTRY NOT AVAILABLE
 SEUP     CEQU   4           ECS IS NOT UP
 SECM     CEQU   5           NO ECS IN THE COMMON AREA
 SLBN     CEQU   6           ECS LINK BUFFER NOT LEGAL, SEE EST LBN 
 SUSE     CEQU   7           LINK BUFFER ALREADY IN USE 
 SPAR     CEQU   8           UNRECOVERED ECS PARITY ERROR 
 SPRE     CEQU   9           RECOVERED ECS PARITY ERROR 
  
****
**        LF    -THIS MACRO INSURES A POSITIVE LEFT SHIFT 
*                SO THAT THE DESIRED FLG2 BIT IS POSITIONED 
*                IN BIT 59
 LF       MACRO  XR,FLG1,FLG2 
 SYM      SET    FLG1-FLG2
          IFLT   SYM,0,1
          L_XR   FLG1-FLG2+60D
          IFGT   SYM,0,1
          L_XR   FLG1-FLG2
          ENDM
 LE.SCTRQ EQU    2           LENGTH SCH HEADER REQUEST WORDS
 L.SCTHD  EQU    LE.SCTRQ+2  LENGTH OF SUBCHANNEL STATUS TABLE
*         CM SYSTEM BUFFER DESCRIPTOR AREA
*         SYSTEM BUFFER POINTER WORD 0
SYSAVAIL  EQU    59                AVAILABLE IF 0 
SYSTYPE   EQU    58                0 IF CM BUFFERING, 1 IF DDP. 
* 
DDPPRE    EQU    3                 LOOK-AHEAD DATA PAGE ASSIGNMENT
                                   FOR DDP TRANSFER 
DDPAGEA   EQU    0                 FWA OF PAGE
  
* 
*         LENGTH OF RMS PRU 
RMSPRU    EQU    64 
* 
*         ECS ERROR PROCESSING FLAGS
ERFLGSP   EQU    1                 INVALIDATE SYSTEM PAGE FLAG
ERCTPAB   EQU    2                 ABORT CONTROL POINT FLAG 
ERRETRN   EQU    4                 CONTROL BACK 
ERECDDP   EQU    10B               DDP FLAG 
ERELINK   EQU    100B              ECS LINK FLAG
FATALPE   EQU    1001B             FATAL ECS READ PARITY ERROR CODE 
NOFATPE   EQU    1002B             NON FATAL ECS READ PARITY ERROR CODE 
  
* 
*         ECS PP OVERLAY LOADING ERROR FLAGS
ERNDDP    EQU    6001B*40B+0
ERDPER    EQU    6002B*40B+1
ERNECS    EQU    6003B*40B+4
EREPAR    EQU    6004B*40B+4
ERECER    EQU    6005B*40B+1
ERDOFF    EQU    6006B*40B+0
EREOFF    EQU    6007B*40B+4
  
  
*         CEM ERROR CODES USED BY CP-CIO
  
INDERR1   EQU    4000B *INDEX MAY BE INVALID-FILE WRITTEN SINCE LAST
                                                                  CLOSE*
INDERR2   EQU    4001B *INDEX BUFFER NOT SPECIFIED* 
INDERR3   EQU    4002B *FILE HAS NO INDEX*
          TITLE  SCOPE 3.3 ECS EXTENSIONS MACRO DEFINITIONS 
SAVEAX    SPACE  3,3
**        SAVEAX   WA0,WX0
* 
*         MACRO TO SAVE A0 AND X0 IN WA0 AND WX0
  
SAVEAX    MACRO  WA0,WX0
          SX7    A0 
          SA7    =X_WA0 
          BX7    X0 
          SA7    =X_WX0 
          ENDM
RESTAX    SPACE  3,3
**        RESTAX   WA0,WX0
* 
*         MACRO TO RESTORE A0 AND X0 FROM WA0 AND WX0 
  
RESTAX    MACRO  WA0,WX0
          SA4    =X_WA0 
          SA0    X4 
          SA4    =X_WX0 
          BX0    X4 
          ENDM
GETP      SPACE  3,3
**        GETP   J,ECSFUL 
* 
*         MACRO TO GET ECS PAGE (ADDRESS IN X(J) )
  
GETP      MACRO  J,ECSFULL         GET AN ECS PAGE ADDRESS IN XJ REG. 
          LOCAL  EXIT,FETCH        J CAN BE 1,2,3,4,5 
FETCH     SA4    =XW.B5 
          SX7    X4+1 
          SA7    A4 
          SB5    X4 
          SA_J    =XT.EPAGE+B5
          NZ   X_J,EXIT            IF ECS ADDRESS=0,STACK IS EMPTY
          RJ   =XFILLSTK
          VFD    12/0400B,18/FETCH,12/0400B,18/=X_ECSFULL 
EXIT      BSS    0
          ENDM
RELP      SPACE  3,3
**        RELP
* 
*         MACRO TO RELINQUISH ECS PAGE (ADDRESS IN X7)
  
RELP      MACRO                    RELINQUISH AN ECS PAGE ADDRESS IN X7.
          LOCAL  EXIT 
          SA4    =XW.B5 
          SX4    X4-1              DECREMENT INDEX
          SB5    X4 
          SA7    =XT.EPAGE+B5 
ILLEGAD   IFNE   IP.TF,0
          AX7    7
+         ZR   X7,*                CATCHES ADDRESS IN SYSTEM AREA 
          AX7    12 
          NZ   X7,*                CATCHES ADRESS BEYOND ECS LIMIT
ILLEGAD   ENDIF 
          BX7    X4 
          SA7    A4 
          NZ   X4,EXIT             IF INDEX=0,STACK OVERFLOW
          RJ   =XFLUSHST
EXIT      BSS    0
          ENDM
MACWAIT   SPACE  3,3
**        RECS   BJ,K,ERREXIT 
* 
*         MACRO TO READ ECS 
* 
*         IF THE ECS TRANSFER IS LONGER THAN THREE WORDS, THERE IS A
*         TEST IF THE DISK DRIVER IS DOING A CM TRANSFER. 
*         THE SUBROUTINE *WAIT* WILL WAIT UNTIL THE PP/CM TRANSFER IS 
*         COMPLETE BEFORE STARTING THE ECS/CM TRANSFER.  THIS REDUCES 
*         THE CHANCES OF A LOST DISK REV DURING ECS BUFFERING.
* 
*         ON A DUAL CPU SYSTEM THE WAIT IS MORE HARMFUL THAN BENEFICIAL.
*         AN XJ ON THE OTHER CPU DURING THE WAIT WILL HANG WHOLE SYSTEM.
  
RECS      MACRO  BJ,K,ERREXIT      READ ECS MACRO 
          IFNE   IP.MCPU,2,3
          IFC    NE,*BJ*B3*,1 
          IFGT   K,3,1
          RJ   =XWAIT 
+         RE     BJ+K 
-         RJ   =X_ERREXIT 
          ENDM
WECS      SPACE  3,3
**        WECS   BJ,K,ERREXIT 
* 
*         MACRO TO WRITE ECS
  
WECS      MACRO  BJ,K,ERREXIT      WRITE ECS MACRO
          IFNE   IP.MCPU,2,3
          IFC    NE,*BJ*B3*,1 
          IFGT   K,3,1
          RJ   =XWAIT 
+         WE     BJ+K 
-         RJ   =X_ERREXIT 
          ENDM
  
* 
*         MACRO TO GENERATE SYSTEM CURCULAR BUFFER
*         FOR ECS IO BUFFERING
*         AND ECS RESIDENT PP LIBRARY LOADING 
* 
LAREA     EQU    8                 LENGTH OF SYSTEM CIRCULAR BUFFER 
                                   CONTROL TABLE
ECSBUF    MACRO  NPRU,DDP 
          LOCAL  LBUF,DDPFLG,FIRST
COUNT     SET    COUNT+1
          IFC    EQ,$$NPRU$,1 
 P        ERR                PRU PARAMETER MISSING
ECSBUF    RMT 
XX        IFC    NE,$$DDP$
DDPFLG    EQU    1
LBUF      EQU    NPRU 
XX        ELSE
DDPFLG    EQU    0
LBUF      EQU    101B*NPRU
XX        ENDIF 
FIRST     EQU    SCBHDR+1+COUNT*LAREA+ADA 
          VFD    58/0,1/DDPFLG,1/1
          VFD    42/0,18/FIRST
          VFD    42/0,18/FIRST
          VFD    42/0,18/FIRST
          VFD    18/0,18/LBUF,6/0,18/FIRST+LBUF 
          BSSZ   LAREA-5
ADA       SET    ADA+LBUF 
          RMT 
          ENDM
****
* 
CPPRI     EQU    24                 OFFSET OF CONTROL POINT PRIORITY FIE
FCPNUM    EQU    12                OFFSET OF CONTROL POINT NO. IN FNT 
FDISP     EQU    24                OFFSET OF FNT DISPOSITION CODE 
FETDIS    EQU    24                OFFSET OF FET DISPOSITION  CODE
FETILNG   EQU    18                OFFSET OF FET INDEX LENGTH FIELD 
FETLNG    EQU    18                OFFSET OF FET LENGTH FIELD 
FETR      EQU    47                OFFSET OF FET RANDOM BIT 
FETXP     EQU    40                OFFSET OF FET XP BIT 
INDEXB    EQU    18                OFFSET OF INDEX BIT IN FNT 
L.FEQP    EQU    6                 LENGTH OF FNT FILE EQUIPMENT FIELD 
L.FETDIS  EQU    12                LENGTH OF FET DISPOSITION CODE 
L.FETLNG  EQU    6                 LENGTH OF FET LENGTH FIELD 
L.FETRN   EQU    12                LENGTH OF FET RECORD NO.FIELD
L.FDISP   EQU    12                LENGTH OF FNT DISPOSITION CODE FIELD 
L.FSPINX  EQU    6                 LENGTH OF FNT SUBPAGE INDEX FIELD
REWINDB   EQU    40B               FET CIO CODE REWIND BIT
SFETECS   EQU    5                 STACK REQUEST FET AND ECS BITS 
SRFST     EQU    36                STACK REQUEST FST ADDR OFFSET IN WD 2
SRORDER   EQU    12                STACK REQUEST ORDER CODE OFFSET
SRSTFB    EQU    18                STACK REQUEST FLAG FIELD OFFSET WD 1 
REWBIT    EQU    5                 OFFSET OF CIO CODE REWIND BIT
WRITEB    EQU    19                OFFSET OF WRITE BIT IN FNT 
W.FCPNUM  EQU    0                 FNT WORD CONTAINS CONTROL POINT NO.
W.FDISP   EQU    2                 FNT WORD CONTAINS DISPOSITION CODE 
W.FETRN   EQU    7                 FET RECORD NO. FIELD WORD
W.FPRI    EQU    2                  FNT PRIORITY FIELD WORD 
SRBCKCT   EQU    24                STACK REQUEST SKIP COUNT FIELD OFFSET
W.FETCS   EQU    0                 CODE/STATUS WORD OF FET
W.FETDET  EQU    6                 FET WORD HAS DETAIL ERROR CODE 
W.FETDIS  EQU    1                 WORD OF FET THAT CONTAINS DISPOSITION
W.FETEXT  EQU    6                 FET WORD HAS POINTER TO EXTENSION
W.FETINX  EQU    7                 INDEX WORD OF FET
W.FETR    EQU    1                 WORD OF FET THAT CONTAINS RANDOM BIT 
W.FETXP   EQU    1                 FET WORD HAS XP BIT
W.FST     EQU    1                 FST(1) OF FNT ENTRY
W.FWBIT   EQU    2                 WORD OF FNT CONTAINING INDEX,WRITE BI
****
