Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/srterm.list
There are no other files named srterm.list in the archive.
SRTERM MACRO M1110 13-OCT-79 12:50 PAGE 3
1 .TITLE SRTERM
2 .IDENT /V01.01/
3 ;
4 ; COPYRIGHT (C) 1978 BY
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
6 ;
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
9 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
11 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
12 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
13 ; TRANSFERRED.
14 ;
15 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
16 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
17 ; CORPORATION.
18 ;
19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
21 ;
22 ;
23 ; MODULE DESCRIPTION:
24 ;
25 ; NCU TOP LEVEL SERVICE TERMINATION MODULE
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
35 ; 1.01 17-AUG-78 ALAN D. PECKHAM
36 ; RESET GND STATUS BYTE ON NETWORK CLOSE
37 ;
SRTERM MACRO M1110 13-OCT-79 12:50 PAGE 4
39 ;
40 ;======================================================================;
41 ;++
42 ; +-------------------------------------------------+
43 ; I I
44 ; I S R T E R M I
45 ; I - - - - - - I
46 ; I I
47 ; +-------------------------------------------------+
48 ;
49 ; FUNCTION:
50 ;
51 ; TOP LEVEL SERVICE TERMINATION MODULE
52 ;
53 ; CALLING SEQUENCE: CALL SRTERM
54 ;
55 ; INPUT:
56 ;
57 ; R5 - ADDRESS OF CONTROL BLOCK TO RELEASE
58 ;
59 ; OUTPUT: NONE
60 ;
61 ; REQUIREMENTS:
62 ;
63 ; TEMPORARY MEMORY:
64 ;
65 ; TEMBLK - FIRST TWO WORDS
66 ;
67 ; SERVICE SYMBOLS:
68 ;
69 ; NETLUN - NETWORK LOGICAL UNIT NUMBER
70 ; TEMFLG - TEMPORARY EVENT FLAG NUMBER
71 ; ;AP0001
72 ; EFFECTS: ;AP0001
73 ; ;AP0001
74 ; OUTPUT VIA GNDDAT: ;AP0001
75 ; ;AP0001
76 ; GNDSTA - SET TO IDLE ;AP0001
77 ;
78 ;--
79 ;======================================================================;
80 ;
81 ;
82 ; EXTERNAL MACROS
83 ;
84 .MCALL PROC,SRDF,GNDMDF,CLSW$S ;AP0001
85 ; ;**-1
86 ; DEFINE EXTERNAL SYMBOLS
87 ;
88 000000 SRDF ;SERVICE SYMBOLS
89 ; ;AP0001
90 ; DEFINE LOCAL SYMBOLS ;AP0001
91 ; ;AP0001
92 ; STATES ;AP0001
93 ; ;AP0001
94 000000 IDLE = 0. ;IDLE ;AP0001
95 ; ;AP0001
SRTERM MACRO M1110 13-OCT-79 12:50 PAGE 4-1
96 ; READ/WRITE STORAGE ;AP0001
97 ; ;AP0001
98 000000 GNDMDF ;GND MEMORY ;AP0001
SRTERM MACRO M1110 13-OCT-79 12:50 PAGE 5
100 ;
101 ; PROCEDURE BODY
102 ;
103 000000 PROC SRTERM
104 000000 010500 MOV R5,R0 ;SET UP ADDRESS
105 000002 CALL SRRLCI ;RELEASE IT
106 000006 CLSW$S #NETLUN,#TEMFLG ;CLOSE NETWORK ACCESS
107 000052 112767 000000 000150' MOVB #IDLE,GNDSTA ;SET GND STATE TO IDLE ;AP0001
108 000060 ENDPROC
109 000001 .END
SRTERM MACRO M1110 13-OCT-79 12:50 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 F$EXAM= 000001 F$WRRC= 000000 NE$IMG= 000053 N.RACC 000066
A$$CPS= 000000 F$EXHO= 000000 F$ZERO= 000001 NE$MLB= 000006 N.RDE 000012
A$$TRP= 000000 F$GTCM= 000001 F$ZRCN= 000001 NE$NOD= 000002 N.RDEC 000010
BLKFLG= 000003 F$INCM= 000000 F$$LVL= 000001 NE$NSD= 000003 N.RFM 000006
CMILUN= 000002 F$INLU= 000001 F$150 = 000002 NE$RES= 000001 N.RGP 000010
CMOLUN= 000001 F$IRLU= 000000 F$300 = 000012 NE$SSR= 000000 N.RID 000034
CONBLK 000006R 002 F$LKLU= 000010 F$50 = 000002 NE$SSS= 000045 N.RIDC 000032
C$$CKP= 000000 F$LNLU= 000002 F$550 = 000002 NE$STA= 000051 N.RND 000000
C$$ORE= 000400 F$LNSR= 000001 GNDCNT 000004R 002 NE$TCN= 000040 N.RNM 000016
C$$RSH= 177564 F$LOAD= 000000 GNDSTA 000150R 002 NE$TCO= 000041 N.RNMC 000014
D$$BUG= 177514 F$LOGD= 000001 G$$TPP= 000000 NE$TPA= 000010 N.ROT 000007
D$$ISK= 000000 F$LOOP= 000001 G$$TSS= 000000 NE$UOB= 000004 N.RPS 000056
D$$L11= 000001 F$NTCM= 000000 G$$TTK= 000000 NO = 000000 N.RPSC 000054
FILLUN= 000014 F$OPCL= 000001 IDLE = 000000 NO.DTR= 000077 N.RQL = 000110
FLGGRP= 000000 F$OPCO= 000000 IE.NDA= 177662 NO.FAL= 000021 N.RUS 000012
FLGMSK= 000003 F$OPIN= 000000 IE.NNT= 177660 NO.FA1= 000001 N.SDE 000042
FL$BOO= 000001 F$OPIR= 000000 IE.NRJ= 177666 NO.NCU= 000023 N.SDEC 000040
FL$DUM= 000001 F$OPLK= 000005 IE.URJ= 177667 NO.RTL= 000022 N.SEGZ 000002
FL$LOA= 000001 F$OPLN= 000002 IOSB 000000R 002 NO.TAS= 000000 N.SFM 000036
FL$LOO= 000001 F$OPLO= 000000 IS.DAO= 000002 NO.TCL= 000017 N.SGP 000040
FR$LCC= 000001 F$OPOR= 000000 I$$RAR= 000000 NO.TC1= 000005 N.SND 000030
FR$LCS= 000001 F$OPOT= 000000 I$$RDN= 000000 NO.TLK= 000020 N.SNM 000046
FR$LNC= 000001 F$ORLU= 000000 K$$CNT= 177546 NR$IFC= 000030 N.SNMC 000044
FR$LNL= 000001 F$OTLU= 000001 K$$CSR= 177546 NT.ABO= 000005 N.SOT 000037
FR$LNS= 000001 F$RCBK= 000002 K$$LDC= 000000 NT.ABT= 000004 N.SUS 000042
FR$RMC= 000001 F$RCEV= 000001 K$$TPS= 000074 NT.CON= 000001 P$$P45= 000000
FR$RML= 000001 F$RCIN= 000000 LD$LP = 000000 NT.DSC= 000003 R$$DER= 000000
FR$RMS= 000001 F$RCMA= 000000 LINLUN= 000017 NT.INT= 000002 R$$K11= 000001
FS$HOS= 000001 F$RCMS= 000002 LNKLUN= 000004 NT.LOG= 000011 R$$SND= 000000
FS$INT= 000000 F$RDBK= 000000 LUNSAV 000151R 002 NT.MOP= 000010 R$$11M= 000000
FS$LLP= 000001 F$RDCM= 000000 L$$ASG= 000000 N$$USR= 000001 SERBIT= 000001
FS$LOF= 000001 F$RDIN= 000001 L$$DRV= 000000 N.CAC 000120 SERFLG= 000001
FS$LOG= 000001 F$RDIS= 000012 L$$P11= 000001 N.CACC 000116 SRRLCI= ****** GX
FS$LST= 000001 F$RDRC= 000000 L$$11R= 000000 N.CBL = 000142 SRTERM 000000RG
FS$NET= 000001 F$RECO= 000001 M$$CRB= 000124 N.CDA 000142 S$$WRG= 000000
FS$NST= 000000 F$RLBF= 000001 M$$CRX= 000000 N.CDAC 000140 S$$YSZ= 001600
FS$PAS= 000001 F$RLCB= 000001 M$$FCS= 000000 N.CID 000064 TEMFLG= 000030
FT$CNS= 000000 F$STBK= 000000 M$$OVR= 000000 N.CIDC 000062 TIMBIT= 000002
FT$NOD= 000001 F$STPR= 000001 NCOLUN= 000016 N.CPS 000106 TIMFLG= 000002
FT$TSK= 000001 F$STPS= 000006 NETLUN= 000003 N.CPSC 000104 T$$KMG= 000000
F$ALBF= 000001 F$TEST= 000001 NE$ABO= 000046 N.CTL 000000 T$$MIN= 000000
F$ALCB= 000001 F$TRAC= 000000 NE$ABT= 000011 N.DDE 000010 V$$CTR= 001000
F$CB = 000017 F$TRBK= 000001 NE$ACC= 000042 N.DDEC 000006 X$$DBT= 000000
F$CLCL= 000001 F$TRIG= 000001 NE$ACT= 000044 N.DFM 000004 YES = 000001
F$CLCO= 000000 F$TRIN= 000000 NE$CDI= 000052 N.DGP 000006 $$CSTA= 000000
F$CLFL= 000000 F$TRMA= 000000 NE$COM= 000047 N.DNM 000014 $$PRST= 000007
F$CLLK= 000006 F$TRMS= 000002 NE$FCF= 000050 N.DNMC 000012 $$STIX= 000777
F$CLLN= 000002 F$WRBK= 000000 NE$FMT= 000005 N.DOT 000005 $$STNM= 000000
F$DPOS= 000001 F$WRCL= 000001 NE$GEN= 000007 N.DUS 000010 $$TRNM= 000000
F$DUMP= 000000 F$WRCM= 000000 NE$ILS= 000043 N.RAC 000070 $$$ARG= 000002
F$EVNT= 000001
. ABS. 000142 000
000062 001
GNDDAT 000152 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 9528 WORDS ( 38 PAGES)
SRTERM MACRO M1110 13-OCT-79 12:50 PAGE 5-2
SYMBOL TABLE
DYNAMIC MEMORY: 11116 WORDS ( 42 PAGES)
ELAPSED TIME: 00:00:52
SRTERM,[135,30]SRTERM/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRTERM
SRTERM CREATED BY MACRO ON 13-OCT-79 AT 12:50 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CONBLK 000006 R #4-98
F$TRAC = 000000 5-103 5-103 5-108 5-108
GNDCNT 000004 R #4-98
GNDSTA 000150 R #4-98 *5-107
IDLE = 000000 #4-94 5-107
IOSB 000000 R #4-98
I$$AS = ****** 5-103
LUNSAV 000151 R #4-98
NETLUN = 000003 5-106
N.CBL = 000142 4-98
R$$11D = ****** 5-103
R$$11M = 000000 5-103
SRRLCI = ****** GX 5-105
SRTERM 000000 RG #5-103
TEMFLG = 000030 5-106
$$CSTA = 000000 #5-103
$$PRST = 000007 #5-103
$$SLST = ****** 5-103 5-108
$$STIX = 000777 #5-103
$$STNM = 000000 #5-103
$$TRNM = 000000 #5-103
$$$ARG = 000002 #5-106 5-106 5-106 #5-106 5-106 5-106 5-106 5-106 5-106
5-106 5-106 5-106 5-106 5-106 #5-106 5-106 5-106 5-106
5-106 5-106 5-106 5-106 5-106 5-106 5-106
SRTERM CREATED BY MACRO ON 13-OCT-79 AT 12:50 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #5-105
CASE #5-103
CLSW$S #4-84 5-106
DIR$ #5-106 5-106
DO #5-103
ELSE #5-103
ENDCAS #5-103
ENDIF #5-103
ENDPRO #5-103 5-108
ENDWHI #5-103
FALSE #5-103
FALSEB #5-103
GNDMDF #4-84 4-98
IF #5-103
JMPPRO #5-103
MOV$ #5-106 #5-106 #5-106 #5-106 #5-106 #5-106
MVB$ #5-106 5-106
NETDF$ #4-98 #4-98
ONCASE #5-103
PROC #4-84 5-103
PROCLC #5-103
QDPB$S #5-106 5-106
RVP$ #5-106 #5-106 #5-106
SRDF #4-84 #4-88
SWSTK$ #5-103
THEN #5-103
TRUE #5-103
TRUEB #5-103
WHILE #5-103
$$BGND #5-103
$$BGNN #5-103
$$ELSE #5-103
$$GEN1 #5-103 5-103 5-108
$$GEN2 #5-103
$$GNAB #5-103
$$GNBT #5-103
$$GNCM #5-103
$$INMC #5-103 5-103
$$INSY #5-103 #5-103
$$LAB #5-103
$$POP #5-103
$$POPI #5-103
$$PUSH #5-103
$$STSM #5-103
$$SYS #5-103
$$TRCE #5-103 5-103 5-108