Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/blcnbk.list
There are no other files named blcnbk.list in the archive.
BLCNBK MACRO M1110 13-OCT-79 10:47 PAGE 3
1 .TITLE BLCNBK
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 UTILITY MODULE TO BUILD A CONNECT BLOCK
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
BLCNBK MACRO M1110 13-OCT-79 10:47 PAGE 4
36 ;
37 ;======================================================================;
38 ;++
39 ; +-------------------------------------------------+
40 ; I I
41 ; I B L C N B K I
42 ; I - - - - - - I
43 ; I I
44 ; +-------------------------------------------------+
45 ;
46 ; FUNCTION:
47 ;
48 ; UTILITY MODULE TO BUILD A CONNECT BLOCK
49 ;
50 ; CALLING SEQUENCE: CALL BLCNBK
51 ;
52 ; INPUT:
53 ;
54 ; R0 - ADDRESS OF IMAGE FIELD CONTAINING NODE NAME
55 ; R5 - ADDRESS OF CONTROL BLOCK
56 ; C.ADDR - ADDRESS OF BUFFER TO HOLD CONNECT BLOCK
57 ;
58 ; OUTPUT:
59 ;
60 ; R0 - DESTROYED
61 ; @C.ADDR(R5) - CONNECT BLOCK
62 ;
63 ; REQUIREMENTS:
64 ;
65 ; CONTROL BLOCK SYMBOLS:
66 ;
67 ; C.ADDR - OFFSET OF ADDRESS FIELD
68 ;
69 ; CONNECT BLOCK SYMBOLS:
70 ;
71 ; N.RFM - OFFSET OF FORMAT TYPE FIELD
72 ; N.RND - OFFSET OF NODE NAME FIELD
73 ; N.RNO - OFFSET OF OBJECT TYPE FIELD
74 ; N.RQL - LENGTH OF CONNECT BLOCK (TO ZERO)
75 ;
76 ;--
77 ;======================================================================;
78 ;
79 ;
80 ; EXTERNAL MACROS
81 ;
82 .MCALL PROC,SAVSTK,RESSTK,CONDF,CRBDF$
83 ;
84 ; DEFINE EXTERNAL SYMBOLS
85 ;
86 000000 CONDF ;CONTROL BLOCK SYMBOLS
87 000000 CRBDF$ ;CONNECT BLOCK SYMBOLS
BLCNBK MACRO M1110 13-OCT-79 10:47 PAGE 5
89 ;
90 ; DEFINE INTERNAL SYMBOLS
91 ;
92 000023 NICOBJ = 19. ;OBJECT TYPE OF NICE OBJECT
93 ;
94 ; PROCEDURE BODY
95 ;
96 000000 PROC BLCNBK
97 000000 SAVSTK <R3> ;SAVE REGISTER
98 000002 016503 000014 MOV C.ADDR(R5),R3 ;ADDRESS OF BLOCK BUFFER
99 000006 SAVSTK <R0> ;SAVE ADDRESS OF NODE NAME IMAGE
100 000010 005000 CLR R0 ;SET UP TO ZERO CONNECT BLOCK
101 000012 010301 MOV R3,R1 ;ADDRESS TO START ZERO
102 000014 012702 000110 MOV #N.RQL,R2 ;LENGTH OF CONNECT BLOCK
103 000020 CALL SPRAY ;ZERO IT
104 000024 RESSTK <R0> ;RESTORE ADDRESS OF NODE NAME IMAGE
105 000026 112001 MOVB (R0)+,R1 ;GET LENGTH OF NAME AND UPDATE POINTER
106 000030 SAVSTK <R1> ;SAVE LENGTH OF NODE NAME
107 000032 012702 000000 MOV #N.RND,R2 ;OFFSET OF NODE NAME IN CONNECT BLOCK
108 000036 060302 ADD R3,R2 ;MAKE IT A DESTINATION ADDRESS
109 000040 CALL MOVE ;MOVE NODE NAME TO CONNECT BLOCK
110 000044 RESSTK <R1> ;RESTORE LENGTH OF NODE NAME
111 000046 012700 000006 MOV #6,R0 ;CALCULATE BLANK FILL LENGTH
112 000052 160100 SUB R1,R0 ; ...
113 000054 WHILE ; NODE NAME NOT BLANK FILLED
114 000054 FALSE CLEAR R0
115 000060 DO
116 000060 112722 000040 MOVB #' ,(R2)+ ;BLANK FILL
117 000064 005300 DEC R0 ;DECREMENT BLANK FILL LENGTH
118 000066 ENDWHILE
119 000070 112763 000023 000007 MOVB #NICOBJ,N.ROT(R3) ;SET NICE PROCESS OBJECT TYPE
120 000076 105063 000006 CLRB N.RFM(R3) ;FORMAT TYPE ZERO
121 000102 RESSTK <R3> ;RESTORE REGISTER
122 000104 ENDPROC
123 000001 .END
BLCNBK MACRO M1110 13-OCT-79 10:47 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 C$RCIN= 000062 FR$LNS= 000001 F$RDBK= 000000 N.RGP 000010
A$$CPS= 000000 C$RCMA= 000146 FR$RMC= 000001 F$RDCM= 000000 N.RID 000034
A$$TRP= 000000 C$RCMS= 000054 FR$RML= 000001 F$RDIN= 000001 N.RIDC 000032
BLCNBK 000000RG C$RDBK= 000043 FR$RMS= 000001 F$RDIS= 000012 N.RND 000000
CE$ACP= 177753 C$RDCM= 000035 FS$HOS= 000001 F$RDRC= 000000 N.RNM 000016
CE$ADR= 177776 C$RDIN= 000040 FS$INT= 000000 F$RECO= 000001 N.RNMC 000014
CE$CON= 177770 C$RDIS= 000040 FS$LLP= 000001 F$RLBF= 000001 N.ROT 000007
CE$DIS= 177771 C$RDRC= 000060 FS$LOF= 000001 F$RLCB= 000001 N.RPS 000056
CE$EOF= 177767 C$RLBF= 000001 FS$LOG= 000001 F$STBK= 000000 N.RPSC 000054
CE$FAI= 177774 C$RLCB= 000002 FS$LST= 000001 F$STPR= 000001 N.RQL = 000110
CE$FIL= 177756 C$RLCI= 000000 FS$NET= 000001 F$STPS= 000006 N.RUS 000012
CE$FUN= 177777 C$STBK= 000055 FS$NST= 000000 F$TEST= 000001 P$$P45= 000000
CE$GEN= 177774 C$STPR= 000037 FS$PAS= 000001 F$TRAC= 000000 RI$LCC= 000001
CE$IND= 177757 C$STPS= 000037 FT$CNS= 000000 F$TRBK= 000001 RI$LCS= 000002
CE$IO = 177760 C$TRBK= 000046 FT$NOD= 000001 F$TRIG= 000001 RI$LNC= 000007
CE$LEN= 177775 C$TRIN= 000063 FT$TSK= 000001 F$TRIN= 000000 RI$LNL= 000006
CE$LID= 177766 C$TRMA= 000145 F$ALBF= 000001 F$TRMA= 000000 RI$LNS= 000010
CE$LST= 177752 C$TRMS= 000053 F$ALCB= 000001 F$TRMS= 000002 RI$RMC= 000004
CE$NOD= 177765 C$WRBK= 000044 F$CB = 000017 F$WRBK= 000000 RI$RML= 000003
CE$NSD= 177755 C$WRCL= 000065 F$CLCL= 000001 F$WRCL= 000001 RI$RMS= 000005
CE$NST= 177754 C$WRCM= 000036 F$CLCO= 000000 F$WRCM= 000000 RI$ZLC= 000011
CE$NWE= 177773 C$WRRC= 000061 F$CLFL= 000000 F$WRRC= 000000 RI$ZLN= 000013
CE$OBJ= 177750 C$ZRCN= 000064 F$CLLK= 000006 F$ZERO= 000001 RI$ZRM= 000012
CE$OPN= 177761 C$$CKP= 000000 F$CLLN= 000002 F$ZRCN= 000001 R$$DER= 000000
CE$OVR= 177764 C$$ORE= 000400 F$DPOS= 000001 F$$LVL= 000001 R$$K11= 000001
CE$PAR= 177763 C$$RSH= 177564 F$DUMP= 000000 F$150 = 000002 R$$SND= 000000
CE$PRO= 177751 C.ADDR= 000014 F$EVNT= 000001 F$300 = 000012 R$$11M= 000000
CE$REJ= 177772 C.BKNM= 000014 F$EXAM= 000001 F$50 = 000002 SPRAY = ****** GX
CE$TMO= 177762 C.CTXT= 000004 F$EXHO= 000000 F$550 = 000002 SP$DHO= 000003
CS$ACK= 000002 C.FUNC= 000006 F$GTCM= 000001 G$$TPP= 000000 SP$DRP= 000007
CS$LKE= 000001 C.LEN = 000012 F$INCM= 000000 G$$TSS= 000000 SP$DTP= 000010
CS$LNA= 000002 C.LINE= 000014 F$INLU= 000001 G$$TTK= 000000 SP$LHO= 000002
CS$LOG= 000003 C.LKNM= 000020 F$IRLU= 000000 I$$RAR= 000000 SP$LLP= 000011
CS$NCH= 000003 C.LUN = 000020 F$LKLU= 000010 I$$RDN= 000000 SP$LNM= 000016
CS$SUC= 000001 C.MODE= 000021 F$LNLU= 000002 K$$CNT= 177546 SP$LNO= 000015
C$ALBF= 000032 C.PRID= 000017 F$LNSR= 000001 K$$CSR= 177546 SP$LOF= 000012
C$ALCB= 000033 C.PROC= 000007 F$LOAD= 000000 K$$LDC= 000000 SP$LST= 000001
C$CLCL= 000067 C.PROM= 000016 F$LOGD= 000001 K$$TPS= 000074 SP$NDM= 000014
C$CLCO= 000003 C.PTR = 000000 F$LOOP= 000001 LD$LP = 000000 SP$NDO= 000013
C$CLFL= 000004 C.RET = 000010 F$NTCM= 000000 L$$ASG= 000000 SP$NST= 000006
C$CLLK= 000052 C.SAVE= 000022 F$OPCL= 000001 L$$DRV= 000000 SP$RRP= 000004
C$CLLN= 000005 C.SERV= 000002 F$OPCO= 000000 L$$P11= 000001 SP$RTP= 000005
C$LEN = 000026 C.TASK= 000016 F$OPIN= 000000 L$$11R= 000000 S$$WRG= 000000
C$NOPN= 000031 C.TYPE= 000016 F$OPIR= 000000 MOVE = ****** GX S$$YSZ= 001600
C$NORD= 000032 C.WAIT= 000020 F$OPLK= 000005 M$$CRB= 000124 T$$KMG= 000000
C$OPCL= 000066 D$$BUG= 177514 F$OPLN= 000002 M$$CRX= 000000 T$$MIN= 000000
C$OPCO= 000034 D$$ISK= 000000 F$OPLO= 000000 M$$FCS= 000000 V$$CTR= 001000
C$OPIN= 000041 D$$L11= 000001 F$OPOR= 000000 M$$OVR= 000000 X$$DBT= 000000
C$OPIR= 000056 FL$BOO= 000001 F$OPOT= 000000 NICOBJ= 000023 YES = 000001
C$OPLK= 000051 FL$DUM= 000001 F$ORLU= 000000 NO = 000000 $$CSTA= 000000
C$OPLN= 000045 FL$LOA= 000001 F$OTLU= 000001 N$$USR= 000001 $$PRST= 000010
C$OPOR= 000057 FL$LOO= 000001 F$RCBK= 000002 N.RAC 000070 $$STIX= 000777
C$OPOT= 000042 FR$LCC= 000001 F$RCEV= 000001 N.RACC 000066 $$STNM= 000000
C$ORD = 000145 FR$LCS= 000001 F$RCIN= 000000 N.RDE 000012 $$S776= 000000
C$PROC= 000200 FR$LNC= 000001 F$RCMA= 000000 N.RDEC 000010 $$S777= 000000
C$RCBK= 000047 FR$LNL= 000001 F$RCMS= 000002 N.RFM 000006 $$TRNM= 000000
C$RCEV= 000050
BLCNBK MACRO M1110 13-OCT-79 10:47 PAGE 5-2
SYMBOL TABLE
. ABS. 000110 000
000106 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 8919 WORDS ( 35 PAGES)
DYNAMIC MEMORY: 10060 WORDS ( 38 PAGES)
ELAPSED TIME: 00:00:27
BLCNBK,[135,30]BLCNBK/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,BLCNBK
BLCNBK CREATED BY MACRO ON 13-OCT-79 AT 10:47 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
BLCNBK 000000 RG #5-96
C.ADDR = 000014 5-98
F$TRAC = 000000 5-96 5-96 5-122 5-122
I$$AS = ****** 5-96
MOVE = ****** GX 5-109
NICOBJ = 000023 #5-92 5-119
N.RFM 000006 *5-120
N.RND 000000 5-107
N.ROT 000007 *5-119
N.RQL = 000110 5-102
R$$11D = ****** 5-96
R$$11M = 000000 5-96
SPRAY = ****** GX 5-103
$$CSTA = 000000 #5-96
$$PRST = 000010 #5-96 5-113 #5-113
$$SLST = ****** 5-96 5-113 5-114 5-114 5-115 5-118 5-118 5-122
$$STIX = 000777 #5-96 5-113 5-113 #5-113 5-113 5-113 #5-113 5-118 #5-118
5-118 5-118 #5-118 5-118
$$STNM = 000000 #5-96 5-113 #5-113 5-113 5-113 5-114 5-115 5-118 5-118
#5-118
$$S776 = 000000 #5-113 5-118
$$S777 = 000000 #5-113 5-118
$$TRNM = 000000 #5-96 5-113 #5-113 5-114 5-115 5-118 #5-118
BLCNBK CREATED BY MACRO ON 13-OCT-79 AT 10:47 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #5-103 #5-109
CASE #5-96
CONDF #4-82 4-86
CRBDF$ #4-82 4-87
DO #5-96 5-115
ELSE #5-96
ENDCAS #5-96
ENDIF #5-96 5-118
ENDPRO #5-96 5-122
ENDWHI #5-96 5-118
FALSE #5-96 5-114
FALSEB #5-96
IF #5-96 5-113
JMPPRO #5-96
ONCASE #5-96
PROC #4-82 5-96
PROCLC #5-96
RESSTK #4-82 #5-104 #5-110 #5-121
SAVSTK #4-82 #5-97 #5-99 #5-106
SWSTK$ #5-96
THEN #5-96 #5-115
TRUE #5-96
TRUEB #5-96
WHILE #5-96 5-113
$$BGND #5-96 5-114
$$BGNN #5-96 5-114 5-118
$$ELSE #5-96
$$GEN1 #5-96 #5-96 #5-113 #5-114 #5-114 #5-115 #5-118 #5-118 #5-122
$$GEN2 #5-96
$$GNAB #5-96
$$GNBT #5-96 #5-114
$$GNCM #5-96 #5-114
$$INMC #5-96 #5-96
$$INSY #5-96 #5-96
$$LAB #5-96 5-113 5-115 5-118
$$POP #5-96 #5-118 #5-118
$$POPI #5-96 #5-118 #5-118
$$PUSH #5-96 #5-113 #5-113
$$STSM #5-96 #5-113 #5-113
$$SYS #5-96
$$TRCE #5-96 5-96 5-122