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

	TITLE	STNRT - Program to create NRTSRV as a not logged in job




;COPYRIGHT (C) 1979 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
;TRANSFERRED.
;
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
;AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

	SALL			; Keep listing uncluttered, no macro expansion
	SEARCH	MONSYM,MACSYM	; Universals to search
	.REQUIRE SYS:MACREL	; Make LINK load these automatically

;
; This program creates a job running NRTSRV to provide a means for
; network users to login to the system. NRTSRV provides the facility
; for remote terminals to behave as though they were terminals connected
; directly to a PTY on the local system.

	SUBTTL	DECLARED SYMBOLS

	T1==1			; AC definitions
	T2==2
	P==17

	NPDL==10		; Size of pushdown list

	SUBTTL	IMPURE STORAGE

PDL:	BLOCK NPDL		; Pushdown list (stack)

				; Argument block for CRJOB JSYS
CRJBLK:	0			; No user name string
	0			; No password string
	0			; No account string
	-1,,[ASCIZ /SYS:NRTSRV.EXE/] ; Pointer to file name to be placed in job
	0			; Entry vector offset
	377777			; Controlling terminal designator is null device
	0			; (Reserved)
	0			; Address of AC block
	0			; Command language processor flags
	0			; Primary I/O designators for inferior processes
	0			; CPU runtime limit (0 = no limit)
	0			; Capability mask for job
	0			; IPCF PID for logout message

	SUBTTL	START - Start of program

START:	RESET			; Initialize ourself
	MOVE P,[IOWD NPDL,PDL]	; Initialize PDL pointer
	MOVX T1,CJ%FIL!CJ%NPW!CJ%CAP ; CRJOB flags
	MOVEI T2,CRJBLK		; Address of argument block
	CRJOB			; Create the job
	 JSHLT				; Failed
	HALTF			; Made it

	END START