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 / cclsiz.ma < prev    next >
Text File  |  1992-09-18  |  2KB  |  108 lines
  1. /CCLSIZ  CALCULATE MEMORY AVAILABLE
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. /
  17. /
  18. /
  19. /COPYRIGHT  (C)  1979 BY DIGITAL EQUIPMENT CORPORATION
  20. /
  21. /
  22. /
  23. /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
  24. /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
  25. /CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
  26. /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
  27. /
  28. /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
  29. /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
  30. /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
  31. /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
  32. /
  33. /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
  34. /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
  35. /DIGITAL.
  36. /
  37. /
  38. /
  39.  
  40.  
  41. /VERSION=V3A (D.H.)
  42. /1
  43.     .GLOBAL CORE,CORSIZ
  44.     .ASECT CORF0
  45.     LXM=6200
  46.     FIELD 0
  47.     *7200
  48. CORLOC,    CORX
  49. CORV,    1400
  50. CORSIZ,    1
  51.  
  52. CORE,    0
  53.     JMS CK4278    //V4: KT8A INSTRUCTIONS INTERFERE WITH VT278
  54.     TAD T7000    /SETS KT8A IF PRESENT
  55. LXM1,    LXM        /LXM INSTRUCTION
  56.     CLA        /LXM ACTS AS NOP IF NO KT8A
  57. CORE2,    CDF 0
  58.     TAD CORSIZ    /ADJUST FIELDS FOR CDF
  59.     CLL RTR
  60.     RTR
  61.     BSW
  62.     SZL
  63.     TAD T4
  64.     AND COR174
  65.     TAD COREX
  66.     DCA .+1
  67. COR1,    CDF
  68.     TAD I CORLOC
  69. COR2,    NOP
  70.     DCA COR1
  71.     TAD COR2
  72.     DCA I CORLOC
  73. COR174,    174
  74.     TAD I CORLOC
  75. CORX,    7400
  76.     TAD CORX
  77.     TAD CORV
  78.     SZA CLA
  79.     JMP COREX
  80.     TAD COR1
  81.     DCA I CORLOC
  82.     ISZ CORSIZ
  83.     JMP CORE2
  84. COREX,    CDF 0
  85. LXM2,    LXM        /NEUTRALIZES KT8A
  86.     TAD CORSIZ
  87.     CLL RTL
  88.     TAD M10
  89.     CIF CDF 10
  90.     JMP I CORE    /RETURN
  91. M10,    -10
  92. T4,    4
  93. T7000,    7000
  94.  
  95. CK4278,    0
  96.     TAD I P7771
  97.     AND K4
  98.     SNA CLA
  99.     JMP I CK4278    //VT278 BIT NOT SET--CAN USE LXM INSTRUCTIONS
  100.     DCA LXM1
  101.     DCA LXM2    //GOT A 278: "NOP" THE KT8A INSTRUCTIONS.
  102.     JMP I CK4278
  103.  
  104. P7771,    7771        //"OS78" IN THE MONITOR
  105. K4,    4        //NOTE: THIS MODULE IS LIMITED TO 100 LOCATIONS SO
  106.             //DON'T USE ANY LITERALS HERE!
  107.  
  108.