Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/srtrma.list
There are no other files named srtrma.list in the archive.
SRTRMA MACRO M1110 13-OCT-79 12:51 PAGE 3
1 .TITLE SRTRMA
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 SERVICE MODULE TO ASYNCHRONOUSLY TRANSMIT A MESSAGE ON A LINK
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
SRTRMA MACRO M1110 13-OCT-79 12:51 PAGE 4
36 ;
37 ;======================================================================;
38 ;++
39 ; +-------------------------------------------------+
40 ; I I
41 ; I S R T R M A I
42 ; I - - - - - - I
43 ; I I
44 ; +-------------------------------------------------+
45 ;
46 ; FUNCTION:
47 ;
48 ; SERVICE MODULE TO ASYNCHRONOUSLY TRANSMIT A MESSAGE ON A LINK
49 ;
50 ; INPUT:
51 ;
52 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING TRANSMIT
53 ; C.SERV - ON INITIAL ENTRY, ZERO; ON COMPLETION ENTRY, NON-ZERO
54 ; OTHER INPUT PARAMETERS AS DESCRIBED FOR MODULE SRTRMX
55 ;
56 ; OUTPUT:
57 ;
58 ; C-BIT - CLEAR IF PROCESSED, SET IF NOT
59 ; R5 - ADDRESS OF ACKNOWLEDGEMENT CONTROL BLOCK
60 ; C.PTR - ADDRESS OF COMPLETION CONTROL BLOCK
61 ; PARAMETERS AS DESCRIBED FOR SRTRMX
62 ; C.RET - ACKNOWLEDGEMENT RETURN CODE
63 ; OTHER FIELDS COPIED FROM ORIGINAL CONTROL BLOCK
64 ;
65 ; REQUIREMENTS:
66 ;
67 ; CONTROL BLOCK SYMBOLS:
68 ;
69 ; C.RET - OFFSET OF RETURN CODE FIELD
70 ; C.SERV - OFFSET OF SERVICE CONTEXT FIELD
71 ; C$LEN - LENGTH OF A CONTROL BLOCK
72 ; CS$ACK - ACKNOWLEDGEMENT RETURN CODE
73 ;
74 ;--
75 ;======================================================================;
76 ;
77 ; EXTERNAL MACROS
78 ;
79 .MCALL PROC,SAVSTK,RESSTK,CONDF
80 ;
81 ; SYMBOLS
82 ;
83 000000 CONDF ;DEFINE CONTROL BLOCK SYMBOLS
SRTRMA MACRO M1110 13-OCT-79 12:51 PAGE 5
85 ;
86 ; PROCEDURE BODY
87 ;
88 000000 PROC SRTRMA
89 000000 IF ; SERVICE CONTEXT = 0
90 000000 FALSE SET C.SERV(R5)
91 000006 THEN
92 000006 CALL SRALCI ;GET ANOTHER CONTROL BLOCK
93 000012 IF ; SUCCESS
94 000012 FALSE CS
95 000014 THEN
96 000014 010002 MOV R0,R2 ;NEW ONE IS DESTINATION
97 000016 010500 MOV R5,R0 ;OLD ONE IS SOURCE
98 000020 010220 MOV R2,(R0)+ ;POINT OLD ONE TO NEW ONE
99 000022 005022 CLR (R2)+ ;ZERO POINTER IN NEW ONE
100 000024 012701 000024 MOV #C$LEN-2,R1 ;LENGTH OF CONTROL BLOCK MINUS POINTER
101 000030 CALL MOVE ;COPY OLD TO NEW
102 000034 SAVSTK <R5> ;ADDRESS OF OLD CONTROL BLOCK
103 000036 011505 MOV (R5),R5 ;ADDRESS OF NEW CONTROL BLOCK
104 000040 CALL SRTRMX ;GET THE TRANSMIT GOING
105 000044 RESSTK <R5> ;ADDRESS OF OLD CONTROL BLOCK
106 000046 112765 000002 000010 MOVB #CS$ACK,C.RET(R5) ;SET ACKNOWLEDGE RETURN CODE
107 000054 ENDIF
108 000054 ELSE
109 000056 CALL SRTRMX ;LET THE OTHER GUY DO IT
110 000062 ENDIF
111 000062 ENDPROC
112 000001 .END
SRTRMA MACRO M1110 13-OCT-79 12:51 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 C$RCBK= 000047 FR$LCC= 000001 F$ORLU= 000000 M$$FCS= 000000
A$$CPS= 000000 C$RCEV= 000050 FR$LCS= 000001 F$OTLU= 000001 M$$OVR= 000000
A$$TRP= 000000 C$RCIN= 000062 FR$LNC= 000001 F$RCBK= 000002 NO = 000000
CE$ACP= 177753 C$RCMA= 000146 FR$LNL= 000001 F$RCEV= 000001 N$$USR= 000001
CE$ADR= 177776 C$RCMS= 000054 FR$LNS= 000001 F$RCIN= 000000 P$$P45= 000000
CE$CON= 177770 C$RDBK= 000043 FR$RMC= 000001 F$RCMA= 000000 RI$LCC= 000001
CE$DIS= 177771 C$RDCM= 000035 FR$RML= 000001 F$RCMS= 000002 RI$LCS= 000002
CE$EOF= 177767 C$RDIN= 000040 FR$RMS= 000001 F$RDBK= 000000 RI$LNC= 000007
CE$FAI= 177774 C$RDIS= 000040 FS$HOS= 000001 F$RDCM= 000000 RI$LNL= 000006
CE$FIL= 177756 C$RDRC= 000060 FS$INT= 000000 F$RDIN= 000001 RI$LNS= 000010
CE$FUN= 177777 C$RLBF= 000001 FS$LLP= 000001 F$RDIS= 000012 RI$RMC= 000004
CE$GEN= 177774 C$RLCB= 000002 FS$LOF= 000001 F$RDRC= 000000 RI$RML= 000003
CE$IND= 177757 C$RLCI= 000000 FS$LOG= 000001 F$RECO= 000001 RI$RMS= 000005
CE$IO = 177760 C$STBK= 000055 FS$LST= 000001 F$RLBF= 000001 RI$ZLC= 000011
CE$LEN= 177775 C$STPR= 000037 FS$NET= 000001 F$RLCB= 000001 RI$ZLN= 000013
CE$LID= 177766 C$STPS= 000037 FS$NST= 000000 F$STBK= 000000 RI$ZRM= 000012
CE$LST= 177752 C$TRBK= 000046 FS$PAS= 000001 F$STPR= 000001 R$$DER= 000000
CE$NOD= 177765 C$TRIN= 000063 FT$CNS= 000000 F$STPS= 000006 R$$K11= 000001
CE$NSD= 177755 C$TRMA= 000145 FT$NOD= 000001 F$TEST= 000001 R$$SND= 000000
CE$NST= 177754 C$TRMS= 000053 FT$TSK= 000001 F$TRAC= 000000 R$$11M= 000000
CE$NWE= 177773 C$WRBK= 000044 F$ALBF= 000001 F$TRBK= 000001 SP$DHO= 000003
CE$OBJ= 177750 C$WRCL= 000065 F$ALCB= 000001 F$TRIG= 000001 SP$DRP= 000007
CE$OPN= 177761 C$WRCM= 000036 F$CB = 000017 F$TRIN= 000000 SP$DTP= 000010
CE$OVR= 177764 C$WRRC= 000061 F$CLCL= 000001 F$TRMA= 000000 SP$LHO= 000002
CE$PAR= 177763 C$ZRCN= 000064 F$CLCO= 000000 F$TRMS= 000002 SP$LLP= 000011
CE$PRO= 177751 C$$CKP= 000000 F$CLFL= 000000 F$WRBK= 000000 SP$LNM= 000016
CE$REJ= 177772 C$$ORE= 000400 F$CLLK= 000006 F$WRCL= 000001 SP$LNO= 000015
CE$TMO= 177762 C$$RSH= 177564 F$CLLN= 000002 F$WRCM= 000000 SP$LOF= 000012
CS$ACK= 000002 C.ADDR= 000014 F$DPOS= 000001 F$WRRC= 000000 SP$LST= 000001
CS$LKE= 000001 C.BKNM= 000014 F$DUMP= 000000 F$ZERO= 000001 SP$NDM= 000014
CS$LNA= 000002 C.CTXT= 000004 F$EVNT= 000001 F$ZRCN= 000001 SP$NDO= 000013
CS$LOG= 000003 C.FUNC= 000006 F$EXAM= 000001 F$$LVL= 000001 SP$NST= 000006
CS$NCH= 000003 C.LEN = 000012 F$EXHO= 000000 F$150 = 000002 SP$RRP= 000004
CS$SUC= 000001 C.LINE= 000014 F$GTCM= 000001 F$300 = 000012 SP$RTP= 000005
C$ALBF= 000032 C.LKNM= 000020 F$INCM= 000000 F$50 = 000002 SRALCI= ****** GX
C$ALCB= 000033 C.LUN = 000020 F$INLU= 000001 F$550 = 000002 SRTRMA 000000RG
C$CLCL= 000067 C.MODE= 000021 F$IRLU= 000000 G$$TPP= 000000 SRTRMX= ****** GX
C$CLCO= 000003 C.PRID= 000017 F$LKLU= 000010 G$$TSS= 000000 S$$WRG= 000000
C$CLFL= 000004 C.PROC= 000007 F$LNLU= 000002 G$$TTK= 000000 S$$YSZ= 001600
C$CLLK= 000052 C.PROM= 000016 F$LNSR= 000001 I$$RAR= 000000 T$$KMG= 000000
C$CLLN= 000005 C.PTR = 000000 F$LOAD= 000000 I$$RDN= 000000 T$$MIN= 000000
C$LEN = 000026 C.RET = 000010 F$LOGD= 000001 K$$CNT= 177546 V$$CTR= 001000
C$NOPN= 000031 C.SAVE= 000022 F$LOOP= 000001 K$$CSR= 177546 X$$DBT= 000000
C$NORD= 000032 C.SERV= 000002 F$NTCM= 000000 K$$LDC= 000000 YES = 000001
C$OPCL= 000066 C.TASK= 000016 F$OPCL= 000001 K$$TPS= 000074 $$CSTA= 000000
C$OPCO= 000034 C.TYPE= 000016 F$OPCO= 000000 LD$LP = 000000 $$PRST= 000011
C$OPIN= 000041 C.WAIT= 000020 F$OPIN= 000000 L$$ASG= 000000 $$STIX= 000777
C$OPIR= 000056 D$$BUG= 177514 F$OPIR= 000000 L$$DRV= 000000 $$STNM= 000000
C$OPLK= 000051 D$$ISK= 000000 F$OPLK= 000005 L$$P11= 000001 $$S774= 000077
C$OPLN= 000045 D$$L11= 000001 F$OPLN= 000002 L$$11R= 000000 $$S775= 000010
C$OPOR= 000057 FL$BOO= 000001 F$OPLO= 000000 MOVE = ****** GX $$S776= 000000
C$OPOT= 000042 FL$DUM= 000001 F$OPOR= 000000 M$$CRB= 000124 $$S777= 000000
C$ORD = 000145 FL$LOA= 000001 F$OPOT= 000000 M$$CRX= 000000 $$TRNM= 000000
C$PROC= 000200 FL$LOO= 000001
. ABS. 000000 000
000064 001
SRTRMA MACRO M1110 13-OCT-79 12:51 PAGE 5-2
SYMBOL TABLE
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 8839 WORDS ( 35 PAGES)
DYNAMIC MEMORY: 10060 WORDS ( 38 PAGES)
ELAPSED TIME: 00:00:28
SRTRMA,[135,30]SRTRMA/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRTRMA
SRTRMA CREATED BY MACRO ON 13-OCT-79 AT 12:52 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CS$ACK = 000002 5-106
C$LEN = 000026 5-100
C.RET = 000010 *5-106
C.SERV = 000002 5-90
F$TRAC = 000000 5-88 5-88 5-111 5-111
I$$AS = ****** 5-88
MOVE = ****** GX 5-101
R$$11D = ****** 5-88
R$$11M = 000000 5-88
SRALCI = ****** GX 5-92
SRTRMA 000000 RG #5-88
SRTRMX = ****** GX 5-104 5-109
$$CSTA = 000000 #5-88
$$PRST = 000011 #5-88 5-89 #5-89 5-93 #5-93
$$SLST = ****** 5-88 5-90 5-90 5-91 5-94 5-95 5-107 5-108 5-108
5-110 5-111
$$STIX = 000777 #5-88 5-89 5-89 #5-89 5-89 5-89 #5-89 5-93 5-93
#5-93 5-93 5-93 #5-93 5-107 #5-107 5-107 5-107 #5-107
5-107 5-110 #5-110 5-110 5-110 #5-110 5-110
$$STNM = 000000 #5-88 5-89 #5-89 5-89 5-90 5-91 5-93 #5-93 5-93
5-94 5-95 *5-107 #5-107 5-108 5-108 5-110 #5-110
$$S774 = 000077 #5-93 5-107
$$S775 = 000010 #5-93 5-107
$$S776 = 000000 #5-89 5-110
$$S777 = 000000 #5-89 5-110
$$TRNM = 000000 #5-88 5-89 #5-89 5-90 5-91 5-93 #5-93 5-94 5-95
*5-107 #5-107 5-108 #5-108 5-110 #5-110
SRTRMA CREATED BY MACRO ON 13-OCT-79 AT 12:52 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #5-92 #5-101 #5-104 #5-109
CASE #5-88
CONDF #4-79 4-83
DO #5-88
ELSE #5-88 5-108
ENDCAS #5-88
ENDIF #5-88 #5-107 #5-110
ENDPRO #5-88 5-111
ENDWHI #5-88
FALSE #5-88 5-90 5-94
FALSEB #5-88
IF #5-88 #5-89 #5-93
JMPPRO #5-88
ONCASE #5-88
PROC #4-79 5-88
PROCLC #5-88
RESSTK #4-79 #5-105
SAVSTK #4-79 #5-102
SWSTK$ #5-88
THEN #5-88 #5-91 #5-95
TRUE #5-88
TRUEB #5-88
WHILE #5-88
$$BGND #5-88 #5-90 #5-94
$$BGNN #5-88 5-90 5-94 5-108
$$ELSE #5-88 5-108
$$GEN1 #5-88 5-88 5-90 5-90 5-91 5-94 5-95 5-107 5-108 5-108
5-110 5-111
$$GEN2 #5-88
$$GNAB #5-88 5-94
$$GNBT #5-88 #5-90
$$GNCM #5-88 5-90 5-94
$$INMC #5-88 5-88
$$INSY #5-88 5-88
$$LAB #5-88 5-91 5-95 5-107 5-108 5-110
$$POP #5-88 5-107 5-107 5-110 5-110
$$POPI #5-88 5-107 5-107 5-110 5-110
$$PUSH #5-88 #5-89 #5-89 #5-93 #5-93
$$STSM #5-88 #5-89 #5-89 #5-93 #5-93
$$SYS #5-88
$$TRCE #5-88 5-88 5-111