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