User Tools

Site Tools


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