cdc:nos2.source:opl.opl871:deck:ddfile
Deck DDFILE
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.ddfile +++| IDENT DDFILE,FETS,DDFILE 00002 M00S00002.ddfile +++| ABS 00003 M00S00003.ddfile +++| SST 00004 M00S00004.ddfile +++| SYSCOM B1 00005 M00S00005.ddfile +++| ENTRY DDFILE 00006 M00S00006.ddfile +++| ENTRY MFL=
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2618 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.ns2618 +++| ENTRY SSJ= 00008 M00S00007.ddfile +++| TITLE DDFILE - DDF UTILITY FUNCTION PROCESSOR. 00009 M00S00008.ddfile +++|*COMMENT DDFILE - DDF UTILITY FUNCTION PROCESSOR.
| Line S00009 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1987.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M00S00010.ddfile +++| DDF SPACE 4,10 00013 M00S00011.ddfile +++|*** DDFILE - *DDF* UTILITY FUNCTION PROCESSOR. 00014 M00S00012.ddfile +++|* 00015 M00S00013.ddfile +++|* J. J. EIKUM. 74/04/06. 00016 M00S00014.ddfile +++| DDF SPACE 4,10 00017 M00S00015.ddfile +++|*** *DDFILE* PROCESSES FUNCTIONS RELATING TO THE LISTING 00018 M00S00016.ddfile +++|* FILE FOR *DDF*. *DDFILE* IS LOADED AUTOMATICALLY BY *DDF*. 00019 M00S00017.ddfile +++| SPACE 4,10,15 00020 M00S00018.ddfile +++|*** DAYFILE MESSAGES. 00021 M00S00019.ddfile +++|* 00022 M00S00020.ddfile +++|* * LISTING FILE DOES NOT EXIST.* = THERE WAS NO LISTING 00023 M00S00021.ddfile +++|* FILE TO BE RELEASED. 00024 M00S00022.ddfile +++| DDF SPACE 4,10 00025 M00S00023.ddfile +++|* COMMON DECKS. 00026 M00S00024.ddfile +++| 00027 M00S00025.ddfile +++| 00028 M00S00026.ddfile +++|*CALL COMCMAC 00029 M00S00027.ddfile +++|*CALL COMSDSP
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2618 |
Seq # *Modification Id* Act ----------------------------+ 00030 M01S00002.ns2618 +++|*CALL COMSPRD 00031 M01S00003.ns2618 +++|*CALL COMSSSD 00032 M01S00004.ns2618 +++|*CALL COMSSSJ 00033 M00S00028.ddfile +++| DDF SPACE 4,10 00034 M00S00029.ddfile +++|**** ASSEMBLY CONSTANTS. 00035 M00S00030.ddfile +++| 00036 M00S00031.ddfile +++| 00037 M00S00032.ddfile +++| DBUFL EQU 102B 00038 M00S00033.ddfile +++| OBUFL EQU 1001B 00039 M00S00034.ddfile +++| 00040 M00S00035.ddfile +++| D EQU 5 CPU STATUS WORD 00041 M00S00036.ddfile +++| 00042 M00S00037.ddfile +++|**** 00043 M00S00038.ddfile +++| DDF SPACE 4,10 00044 M00S00039.ddfile +++|** FETS. 00045 M00S00040.ddfile +++| 00046 M00S00041.ddfile +++| 00047 M00S00042.ddfile +++| ORG 101B 00048 M00S00043.ddfile +++| FETS BSS 0 00049 M00S00044.ddfile +++| O BSS 0 00050 M00S00045.ddfile +++| OUTPUT FILEB OBUF,OBUFL,(FET=7),(EPR)
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2618 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed 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 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00057 M02S00001.ns2731 ---| VFD 36/0,12/LFCS,12/IRSI
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00058 M01S00001.ns2731 +++| VFD 36/0,12/LSCS,12/IRSI
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2618 |
Seq # *Modification Id* Act ----------------------------+ 00059 M01S00011.ns2618 +++| BSSZ SSJL-1 00060 M00S00046.ddfile +++| DDF TITLE MAIN PROGRAM. 00061 M00S00047.ddfile +++|** DDF - MAIN PROGRAM. 00062 M00S00048.ddfile +++| 00063 M00S00049.ddfile +++| 00064 M00S00050.ddfile +++| DDF SX6 3RDDF WAIT FOR REQUEST 00065 M00S00051.ddfile +++| LX6 42 00066 M00S00052.ddfile +++| SA6 D 00067 M00S00053.ddfile +++| RECALL A6 00068 M00S00054.ddfile +++| SA1 D GET FUNCTION NUMBER 00069 M00S00055.ddfile +++| SX2 X1 00070 M00S00056.ddfile +++| AX2 1 00071 M00S00057.ddfile +++| SA3 TFCN+X2 00072 M00S00058.ddfile +++| SB2 X3 00073 M00S00059.ddfile +++| JP B2 JUMP TO PROCESSOR 00074 M00S00060.ddfile +++| TFCN SPACE 4,10 00075 M00S00061.ddfile +++|** TFCN - TABLE OF FUNCTION PROCESSORS. 00076 M00S00062.ddfile +++| 00077 M00S00063.ddfile +++| 00078 M00S00064.ddfile +++| TFCN BSS 0 FUNCTION PROCESSORS. 00079 M00S00065.ddfile +++| LOC 0 00080 M00S00066.ddfile +++| CON END END PROGRAM 00081 M00S00067.ddfile +++| CON PRT PRINT 00082 M00S00068.ddfile +++| CON COF CHANGE LISTING FILE NAME 00083 M00S00069.ddfile +++| CON OUT RELEASE LISTING FILE TO QUEUE 00084 M00S00070.ddfile +++| CON REW REWIND LISTING FILE 00085 M00S00071.ddfile +++| CON SKP SKIP TO EOI 00086 M00S00072.ddfile +++| CON RET RETURN FILE 00087 M00S00073.ddfile +++| CON SID SETID 00088 M00S00074.ddfile +++| LOC *O 00089 M00S00075.ddfile +++| DDF TITLE FUNCTION PROCESSORS. 00090 M00S00076.ddfile +++| END SPACE 4,10 00091 M00S00077.ddfile +++|** FUNCTION 0 - END PROGRAM. 00092 M00S00078.ddfile +++| 00093 M00S00079.ddfile +++| 00094 M00S00080.ddfile +++| END RJ CMF COMPLETE FILE 00095 M00S00081.ddfile +++| ENDRUN 00096 M00S00082.ddfile +++| PRT SPACE 4,10 00097 M00S00083.ddfile +++|** FUNCTION 1 - PRINT. 00098 M00S00084.ddfile +++|* 00099 M00S00085.ddfile +++|* ENTRY (DBUF) = 12/EQ,12/TK,12/SC,24/CONTROL BYTES. 00100 M00S00086.ddfile +++|* (DBUF+1) = 12/(TRT),12/TRACK BITS,18/ ,18/ADDRESS. 00101 M00S00087.ddfile +++|* (DBUF+2 - DBUF+65) = CONTENTS OF SECTOR. 00102 M00S00088.ddfile +++| 00103 M00S00089.ddfile +++| 00104 M00S00090.ddfile +++|* OUTPUT PAGE HEADER. 00105 M00S00091.ddfile +++| 00106 M00S00092.ddfile +++| PRT CLOCK PRTF TIME 00107 M00S00093.ddfile +++| DATE PRTE DATE 00108 M00S00094.ddfile +++| SA5 DBUF 00109 M00S00095.ddfile +++| MX0 -12 00110 M00S00096.ddfile +++| LX5 12 00111 M00S00097.ddfile +++| BX1 -X0*X5 00112 M00S00098.ddfile +++| RJ COD CONVERT EST ORDINAL 00113 M00S00099.ddfile +++| BX7 X4 00114 M00S00100.ddfile +++| LX5 12 00115 M00S00101.ddfile +++| LX7 9*6 00116 M00S00102.ddfile +++| BX1 -X0*X5 00117 M00S00103.ddfile +++| SA7 PRTB 00118 M00S00104.ddfile +++| RJ COD TRACK 00119 M00S00105.ddfile +++| SA1 PRTC 00120 M00S00106.ddfile +++| MX2 5*6 00121 M00S00107.ddfile +++| BX4 X2*X1 00122 M00S00108.ddfile +++| BX3 -X2*X6 00123 M00S00109.ddfile +++| LX5 12 00124 M00S00110.ddfile +++| BX6 X3+X4 00125 M00S00111.ddfile +++| SA6 A1 00126 M00S00112.ddfile +++| BX1 -X0*X5 00127 M00S00113.ddfile +++| RJ COD SECTOR 00128 M00S00114.ddfile +++| MX1 9*6 00129 M00S00115.ddfile +++| SX2 1R. 00130 M00S00116.ddfile +++| LX6 6 00131 M00S00117.ddfile +++| BX3 X1*X6 00132 M00S00118.ddfile +++| BX6 X3+X2 00133 M00S00119.ddfile +++| LX6 5*6 00134 M00S00120.ddfile +++| LX5 24 00135 M00S00121.ddfile +++| MX0 -24 00136 M00S00122.ddfile +++| SA6 PRTD 00137 M00S00123.ddfile +++| BX1 -X0*X5 00138 M00S00124.ddfile +++| RJ WOD LINKAGE BYTES 00139 M00S00125.ddfile +++| MX0 -24 00140 M00S00126.ddfile +++| BX1 -X0*X7 00141 M00S00127.ddfile +++| SX2 2R 00142 M00S00128.ddfile +++| LX7 6*6 00143 M00S00129.ddfile +++| BX3 -X0*X7 00144 M00S00130.ddfile +++| LX2 4*6 00145 M00S00131.ddfile +++| LX3 6*6 00146 M00S00132.ddfile +++| BX4 X1+X2 00147 M00S00133.ddfile +++| SA1 DBUF 00148 M00S00134.ddfile +++| BX6 X4+X3 00149 M00S00135.ddfile +++| MX0 -12 00150 M00S00136.ddfile +++| SA6 PRTH 00151 M00S00137.ddfile +++| BX2 -X0*X1 00152 M00S00138.ddfile +++| AX1 12 00153 M00S00139.ddfile +++| SA5 =3R 00154 M00S00140.ddfile +++| BX1 -X0*X1 00155 M00S00141.ddfile +++| SA4 PRTI 00156 M00S00142.ddfile +++| NZ X1,PRT2 IF NOT EOF OR EOI 00157 M00S00143.ddfile +++| SX7 B0+ 00158 M00S00144.ddfile +++| NZ X2,PRT1 IF NOT EOI 00159 M00S00145.ddfile +++| SX5 3REOI 00160 M00S00146.ddfile +++| EQ PRT3 PRINT EOI 00161 M00S00147.ddfile +++| 00162 M00S00148.ddfile +++| PRT1 SX5 3REOF 00163 M00S00149.ddfile +++| EQ PRT3 PRINT EOF 00164 M00S00150.ddfile +++| 00165 M00S00151.ddfile +++| PRT2 SX3 X2-100B 00166 M00S00152.ddfile +++| SX7 X2+ 00167 M00S00153.ddfile +++| ZR X3,PRT3 IF NOT EOR 00168 M00S00154.ddfile +++| SX5 3REOR 00169 M00S00155.ddfile +++| PRT3 MX0 7*6 00170 M00S00156.ddfile +++| SA7 PRTN SAVE WORD COUNT 00171 M00S00157.ddfile +++| BX2 X0*X4 00172 M00S00158.ddfile +++| BX6 X2+X5 00173 M00S00159.ddfile +++| SA6 A4 00174 M00S00160.ddfile +++| WRITEC O,PRTA 00175 M00S00161.ddfile +++| WRITEC O,PRTJ 00176 M00S00162.ddfile +++| WRITEC O,PRTG 00177 M00S00163.ddfile +++| WRITEC O,PRTJ 00178 M00S00164.ddfile +++| WRITEC O,PRTJ 00179 M00S00165.ddfile +++| 00180 M00S00166.ddfile +++|* OUTPUT ONE CM WORD. 00181 M00S00167.ddfile +++| 00182 M00S00168.ddfile +++| SA0 B0+ 00183 M00S00169.ddfile +++| PRT4 SX1 A0 00184 M00S00170.ddfile +++| RJ COD CM WORD NUMBER 00185 M00S00171.ddfile +++| SX1 5 00186 M00S00172.ddfile +++| SX2 A0 00187 M00S00173.ddfile +++| IX3 X1*X2 00188 M00S00174.ddfile +++| SB2 X6+ 00189 M00S00175.ddfile +++| SX1 X3+2 00190 M00S00176.ddfile +++| RJ WOD BYTE NUMBER 00191 M00S00177.ddfile +++| MX1 -4*6 00192 M00S00178.ddfile +++| MX3 -3*6 00193 M00S00179.ddfile +++| BX4 -X1*X7 00194 M00S00180.ddfile +++| SX2 B2+ 00195 M00S00181.ddfile +++| SA1 PRTK 00196 M00S00182.ddfile +++| BX5 -X3*X2 00197 M00S00183.ddfile +++| LX4 6 00198 M00S00184.ddfile +++| LX5 7*6 00199 M00S00185.ddfile +++| IX7 X4+X1 00200 M00S00186.ddfile +++| BX6 X5+X7 00201 M00S00187.ddfile +++| WRITEO O PRINT WORD AND BYTE NUMBERS 00202 M00S00188.ddfile +++| SA1 A0+DBUF+2 OUTPUT CONTENTS OF NEXT CM WORD 00203 M00S00189.ddfile +++| RJ WOD CONVERT WORD 00204 M00S00190.ddfile +++| MX1 4*6 00205 M00S00191.ddfile +++| BX0 X7 00206 M00S00192.ddfile +++| BX2 X1*X6 00207 M00S00193.ddfile +++| LX6 4*6 00208 M00S00194.ddfile +++| BX3 X1*X6 00209 M00S00195.ddfile +++| SA1 PRTL 00210 M00S00196.ddfile +++| LX2 9*6 00211 M00S00197.ddfile +++| LX3 4*6 00212 M00S00198.ddfile +++| BX4 X2+X3 00213 M00S00199.ddfile +++| BX5 X6 00214 M00S00200.ddfile +++| BX6 X4+X1 00215 M00S00201.ddfile +++| WRITEO O 00216 M00S00202.ddfile +++| LX5 4*6 00217 M00S00203.ddfile +++| MX1 2*6 00218 M00S00204.ddfile +++| BX3 X1*X0 00219 M00S00205.ddfile +++| BX2 X1*X5 00220 M00S00206.ddfile +++| LX3 8*6 00221 M00S00207.ddfile +++| LX0 2*6 00222 M00S00208.ddfile +++| MX1 4*6 00223 M00S00209.ddfile +++| BX4 X2+X3 00224 M00S00210.ddfile +++| BX2 X1*X0 00225 M00S00211.ddfile +++| SA1 PRTL 00226 M00S00212.ddfile +++| LX4 9*6 00227 M00S00213.ddfile +++| LX2 4*6 00228 M00S00214.ddfile +++| BX5 X2+X4 00229 M00S00215.ddfile +++| BX6 X5+X1 00230 M00S00216.ddfile +++| WRITEO O 00231 M00S00217.ddfile +++| LX0 4*6 00232 M00S00218.ddfile +++| MX2 4*6 00233 M00S00219.ddfile +++| BX1 X2*X0 00234 M00S00220.ddfile +++| RJ ZTB BLANK FILL 00235 M00S00221.ddfile +++| SA1 PRTN 00236 M00S00222.ddfile +++| SX2 A0 00237 M00S00223.ddfile +++| LX6 9*6 00238 M00S00224.ddfile +++| IX3 X2-X1 00239 M00S00225.ddfile +++| NZ X3,PRT5 IF NOT AT WORD COUNT 00240 M00S00226.ddfile +++| MX2 30 00241 M00S00227.ddfile +++| SA1 PRTM 00242 M00S00228.ddfile +++| BX3 X2*X6 00243 M00S00229.ddfile +++| BX6 X3+X1 00244 M00S00230.ddfile +++| PRT5 WRITEO O 00245 M00S00231.ddfile +++| SA1 A0+DBUF+2 OUTPUT DISPLAY CODE 00246 M00S00232.ddfile +++| RJ ZTB BLANK FILL 00247 M00S00233.ddfile +++| WRITEO O 00248 M00S00234.ddfile +++| 00249 M00S00235.ddfile +++|* ADVANCE TO NEXT WORD. 00250 M00S00236.ddfile +++| 00251 M00S00237.ddfile +++| SA1 PRTO 00252 M00S00238.ddfile +++| NZ X1,PRT6 IF JUST PRINTED SECOND HALF OF LINE 00253 M00S00239.ddfile +++| SX7 40B 00254 M00S00240.ddfile +++| SA2 =10H 00255 M00S00241.ddfile +++| SA0 A0+40B 00256 M00S00242.ddfile +++| SA7 A1 00257 M00S00243.ddfile +++| BX6 X2 00258 M00S00244.ddfile +++| WRITEO O 00259 M00S00245.ddfile +++| SA2 =10H 00260 M00S00246.ddfile +++| BX6 X2 00261 M00S00247.ddfile +++| WRITEO O 00262 M00S00248.ddfile +++| EQ PRT4 LOOP TO PRINT SECOND HALF OF LINE 00263 M00S00249.ddfile +++| 00264 M00S00250.ddfile +++| PRT6 MX6 0 00265 M00S00251.ddfile +++| SA0 A0-40B+1 00266 M00S00252.ddfile +++| SA6 A1 00267 M00S00253.ddfile +++| WRITEO O TERMINATE LINE 00268 M00S00254.ddfile +++| SX1 A0-40B 00269 M00S00255.ddfile +++| ZR X1,PRT7 IF END OF BUFFER 00270 M00S00256.ddfile +++| LX1 15 00271 M00S00257.ddfile +++| SX2 X1 00272 M00S00258.ddfile +++| NZ X2,PRT4 IF NO BLANK LINE NEEDED 00273 M00S00259.ddfile +++| SX6 1R0 00274 M00S00260.ddfile +++| LX6 9*6 00275 M00S00261.ddfile +++| WRITEO O 00276 M00S00262.ddfile +++| EQ PRT4 LOOP 00277 M00S00263.ddfile +++| 00278 M00S00264.ddfile +++| PRT7 SA0 B1 00279 M00S00265.ddfile +++| EQ DDF RETURN 00280 M00S00266.ddfile +++| 00281 M00S00267.ddfile +++| 00282 M00S00268.ddfile +++| PRTA DATA 10H1 EST ORD. 00283 M00S00269.ddfile +++| PRTB DATA 10H EE 00284 M00S00270.ddfile +++| PRTC DATA 10HTRACK TTTT 00285 M00S00271.ddfile +++| DATA 10H SECTOR 00286 M00S00272.ddfile +++| PRTD DATA 10HNNNN. 00287 M00S00273.ddfile +++| DATA 30H 00288 M00S00274.ddfile +++| PRTE DATA 10H DATE 00289 M00S00275.ddfile +++| PRTF DATA 10H TIME 00290 M00S00276.ddfile +++| DATA 2C 00291 M00S00277.ddfile +++| PRTG DATA 20H- LINKAGE BYTES = 00292 M00S00278.ddfile +++| PRTH DATA 10HNNNN NNNN 00293 M00S00279.ddfile +++| PRTI DATA 10H. EOI 00294 M00S00280.ddfile +++| DATA 2C 00295 M00S00281.ddfile +++| PRTJ VFD 12/2R- ,48/0 00296 M00S00282.ddfile +++| PRTK VFD 18/0,12/2R (,24/0,6/1R) 00297 M00S00283.ddfile +++| PRTL VFD 6/1R ,24/0,6/1R ,24/0 00298 M00S00284.ddfile +++| PRTM VFD 30/0,30/5R##### 00299 M00S00285.ddfile +++| PRTN CON 0 WORD COUNT 00300 M00S00286.ddfile +++| PRTO CON 0 POINTER BIAS 00301 M00S00287.ddfile +++| COF SPACE 4,10 00302 M00S00288.ddfile +++|** FUNCTION 2 - CHANGE LISTING FILE NAME. 00303 M00S00289.ddfile +++|* 00304 M00S00290.ddfile +++|* ENTRY (DBUF) = 42/FILE NAME,18/0. 00305 M00S00291.ddfile +++| 00306 M00S00292.ddfile +++| 00307 M00S00293.ddfile +++| COF RJ CMF FLUSH BUFFER IF NECCESSARY 00308 M00S00294.ddfile +++| SA1 DBUF 00309 M00S00295.ddfile +++| SX2 B1 00310 M00S00296.ddfile +++| BX6 X1+X2 00311 M00S00297.ddfile +++| SA6 O SET NEW FILE NAME 00312 M00S00298.ddfile +++| EQ DDF RETURN 00313 M00S00299.ddfile +++| OUT SPACE 4,10 00314 M00S00300.ddfile +++|** FUNCTION 3 - RELEASE LISTING FILE TO QUEUE. 00315 M00S00301.ddfile +++| 00316 M00S00302.ddfile +++| 00317 M00S00303.ddfile +++| OUT RJ CMF COMPLETE FILE 00318 M00S00304.ddfile +++| SA5 O SAVE FET+0 00319 M00S00305.ddfile +++| STATUS O CHECK IF FILE EXISTS 00320 M00S00306.ddfile +++| BX6 X5 00321 M00S00307.ddfile +++| MX3 -11 00322 M00S00308.ddfile +++| SA1 X2 00323 M00S00309.ddfile +++| SA6 X2 00324 M00S00310.ddfile +++| LX3 12-11 00325 M00S00311.ddfile +++| BX3 -X3*X1 00326 M00S00312.ddfile +++| ZR X3,OUT1 IF FILE DOES NOT EXIST 00327 M00S00313.ddfile +++| MX6 42 00328 M00S00314.ddfile +++| BX6 X6*X1 00329 M00S00315.ddfile +++| SA6 OUTA SET FILE NAME IN *DSP* PARAMETER BLOCK 00330 M00S00316.ddfile +++| ROUTE OUTA,R 00331 M00S00317.ddfile +++| SA1 OUTA+1 CLEAR *TID* FLAG BIT 00332 M00S00318.ddfile +++| SX3 FRTI 00333 M00S00319.ddfile +++| BX6 -X3*X1 00334 M00S00320.ddfile +++| SA6 A1 00335 M00S00321.ddfile +++| EQ DDF RETURN 00336 M00S00322.ddfile +++| 00337 M00S00323.ddfile +++| OUT1 MESSAGE (=C* LISTING FILE DOES NOT EXIST.*),3,R 00338 M00S00324.ddfile +++| EQ DDF RETURN 00339 M00S00325.ddfile +++| 00340 M00S00326.ddfile +++| 00341 M00S00327.ddfile +++| OUTA VFD 42/0LOUTPUT,18/0 00342 M00S00328.ddfile +++| VFD 24/0,12/2HPR,6/0,18/FRDC+FRCS 00343 M00S00329.ddfile +++| BSSZ 5 00344 M00S00330.ddfile +++| REW SPACE 4,10 00345 M00S00331.ddfile +++|** FUNCTION 4 - REWIND LISTING FILE. 00346 M00S00332.ddfile +++| 00347 M00S00333.ddfile +++| 00348 M00S00334.ddfile +++| REW RJ CMF COMPLETE FILE 00349 M00S00335.ddfile +++| REWIND O 00350 M00S00336.ddfile +++| EQ DDF RETURN 00351 M00S00337.ddfile +++| SKP SPACE 4,10 00352 M00S00338.ddfile +++|** FUNCTION 5 - SKIP TO EOI. 00353 M00S00339.ddfile +++| 00354 M00S00340.ddfile +++| 00355 M00S00341.ddfile +++| SKP SB2 A0 00356 M00S00342.ddfile +++| NZ B2,DDF IF CURRENTLY WRITING ON FILE 00357 M00S00343.ddfile +++| SKIPEI O 00358 M00S00344.ddfile +++| EQ DDF RETURN 00359 M00S00345.ddfile +++| RET SPACE 4,10 00360 M00S00346.ddfile +++|** FUNCTION 6 - RETURN FILE. 00361 M00S00347.ddfile +++| 00362 M00S00348.ddfile +++| 00363 M00S00349.ddfile +++| RET RJ CMF COMPLETE FILE 00364 M00S00350.ddfile +++| RETURN O 00365 M00S00351.ddfile +++| EQ DDF RETURN 00366 M00S00352.ddfile +++| SID SPACE 4,10 00367 M00S00353.ddfile +++|** FUNCTION 7 - SETID. 00368 M00S00354.ddfile +++|* 00369 M00S00355.ddfile +++|* ENTRY (DBUF) = ID. 00370 M00S00356.ddfile +++| 00371 M00S00357.ddfile +++| 00372 M00S00358.ddfile +++| SID SA1 DBUF 00373 M00S00359.ddfile +++| SA2 OUTA+1 SET *TID* FLAG BIT 00374 M00S00360.ddfile +++| SX3 FRTI 00375 M00S00361.ddfile +++| BX6 X2+X3 00376 M00S00362.ddfile +++| SA6 A2 00377 M00S00363.ddfile +++| BX6 X1 SET *TID* FIELD 00378 M00S00364.ddfile +++| SA6 A6+B1 00379 M00S00365.ddfile +++| EQ DDF RETURN 00380 M00S00366.ddfile +++| DDF TITLE SUBROUTINES. 00381 M00S00367.ddfile +++| CMF SPACE 4,10 00382 M00S00368.ddfile +++|** CMF - COMPLETE FILE. 00383 M00S00369.ddfile +++|* 00384 M00S00370.ddfile +++|* ENTRY (A0) .NE. 0 IF BUFFER FLUSH REQUIRED. 00385 M00S00371.ddfile +++|* 00386 M00S00372.ddfile +++|* EXIT (A0) = 0. 00387 M00S00373.ddfile +++|* 00388 M00S00374.ddfile +++|* USES B - 2. 00389 M00S00375.ddfile +++|* 00390 M00S00376.ddfile +++|* MACROS WRITER. 00391 M00S00377.ddfile +++| 00392 M00S00378.ddfile +++| 00393 M00S00379.ddfile +++| CMF SUBR ENTRY/EXIT 00394 M00S00380.ddfile +++| SB2 A0 00395 M00S00381.ddfile +++| ZR B2,CMFX IF WRITE NOT NEEDED 00396 M00S00382.ddfile +++| WRITER O,R 00397 M00S00383.ddfile +++| SA0 B0 00398 M00S00384.ddfile +++| EQ CMFX RETURN 00399 M00S00385.ddfile +++| DDF SPACE 4,10 00400 M00S00386.ddfile +++|* COMMON DECKS. 00401 M00S00387.ddfile +++| 00402 M00S00388.ddfile +++| 00403 M00S00389.ddfile +++|*CALL COMCCIO 00404 M00S00390.ddfile +++|*CALL COMCCOD 00405 M00S00391.ddfile +++|*CALL COMCLFM 00406 M00S00392.ddfile +++|*CALL COMCSYS 00407 M00S00393.ddfile +++|*CALL COMCWOD 00408 M00S00394.ddfile +++|*CALL COMCWTC 00409 M00S00395.ddfile +++|*CALL COMCWTO 00410 M00S00396.ddfile +++|*CALL COMCWTW 00411 M00S00397.ddfile +++|*CALL COMCZTB 00412 M00S00398.ddfile +++| DDF SPACE 4,10 00413 M00S00399.ddfile +++|* BUFFERS. 00414 M00S00400.ddfile +++| 00415 M00S00401.ddfile +++| 00416 M00S00402.ddfile +++| USE BUFFERS 00417 M00S00403.ddfile +++| DBUF EQU * 00418 M00S00404.ddfile +++| OBUF EQU DBUF+DBUFL
| Line S00405 Modification History | |
|---|---|
M01 (Removed by) | ns2618 |
Seq # *Modification Id* Act ----------------------------+ 00419 M01S00405.ns2618 ---| MFL= EQU OBUF+OBUFL
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2618 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00406.ddfile +++| PRS TITLE PRESET. 00424 M00S00407.ddfile +++| PRS SPACE 4,10 00425 M00S00408.ddfile +++|** PRS - PRESET. 00426 M00S00409.ddfile +++|* 00427 M00S00410.ddfile +++|* EXIT (RA+2) = POINTER TO OUTPUT FILE. 00428 M00S00411.ddfile +++|* (RA+3) = POINTER TO *DBUF*. 00429 M00S00412.ddfile +++|* (RA+4) = LWA+1 OF *DDFILE*. 00430 M00S00413.ddfile +++|* (A0) = 0. 00431 M00S00414.ddfile +++| 00432 M00S00415.ddfile +++| 00433 M00S00416.ddfile +++| DDFILE BSS 0 00434 M00S00417.ddfile +++| PRS SA1 O SET UP POINTERS 00435 M00S00418.ddfile +++| SB1 1 00436 M00S00419.ddfile +++| MX2 42 00437 M00S00420.ddfile +++| SX3 A1 00438 M00S00421.ddfile +++| SX7 DBUF 00439 M00S00422.ddfile +++| BX4 X2*X1 00440 M00S00423.ddfile +++| BX6 X4+X3 00441 M00S00424.ddfile +++| SA6 B1+B1 00442 M00S00425.ddfile +++| SA7 A6+B1 00443 M00S00426.ddfile +++| SX6 MFL= 00444 M00S00427.ddfile +++| SA6 A7+B1 00445 M00S00428.ddfile +++| SA0 B0 DESELECT WRITE FLAG 00446 M00S00429.ddfile +++| EQ DDF ENTER LOOP 00447 M00S00430.ddfile +++| SPACE 4,10 00448 M00S00431.ddfile +++| END
cdc/nos2.source/opl.opl871/deck/ddfile.txt · Last modified: (external edit)