sw/os8/v3d/sources/devext/dectapes/dectape1/cclsiz.ma

   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
  28         .GLOBAL CORE,CORSIZ
  29         .ASECT CORF0
  30         LXM=6200
  31         FIELD 0
  32         *7200
  33 CORLOC, CORX
  34 CORV,   1400
  35 CORSIZ, 1
  36
  37 CORE,   0
  38         TAD T7000       /SETS KT8A IF PRESENT
  39         LXM             /LXM INSTRUCTION
  40         CLA             /LXM ACTS AS NOP IF NO KT8A
  41 CORE2,  CDF 0
  42         TAD CORSIZ      /ADJUST FIELDS FOR CDF
  43         CLL RTR
  44         RTR
  45         BSW
  46         SZL
  47         TAD T4
  48         AND COR174
  49         TAD COREX
  50         DCA .+1
  51 COR1,   CDF
  52         TAD I CORLOC
  53 COR2,   NOP
  54         DCA COR1
  55         TAD COR2
  56         DCA I CORLOC
  57 COR174, 174
  58         TAD I CORLOC
  59 CORX,   7400
  60         TAD CORX
  61         TAD CORV
  62         SZA CLA
  63         JMP COREX
  64         TAD COR1
  65         DCA I CORLOC
  66         ISZ CORSIZ
  67         JMP CORE2
  68 COREX,  CDF 0
  69         LXM             /NEUTRALIZES KT8A
  70         TAD CORSIZ
  71         CLL RTL
  72         TAD M10
  73         CIF CDF 10
  74         JMP I CORE      /RETURN
  75 M10,    -10
  76 T4,     4
  77 T7000,  7000
  78 \f