ASMB,R,L,C
      HED (FMP) F.DCB:  FMP INTERNAL DCB HEADER POINTERS
*     NAME:   F.DCB 
*     SOURCE: 92071-18196 
*     RELOC:  92071-16196 
*     PGMR:   E.D.B.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
      NAM F.DCB,7 92071-1X196 REV.2041 800708 
* 
      ENT F.DCB 
      ENT F.LU,  F.ENT, F.TYP, F.TR2
      ENT F.SC2, F.SIZ, F.RCL, F.ST1
      ENT F.S/T, F.FLG, F.TR3, F.SC3
      ENT F.BFP, F.ST2, F.RCN, F.EXN
      ENT F.BFA 
      ENT F.DLU, F.EOF, F.SPC, F.RWC
      ENT F.BFS, F.LFT
      SUP 
      SKP 
* 
*     DESCRIPTION 
* 
*     THIS ROUTINE CONTAINS POINTERS TO DCB HEADER WORDS
*     TO BE USED BY FMP ROUTINES, AND OTHER USEFUL GLOBAL 
*     PARAMETERS. 
* 
*     DCB HEADER POINTER TABLE (F.DCB) SET UP:
* 
*     : 
*     : 
*     EXT F.DCB 
*     : 
*     : 
*     LDA IDCB      GET USER DCB ADDRESS
*     LDB F.DCB     GET ADDRESS OF F.DCB TABLE
*     JSB $SETP     SET UP TABLE
*     DEF .16        16 ENTRIES 
*     : 
*     : 
* 
*     PACKING BUFFER SIZE (F.BFS) 
*     WORDS REMAINING (F.LFT) SET UP: 
*     : 
*     : 
*     LDA F.ST1,I   GET FIRST STATUS WORD 
*     AND =B77600    ISOLATE PACKING BUFFER SIZE
*     STA F.BFS       AND SAVE
*     CMA,INA       NEGATE BUFFER SIZE
*     STA F.LFT      AND SAVE 
*     : 
*     : 
      SKP 
* 
*     STORAGE AREA
* 
F.LU  NOP           - POINTERS TO USER DCB HEADER WORDS 
F.ENT NOP           ! 
F.TYP NOP           ! 
F.TR2 NOP           ! 
F.SC2 NOP           ! 
F.SIZ NOP           ! 
F.RCL NOP           ! 
F.ST1 NOP           ! 
F.S/T NOP           ! 
F.FLG NOP           ! 
F.TR3 NOP           ! 
F.SC3 NOP           ! 
F.BFP NOP           ! 
F.ST2 NOP           ! 
F.RCN NOP           ! 
F.EXN NOP           ! 
F.BFA NOP           - 
* 
F.DCB DEF F.LU
* 
F.DLU EQU F.TR2 
F.EOF EQU F.SC2 
F.SPC EQU F.SIZ 
F.RWC EQU F.RCL 
* 
F.BFS NOP           PACKING BUFFER SIZE (IN WORDS)
F.LFT NOP           WORDS REMAINING IN PACKING BUFFER (NEGATIVE)
* 
END   EQU * 
* 
      END 
                                                                                                                                          