Google
 

Trailing-Edge - PDP-10 Archives - BB-H348C-RM_1982 - swskit-v21/listings/tkb-vnp/libr.rpt
There are no other files named libr.rpt in the archive.
		DSK:LIBR.REQ[4,31]               31-Aug-79 14:19


!
! DEFINE THE STORAGE BLOCK USED, BY VNP20, TO DESCRIBE A
!  LIBRARY LOADED TO SATISFY A .DAT REQUEST.
!
!
!
! DEFINE THE MAX LENGTH OF A LIBRARY NAME
!

LITERAL
    LEN_LIBR_NAME = 7;

!
SBLOCK (LIBR, 21)				!LIBRARY
HEADER (LIBR)					!
ABLOCK (LIBR_NAME,CH$ALLOCATION(LEN_LIBR_NAME)*%BPVAL, 2) !ASCII NAME (ASCIZ)
ABLOCK (LIBR_ADDR, 18, 1)			!ADDRESS OF LIBRARY IN CORE IMAGE
ABLOCK (LIBR_BASE, 18, 1)			!ADDRESS CODE WAS BUILT FOR
ABLOCK (LIBR_FILE, %BPADDR, 1)			!POINTER TO ITS FILE BLOCK
EBLOCK (LIBR)					!
!