97761394db9c1fa5f003ead728a57b0e8a636754
[pdp8.git] / sw / os8 / v3d / sources / devext / dectapes / dectape1 / cclrun.ma
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 CCL RUN COMMAND
28
29 .RSECT CCLRUN
30 FIELD 1
31
32 .ENTRY MONFIX,MONRES
33 .EXTERNAL RDMON,PRMESG
34 .EXTERNAL F1,F2,LO1,LO2
35 .EXTERNAL YLOAD,YLOADER,YF4,YFORT
36 .EXTERNAL LOOK
37 .EXTERNAL BLK,IOERR
38 PRQMRK==1357
39 CCLBLK=67
40 DEASADR=427
41 CCLSW=435
42 GETCCL=1362
43 .EXTERNAL YCCL
44 OS78BIT=7771
45
46 MONFIX, JMS I (RDMON
47 CDF 0
48 TAD I ZERO
49 TAD (-7607
50 SNA CLA
51 JMP I (CCER3 /ALWAYS WRITE OUT CCL BLOCK
52 CDF 10
53 CIF 0
54 JMS I L7607
55 4200 /WRITE 1 RECORD FROM FIELD 0
56 400 /LOCATIONS 400-777
57 CCLBLK /INTO THE SYSTEM'S CCL BLOCK
58 JMP I (IOERR
59 CDF 0
60 TAD I (2000+CCLSW
61 TAD XXX
62 SNA
63 JMP OK$
64 TAD XXX2
65 SZA CLA
66 JMP I (CCER3
67 / CIF CDF 0
68 / JMP I L7605
69 OK$: TAD (GETCCL
70 DCA I (2000+CCLSW
71 STA
72 DCA I (2000+DEASADR /DELETE DEASSIGN
73 JMS WRMON
74 IFZERO 1 <
75 JMS I (LOOK
76 YFORT /LOOK FOR FORT.SV
77 TAD XXX3 /NOT FOUND, USE F4
78 TAD (YFORT /FOUND USE IT
79 DCA I (F1
80 TAD I (F1
81 DCA I (F2
82 TAD I (F1
83 TAD MYFORT
84 SZA CLA
85 TAD XXX4
86 TAD (YLOADER
87 DCA I (LO1
88 TAD I (LO1
89 DCA I (LO2
90 JMS I (LOOK
91 YCCL
92 JMP I (IOERR /CCL.SV NOT FOUND
93 TAD I (BLK
94 TAD (4 /*3400 IS 4TH BLOCK OF CCL NOT COUNTING CCB
95 DCA B$
96 CDF 10
97 CIF 0
98 JMS I (7607
99 4210 /WRITE 1 RECORD FROM FIELD 1
100 3400 /LOCS 3400-3777
101 B$: 0
102 JMP I (IOERR
103 >
104 CIF CDF 0
105 JMP I (7605
106
107 XXX, -PRQMRK
108 XXX2, PRQMRK-GETCCL
109 IFZERO 1 <
110 MYFORT, -YFORT
111 XXX3, YF4-YFORT
112 XXX4, YLOAD-YLOADER
113 >
114 \fWRMON, 0
115 CDF 10
116 CIF 0
117 JMS I L7607
118 4200
119 2400
120 10
121 JMP I (IOERR
122 JMP I WRMON
123
124 ZERO, 0
125 L7607, 7607
126 \fMONRES, 0
127 CDF 0
128 TAD I (OS78BIT
129 CDF 10
130 AND (200
131 SZA CLA
132 JMP ERR
133 JMS I (RDMON
134 CDF 0
135 TAD (PRQMRK
136 DCA I (2000+CCLSW
137 TAD (-405
138 DCA I (2000+DEASADR
139 JMS WRMON
140 JMP I MONRES
141
142 ERR, JMS I (PRMESG
143 .+1
144 TEXT "#CCL IS THE CONCISE COMMAND LANGUAGE FOR OS/78"
145 \fCCER3, CDF 10
146 JMS I (PRMESG
147 BADMON
148 BADMON, TEXT /#BAD MONITOR/
149 PAGE
150 \f