Trailing-Edge
-
PDP-10 Archives
-
BB-J710A-BM
-
tools/nrt20/stnrt.lst
There are no other files named stnrt.lst in the archive.
STNRT - Program to create NRTSRV as a not logged in job MACRO %53A(1152) 15:52 14-Feb-80 Page 2
STNRT MAC 21-Sep-79 11:43
1 TITLE STNRT - Program to create NRTSRV as a not logged in job
2
3
4
5
6 ;COPYRIGHT (C) 1979 BY
7 ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
8 ;
9 ;
10 ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
11 ;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
12 ;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
13 ;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
14 ;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
15 ;TRANSFERRED.
16 ;
17 ;
18 ;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
19 ;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
20 ;CORPORATION.
21 ;
22 ;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
23 ;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
24
STNRT - Program to create NRTSRV as a not logged in job MACRO %53A(1152) 15:52 14-Feb-80 Page 3
STNRT MAC 21-Sep-79 11:43
25
26 SALL ; Keep listing uncluttered, no macro expansion
27 SEARCH MONSYM,MACSYM ; Universals to search
28 .REQUIRE SYS:MACREL ; Make LINK load these automatically
29
30 ;
31 ; This program creates a job running NRTSRV to provide a means for
32 ; network users to login to the system. NRTSRV provides the facility
33 ; for remote terminals to behave as though they were terminals connected
34 ; directly to a PTY on the local system.
35
STNRT - Program to create NRTSRV as a not logged in job MACRO %53A(1152) 15:52 14-Feb-80 Page 4
STNRT MAC 21-Sep-79 11:43 DECLARED SYMBOLS
36 SUBTTL DECLARED SYMBOLS
37
38 000001 T1==1 ; AC definitions
39 000002 T2==2
40 000017 P==17
41
42 000010 NPDL==10 ; Size of pushdown list
43
STNRT - Program to create NRTSRV as a not logged in job MACRO %53A(1152) 15:52 14-Feb-80 Page 5
STNRT MAC 21-Sep-79 11:43 IMPURE STORAGE
44 SUBTTL IMPURE STORAGE
45
46 000000' PDL: BLOCK NPDL ; Pushdown list (stack)
47
48 ; Argument block for CRJOB JSYS
49 000010' 000000 000000 CRJBLK: 0 ; No user name string
50 000011' 000000 000000 0 ; No password string
51 000012' 000000 000000 0 ; No account string
52 000013' 777777 000034' -1,,[ASCIZ /SYS:NRTSRV.EXE/] ; Pointer to file name to be placed in job
53 000014' 000000 000000 0 ; Entry vector offset
54 000015' 000000 377777 377777 ; Controlling terminal designator is null device
55 000016' 000000 000000 0 ; (Reserved)
56 000017' 000000 000000 0 ; Address of AC block
57 000020' 000000 000000 0 ; Command language processor flags
58 000021' 000000 000000 0 ; Primary I/O designators for inferior processes
59 000022' 000000 000000 0 ; CPU runtime limit (0 = no limit)
60 000023' 000000 000000 0 ; Capability mask for job
61 000024' 000000 000000 0 ; IPCF PID for logout message
62
STNRT - Program to create NRTSRV as a not logged in job MACRO %53A(1152) 15:52 14-Feb-80 Page 6
STNRT MAC 21-Sep-79 11:43 START - Start of program
63 SUBTTL START - Start of program
64
65 000025' 104 00 0 00 000147 START: RESET ; Initialize ourself
66 000026' 200 17 0 00 000037' MOVE P,[IOWD NPDL,PDL] ; Initialize PDL pointer
67 000027' 205 01 0 00 010440 MOVX T1,CJ%FIL!CJ%NPW!CJ%CAP ; CRJOB flags
68 000030' 201 02 0 00 000010' MOVEI T2,CRJBLK ; Address of argument block
69 000031' 104 00 0 00 000002 CRJOB ; Create the job
70 000032' 000000000000# JSHLT ; Failed
71 000033' 104 00 0 00 000170 HALTF ; Made it
72
73 000025' END START
NO ERRORS DETECTED
PROGRAM BREAK IS 000040
CPU TIME USED 00:00.925
69P CORE USED
STNRT - Program to create NRTSRV as a not logged in job MACRO %53A(1152) 15:52 14-Feb-80 Page S-1
STNRT MAC 21-Sep-79 11:43 SYMBOL TABLE
CJ%CAP 000040 000000 sin
CJ%FIL 010000 000000 sin
CJ%NPW 000400 000000 sin
CRJBLK 000010'
CRJOB 104000 000002 int
HALTF 104000 000170 int
JSHLT 000000000000# pol
JSHLT0 000000 ext
NPDL 000010 spd
P 000017 spd
PDL 000000'
RESET 104000 000147 int
START 000025'
T1 000001 spd
T2 000002 spd
CJ%CAP 67
CJ%FIL 67
CJ%NPW 67
CRJBLK 49# 68
JSHLT 70
NPDL 42# 46 66
P 40# 66
PDL 46# 66
START 65# 73
T1 38# 67
T2 39# 68
..MX1 67# 67 68
..MX2 67# 67 68
.PSECT 67 68
CRJOB 69
HALTF 71
MOVX 67
RESET 65