A large commit.

[pdp8.git] / sw / os8 / v3d / sources / devext / dectapes / dectape1 / cclsiz.ma

diff --git a/sw/os8/v3d/sources/devext/dectapes/dectape1/cclsiz.ma b/sw/os8/v3d/sources/devext/dectapes/dectape1/cclsiz.ma
new file mode 100644 (file)
index 0000000..6ed1f9b
--- /dev/null
+++ b/sw/os8/v3d/sources/devext/dectapes/dectape1/cclsiz.ma
@@ -0,0 +1,78 @@
+/
+/
+/
+/COPYRIGHT  (C)  1979 BY DIGITAL EQUIPMENT CORPORATION
+/
+/
+/
+/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
+/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
+/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
+/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
+/
+/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
+/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
+/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
+/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
+/
+/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
+/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
+/DIGITAL.
+/
+/
+/
+
+\f
+/VERSION=V3A (D.H.)
+\f/1
+       .GLOBAL CORE,CORSIZ
+       .ASECT CORF0
+       LXM=6200
+       FIELD 0
+       *7200
+CORLOC,        CORX
+CORV,  1400
+CORSIZ,        1
+
+CORE,  0
+       TAD T7000       /SETS KT8A IF PRESENT
+       LXM             /LXM INSTRUCTION
+       CLA             /LXM ACTS AS NOP IF NO KT8A
+CORE2, CDF 0
+       TAD CORSIZ      /ADJUST FIELDS FOR CDF
+       CLL RTR
+       RTR
+       BSW
+       SZL
+       TAD T4
+       AND COR174
+       TAD COREX
+       DCA .+1
+COR1,  CDF
+       TAD I CORLOC
+COR2,  NOP
+       DCA COR1
+       TAD COR2
+       DCA I CORLOC
+COR174,        174
+       TAD I CORLOC
+CORX,  7400
+       TAD CORX
+       TAD CORV
+       SZA CLA
+       JMP COREX
+       TAD COR1
+       DCA I CORLOC
+       ISZ CORSIZ
+       JMP CORE2
+COREX, CDF 0
+       LXM             /NEUTRALIZES KT8A
+       TAD CORSIZ
+       CLL RTL
+       TAD M10
+       CIF CDF 10
+       JMP I CORE      /RETURN
+M10,   -10
+T4,    4
+T7000, 7000
+\f