A large commit.
[pdp8.git] / sw / os8 / v3d / sources / devext / dectapes / dectape1 / cclsiz.ma
CommitLineData
81e70d48
PH
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
33CORLOC, CORX
34CORV, 1400
35CORSIZ, 1
36
37CORE, 0
38 TAD T7000 /SETS KT8A IF PRESENT
39 LXM /LXM INSTRUCTION
40 CLA /LXM ACTS AS NOP IF NO KT8A
41CORE2, 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
51COR1, CDF
52 TAD I CORLOC
53COR2, NOP
54 DCA COR1
55 TAD COR2
56 DCA I CORLOC
57COR174, 174
58 TAD I CORLOC
59CORX, 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
68COREX, CDF 0
69 LXM /NEUTRALIZES KT8A
70 TAD CORSIZ
71 CLL RTL
72 TAD M10
73 CIF CDF 10
74 JMP I CORE /RETURN
75M10, -10
76T4, 4
77T7000, 7000
78\f