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

;<3-MONITOR>LDINIT.MAC.73,  7-Nov-77 13:03:24, EDIT BY KIRSCHEN
;MORE COPYRIGHT UPDATING...
;<3-MONITOR>LDINIT.MAC.72, 10-Oct-77 10:50:23, EDIT BY KIRSCHEN
;UPDATE COPYRIGHT FOR RELEASE 3
;<3-MONITOR>LDINIT.MAC.71,  2-Oct-77 17:09:49, EDIT BY MILLER
;FINAL FIX TO MAKE LDINIT WORK WITH SECTION #'S AS GLOBALS
;<3-MONITOR>LDINIT.MAC.70,  2-Oct-77 15:58:15, EDIT BY MILLER
;TEMP FIX TO MAKE DEFJS WORK
;<3-MONITOR>LDINIT.MAC.69,  2-Oct-77 14:59:01, EDIT BY MILLER
;fix bug in makent macro so can make section #'s global
;<3BOSACK>LDINIT.MAC.68, 22-Aug-77 23:01:16, EDIT BY BOSACK
;<3-MONITOR>LDINIT.MAC.67, 12-Aug-77 18:59:19, EDIT BY BOSACK
;<3-MONITOR>LDINIT.MAC.66, 12-Aug-77 18:53:19, EDIT BY BOSACK
;<3-MONITOR>LDINIT.MAC.64, 12-Aug-77 18:33:25, EDIT BY BOSACK
;<3-MONITOR>LDINIT.MAC.63, 12-Aug-77 02:49:54, EDIT BY BOSACK
;<3-MONITOR>LDINIT.MAC.62, 12-Aug-77 02:42:25, EDIT BY BOSACK
;ELIMINATE ABSOLUTE LOADING OF JSTAB
;<3BOSACK>LDINIT.MAC.70,  9-Aug-77 01:52:00, EDIT BY BOSACK
;<3BOSACK>LDINIT.MAC.69,  9-Aug-77 01:01:29, EDIT BY BOSACK
;<3BOSACK>LDINIT.MAC.68,  5-Aug-77 02:13:32, EDIT BY BOSACK
;<3BOSACK>LDINIT.MAC.67,  5-Aug-77 02:05:42, EDIT BY BOSACK
;<3BOSACK>LDINIT.MAC.66,  5-Aug-77 00:56:13, EDIT BY BOSACK
;<3BOSACK>LDINIT.MAC.65,  5-Aug-77 00:38:19, EDIT BY BOSACK
;<3BOSACK>LDINIT.MAC.64, 27-May-77 21:18:24, EDIT BY BOSACK
;<3BOSACK>LDINIT.MAC.63,  4-May-77 00:46:40, EDIT BY BOSACK
;<3BOSACK>LDINIT.MAC.62,  4-May-77 00:45:45, EDIT BY BOSACK
;<3BOSACK>LDINIT.MAC.61,  3-May-77 00:33:22, EDIT BY BOSACK
;<3-MONITOR>LDINIT.MAC.60,  2-May-77 18:33:45, EDIT BY HURLEY
;<3-MONITOR>LDINIT.MAC.59, 27-Dec-76 17:33:40, EDIT BY HURLEY
;<3-MONITOR>LDINIT.MAC.58,  1-Dec-76 03:17:49, Edit by MCLEAN
;<3-MONITOR>LDINIT.MAC.57, 30-Nov-76 12:06:20, Edit by HESS
;<3-MONITOR>LDINIT.MAC.56, 30-Nov-76 11:55:42, Edit by HESS
;TCO 1669 - CHANGE DEFJS MACRO FOR SECTION INFO
;<2-MONITOR>LDINIT.MAC.55, 12-Aug-76 10:41:10, Edit by HESS
;<2-MONITOR>LDINIT.MAC.54, 12-Aug-76 10:17:31, Edit by HESS
;<2-MONITOR>LDINIT.MAC.53, 11-Aug-76 17:12:51, Edit by HESS
;<2-MONITOR>LDINIT.MAC.52, 11-Aug-76 16:28:02, Edit by HESS
;CHANGE METHOD OF ADDING NEW JSYS DISPATCHES (USE MONSYM DEFS)
;<2-MONITOR>LDINIT.MAC.6, 21-Jun-76 15:26:09, EDIT BY MILLER
;MANUAL MERGE OF 1B EDITS
;<1B-MONITOR>LDINIT.MAC.49,  8-JUN-76 14:48:39, EDIT BY KIRSCHEN
;TCO 1323 - ADD RCUSR JSYS
;<1B-MONITOR>LDINIT.MAC.48,  8-JUN-76 14:28:42, EDIT BY KIRSCHEN
;TCO 1323 - ADD RCDIR
;<1B-MONITOR>LDINIT.MAC.47,  3-JUN-76 12:47:42, EDIT BY KIRSCHEN
;TCO 1323 - ADD SFUST
;<1B-MONITOR>LDINIT.MAC.46,  2-JUN-76 11:23:13, EDIT BY KIRSCHEN
;TCO 1323 - ADD GFUST JSYS
;<1B-MONITOR>LDINIT.MAC.45,  1-JUN-76 12:52:42, EDIT BY KIRSCHEN
;TCO 1323 - ADD ACCES JSYS
;<2-MONITOR>LDINIT.MAC.4, 11-JUN-76 10:58:41, EDIT BY KIRSCHEN
;ADD RCDIR JSYS
;<2-MONITOR>LDINIT.MAC.3, 28-MAY-76 11:17:50, EDIT BY KIRSCHEN
;<2-MONITOR>LDINIT.MAC.2, 25-MAY-76 13:27:11, EDIT BY KIRSCHEN
;TCO 1316 - ADD MSTR JSYS
;<1MONITOR>LDINIT.MAC.44,  5-MAR-76 16:49:49, EDIT BY KIRSCHEN
;TCO 1152 - ADD LPINI JSYS
;<2MONITOR>LDINIT.MAC.43, 16-JAN-76 17:50:04, EDIT BY MURPHY
;<2MONITOR>LDINIT.MAC.42, 16-JAN-76 17:39:25, EDIT BY MURPHY
;<2MONITOR>LDINIT.MAC.41, 30-DEC-75 14:03:40, EDIT BY MILLER


;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976, 1977, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

	SEARCH PROLOG,MONSYM
	TITLE LDINIT
	ENTRY $LDINIT
	$LDINIT==:0
	SALL

DEFINE PBEGIN(SECT,SYMPG,SYMADR)<
	.PSECT SECT
SYMADR::BLOCK 0
	SYMPG=:SYMADR_-PGSFT
	.ENDPS SECT
>

PBEGIN(RSCOD,RSCDPG,RSCDBG)
PBEGIN(INCOD,INCDPG,INCDBG)
PBEGIN(RSVAR,RESPG,RESLOC)
PBEGIN(BGPTR,BGPTRP,BGPTR)
PBEGIN(BGSTR,BGSTRP,BGSTR)
PBEGIN(PPVAR,PPRMPG,PPRMA)
PBEGIN(NRVAR,NRESPG,NRESBG)
PBEGIN(NRCOD,SWPMPG,SWPMA)
PBEGIN(NPVAR,NRPLPG,NRPLBG)


MAXJS==777			;MAXIMUM JSYS NUMBER

;JSYS DISPATCH TABLE.

	.PSECT RSCOD
JSTAB::

;ON PASS1 DEFINE THE SLOTS TAKEN BY REAL JSYS DEFINITIONS

IF1,<
   DEFINE DEFJS (NAM,VAL,SECN,COD) <
      IFGE <VAL-MAXJS>,<PRINTX *** JSYS NAM .GT. 777 ***>
      IFDIF <COD>,<NIM>,<
	IFB <SECN>,<
	  %%'VAL==<PCU>B53,,.'NAM##	;;DEFINE SLOT AND REFERENCE SYMBOL
	>
	IFNB <SECN>,<
	  %%'VAL==SECN##+<PCU>B53,,.'NAM##
	>
      >
   >

;NOW EXPAND JSYS LIST

	JSLIST

> ;;; END OF IF1

;ON PASS2 FILL TABLE WITH DEFINES ENTRIES AND DEFAULTS IF
; SLOT IS EMPTY

IF2,<
   DEFINE MAKENT (SLOT) <
  IFNDEF %%'SLOT,<<PCU>B53,,UJSYS0##>
  IFDEF %%'SLOT,<
	%%'SLOT
	PURGE %%'SLOT
      >
   >

%%CNT==0		;INIT COUNTER
REPEAT MAXJS,<			;;REPEAT FROM 0 TO 776
	MAKENT (\%%CNT)	;MAKE AN ENTRY
	%%CNT==%%CNT+1
>

;SPECIAL ENTRY TO MINIEXEC

	XWD <PCU>B53,.EXEC##
> ;;; END IF2


	.ENDPS RSCOD

	END