Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/lploop.list
There are no other files named lploop.list in the archive.
LPLOOP MACRO M1110 13-OCT-79 12:02
TABLE OF CONTENTS
8- 48 LPLOOP
LPLOOP MACRO M1110 13-OCT-79 12:02 PAGE 3
1 .TITLE LPLOOP
2 .IDENT /V01.00/
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 LOOPBACK PROCESSOR
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
LPLOOP MACRO M1110 13-OCT-79 12:02 PAGE 4
36 ;
37 ; +-------------------------------------------------+
38 ; I I
39 ; I L O O P B A C K I
40 ; I - - - - - - - - I
41 ; I I
42 ; +-------------------------------------------------+
43 ;
44 ; FUNCTION:
45 ;
46 ; NICE LOOPBACK PROCESSOR
LPLOOP MACRO M1110 13-OCT-79 12:02 PAGE 5
LPLOOP
48 .SBTTL LPLOOP
49 ;
50 ;======================================================================;
51 ;++
52 ; +-------------------------------------------------+
53 ; I I
54 ; I L P L O O P I
55 ; I - - - - - - I
56 ; I I
57 ; +-------------------------------------------------+
58 ;
59 ; FUNCTION:
60 ;
61 ; PROCESSOR MODULE TO LOOP BACK A NICE LOOP MESSAGE
62 ;
63 ; INPUT:
64 ;
65 ; R5 - ADDRESS OF CONTROL BLOCK
66 ; C.ADDR - ADDRESS OF MESSAGE BUFFER
67 ; C.FUNC - FUNCTION JUST PERFORMED
68 ; C.LEN - LENGTH OF MESSAGE
69 ;
70 ; OUTPUT:
71 ;
72 ; C-BIT - CLEAR
73 ; @R5 - UPDATED CONTROL BLOCK
74 ; C.ADDR - ADDRESS OF MESSAGE TO SEND OR BUFFER TO RELEASE
75 ; C.CTXT - ON FINAL RETURN, -1
76 ; C.FUNC - FUNCTION TO PERFORM
77 ; C.LEN - LENGTH OF MESSAGE TO SEND
78 ; C.PROC - ON FINAL RETURN, PROCESSOR TO RETURN TO
79 ;
80 ; REQUIREMENTS:
81 ;
82 ; PROCESSOR SYMBOLS:
83 ;
84 ; P$GTCM - PROCESSOR NUMBER OF GET COMMAND PROCESSOR
85 ;
86 ; NICE MESSAGE SYMBOLS:
87 ;
88 ; NE$FUN - INVALID FUNCTION OR OPTION RETURN CODE
89 ; NS$SUC - SUCCESS RETURN CODE
90 ;
91 ; CONTROL BLOCK SYMBOLS:
92 ;
93 ; C.ADDR - OFFSET OF ADDRESS FIELD
94 ; C.CTXT - OFFSET OF CONTEXT FIELD
95 ; C.FUNC - OFFSET OF FUNCTION CODE FIELD
96 ; C.LEN - OFFSET OF LENGTH FIELD
97 ; C.PROC - OFFSET OF PROCESSOR FIELD
98 ; C$PROC - PROCESS FUNCTION CODE
99 ; C$RLBF - RELEASE BUFFER FUNCTION CODE
100 ; C$TRMS - TRANSMIT MESSAGE FUNCTION CODE
101 ;
102 ;--
103 ;======================================================================;
104 ;
LPLOOP MACRO M1110 13-OCT-79 12:02 PAGE 5-1
LPLOOP
105 ; EXTERNAL MACROS
106 ;
107 .MCALL PROC,CONDF,NICDF,PRDF
108 ;
109 ; DEFINE EXTERNAL SYMBOLS
110 ;
111 000000 CONDF ;CONTROL BLOCK SYMBOLS
112 000000 NICDF ;NICE MESSAGE SYMBOLS
113 000000 PRDF ;PROCESSOR SYMBOLS
LPLOOP MACRO M1110 13-OCT-79 12:02 PAGE 6
LPLOOP
115 ;
116 ; PROCEDURE BODY
117 ;
118 000000 PROC LPLOOP
119 000000 IF ; FUNCTION CODE = PROCESS
120 000000 FALSEB NE C.FUNC(R5),#C$PROC
121 000010 THEN
122 000010 005265 000014 INC C.ADDR(R5) ;MOVE ADDRESS TO POINT TO OPTION BYTE
123 000014 IF ; MESSAGE LENGTH < 2
124 000014 FALSE GE C.LEN(R5),#2.
125 000024 THEN
126 000024 012765 000001 000012 MOV #1,C.LEN(R5) ;1 BYTE RESPONSE MESSAGE
127 000032 112775 177776 000014 MOVB #NE$FOR,@C.ADDR(R5) ;MESSAGE FORMAT ERROR
128 000040 ELSE
129 000042 IF ; OPTION <> 0
130 000042 FALSEB CLEAR @C.ADDR(R5)
131 000050 THEN
132 000050 012765 000001 000012 MOV #1,C.LEN(R5) ;1 BYTE RESPONSE MESSAGE
133 000056 112775 177777 000014 MOVB #NE$FUN,@C.ADDR(R5) ;FUNCTION CODE ERROR
134 000064 ELSE
135 000066 005365 000012 DEC C.LEN(R5) ;FIX LENGTH TO NOT INCLUDE FUNCTION CODE
136 000072 112775 000001 000014 MOVB #NS$SUC,@C.ADDR(R5) ;SUCCESS RESPONSE
137 000100 ENDIF
138 000100 ENDIF
139 000100 112765 177725 000006 MOVB #-C$TRMS,C.FUNC(R5) ;SET FUNCTION CODE TO TRANSMIT MESSAGE
140 000106 ENDIF
141 000106 IF ; FUNCTION CODE = TRANSMIT MESSAGE
142 000106 FALSEB NE C.FUNC(R5),#C$TRMS
143 000116 THEN
144 000116 005365 000014 DEC C.ADDR(R5) ;FIX BUFFER ADDRESS BACK
145 000122 112765 177777 000006 MOVB #-C$RLBF,C.FUNC(R5) ;SET FUNCTION CODE TO RELEASE BUFFER
146 000130 ENDIF
147 000130 IF ; FUNCTION CODE = RELEASE BUFFER
148 000130 FALSEB NE C.FUNC(R5),#C$RLBF
149 000140 THEN
150 000140 012765 177777 000004 MOV #-1,C.CTXT(R5) ;SET CONTEXT FOR ALL DONE
151 000146 112765 000001 000007 MOVB #P$GTCM,C.PROC(R5) ;SEND IT BACK TO GET COMMAND
152 000154 112765 177600 000006 MOVB #-C$PROC,C.FUNC(R5) ;AND TELL IT TO PROCESS
153 000162 ENDIF
154 000162 105465 000006 NEGB C.FUNC(R5) ;FIX UP FUNCTION CODE
155 000166 000241 CLC ;PLAY BY THE RULES
156 000170 ENDPROC
157 000001 .END
LPLOOP MACRO M1110 13-OCT-79 12:02 PAGE 6-1
SYMBOL TABLE
A$$CHK= 000000 C$RCMA= 000146 FR$LNC= 000001 F$RCMS= 000002 ND$BAD= 177777
A$$CPS= 000000 C$RCMS= 000054 FR$LNL= 000001 F$RDBK= 000000 ND$LCC= 000000
A$$TRP= 000000 C$RDBK= 000043 FR$LNS= 000001 F$RDCM= 000000 ND$LCS= 000001
CE$ACP= 177753 C$RDCM= 000035 FR$RMC= 000001 F$RDIN= 000001 ND$LNC= 000004
CE$ADR= 177776 C$RDIN= 000040 FR$RML= 000001 F$RDIS= 000012 ND$LNS= 000005
CE$CON= 177770 C$RDIS= 000040 FR$RMS= 000001 F$RDRC= 000000 ND$RMC= 000002
CE$DIS= 177771 C$RDRC= 000060 FS$HOS= 000001 F$RECO= 000001 ND$RMS= 000003
CE$EOF= 177767 C$RLBF= 000001 FS$INT= 000000 F$RLBF= 000001 ND$ZLC= 000000
CE$FAI= 177774 C$RLCB= 000002 FS$LLP= 000001 F$RLCB= 000001 ND$ZLN= 000002
CE$FIL= 177756 C$RLCI= 000000 FS$LOF= 000001 F$STBK= 000000 ND$ZRM= 000001
CE$FUN= 177777 C$STBK= 000055 FS$LOG= 000001 F$STPR= 000001 NE$CON= 177762
CE$GEN= 177774 C$STPR= 000037 FS$LST= 000001 F$STPS= 000006 NE$FIL= 177763
CE$IND= 177757 C$STPS= 000037 FS$NET= 000001 F$TEST= 000001 NE$FIO= 177756
CE$IO = 177760 C$TRBK= 000046 FS$NST= 000000 F$TRAC= 000000 NE$FOR= 177776
CE$LEN= 177775 C$TRIN= 000063 FS$PAS= 000001 F$TRBK= 000001 NE$FUN= 177777
CE$LID= 177766 C$TRMA= 000145 FT$CNS= 000000 F$TRIG= 000001 NE$LCO= 177766
CE$LST= 177752 C$TRMS= 000053 FT$NOD= 000001 F$TRIN= 000000 NE$LID= 177770
CE$NOD= 177765 C$WRBK= 000044 FT$TSK= 000001 F$TRMA= 000000 NE$LPR= 177757
CE$NSD= 177755 C$WRCL= 000065 F$ALBF= 000001 F$TRMS= 000002 NE$LST= 177767
CE$NST= 177754 C$WRCM= 000036 F$ALCB= 000001 F$WRBK= 000000 NE$NCO= 177755
CE$NWE= 177773 C$WRRC= 000061 F$CB = 000017 F$WRCL= 000001 NE$NIC= 177753
CE$OBJ= 177750 C$ZRCN= 000064 F$CLCL= 000001 F$WRCM= 000000 NE$NOD= 177765
CE$OPN= 177761 C$$CKP= 000000 F$CLCO= 000000 F$WRRC= 000000 NE$NOR= 177754
CE$OVR= 177764 C$$ORE= 000400 F$CLFL= 000000 F$ZERO= 000001 NE$ORD= 177774
CE$PAR= 177763 C$$RSH= 177564 F$CLLK= 000006 F$ZRCN= 000001 NE$PAR= 177760
CE$PRO= 177751 C.ADDR= 000014 F$CLLN= 000002 F$$LVL= 000001 NE$RES= 177761
CE$REJ= 177772 C.BKNM= 000014 F$DPOS= 000001 F$150 = 000002 NE$SER= 177764
CE$TMO= 177762 C.CTXT= 000004 F$DUMP= 000000 F$300 = 000012 NE$STA= 177775
CS$ACK= 000002 C.FUNC= 000006 F$EVNT= 000001 F$50 = 000002 NL$BRC= 000001
CS$LKE= 000001 C.LEN = 000012 F$EXAM= 000001 F$550 = 000002 NL$BTR= 000002
CS$LNA= 000002 C.LINE= 000014 F$EXHO= 000000 G$$TPP= 000000 NL$RES= 000005
CS$LOG= 000003 C.LKNM= 000020 F$GTCM= 000001 G$$TSS= 000000 NL$RLE= 000004
CS$NCH= 000003 C.LUN = 000020 F$INCM= 000000 G$$TTK= 000000 NL$RTR= 000003
CS$SUC= 000001 C.MODE= 000021 F$INLU= 000001 I$$RAR= 000000 NL$TMO= 000006
C$ALBF= 000032 C.PRID= 000017 F$IRLU= 000000 I$$RDN= 000000 NL$ZRO= 000000
C$ALCB= 000033 C.PROC= 000007 F$LKLU= 000010 K$$CNT= 177546 NN$CAC= 000011
C$CLCL= 000067 C.PROM= 000016 F$LNLU= 000002 K$$CSR= 177546 NN$CNI= 000013
C$CLCO= 000003 C.PTR = 000000 F$LNSR= 000001 K$$LDC= 000000 NN$CNR= 000014
C$CLFL= 000004 C.RET = 000010 F$LOAD= 000000 K$$TPS= 000074 NN$EXT= 000003
C$CLLK= 000052 C.SAVE= 000022 F$LOGD= 000001 LD$LP = 000000 NN$FMT= 000005
C$CLLN= 000005 C.SERV= 000002 F$LOOP= 000001 LI$KNO= 000000 NN$IZS= 000007
C$LEN = 000026 C.TASK= 000016 F$NTCM= 000000 LI$STA= 000001 NN$IZU= 000010
C$NOPN= 000031 C.TYPE= 000016 F$OPCL= 000001 LI$STR= 000002 NN$MAC= 000012
C$NORD= 000032 C.WAIT= 000020 F$OPCO= 000000 LPLOOP 000000RG NN$NKS= 000004
C$OPCL= 000066 DM$END= 000000 F$OPIN= 000000 LS$DUM= 000002 NN$RES= 000006
C$OPCO= 000034 DM$MIM= 000002 F$OPIR= 000000 LS$LOA= 000000 NN$UMR= 000002
C$OPIN= 000041 DM$PXA= 000003 F$OPLK= 000005 LS$LOO= 000001 NN$UMS= 000001
C$OPIR= 000056 DM$SAD= 000001 F$OPLN= 000002 LS$TRI= 000004 NN$ZRO= 000000
C$OPLK= 000051 D$$BUG= 177514 F$OPLO= 000000 LS$TRQ= 000003 NO = 000000
C$OPLN= 000045 D$$ISK= 000000 F$OPOR= 000000 L$$ASG= 000000 NS$SUC= 000001
C$OPOR= 000057 D$$L11= 000001 F$OPOT= 000000 L$$DRV= 000000 N$DPOS= 000014
C$OPOT= 000042 FL$BOO= 000001 F$ORLU= 000000 L$$P11= 000001 N$DUMP= 000003
C$ORD = 000145 FL$DUM= 000001 F$OTLU= 000001 L$$11R= 000000 N$EXAM= 000015
C$PROC= 000200 FL$LOA= 000001 F$RCBK= 000002 M$$CRB= 000124 N$LNSR= 000016
C$RCBK= 000047 FL$LOO= 000001 F$RCEV= 000001 M$$CRX= 000000 N$LOAD= 000002
C$RCEV= 000050 FR$LCC= 000001 F$RCIN= 000000 M$$FCS= 000000 N$LOGD= 000001
C$RCIN= 000062 FR$LCS= 000001 F$RCMA= 000000 M$$OVR= 000000 N$LOOP= 000005
LPLOOP MACRO M1110 13-OCT-79 12:02 PAGE 6-2
SYMBOL TABLE
N$RDIN= 000010 P$LNSR= 000004 RI$RML= 000003 SP$LOF= 000012 T$$KMG= 000000
N$STPR= 000007 P$LOAD= 000002 RI$RMS= 000005 SP$LST= 000001 T$$MIN= 000000
N$TEST= 000006 P$LOGD= 000020 RI$ZLC= 000011 SP$NDM= 000014 V$$CTR= 001000
N$TRIG= 000004 P$LOOP= 000005 RI$ZLN= 000013 SP$NDO= 000013 X$$DBT= 000000
N$ZERO= 000011 P$NTCM= 000014 RI$ZRM= 000012 SP$NST= 000006 YES = 000001
N$$USR= 000001 P$RDIN= 000010 R$$DER= 000000 SP$RRP= 000004 $$CSTA= 000000
N.MLEN= 000454 P$STPR= 000007 R$$K11= 000001 SP$RTP= 000005 $$PRST= 000014
PT$END= 000000 P$TEST= 000006 R$$SND= 000000 ST$DIS= 000006 $$STIX= 000777
PT$HOS= 000003 P$TRIG= 000012 R$$11M= 000000 ST$ENA= 000005 $$STNM= 000000
PT$NAM= 000001 P$ZERO= 000013 SP$DHO= 000003 ST$LOO= 000003 $$S772= 000011
PT$NUM= 000002 P$$P45= 000000 SP$DRP= 000007 ST$MAI= 000004 $$S773= 000011
P$DPOS= 000016 RI$LCC= 000001 SP$DTP= 000010 ST$OFF= 000001 $$S774= 000077
P$DUMP= 000003 RI$LCS= 000002 SP$LHO= 000002 ST$ON = 000000 $$S775= 000010
P$EVNT= 000011 RI$LNC= 000007 SP$LLP= 000011 ST$SHU= 000002 $$S776= 000000
P$EXAM= 000017 RI$LNL= 000006 SP$LNM= 000016 S$$WRG= 000000 $$S777= 000000
P$GTCM= 000001 RI$LNS= 000010 SP$LNO= 000015 S$$YSZ= 001600 $$TRNM= 000000
P$INCM= 000015 RI$RMC= 000004
. ABS. 000000 000
000172 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 9497 WORDS ( 38 PAGES)
DYNAMIC MEMORY: 11116 WORDS ( 42 PAGES)
ELAPSED TIME: 00:01:00
LPLOOP,[135,30]LPLOOP/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,LPLOOP
LPLOOP CREATED BY MACRO ON 13-OCT-79 AT 12:03 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
C$PROC = 000200 6-120 6-152
C$RLBF = 000001 6-145 6-148
C$TRMS = 000053 6-139 6-142
C.ADDR = 000014 *6-122 6-127 6-130 6-133 6-136 *6-144
C.CTXT = 000004 *6-150
C.FUNC = 000006 6-120 *6-139 6-142 *6-145 6-148 *6-152 *6-154
C.LEN = 000012 6-124 *6-126 *6-132 *6-135
C.PROC = 000007 *6-151
F$TRAC = 000000 6-118 6-118 6-156 6-156
I$$AS = ****** 6-118
LPLOOP 000000 RG #6-118
NE$FOR = 177776 6-127
NE$FUN = 177777 6-133
NS$SUC = 000001 6-136
P$GTCM = 000001 6-151
R$$11D = ****** 6-118
R$$11M = 000000 6-118
$$CSTA = 000000 #6-118
$$PRST = 000014 #6-118 6-119 #6-119 6-123 #6-123 6-129 #6-129 6-141 #6-141
6-147 #6-147
$$SLST = ****** 6-118 6-120 6-120 6-121 6-124 6-124 6-125 6-128 6-128
6-130 6-130 6-131 6-134 6-134 6-137 6-138 6-140 6-142
6-142 6-143 6-146 6-148 6-148 6-149 6-153 6-156
$$STIX = 000777 #6-118 6-119 6-119 #6-119 6-119 6-119 #6-119 6-123 6-123
#6-123 6-123 6-123 #6-123 6-129 6-129 #6-129 6-129 6-129
#6-129 6-137 #6-137 6-137 6-137 #6-137 6-137 6-138 #6-138
6-138 6-138 #6-138 6-138 6-140 #6-140 6-140 6-140 #6-140
6-140 6-141 6-141 #6-141 6-141 6-141 #6-141 6-146 #6-146
6-146 6-146 #6-146 6-146 6-147 6-147 #6-147 6-147 6-147
#6-147 6-153 #6-153 6-153 6-153 #6-153 6-153
$$STNM = 000000 #6-118 6-119 #6-119 6-119 6-120 6-121 6-123 #6-123 6-123
6-124 6-125 *6-128 6-128 6-129 #6-129 6-129 6-130 6-131
*6-134 6-134 *6-137 #6-137 6-138 #6-138 *6-140 #6-140 6-141
#6-141 6-141 6-142 6-143 *6-146 #6-146 6-147 #6-147 6-147
6-148 6-149 *6-153 #6-153
$$S772 = 000011 #6-129 6-137
$$S773 = 000011 #6-129 6-137
$$S774 = 000077 #6-123 6-138
$$S775 = 000010 #6-123 6-138
$$S776 = 000000 #6-119 6-140 #6-141 6-146 #6-147 6-153
$$S777 = 000000 #6-119 6-140 #6-141 6-146 #6-147 6-153
$$TRNM = 000000 #6-118 6-119 #6-119 6-120 6-121 6-123 #6-123 6-124 6-125
6-128 #6-128 6-129 #6-129 6-130 6-131 6-134 #6-134 *6-137
#6-137 6-138 #6-138 *6-140 #6-140 6-141 #6-141 6-142 6-143
*6-146 #6-146 6-147 #6-147 6-148 6-149 *6-153 #6-153
LPLOOP CREATED BY MACRO ON 13-OCT-79 AT 12:03 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CASE #6-118
CONDF #5-107 5-111
DO #6-118
ELSE #6-118 6-128 6-134
ENDCAS #6-118
ENDIF #6-118 #6-137 #6-138 #6-140 #6-146 #6-153
ENDPRO #6-118 6-156
ENDWHI #6-118
FALSE #6-118 6-124
FALSEB #6-118 6-120 6-130 6-142 6-148
IF #6-118 #6-119 #6-123 #6-129 #6-141 #6-147
JMPPRO #6-118
NICDF #5-107 5-112
ONCASE #6-118
PRDF #5-107 #5-113
PROC #5-107 6-118
PROCLC #6-118
SWSTK$ #6-118
THEN #6-118 #6-121 #6-125 #6-131 #6-143 #6-149
TRUE #6-118
TRUEB #6-118
WHILE #6-118
$$BGND #6-118 #6-120 #6-124 #6-130 #6-142 #6-148
$$BGNN #6-118 6-120 6-124 6-128 6-130 6-134 6-142 6-148
$$ELSE #6-118 #6-128 #6-134
$$GEN1 #6-118 #6-118 #6-120 #6-121 #6-124 #6-125 #6-128 #6-128 #6-130 #6-130
#6-131 #6-134 #6-134 #6-137 #6-138 #6-140 #6-142 #6-143 #6-146 #6-148
#6-149 #6-153 #6-156
$$GEN2 #6-118 #6-120 #6-124 #6-142 #6-148
$$GNAB #6-118 6-120 6-124 6-142 6-148
$$GNBT #6-118 6-130
$$GNCM #6-118 #6-120 #6-124 #6-130 #6-142 #6-148
$$INMC #6-118 6-118
$$INSY #6-118 6-118
$$LAB #6-118 6-121 6-125 6-128 6-131 6-134 6-137 6-138 6-140 6-143
6-146 6-149 6-153
$$POP #6-118 6-137 6-137 6-138 6-138 6-140 6-140 6-146 6-146 6-153
6-153
$$POPI #6-118 6-137 6-137 6-138 6-138 6-140 6-140 6-146 6-146 6-153
6-153
$$PUSH #6-118 #6-119 #6-119 #6-123 #6-123 #6-129 #6-129 #6-141 #6-141 #6-147
#6-147
$$STSM #6-118 #6-119 #6-119 #6-123 #6-123 #6-129 #6-129 #6-141 #6-141 #6-147
#6-147
$$SYS #6-118
$$TRCE #6-118 6-118 6-156