Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/ntilon.list
There are no other files named ntilon.list in the archive.
NTILON MACRO M1110 13-OCT-79 10:44
TABLE OF CONTENTS
4- 42 DATA
5- 82 SET LOCAL ON
NTILON MACRO M1110 13-OCT-79 10:44 PAGE 3
1 .TITLE NTILON
2 .IDENT /V01.02/
3
4 ;
5 ; COPYRIGHT (C) 1978 BY
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
7 ;
8 ;
9 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
10 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
11 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
12 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
13 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
14 ; TRANSFERRED.
15 ;
16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
17 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
18 ; CORPORATION.
19 ;
20 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
22 ;
23 ; MODULE DESCRIPTION:
24 ;
25 ; NTINIT - "SET STATE LOCAL ON" PROCESSING
26 ;
27 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
28 ;
29 ; IDENT HISTORY:
30 ;
31 ; 1.00 27-FEB-78
32 ; VERSION 2.0 RELEASE
33 ;
34 ; MODIFICATIONS:
35 ;
36 ; AP0001 6-NOV-78 ALAN D. PECKHAM
37 ; TURN NRM ON IF PRESENT.
38 ; AP0002 17-SEP-79 ALAN D. PECKHAM
39 ; REMOVE NRM TURN-ON.
40 ;
NTILON MACRO M1110 13-OCT-79 10:44 PAGE 4
DATA
42 .SBTTL DATA
43
44
45 ;
46 ; LIBRARY MACROS
47 ;
48 .MCALL DIR$,RQST$,EMSG$,EMSG$R,NTLER$,NHWDF$,DVBDF$,DCBDF$,UCBDF$
49 .MCALL ALUN$,HDRDF$
50
51 000000 NHWDF$ ;HARDWARE REGISTER DEFINITIONS
52 000000 DVBDF$ ;VCB DEFINITIONS
53 000000 DCBDF$ ;DCB DEFINITIONS
54 000000 UCBDF$ ;UCB DEFINITIONS
55 000000 HDRDF$ ;TASK HEADER OFFSETS
56
57 ;
58 ; LOCAL DATA (IMPURE)
59 ;
60 000000 .PSECT DATA,D
61
62 ;
63 ; DIRECTIVES
64 ;
65 000000 LONACP: RQST$ NETACP ;DIRECTIVE TO REQUEST NETACP
66 000016 ASSIGN: ALUN$ 2,NS,0 ;ASSIGN LUN 2 TO NS:
67
68 ;
69 ; ERROR MESSAGES
70 ;
71 .ENABL LC
72 000026 NTLER$ 15,NONE,$NIERR,,,<NS: Assignment Failure>
73 000066 NTLER$ 16,NONE,$NIERR,,,<VCB Allocation Failure>
74 000126 NTLER$ 17,NONE,$NIERR,,,<Network ACP (NETACP) Not Installed>
75 .DSABL LC
76
77 ;
78 ; START OF PURE CODE
79 ;
80 000000 .PSECT
NTILON MACRO M1110 13-OCT-79 10:44 PAGE 5
SET LOCAL ON
82 .SBTTL SET LOCAL ON
83
84 ;+
85 ; $NILON - SET STATE LOCAL ON
86 ;
87 ; REQUEST THE NETACP TO START
88 ;
89 ; INPUTS:
90 ; NETACP INSTALLED
91 ;
92 ; OUTPUTS:
93 ; THE DEVICE LIST IS SCANNED TO FIND THE NETACP. IF IT IS FOUND,
94 ; A VCB IS ALLOCATED FOR IT, AND IT IS REQUESTED TO RUN.
95 ; $NIRDB IS SET TO INDICATE SUCCESS (+) OR FAILURE (-) OR NO-OP (0).
96 ; CARRY IS SET ON FAILURE.
97 ;-
98 000000 $NILON::
99 000000 DIR$ #ASSIGN ;ASSIGN LUN 2 TO NS:
100 000006 103446 BCS 101$ ; .. ERROR
101 000010 016700 000000G MOV $HEADR,R0 ;GET TASK HEADER ADDRESS
102 000014 016005 000102 MOV H.LUN+4(R0),R5 ;GET NS: UCB ADDRESS
103 000020 016504 000034 MOV U.VCB(R5),R4 ;IS THERE ALREADY A VCB ?
104 000024 001016 BNE 30$ ; .. YES
105 000026 012701 000026 MOV #V.VBL,R1 ;VCB LENGTH
106 000032 SWSTK$ 20$ ;* ENTER KERNAL MODE
107 000036 CALL $ALOCB ;* TRY TO ALLOCATE FROM POOL
108 000042 103001 BCC 10$ ;* .. SUCCESS
109 000044 005000 CLR R0 ;* INDICATE FAILURE
110 000046 010066 000002 10$: MOV R0,2(SP) ;* SET USER MODE R0
111 000052 15$: RETURN ;* BACK TO USER MODE
112 000054 010065 000034 20$: MOV R0,U.VCB(R5) ;STORE VCB ADDRESS
113 000060 001424 BEQ 111$ ; .. ALLOCATION FAILURE
114 000062 30$: DIR$ #LONACP ;REQUEST THE ACP
115 000070 103370 BCC 15$ ; .. SUCCESS - ALL DONE
116 000072 122767 000000G 000000G CMPB #IE.ACT,$DSW ;WAS THE ACP ALREADY ACTIVE ?
117 000100 001764 BEQ 15$ ; .. YES (C-BIT IS CLEAR)
118 000102 010465 000034 MOV R4,U.VCB(R5) ;RESTORE ORIGINAL CONTENTS
119 000106 001014 BNE 121$ ; .. IT WAS NON-ZERO (?!?)
120 000110 012701 000026 MOV #V.VBL,R1 ;VCB LENGTH
121 000114 SWSTK$ 121$ ;* ENTER KERNEL MODE
122 000120 CALLR $DEACB ;* DE-ALLOCATE THE VCB
123 ;;
124 000124 101$: EMSG$R 15 ;ALUN$ FAILURE
125 000132 111$: EMSG$R 16 ;VCB ALLOCATION FAILURE
126 000140 121$: EMSG$R 17 ;RQST$ FAILURE
NTILON MACRO M1110 13-OCT-79 10:44 PAGE 6
SET LOCAL ON
128 000001 .END
NTILON MACRO M1110 13-OCT-79 10:44 PAGE 6-1
SYMBOL TABLE
ASSIGN 000016R 002 G$$TSS= 000000 MPCSR = 177746 UISAR0= 177640 U2.HLD= 000040
A$$CHK= 000000 G$$TTK= 000000 M$$CRB= 000124 UISAR1= 177642 U2.LOG= 000400
A$$CPS= 000000 G$$WRD= 000000 M$$CRX= 000000 US.ABO= 000001 U2.LWC= 000001
A$$PRI= 000000 H.CSP 000000 M$$EXT= 000000 US.BSY= 000200 U2.L3S= 000004
A$$TRP= 000000 H.CUIC 000010 M$$FCS= 000000 US.CRW= 000004 U2.L8S= 010000
A.LULU= 000002 H.DSW 000046 M$$MGE= 000000 US.DSB= 000010 U2.NEC= 004000
A.LUNA= 000004 H.DUIC 000012 M$$OVR= 000000 US.ECH= 000002 U2.PRV= 000010
A.LUNU= 000006 H.EFLM 000004 N$$LDV= 000001 US.FOR= 000040 U2.RMT= 020000
BUFUMP= 172354 H.EFSV 000040 N$$MOV= 000010 US.FRK= 000002 U2.R04= 100000
CMODE = 140000 H.FCS 000050 N$$SYS= 000001 US.LAB= 000004 U2.SLV= 000200
C$$CKP= 000000 H.FORT 000052 N$$USR= 000001 US.MDE= 000002 U2.VT5= 000002
C$$ORE= 000400 H.FPSA 000042 PIRQ = 177772 US.MDM= 000020 U2.7CH= 010000
C$$RSH= 177564 H.FPVA 000034 PMODE = 030000 US.MNT= 000100 V$$CTR= 001000
DV.CCL= 000002 H.GARD 000072 PR0 = 000000 US.OFL= 000001 V.CULT 000004
DV.COM= 020000 H.HDLN 000002 PR1 = 000040 US.OUT= 000001 V.GENQ 000016
DV.DIR= 000010 H.IPC 000016 PR2 = 000100 US.PUB= 000004 V.MBXQ 000012
DV.F11= 040000 H.IPS 000014 PR3 = 000140 US.RED= 000002 V.TIME 000003
DV.ISP= 002000 H.ISP 000020 PR4 = 000200 US.SHR= 000001 V.TIMR 000002
DV.MNT= 100000 H.LUN 000076 PR5 = 000240 US.UMD= 000010 V.TRCT 000000
DV.MXD= 000100 H.NLUN 000074 PR6 = 000300 US.WCK= 000010 V.ULT 000006
DV.OSP= 004000 H.NML 000061 PR7 = 000340 U.ACP = 000032 V.ULTE 000010
DV.PSE= 010000 H.ODVA 000022 PS = 177776 U.ATT 000022 V.VBL = 000026
DV.REC= 000001 H.ODVL 000024 P$$P45= 000000 U.BUF 000024 V.1CPQ 000022
DV.SDI= 000020 H.OVLY 000054 P$$WRD= 000000 U.CBF = 000032 W.BATT 000006
DV.SQD= 000040 H.PFVA 000032 Q$$OPT= 000010 U.CLI 177772 W.BFPD 000014
DV.SWL= 001000 H.RCVA 000036 R$$DER= 000000 U.CNT 000030 W.BHVR 000004
DV.TTY= 000004 H.RRVA 000062 R$$K11= 000001 U.CTL 000004 W.BLGH 000020
DV.UMD= 000200 H.SPRI 000060 R$$SND= 000000 U.CW1 000010 W.BLPD 000016
D$$BUG= 177514 H.TKVA 000026 R$$11M= 000000 U.CW2 000012 W.BLVR 000002
D$$ISK= 000000 H.TKVL 000030 R.QSGC= 000015 U.CW3 000014 W.BNPD 000015
D$$L11= 000001 H.VEXT 000056 R.QSPC= 000014 U.CW4 000016 W.BOFF 000012
D$$YNC= 000000 H.WND 000044 R.QSPN= 000006 U.DCB 000000 W.BPCB 000000
D$$YNM= 000000 IE.ACT= ****** GX R.QSPR= 000012 U.LUIC 177774 W.BSIZ 000010
D.DSP 000012 I$$RAR= 000000 R.QSTN= 000002 U.OWN 177776 X$$DBT= 000000
D.LNK 000000 I$$RDN= 000000 SWR = 177570 U.RED 000002 $ALOCB= ****** GX
D.MSK 000014 KISAR0= 172340 S$$WRG= 000000 U.SCB 000020 $DEACB= ****** GX
D.NAM 000004 KISAR6= 172354 S$$YSZ= 007600 U.STS 000005 $DSW = ****** GX
D.PCB 000034 K$$CNT= 177546 TPS = 177564 U.ST2 000007 $ERR15 000026RG 002
D.UCB 000002 K$$CSR= 177546 T$$KMG= 000000 U.UIC = 000052 $ERR16 000066RG 002
D.UCBL 000010 K$$LDC= 000000 T$$MIN= 000000 U.UNIT 000006 $ERR17 000126RG 002
D.UNIT 000006 K$$TPS= 000074 UBMPR = 170200 U.VCB = 000034 $HEADR= ****** GX
D.VCAN= 000002 LD$LP = 000000 UC.ALG= 000200 U2.AT.= 000020 $NIERR= ****** GX
D.VINI= 000000 LONACP 000000R 002 UC.ATT= 000010 U2.CRT= 002000 $NILON 000000RG
D.VOUT= 000004 L$$ASG= 000000 UC.KIL= 000004 U2.DH1= 100000 $$$OST= 000010
D.VPWF= 000006 L$$DRV= 000000 UC.LGH= 000003 U2.DJ1= 040000 $$$T1 = 000002
E$$XPR= 000000 L$$P11= 000001 UC.NPR= 000100 U2.DZ1= 000100 $$$T2 = 000022R 002
F$$LVL= 000001 L$$11R= 000000 UC.PWF= 000020 U2.ESC= 001000 .BASEB= 140000
G$$TPP= 000000 MPAR = 172100 UC.QUE= 000040
. ABS. 177776 000
000146 001
DATA 000202 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 6138 WORDS ( 24 PAGES)
DYNAMIC MEMORY: 6892 WORDS ( 26 PAGES)
ELAPSED TIME: 00:00:21
NTILON,[132,34]NTILON/CR/-SP=[130,10]NETLIB/ML,RSXMC7/PA:1,[132,10]NTILON
NTILON CREATED BY MACRO ON 13-OCT-79 AT 10:45 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ASSIGN 000016 R #4-66 5-99
A.LULU = 000002 4-66
BUFUMP = 172354 #4-51
CMODE = 140000 #4-51
H.LUN 000076 5-102
IE.ACT = ****** GX 5-116
I$$AS = ****** 4-51
KISAR0 = 172340 #4-51
KISAR6 = 172354 #4-51
LONACP 000000 R #4-65 5-114
MPAR = 172100 #4-51
MPCSR = 177746 #4-51
M$$MGE = 000000 4-51
PIRQ = 177772 #4-51
PMODE = 030000 #4-51
PR0 = 000000 #4-51
PR1 = 000040 #4-51
PR2 = 000100 #4-51
PR3 = 000140 #4-51
PR4 = 000200 #4-51
PR5 = 000240 #4-51
PR6 = 000300 #4-51
PR7 = 000340 #4-51
PS = 177776 #4-51
R$$11D = ****** 4-51
R.QSTN = 000002 4-65
SWR = 177570 #4-51
TPS = 177564 #4-51
UBMPR = 170200 #4-51
UISAR0 = 177640 #4-51
UISAR1 = 177642 #4-51
U.VCB = 000034 5-103 *5-112 *5-118
V.VBL = 000026 5-105 5-120
$ALOCB = ****** GX 5-107
$DEACB = ****** GX 5-122
$DSW = ****** GX 5-116
$ERR15 000026 RG #4-72 5-124
$ERR16 000066 RG #4-73 5-125
$ERR17 000126 RG #4-74 5-126
$HEADR = ****** GX 5-101
$NIERR = ****** GX 4-72 4-73 4-74
$NILON 000000 RG #5-98
$$$GLB = ****** 4-65 4-66
$$$T1 = 000002 #4-65 4-65 4-65 4-65 #4-66
$$$T2 = 000022 R #4-66 4-66
.BASEB = 140000 #4-51
NTILON CREATED BY MACRO ON 13-OCT-79 AT 10:45 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ALUN$ #4-49 #4-66
CALL 5-106 5-107 5-121
CALLR #5-122
DCBDF$ #4-48 #4-53
DIR$ #4-48 #5-99 #5-114
DVBDF$ #4-48 4-52
EMSG$ #4-48
EMSG$R #4-48 5-124 5-125 5-126
HDRDF$ #4-49 4-55
NHWDF$ #4-48 4-51
NTLER$ #4-48 #4-72 #4-73 #4-74
OFF$ #4-65 #4-66
RETURN #5-111
RQST$ #4-48 #4-65
R50$ #4-65 #4-65
SWSTK$ #5-106 #5-121
UCBDF$ #4-48 4-54