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

!
!   System specific definitions for TOPS-20
!
!   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('AP20:<AUTOPATCH.BACKUP>') %,
    LND_DIS_DEF = S('AP20:<AUTOPATCH.DIST>') %,
    LND_INS_DEF = S('SYS:') %,
    LND_PAT_DEF = S('AP20:<AUTOPATCH>') % ;


!
!  For generating FILE$$ descriptor
!

MACRO
    FIL(F) =
	UPLIT(
		( (%CHARCOUNT(%ASCIZ %STRING(F)) -1) /5 +1 +1)^18,
		%ASCIZ %STRING(F)
	      ) % ;

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

MACRO
    $FILE_SPEC(list) =
	$TEXT(%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
	$PRTXT(t,a,c) ;			! For TOPS-20
	$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),
	    FIL('PAT:PEP201.PDF'),
	0,
	0,
	0,
	0) ;

OWN					! PEP HELP file
    HELP_FILE:	FILE$$
	INITIAL(
	((FILE_SZ^18) OR DT_FILE),
	    FIL('HLP:PEP.HLP'),
	0,
	0,
	0,
	0) ;

OWN					!
    PEPB_HELP_FILE:	FILE$$
	INITIAL(
	((FILE_SZ^18) OR DT_FILE),
	    FIL('HLP:PEPB.HLP'),
	0,
	0,
	0,
	0) ;

OWN
    PAT_FILE:	FILE$$
	INITIAL(
	((FILE_SZ^18) OR DT_FILE),
	    FIL('PAT:PAT201.DPD'),
	0,
	0,
	0,
	0) ;

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


OWN
    PEPB_DB_FILE:	FILE$$		!For batch job look on DSK
	INITIAL(			! for .PDB file, since PAT:
	((FILE_SZ^18) OR DT_FILE),	! may be undefined.  (batch
	    FIL('DSK:PEPCKP.PDB'),	! job must use PAT: as connected
	0,				! directory)
	0,
	0,
	0) ;

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