Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/cnfmov.list
There are no other files named cnfmov.list in the archive.
CNFMOV MACRO M1110 13-OCT-79 10:50 PAGE 3
1 .TITLE CNFMOV
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 MOVE DATA FROM A CONFIGURATION DATABASE ENTRY
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
CNFMOV MACRO M1110 13-OCT-79 10:50 PAGE 4
36 ;
37 ;======================================================================;
38 ;++
39 ; +-------------------------------------------------+
40 ; I I
41 ; I C N F M O V I
42 ; I - - - - - - I
43 ; I I
44 ; +-------------------------------------------------+
45 ;
46 ; FUNCTION:
47 ;
48 ; UTILITY MODULE TO MOVE DATA FROM A CONFIGURATION DATABASE ENTRY
49 ; TO A CONTEXT IMAGE FIELD
50 ;
51 ; CALLING SEQUENCE: CALL CNFMOV
52 ;
53 ; INPUT:
54 ;
55 ; R0 - OFFSET OF FIELD IN ENTRY
56 ; R2 - OFFSET OF IMAGE FIELD IN CONTEXT
57 ; R3 - ADDRESS OF ENTRY
58 ; R4 - ADDRESS OF CONTEXT BLOCK
59 ;
60 ; OUTPUT:
61 ;
62 ; @R4+R2 - IMAGE FIELD OF DATA
63 ;
64 ; REQUIREMENTS:
65 ;
66 ; CONFIGURATION DATABASE SYMBOLS
67 ;
68 ; SVNMAD - OFFSET OF SERVER NAME ADDRESS FIELD IN ENTRY
69 ;
70 ; NOTES:
71 ;
72 ; CONFIGURATION DATABASE FIELD CONTAINS ADDRESS OF DATA IN FIRST WORD
73 ; AND LENGTH IN SECOND.
74 ;
75 ;--
76 ;======================================================================;
77 ;
78 ;
79 ; EXTERNAL MACROS
80 ;
81 .MCALL PROC,CNFDF,SAVSTK,RESSTK
82 ;
83 ; DEFINE EXTERNAL SYMBOLS
84 ;
85 000000 CNFDF ;CONFIGURATION DATABASE SYMBOLS
86 ;
87 ; DEFINE LOCAL SYMBOLS
88 ;
89 000006 NODLEN = 6. ;MAXIMUM LENGTH OF A NODE NAME
CNFMOV MACRO M1110 13-OCT-79 10:50 PAGE 5
91 ;
92 ; PROCEDURE BODY
93 ;
94 000000 PROC CNFMOV
95 000000 060402 ADD R4,R2 ;DESTINATION ADDRESS = CONTEXT + OFFSET
96 000002 010046 MOV R0,-(SP) ;SAVE DATABASE ENTRY OFFSET ON STACK
97 000004 060300 ADD R3,R0 ;SOURCE ADDRESS = ENTRY ADDRESS + OFFSET
98 000006 016001 000002 MOV 2(R0),R1 ;GET LENGTH OF ENTRY IN DATABASE
99 000012 IF ; ENTRY LENGTH = 0 AND FIELD TYPE = SERVER NAME
100 000012 FALSE NE
101 000014 FALSE NE (SP),#SVNMAD
102 000022 THEN
103 000022 012701 000006 MOV #NODLEN,R1 ;MAXIMUM LENGTH OF NODE NAME
104 000026 SAVSTK <R2> ;SAVE DESTINATION POINTER
105 000030 005202 INC R2 ;LEAVE SPACE FOR IMAGE LENGTH
106 000032 CALL LOCNOD ;PUT LOCAL NODE NAME IN CONTEXT
107 000036 RESSTK <R2> ;GET POINTER TO BEGINNING OF FIELD
108 000040 110112 MOVB R1,(R2) ;AND PUT IN LENGTH OF LOCAL NODE NAME
109 000042 ELSE
110 000044 110122 MOVB R1,(R2)+ ;PUT LENGTH INTO CONTEXT IMAGE
111 000046 011000 MOV (R0),R0 ;GET ADDRESS OF STRING
112 000050 CALL MOVE ;AND PUT IT INTO CONTEXT
113 000054 ENDIF
114 000054 005726 TST (SP)+ ;CLEAN UP THE STACK
115 000056 ENDPROC
116 000001 .END
CNFMOV MACRO M1110 13-OCT-79 10:50 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 FS$NET= 000001 F$OPCO= 000000 F$TRMA= 000000 MOVE = ****** GX
A$$CPS= 000000 FS$NST= 000000 F$OPIN= 000000 F$TRMS= 000002 M$$CRB= 000124
A$$TRP= 000000 FS$PAS= 000001 F$OPIR= 000000 F$WRBK= 000000 M$$CRX= 000000
BTPSAD= 000024 FT$CNS= 000000 F$OPLK= 000005 F$WRCL= 000001 M$$FCS= 000000
CNFMOV 000000RG FT$NOD= 000001 F$OPLN= 000002 F$WRCM= 000000 M$$OVR= 000000
C$$CKP= 000000 FT$TSK= 000001 F$OPLO= 000000 F$WRRC= 000000 NO = 000000
C$$ORE= 000400 F$ALBF= 000001 F$OPOR= 000000 F$ZERO= 000001 NODLEN= 000006
C$$RSH= 177564 F$ALCB= 000001 F$OPOT= 000000 F$ZRCN= 000001 N$$USR= 000001
DMFLAD= 000030 F$CB = 000017 F$ORLU= 000000 F$$LVL= 000001 P$$P45= 000000
D$$BUG= 177514 F$CLCL= 000001 F$OTLU= 000001 F$150 = 000002 R$$DER= 000000
D$$ISK= 000000 F$CLCO= 000000 F$RCBK= 000002 F$300 = 000012 R$$K11= 000001
D$$L11= 000001 F$CLFL= 000000 F$RCEV= 000001 F$50 = 000002 R$$SND= 000000
ENTLEN= 000034 F$CLLK= 000006 F$RCIN= 000000 F$550 = 000002 R$$11M= 000000
FL$BOO= 000001 F$CLLN= 000002 F$RCMA= 000000 G$$TPP= 000000 SVLNID= 000010
FL$DUM= 000001 F$DPOS= 000001 F$RCMS= 000002 G$$TSS= 000000 SVNMAD= 000004
FL$LOA= 000001 F$DUMP= 000000 F$RDBK= 000000 G$$TTK= 000000 S$$WRG= 000000
FL$LOO= 000001 F$EVNT= 000001 F$RDCM= 000000 I$$RAR= 000000 S$$YSZ= 001600
FR$LCC= 000001 F$EXAM= 000001 F$RDIN= 000001 I$$RDN= 000000 TGNMAD= 000000
FR$LCS= 000001 F$EXHO= 000000 F$RDIS= 000012 K$$CNT= 177546 T$$KMG= 000000
FR$LNC= 000001 F$GTCM= 000001 F$RDRC= 000000 K$$CSR= 177546 T$$MIN= 000000
FR$LNL= 000001 F$INCM= 000000 F$RECO= 000001 K$$LDC= 000000 V$$CTR= 001000
FR$LNS= 000001 F$INLU= 000001 F$RLBF= 000001 K$$TPS= 000074 X$$DBT= 000000
FR$RMC= 000001 F$IRLU= 000000 F$RLCB= 000001 LDFLAD= 000014 YES = 000001
FR$RML= 000001 F$LKLU= 000010 F$STBK= 000000 LDPRAD= 000020 $$CSTA= 000000
FR$RMS= 000001 F$LNLU= 000002 F$STPR= 000001 LD$LP = 000000 $$PRST= 000010
FS$HOS= 000001 F$LNSR= 000001 F$STPS= 000006 LOCNOD= ****** GX $$STIX= 000777
FS$INT= 000000 F$LOAD= 000000 F$TEST= 000001 L$$ASG= 000000 $$STNM= 000000
FS$LLP= 000001 F$LOGD= 000001 F$TRAC= 000000 L$$DRV= 000000 $$S776= 000000
FS$LOF= 000001 F$LOOP= 000001 F$TRBK= 000001 L$$P11= 000001 $$S777= 000000
FS$LOG= 000001 F$NTCM= 000000 F$TRIG= 000001 L$$11R= 000000 $$TRNM= 000000
FS$LST= 000001 F$OPCL= 000001 F$TRIN= 000000
. ABS. 000000 000
000060 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 8272 WORDS ( 33 PAGES)
DYNAMIC MEMORY: 9004 WORDS ( 34 PAGES)
ELAPSED TIME: 00:00:28
CNFMOV,[135,30]CNFMOV/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,CNFMOV
CNFMOV CREATED BY MACRO ON 13-OCT-79 AT 10:50 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CNFMOV 000000 RG #5-94
F$TRAC = 000000 5-94 5-94 5-115 5-115
I$$AS = ****** 5-94
LOCNOD = ****** GX 5-106
MOVE = ****** GX 5-112
NODLEN = 000006 #4-89 5-103
R$$11D = ****** 5-94
R$$11M = 000000 5-94
SVNMAD = 000004 5-101
$$CSTA = 000000 #5-94
$$PRST = 000010 #5-94 *5-99 #5-99
$$SLST = ****** 5-94 5-100 5-101 5-101 5-102 5-109 5-109 5-113 5-115
$$STIX = 000777 #5-94 *5-99 *5-99 #5-99 *5-99 *5-99 #5-99 5-113 #5-113
5-113 5-113 #5-113 5-113
$$STNM = 000000 #5-94 *5-99 #5-99 *5-99 5-100 5-101 5-102 *5-109 5-109
5-113 #5-113
$$S776 = 000000 #5-99 5-113
$$S777 = 000000 #5-99 5-113
$$TRNM = 000000 #5-94 *5-99 #5-99 5-100 5-101 5-102 5-109 #5-109 5-113
#5-113
CNFMOV CREATED BY MACRO ON 13-OCT-79 AT 10:50 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #5-106 #5-112
CASE #5-94
CNFDF #4-81 #4-85
DO #5-94
ELSE #5-94 5-109
ENDCAS #5-94
ENDIF #5-94 5-113
ENDPRO #5-94 5-115
ENDWHI #5-94
FALSE #5-94 5-100 5-101
FALSEB #5-94
IF #5-94 #5-99
JMPPRO #5-94
ONCASE #5-94
PROC #4-81 5-94
PROCLC #5-94
RESSTK #4-81 5-107
SAVSTK #4-81 #5-104
SWSTK$ #5-94
THEN #5-94 #5-102
TRUE #5-94
TRUEB #5-94
WHILE #5-94
$$BGND #5-94 5-100 5-101
$$BGNN #5-94 5-100 5-101 5-109
$$ELSE #5-94 5-109
$$GEN1 #5-94 #5-94 #5-100 #5-101 #5-102 #5-109 #5-109 #5-113 #5-115
$$GEN2 #5-94 5-101
$$GNAB #5-94 5-100 5-101
$$GNBT #5-94
$$GNCM #5-94 #5-100 #5-101
$$INMC #5-94 5-94
$$INSY #5-94 #5-94
$$LAB #5-94 5-102 5-109 5-113
$$POP #5-94 5-113 5-113
$$POPI #5-94 #5-113 #5-113
$$PUSH #5-94 #5-99 #5-99
$$STSM #5-94 #5-99 #5-99
$$SYS #5-94
$$TRCE #5-94 5-94 5-115