ASMB,R,L,C
      HED COMPILER LIBRARY FILE CONTROL BLOCK 
      NAM C.SC2,7 92060-16102 770802 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.   * 
*************************************************************** 
      SPC 2 
*  SOURCE PART NUMBER:      92060-18081 
* 
*  READ - WRITE SCRATCH FILE - REWIND IF NECESSARY
* 
* 
* 
*           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.S/T !        NUMBER OF BLOCKS IN TRACK              !  WORD 5 
*       +-----------------------------------------------+ 
* C.#SC !        NUMBER OF BLOCKS PER EXTENT            !  WORD 6 
*       +-----------------------------------------------+ 
* C.FA1 !              DIRECTORY ADDRESS                !  WORD 7 
*       +-------------                   ---------------+ 
* C.FA2 !                  FROM D.RTR                   !  WORD 8 
*       +-----------------------------------------------+ 
* C.HTR !              HEAD TRACK NUMBER                !  WORD 9 
*       +-----------------------------------------------+ 
* C.HLU !           HEAD LOGICAL UNIT NUMBER            !  WORD 10
*       +-----------------------------------------------+ 
* C.??  !             PROMPT CHARACTERS                 !  WORD 11
*       +-----------------------------------------------+ 
* C.SLU !          SECONDARY LOGICAL UNIT NUMBER        !  WORD 12
*       +-----------------------------------------------+ 
* C.RC# !                  RECORD NUMBER                !  WORD 13
*       +-----------------------------------------------+ 
* C.WRD !           CURRENT WORD POINTER                !  WORD 14
*       +-----------------------------------------------+ 
* C.RSC +        CURRENT EXTENT OFFSET BLOCK            !  WORD 15
*       +-----------------------------------------------+ 
* C.EXT !               EXTENT NUMBER                   !  WORD 16
*       +-----------------------------------------------+ 
* C.NAM !           PARSED NAMR WORD 1                  !  WORD 17
*       +-----------------------------------------------+ 
* C.NA2 !                       WORD 2                  !  WORD 18
*       +-----------------------------------------------+ 
* C.NA3 !                       WORD 3                  !  WORD 19
*       +-----------------------------------------------+ 
* C.TYP !                       WORD 4                  !  WORD 20
*       +-----------------------------------------------+ 
* C.SC  !                       WORD 5                  !  WORD 21
*       +-----------------------------------------------+ 
* C.CR  !                       WORD 6                  !  WORD 22
*       +-----------------------------------------------+ 
* C.FTY !                       WORD 7                  !  WORD 23
*       +-----------------------------------------------+ 
* C.FSZ !                       WORD 8                  !  WORD 24
*       +-----------------------------------------------+ 
* C.NA9 !                       WORD 9                  !  WORD 25
*       +-----------------------------------------------+ 
* C.NA0 !                       WORD 10                 !  WORD 26
*       +-----------------------------------------------+ 
* C.BUF !             BUFFER ADDRESS                    !  WORD 27
*       +-----------------------------------------------+ 
* C.GRW !        REWIND CHECK GUARANTEE ADDRESS         !  WORD 28
*       +-----------------------------------------------+ 
* C.INS !          $INCLUDE ROUTINE ADDRESS             !  WORD 29
*       +-----------------------------------------------+ 
      SKP 
      ENT C.SC2 
* 
      EXT C.BS2     LIST BUFFER ADDRESS 
      EXT C.DUM     $INCLUDE 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.SC2 NOP           LINK
      OCT 00102     READ OR WRITE SCRATCH 
      OCT 1         LOGICAL UNIT
      NOP           START TRACK NUMBER
      NOP           START SECTOR 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 LOGICAL UNIT NUMBER
      NOP           SECONDARY LOGICAL UNIT
      NOP           PROMPT CHARACTERS 
      NOP           CURRENT RECORD NUMBER 
      NOP           CURRENT WORD POINTER
      NOP           CURRENT EXTENT OFFSET BLOCK 
      NOP           EXTENT NUMBER 
      NOP           PARSED NAMR WORD 1
      NOP           PARSED NAMR WORD 2
      NOP           PARSED NAMR WORD 3
      NOP           PARSED NAMR WORD 4
      NOP           PARSED NAMR WORD 5
      NOP           PARSED NAMR WORD 6
      NOP           PARSED NAMR WORD 7
      NOP           PARSED NAMR WORD 8
      NOP           PARSED NAMR WORD 9
      NOP           PARSED NAMR WORD 10 
      DEF C.BS2     BUFFER ADDRESS
      DEF C.DUM     REWIND GUARANTEE ROUTINE
      DEF C.DUM     $INCLUDE ROUTINE ADDRESS
      END 
                                                                                                                                                                                      