4 /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
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.
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.
18 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
19 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
33 .EXTERNAL RDMON,PRMESG
34 .EXTERNAL F1,F2,LO1,LO2
35 .EXTERNAL YLOAD,YLOADER,YF4,YFORT
51 JMP I (CCER3 /ALWAYS WRITE OUT CCL BLOCK
55 4200 /WRITE 1 RECORD FROM FIELD 0
56 400 /LOCATIONS 400-777
57 CCLBLK /INTO THE SYSTEM'S CCL BLOCK
72 DCA I (2000+DEASADR /DELETE DEASSIGN
76 YFORT /LOOK FOR FORT.SV
77 TAD XXX3 /NOT FOUND, USE F4
78 TAD (YFORT /FOUND USE IT
92 JMP I (IOERR /CCL.SV NOT FOUND
94 TAD (4 /*3400 IS 4TH BLOCK OF CCL NOT COUNTING CCB
99 4210 /WRITE 1 RECORD FROM FIELD 1
144 TEXT "#CCL IS THE CONCISE COMMAND LANGUAGE FOR OS/78"
148 BADMON, TEXT /#BAD MONITOR/