User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:list80

Deck LIST80

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.list80  +++|          IDENT  LIST80,FETS
00002  M01S00002.list80  +++|          ABS
00003  M01S00003.list80  +++|          SYSCOM B1          DEFINE (B1) = 1
00004  M01S00004.list80  +++|          SPACE  4,10
00005  M01S00005.list80  +++|*COMMENT  LIST80 - COMPRESS COMPASS LISTINGS.
Line S00006 Modification History
M01 (Added by) list80
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. , 1971.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.list80  +++|          SPACE  4,10
00009  M01S00008.list80  +++|          ENTRY  LIST80
00010  M01S00009.list80  +++|          ENTRY  RFL=
00011  M01S00010.list80  +++|          TITLE  LIST80 - COMPRESS COMPASS LISTINGS.
00012  M01S00011.list80  +++|          TITLE
00013  M01S00012.list80  +++|***       LIST80 - COMPRESS COMPASS LISTINGS.
00014  M01S00013.list80  +++|*         G. R. MANSFIELD.
00015  M01S00014.list80  +++|*         D. R. HILGREN.     79/04/25.  RESEQUENCED.
00016  M01S00015.list80  +++|          SPACE  4,10
00017  M01S00016.list80  +++|***              *LIST80* READS A FILE CONTAINING LIST OUTPUT
00018  M01S00017.list80  +++|*         PRODUCED BY THE COMPASS COMPILER AND COMPRESSES IT TO 80
00019  M01S00018.list80  +++|*         COLUMNS.
00020  M01S00019.list80  +++|          SPACE  4,10
00021  M01S00020.list80  +++|***       CONTROL CARD CALL.
00022  M01S00021.list80  +++|*
00023  M01S00022.list80  +++|*         LIST80(IFILE,OFILE,NR)
00024  M01S00023.list80  +++|*                IFILE       FILE TO COPY FROM.
00025  M01S00024.list80  +++|*                OFILE       FILE TO COPY TO.
00026  M01S00025.list80  +++|*                NR          IF PRESENT, *IFILE* WILL NOT BE REWOUND.
00027  M01S00026.list80  +++|*
00028  M01S00027.list80  +++|*         ASSUMED PARAMETERS.
00029  M01S00028.list80  +++|*                IFILE = *LIST*
00030  M01S00029.list80  +++|*                OFILE = *OUTPUT*
00031  M01S00001.ns22000 +++|*
00032  M01S00002.ns22000 +++|*         PAGE SIZE AND PRINT DENSITY WILL BE BASED
00033  M01S00003.ns22000 +++|*         ON THE PRINT FILE TO BE PROCESSED.
00034  M01S00004.ns22000 +++|*
00035  M01S00030.list80  +++|          SPACE  4,10
00036  M01S00031.list80  +++|***       DAYFILE MESSAGES.
00037  M01S00032.list80  +++|*
00038  M01S00033.list80  +++|*         * CONVERSION COMPLETE.* - *LIST80* COMPLETED.
00039  M01S00034.list80  +++|*
00040  M01S00035.list80  +++|*         * FILE NAME CONFLICT.* - *IFILE* AND *OFILE* HAVE THE SAME
00041  M01S00036.list80  +++|*         NAME.
00042  M01S00037.list80  +++|*
00043  M01S00038.list80  +++|*         * FL TOO SHORT FOR LIST.* - NOT ENOUGH STORAGE FOR LIST.
00044  M01S00039.list80  +++|          SPACE  4,10
00045  M01S00040.list80  +++|****      ASSEMBLY CONSTANTS.
00046  M01S00041.list80  +++|
00047  M01S00042.list80  +++|
00048  M01S00043.list80  +++| IBUFL    EQU    2001B
00049  M01S00044.list80  +++| OBUFL    EQU    2001B
00050  M01S00045.list80  +++|
00051  M01S00046.list80  +++|****
00052  M01S00047.list80  +++|          SPACE  4,10
00053  M01S00048.list80  +++|*         COMMON DECKS.
00054  M01S00049.list80  +++|
00055  M01S00050.list80  +++|
00056  M01S00051.list80  +++|*CALL     COMCMAC
00057  M01S00005.ns22000 +++|*CALL     COMCCMD
00058  M01S00052.list80  +++|****
00059  M01S00053.list80  +++|          TITLE  STORAGE ASSIGNMENT.
00060  M01S00054.list80  +++|*         STORAGE ASSIGNMENT.
00061  M01S00055.list80  +++|
00062  M01S00056.list80  +++|
00063  M01S00057.list80  +++|          ORG    110B
00064  M01S00058.list80  +++| FETS     BSS    0
00065  M01S00059.list80  +++|
00066  M01S00060.list80  +++| I        BSS    0           *IFILE*
00067  M01S00061.list80  +++| LIST     FILEC  IBUF,IBUFL
00068  M01S00062.list80  +++|
00069  M01S00063.list80  +++| O        BSS    0           *OFILE*
Line S00064 Modification History
M01 (Added by) list80
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00064.ns22000 ---| OUTPUT   FILEC  OBUF,OBUFL
00071  M01S00006.ns22000 +++| OUTPUT   FILEC  OBUF,OBUFL,(FET=6)
00072  M01S00065.list80  +++|
00073  M01S00066.list80  +++| MBUF     BSS    136         WORKING READ BUFFER
00074  M01S00067.list80  +++| MBUFL    EQU    *-MBUF
00075  M01S00068.list80  +++|
00076  M01S00069.list80  +++| SBUF     BSS    80          WORKING WRITE BUFFER
00077  M01S00070.list80  +++| SBUFL    EQU    *-SBUF
00078  M01S00071.list80  +++|          BSS    10
00079  M01S00072.list80  +++|          SPACE  4,10
00080  M01S00073.list80  +++|*         PROGRAM CONSTANTS.
00081  M01S00074.list80  +++|
00082  M01S00007.ns22000 +++| PD       CON    1LS,0       PRINT DENSITY / CONTROL WORD
00083  M01S00008.ns22000 +++| PL       CON    0           PAGE LENGTH
00084  M01S00075.list80  +++|
00085  M01S00076.list80  +++| BLANKS   BSS    0           BLANKS
00086  M01S00077.list80  +++|          DUP    10,1
00087  M01S00078.list80  +++|          CON    1R
00088  M01S00079.list80  +++| LIST80   TITLE  LIST80 - MAIN PROGRAM.
00089  M01S00080.list80  +++|
00090  M01S00081.list80  +++|
00091  M01S00082.list80  +++| LIST80   SB1    1           ENTRY
00092  M01S00083.list80  +++|          RJ     ARG         PROCESS ARGUMENTS
00093  M01S00084.list80  +++| LST1     READ   I
00094  M01S00085.list80  +++|          SX6    LSL         SET LINE LIST
00095  M01S00086.list80  +++|          SA0    SRN         SET INITIAL LIST DISABLE
00096  M01S00087.list80  +++|          SA6    CKSAE+1
00097  M01S00088.list80  +++|          EQ     LST3        READ FIRST LINE OF *IFILE*
00098  M01S00089.list80  +++|
00099  M01S00090.list80  +++| LST2     WRITES O,SBUF,SBUFL
00100  M01S00091.list80  +++| LST3     READS  I,MBUF,MBUFL
00101  M01S00092.list80  +++|          NG     X1,LST4     IF EOF
00102  M01S00093.list80  +++|          NZ     X1,LST1     IF EOR
00103  M01S00094.list80  +++|          SA1    MBUF
00104  M01S00095.list80  +++|          SX6    X1-1R1
00105  M01S00096.list80  +++|          ZR     X6,PEJ      IF PAGE EJECT
00106  M01S00097.list80  +++|          SB2    A0
00107  M01S00098.list80  +++|          JP     B2          PROCESS LINE
00108  M01S00099.list80  +++|
00109  M01S00100.list80  +++| LST4     WRITER O
00110  M01S00101.list80  +++|          MESSAGE (=C* CONVERSION COMPLETE.*),3
00111  M01S00102.list80  +++|          ENDRUN
00112  M01S00103.list80  +++|          TITLE  SUBROUTINES.
00113  M01S00104.list80  +++| CKS      SPACE  4,10
00114  M01S00105.list80  +++|**        CKS - CHECK SUBTITLE.
00115  M01S00106.list80  +++|*
00116  M01S00107.list80  +++|*         EXIT TO *LST2*.
00117  M01S00108.list80  +++|*
00118  M01S00109.list80  +++|*         USES   A - 0, 1, 2, 6.
00119  M01S00110.list80  +++|*                X - 1, 2, 4, 6, 7.
00120  M01S00111.list80  +++|*                B - 2.
00121  M01S00112.list80  +++|*
00122  M01S00113.list80  +++|*         MACROS MOVE.
00123  M01S00114.list80  +++|
00124  M01S00115.list80  +++|
00125  M01S00116.list80  +++| CKS      SA1    MBUF+8      ASSEMBLE 10 CHARACTERS
00126  M01S00117.list80  +++|          MX4    1
00127  M01S00118.list80  +++|          BX6    X6-X6
00128  M01S00119.list80  +++| CKS1     LX6    6
00129  M01S00120.list80  +++|          BX6    X1+X6
00130  M01S00121.list80  +++|          LX4    6
00131  M01S00122.list80  +++|          SA1    A1+B1
00132  M01S00123.list80  +++|          PL     X4,CKS1     IF NOT END OF WORD
00133  M01S00124.list80  +++|          SA6    CKSAE
00134  M01S00125.list80  +++|          SA2    CKSA
00135  M01S00126.list80  +++|          SB2    B1+B1
00136  M01S00127.list80  +++| CKS2     BX7    X6-X2
00137  M01S00128.list80  +++|          SA1    A2+B1
00138  M01S00129.list80  +++|          SA2    A2+B2
00139  M01S00130.list80  +++|          SA0    X1
00140  M01S00131.list80  +++|          NZ     X7,CKS2     IF NOT SUBTITLE
00141  M01S00132.list80  +++|          SX6    1R
00142  M01S00133.list80  +++|          SA6    SBUF
00143  M01S00134.list80  +++|          SA6    A6+B1
00144  M01S00135.list80  +++|          MOVE   46,MBUF+8,A6+B1  MOVE SUBTITLE
00145  M01S00136.list80  +++|          MOVE   31,MBUF+69,SBUF+48  MOVE SUB-SUBTITLE
00146  M01S00137.list80  +++|          EQ     LST2        WRITE LINE
00147  M01S00138.list80  +++|
00148  M01S00139.list80  +++| CKSA     BSS    0
00149  M01S00140.list80  +++|          CON    10HSTORAGE AL,STA
00150  M01S00141.list80  +++|          CON    10HSYMBOLIC R,REF
00151  M01S00142.list80  +++|          CON    10HERROR DIRE,ERD
00152  M01S00143.list80  +++| CKSAE    CON    0,LSL
00153  M01S00144.list80  +++| ERD      SPACE  4,10
00154  M01S00145.list80  +++|**        ERD - LIST ERROR DIRECTORY.
00155  M01S00146.list80  +++|*
00156  M01S00147.list80  +++|*         EXIT TO *LST2*.
00157  M01S00148.list80  +++|*
00158  M01S00149.list80  +++|*         USES   A - 1, 6.
00159  M01S00150.list80  +++|*                X - 1, 6.
00160  M01S00151.list80  +++|*                B - 2, 3, 4.
00161  M01S00152.list80  +++|*
00162  M01S00153.list80  +++|*         MACROS MOVE.
00163  M01S00154.list80  +++|
00164  M01S00155.list80  +++|
00165  M01S00156.list80  +++| ERD      SA1    MBUF+16
00166  M01S00157.list80  +++|          SX6    X1-1R
00167  M01S00158.list80  +++|          ZR     X6,ERD1     IF NOT TYPE EXPLANATION
00168  M01S00159.list80  +++|          MOVE   16,MBUF+12,SBUF
00169  M01S00160.list80  +++|          MOVE   64,MBUF+40,SBUF+16
00170  M01S00161.list80  +++|          EQ     LST2        WRITE LINE
00171  M01S00162.list80  +++|
00172  M01S00163.list80  +++| ERD1     MOVE   21,MBUF+19,SBUF
00173  M01S00164.list80  +++|          SB2    9           NUMBER OF FIELDS TO MOVE
00174  M01S00165.list80  +++|          SB3    MBUF+44
00175  M01S00166.list80  +++|          SB4    SBUF+21
00176  M01S00167.list80  +++| ERD2     MOVE   6,B3,B4     MOVE FIELD
00177  M01S00168.list80  +++|          SB3    B3+10
00178  M01S00169.list80  +++|          SB4    B4+6
00179  M01S00170.list80  +++|          SB2    B2-1
00180  M01S00171.list80  +++|          NZ     B2,ERD2     IF NOT END OF LINE
00181  M01S00172.list80  +++|          MOVE   4,BLANKS,SBUF+75  CLEAR LAST PART OF LINE
00182  M01S00173.list80  +++|          SX6    LSL
00183  M01S00174.list80  +++|          SA6    CKSAE+1     RESET LINE LIST
00184  M01S00175.list80  +++|          EQ     LST2        WRITE LINE
00185  M01S00176.list80  +++| LSL      SPACE  4,10
00186  M01S00177.list80  +++|**        LSL - LIST LINE.
00187  M01S00178.list80  +++|*
00188  M01S00179.list80  +++|*         EXIT TO *LST2*.
00189  M01S00180.list80  +++|*
00190  M01S00181.list80  +++|*         USES   A - 0, 1, 2, 6, 7.
00191  M01S00182.list80  +++|*                X - 1, 2, 3, 4, 6, 7.
00192  M01S00183.list80  +++|*                B - 2.
00193  M01S00184.list80  +++|*
00194  M01S00185.list80  +++|*         MACROS MOVE.
00195  M01S00186.list80  +++|
00196  M01S00187.list80  +++|
00197  M01S00188.list80  +++| LSL      MOVE   7,MBUF+7,SBUF+1  LOCATION FIELD
00198  M01S00189.list80  +++|          MOVE   64,MBUF+40,SBUF+8  CARD IMAGE
00199  M01S00190.list80  +++|          MOVE   6,MBUF+120,SBUF+72  SEQUENCE NUMBER
00200  M01S00191.list80  +++|          SA1    MBUF+1      FIRST ERROR CODE (IF ANY)
00201  M01S00192.list80  +++|          MX4    1
00202  M01S00193.list80  +++|          BX6    X1
00203  M01S00194.list80  +++|          SA6    SBUF+1
00204  M01S00195.list80  +++|          SA1    MBUF+112    ASSEMBLE CARD NAME
00205  M01S00196.list80  +++|          SB2    X1-1R
00206  M01S00197.list80  +++|          ZR     B2,LSL2     IF BLANK NAME
00207  M01S00198.list80  +++|          BX6    X6-X6
00208  M01S00199.list80  +++|          LX4    3*6
00209  M01S00200.list80  +++|          SA2    LSLA
00210  M01S00201.list80  +++| LSL1     LX6    6
00211  M01S00202.list80  +++|          BX6    X6+X1
00212  M01S00203.list80  +++|          LX4    6
00213  M01S00204.list80  +++|          SA1    A1+B1
00214  M01S00205.list80  +++|          PL     X4,LSL1     IF NOT END OF WORD
00215  M01S00206.list80  +++|          BX3    X2-X6
00216  M01S00207.list80  +++|          ZR     X3,LSL2     IF SAME CARD NAME
00217  M01S00208.list80  +++|          SA6    A2          SET NEW NAME
00218  M01S00209.list80  +++|          SX7    1R
00219  M01S00210.list80  +++|          SA7    SBUF+65
00220  M01S00211.list80  +++|          MOVE   7,MBUF+112,SBUF+66
00221  M01S00212.list80  +++| LSL2     SA1    MBUF+40     CHECK CARD TYPE
00222  M01S00213.list80  +++|          SX6    X1-1R*
00223  M01S00214.list80  +++|          SB2    X1-1R,
00224  M01S00215.list80  +++|          ZR     X6,LST2     IF COMMENT
00225  M01S00216.list80  +++|          ZR     B2,LST2     IF CONTINUATION
00226  M01S00217.list80  +++|          SA1    MBUF+50     ASSEMBLE OPCODE
00227  M01S00218.list80  +++|          MX4    1
00228  M01S00219.list80  +++|          BX6    X6-X6
00229  M01S00220.list80  +++|          SA2    LSLB
00230  M01S00221.list80  +++|          LX4    3*6
00231  M01S00222.list80  +++| LSL3     LX6    6
00232  M01S00223.list80  +++|          BX6    X6+X1
00233  M01S00224.list80  +++|          LX4    6
00234  M01S00225.list80  +++|          SA1    A1+B1
00235  M01S00226.list80  +++|          PL     X4,LSL3     IF NOT END OF WORD
00236  M01S00227.list80  +++|          BX7    X2-X6
00237  M01S00228.list80  +++|          ZR     X7,LSL5     IF *END*
00238  M01S00229.list80  +++| LSL4     SA2    A2+B1
00239  M01S00230.list80  +++|          BX7    X2-X6
00240  M01S00231.list80  +++|          ZR     X2,LST2     IF EOL
00241  M01S00232.list80  +++|          NZ     X7,LSL4     IF NOT *EQU* TYPE
00242  M01S00233.list80  +++|          MOVE   7,MBUF+29,SBUF
00243  M01S00234.list80  +++|          SX6    1R
00244  M01S00235.list80  +++|          SA6    SBUF
00245  M01S00236.list80  +++|          EQ     LST2        WRITE LINE
00246  M01S00237.list80  +++|
00247  M01S00238.list80  +++|*         PROCESS STATISTICS.
00248  M01S00239.list80  +++|
00249  M01S00240.list80  +++| LSL5     SA0    LSL6        SET STATISTICS LIST
00250  M01S00241.list80  +++|          SX6    A0+
00251  M01S00242.list80  +++|          SA6    CKSAE+1
00252  M01S00243.list80  +++|          EQ     LST2        WRITE LINE
00253  M01S00244.list80  +++|
00254  M01S00245.list80  +++| LSL6     MX4    1           CHECK FOR NEW IDENT
00255  M01S00246.list80  +++|          SA1    MBUF+50
00256  M01S00247.list80  +++|          BX6    X6-X6
00257  M01S00248.list80  +++|          LX4    3*6
00258  M01S00249.list80  +++|          SA2    LSLC
00259  M01S00250.list80  +++| LSL7     LX6    6
00260  M01S00251.list80  +++|          BX6    X1+X6
00261  M01S00252.list80  +++|          LX4    6
00262  M01S00253.list80  +++|          SA1    A1+B1
00263  M01S00254.list80  +++|          PL     X4,LSL7     IF NOT YET 7 CHARACTERS
00264  M01S00255.list80  +++|          SX7    LSL
00265  M01S00256.list80  +++|          BX6    X6-X2
00266  M01S00257.list80  +++|          NZ     X6,LSL8     IF NOT *IDENT*
00267  M01S00258.list80  +++|          SA0    X7
00268  M01S00259.list80  +++|          SA7    CKSAE+1
00269  M01S00260.list80  +++|          EQ     LSL         PROCESS IDENT
00270  M01S00261.list80  +++|
00271  M01S00262.list80  +++| LSL8     MOVE   75,MBUF+27,SBUF
00272  M01S00263.list80  +++|          MOVE   5,BLANKS,SBUF+75
00273  M01S00264.list80  +++|          EQ     LST2        WRITE LINE
00274  M01S00265.list80  +++|
00275  M01S00266.list80  +++| LSLA     CON    1H
00276  M01S00267.list80  +++|
00277  M01S00268.list80  +++| LSLB     BSS    0
00278  M01S00269.list80  +++|          CON    7REND
00279  M01S00270.list80  +++| LSLC     CON    7RIDENT
00280  M01S00271.list80  +++|          CON    7REQU
00281  M01S00272.list80  +++|          CON    7RSET
00282  M01S00273.list80  +++|          CON    7RDUP
00283  M01S00274.list80  +++|          CON    7RMAX
00284  M01S00275.list80  +++|          CON    7RMIN
00285  M01S00276.list80  +++|          CON    7RCOL
00286  M01S00277.list80  +++|          CON    7RBASE
00287  M01S00278.list80  +++|          CON    0
00288  M01S00279.list80  +++| PEJ      SPACE  4,10
00289  M01S00280.list80  +++|**        PEJ - PROCESS EJECT.
00290  M01S00281.list80  +++|*
00291  M01S00282.list80  +++|*         EXIT   (A0) = LINE PROCESSOR.
00292  M01S00283.list80  +++|*                EXIT TO *LST2*.
00293  M01S00284.list80  +++|*
00294  M01S00285.list80  +++|*         USES   A - 0, 1, 6, 7.
00295  M01S00286.list80  +++|*                X - 1, 6, 7.
00296  M01S00287.list80  +++|*
00297  M01S00288.list80  +++|*         MACROS MOVE.
00298  M01S00289.list80  +++|
00299  M01S00290.list80  +++|
00300  M01S00291.list80  +++| PEJ      SA0    CKS         SET SUBTITLE CHECK
00301  M01S00292.list80  +++|          SX6    1R1         SET EJECT
00302  M01S00293.list80  +++|          SX7    1R
00303  M01S00294.list80  +++|          SA6    SBUF
00304  M01S00295.list80  +++|          SA7    A6+1
00305  M01S00296.list80  +++|          MOVE   46,MBUF+8,A7+B1  TITLE
00306  M01S00297.list80  +++|          MOVE   21,MBUF+89,SBUF+47  DATE/TIME
00307  M01S00298.list80  +++|          MOVE   5,MBUF+115,SBUF+68  * PAGE*
00308  M01S00299.list80  +++|          MOVE   7,MBUF+121,SBUF+73  PAGE NUMBER
00309  M01S00300.list80  +++|          SA1    =1H         CLEAR CARD NAME
00310  M01S00301.list80  +++|          BX6    X1
00311  M01S00302.list80  +++|          SA6    LSLA
00312  M01S00009.ns22000 +++|          SA1    PD+1        GET *PD* CONTROL WORD
00313  M01S00010.ns22000 +++|          BX6    X6-X6       DISABLE USE OF *PD*
00314  M01S00011.ns22000 +++|          SA6    A1
00315  M01S00012.ns22000 +++|          WRITEW O,PD,X1     WRITE PRINT DENSITY FORMAT CONTROL
00316  M01S00303.list80  +++|          EQ     LST2        WRITE LINE
00317  M01S00304.list80  +++| REF      SPACE  4,10
00318  M01S00305.list80  +++|**        REF - LIST CROSS REFERENCE TABLE.
00319  M01S00306.list80  +++|*
00320  M01S00307.list80  +++|*         EXIT TO *LST2*.
00321  M01S00308.list80  +++|*
00322  M01S00309.list80  +++|*         USES   A - 1, 6.
00323  M01S00310.list80  +++|*                X - 1, 6.
00324  M01S00311.list80  +++|*                B - 2, 3, 4.
00325  M01S00312.list80  +++|*
00326  M01S00313.list80  +++|*         MACROS MOVE.
00327  M01S00314.list80  +++|
00328  M01S00315.list80  +++|
00329  M01S00316.list80  +++| REF      SA1    MBUF+67
00330  M01S00317.list80  +++|          SX6    X1-1R=
00331  M01S00318.list80  +++|          NZ     X6,REF1     IF NOT QUALIFIER LINE
00332  M01S00319.list80  +++|          MOVE   30,MBUF+50,SBUF+18
00333  M01S00320.list80  +++|          EQ     LST2        WRITE LINE
00334  M01S00321.list80  +++|
00335  M01S00322.list80  +++| REF1     MOVE   9,MBUF+7,SBUF  SYMBOL NAME
00336  M01S00323.list80  +++|          MOVE   7,MBUF+17,SBUF+9  SYMBOL VALUE
00337  M01S00324.list80  +++|          SB3    MBUF+42
00338  M01S00325.list80  +++|          SB2    8           NUMBER OF FIELDS TO MOVE
00339  M01S00326.list80  +++|          SB4    SBUF+16
00340  M01S00327.list80  +++| REF2     MOVE   8,B3,B4     MOVE FIELD  *PPP/LL F*
00341  M01S00328.list80  +++|          SB3    B3+10
00342  M01S00329.list80  +++|          SB4    B4+8
00343  M01S00330.list80  +++|          SB2    B2-1
00344  M01S00331.list80  +++|          NZ     B2,REF2     IF NOT END OF LINE
00345  M01S00332.list80  +++|          SX6    LSL         RESET LINE LIST
00346  M01S00333.list80  +++|          SA6    CKSAE+1
00347  M01S00334.list80  +++|          EQ     LST2        WRITE LINE
00348  M01S00335.list80  +++| SRN      SPACE  4,10
00349  M01S00336.list80  +++|**        SRN - SET RECORD NAME.
00350  M01S00337.list80  +++|*
00351  M01S00338.list80  +++|*         EXIT TO *LST3*.
00352  M01S00339.list80  +++|*
00353  M01S00340.list80  +++|*         USES   A - 1, 6.
00354  M01S00013.ns22000 +++|*                B - 3.
00355  M01S00341.list80  +++|*                X - 1, 4, 6.
00356  M01S00342.list80  +++|*
00357  M01S00343.list80  +++|*         MACROS MESSAGE.
00358  M01S00344.list80  +++|
00359  M01S00345.list80  +++|
00360  M01S00346.list80  +++| SRN      SA1    MBUF
00361  M01S00014.ns22000 +++|          SB3    X1-1RS
00362  M01S00015.ns22000 +++|          ZR     B3,SRN2     IF 6 LPI PRINT DENSITY IMAGE
00363  M01S00016.ns22000 +++|          EQ     B3,B1,SRN2  IF 8 LPI PRINT DENSITY IMAGE
00364  M01S00347.list80  +++|          SX6    B0
00365  M01S00348.list80  +++|          MX4    10
00366  M01S00349.list80  +++| SRN1     LX6    6
00367  M01S00350.list80  +++|          BX6    X6+X1
00368  M01S00351.list80  +++|          LX4    1
00369  M01S00352.list80  +++|          SA1    A1+B1
00370  M01S00353.list80  +++|          NG     X4,SRN1     IF NOT 7 CHARACTERS CHECKED
00371  M01S00354.list80  +++|          LX6    -6
00372  M01S00355.list80  +++|          SA6    SRNA+1
00373  M01S00356.list80  +++|          MESSAGE  A6-B1,1
00374  M01S00357.list80  +++|          EQ     LST3        READ NEXT LINE
00375  M01S00017.ns22000 +++|
00376  M01S00018.ns22000 +++| SRN2     SX6    X1
00377  M01S00019.ns22000 +++|          LX6    -6
00378  M01S00020.ns22000 +++|          SA6    PD
00379  M01S00021.ns22000 +++|          EQ     LST3        READ NEXT LINE
00380  M01S00358.list80  +++|
00381  M01S00359.list80  +++| SRNA     DATA   10HCONVERTING
00382  M01S00360.list80  +++|          DATA   0,0
00383  M01S00361.list80  +++| STA      SPACE  4,10
00384  M01S00362.list80  +++|**        STA - LIST STORAGE ALLOCATION.
00385  M01S00363.list80  +++|*
00386  M01S00364.list80  +++|*         EXIT TO *LST2*.
00387  M01S00365.list80  +++|*
00388  M01S00366.list80  +++|*         USES   A - 1.
00389  M01S00367.list80  +++|*                X - 1, 6.
00390  M01S00368.list80  +++|*
00391  M01S00369.list80  +++|*         MACROS MOVE.
00392  M01S00370.list80  +++|
00393  M01S00371.list80  +++|
00394  M01S00372.list80  +++| STA      SA1    MBUF+26     CHECK LINE TYPE
00395  M01S00373.list80  +++|          SX6    X1-1R
00396  M01S00374.list80  +++|          ZR     X6,STA1     IF NOT ALLOCATION
00397  M01S00375.list80  +++|          MOVE   76,MBUF+18,SBUF
00398  M01S00376.list80  +++|          EQ     LST2        WRITE LINE
00399  M01S00377.list80  +++|
00400  M01S00378.list80  +++| STA1     MOVE   76,MBUF+38,SBUF
00401  M01S00379.list80  +++|          EQ     LST2        WRITE LINE
00402  M01S00380.list80  +++|          SPACE  4,10
00403  M01S00381.list80  +++|**        COMMON DECKS.
00404  M01S00382.list80  +++|
00405  M01S00383.list80  +++|
00406  M01S00384.list80  +++|*CALL     COMCCIO
00407  M01S00385.list80  +++|*CALL     COMCMVE
00408  M01S00386.list80  +++|*CALL     COMCRDS
00409  M01S00387.list80  +++|*CALL     COMCRDW
00410  M01S00388.list80  +++|*CALL     COMCSYS
00411  M01S00389.list80  +++|*CALL     COMCWTS
00412  M01S00390.list80  +++|*CALL     COMCWTW
00413  M01S00391.list80  +++| BUFFERS  SPACE  4,10
00414  M01S00392.list80  +++|**        BUFFERS.
00415  M01S00393.list80  +++|
00416  M01S00394.list80  +++|
00417  M01S00395.list80  +++| ENDS     BSS    0
00418  M01S00396.list80  +++|          USE    //
00419  M01S00397.list80  +++| IBUF     BSS    IBUFL
00420  M01S00398.list80  +++| OBUF     BSS    OBUFL
00421  M01S00399.list80  +++| END      BSS    0
00422  M01S00400.list80  +++| RFL=     BSS    0
00423  M01S00401.list80  +++|          USE    *
00424  M01S00402.list80  +++| ARG      SPACE  4,10
00425  M01S00403.list80  +++|**        ARG - PROCESS ARGUMENTS.
00426  M01S00404.list80  +++|*
00427  M01S00405.list80  +++|*         USES   A - 1, 2, 6, 7.
00428  M01S00406.list80  +++|*                X - 0, 1, 2, 3, 4, 6, 7.
00429  M01S00407.list80  +++|*                B - 2, 7.
00430  M01S00408.list80  +++|*
Line S00409 Modification History
M01 (Added by) list80
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00431  M02S00409.ns22000 ---|*         MACROS ABORT, MESSAGE.
00432  M01S00022.ns22000 +++|*         CALLS  IPP.
00433  M01S00023.ns22000 +++|*
00434  M01S00024.ns22000 +++|*         MACROS ABORT, MESSAGE, REWIND.
00435  M01S00410.list80  +++|
00436  M01S00411.list80  +++|
00437  M01S00412.list80  +++|          ORG    IBUF
00438  M01S00413.list80  +++|          SEG
00439  M01S00414.list80  +++|
Line S00415 Modification History
M01 (Added by) list80
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00440  M02S00415.ns22000 ---| ARG5     NZ     X0,ARGX     IF NO REWIND
00441  M01S00025.ns22000 +++| ARG5     NZ     X0,ARG6     IF NO REWIND
00442  M01S00416.list80  +++|          REWIND I
00443  M01S00026.ns22000 +++| ARG6     RJ     IPP         INITIALIZE PAGE PARAMETERS
00444  M01S00417.list80  +++|
00445  M01S00418.list80  +++| ARG      SUBR               ENTRY/EXIT
00446  M01S00419.list80  +++|          SX7    A0-END      CHECK FL
00447  M01S00420.list80  +++|          PL     X7,ARG1     IF ENOUGH FIELD LENGTH
00448  M01S00421.list80  +++|          MESSAGE  ARGA      * FL TOO SHORT FOR LIST, NEED XXXXB.*
00449  M01S00422.list80  +++|          ABORT              ABORT
00450  M01S00423.list80  +++|
00451  M01S00424.list80  +++| ARG1     SB2    IBUF        SPLIT FL BETWEEN BUFFERS
00452  M01S00425.list80  +++|          BX0    X0-X0       CLEAR NO REWIND
00453  M01S00426.list80  +++|          SX1    A0-B2
00454  M01S00427.list80  +++|          AX1    1
00455  M01S00428.list80  +++|          SX6    X1+B2       LIMIT FOR I = FIRST FOR O
00456  M01S00429.list80  +++|          SX7    A0+         LIMIT FOR O = FL
00457  M01S00430.list80  +++|          SA6    I+4
00458  M01S00431.list80  +++|          SA7    O+4
00459  M01S00432.list80  +++|          SA6    A7-B1
00460  M01S00433.list80  +++|          SA6    A6-B1
00461  M01S00027.ns22000 +++|          SX7    B1
00462  M01S00028.ns22000 +++|          LX7    18
00463  M01S00029.ns22000 +++|          BX6    X6+X7       SET FET SIZE TO 1+MINIMUM
00464  M01S00434.list80  +++|          SA6    A6-B1
00465  M01S00435.list80  +++|          SX7    B2          (0) = POINTER TO I BUFFER
00466  M01S00436.list80  +++|          SA7    B0
00467  M01S00437.list80  +++|          SA1    ACTR        CHECK ARGUMENT COUNT
00468  M01S00438.list80  +++|          MX4    42
00469  M01S00439.list80  +++|
00470  M01S00440.list80  +++|*         PROCESS *IFILE* NAME.
00471  M01S00441.list80  +++|
00472  M01S00442.list80  +++|          SB7    X1
00473  M01S00443.list80  +++|          ZR     B7,ARG5     IF NO ARGUMENTS
00474  M01S00444.list80  +++|          SA1    B1+B1       SET *IFILE* NAME
00475  M01S00445.list80  +++|          SA2    I
00476  M01S00446.list80  +++|          BX7    X4*X1
00477  M01S00447.list80  +++|          SX3    X2
00478  M01S00448.list80  +++|          ZR     X7,ARG2     IF BLANK ARGUMENT
00479  M01S00449.list80  +++|          IX7    X7+X3
00480  M01S00450.list80  +++|          SA7    A2
00481  M01S00451.list80  +++|
00482  M01S00452.list80  +++|*         PROCESS *OFILE* NAME.
00483  M01S00453.list80  +++|
00484  M01S00454.list80  +++| ARG2     SB7    B7-B1
00485  M01S00455.list80  +++|          ZR     B7,ARG4     IF 1 ARGUMENT
00486  M01S00456.list80  +++|          SA1    A1+B1       SET *OFILE* NAME
00487  M01S00457.list80  +++|          SA2    O
00488  M01S00458.list80  +++|          BX7    X4*X1
00489  M01S00459.list80  +++|          ZR     X7,ARG3     IF BLANK ARGUMENT
00490  M01S00460.list80  +++|          IX7    X7+X3
00491  M01S00461.list80  +++|          SA7    A2
00492  M01S00462.list80  +++|
00493  M01S00463.list80  +++|*         CHECK FOR NO REWIND.
00494  M01S00464.list80  +++|
00495  M01S00465.list80  +++| ARG3     SX0    B7-B1
00496  M01S00466.list80  +++|
00497  M01S00467.list80  +++|*         CHECK FILE NAMES.
00498  M01S00468.list80  +++|
00499  M01S00469.list80  +++| ARG4     SA1    I           CHECK FILE NAMES
00500  M01S00470.list80  +++|          SA2    O
00501  M01S00471.list80  +++|          BX7    X1-X2
00502  M01S00472.list80  +++|          AX7    18
00503  M01S00473.list80  +++|          NZ     X7,ARG5     IF *IFILE* NE. *OFILE*
00504  M01S00474.list80  +++|          MESSAGE  ARGB      * FILE NAME CONFLICT.*
00505  M01S00475.list80  +++|          ABORT              ABORT
00506  M01S00476.list80  +++|
00507  M01S00477.list80  +++| .1       OCTMIC ENDS+END-IBUF+20
00508  M01S00478.list80  +++| ARGA     DATA   C* FL TOO SHORT FOR LIST, NEED ".1"B.*
00509  M01S00479.list80  +++|
00510  M01S00480.list80  +++| ARGB     DATA   C* FILE NAME CONFLICT.*
Line S00481 Modification History
M01 (Added by) list80
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00481.ns22000 ---|          SPACE  4
00512  M01S00030.ns22000 +++|IPP       SPACE  4,15
00513  M01S00031.ns22000 +++|**        IPP - INITIALIZE PAGE PARAMETERS.
00514  M01S00032.ns22000 +++|*
00515  M01S00033.ns22000 +++|*         ENTRY  NONE.
00516  M01S00034.ns22000 +++|*
00517  M01S00035.ns22000 +++|*         EXIT   PRINT DENSITY SET UP IF NOT TTY.
00518  M01S00036.ns22000 +++|*
00519  M01S00037.ns22000 +++|*         USES   A - 6.
00520  M01S00038.ns22000 +++|*                B - NONE.
00521  M01S00039.ns22000 +++|*                X - 2, 6.
00522  M01S00040.ns22000 +++|*
00523  M01S00041.ns22000 +++|*         CALLS  STF.
00524  M01S00042.ns22000 +++|*
00525  M01S00043.ns22000 +++|*         MACROS GETPP.
00526  M01S00044.ns22000 +++|
00527  M01S00045.ns22000 +++|
00528  M01S00046.ns22000 +++| IPP      SUBR               ENTRY/EXIT
00529  M01S00047.ns22000 +++|          SX2    O           FET ADDRESS OF PRINT FILE
00530  M01S00048.ns22000 +++|          RJ     STF
00531  M01S00049.ns22000 +++|          ZR     X6,IPPX     IF TTY PRINT FILE
00532  M01S00050.ns22000 +++|          GETPP  IPPA,PL,PD
00533  M01S00051.ns22000 +++|          SX6    B1+
00534  M01S00052.ns22000 +++|          SA6    PD+1        SET CONTROL WORD TO USE *PD*
00535  M01S00053.ns22000 +++|          EQ     IPPX        RETURN
00536  M01S00054.ns22000 +++|
00537  M01S00055.ns22000 +++| IPPA     BSSZ   2           GETPAGE RESPONSE BLOCK
00538  M01S00056.ns22000 +++|          SPACE  4,5
00539  M01S00057.ns22000 +++|*         COMMON DECKS FOR PRESET.
00540  M01S00058.ns22000 +++|
00541  M01S00059.ns22000 +++|*CALL     COMCCPM
00542  M01S00060.ns22000 +++|*CALL     COMCSTF
00543  M01S00061.ns22000 +++|
00544  M01S00482.list80  +++|          END
cdc/nos2.source/opl.opl871/deck/list80.txt ยท Last modified: by 127.0.0.1