Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/sralci.list
There are no other files named sralci.list in the archive.
SRALCI MACRO M1110 13-OCT-79 11:08 PAGE 3
1 .TITLE SRALCI
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 ALLOCATE A CONTROL BLOCK INTERNALLY
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
SRALCI MACRO M1110 13-OCT-79 11:08 PAGE 4
36 ;
37 ;======================================================================;
38 ;++
39 ; +-------------------------------------------------+
40 ; I I
41 ; I S R A L C I I
42 ; I - - - - - - I
43 ; I I
44 ; +-------------------------------------------------+
45 ;
46 ; FUNCTION:
47 ;
48 ; SERVICE MODULE TO ALLOCATE A CONTROL BLOCK INTERNALLY
49 ;
50 ; CALLING SEQUENCE: CALL SRALCI
51 ;
52 ; INPUT: NONE
53 ;
54 ; OUTPUT:
55 ;
56 ; C-BIT - CLEAR IF SUCCESS, FALSE IF NOT
57 ; R0 - ADDRESS OF ZEROED CONTROL BLOCK
58 ;
59 ; REQUIREMENTS:
60 ;
61 ; INPUT VIA CONDAT:
62 ;
63 ; CBHEAD - POINTER TO FIRST FREE CONTROL BLOCK
64 ; CBLEN - SYMBOL FOR LENGTH OF A CONTROL BLOCK, IN BYTES
65 ;
66 ; EFFECTS:
67 ;
68 ; OUTPUT VIA CONDAT:
69 ;
70 ; CBHEAD - UPDATED FREE LIST POINTER
71 ;
72 ;--
73 ;======================================================================;
74 ;
75 ;
76 ; EXTERNAL MACROS
77 ;
78 .MCALL PROC,CONMDF,SAVSTK,RESSTK
79 ;
80 ; DEFINE READ/WRITE MEMORY
81 ;
82 000000 CONMDF ;CONTROL BLOCK POOL
SRALCI MACRO M1110 13-OCT-79 11:08 PAGE 5
84 ;
85 ; PROCEDURE BODY
86 ;
87 000000 PROC SRALCI
88 000000 016701 000512' MOV CBHEAD,R1 ;GET POINTER TO NEXT FREE CONTROL BLOCK
89 000004 IF ; NO CONTROL BLOCK FREE
90 000004 FALSE SET R1
91 000010 THEN
92 000010 000261 SEC ;FAIL
93 000012 ELSE
94 000014 011167 000512' MOV (R1),CBHEAD ;PUT THIS ONE'S POINTER IN THE HEAD
95 000020 SAVSTK <R1> ;SAVE THE ADDRESS
96 000022 005000 CLR R0 ;GET A ZERO
97 000024 012702 000026 MOV #CBLEN,R2 ;GET LENGTH OF A CONTROL BLOCK
98 000030 CALL SPRAY ;ZERO THE CONTROL BLOCK
99 000034 RESSTK <R0> ;GET THE ADDRESS BACK
100 000036 000241 CLC ;RETURN SUCCESS
101 000040 ENDIF
102 000040 ENDPROC
103 000001 .END
SRALCI MACRO M1110 13-OCT-79 11:08 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 FS$LST= 000001 F$NTCM= 000000 F$TRBK= 000001 L$$P11= 000001
A$$CPS= 000000 FS$NET= 000001 F$OPCL= 000001 F$TRIG= 000001 L$$11R= 000000
A$$TRP= 000000 FS$NST= 000000 F$OPCO= 000000 F$TRIN= 000000 M$$CRB= 000124
CBHEAD 000512R 002 FS$PAS= 000001 F$OPIN= 000000 F$TRMA= 000000 M$$CRX= 000000
CBLEN = 000026 FT$CNS= 000000 F$OPIR= 000000 F$TRMS= 000002 M$$FCS= 000000
CBLIST 000000R 002 FT$NOD= 000001 F$OPLK= 000005 F$WRBK= 000000 M$$OVR= 000000
C$$CKP= 000000 FT$TSK= 000001 F$OPLN= 000002 F$WRCL= 000001 NO = 000000
C$$ORE= 000400 F$ALBF= 000001 F$OPLO= 000000 F$WRCM= 000000 N$$USR= 000001
C$$RSH= 177564 F$ALCB= 000001 F$OPOR= 000000 F$WRRC= 000000 P$$P45= 000000
D$$BUG= 177514 F$CB = 000017 F$OPOT= 000000 F$ZERO= 000001 R$$DER= 000000
D$$ISK= 000000 F$CLCL= 000001 F$ORLU= 000000 F$ZRCN= 000001 R$$K11= 000001
D$$L11= 000001 F$CLCO= 000000 F$OTLU= 000001 F$$LVL= 000001 R$$SND= 000000
FL$BOO= 000001 F$CLFL= 000000 F$RCBK= 000002 F$150 = 000002 R$$11M= 000000
FL$DUM= 000001 F$CLLK= 000006 F$RCEV= 000001 F$300 = 000012 SPRAY = ****** GX
FL$LOA= 000001 F$CLLN= 000002 F$RCIN= 000000 F$50 = 000002 SRALCI 000000RG
FL$LOO= 000001 F$DPOS= 000001 F$RCMA= 000000 F$550 = 000002 S$$WRG= 000000
FR$LCC= 000001 F$DUMP= 000000 F$RCMS= 000002 G$$TPP= 000000 S$$YSZ= 001600
FR$LCS= 000001 F$EVNT= 000001 F$RDBK= 000000 G$$TSS= 000000 T$$KMG= 000000
FR$LNC= 000001 F$EXAM= 000001 F$RDCM= 000000 G$$TTK= 000000 T$$MIN= 000000
FR$LNL= 000001 F$EXHO= 000000 F$RDIN= 000001 I$$RAR= 000000 V$$CTR= 001000
FR$LNS= 000001 F$GTCM= 000001 F$RDIS= 000012 I$$RDN= 000000 X$$DBT= 000000
FR$RMC= 000001 F$INCM= 000000 F$RDRC= 000000 K$$CNT= 177546 YES = 000001
FR$RML= 000001 F$INLU= 000001 F$RECO= 000001 K$$CSR= 177546 $$CSTA= 000000
FR$RMS= 000001 F$IRLU= 000000 F$RLBF= 000001 K$$LDC= 000000 $$PRST= 000010
FSTCB = 000000R 002 F$LKLU= 000010 F$RLCB= 000001 K$$TPS= 000074 $$STIX= 000777
FS$HOS= 000001 F$LNLU= 000002 F$STBK= 000000 LD$LP = 000000 $$STNM= 000000
FS$INT= 000000 F$LNSR= 000001 F$STPR= 000001 LSTCB = 000464R 002 $$S776= 000000
FS$LLP= 000001 F$LOAD= 000000 F$STPS= 000006 L$$ASG= 000000 $$S777= 000000
FS$LOF= 000001 F$LOGD= 000001 F$TEST= 000001 L$$DRV= 000000 $$TRNM= 000000
FS$LOG= 000001 F$LOOP= 000001 F$TRAC= 000000
. ABS. 000000 000
000042 001
CONDAT 000514 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 8367 WORDS ( 33 PAGES)
DYNAMIC MEMORY: 9004 WORDS ( 34 PAGES)
ELAPSED TIME: 00:00:49
SRALCI,[135,30]SRALCI/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRALCI
SRALCI CREATED BY MACRO ON 13-OCT-79 AT 11:08 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CBHEAD 000512 R #4-82 5-88 *5-94
CBLEN = 000026 #4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 5-97
CBLIST 000000 R #4-82 4-82 4-82
FL$BOO = 000001 #4-82 4-82
FL$DUM = 000001 #4-82 4-82
FL$LOA = 000001 #4-82 4-82
FL$LOO = 000001 #4-82 4-82
FR$LCC = 000001 #4-82 4-82
FR$LCS = 000001 #4-82 4-82
FR$LNC = 000001 #4-82 4-82
FR$LNL = 000001 #4-82 4-82
FR$LNS = 000001 #4-82 4-82
FR$RMC = 000001 #4-82 4-82
FR$RML = 000001 #4-82 4-82
FR$RMS = 000001 #4-82 4-82
FSTCB = 000000 R #4-82 4-82
FS$HOS = 000001 #4-82 4-82
FS$INT = 000000 #4-82 4-82 4-82 4-82
FS$LLP = 000001 #4-82 4-82
FS$LOF = 000001 #4-82 4-82
FS$LOG = 000001 #4-82 4-82
FS$LST = 000001 #4-82 4-82
FS$NET = 000001 #4-82 4-82
FS$NST = 000000 #4-82 4-82
FS$PAS = 000001 #4-82 4-82
FT$CNS = 000000 #4-82 4-82
FT$NOD = 000001 #4-82 4-82
FT$TSK = 000001 #4-82 4-82
F$ALBF = 000001 #4-82
F$ALCB = 000001 #4-82
F$CB = 000017 #4-82 4-82 4-82
F$CLCL = 000001 #4-82 4-82 #4-82
F$CLCO = 000000 #4-82
F$CLFL = 000000 #4-82
F$CLLK = 000006 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82
4-82 #4-82 4-82 #4-82
F$CLLN = 000002 #4-82 4-82 #4-82 4-82 #4-82
F$DPOS = 000001 #4-82 4-82
F$DUMP = 000000 #4-82 4-82
F$EVNT = 000001 #4-82 4-82
F$EXAM = 000001 #4-82 4-82
F$EXHO = 000000 #4-82
F$GTCM = 000001 #4-82 4-82
F$INCM = 000000 #4-82 4-82
F$INLU = 000001 #4-82
F$IRLU = 000000 #4-82
F$LKLU = 000010 #4-82
F$LNLU = 000002 #4-82
F$LNSR = 000001 #4-82 4-82
SRALCI CREATED BY MACRO ON 13-OCT-79 AT 11:08 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$LOAD = 000000 #4-82 4-82
F$LOGD = 000001 #4-82 4-82
F$LOOP = 000001 #4-82 4-82
F$NTCM = 000000 #4-82 4-82
F$OPCL = 000001 #4-82 4-82 #4-82
F$OPCO = 000000 #4-82
F$OPIN = 000000 #4-82
F$OPIR = 000000 #4-82
F$OPLK = 000005 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82
4-82 #4-82
F$OPLN = 000002 #4-82 4-82 #4-82 4-82 #4-82
F$OPLO = 000000 #4-82
F$OPOR = 000000 #4-82
F$OPOT = 000000 #4-82
F$ORLU = 000000 #4-82
F$OTLU = 000001 #4-82
F$RCBK = 000002 #4-82 4-82 #4-82 4-82 #4-82
F$RCEV = 000001 #4-82 4-82 #4-82
F$RCIN = 000000 #4-82
F$RCMA = 000000 #4-82
F$RCMS = 000002 #4-82 4-82 #4-82
F$RDBK = 000000 #4-82
F$RDCM = 000000 #4-82
F$RDIN = 000001 #4-82 4-82
F$RDIS = 000012 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82
4-82 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82 4-82
#4-82
F$RDRC = 000000 #4-82
F$RECO = 000001 #4-82 4-82 #4-82
F$RLBF = 000001 #4-82
F$RLCB = 000001 #4-82
F$STBK = 000000 #4-82
F$STPR = 000001 #4-82 4-82
F$STPS = 000006 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82 4-82 #4-82
4-82 #4-82 4-82 #4-82
F$TEST = 000001 #4-82 4-82
F$TRAC = 000000 #4-82 5-87 5-87 5-102 5-102
F$TRBK = 000001 #4-82 4-82 #4-82
F$TRIG = 000001 #4-82 4-82
F$TRIN = 000000 #4-82
F$TRMA = 000000 #4-82
F$TRMS = 000002 #4-82 4-82 #4-82
F$WRBK = 000000 #4-82
F$WRCL = 000001 #4-82 4-82 #4-82
F$WRCM = 000000 #4-82
F$WRRC = 000000 #4-82
F$ZERO = 000001 #4-82 4-82
F$ZRCN = 000001 #4-82 4-82 #4-82
F$150 = 000002 #4-82
F$300 = 000012 #4-82
F$50 = 000002 #4-82
F$550 = 000002 #4-82
SRALCI CREATED BY MACRO ON 13-OCT-79 AT 11:08 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
I$$AS = ****** 5-87
LSTCB = 000464 R #4-82 4-82 #4-82
NO = 000000 #4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82
R$$11D = ****** 5-87
R$$11M = 000000 5-87
SPRAY = ****** GX 5-98
SRALCI 000000 RG #5-87
YES = 000001 #4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82 4-82
4-82 4-82 4-82 4-82 4-82
$$CSTA = 000000 #5-87
$$PRST = 000010 #5-87 *5-89 #5-89
$$SLST = ****** 5-87 5-90 5-90 5-91 5-93 5-93 5-101 5-102
$$STIX = 000777 #5-87 *5-89 *5-89 #5-89 *5-89 *5-89 #5-89 5-101 #5-101
5-101 5-101 #5-101 5-101
$$STNM = 000000 #5-87 *5-89 #5-89 *5-89 5-90 5-91 5-93 5-93 5-101
#5-101
$$S776 = 000000 #5-89 5-101
$$S777 = 000000 #5-89 5-101
$$TRNM = 000000 #5-87 *5-89 #5-89 5-90 5-91 5-93 #5-93 5-101 #5-101
SRALCI CREATED BY MACRO ON 13-OCT-79 AT 11:08 PAGE 4
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #5-98
CASE #5-87
CONFIG #4-82 #4-82
CONMDF #4-78 4-82
DO #5-87
ELSE #5-87 #5-93
ENDCAS #5-87
ENDIF #5-87 5-101
ENDPRO #5-87 5-102
ENDWHI #5-87
FALSE #5-87 #5-90
FALSEB #5-87
IF #5-87 5-89
JMPPRO #5-87
ONCASE #5-87
PROC #4-78 5-87
PROCLC #5-87
PROFLG #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82
#4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82
#4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82
#4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82 #4-82
#4-82
RESSTK #4-78 #5-99
SAVSTK #4-78 #5-95
SWSTK$ #5-87
THEN #5-87 5-91
TRUE #5-87
TRUEB #5-87
WHILE #5-87
$$BGND #5-87 #5-90
$$BGNN #5-87 #5-90 #5-93
$$ELSE #5-87 #5-93
$$GEN1 #5-87 #5-87 #5-90 #5-90 #5-91 #5-93 #5-93 #5-101 #5-102
$$GEN2 #5-87
$$GNAB #5-87
$$GNBT #5-87 5-90
$$GNCM #5-87 #5-90
$$INMC #5-87 5-87
$$INSY #5-87 5-87
$$LAB #5-87 #5-91 #5-93 #5-101
$$POP #5-87 5-101 5-101
$$POPI #5-87 5-101 5-101
$$PUSH #5-87 5-89 5-89
$$STSM #5-87 5-89 5-89
$$SYS #5-87
$$TRCE #5-87 5-87 5-102