Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | / |
2 | / | |
3 | / | |
4 | /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION | |
5 | / | |
6 | / | |
7 | / | |
8 | /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE | |
9 | /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT | |
10 | /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY | |
11 | /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. | |
12 | / | |
13 | /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER | |
14 | /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED | |
15 | /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH | |
16 | /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. | |
17 | / | |
18 | /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE | |
19 | /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY | |
20 | /DIGITAL. | |
21 | / | |
22 | / | |
23 | / | |
24 | ||
25 | \f | |
26 | /VERSION=V3A (D.H.) | |
27 | \f/1 CCL CD EXTENSION | |
28 | .ENTRY POUND,NUMBER,EQLPRM,DNUMB | |
29 | .EXTERNAL GCH | |
30 | .EXTERNAL LV | |
31 | MPARAM=7643 | |
32 | T=20 | |
33 | DELIM=32 | |
34 | NAME1=23 | |
35 | NAME2=24 | |
36 | NAME3=25 | |
37 | NAME4=26 | |
38 | LXR=34 | |
39 | .EXTERNAL PRMESG | |
40 | \f .RSECT CCLCDX | |
41 | FIELD 1 | |
42 | ||
43 | BADNUM, TEXT /#BAD NUMBER/ | |
44 | ||
45 | EQLPRM, 0 | |
46 | DCA NUMFUJ | |
47 | JMS NUMBER | |
48 | DCA I (MPARAM+3 | |
49 | CLA CLL CML RAR | |
50 | AND I (MPARAM-1 /PRESERVE ALTMODE | |
51 | TAD HIORD | |
52 | DCA I (MPARAM-1 | |
53 | JMP I EQLPRM | |
54 | \fNUMBER, 0 | |
55 | SZA CLA | |
56 | TAD (<TAD NUM>-SKP | |
57 | TAD (SKP | |
58 | DCA NUMADD /SET NUMADD TO EITHER "SKP" OR "TAD NUM" | |
59 | DCA HIORD | |
60 | NUMLP, DCA NUM | |
61 | JMS I (GCH | |
62 | ISZ NUMKNT | |
63 | SKP | |
64 | JMP EONUM2 | |
65 | CMA | |
66 | TAD NUMFUJ | |
67 | TAD ("8 /TEST INPUT CHARACTER FOR RANGE | |
68 | CLL CMA /0-7 IF NUMFUJ=0 | |
69 | TAD (10 /0-9 IF NUMFUJ=2 | |
70 | TAD NUMFUJ | |
71 | SNL | |
72 | JMP EONUM | |
73 | DCA T | |
74 | CLA CLL CMA RTL | |
75 | DCA DELIM | |
76 | TAD NUM | |
77 | ROTLP, CLL RAL | |
78 | DCA NUMX | |
79 | TAD HIORD | |
80 | RAL | |
81 | NUMSKP, SPA /MODIFIED BY # | |
82 | JMP CDER5 | |
83 | DCA HIORD | |
84 | TAD NUMX | |
85 | ISZ DELIM | |
86 | JMP ROTLP | |
87 | NUMADD, TAD NUM /SKP IF OCTAL | |
88 | TAD NUM | |
89 | TAD T | |
90 | JMP NUMLP | |
91 | EONUM, TAD ("0 | |
92 | EONUM2, DCA DELIM | |
93 | TAD NUMKNT | |
94 | SPA CLA | |
95 | JMP CDER5 /FEWER THAN CORRECT NUMBER OF DIGITS | |
96 | TAD NUM | |
97 | JMP I NUMBER | |
98 | ||
99 | NUM, 0 | |
100 | NUMFUJ, 0 | |
101 | NUMKNT, 0 /SET TO -N-1 TO FORCE N DIGITS | |
102 | HIORD, 0 | |
103 | NUMX, 0 | |
104 | \fDNUMB, 0 | |
105 | CLA CLL CML RTL | |
106 | DCA NUMFUJ /SET "NUMBER" TO ACCEPT | |
107 | /DIGITS 8 AND 9 | |
108 | STA /ALLOW DECIMAL | |
109 | JMS NUMBER | |
110 | JMP I DNUMB | |
111 | \fCDER5, JMS I (PRMESG | |
112 | BADNUM | |
113 | POUND, 0 /USED AS FLAG INDICATING SAW # | |
114 | TAD (SKP | |
115 | DCA NUMSKP | |
116 | TAD (-11 | |
117 | DCA NUMKNT | |
118 | JMS NUMBER | |
119 | DCA NAME2 | |
120 | TAD HIORD | |
121 | DCA NAME1 | |
122 | STA | |
123 | TAD LXR | |
124 | DCA LXR | |
125 | TAD (-11 | |
126 | DCA NUMKNT | |
127 | JMS NUMBER | |
128 | DCA NAME4 | |
129 | TAD HIORD | |
130 | DCA NAME3 | |
131 | TAD (SPA | |
132 | DCA NUMSKP | |
133 | JMP I (LV | |
134 | PAGE |