Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/mvmsim.list
There are no other files named mvmsim.list in the archive.
MVMSIM MACRO M1110 13-OCT-79 10:58 PAGE 3
1 .TITLE MVMSIM
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 AN IMAGE FIELD FROM A MESSAGE
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
MVMSIM MACRO M1110 13-OCT-79 10:58 PAGE 4
36 ;
37 ;======================================================================;
38 ;++
39 ; +-------------------------------------------------+
40 ; I I
41 ; I M V M S I M I
42 ; I - - - - - - I
43 ; I I
44 ; +-------------------------------------------------+
45 ;
46 ; FUNCTION:
47 ;
48 ; UTILITY MODULE TO MOVE AN IMAGE FIELD FROM A MESSAGE
49 ;
50 ; CALLING SEQUENCE: CALL MVMSIM
51 ;
52 ; INPUT:
53 ;
54 ; R0 - MAXIMUM NUMBER OF BYTES TO MOVE
55 ; R1 - DESTINATION ADDRESS
56 ; R2 - SOURCE ADDRESS (POINTS TO BEGINNING OF FIELD)
57 ; R3 - END ADDRESS (BEGINNING ADDRESS + LENGTH)
58 ;
59 ; OUTPUT:
60 ;
61 ; C-BIT - CLEAR IF SUCCESS, SET IF NOT
62 ; R0 - ZERO
63 ; R1 - UPDATED DESTINATION ADDRESS
64 ; R2 - UPDATED SOURCE ADDRESS
65 ;
66 ; REQUIREMENTS:
67 ;
68 ; NICE MESSAGE SYMBOLS:
69 ;
70 ; NE$FOR - MESSAGE FORMAT ERROR RETURN CODE
71 ;
72 ; NOTES:
73 ;
74 ; BOTH THE DESTINATION AND SOURCE ARE EXPECTED TO HAVE A LENGTH BYTE
75 ; AT THE BEGINNING. THE MAXIMUM NUMBER OF BYTES TO MOVE DOES NOT
76 ; INCLUDE THIS BYTE.
77 ;
78 ;--
79 ;======================================================================;
80 ;
81 ;
82 ; EXTERNAL MACROS
83 ;
84 .MCALL PROC,NICDF
85 ;
86 ; DEFINE EXTERNAL SYMBOLS
87 ;
88 000000 NICDF ;NICE MESSAGE SYMBOLS
89 ;
90 ; PROCEDURE BODY
91 ;
92 000000 PROC MVMSIM
MVMSIM MACRO M1110 13-OCT-79 10:58 PAGE 4-1
93 000000 010046 MOV R0,-(SP) ;SAVE MAXIMUM COUNT
94 000002 CALL GTMSBY ;GET FIELD LENGTH
95 000006 IF ; SUCCESS
96 000006 FALSE CS
97 000010 THEN
98 000010 IF ; COUNT > MAXIMUM
99 000010 FALSE LE R0,(SP)+
100 000014 THEN
101 000014 012700 177776 MOV #NE$FOR,R0 ;MESSAGE FORMAT ERROR
102 000020 000261 SEC ;FAIL
103 000022 ELSE
104 000024 110021 MOVB R0,(R1)+ ;PUT COUNT AT DESTINATION
105 000026 CALL MVMSBY ;MOVE FROM MESSAGE TO DESTINATION
106 000032 ENDIF
107 000032 ELSE
108 000034 005726 TST (SP)+ ;CLEAN UP THE STACK
109 000036 000261 SEC ;FAIL
110 000040 ENDIF
111 000040 ENDPROC
112 000001 .END
MVMSIM MACRO M1110 13-OCT-79 10:58 PAGE 4-2
SYMBOL TABLE
A$$CHK= 000000 F$EVNT= 000001 F$TRMA= 000000 ND$LNS= 000005 N$DPOS= 000014
A$$CPS= 000000 F$EXAM= 000001 F$TRMS= 000002 ND$RMC= 000002 N$DUMP= 000003
A$$TRP= 000000 F$EXHO= 000000 F$WRBK= 000000 ND$RMS= 000003 N$EXAM= 000015
C$$CKP= 000000 F$GTCM= 000001 F$WRCL= 000001 ND$ZLC= 000000 N$LNSR= 000016
C$$ORE= 000400 F$INCM= 000000 F$WRCM= 000000 ND$ZLN= 000002 N$LOAD= 000002
C$$RSH= 177564 F$INLU= 000001 F$WRRC= 000000 ND$ZRM= 000001 N$LOGD= 000001
DM$END= 000000 F$IRLU= 000000 F$ZERO= 000001 NE$CON= 177762 N$LOOP= 000005
DM$MIM= 000002 F$LKLU= 000010 F$ZRCN= 000001 NE$FIL= 177763 N$RDIN= 000010
DM$PXA= 000003 F$LNLU= 000002 F$$LVL= 000001 NE$FIO= 177756 N$STPR= 000007
DM$SAD= 000001 F$LNSR= 000001 F$150 = 000002 NE$FOR= 177776 N$TEST= 000006
D$$BUG= 177514 F$LOAD= 000000 F$300 = 000012 NE$FUN= 177777 N$TRIG= 000004
D$$ISK= 000000 F$LOGD= 000001 F$50 = 000002 NE$LCO= 177766 N$ZERO= 000011
D$$L11= 000001 F$LOOP= 000001 F$550 = 000002 NE$LID= 177770 N$$USR= 000001
FL$BOO= 000001 F$NTCM= 000000 GTMSBY= ****** GX NE$LPR= 177757 N.MLEN= 000454
FL$DUM= 000001 F$OPCL= 000001 G$$TPP= 000000 NE$LST= 177767 PT$END= 000000
FL$LOA= 000001 F$OPCO= 000000 G$$TSS= 000000 NE$NCO= 177755 PT$HOS= 000003
FL$LOO= 000001 F$OPIN= 000000 G$$TTK= 000000 NE$NIC= 177753 PT$NAM= 000001
FR$LCC= 000001 F$OPIR= 000000 I$$RAR= 000000 NE$NOD= 177765 PT$NUM= 000002
FR$LCS= 000001 F$OPLK= 000005 I$$RDN= 000000 NE$NOR= 177754 P$$P45= 000000
FR$LNC= 000001 F$OPLN= 000002 K$$CNT= 177546 NE$ORD= 177774 R$$DER= 000000
FR$LNL= 000001 F$OPLO= 000000 K$$CSR= 177546 NE$PAR= 177760 R$$K11= 000001
FR$LNS= 000001 F$OPOR= 000000 K$$LDC= 000000 NE$RES= 177761 R$$SND= 000000
FR$RMC= 000001 F$OPOT= 000000 K$$TPS= 000074 NE$SER= 177764 R$$11M= 000000
FR$RML= 000001 F$ORLU= 000000 LD$LP = 000000 NE$STA= 177775 ST$DIS= 000006
FR$RMS= 000001 F$OTLU= 000001 LI$KNO= 000000 NL$BRC= 000001 ST$ENA= 000005
FS$HOS= 000001 F$RCBK= 000002 LI$STA= 000001 NL$BTR= 000002 ST$LOO= 000003
FS$INT= 000000 F$RCEV= 000001 LI$STR= 000002 NL$RES= 000005 ST$MAI= 000004
FS$LLP= 000001 F$RCIN= 000000 LS$DUM= 000002 NL$RLE= 000004 ST$OFF= 000001
FS$LOF= 000001 F$RCMA= 000000 LS$LOA= 000000 NL$RTR= 000003 ST$ON = 000000
FS$LOG= 000001 F$RCMS= 000002 LS$LOO= 000001 NL$TMO= 000006 ST$SHU= 000002
FS$LST= 000001 F$RDBK= 000000 LS$TRI= 000004 NL$ZRO= 000000 S$$WRG= 000000
FS$NET= 000001 F$RDCM= 000000 LS$TRQ= 000003 NN$CAC= 000011 S$$YSZ= 001600
FS$NST= 000000 F$RDIN= 000001 L$$ASG= 000000 NN$CNI= 000013 T$$KMG= 000000
FS$PAS= 000001 F$RDIS= 000012 L$$DRV= 000000 NN$CNR= 000014 T$$MIN= 000000
FT$CNS= 000000 F$RDRC= 000000 L$$P11= 000001 NN$EXT= 000003 V$$CTR= 001000
FT$NOD= 000001 F$RECO= 000001 L$$11R= 000000 NN$FMT= 000005 X$$DBT= 000000
FT$TSK= 000001 F$RLBF= 000001 MVMSBY= ****** GX NN$IZS= 000007 YES = 000001
F$ALBF= 000001 F$RLCB= 000001 MVMSIM 000000RG NN$IZU= 000010 $$CSTA= 000000
F$ALCB= 000001 F$STBK= 000000 M$$CRB= 000124 NN$MAC= 000012 $$PRST= 000011
F$CB = 000017 F$STPR= 000001 M$$CRX= 000000 NN$NKS= 000004 $$STIX= 000777
F$CLCL= 000001 F$STPS= 000006 M$$FCS= 000000 NN$RES= 000006 $$STNM= 000000
F$CLCO= 000000 F$TEST= 000001 M$$OVR= 000000 NN$UMR= 000002 $$S774= 000077
F$CLFL= 000000 F$TRAC= 000000 ND$BAD= 177777 NN$UMS= 000001 $$S775= 000010
F$CLLK= 000006 F$TRBK= 000001 ND$LCC= 000000 NN$ZRO= 000000 $$S776= 000000
F$CLLN= 000002 F$TRIG= 000001 ND$LCS= 000001 NO = 000000 $$S777= 000000
F$DPOS= 000001 F$TRIN= 000000 ND$LNC= 000004 NS$SUC= 000001 $$TRNM= 000000
F$DUMP= 000000
. ABS. 000000 000
000042 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 8598 WORDS ( 34 PAGES)
DYNAMIC MEMORY: 10060 WORDS ( 38 PAGES)
ELAPSED TIME: 00:00:26
MVMSIM,[135,30]MVMSIM/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,MVMSIM
MVMSIM CREATED BY MACRO ON 13-OCT-79 AT 10:58 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$TRAC = 000000 4-92 4-92 4-111 4-111
GTMSBY = ****** GX 4-94
I$$AS = ****** 4-92
MVMSBY = ****** GX 4-105
MVMSIM 000000 RG #4-92
NE$FOR = 177776 4-101
R$$11D = ****** 4-92
R$$11M = 000000 4-92
$$CSTA = 000000 #4-92
$$PRST = 000011 #4-92 4-95 #4-95 4-98 #4-98
$$SLST = ****** 4-92 4-96 4-97 4-99 4-99 4-100 4-103 4-103 4-106
4-107 4-107 4-110 4-111
$$STIX = 000777 #4-92 4-95 4-95 #4-95 4-95 4-95 #4-95 4-98 4-98
#4-98 4-98 4-98 #4-98 4-106 #4-106 4-106 4-106 #4-106
4-106 4-110 #4-110 4-110 4-110 #4-110 4-110
$$STNM = 000000 #4-92 4-95 #4-95 4-95 4-96 4-97 4-98 #4-98 4-98
4-99 4-100 4-103 4-103 4-106 #4-106 4-107 4-107 4-110
#4-110
$$S774 = 000077 #4-98 4-106
$$S775 = 000010 #4-98 4-106
$$S776 = 000000 #4-95 4-110
$$S777 = 000000 #4-95 4-110
$$TRNM = 000000 #4-92 4-95 #4-95 4-96 4-97 4-98 #4-98 4-99 4-100
4-103 #4-103 4-106 #4-106 4-107 #4-107 4-110 #4-110
MVMSIM CREATED BY MACRO ON 13-OCT-79 AT 10:58 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #4-94 #4-105
CASE #4-92
DO #4-92
ELSE #4-92 4-103 4-107
ENDCAS #4-92
ENDIF #4-92 #4-106 #4-110
ENDPRO #4-92 4-111
ENDWHI #4-92
FALSE #4-92 4-96 4-99
FALSEB #4-92
IF #4-92 #4-95 #4-98
JMPPRO #4-92
NICDF #4-84 4-88
ONCASE #4-92
PROC #4-84 4-92
PROCLC #4-92
SWSTK$ #4-92
THEN #4-92 #4-97 #4-100
TRUE #4-92
TRUEB #4-92
WHILE #4-92
$$BGND #4-92 4-96 4-99
$$BGNN #4-92 4-96 4-99 4-103 4-107
$$ELSE #4-92 4-103 4-107
$$GEN1 #4-92 4-92 4-96 4-97 4-99 4-100 4-103 4-103 4-106 4-107
4-107 4-110 4-111
$$GEN2 #4-92 4-99
$$GNAB #4-92 4-96 4-99
$$GNBT #4-92
$$GNCM #4-92 4-96 4-99
$$INMC #4-92 4-92
$$INSY #4-92 4-92
$$LAB #4-92 #4-97 #4-100 #4-103 #4-106 #4-107 #4-110
$$POP #4-92 #4-106 #4-106 #4-110 #4-110
$$POPI #4-92 #4-106 #4-106 #4-110 #4-110
$$PUSH #4-92 #4-95 #4-95 #4-98 #4-98
$$STSM #4-92 #4-95 #4-95 #4-98 #4-98
$$SYS #4-92
$$TRCE #4-92 4-92 4-111