Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!
!   System specific definitions for TOPS-10
!
!   This file gives the system  specific  definitions  required
!   for  processing  files.   These differences result from the
!   different structure of the FD (GALAXY data structure) on the
!   two systems.
!


!
!  Default logical definitions (temporary)
!

MACRO
    LND_BAK_DEF = S('DSKP:[7,6,backup]') %,
    LND_DIS_DEF = S('DSKP:[7,6,dist]') %,
    LND_INS_DEF = S('SYS:') %,
    LND_PAT_DEF = S('DSKP:[7,6]') % ;


!
!   For generating syntax PDB (parser descriptor block)
!   Calling sequence:
!
!	$FILE_SPEC((list))
!

MACRO
    $FILE_SPEC(list) =
	$FILE(%REMOVE(list)) % ;


!
!  Parse a file and move the data item
!
!   Calling sequence:
!
!	$PMFIL(adr)
!
!   where adr is the address to store the address of the moved
!   data item.
!

MACRO
    $PMFIL (adr) =
	BEGIN
	$PRFIL(t,a,c) ;			! For TOPS-10
	$M_GMEM(.c+1,adr) ;
	(.adr)<18,18,0> = .c+1 ;	! Length of FD and header
	INCR n FROM 0 to .c-1 DO
	    (.adr + 1 + .n) = .(.a + .n)
	END % ;

!
!  Static FILE$$ descriptors
!

OWN					! Product Description File
    MPD_FILE:	FILE$$
	INITIAL(
	((FILE_SZ^18) OR DT_FILE),
	    UPLIT      (%O'5000000',
			%SIXBIT'PAT',
			%SIXBIT'PEP101',
			%SIXBIT'PDF',
			0,
			0),
	0,
	0,
	0,
	0) ;

OWN					! PEP HELP file
    HELP_FILE:	FILE$$
	INITIAL(
	((FILE_SZ^18) OR DT_FILE),
	    UPLIT      (%O'5000000',
			%SIXBIT'HLP',
			%SIXBIT'PEP',
			%SIXBIT'HLP',
			0,
			0),
	0,
	0,
	0,
	0) ;

OWN					! 
    PEPB_HELP_FILE:	FILE$$
	INITIAL(
	((FILE_SZ^18) OR DT_FILE),
	    UPLIT      (%O'5000000',
			%SIXBIT'HLP',
			%SIXBIT'PEPB',
			%SIXBIT'HLP',
			0,
			0),
	0,
	0,
	0,
	0) ;

OWN
    PAT_FILE:	FILE$$
	INITIAL(
	((FILE_SZ^18) OR DT_FILE),
	    UPLIT      (%O'5000000',
			%SIXBIT'PAT',
			%SIXBIT'PAT101',
			%SIXBIT'DPD',
			0,
			0),
	0,
	0,
	0,
	0) ;

![072] Checkpoint file must be on DSK:
OWN
    DB_FILE:	FILE$$
	INITIAL(
	((FILE_SZ^18) OR DT_FILE),
	    UPLIT      (%O'5000000',
			%SIXBIT'DSK',		![072]
			%SIXBIT'PEPCKP',
			%SIXBIT'PDB',
			0,
			0),
	0,
	0,
	0,
	0) ;

OWN
    PEPB_DB_FILE:	FILE$$
	INITIAL(
	((FILE_SZ^18) OR DT_FILE),
	    UPLIT      (%O'5000000',
			%SIXBIT'DSK',
			%SIXBIT'PEPCKP',
			%SIXBIT'PDB',
			0,
			0),
	0,
	0,
	0,
	0) ;

![064] Add file for updating utilities
OWN
    UPD_UTL_FILE:	FILE$$
	INITIAL(
	((FILE_SZ^18) OR DT_FILE),
	    UPLIT      (%O'5000000',
			%SIXBIT'PAT',
			%SIXBIT'UTILTY',
			%SIXBIT'UPD',
			0,
			0),
	0,
	0,
	0,
	0) ;