File: CCLCDX.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/CCL CD EXT. FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 1
FILE # 1
1 /CCL CD EXT. FOR KBM V50
2 /
3 /
4 /
5 /
6 /
7 /
8 /
9 /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
10 /
11 /
12 /
13 /
14 /
15 /
16 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
17 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
18 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
19 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
20 /
21 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
22 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
23 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
24 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
25 /
26 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
27 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
28 /DIGITAL.
29 /
30 /
31 /
32
/CCL CD EXT. FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 2
FILE # 1
33
34
35 / CCL CD EXTENSION
36
37
38 .ENTRY POUND,NUMBER,EQLPRM,DNUMB
39 .EXTERNAL GCH
40 .EXTERNAL LV
41 .EXTERNAL ERROR
42
145
146 0000 .RSECT CCLCDX
147 0001 FIELD 1
/CCL CD EXT. FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 4
FILE # 1
148
149
150 10000 0000 EQLPRM, 0
151 10001 3274 DCA NUMFUJ
152 10002 4217 JMS NUMBER
153 10003 3777 DCA I (MPARAM+3
154 10004 7330 CLA CLL CML RAR
155 10005 0776 AND I (MPARAM-1 /PRESERVE ALTMODE
156 10006 1276 TAD HIORD
157 10007 3776 DCA I (MPARAM-1
158 10010 5600 JMP I EQLPRM
159
160 10011 0000 DNUMB, 0
161 10012 7326 CLA CLL CML RTL
162 10013 3274 DCA NUMFUJ /SET "NUMBER" TO ACCEPT
163 /DIGITS 8 AND 9
164 10014 7240 STA /ALLOW DECIMAL
165 10015 4217 JMS NUMBER
166 10016 5611 JMP I DNUMB
/CCL CD EXT. FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 5
FILE # 1
167
168
169 10017 0000 NUMBER, 0
170 10020 7640 SZA CLA
171 10021 1375 TAD (<TAD NUM>-SKP
172 10022 1374 TAD (SKP
173 10023 3260 DCA NUMADD /SET NUMADD TO EITHER "SKP" OR "TAD NUM"
174 10024 3276 DCA HIORD
175 10025 3273 NUMLP, DCA NUM
176 10026 4773 JMS I (GCH
177 10027 2275 ISZ NUMKNT
178 10030 7410 SKP
179 10031 5265 JMP EONUM2
180 10032 7040 CMA
181 10033 1274 TAD NUMFUJ
182 10034 1372 TAD ("8 /TEST INPUT CHARACTER FOR RANGE
183 10035 7140 CLL CMA /0-7 IF NUMFUJ=0
184 10036 1371 TAD (10 /0-9 IF NUMFUJ=2
185 10037 1274 TAD NUMFUJ
186 10040 7420 SNL
187 10041 5264 JMP EONUM
188 10042 3020 DCA T
189 10043 7346 CLA CLL CMA RTL
190 10044 3032 DCA DELIM
191 10045 1273 TAD NUM
192 10046 7104 ROTLP, CLL RAL
193 10047 3277 DCA NUMX
194 10050 1276 TAD HIORD
195 10051 7004 RAL
196 10052 7510 NUMSKP, SPA /MODIFIED BY #
197 10053 5300 JMP CDER5
198 10054 3276 DCA HIORD
199 10055 1277 TAD NUMX
200 10056 2032 ISZ DELIM
201 10057 5246 JMP ROTLP
202 10060 1273 NUMADD, TAD NUM /SKP IF OCTAL
203 10061 1273 TAD NUM
204 10062 1020 TAD T
205 10063 5225 JMP NUMLP
206 10064 1370 EONUM, TAD ("0
207 10065 3032 EONUM2, DCA DELIM
208 10066 1275 TAD NUMKNT
209 10067 7710 SPA CLA
210 10070 5300 JMP CDER5 /FEWER THAN CORRECT NUMBER OF DIGITS
211 10071 1273 TAD NUM
212 10072 5617 JMP I NUMBER
213
214 10073 0000 NUM, 0
215 10074 0000 NUMFUJ, 0
216 10075 0000 NUMKNT, 0 /SET TO -N-1 TO FORCE N DIGITS
217 10076 0000 HIORD, 0
218 10077 0000 NUMX, 0
/CCL CD EXT. FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 6
FILE # 1
219
220
221 10100 4767 CDER5, JMS I (ERROR
222 10101 0001 1. /#Bad number
223
224 10102 0000 POUND, 0 /USED AS FLAG INDICATING SAW #
225 10103 1374 TAD (SKP
226 10104 3252 DCA NUMSKP
227 10105 1366 TAD (-11
228 10106 3275 DCA NUMKNT
229 10107 4217 JMS NUMBER
230 10110 3024 DCA NAME2
231 10111 1276 TAD HIORD
232 10112 3023 DCA NAME1
233 10113 7240 STA
234 10114 1034 TAD LXR
235 10115 3034 DCA LXR
236 10116 1366 TAD (-11
237 10117 3275 DCA NUMKNT
238 10120 4217 JMS NUMBER
239 10121 3026 DCA NAME4
240 10122 1276 TAD HIORD
241 10123 3025 DCA NAME3
242 10124 1365 TAD (SPA
243 10125 3252 DCA NUMSKP
244 10126 5764 JMP I (LV
------
10164 0000 *
10165 7510
10166 7767
10167 0000 *
10170 0260
10171 0010
10172 0270
10173 0000 *
10174 7410
10175 1663
10176 7642
10177 7646
245 0200 PAGE
/CCL CD EXT. FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 7
SYMBOL TABLE
AMFLAG 0017 MDATE 7666
BATBUF 4400 MIFILE 7617
BATCCL 7777 MMISC 7777
BATERR 7000 MOFILE 7600
BATIN 5400 MONLOD 7605
BATOUT 7400 MONSAV 7600
BATSPL 7200 MPARAM 7643
BATTBL 6600 MREAD 7757
BATVFY 5600 MSOVL2 0055
BEGLN 1000 NAME1 0023
BFR 3000 NAME2 0024
CCLBLK 0067 NAME3 0025
CCLCDX 0200 RSECT NAME4 0026
CCLDEV 0001 NAME5 0027
CCLHND 0000 NMBASE 0037
CCLINC 0054 NUM 0073+ CCLCDX
CCLNUM 0265 NUMADD 0060+ CCLCDX
CCLSW 0435 NUMBER E 0017+ CCLCDX
CCLTAB 0265 NUMFUJ 0074+ CCLCDX
CCLVER 0301 NUMKNT 0075+ CCLCDX
CDER5 0100+ CCLCDX NUMLP 0025+ CCLCDX
CLXR 0035 NUMSKP 0052+ CCLCDX
CTRLCK 1241 NUMX 0077+ CCLCDX
DEASAD 0427 OS78BI 7771
DEF 0022 OV 1375
DEFALT 0033 POUND E 0102+ CCLCDX
DELIM 0032 PRMES 0330
DEV1 0030 PRQMRK 1357
DEV2 0031 PTR 0036
DNUMB E 0011+ CCLCDX REMBLO 0065
DOLFLG 7776 REMSPA 4000
DVHNDL 7647 REST 5000
EONUM 0064+ CCLCDX ROTLP 0046+ CCLCDX
EONUM2 0065+ CCLCDX SBLOCK 7776
EQLPRM E 0000+ CCLCDX SCOPE 7726
ERRET 0033 SHNDLR 7607
ERROR X **** SM8 6254
EXTTBL 6600 SOFSET 7747
FILDMY 0002 SPLNUM 7777
FILETB 7000 SWSTBL 7360
FLD: 0 0200 ASECT SYBLKN 7774
F0STUF 7200 SYCNT 7775
GCH X **** SYSTEM 0022
GETCCL 1362 T 0020
GIOT 6770 TBLTBL 6100
GLINE 1200 TESBUF 2000
HIORD 0076+ CCLCDX TT 0021
HNDLR 4400 USR 0200
JSBITS 7746 XFERV G 0070
KEYMON 0403 XR 0016
KMNTRY 0400 XR2 0015
LONGTB 5000
LV X ****
LXR 0034