*COMDECK /KWML/ 
* 
*         FET FIELDS
* 
 #CDS4#   MICRO     1,,/0,00D,12D,00D,1,1/  L.O. 12 BITS OF FET WD 0
 #DSB#    MICRO     1,,/0,28D,18D,00D,0,1/  DISPLACEMENT IN BLOCK 
 #DT#     MICRO     1,,/0,24D,01D,54D,0,1/  DIVICE TYPE 
 #DV6#    MICRO     1,,/0,01D,06D,54D,1,1/  UPPER 6 BITS OF DEVICE TYPE 
 #ECD#    MICRO     1,,/0,06D,12D,48D,1,1/  DETAILED ERROR CODE 
 .NOT.V2  IFEQ      #NODROP#,0
 #ELT#    MICRO     1,,/0,01D,02D,50D,1,1/  DEVICE TYPE LABEL BITS
 .NOT.V2  ENDIF 
 #FCS#    MICRO     1,,/0,00D,09D,00D,1,1/  FET CODE/STATUS (BITS 0-8)
 #FCSE#   MICRO     1,,/0,00D,14D,00D,1,1/  FET C/S+ERROR   (BITS 0-14) 
 #FEC#    MICRO     1,,/0,00D,05D,09D,1,1/  FET ERROR CODE  (BITS 9-13) 
 #FEOF#   MICRO     1,,/0,00D,02D,03D,1,1/  FET EOF BITS
 #FEOI#   MICRO     1,,/0,00D,01D,09D,1,1/  FET EOI BIT 
 #FEOR#   MICRO     1,,/0,00D,01D,04D,1,1/  FET EOR BIT 
 #FETX#   MICRO     1,,/0,06D,18D,30D,1,1/  FET EXTENSION POINTER 
 #FIRST#  MICRO     1,,/0,01D,18D,00D,1,1/  FWA OF BUFFER 
 #FLEV#   MICRO     1,,/0,00D,04D,14D,1,1/  FET LEVEL NUMBER(BITS 14-17)
 #FTI#    MICRO     1,,/0,09D,01D,59D,1,1/  GETL/PUTL FIRST TIME FLAG 
 #FWL#    MICRO     1,,/0,09D,18D,00D,1,1/  ADDRESS OF LABEL BUFFER 
 #F18#    MICRO     1,,/0,00D,18D,00D,1,1/  FET C/S,ERR,LEV (BITS 0-17) 
 #IN#     MICRO     1,,/0,02D,60D,00D,1,1/  FWA BUFFER TO INSERT DATA 
 #JNK#    MICRO     1,,/0,09D,24D,36D,1,1/  FLAGS IN FET+9
 #LAL#    MICRO     1,,/0,09D,36D,00D,1,1/  ADR AND LENGTH OF LABEL BUFR
 .NOT.V2  IFEQ      #NODROP#,0
 #LBT#    MICRO     1,,/0,01D,01D,52D,1,1/  L-TAPE BIT
 .NOT.V2  ELSE
 #LBT#    MICRO     1,,/0,08D,01D,59D,1,1/  L-TAPE BIT
 .NOT.V2  ENDIF 
 #LIMIT#  MICRO     1,,/0,04D,18D,00D,1,1/  LWA+1 OF BUFFER 
 #LLB#    MICRO     1,,/0,09D,18D,18D,1,1/  LENGTH OF LABEL BUFFER
 #LOUT#   MICRO     1,,/0,09D,18D,36D,1,1/  LABEL POINTER 
 #MLRS#   MICRO     1,,/0,06D,24D,00D,1,1/  S-TAPE MAX PHYS REC SIZE
 #MUJ#    MICRO     1,,/0,01D,01D,42D,0,1/  INTERCOM BIT
 #NSL#    MICRO     1,,/0,01D,01D,38D,1,1/  NON-STANDARD LABEL BIT
 #OUT#    MICRO     1,,/0,03D,60D,00D,1,1/  FWA BUFFER TO REMOVE DATA 
 #PMB#    MICRO     1,,/0,08D,04D,20D,1,1/  PERMISSION BITS 
 #PRUNO#  MICRO     1,,/0,06D,30D,00D,1,1/  PRU NUMBER (FO=WA)
 #PRUSIZ# MICRO     1,,/0,04D,16D,18D,1,1/  PRU SIZE
 #RSC#    MICRO     1,,/0,08D,18D,24D,1,1/  RESIDUAL SKIP COUNT 
 #SRB#    MICRO     1,,/0,01D,01D,47D,1,1/  RANDOM FILE BIT 
 #STASH#  MICRO     1,,/0,05D,60D,00D,1,1/  STASH 
 #TAPE#   MICRO     1,,/0,01D,01D,59D,1,1/  TAPE/DISK BIT 
 #UBC#    MICRO     1,,/0,06D,06D,24D,1,1/  S-TAPE UNUSED BIT COUNT 
 #ULF#    MICRO     1,,/0,09D,01D,56D,1,1/  INDICATES UHL PUTL-D
 #ULH#    MICRO     1,,/0,09D,01D,57D,1,1/  INDICATES HDR PUTL-D
 #ULV#    MICRO     1,,/0,09D,01D,55D,1,1/  INDICATES UVL PUTL-D
 #UL2#    MICRO     1,,/0,09D,02D,56D,1,1/  ULF+ULH 
 #UL3#    MICRO     1,,/0,09D,03D,55D,1,1/  ULF+ULH+ULV 
#UP#      MICRO     1,,/0,01D,01D,45D,1,1/  DEVICE SET CONTROL BIT
 #XL#     MICRO     1,,/0,01D,01D,41D,1,1/  EXTENDED LABEL PROCESSING 
* 
*         FIT FIELDS
* 
 #AAM#    MICRO     1,,/0,11D,02D,19D,0,0/  NONZERO IFF AAM 
 #AAMSR1# MICRO     1,,/0,28D,60D,00D,3,1/  AAM SCRATCH WORD
 #AM1CAP# MICRO     1,,/0,29D,03D,33D,1,1/  AM1 PASSLOC TABLE OFFSET
 #BCC#    MICRO     1,,/0,30D,04D,00D,1,1/  BEGINNING CHAR POS     GPS
 #BFST#   MICRO     1,,/0,26D,18D,18D,1,1/  TEMP BFS STORAGE         S
 #BL#     MICRO     1,,/0,30D,24D,06D,1,1/  BLOCK LENGTH BT=I/C    GPS
 #BLP#    MICRO     1,,/0,33D,18D,36D,1,1/  BLOCK POINTER (LWA+1)  GPS
 #CCD#    MICRO     1,,/0,26D,09D,24D,1,1/  READ/READN CIO CODE 
 #CKS#    MICRO     1,,/0,29D,01D,59D,1,1/  SBF FILE CHECK BIT
 #CNB#    MICRO     1,,/0,08D,01D,23D,1,1/  CONTROL PERMISSION BIT
 #COP#    MICRO     1,,/0,33D,18D,18D,0,1/  CURRENT OPERATION 
 #CPRU#   MICRO     1,,/0,19D,24D,36D,1,1/  CURRENT PRU  FO=WA     GP 
 #CRF#    MICRO     1,,/0,30D,01D,48D,1,1/  W-CONT RECORD FLAG     G
 #DARO#   MICRO     1,,/0,28D,1,59D,0,1/    AAM 1 FLAG SET FOR RO 
 #DCKJ#   MICRO     1,,/0,22D,04D,46D,0,1/  DETERMINES FOJG/FOJP
 #DEL#    MICRO     1,,/0,30D,01D,57D,1,1/  DELETED RECORD         G
 #EBC#    MICRO     1,,/0,31D,04D,44D,1,1/  END OF BLOCK COUNT     G
 #EES#    MICRO     1,,/0,13D,01D,31D,1,0/  1=ERROR POSTED, EXIT PENDING
 #EK#     MICRO     1,,/0,30D,01D,49D,1,1/  BT=E OR K              GPS
 #EMG#    MICRO     1,,/0,27D,18D,24D,1,1/  EMERGENCY 
 #ERE#    MICRO     1,,/0,27D,18D,42D,1,1/  PARITY ERR END PTR     G
 #ERP#    MICRO     1,,/0,27D,18D,24D,1,1/  ERROR POINTER          G
 #ERW#    MICRO     1,,/0,28D,09D,27D,1,1/  ERROR FIELD FO=WA      G
 #ESF#    MICRO     1,,/0,30D,01D,54D,1,1/  END OF SECTION FLAG    GPS
 #EXB#    MICRO     1,,/0,08D,01D,21D,1,1/  EXTEND PERMISSION BIT 
 #FIAT#   MICRO     1,,/0,27D,18D,18D,3,1/  FIAAT ADDRESS 
 #FIO#    MICRO     1,,/0,32D,60D,00D,1,1/  SAVE FIRST,IN,OUT 
 #FOC#    MICRO     1,,/0,17D,03D,57D,0,0/  FNF, OC 
 #FOJG#   MICRO     1,,/0,22D,18D,18D,1,1/  FO JUMP FOR GET 
 #FOJP#   MICRO     1,,/0,23D,18D,18D,1,1/  FO JUMP FOR PUT 
 #FOJM#   MICRO     1,,/0,12D,18D,18D,1,1/  FO JUMP FOR NON-GET/PUT 
 #FOP#    MICRO     1,,/0,17D,06D,54D,0,0/  FNF, OC, PD 
 #FSTT#   MICRO     1,,/0,27D,18D,00D,3,1/  FSTT ADDRESS
 #FTCH#   MICRO     1,,/0,27D,18D,36D,3,1/  POINTER TO NEXT FIT 
 #GEN#    MICRO     1,,/0,30D,09D,30D,1,1/  GET ERROR NUMBER       G
 #GETJ#   MICRO     1,,/0,22D,36D,00D,1,1/  JUMPS FOR GET 
 #GPS#    MICRO     1,,/0,30D,01D,55D,1,1/  GETP SKIP              G
 #GSF#    MICRO     1,,/0,30D,01D,56D,1,1/  GET SKIP FLAG          G
 #IDXON#  MICRO     1,,/0,25D,01D,54D,0,1/  1=INDEX-ONLY OPEN.
 #IPF#    MICRO     1,,/0,30D,01D,51D,1,1/  INTERNAL PARITY FLAG   G
 #ISD#    MICRO     1,,/0,30D,01D,53D,1,1/  INSUFFICIENT DATA FLAG G
 #JLT#    MICRO     1,,/0,26D,18D,00D,3,1/  JRNL LOGGING INFO TBL ADR 
 #KIA#    MICRO     1,,/0,16D,18D,00D,1,1/  KEEP I/O ACTIVE 
 #KRN#    MICRO     1,,/0,31D,12D,48D,1,1/  K RECORD NUMBER        GP 
 #MDB#    MICRO     1,,/0,08D,01D,22D,1,1/  MODIFY PERMISSION BIT 
 #MER#    MICRO     1,,/0,08D,03D,20D,1,1/  MODIFY/EXTEND/READ PMB
 #MIPFS#  MICRO     1,,/0,21D,18D,00D,3,1/  MIP(INDEX)FSTT ADDRESS
 #MIPGN#  MICRO     1,,/0,31B,01D,53D,1,1/  MIPGEN FLAG 
 #MPRO#   MICRO     1,,/0,28D,1,40D,0,1/    AAM 1 FLAG SET FOR MIP RO 
 #MVL#    MICRO     1,,/0,27D,24D,00D,1,1/  MOVE LENGTH             P 
 #NOSP#   MICRO     1,,/0,30D,01D,05D,1,1/  NO SPACE ON DEVICE      P 
 #OECT#   MICRO     1,,/0,25D,07D,45D,1,1/  OLD ERROR COUNT 
 #OEDM#   MICRO     1,,/0,31B,01D,52D,0,1/  1=OLD ERROR IS FROM DATA MGR. 
 #OLB#    MICRO     1,,/0,28D,01D,57D,0,1/  SIS V1
 #ONB#    MICRO     1,,/0,28D,01D,56D,0,1/  SIS V1
 #OLDE#   MICRO     1,,/0,25D,09D,36D,1,1/  OLD ERROR NUMBER
 #OWF#    MICRO     1,,/0,30D,02D,56D,1,1/  ONE WORD FLAGS          P 
 #OWM#    MICRO     1,,/0,30D,01D,57D,1,1/  ONE WORD MOVE (OWF)     P 
 #OWN#    MICRO     1,,/0,30D,01D,56D,1,1/  ONE WORD (OWF)          P 
 #PAE#    MICRO     1,,/0,30D,01D,50D,1,1/  LOG POSITION AFTER EOF G S
 #PDF#    MICRO     1,,/0,15D,01D,26D,1,1/  FILE CC DATA PROCESSED
 #PIN#    MICRO     1,,/0,30D,18D,30D,1,1/  PSEUDO IN               P 
 #POP#    MICRO     1,,/0,33D,06D,54D,3,1/  PREVIOUS OP CODE
 #PPT#    MICRO     1,,/0,30D,01D,58D,1,1/  PARTIAL PUT FLAG        P 
 #PRD#    MICRO     1,,/0,30D,01D,58D,1,1/  PARTIAL READ FLAG      G
 #PRL#    MICRO     1,,/0,25D,18D,00D,1,1/  PREVIOUS RECORD SIZE   GP 
 #PUTJ#   MICRO     1,,/0,23D,36D,00D,1,1/  JUMPS FOR PUT 
 #RDB#    MICRO     1,,/0,08D,01D,20D,1,1/  READ PERMISSION BIT 
 #RCLA#   MICRO     1,,/0,30D,01D,52D,1,1/  WHETHER TO USE AUTORCL
 #RPTL#   MICRO     1,,/0,28D,24D,36D,1,1/  REAL PTL
 #RQS#    MICRO     1,,/0,27D,24D,00D,1,1/  REQUEST SIZE           G
 #RRL#    MICRO     1,,/0,31D,24D,00D,1,1/  REAL RECORD LENGTH     GP 
 #RSI#    MICRO     1,,/0,17D,01D,20D,1,1/  GETWR INDICATOR 
 #RTJ#    MICRO     1,,/0,26D,18D,00D,1,1/  RECORD TYPE JUMP ADR     S
 #RTJG#   MICRO     1,,/0,22D,18D,00D,1,1/  RT JUMP FOR GET        G
 #RTJP#   MICRO     1,,/0,23D,18D,00D,1,1/  RT JUMP FOR PUT         P 
 #RZSW#   MICRO     1,,/0,26D,01D,59D,1,1/  SWITCH RT=R,Z            S
 #SKP#    MICRO     1,,/0,29D,18D,36D,1,1/  SKIP COUNT             G S
 #SLC#    MICRO     1,,/0,26D,06D,18D,1,1/  S/L DEVICE UNUSED CH
 #SLW#    MICRO     1,,/0,26D,18D,00D,1,1/  S/L DEVICE REDIDUAL WORDS 
 #ST#     MICRO     1,,/0,26D,07D,36D,1,1/  SKIP TYPE                S
 #STFT#   MICRO     1,,/0,15D,01D,27D,1,1/  SETFIT FLAG 
 #STFTA#  MICRO     1,,/0,15D,01D,23D,1,1/  AAM 1 SETFIT FLAG 
 #STM#    MICRO     1,,/0,29D,23D,00D,1,1/  STOP MOVE              GP 
 #TMB#    MICRO     1,,/0,28D,01D,55D,0,1/  SIS V1
 #SVO#    MICRO     1,,/0,28D,01D,58D,0,1/  SIS V1
 #TRM#    MICRO     1,,/0,30D,01D,55D,1,1/  PUTP TERMINATE          P 
 #UCP#    MICRO     1,,/0,28D,04D,22D,1,1/  USER CHAR POSITION.   G 
 #ULR#    MICRO     1,,/0,29D,01D,58D,1,1/  USER LABEL RETURN 
 #ULX#    MICRO     1,,/0,25D,18D,18D,1,1/  USER LABEL EXIT(CLOSEL) 
 #UWD#    MICRO     1,,/0,28D,22D,00D,1,1/  USER WORD ADDRESS.   GP 
 #WCR#    MICRO     1,,/0,27D,18D,42D,1,1/  W-CONTINUATION ADR      P 
 #WD42#   MICRO     1,,/0,34D,60D,00D,3,1/  JUST SO WD IS IN FIT CHART
 #WEOX#   MICRO     1,,/0,29D,02D,54D,1,1/  2=WEOP,1=WEOS,0=NEITHER P 
 .MD      IFNE      #BETA#,0
 #WSAB#   MICRO     1,,/0,15D,01D,21D,1,1/  0=SCM WSA, 1=LCM WSA
 #WSAD#   MICRO     1,,/0,15D,21D,00D,1,1/  WSA EXCLUDING LCM FLAG
 .MD      ENDIF 
 #WSAS#   MICRO     1,,/0,32D,24D,36D,1,1/  TEMP WSA STORAGE        P 
 #WSI#    MICRO     1,,/0,17D,01D,20D,1,1/  PUTWR INDICATOR 
 #ZOU#    MICRO     1,,/0,27D,18D,42D,1,1/  ADDRESS OF TPUT FET 
* END /KWML/
