ASMB,R,L,C
      HED COMPILER LIBRARY FILE CONTROL BLOCK 
      NAM C.SOR,7 92060-16102 770815 REV. 1901 $CLIB
* 
*  SOURCE: 92060-18076
* 
*  READ/REWIND FILE CONTROL BLOCK 
*    SCRATCH FILE CREATED IF NECESSARY TO SUPPORT RE-READ 
* 
* 
*           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.BSO !             BUFFER ADDRESS                    !  WORD 27
*       +-----------------------------------------------+ 
* C.GRW !        REWIND CHECK GUARANTEE ADDRESS         !  WORD 28
*       +-----------------------------------------------+ 
* C.INS !          $INCLUDE ROUTINE ADDRESS             !  WORD 29
*       +-----------------------------------------------+ 
      SKP 
      ENT C.SOR 
* 
      EXT C.BSO     SOURCE BUFFER ADDRESS 
      EXT WARC.     WRITE AFTER READ PROCEDURE
      EXT INSC.     $INCLUDE ROUTINE
* 
* 
*       WHERE:   FCB TYPE  =  0   FOR READ SOURCE 
*                          =  1   FOR WRITE BINARY
*                          =  2   FOR READ-WRITE SCRATCH
*                          =  3   FOR WRITE SOURCE
*                          =  4   FOR WRITE-READ SOURCE 
*                          =  5   FOR WRITE BINARY ABSOLUTE 
*                FCB # =  THE NUMBER ASSIGNED TO THIS FCB 
*                DFLT PR #  = THE DEFAULT PARAMETER NUMBER
*                DD        =  0 FOR DISC DEVICE 
*                             1 FOR UNIT RECORD DEVICE
* 
* 
* 
* 
* 
* 
C.SOR NOP           LINK
      OCT 4004      DEFAULT PARAMETER #1, READ SOURCE 
      NOP           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.BSO     BUFFER ADDRESS
      DEF WARC.     REWIND GUARANTEE ROUTINE
      DEF INSC.     $INCLUDE ROUTINE ADDRESS
      END 
                                                                                                                                    