A large commit.
[pdp8.git] / sw / os8 / v3d / sources / devext / dectapes / dectape1 / cclcor.ma
CommitLineData
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
36HISIZ, 0 /HIGHEST MEMORY BANK
37NEWCOR, 0 /PROPOSED NEW MEMORY BANK
38
39DETCOR, 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
87COREQ, 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
104DETER, CDF 10
105 JMP I (CMDERR
106 JMP I DETCOR
107
108XRL, 0
109
110BADCOR, CDF 10
111 JMS I (PRINT
112 NOCORE
113 JMP COREQ
114
115ABSCOR, CDF 10
116 JMS I (PRINT
117 CORMES
118 JMP I DETCOR
119
120WRSCOR, CDF 10
121 JMS I (PRINT
122 BATCOR
123 JMP COREQ
124
125
126K8, 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
135CORMES, TEXT / 00K MEMORY/
136
137K32, 0
138 DCA TMP
139 TAD (4100
140 DCA I (CORMES+6
141 TAD TMP
142 JMP I K32
143TMP, 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
1741$: 0
1752$: 0
1763$: 0
177\fSCRM, CDF 10
178 JMS I (PRINT
179 SCRMES
180 JMP I (DETER+2
181NOCORE, TEXT /# NOT ENOUGH MEMORY/
182BATCOR, TEXT /#CANNOT CHANGE MEMORY LIMIT WHILE RUNNING BATCH/
183 PAGE
184\f\f