Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/cvltst.list
There are no other files named cvltst.list in the archive.
CVLTST MACRO M1110 13-OCT-79 10:51 PAGE 3
1 .TITLE CVLTST
2 .IDENT /V01.01/
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 CONVERT A SYSTEM RAD-50 LINE TYPE TO A STANDARD
26 ; LINE TYPE NUMBER
27 ;
28 ;
29 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
30 ;
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 10-FEB-78
34 ; VERSION 2.0 RELEASE
35 ; 1.01 30-AUG-79 ALAN D. PECKHAM
36 ; NO INTERNAL CHANGE - CVLDAT WAS CHANGED
37 ;
CVLTST MACRO M1110 13-OCT-79 10:51 PAGE 4
39 ;
40 ;======================================================================;
41 ;++
42 ; +-------------------------------------------------+
43 ; I I
44 ; I C V L T S T I
45 ; I - - - - - - I
46 ; I I
47 ; +-------------------------------------------------+
48 ;
49 ; FUNCTION:
50 ;
51 ; UTILITY MODULE TO CONVERT A SYSTEM RAD-50 LINE TYPE TO A STANDARD
52 ; LINE TYPE NUMBER
53 ;
54 ; CALLING SEQUENCE: CALL CVLTST
55 ;
56 ; INPUT:
57 ;
58 ; R0 - SYSTEM RAD-50 LINE TYPE
59 ;
60 ; OUTPUT:
61 ;
62 ; C-BIT - CLEAR IF SUCCESSFUL, SET IF FAILURE
63 ; R0 - STANDARD LINE TYPE NUMBER
64 ;
65 ; REQUIREMENTS:
66 ;
67 ; INPUT VIA CVLDAT:
68 ;
69 ; CONDAT - TABLE OF SYSTEM RAD-50 VALUES, INDEXED BY STANDARD TYPE
70 ; ENDIX - END INDEX OF CONVERSION TABLE
71 ;
72 ;--
73 ;======================================================================;
74 ;
75 ;
76 ; EXTERNAL MACROS
77 ;
78 .MCALL PROC,CVLMDF
79 ;
80 ; DEFINE READ ONLY MEMORY
81 ;
82 000000 CVLMDF ;LINE TYPE CONVERSION TABLE
CVLTST MACRO M1110 13-OCT-79 10:51 PAGE 5
84 ;
85 ; PROCEDURE BODY
86 ;
87 000000 PROC CVLTST
88 000000 005001 CLR R1 ;INITIALIZE INDEX IN TABLE
89 000002 WHILE ; CURRENT INDEX < END AND RAD50 LINE ID <> TABLE ENTRY
90 000002 FALSE GE R1,#ENDIX
91 000010 FALSE EQ R0,CONTAB(R1)
92 000016 DO
93 000016 062701 000002 ADD #2,R1 ;MOVE INDEX TO NEXT ENTRY
94 000022 ENDWHILE
95 000024 IF ; INDEX WITHIN TABLE
96 000024 FALSE GE R1,#ENDIX
97 000032 THEN
98 000032 010100 MOV R1,R0 ;SET RETURN REGISTER TO LINE TYPE
99 000034 000241 CLC ;SUCCESS
100 000036 ELSE
101 000040 000261 SEC ;FAILURE
102 000042 ENDIF
103 000042 ENDPROC
104 000001 .END
CVLTST MACRO M1110 13-OCT-79 10:51 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 FS$PAS= 000001 F$OPLK= 000005 F$WRCM= 000000 R$$SND= 000000
A$$CPS= 000000 FT$CNS= 000000 F$OPLN= 000002 F$WRRC= 000000 R$$11M= 000000
A$$TRP= 000000 FT$NOD= 000001 F$OPLO= 000000 F$ZERO= 000001 S$$WRG= 000000
CONTAB 000000R 002 FT$TSK= 000001 F$OPOR= 000000 F$ZRCN= 000001 S$$YSZ= 001600
CVLTST 000000RG F$ALBF= 000001 F$OPOT= 000000 F$$LVL= 000001 T$$KMG= 000000
C$$CKP= 000000 F$ALCB= 000001 F$ORLU= 000000 F$150 = 000002 T$$MIN= 000000
C$$ORE= 000400 F$CB = 000017 F$OTLU= 000001 F$300 = 000012 V$$CTR= 001000
C$$RSH= 177564 F$CLCL= 000001 F$RCBK= 000002 F$50 = 000002 X$$DBT= 000000
D$$BUG= 177514 F$CLCO= 000000 F$RCEV= 000001 F$550 = 000002 YES = 000001
D$$ISK= 000000 F$CLFL= 000000 F$RCIN= 000000 G$$TPP= 000000 $$CSTA= 000000
D$$L11= 000001 F$CLLK= 000006 F$RCMA= 000000 G$$TSS= 000000 $$PRST= 000011
ENDIX = 000120 F$CLLN= 000002 F$RCMS= 000002 G$$TTK= 000000 $$STIX= 000777
FL$BOO= 000001 F$DPOS= 000001 F$RDBK= 000000 I$$RAR= 000000 $$STNM= 000000
FL$DUM= 000001 F$DUMP= 000000 F$RDCM= 000000 I$$RDN= 000000 $$S776= 000000
FL$LOA= 000001 F$EVNT= 000001 F$RDIN= 000001 K$$CNT= 177546 $$S777= 000000
FL$LOO= 000001 F$EXAM= 000001 F$RDIS= 000012 K$$CSR= 177546 $$TRNM= 000000
FR$LCC= 000001 F$EXHO= 000000 F$RDRC= 000000 K$$LDC= 000000 $$$PAS= 000001
FR$LCS= 000001 F$GTCM= 000001 F$RECO= 000001 K$$TPS= 000074 $$$0 = 000001
FR$LNC= 000001 F$INCM= 000000 F$RLBF= 000001 LD$LP = 000000 $$$10 = 000001
FR$LNL= 000001 F$INLU= 000001 F$RLCB= 000001 L$$ASG= 000000 $$$12 = 000001
FR$LNS= 000001 F$IRLU= 000000 F$STBK= 000000 L$$DRV= 000000 $$$14 = 000001
FR$RMC= 000001 F$LKLU= 000010 F$STPR= 000001 L$$P11= 000001 $$$2 = 000001
FR$RML= 000001 F$LNLU= 000002 F$STPS= 000006 L$$11R= 000000 $$$20 = 000001
FR$RMS= 000001 F$LNSR= 000001 F$TEST= 000001 M$$CRB= 000124 $$$24 = 000001
FS$HOS= 000001 F$LOAD= 000000 F$TRAC= 000000 M$$CRX= 000000 $$$26 = 000001
FS$INT= 000000 F$LOGD= 000001 F$TRBK= 000001 M$$FCS= 000000 $$$30 = 000001
FS$LLP= 000001 F$LOOP= 000001 F$TRIG= 000001 M$$OVR= 000000 $$$34 = 000001
FS$LOF= 000001 F$NTCM= 000000 F$TRIN= 000000 NO = 000000 $$$36 = 000001
FS$LOG= 000001 F$OPCL= 000001 F$TRMA= 000000 N$$USR= 000001 $$$4 = 000001
FS$LST= 000001 F$OPCO= 000000 F$TRMS= 000002 P$$P45= 000000 $$$40 = 000001
FS$NET= 000001 F$OPIN= 000000 F$WRBK= 000000 R$$DER= 000000 $$$6 = 000001
FS$NST= 000000 F$OPIR= 000000 F$WRCL= 000001 R$$K11= 000001
. ABS. 000000 000
000044 001
CVLDAT 000120 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 9050 WORDS ( 36 PAGES)
DYNAMIC MEMORY: 10060 WORDS ( 38 PAGES)
ELAPSED TIME: 00:00:32
CVLTST,[135,30]CVLTST/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,CVLTST
CVLTST CREATED BY MACRO ON 13-OCT-79 AT 10:51 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CONTAB 000000 R #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-91
CVLTST 000000 RG #5-87
ENDIX = 000120 #4-82 5-90 5-96
F$TRAC = 000000 5-87 5-87 5-103 5-103
I$$AS = ****** 5-87
R$$11D = ****** 5-87
R$$11M = 000000 5-87
$$CSTA = 000000 #5-87
$$PRST = 000011 #5-87 5-89 #5-89 5-95 #5-95
$$SLST = ****** 5-87 5-89 5-90 5-90 5-91 5-91 5-92 5-94 5-94
5-96 5-96 5-97 5-100 5-100 5-102 5-103
$$STIX = 000777 #5-87 5-89 5-89 #5-89 5-89 5-89 #5-89 5-94 #5-94
5-94 5-94 #5-94 5-94 5-95 5-95 #5-95 5-95 5-95
#5-95 5-102 #5-102 5-102 5-102 #5-102 5-102
$$STNM = 000000 #5-87 5-89 #5-89 5-89 5-89 5-90 5-91 5-92 5-94
5-94 #5-94 5-95 #5-95 5-95 5-96 5-97 5-100 5-100
5-102 #5-102
$$S776 = 000000 #5-89 5-94 #5-95 5-102
$$S777 = 000000 #5-89 5-94 #5-95 5-102
$$TRNM = 000000 #5-87 5-89 #5-89 5-90 5-91 5-92 5-94 #5-94 5-95
#5-95 5-96 5-97 5-100 #5-100 5-102 #5-102
$$$PAS = 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
$$$0 = 000001 4-82 #4-82
$$$10 = 000001 4-82 #4-82
$$$12 = 000001 4-82 #4-82
$$$14 = 000001 4-82 #4-82
$$$2 = 000001 4-82 #4-82 4-82
$$$20 = 000001 4-82 #4-82
$$$24 = 000001 4-82 #4-82
$$$26 = 000001 4-82 #4-82
$$$30 = 000001 4-82 #4-82
$$$34 = 000001 4-82 #4-82
$$$36 = 000001 4-82 #4-82
$$$4 = 000001 4-82 #4-82 4-82
$$$40 = 000001 4-82 #4-82
$$$6 = 000001 4-82 #4-82
CVLTST CREATED BY MACRO ON 13-OCT-79 AT 10:51 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CASE #5-87
CVLMDF #4-78 4-82
DO #5-87 5-92
DVTMDF #4-82 4-82
ELSE #5-87 5-100
ENDCAS #5-87
ENDIF #5-87 5-94 5-102
ENDPRO #5-87 5-103
ENDWHI #5-87 #5-94
FALSE #5-87 5-90 5-91 5-96
FALSEB #5-87
IF #5-87 #5-89 #5-95
JMPPRO #5-87
ONCASE #5-87
PROC #4-78 5-87
PROCLC #5-87
SWSTK$ #5-87
THEN #5-87 #5-92 #5-97
TRUE #5-87
TRUEB #5-87
WHILE #5-87 5-89
XXX #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
$$BGND #5-87 5-90 5-91 5-96
$$BGNN #5-87 5-90 5-91 5-94 5-96 5-100
$$ELSE #5-87 5-100
$$GEN1 #5-87 #5-87 #5-89 #5-90 #5-91 #5-92 #5-94 #5-94 #5-96 #5-97
#5-100 #5-100 #5-102 #5-103
$$GEN2 #5-87 5-90 5-91 5-96
$$GNAB #5-87 5-90 5-91 5-96
$$GNBT #5-87
$$GNCM #5-87 #5-90 #5-91 #5-96
$$INMC #5-87 5-87
$$INSY #5-87 #5-87
$$LAB #5-87 5-89 5-92 5-94 5-97 5-100 5-102
$$POP #5-87 #5-94 #5-94 #5-102 #5-102
$$POPI #5-87 #5-94 #5-94 #5-102 #5-102
$$PUSH #5-87 #5-89 #5-89 #5-95 #5-95
$$STSM #5-87 #5-89 #5-89 #5-95 #5-95
$$SYS #5-87
$$TRCE #5-87 5-87 5-103