User Tools

Site Tools


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

Deck LPT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.lpt     +++|          IDENT  LPT,FET,LPT
00002  M00S00002.lpt     +++|          ABS
00003  M00S00003.lpt     +++|          ENTRY  LPT
00004  M00S00004.lpt     +++|          ENTRY  RFL=
00005  M00S00005.lpt     +++|*COMMENT  LPT - LINE PRINTER TEST.
00006  M00S00006.lpt     +++|          SYSCOM B1          DEFINE (B1) = 1
00007  M00S00007.lpt     +++|          TITLE  LPT - LINE PRINTER TEST.
00008  M00S00008.lpt     +++|
00009  M00S00009.lpt     +++| OBUFL    EQU    2001B
00010  M00S00010.lpt     +++|          ORG    103B
00011  M00S00011.lpt     +++| FET      BSS    0
00012  M00S00012.lpt     +++| O        BSS    0
00013  M00S00013.lpt     +++| OUTPUT   FILEC  OBUF,OBUFL
00014  M00S00014.lpt     +++|
00015  M00S00015.lpt     +++| T1       CON    0           TEMPORARY STORAGE
00016  M00S00016.lpt     +++| TS       CON    0           TEST SECTION INDEX
00017  M00S00017.lpt     +++| LPT      TITLE  MAIN PROGRAM.
00018  M00S00018.lpt     +++|
00019  M00S00019.lpt     +++|
00020  M00S00020.lpt     +++| LPT      SB1    1
00021  M00S00021.lpt     +++|          REWIND O,R
00022  M00S00022.lpt     +++|          BX6    X6-X6       PRESET COLON FOR 64 CHARACTER SET
00023  M00S00023.lpt     +++|          SA1    CSMR        CHECK SYSTEM CHARACTER SET MODE
00024  M00S00024.lpt     +++|          MI     X1,LPT0     IF 64 CHARACTER SET
00025  M00S00025.lpt     +++|          SX6    63B
00026  M00S00026.lpt     +++| LPT0     SA6    GCSB        SET COLON FOR 63 CHARACTER SET SYSTEM
00027  M00S00027.lpt     +++|
00028  M00S00028.lpt     +++| LPT1     SA1    TS
00029  M00S00029.lpt     +++|          SA2    LPTA+X1
00030  M00S00030.lpt     +++|          SX6    X1+B1
00031  M00S00031.lpt     +++|          SA6    A1
00032  M00S00032.lpt     +++|          ZR     X2,LPT2
00033  M00S00033.lpt     +++|          SB2    X2
00034  M00S00034.lpt     +++|          JP     B2
00035  M00S00035.lpt     +++| LPT2     WRITER O,R
00036  M00S00036.lpt     +++|          ENDRUN
00037  M00S00037.lpt     +++|
00038  M00S00038.lpt     +++| LPTA     BSS    0
00039  M00S00039.lpt     +++|          CON    CBS
00040  M00S00040.lpt     +++|          CON    INT
00041  M00S00041.lpt     +++|          CON    SPC
00042  M00S00042.lpt     +++|          CON    SCP
00043  M00S00043.lpt     +++|          CON    OEC
00044  M00S00044.lpt     +++|          CON    MRP
00045  M00S00045.lpt     +++|          CON    VAR
00046  M00S00046.lpt     +++|          CON    MEM
00047  M00S00047.lpt     +++|          CON    0
00048  M00S00048.lpt     +++| CBS      SPACE  4
00049  M00S00049.lpt     +++|**        CBS - CHECK BUSY STATUS.
00050  M00S00050.lpt     +++|
00051  M00S00051.lpt     +++|
00052  M00S00052.lpt     +++| CBS      SX0    50
00053  M00S00053.lpt     +++| CBS1     WRITEC O,(=C* CHECKING BUSY STATUS*)
00054  M00S00054.lpt     +++|          SX0    X0-1
00055  M00S00055.lpt     +++|          NZ     X0,CBS1
00056  M00S00056.lpt     +++|          WRITEC O,(=C*2 *)
00057  M00S00057.lpt     +++|          EQ     LPT1
00058  M00S00058.lpt     +++| INT      SPACE  4
00059  M00S00059.lpt     +++|**        INT - CHECK INTERRUPTS.
00060  M00S00060.lpt     +++|
00061  M00S00061.lpt     +++|
00062  M00S00062.lpt     +++| INT      SX0    50
00063  M00S00063.lpt     +++| INT1     WRITEC O,(=C* CHECKING READY NOT BUSY INTERRUPT*)
00064  M00S00064.lpt     +++|          SX0    X0-1
00065  M00S00065.lpt     +++|          NZ     X0,INT1
00066  M00S00066.lpt     +++|          WRITEC O,(=C*1CHECKED TOP END OF OPERATION INTERRUPT*)
00067  M00S00067.lpt     +++|          WRITEC O,(=C*2CHECKED LAST LINE OF FORM END OF OPERATION INTER
00068  M00S00068.lpt     +++|,RUPT*)
00069  M00S00069.lpt     +++|          SX0    50
00070  M00S00070.lpt     +++| INT2     WRITEC O,(=C* CHECKING END OF OPERATION INTERRUPT*)
00071  M00S00071.lpt     +++|          SX0    X0-1
00072  M00S00072.lpt     +++|          NZ     X0,INT2
00073  M00S00073.lpt     +++|          WRITEC O,(=C*2 *)
00074  M00S00074.lpt     +++|          EQ     LPT1
00075  M00S00075.lpt     +++| FMC      SPACE  4
00076  M00S00076.lpt     +++|**        FMC - FORMAT CHANNELS.
00077  M00S00077.lpt     +++|
00078  M00S00078.lpt     +++|
00079  M00S00079.lpt     +++| MEM      SPACE  4
00080  M00S00080.lpt     +++|**        MEM - MEMORY TEST.
00081  M00S00081.lpt     +++|
00082  M00S00082.lpt     +++|
00083  M00S00083.lpt     +++| MEM      SX2    =C*MEMORY TEST*
00084  M00S00084.lpt     +++|          RJ     STL
00085  M00S00085.lpt     +++|          SX0    136
00086  M00S00086.lpt     +++|          SA5    MEMA
00087  M00S00087.lpt     +++| MEM1     BX1    X5
00088  M00S00088.lpt     +++|          RJ     GDL
00089  M00S00089.lpt     +++|          WRITEW O,BUF,14
00090  M00S00090.lpt     +++|          LX5    6
00091  M00S00091.lpt     +++|          SX0    X0-1
00092  M00S00092.lpt     +++|          NZ     X0,MEM1
00093  M00S00093.lpt     +++|          EQ     LPT1
00094  M00S00094.lpt     +++|
00095  M00S00095.lpt     +++| MEMA     DATA   2A0
00096  M00S00096.lpt     +++| MRP      SPACE  4
00097  M00S00097.lpt     +++|**        MRP - MAXIMUM RATE PRINTOUT.
00098  M00S00098.lpt     +++|
00099  M00S00099.lpt     +++|
00100  M00S00100.lpt     +++| MRP      SX2    =C*MAX RATE PRINTOUT*
00101  M00S00101.lpt     +++|          RJ     STL
00102  M00S00102.lpt     +++|          SX0    50
00103  M00S00103.lpt     +++|          SA5    MRPA
00104  M00S00104.lpt     +++| MRP1     BX1    X5
00105  M00S00105.lpt     +++|          RJ     GDL
00106  M00S00106.lpt     +++|          WRITEW O,BUF,14
00107  M00S00107.lpt     +++|          SX0    X0-1
00108  M00S00108.lpt     +++|          ZR     X0,LPT1
00109  M00S00109.lpt     +++|          SA5    A5+B1
00110  M00S00110.lpt     +++|          NZ     X5,MRP1
00111  M00S00111.lpt     +++|          SA5    MRPA
00112  M00S00112.lpt     +++|          EQ     MRP1
00113  M00S00113.lpt     +++|
00114  M00S00114.lpt     +++| MRPA     BSS    0
00115  M00S00115.lpt     +++|          DATA   10H0000000000
00116  M00S00116.lpt     +++|          DATA   10H,,,,,,,,,,
00117  M00S00117.lpt     +++|          DATA   10HOOOOOOOOOO
00118  M00S00118.lpt     +++|          DATA   10H4444444444
00119  M00S00119.lpt     +++|          DATA   10H;;;;;
00120  M00S00120.lpt     +++|          DATA   10HSSSSSSSSSS
00121  M00S00121.lpt     +++|          DATA   10H8888888888
00122  M00S00122.lpt     +++|          DATA   65656565656565656565B
00123  M00S00123.lpt     +++|          DATA   10HWWWWWWWWWW
00124  M00S00124.lpt     +++|          DATA   10HCCCCCCCCCC
00125  M00S00125.lpt     +++|          DATA   10H;;;;;
00126  M00S00126.lpt     +++|          DATA   10H..........
00127  M00S00127.lpt     +++|          DATA   10HGGGGGGGGGG
00128  M00S00128.lpt     +++|          DATA   10H<<<<<<<<<<
00129  M00S00129.lpt     +++|          DATA   10H((((((((((
00130  M00S00130.lpt     +++|          DATA   10HKKKKKKKKKK
00131  M00S00131.lpt     +++|          DATA   0
00132  M00S00132.lpt     +++| OEC      SPACE  4
00133  M00S00133.lpt     +++|**        OEC - ODD/EVEN COLUMNS.
00134  M00S00134.lpt     +++|
00135  M00S00135.lpt     +++|
00136  M00S00136.lpt     +++| OEC      SX6    B0
00137  M00S00137.lpt     +++|          SA6    OECA
00138  M00S00138.lpt     +++| OEC1     SA1    OECA
00139  M00S00139.lpt     +++|          SA5    OECB+X1
00140  M00S00140.lpt     +++|          SX6    X1+B1
00141  M00S00141.lpt     +++|          SA6    A1
00142  M00S00142.lpt     +++|          ZR     X5,LPT1
00143  M00S00143.lpt     +++|          SX2    =C*ODD COLUMNS*
00144  M00S00144.lpt     +++|          RJ     STL
00145  M00S00145.lpt     +++|          SX0    50
00146  M00S00146.lpt     +++|          SA0    B1
00147  M00S00147.lpt     +++| OEC2     BX1    X5          LIST DATA LINE
00148  M00S00148.lpt     +++|          RJ     GDL
00149  M00S00149.lpt     +++|          WRITEW O,BUF,14
00150  M00S00150.lpt     +++|          SX0    X0-1
00151  M00S00151.lpt     +++|          NZ     X0,OEC2
00152  M00S00152.lpt     +++|          SB2    A0
00153  M00S00153.lpt     +++|          LX5    -6
00154  M00S00154.lpt     +++|          ZR     B2,OEC1
00155  M00S00155.lpt     +++|          SA0    A0-B1
00156  M00S00156.lpt     +++|          SX0    50
00157  M00S00157.lpt     +++|          SX2    =C*EVEN COLUMNS*
00158  M00S00158.lpt     +++|          RJ     STL
00159  M00S00159.lpt     +++|          EQ     OEC2
00160  M00S00160.lpt     +++|
00161  M00S00161.lpt     +++| OECA     CON    0
00162  M00S00162.lpt     +++|
00163  M00S00163.lpt     +++| OECB     BSS    0
Line S00164 Modification History
M01 (Removed by) lpt1
Seq #  *Modification Id* Act 
----------------------------+
00164  M01S00164.lpt1    ---|          DATA   10H- - - - -
00165  M01S00165.lpt1    ---|          DATA   10H0 0 0 0 0
00166  M01S00166.lpt1    ---|          DATA   10HM M M M M
Line S00001 Modification History
M01 (Added by) lpt1
Seq #  *Modification Id* Act 
----------------------------+
00167  M01S00001.lpt1    +++|          DATA   10H - - - - -
00168  M01S00002.lpt1    +++|          DATA   10H 0 0 0 0 0
00169  M01S00003.lpt1    +++|          DATA   10H M M M M M
00170  M00S00167.lpt     +++|          CON    0
00171  M00S00168.lpt     +++| SCP      SPACE  4
00172  M00S00169.lpt     +++|**        SCP - SHIFTING CHARACTER PATTERN.
00173  M00S00170.lpt     +++|
00174  M00S00171.lpt     +++|
00175  M00S00172.lpt     +++| SCP      SX2    =C*INT. BCD CONVERTED*
00176  M00S00173.lpt     +++|          RJ     STL
00177  M00S00174.lpt     +++|          SX0    100
00178  M00S00175.lpt     +++|          SA0    B0
00179  M00S00176.lpt     +++| SCP1     SB2    A0
00180  M00S00177.lpt     +++|          MX3    6*6
00181  M00S00178.lpt     +++|          SB3    14
00182  M00S00179.lpt     +++|          SA0    A0+B1
00183  M00S00180.lpt     +++|          SB4    A0-100B
00184  M00S00181.lpt     +++|          NG     B4,SCP2
00185  M00S00182.lpt     +++|          SA0    B0
00186  M00S00183.lpt     +++| SCP2     RJ     GCS
00187  M00S00184.lpt     +++|          WRITEW O,BUF,14
00188  M00S00185.lpt     +++|          SX0    X0-1
00189  M00S00186.lpt     +++|          NZ     X0,SCP1
00190  M00S00187.lpt     +++|          SX2    =C*NEGATE BCD CONVERSION*
00191  M00S00188.lpt     +++|          RJ     STL
00192  M00S00189.lpt     +++|          SX0    50
00193  M00S00190.lpt     +++|          SA0    101B
00194  M00S00191.lpt     +++| SCP3     SA0    A0-B1
00195  M00S00192.lpt     +++|          MX3    6*6
00196  M00S00193.lpt     +++|          SB3    14
00197  M00S00194.lpt     +++|          SB2    A0
00198  M00S00195.lpt     +++|          RJ     GCS
00199  M00S00196.lpt     +++|          WRITEW O,BUF,14
00200  M00S00197.lpt     +++|          SX0    X0-1
00201  M00S00198.lpt     +++|          NZ     X0,SCP3
00202  M00S00199.lpt     +++|          EQ     LPT1
00203  M00S00200.lpt     +++| SPC      SPACE  4
00204  M00S00201.lpt     +++|**        SPC - SPACE CHECK.
00205  M00S00202.lpt     +++|
00206  M00S00203.lpt     +++|
00207  M00S00204.lpt     +++| SPC      SX0    25
00208  M00S00205.lpt     +++| SPC1     WRITEC O,(=C* SINGLE SPACE*)
00209  M00S00206.lpt     +++|          SX0    X0-1
00210  M00S00207.lpt     +++|          NZ     X0,SPC1
00211  M00S00208.lpt     +++|          WRITEC O,(=C*2LAST LINE OF FORM*)
00212  M00S00209.lpt     +++|          WRITEC O,(=C* TOP OF FORM*)
00213  M00S00210.lpt     +++|          SX0    24
00214  M00S00211.lpt     +++|          WRITEC O,(=C* DOUBLE SPACE*)
00215  M00S00212.lpt     +++| SPC2     WRITEC O,(=C*0DOUBLE SPACE*)
00216  M00S00213.lpt     +++|          SX0    X0-1
00217  M00S00214.lpt     +++|          NZ     X0,SPC2
00218  M00S00215.lpt     +++|          WRITEC O,(=C*2LAST LINE OF FORM*)
00219  M00S00216.lpt     +++|          EQ     LPT1
00220  M00S00217.lpt     +++| VAR      SPACE  4
00221  M00S00218.lpt     +++|**        VAR - VARIABLE BUFFER.
00222  M00S00219.lpt     +++|
00223  M00S00220.lpt     +++|
00224  M00S00221.lpt     +++| VAR      WRITEC O,(=C*Q *)
00225  M00S00222.lpt     +++|          SX6    B0
00226  M00S00223.lpt     +++|          SA6    VARA
00227  M00S00224.lpt     +++|          SX2    =C*VARIABLE BUFFER*
00228  M00S00225.lpt     +++|          RJ     STL
00229  M00S00226.lpt     +++|          SX0    136/2
00230  M00S00227.lpt     +++|          MX5    12
00231  M00S00228.lpt     +++|          SA0    B1
00232  M00S00229.lpt     +++| VAR1     SA4    VARA
00233  M00S00230.lpt     +++|          SB3    A0
00234  M00S00231.lpt     +++|          BX3    X5
00235  M00S00232.lpt     +++|          SB2    X4
00236  M00S00233.lpt     +++|          RJ     GCS
00237  M00S00234.lpt     +++|          MX6    0
00238  M00S00235.lpt     +++|          SA6    A6+B1
00239  M00S00236.lpt     +++|          ZR     X4,VAR2
00240  M00S00237.lpt     +++|          WRITEC O,VARB
00241  M00S00238.lpt     +++| VAR2     WRITEC O,BUF
00242  M00S00239.lpt     +++|          SX0    X0-1
00243  M00S00240.lpt     +++|          ZR     X0,VAR3
00244  M00S00241.lpt     +++|          BX1    X5
00245  M00S00242.lpt     +++|          AX5    12
00246  M00S00243.lpt     +++|          NZ     X1,VAR1
00247  M00S00244.lpt     +++|          MX5    12
00248  M00S00245.lpt     +++|          SA0    A0+B1
00249  M00S00246.lpt     +++|          EQ     VAR1
00250  M00S00247.lpt     +++| VAR3     SA1    VARA
00251  M00S00248.lpt     +++|          NZ     X1,LPT1
00252  M00S00249.lpt     +++|          MOVE   14,BUF,VARB
00253  M00S00250.lpt     +++|          SX6    8
00254  M00S00251.lpt     +++|          SA6    VARA
00255  M00S00252.lpt     +++|          SX0    136/2
00256  M00S00253.lpt     +++|          MX5    12
00257  M00S00254.lpt     +++|          SA0    B1
00258  M00S00255.lpt     +++|          EQ     VAR1
00259  M00S00256.lpt     +++|
00260  M00S00257.lpt     +++| VARA     CON    0
00261  M00S00258.lpt     +++| VARB     BSS    14
00262  M00S00259.lpt     +++| GCS      TITLE  SUBROUTINES.
00263  M00S00260.lpt     +++|**        GCS - GENERATE CHARACTER SEQUENCE.
00264  M00S00261.lpt     +++|*         ENTRY  (B2) = STARTING CHARACTER NUMBER.
00265  M00S00262.lpt     +++|*                (X3) = FINAL WORD MASK.
00266  M00S00263.lpt     +++|*                (B3) = WORD COUNT.
00267  M00S00264.lpt     +++|
00268  M00S00265.lpt     +++|
00269  M00S00266.lpt     +++| GCS      PS                 ENTRY/EXIT
00270  M00S00267.lpt     +++|          SA1    GCSA-1+B2
00271  M00S00268.lpt     +++|          SB2    B0
00272  M00S00269.lpt     +++|          BX6    X6-X6
00273  M00S00270.lpt     +++|          MX2    1
00274  M00S00271.lpt     +++|          SX1    1R
00275  M00S00272.lpt     +++| GCS1     LX6    6
00276  M00S00273.lpt     +++|          BX6    X6+X1
00277  M00S00274.lpt     +++|          SA1    A1+B1
00278  M00S00275.lpt     +++|          LX2    6
00279  M00S00276.lpt     +++|          PL     X1,GCS2
00280  M00S00277.lpt     +++|          SA1    GCSA
00281  M00S00278.lpt     +++| GCS2     PL     X2,GCS1
00282  M00S00279.lpt     +++|          SA6    BUF+B2
00283  M00S00280.lpt     +++|          SB2    B2+B1
00284  M00S00281.lpt     +++|          BX6    X6-X6
00285  M00S00282.lpt     +++|          NE     B2,B3,GCS1
00286  M00S00283.lpt     +++|          SA1    A6
00287  M00S00284.lpt     +++|          BX6    X3*X1
00288  M00S00285.lpt     +++|          SA6    A6
00289  M00S00286.lpt     +++|          EQ     GCS
00290  M00S00287.lpt     +++|
00291  M00S00288.lpt     +++| GCSA     BSS    0
00292  M00S00289.lpt     +++|          CON    1R1
00293  M00S00290.lpt     +++|          CON    1R2
00294  M00S00291.lpt     +++|          CON    1R3
00295  M00S00292.lpt     +++|          CON    1R4
00296  M00S00293.lpt     +++|          CON    1R5
00297  M00S00294.lpt     +++|          CON    1R6
00298  M00S00295.lpt     +++|          CON    1R7
00299  M00S00296.lpt     +++|          CON    1R8
00300  M00S00297.lpt     +++|          CON    1R9
00301  M00S00298.lpt     +++|          CON    1RA
00302  M00S00299.lpt     +++|          CON    1RB
00303  M00S00300.lpt     +++|          CON    1RC
00304  M00S00301.lpt     +++|          CON    1RD
00305  M00S00302.lpt     +++|          CON    1RE
00306  M00S00303.lpt     +++|          CON    1RF
00307  M00S00304.lpt     +++|          CON    1RG
00308  M00S00305.lpt     +++|          CON    1RH
00309  M00S00306.lpt     +++|          CON    1RI
00310  M00S00307.lpt     +++|          CON    1RJ
00311  M00S00308.lpt     +++|          CON    1RK
00312  M00S00309.lpt     +++|          CON    1RL
00313  M00S00310.lpt     +++|          CON    1RM
00314  M00S00311.lpt     +++|          CON    1RN
00315  M00S00312.lpt     +++|          CON    1RO
00316  M00S00313.lpt     +++|          CON    1RP
00317  M00S00314.lpt     +++|          CON    1RQ
00318  M00S00315.lpt     +++|          CON    1RR
00319  M00S00316.lpt     +++|          CON    1RS
00320  M00S00317.lpt     +++|          CON    1RT
00321  M00S00318.lpt     +++|          CON    1RU
00322  M00S00319.lpt     +++|          CON    1RV
00323  M00S00320.lpt     +++|          CON    1RW
00324  M00S00321.lpt     +++|          CON    1RX
00325  M00S00322.lpt     +++|          CON    1RY
00326  M00S00323.lpt     +++|          CON    1RZ
00327  M00S00324.lpt     +++|          CON    1R.
00328  M00S00325.lpt     +++|          CON    1R-
00329  M00S00326.lpt     +++|          CON    1R+
00330  M00S00327.lpt     +++|          CON    1R=
00331  M00S00328.lpt     +++|          CON    1R(
00332  M00S00329.lpt     +++|          CON    1R)
00333  M00S00330.lpt     +++|          CON    1R/
00334  M00S00331.lpt     +++|          CON    1R*
00335  M00S00332.lpt     +++|          CON    1R,
00336  M00S00333.lpt     +++|          CON    64B
00337  M00S00334.lpt     +++|          CON    1R$
00338  M00S00335.lpt     +++| GCSB     CON    00          COLON
00339  M00S00336.lpt     +++|          CON    1R
00340  M00S00337.lpt     +++|          CON    1R
00341  M00S00338.lpt     +++|          CON    1R[
00342  M00S00339.lpt     +++|          CON    1R]
00343  M00S00340.lpt     +++|          CON    65B
00344  M00S00341.lpt     +++|          CON    1R#
00345  M00S00342.lpt     +++|          CON    1R&
00346  M00S00343.lpt     +++|          CON    1R!
00347  M00S00344.lpt     +++|          CON    1R
00348  M00S00345.lpt     +++|          CON    1R'
00349  M00S00346.lpt     +++|          CON    1R?
00350  M00S00347.lpt     +++|          CON    1R>
00351  M00S00348.lpt     +++|          CON    1R<
00352  M00S00349.lpt     +++|          CON    1R\
00353  M00S00350.lpt     +++|          CON    1R;
00354  M00S00351.lpt     +++|          CON    1R
00355  M00S00352.lpt     +++|          CON    1R0
00356  M00S00353.lpt     +++|
00357  M00S00354.lpt     +++|          CON    -1
00358  M00S00355.lpt     +++| GDL      SPACE  4
00359  M00S00356.lpt     +++|**        GDL - GENERATE DATA LINE.
00360  M00S00357.lpt     +++|*         ENTRY  (X1) = DATA WORD.
00361  M00S00358.lpt     +++|*         USES   X - 2, 6.
00362  M00S00359.lpt     +++|*                B - 2, 3.
00363  M00S00360.lpt     +++|*                A - 6.
00364  M00S00361.lpt     +++|
00365  M00S00362.lpt     +++|
00366  M00S00363.lpt     +++| GDL      PS                 ENTRY/EXIT
00367  M00S00364.lpt     +++|          MX2    -54
00368  M00S00365.lpt     +++|          SB2    B1
00369  M00S00366.lpt     +++|          SB3    13
00370  M00S00367.lpt     +++|          SX3    1R          SET BLANK IN COLUMN 1
00371  M00S00368.lpt     +++|          BX2    -X2*X1
00372  M00S00369.lpt     +++|          LX3    -6
00373  M00S00370.lpt     +++|          BX6    X3+X2
00374  M00S00371.lpt     +++|          BX2    X2-X2
00375  M00S00372.lpt     +++|          SA6    BUF
00376  M00S00373.lpt     +++| GDL2     BX6    -X2*X1
00377  M00S00374.lpt     +++|          SA6    BUF+B2
00378  M00S00375.lpt     +++|          SB2    B2+B1
00379  M00S00376.lpt     +++|          NE     B2,B3,GDL2
00380  M00S00377.lpt     +++|          MX2    6*6
00381  M00S00378.lpt     +++|          BX6    X2*X1
00382  M00S00379.lpt     +++|          SA6    A6+B1
00383  M00S00380.lpt     +++|          EQ     GDL
00384  M00S00381.lpt     +++| STL      SPACE  4
00385  M00S00382.lpt     +++|**        STL - SET TITLE LINE.
00386  M00S00383.lpt     +++|*         ENTRY  (X2) = TITLE.
00387  M00S00384.lpt     +++|*         EXIT   NONE.
00388  M00S00385.lpt     +++|*         CALLS  GDL.
00389  M00S00386.lpt     +++|
00390  M00S00387.lpt     +++|
00391  M00S00388.lpt     +++| STL      PS                 ENTRY/EXIT
00392  M00S00389.lpt     +++|          MOVE   3,X2,STLB
00393  M00S00390.lpt     +++|          WRITEC O,STLA
00394  M00S00391.lpt     +++|          WRITEC O,(=C*  *)
Line S00392 Modification History
M01 (Removed by) lpt1
Seq #  *Modification Id* Act 
----------------------------+
00395  M01S00392.lpt1    ---|          SB6    B0
00396  M01S00393.lpt1    ---|          SB7    13
00397  M01S00394.lpt1    ---| STL1     SX1    B6+B1
Line S00004 Modification History
M01 (Added by) lpt1
Seq #  *Modification Id* Act 
----------------------------+
00398  M01S00004.lpt1    +++|          SA1    =10H
00399  M01S00005.lpt1    +++|          BX6    X1          FILL BUFFER WITH BLANKS
00400  M01S00006.lpt1    +++|          SB6    B1
00401  M01S00007.lpt1    +++|          SB7    14
00402  M01S00008.lpt1    +++|          SA6    BUF
00403  M01S00009.lpt1    +++| STL1     SX1    B6
00404  M00S00395.lpt     +++|          RJ     CDD
Line S00010 Modification History
M01 (Added by) lpt1
Seq #  *Modification Id* Act 
----------------------------+
00405  M01S00010.lpt1    +++|          BX6    X4          CONVERTED LEFT JUSTIFIED NUMBER
00406  M00S00396.lpt     +++|          SA6    BUF+B6
00407  M00S00397.lpt     +++|          SB6    B6+B1
Line S00398 Modification History
M01 (Removed by) lpt1
Seq #  *Modification Id* Act 
----------------------------+
00408  M01S00398.lpt1    ---|          SX1    X1+B1
00409  M00S00399.lpt     +++|          NE     B6,B7,STL1
Line S00011 Modification History
M01 (Added by) lpt1
Seq #  *Modification Id* Act 
----------------------------+
00410  M01S00011.lpt1    +++|          MX1    36          INSURE END-OF-LINE
00411  M01S00012.lpt1    +++|          BX6    X6*X1
00412  M01S00013.lpt1    +++|          SA6    A6
00413  M00S00400.lpt     +++|          WRITEW O,BUF,B7
Line S00401 Modification History
M01 (Removed by) lpt1
Seq #  *Modification Id* Act 
----------------------------+
00414  M01S00401.lpt1    ---|          WRITEW O,(=0),1
00415  M01S00402.lpt1    ---|          SA1    =10H1234567890
Line S00014 Modification History
M01 (Added by) lpt1
Seq #  *Modification Id* Act 
----------------------------+
00416  M01S00014.lpt1    +++|          SA1    =10H0123456789
00417  M00S00403.lpt     +++|          RJ     GDL
00418  M00S00404.lpt     +++|          WRITEW O,BUF,14
00419  M00S00405.lpt     +++|          WRITEC O,(=C*  *)
00420  M00S00406.lpt     +++|          WRITEC O,(=C*  *)
00421  M00S00407.lpt     +++|          EQ     STL
00422  M00S00408.lpt     +++|
00423  M00S00409.lpt     +++| STLA     BSS    0
00424  M00S00410.lpt     +++|          DATA   1H1
00425  M00S00411.lpt     +++|          DUP    5,1
00426  M00S00412.lpt     +++|          DATA   1H
00427  M00S00413.lpt     +++| STLB     BSSZ   4
00428  M00S00414.lpt     +++|          SPACE  4
00429  M00S00415.lpt     +++|**        COMMON DECKS.
00430  M00S00416.lpt     +++|
00431  M00S00417.lpt     +++|
00432  M00S00418.lpt     +++|*CALL     COMCCDD
00433  M00S00419.lpt     +++|*CALL     COMCCIO
00434  M00S00420.lpt     +++|*CALL     COMCMVE
00435  M00S00421.lpt     +++|*CALL     COMCSYS
00436  M00S00422.lpt     +++|*CALL     COMCWTC
00437  M00S00423.lpt     +++|*CALL     COMCWTW
00438  M00S00424.lpt     +++| BUFFERS  SPACE  4
00439  M00S00425.lpt     +++|**        BUFFERS.
00440  M00S00426.lpt     +++|
00441  M00S00427.lpt     +++|
00442  M00S00428.lpt     +++|          USE    //
00443  M00S00429.lpt     +++|          SEG
00444  M00S00430.lpt     +++| BUFFERS  BSS    0
00445  M00S00431.lpt     +++|
00446  M00S00432.lpt     +++| BUF      BSS    15D         SCRATCH BUFFER
00447  M00S00433.lpt     +++|
00448  M00S00434.lpt     +++| OBUF     BSS    OBUFL
00449  M00S00435.lpt     +++|
00450  M00S00436.lpt     +++| RFL=     BSS    0           SET FIELD LENGTH
00451  M00S00437.lpt     +++|          SPACE  4
00452  M00S00438.lpt     +++|          END
cdc/nos2.source/opl.opl871/deck/lpt.txt ยท Last modified: (external edit)