4 /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
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.
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.
18 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
19 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
27 \f/1 CCL CORE (MEMORY) ROUTINES
31 .EXTERNAL PRINT,LBEGIN,PRWD,CMDERR
36 HISIZ, 0 /HIGHEST MEMORY BANK
37 NEWCOR, 0 /PROPOSED NEW MEMORY BANK
57 TAD I XRL /GET NEXT CHAR
59 JMP COREQ /NOT SETTING CORE SIZE
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
74 JMP BADCOR /TRIED TO SET SOFTWARE CORE SIZE GT REAL CORE SIZE
76 RTL /BATCH BIT TO LINK
78 JMP WRSCOR /CAN'T CHANGE CORE SIZE UNDER BATCH
101 JMP ABSCOR /DON'T PRINT SOFT IF = REAL
133 \fSCRMES, TEXT \00K OF\
135 CORMES, TEXT / 00K MEMORY/
155 TAD 1$ /IS THE 'TENS' DIGIT > 9?
157 SPA CLA /IF IT IS 9 OR LESS
158 JMP .+4 /JMP OVER ADJUSTMENT
159 TAD (4061 /OTHERWISE SET 'HUNDREDS' INDICATOR BIT
161 TAD (-12 /ADJUST 'TENS' BIT
181 NOCORE, TEXT /# NOT ENOUGH MEMORY/
182 BATCOR, TEXT /#CANNOT CHANGE MEMORY LIMIT WHILE RUNNING BATCH/