ASMB,R,L,C
      HED COMPILER LIBRARY BINARY FILE CONTROL BLOCK
      NAM C.BNS,7 92060-16102 770515 REV. 1901 $CLIB
* 
* 
*************************************************************** 
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  ALL RIGHTS     * 
* RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE-  * 
* REPRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * 
* OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.   * 
*************************************************************** 
* 
* 
* 
*   SOURCE PART NUMBER :       92060-18082
* 
* 
* 
*  WRITE BINARY - SHARE RESOURCES 
* 
* 
*           GENERAL FILE CONTROL BLOCK FORMAT 
* 
* 
*        15 14 13 12 11 10  9  8  7  6  5  4  3  2  1  0
*       +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ 
* C.LNK !              LINK TO NEXT FCB                 !  WORD 0 
*       +--+-----------+--------------+--------+--------+ 
* C.FID !DD!DFLT PRM#  ! FCB #        !XXXXXXXX!FCB TYPE!  WORD 1 
*       +--+-----------+--------------+--------+--------+ 
* C.FLU !              !FUNCT CODE    !  LOGICAL UNIT # !  WORD 2 
*       +--------------+--------------+-----------------+ 
* C.STR !       CURRENT EXTENT START TRACK NUMBER       !  WORD 3 
*       +-----------------------------------------------+ 
* C.SSC !       CURRENT EXTENT START BLOCK NUMBER       !  WORD 4 
*       +-----------------------------------------------+ 
* C.RSC !         CURRENT EXTENT OFFSET BLOCK           !  WORD 5 
*       +-----------------------------------------------+ 
* C.EXT !              EXTENT NUMBER                    !  WORD 6 
*       +-----------------------------------------------+ 
* C.S/T !        NUMBER OF BLOCKS IN TRACK              !  WORD 7 
*       +-----------------------------------------------+ 
* C.#SC !        NUMBER OF BLOCKS PER EXTENT            !  WORD 8 
*       +-----------------------------------------------+ 
* C.FA1 !              DIRECTORY ADDRESS                !  WORD 9 
*       +-------------                   ---------------+ 
* C.FA2 !                  FROM D.RTR                   !  WORD 10
*       +-----------------------------------------------+ 
* C.HTR !              HEAD TRACK NUMBER                !  WORD 11
*       +-----------------------------------------------+ 
* C.HLU !          HEAD TRACK LOGICAL UNIT              !  WORD 12
*       +-----------------------------------------------+ 
* C.SLU !          SECONDARY LOGICAL UNIT NUMBER        !  WORD 13
*       +-----------------------------------------------+ 
* C.RC# !                  RECORD NUMBER                !  WORD 14
*       +-----------------------------------------------+ 
* C.??  !                PROMPT CHARACTERS              !  WORD 15
*       +-----------------------------------------------+ 
* C.WRD !              CURRENT  WORD  POINTER           !  WORD 16
*       +-----------------------------------------------+ 
* C.BUF !                 BUFFER ADDRESS                !  WORD 17
*       +-----------------------------------------------+ 
* C.GRW !        REWIND CHECK GUARANTEE ADDRESS         !  WORD 18
*       +-----------------------------------------------+ 
* C.INS !          $INCLUDE ROUTINE ADDRESS             !  WORD 19
*       +-----------------------------------------------+ 
* C.CNT !          CONTROL ROUTINE ADDRESS              !  WORD 20
*       +-----------------------------------------------+ 
* 
* 
* 
* 
* 
*  DETERMINE TYPE OF OPERATION
* 
*   THE FCB CONTAINS THE OPERATION TYPE AS FOLLOWS: 
* 
*      TYPE  =  0   IS READ SOURCE FILE(OR LU)
*            =  1   IS WRITE BINARY FILE(OR LU) 
*            =  2   IS WRITE SCRATCH FILE 
*            =  3   IS WRITE LIST  FILE(OR LU)
*            =  4   IS REWINDABLE SOURCE
* 
* 
* 
      ENT C.BNS 
* 
      EXT C.DUM     DUMMY WARC. 
      EXT INSC.     $INCLUDE ROUTINE
      EXT CNTC.     CONTROL ROUTINE 
* 
* 
*       WHERE:   FCB TYPE  =  0   FOR READ SOURCE 
*                          =  1   FOR WRITE BINARY
*                          =  2   FOR READ-WRITE SCRATCH
*                          =  3   FOR WRITE SOURCE
*                FCB # =  THE NUMBER ASSIGNED TO THIS FCB 
*                DFLT PR #  = THE DEFAULT PARAMETER NUMBER
*                DD        =  0 FOR DISC DEVICE 
*                             1 FOR UNIT RECORD DEVICE
* 
* 
* 
* 
* 
* 
C.BNS NOP           LINK
      OCT 14001     DEFAULT PARAMETER #3, WRITE BINARY FILE 
      NOP           LOGICAL UNIT
      NOP           START TRACK NUMBER
      NOP           START SECTOR NUMBER 
      NOP           OFFSET BLOCK NUMBER 
      NOP           EXTENT NUMBER 
      NOP           NUMBER OF BLOCKS PER TRACK
      NOP           NUMBER OF BLOCKS IN EXTENT
      NOP           DIRECTORY ADDRESS 
      NOP             FROM D.RTR
      NOP           HEAD TRACK NUMBER 
      NOP           HEAD TRACK LOGICAL UNIT 
      NOP           SECONDARY LOGICAL UNIT
      NOP           CURRENT RECORD NUMBER 
      NOP           PROMPT CHARACTERS 
      NOP           CURRENT WORD POINTER
      DEF BUFR      BUFFER ADDRESS
      DEF C.DUM     REWIND GUARANTEE ROUTINE
      DEF INSC.     $INCLUDE ROUTINE ADDRESS
      DEF CNTC.     CONTROL ROUTINE ADDRESS 
* 
* 
BUFR  BSS 129       DUMMY BUFFER
      END 
                                                                                                                                                                                                                                            