Commit | Line | Data |
---|---|---|
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 | |
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 |