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