cdc:nos2.source:opl.opl871:deck:ddfile
Deck DDFILE
4 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.ddfile +++| IDENT DDFILE,FETS,DDFILE 00002 M01S00002.ddfile +++| ABS 00003 M01S00003.ddfile +++| SST 00004 M01S00004.ddfile +++| SYSCOM B1 00005 M01S00005.ddfile +++| ENTRY DDFILE 00006 M01S00006.ddfile +++| ENTRY MFL= 00007 M01S00001.ns2618 +++| ENTRY SSJ= 00008 M01S00007.ddfile +++| TITLE DDFILE - DDF UTILITY FUNCTION PROCESSOR. 00009 M01S00008.ddfile +++|*COMMENT DDFILE - DDF UTILITY FUNCTION PROCESSOR.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ddfile |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M02S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1987. 00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M01S00010.ddfile +++| DDF SPACE 4,10 00013 M01S00011.ddfile +++|*** DDFILE - *DDF* UTILITY FUNCTION PROCESSOR. 00014 M01S00012.ddfile +++|* 00015 M01S00013.ddfile +++|* J. J. EIKUM. 74/04/06. 00016 M01S00014.ddfile +++| DDF SPACE 4,10 00017 M01S00015.ddfile +++|*** *DDFILE* PROCESSES FUNCTIONS RELATING TO THE LISTING 00018 M01S00016.ddfile +++|* FILE FOR *DDF*. *DDFILE* IS LOADED AUTOMATICALLY BY *DDF*. 00019 M01S00017.ddfile +++| SPACE 4,10,15 00020 M01S00018.ddfile +++|*** DAYFILE MESSAGES. 00021 M01S00019.ddfile +++|* 00022 M01S00020.ddfile +++|* * LISTING FILE DOES NOT EXIST.* = THERE WAS NO LISTING 00023 M01S00021.ddfile +++|* FILE TO BE RELEASED. 00024 M01S00022.ddfile +++| DDF SPACE 4,10 00025 M01S00023.ddfile +++|* COMMON DECKS. 00026 M01S00024.ddfile +++| 00027 M01S00025.ddfile +++| 00028 M01S00026.ddfile +++|*CALL COMCMAC 00029 M01S00027.ddfile +++|*CALL COMSDSP 00030 M01S00002.ns2618 +++|*CALL COMSPRD 00031 M01S00003.ns2618 +++|*CALL COMSSSD 00032 M01S00004.ns2618 +++|*CALL COMSSSJ 00033 M01S00028.ddfile +++| DDF SPACE 4,10 00034 M01S00029.ddfile +++|**** ASSEMBLY CONSTANTS. 00035 M01S00030.ddfile +++| 00036 M01S00031.ddfile +++| 00037 M01S00032.ddfile +++| DBUFL EQU 102B 00038 M01S00033.ddfile +++| OBUFL EQU 1001B 00039 M01S00034.ddfile +++| 00040 M01S00035.ddfile +++| D EQU 5 CPU STATUS WORD 00041 M01S00036.ddfile +++| 00042 M01S00037.ddfile +++|**** 00043 M01S00038.ddfile +++| DDF SPACE 4,10 00044 M01S00039.ddfile +++|** FETS. 00045 M01S00040.ddfile +++| 00046 M01S00041.ddfile +++| 00047 M01S00042.ddfile +++| ORG 101B 00048 M01S00043.ddfile +++| FETS BSS 0 00049 M01S00044.ddfile +++| O BSS 0 00050 M01S00045.ddfile +++| OUTPUT FILEB OBUF,OBUFL,(FET=7),(EPR) 00051 M01S00005.ns2618 +++| SPACE 4,10 00052 M01S00006.ns2618 +++|* *SSJ=* SPECIAL ENTRY POINT. 00053 M01S00007.ns2618 +++| 00054 M01S00008.ns2618 +++| 00055 M01S00009.ns2618 +++| SSJ= BSS 0 SPECIAL SYSTEM JOB PARAMETER BLOCK
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2618 |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00056 M02S00010.271l716 ---| VFD 36/0,12/LSCS,12/IRSI
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00057 M02S00001.ns2731 ---| VFD 36/0,12/LFCS,12/IRSI 00058 M01S00001.ns2731 +++| VFD 36/0,12/LSCS,12/IRSI 00059 M01S00011.ns2618 +++| BSSZ SSJL-1 00060 M01S00046.ddfile +++| DDF TITLE MAIN PROGRAM. 00061 M01S00047.ddfile +++|** DDF - MAIN PROGRAM. 00062 M01S00048.ddfile +++| 00063 M01S00049.ddfile +++| 00064 M01S00050.ddfile +++| DDF SX6 3RDDF WAIT FOR REQUEST 00065 M01S00051.ddfile +++| LX6 42 00066 M01S00052.ddfile +++| SA6 D 00067 M01S00053.ddfile +++| RECALL A6 00068 M01S00054.ddfile +++| SA1 D GET FUNCTION NUMBER 00069 M01S00055.ddfile +++| SX2 X1 00070 M01S00056.ddfile +++| AX2 1 00071 M01S00057.ddfile +++| SA3 TFCN+X2 00072 M01S00058.ddfile +++| SB2 X3 00073 M01S00059.ddfile +++| JP B2 JUMP TO PROCESSOR 00074 M01S00060.ddfile +++| TFCN SPACE 4,10 00075 M01S00061.ddfile +++|** TFCN - TABLE OF FUNCTION PROCESSORS. 00076 M01S00062.ddfile +++| 00077 M01S00063.ddfile +++| 00078 M01S00064.ddfile +++| TFCN BSS 0 FUNCTION PROCESSORS. 00079 M01S00065.ddfile +++| LOC 0 00080 M01S00066.ddfile +++| CON END END PROGRAM 00081 M01S00067.ddfile +++| CON PRT PRINT 00082 M01S00068.ddfile +++| CON COF CHANGE LISTING FILE NAME 00083 M01S00069.ddfile +++| CON OUT RELEASE LISTING FILE TO QUEUE 00084 M01S00070.ddfile +++| CON REW REWIND LISTING FILE 00085 M01S00071.ddfile +++| CON SKP SKIP TO EOI 00086 M01S00072.ddfile +++| CON RET RETURN FILE 00087 M01S00073.ddfile +++| CON SID SETID 00088 M01S00074.ddfile +++| LOC *O 00089 M01S00075.ddfile +++| DDF TITLE FUNCTION PROCESSORS. 00090 M01S00076.ddfile +++| END SPACE 4,10 00091 M01S00077.ddfile +++|** FUNCTION 0 - END PROGRAM. 00092 M01S00078.ddfile +++| 00093 M01S00079.ddfile +++| 00094 M01S00080.ddfile +++| END RJ CMF COMPLETE FILE 00095 M01S00081.ddfile +++| ENDRUN 00096 M01S00082.ddfile +++| PRT SPACE 4,10 00097 M01S00083.ddfile +++|** FUNCTION 1 - PRINT. 00098 M01S00084.ddfile +++|* 00099 M01S00085.ddfile +++|* ENTRY (DBUF) = 12/EQ,12/TK,12/SC,24/CONTROL BYTES. 00100 M01S00086.ddfile +++|* (DBUF+1) = 12/(TRT),12/TRACK BITS,18/ ,18/ADDRESS. 00101 M01S00087.ddfile +++|* (DBUF+2 - DBUF+65) = CONTENTS OF SECTOR. 00102 M01S00088.ddfile +++| 00103 M01S00089.ddfile +++| 00104 M01S00090.ddfile +++|* OUTPUT PAGE HEADER. 00105 M01S00091.ddfile +++| 00106 M01S00092.ddfile +++| PRT CLOCK PRTF TIME 00107 M01S00093.ddfile +++| DATE PRTE DATE 00108 M01S00094.ddfile +++| SA5 DBUF 00109 M01S00095.ddfile +++| MX0 -12 00110 M01S00096.ddfile +++| LX5 12 00111 M01S00097.ddfile +++| BX1 -X0*X5 00112 M01S00098.ddfile +++| RJ COD CONVERT EST ORDINAL 00113 M01S00099.ddfile +++| BX7 X4 00114 M01S00100.ddfile +++| LX5 12 00115 M01S00101.ddfile +++| LX7 9*6 00116 M01S00102.ddfile +++| BX1 -X0*X5 00117 M01S00103.ddfile +++| SA7 PRTB 00118 M01S00104.ddfile +++| RJ COD TRACK 00119 M01S00105.ddfile +++| SA1 PRTC 00120 M01S00106.ddfile +++| MX2 5*6 00121 M01S00107.ddfile +++| BX4 X2*X1 00122 M01S00108.ddfile +++| BX3 -X2*X6 00123 M01S00109.ddfile +++| LX5 12 00124 M01S00110.ddfile +++| BX6 X3+X4 00125 M01S00111.ddfile +++| SA6 A1 00126 M01S00112.ddfile +++| BX1 -X0*X5 00127 M01S00113.ddfile +++| RJ COD SECTOR 00128 M01S00114.ddfile +++| MX1 9*6 00129 M01S00115.ddfile +++| SX2 1R. 00130 M01S00116.ddfile +++| LX6 6 00131 M01S00117.ddfile +++| BX3 X1*X6 00132 M01S00118.ddfile +++| BX6 X3+X2 00133 M01S00119.ddfile +++| LX6 5*6 00134 M01S00120.ddfile +++| LX5 24 00135 M01S00121.ddfile +++| MX0 -24 00136 M01S00122.ddfile +++| SA6 PRTD 00137 M01S00123.ddfile +++| BX1 -X0*X5 00138 M01S00124.ddfile +++| RJ WOD LINKAGE BYTES 00139 M01S00125.ddfile +++| MX0 -24 00140 M01S00126.ddfile +++| BX1 -X0*X7 00141 M01S00127.ddfile +++| SX2 2R 00142 M01S00128.ddfile +++| LX7 6*6 00143 M01S00129.ddfile +++| BX3 -X0*X7 00144 M01S00130.ddfile +++| LX2 4*6 00145 M01S00131.ddfile +++| LX3 6*6 00146 M01S00132.ddfile +++| BX4 X1+X2 00147 M01S00133.ddfile +++| SA1 DBUF 00148 M01S00134.ddfile +++| BX6 X4+X3 00149 M01S00135.ddfile +++| MX0 -12 00150 M01S00136.ddfile +++| SA6 PRTH 00151 M01S00137.ddfile +++| BX2 -X0*X1 00152 M01S00138.ddfile +++| AX1 12 00153 M01S00139.ddfile +++| SA5 =3R 00154 M01S00140.ddfile +++| BX1 -X0*X1 00155 M01S00141.ddfile +++| SA4 PRTI 00156 M01S00142.ddfile +++| NZ X1,PRT2 IF NOT EOF OR EOI 00157 M01S00143.ddfile +++| SX7 B0+ 00158 M01S00144.ddfile +++| NZ X2,PRT1 IF NOT EOI 00159 M01S00145.ddfile +++| SX5 3REOI 00160 M01S00146.ddfile +++| EQ PRT3 PRINT EOI 00161 M01S00147.ddfile +++| 00162 M01S00148.ddfile +++| PRT1 SX5 3REOF 00163 M01S00149.ddfile +++| EQ PRT3 PRINT EOF 00164 M01S00150.ddfile +++| 00165 M01S00151.ddfile +++| PRT2 SX3 X2-100B 00166 M01S00152.ddfile +++| SX7 X2+ 00167 M01S00153.ddfile +++| ZR X3,PRT3 IF NOT EOR 00168 M01S00154.ddfile +++| SX5 3REOR 00169 M01S00155.ddfile +++| PRT3 MX0 7*6 00170 M01S00156.ddfile +++| SA7 PRTN SAVE WORD COUNT 00171 M01S00157.ddfile +++| BX2 X0*X4 00172 M01S00158.ddfile +++| BX6 X2+X5 00173 M01S00159.ddfile +++| SA6 A4 00174 M01S00160.ddfile +++| WRITEC O,PRTA 00175 M01S00161.ddfile +++| WRITEC O,PRTJ 00176 M01S00162.ddfile +++| WRITEC O,PRTG 00177 M01S00163.ddfile +++| WRITEC O,PRTJ 00178 M01S00164.ddfile +++| WRITEC O,PRTJ 00179 M01S00165.ddfile +++| 00180 M01S00166.ddfile +++|* OUTPUT ONE CM WORD. 00181 M01S00167.ddfile +++| 00182 M01S00168.ddfile +++| SA0 B0+ 00183 M01S00169.ddfile +++| PRT4 SX1 A0 00184 M01S00170.ddfile +++| RJ COD CM WORD NUMBER 00185 M01S00171.ddfile +++| SX1 5 00186 M01S00172.ddfile +++| SX2 A0 00187 M01S00173.ddfile +++| IX3 X1*X2 00188 M01S00174.ddfile +++| SB2 X6+ 00189 M01S00175.ddfile +++| SX1 X3+2 00190 M01S00176.ddfile +++| RJ WOD BYTE NUMBER 00191 M01S00177.ddfile +++| MX1 -4*6 00192 M01S00178.ddfile +++| MX3 -3*6 00193 M01S00179.ddfile +++| BX4 -X1*X7 00194 M01S00180.ddfile +++| SX2 B2+ 00195 M01S00181.ddfile +++| SA1 PRTK 00196 M01S00182.ddfile +++| BX5 -X3*X2 00197 M01S00183.ddfile +++| LX4 6 00198 M01S00184.ddfile +++| LX5 7*6 00199 M01S00185.ddfile +++| IX7 X4+X1 00200 M01S00186.ddfile +++| BX6 X5+X7 00201 M01S00187.ddfile +++| WRITEO O PRINT WORD AND BYTE NUMBERS 00202 M01S00188.ddfile +++| SA1 A0+DBUF+2 OUTPUT CONTENTS OF NEXT CM WORD 00203 M01S00189.ddfile +++| RJ WOD CONVERT WORD 00204 M01S00190.ddfile +++| MX1 4*6 00205 M01S00191.ddfile +++| BX0 X7 00206 M01S00192.ddfile +++| BX2 X1*X6 00207 M01S00193.ddfile +++| LX6 4*6 00208 M01S00194.ddfile +++| BX3 X1*X6 00209 M01S00195.ddfile +++| SA1 PRTL 00210 M01S00196.ddfile +++| LX2 9*6 00211 M01S00197.ddfile +++| LX3 4*6 00212 M01S00198.ddfile +++| BX4 X2+X3 00213 M01S00199.ddfile +++| BX5 X6 00214 M01S00200.ddfile +++| BX6 X4+X1 00215 M01S00201.ddfile +++| WRITEO O 00216 M01S00202.ddfile +++| LX5 4*6 00217 M01S00203.ddfile +++| MX1 2*6 00218 M01S00204.ddfile +++| BX3 X1*X0 00219 M01S00205.ddfile +++| BX2 X1*X5 00220 M01S00206.ddfile +++| LX3 8*6 00221 M01S00207.ddfile +++| LX0 2*6 00222 M01S00208.ddfile +++| MX1 4*6 00223 M01S00209.ddfile +++| BX4 X2+X3 00224 M01S00210.ddfile +++| BX2 X1*X0 00225 M01S00211.ddfile +++| SA1 PRTL 00226 M01S00212.ddfile +++| LX4 9*6 00227 M01S00213.ddfile +++| LX2 4*6 00228 M01S00214.ddfile +++| BX5 X2+X4 00229 M01S00215.ddfile +++| BX6 X5+X1 00230 M01S00216.ddfile +++| WRITEO O 00231 M01S00217.ddfile +++| LX0 4*6 00232 M01S00218.ddfile +++| MX2 4*6 00233 M01S00219.ddfile +++| BX1 X2*X0 00234 M01S00220.ddfile +++| RJ ZTB BLANK FILL 00235 M01S00221.ddfile +++| SA1 PRTN 00236 M01S00222.ddfile +++| SX2 A0 00237 M01S00223.ddfile +++| LX6 9*6 00238 M01S00224.ddfile +++| IX3 X2-X1 00239 M01S00225.ddfile +++| NZ X3,PRT5 IF NOT AT WORD COUNT 00240 M01S00226.ddfile +++| MX2 30 00241 M01S00227.ddfile +++| SA1 PRTM 00242 M01S00228.ddfile +++| BX3 X2*X6 00243 M01S00229.ddfile +++| BX6 X3+X1 00244 M01S00230.ddfile +++| PRT5 WRITEO O 00245 M01S00231.ddfile +++| SA1 A0+DBUF+2 OUTPUT DISPLAY CODE 00246 M01S00232.ddfile +++| RJ ZTB BLANK FILL 00247 M01S00233.ddfile +++| WRITEO O 00248 M01S00234.ddfile +++| 00249 M01S00235.ddfile +++|* ADVANCE TO NEXT WORD. 00250 M01S00236.ddfile +++| 00251 M01S00237.ddfile +++| SA1 PRTO 00252 M01S00238.ddfile +++| NZ X1,PRT6 IF JUST PRINTED SECOND HALF OF LINE 00253 M01S00239.ddfile +++| SX7 40B 00254 M01S00240.ddfile +++| SA2 =10H 00255 M01S00241.ddfile +++| SA0 A0+40B 00256 M01S00242.ddfile +++| SA7 A1 00257 M01S00243.ddfile +++| BX6 X2 00258 M01S00244.ddfile +++| WRITEO O 00259 M01S00245.ddfile +++| SA2 =10H 00260 M01S00246.ddfile +++| BX6 X2 00261 M01S00247.ddfile +++| WRITEO O 00262 M01S00248.ddfile +++| EQ PRT4 LOOP TO PRINT SECOND HALF OF LINE 00263 M01S00249.ddfile +++| 00264 M01S00250.ddfile +++| PRT6 MX6 0 00265 M01S00251.ddfile +++| SA0 A0-40B+1 00266 M01S00252.ddfile +++| SA6 A1 00267 M01S00253.ddfile +++| WRITEO O TERMINATE LINE 00268 M01S00254.ddfile +++| SX1 A0-40B 00269 M01S00255.ddfile +++| ZR X1,PRT7 IF END OF BUFFER 00270 M01S00256.ddfile +++| LX1 15 00271 M01S00257.ddfile +++| SX2 X1 00272 M01S00258.ddfile +++| NZ X2,PRT4 IF NO BLANK LINE NEEDED 00273 M01S00259.ddfile +++| SX6 1R0 00274 M01S00260.ddfile +++| LX6 9*6 00275 M01S00261.ddfile +++| WRITEO O 00276 M01S00262.ddfile +++| EQ PRT4 LOOP 00277 M01S00263.ddfile +++| 00278 M01S00264.ddfile +++| PRT7 SA0 B1 00279 M01S00265.ddfile +++| EQ DDF RETURN 00280 M01S00266.ddfile +++| 00281 M01S00267.ddfile +++| 00282 M01S00268.ddfile +++| PRTA DATA 10H1 EST ORD. 00283 M01S00269.ddfile +++| PRTB DATA 10H EE 00284 M01S00270.ddfile +++| PRTC DATA 10HTRACK TTTT 00285 M01S00271.ddfile +++| DATA 10H SECTOR 00286 M01S00272.ddfile +++| PRTD DATA 10HNNNN. 00287 M01S00273.ddfile +++| DATA 30H 00288 M01S00274.ddfile +++| PRTE DATA 10H DATE 00289 M01S00275.ddfile +++| PRTF DATA 10H TIME 00290 M01S00276.ddfile +++| DATA 2C 00291 M01S00277.ddfile +++| PRTG DATA 20H- LINKAGE BYTES = 00292 M01S00278.ddfile +++| PRTH DATA 10HNNNN NNNN 00293 M01S00279.ddfile +++| PRTI DATA 10H. EOI 00294 M01S00280.ddfile +++| DATA 2C 00295 M01S00281.ddfile +++| PRTJ VFD 12/2R- ,48/0 00296 M01S00282.ddfile +++| PRTK VFD 18/0,12/2R (,24/0,6/1R) 00297 M01S00283.ddfile +++| PRTL VFD 6/1R ,24/0,6/1R ,24/0 00298 M01S00284.ddfile +++| PRTM VFD 30/0,30/5R##### 00299 M01S00285.ddfile +++| PRTN CON 0 WORD COUNT 00300 M01S00286.ddfile +++| PRTO CON 0 POINTER BIAS 00301 M01S00287.ddfile +++| COF SPACE 4,10 00302 M01S00288.ddfile +++|** FUNCTION 2 - CHANGE LISTING FILE NAME. 00303 M01S00289.ddfile +++|* 00304 M01S00290.ddfile +++|* ENTRY (DBUF) = 42/FILE NAME,18/0. 00305 M01S00291.ddfile +++| 00306 M01S00292.ddfile +++| 00307 M01S00293.ddfile +++| COF RJ CMF FLUSH BUFFER IF NECCESSARY 00308 M01S00294.ddfile +++| SA1 DBUF 00309 M01S00295.ddfile +++| SX2 B1 00310 M01S00296.ddfile +++| BX6 X1+X2 00311 M01S00297.ddfile +++| SA6 O SET NEW FILE NAME 00312 M01S00298.ddfile +++| EQ DDF RETURN 00313 M01S00299.ddfile +++| OUT SPACE 4,10 00314 M01S00300.ddfile +++|** FUNCTION 3 - RELEASE LISTING FILE TO QUEUE. 00315 M01S00301.ddfile +++| 00316 M01S00302.ddfile +++| 00317 M01S00303.ddfile +++| OUT RJ CMF COMPLETE FILE 00318 M01S00304.ddfile +++| SA5 O SAVE FET+0 00319 M01S00305.ddfile +++| STATUS O CHECK IF FILE EXISTS 00320 M01S00306.ddfile +++| BX6 X5 00321 M01S00307.ddfile +++| MX3 -11 00322 M01S00308.ddfile +++| SA1 X2 00323 M01S00309.ddfile +++| SA6 X2 00324 M01S00310.ddfile +++| LX3 12-11 00325 M01S00311.ddfile +++| BX3 -X3*X1 00326 M01S00312.ddfile +++| ZR X3,OUT1 IF FILE DOES NOT EXIST 00327 M01S00313.ddfile +++| MX6 42 00328 M01S00314.ddfile +++| BX6 X6*X1 00329 M01S00315.ddfile +++| SA6 OUTA SET FILE NAME IN *DSP* PARAMETER BLOCK 00330 M01S00316.ddfile +++| ROUTE OUTA,R 00331 M01S00317.ddfile +++| SA1 OUTA+1 CLEAR *TID* FLAG BIT 00332 M01S00318.ddfile +++| SX3 FRTI 00333 M01S00319.ddfile +++| BX6 -X3*X1 00334 M01S00320.ddfile +++| SA6 A1 00335 M01S00321.ddfile +++| EQ DDF RETURN 00336 M01S00322.ddfile +++| 00337 M01S00323.ddfile +++| OUT1 MESSAGE (=C* LISTING FILE DOES NOT EXIST.*),3,R 00338 M01S00324.ddfile +++| EQ DDF RETURN 00339 M01S00325.ddfile +++| 00340 M01S00326.ddfile +++| 00341 M01S00327.ddfile +++| OUTA VFD 42/0LOUTPUT,18/0 00342 M01S00328.ddfile +++| VFD 24/0,12/2HPR,6/0,18/FRDC+FRCS 00343 M01S00329.ddfile +++| BSSZ 5 00344 M01S00330.ddfile +++| REW SPACE 4,10 00345 M01S00331.ddfile +++|** FUNCTION 4 - REWIND LISTING FILE. 00346 M01S00332.ddfile +++| 00347 M01S00333.ddfile +++| 00348 M01S00334.ddfile +++| REW RJ CMF COMPLETE FILE 00349 M01S00335.ddfile +++| REWIND O 00350 M01S00336.ddfile +++| EQ DDF RETURN 00351 M01S00337.ddfile +++| SKP SPACE 4,10 00352 M01S00338.ddfile +++|** FUNCTION 5 - SKIP TO EOI. 00353 M01S00339.ddfile +++| 00354 M01S00340.ddfile +++| 00355 M01S00341.ddfile +++| SKP SB2 A0 00356 M01S00342.ddfile +++| NZ B2,DDF IF CURRENTLY WRITING ON FILE 00357 M01S00343.ddfile +++| SKIPEI O 00358 M01S00344.ddfile +++| EQ DDF RETURN 00359 M01S00345.ddfile +++| RET SPACE 4,10 00360 M01S00346.ddfile +++|** FUNCTION 6 - RETURN FILE. 00361 M01S00347.ddfile +++| 00362 M01S00348.ddfile +++| 00363 M01S00349.ddfile +++| RET RJ CMF COMPLETE FILE 00364 M01S00350.ddfile +++| RETURN O 00365 M01S00351.ddfile +++| EQ DDF RETURN 00366 M01S00352.ddfile +++| SID SPACE 4,10 00367 M01S00353.ddfile +++|** FUNCTION 7 - SETID. 00368 M01S00354.ddfile +++|* 00369 M01S00355.ddfile +++|* ENTRY (DBUF) = ID. 00370 M01S00356.ddfile +++| 00371 M01S00357.ddfile +++| 00372 M01S00358.ddfile +++| SID SA1 DBUF 00373 M01S00359.ddfile +++| SA2 OUTA+1 SET *TID* FLAG BIT 00374 M01S00360.ddfile +++| SX3 FRTI 00375 M01S00361.ddfile +++| BX6 X2+X3 00376 M01S00362.ddfile +++| SA6 A2 00377 M01S00363.ddfile +++| BX6 X1 SET *TID* FIELD 00378 M01S00364.ddfile +++| SA6 A6+B1 00379 M01S00365.ddfile +++| EQ DDF RETURN 00380 M01S00366.ddfile +++| DDF TITLE SUBROUTINES. 00381 M01S00367.ddfile +++| CMF SPACE 4,10 00382 M01S00368.ddfile +++|** CMF - COMPLETE FILE. 00383 M01S00369.ddfile +++|* 00384 M01S00370.ddfile +++|* ENTRY (A0) .NE. 0 IF BUFFER FLUSH REQUIRED. 00385 M01S00371.ddfile +++|* 00386 M01S00372.ddfile +++|* EXIT (A0) = 0. 00387 M01S00373.ddfile +++|* 00388 M01S00374.ddfile +++|* USES B - 2. 00389 M01S00375.ddfile +++|* 00390 M01S00376.ddfile +++|* MACROS WRITER. 00391 M01S00377.ddfile +++| 00392 M01S00378.ddfile +++| 00393 M01S00379.ddfile +++| CMF SUBR ENTRY/EXIT 00394 M01S00380.ddfile +++| SB2 A0 00395 M01S00381.ddfile +++| ZR B2,CMFX IF WRITE NOT NEEDED 00396 M01S00382.ddfile +++| WRITER O,R 00397 M01S00383.ddfile +++| SA0 B0 00398 M01S00384.ddfile +++| EQ CMFX RETURN 00399 M01S00385.ddfile +++| DDF SPACE 4,10 00400 M01S00386.ddfile +++|* COMMON DECKS. 00401 M01S00387.ddfile +++| 00402 M01S00388.ddfile +++| 00403 M01S00389.ddfile +++|*CALL COMCCIO 00404 M01S00390.ddfile +++|*CALL COMCCOD 00405 M01S00391.ddfile +++|*CALL COMCLFM 00406 M01S00392.ddfile +++|*CALL COMCSYS 00407 M01S00393.ddfile +++|*CALL COMCWOD 00408 M01S00394.ddfile +++|*CALL COMCWTC 00409 M01S00395.ddfile +++|*CALL COMCWTO 00410 M01S00396.ddfile +++|*CALL COMCWTW 00411 M01S00397.ddfile +++|*CALL COMCZTB 00412 M01S00398.ddfile +++| DDF SPACE 4,10 00413 M01S00399.ddfile +++|* BUFFERS. 00414 M01S00400.ddfile +++| 00415 M01S00401.ddfile +++| 00416 M01S00402.ddfile +++| USE BUFFERS 00417 M01S00403.ddfile +++| DBUF EQU * 00418 M01S00404.ddfile +++| OBUF EQU DBUF+DBUFL
| Line S00405 Modification History | |
|---|---|
M01 (Added by) | ddfile |
M02 (Updated by) | ns2618 |
Seq # *Modification Id* Act ----------------------------+ 00419 M02S00405.ns2618 ---| MFL= EQU OBUF+OBUFL 00420 M01S00012.ns2618 +++| EBUF EQU OBUF+OBUFL END OF BUFFERS 00421 M01S00013.ns2618 +++| 00422 M01S00014.ns2618 +++| MFL= EQU EBUF+8 MINIMUM MEMORY REQUIRED FOR PROGRAM 00423 M01S00406.ddfile +++| PRS TITLE PRESET. 00424 M01S00407.ddfile +++| PRS SPACE 4,10 00425 M01S00408.ddfile +++|** PRS - PRESET. 00426 M01S00409.ddfile +++|* 00427 M01S00410.ddfile +++|* EXIT (RA+2) = POINTER TO OUTPUT FILE. 00428 M01S00411.ddfile +++|* (RA+3) = POINTER TO *DBUF*. 00429 M01S00412.ddfile +++|* (RA+4) = LWA+1 OF *DDFILE*. 00430 M01S00413.ddfile +++|* (A0) = 0. 00431 M01S00414.ddfile +++| 00432 M01S00415.ddfile +++| 00433 M01S00416.ddfile +++| DDFILE BSS 0 00434 M01S00417.ddfile +++| PRS SA1 O SET UP POINTERS 00435 M01S00418.ddfile +++| SB1 1 00436 M01S00419.ddfile +++| MX2 42 00437 M01S00420.ddfile +++| SX3 A1 00438 M01S00421.ddfile +++| SX7 DBUF 00439 M01S00422.ddfile +++| BX4 X2*X1 00440 M01S00423.ddfile +++| BX6 X4+X3 00441 M01S00424.ddfile +++| SA6 B1+B1 00442 M01S00425.ddfile +++| SA7 A6+B1 00443 M01S00426.ddfile +++| SX6 MFL= 00444 M01S00427.ddfile +++| SA6 A7+B1 00445 M01S00428.ddfile +++| SA0 B0 DESELECT WRITE FLAG 00446 M01S00429.ddfile +++| EQ DDF ENTER LOOP 00447 M01S00430.ddfile +++| SPACE 4,10 00448 M01S00431.ddfile +++| END
cdc/nos2.source/opl.opl871/deck/ddfile.txt · Last modified: by 127.0.0.1