home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / pdp8 / os278-src.tar.Z / os278-src.tar / cclcor.ma < prev    next >
Text File  |  1992-09-18  |  3KB  |  203 lines
  1. /CCLCOR   CCL SET MEMORY SIZE ROUTINES
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19. /
  20. /
  21. /
  22. /COPYRIGHT  (C)  1979 BY DIGITAL EQUIPMENT CORPORATION
  23. /
  24. /
  25. /
  26. /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
  27. /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
  28. /CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
  29. /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
  30. /
  31. /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
  32. /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
  33. /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
  34. /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
  35. /
  36. /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
  37. /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
  38. /DIGITAL.
  39. /
  40. /
  41. /
  42.  
  43.  
  44. /VERSION=V3A (D.H.)
  45. /1    CCL CORE (MEMORY) ROUTINES
  46.  
  47.     .ENTRY DETCOR,OTOD
  48.     .EXTERNAL CORE,CORSIZ
  49.     .EXTERNAL PRINT,LBEGIN,PRWD,CMDERR
  50.     BATCCL=7777
  51.  
  52.     .RSECT CORF1
  53.     FIELD 1
  54. HISIZ,    0        /HIGHEST MEMORY BANK
  55. NEWCOR,    0        /PROPOSED NEW MEMORY BANK
  56.  
  57. DETCOR,    0
  58.     CIF 0
  59.     JMS I (CORE
  60.     SNA
  61.     JMS K8
  62.     TAD (-30
  63.     SMA
  64.     JMS I (K32
  65.     TAD (40
  66.     JMS I (OTOD
  67.     DCA CORMES+1
  68.     TAD I (LBEGIN
  69.     DCA XRL
  70.     CDF 0
  71.     STA
  72.     TAD I (CORSIZ
  73.     DCA HISIZ
  74.     ISZ XRL
  75.     TAD I XRL    /GET NEXT CHAR
  76.     SNA
  77.     JMP COREQ    /NOT SETTING CORE SIZE
  78.     TAD (-260
  79.     DCA NEWCOR
  80.     TAD NEWCOR
  81.     AND (7770
  82.     SZA CLA
  83.     JMP DETER    /TRIED TO SET CORE SIZE GT 7
  84.     ISZ XRL        /SHOULD ONLY BE ONE FIELD NUMBER
  85.     TAD I XRL    /IF MORE, THEN ERROR RETURN
  86.     SZA CLA
  87.     JMP DETER
  88.     TAD NEWCOR
  89.     CIA
  90.     TAD HISIZ
  91.     SPA CLA
  92.     JMP BADCOR    /TRIED TO SET SOFTWARE CORE SIZE GT REAL CORE SIZE
  93.     TAD I (BATCCL
  94.     RTL        /BATCH BIT TO LINK
  95.     SZL CLA
  96.     JMP WRSCOR    /CAN'T CHANGE CORE SIZE UNDER BATCH
  97.     TAD NEWCOR
  98.     CLL RTL
  99.     RAL
  100.     DCA NEWCOR
  101.     TAD I (BATCCL
  102.     AND (7707
  103.     TAD NEWCOR
  104.     DCA I (BATCCL
  105. COREQ,    CDF 0
  106.     TAD I (BATCCL
  107.     AND (70
  108.     SNA
  109.     JMP ABSCOR
  110.     TAD (10
  111.     CLL RAR
  112.     JMS I (OTOD
  113.     CDF 10
  114.     DCA SCRMES
  115.     TAD SCRMES
  116.     CIA
  117.     TAD CORMES+1
  118.     SNA CLA
  119.     JMP ABSCOR    /DON'T PRINT SOFT IF = REAL
  120.     JMP I (SCRM
  121.  
  122. DETER,    CDF 10
  123.     JMP I (CMDERR
  124.     JMP I DETCOR
  125.  
  126. XRL,    0
  127.  
  128. BADCOR,    CDF 10
  129.     JMS I (PRINT
  130.     NOCORE
  131.     JMP COREQ
  132.  
  133. ABSCOR,    CDF 10
  134.     JMS I (PRINT
  135.     CORMES
  136.     JMP I DETCOR
  137.  
  138. WRSCOR,    CDF 10
  139.     JMS I (PRINT
  140.     BATCOR
  141.     JMP COREQ
  142.  
  143.  
  144. K8,    0
  145.     TAD (1716
  146.     JMS I (PRWD
  147.     TAD (1431
  148.     JMS I (PRWD
  149.     CIF CDF 0
  150.     JMP I K8
  151. SCRMES,    TEXT    \00K OF\
  152.     *.-1
  153. CORMES,    TEXT    /  00K MEMORY/
  154.  
  155. K32,    0
  156.     DCA TMP
  157.     TAD (4100
  158.     DCA I (CORMES+6
  159.     TAD TMP
  160.     JMP I K32
  161. TMP,    0
  162.     PAGE
  163. OTOD,    0
  164.     DCA 2$
  165.     DCA 1$
  166.     TAD 2$
  167.     TAD (-12
  168.     ISZ 1$
  169.     SMA
  170.     JMP .-3
  171.     TAD (72
  172.     DCA 3$
  173.     TAD 1$        /IS THE 'TENS' DIGIT > 9?
  174.     TAD (-13
  175.     SPA CLA        /IF IT IS 9 OR LESS
  176.     JMP .+4        /JMP OVER ADJUSTMENT
  177.     TAD (4061        /OTHERWISE SET 'HUNDREDS' INDICATOR BIT
  178.     DCA I (CORMES
  179.     TAD (-12        /ADJUST 'TENS' BIT
  180.     TAD (-1
  181.  
  182.     TAD 1$
  183.     SNA
  184.     TAD (40-60
  185.     TAD (60
  186.     CLL RTL
  187.     RTL
  188.     RTL
  189.     TAD 3$
  190.     JMP I OTOD
  191.  
  192. 1$:    0
  193. 2$:    0
  194. 3$:    0
  195. SCRM,    CDF 10
  196.     JMS I (PRINT
  197.     SCRMES
  198.     JMP I (DETER+2
  199. NOCORE,    TEXT    /# NOT ENOUGH MEMORY/
  200. BATCOR,    TEXT    /#CANNOT CHANGE MEMORY LIMIT WHILE RUNNING BATCH/
  201.     PAGE
  202.  
  203.