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 CORE (MEMORY) ROUTINES | |
28 | ||
29 | .ENTRY DETCOR,OTOD | |
30 | .EXTERNAL CORE,CORSIZ | |
31 | .EXTERNAL PRINT,LBEGIN,PRWD,CMDERR | |
32 | BATCCL=7777 | |
33 | ||
34 | .RSECT CORF1 | |
35 | FIELD 1 | |
36 | HISIZ, 0 /HIGHEST MEMORY BANK | |
37 | NEWCOR, 0 /PROPOSED NEW MEMORY BANK | |
38 | ||
39 | DETCOR, 0 | |
40 | CIF 0 | |
41 | JMS I (CORE | |
42 | SNA | |
43 | JMS K8 | |
44 | TAD (-30 | |
45 | SMA | |
46 | JMS I (K32 | |
47 | TAD (40 | |
48 | JMS I (OTOD | |
49 | DCA CORMES+1 | |
50 | TAD I (LBEGIN | |
51 | DCA XRL | |
52 | CDF 0 | |
53 | STA | |
54 | TAD I (CORSIZ | |
55 | DCA HISIZ | |
56 | ISZ XRL | |
57 | TAD I XRL /GET NEXT CHAR | |
58 | SNA | |
59 | JMP COREQ /NOT SETTING CORE SIZE | |
60 | TAD (-260 | |
61 | DCA NEWCOR | |
62 | TAD NEWCOR | |
63 | AND (7770 | |
64 | SZA CLA | |
65 | JMP DETER /TRIED TO SET CORE SIZE GT 7 | |
66 | ISZ XRL /SHOULD ONLY BE ONE FIELD NUMBER | |
67 | TAD I XRL /IF MORE, THEN ERROR RETURN | |
68 | SZA CLA | |
69 | JMP DETER | |
70 | TAD NEWCOR | |
71 | CIA | |
72 | TAD HISIZ | |
73 | SPA CLA | |
74 | JMP BADCOR /TRIED TO SET SOFTWARE CORE SIZE GT REAL CORE SIZE | |
75 | TAD I (BATCCL | |
76 | RTL /BATCH BIT TO LINK | |
77 | SZL CLA | |
78 | JMP WRSCOR /CAN'T CHANGE CORE SIZE UNDER BATCH | |
79 | TAD NEWCOR | |
80 | CLL RTL | |
81 | RAL | |
82 | DCA NEWCOR | |
83 | TAD I (BATCCL | |
84 | AND (7707 | |
85 | TAD NEWCOR | |
86 | DCA I (BATCCL | |
87 | COREQ, CDF 0 | |
88 | TAD I (BATCCL | |
89 | AND (70 | |
90 | SNA | |
91 | JMP ABSCOR | |
92 | TAD (10 | |
93 | CLL RAR | |
94 | JMS I (OTOD | |
95 | CDF 10 | |
96 | DCA SCRMES | |
97 | TAD SCRMES | |
98 | CIA | |
99 | TAD CORMES+1 | |
100 | SNA CLA | |
101 | JMP ABSCOR /DON'T PRINT SOFT IF = REAL | |
102 | JMP I (SCRM | |
103 | ||
104 | DETER, CDF 10 | |
105 | JMP I (CMDERR | |
106 | JMP I DETCOR | |
107 | ||
108 | XRL, 0 | |
109 | ||
110 | BADCOR, CDF 10 | |
111 | JMS I (PRINT | |
112 | NOCORE | |
113 | JMP COREQ | |
114 | ||
115 | ABSCOR, CDF 10 | |
116 | JMS I (PRINT | |
117 | CORMES | |
118 | JMP I DETCOR | |
119 | ||
120 | WRSCOR, CDF 10 | |
121 | JMS I (PRINT | |
122 | BATCOR | |
123 | JMP COREQ | |
124 | ||
125 | ||
126 | K8, 0 | |
127 | TAD (1716 | |
128 | JMS I (PRWD | |
129 | TAD (1431 | |
130 | JMS I (PRWD | |
131 | CIF CDF 0 | |
132 | JMP I K8 | |
133 | \fSCRMES, TEXT \00K OF\ | |
134 | *.-1 | |
135 | CORMES, TEXT / 00K MEMORY/ | |
136 | ||
137 | K32, 0 | |
138 | DCA TMP | |
139 | TAD (4100 | |
140 | DCA I (CORMES+6 | |
141 | TAD TMP | |
142 | JMP I K32 | |
143 | TMP, 0 | |
144 | PAGE | |
145 | \fOTOD, 0 | |
146 | DCA 2$ | |
147 | DCA 1$ | |
148 | TAD 2$ | |
149 | TAD (-12 | |
150 | ISZ 1$ | |
151 | SMA | |
152 | JMP .-3 | |
153 | TAD (72 | |
154 | DCA 3$ | |
155 | TAD 1$ /IS THE 'TENS' DIGIT > 9? | |
156 | TAD (-13 | |
157 | SPA CLA /IF IT IS 9 OR LESS | |
158 | JMP .+4 /JMP OVER ADJUSTMENT | |
159 | TAD (4061 /OTHERWISE SET 'HUNDREDS' INDICATOR BIT | |
160 | DCA I (CORMES | |
161 | TAD (-12 /ADJUST 'TENS' BIT | |
162 | TAD (-1 | |
163 | ||
164 | TAD 1$ | |
165 | SNA | |
166 | TAD (40-60 | |
167 | TAD (60 | |
168 | CLL RTL | |
169 | RTL | |
170 | RTL | |
171 | TAD 3$ | |
172 | JMP I OTOD | |
173 | ||
174 | 1$: 0 | |
175 | 2$: 0 | |
176 | 3$: 0 | |
177 | \fSCRM, CDF 10 | |
178 | JMS I (PRINT | |
179 | SCRMES | |
180 | JMP I (DETER+2 | |
181 | NOCORE, TEXT /# NOT ENOUGH MEMORY/ | |
182 | BATCOR, TEXT /#CANNOT CHANGE MEMORY LIMIT WHILE RUNNING BATCH/ | |
183 | PAGE | |
184 | \f\f |