| 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 |