User Tools

Site Tools


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

Deck SMP

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.smp     +++|          IDENT  SMP,SMP
00002  M00S00002.smp     +++|          PERIPH
00003  M00S00003.smp     +++|          BASE   MIXED
00004  M00S00004.smp     +++|          SST
00005  M00S00005.smp     +++|          SYSCOM
00006  M00S00006.smp     +++|*COMMENT  SMP - SAMPLE CPU P-REGISTER.
Line S00007 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.smp     +++|          TITLE  SMP - SAMPLE CPU P-REGISTER.
00010  M00S00009.smp     +++|          SPACE  4
00011  M00S00010.smp     +++|***       SMP - SAMPLE CPU P-REGISTER.
00012  M00S00011.smp     +++|*         G. R. MANSFIELD.  71/06/05.
00013  M00S00012.smp     +++|          SPACE  4
00014  M00S00013.smp     +++|***              SMP SAMPLES THE CPU P-REGISTER OVER THE RANGE
00015  M00S00014.smp     +++|*         REQUESTED BY THE USER AND WRITES THE SAMPLE DATA ON A
00016  M00S00015.smp     +++|*         FILE FOR FURTHER PROCESSING.  THE SAMPLES ARE TAKEN AT
00017  M00S00016.smp     +++|*         A USER SELECTABLE INTERVAL OF BETWEEN 1 AND 50 MILLISECONDS.
00018  M00S00017.smp     +++|*         THE RANGE IS PARTITIONED INTO 128 EQUAL INTERVALS.
00019  M00S00018.smp     +++|          SPACE  4
Line S00019 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00020  M01S00019.v23l617 ---|***       CONTROL STATEMENT CALL.
Line S00001 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00001.v23l617 +++|***       THE COMMAND.
00022  M00S00020.smp     +++|*
00023  M00S00021.smp     +++|*
00024  M00S00022.smp     +++|*         SMP(FWA,LWA)/RATE
00025  M00S00023.smp     +++|*
00026  M00S00024.smp     +++|*
00027  M00S00025.smp     +++|*         CPU PROGRAM CALL.
00028  M00S00026.smp     +++|*
00029  M00S00027.smp     +++|*
00030  M00S00028.smp     +++|*         FORM 1
00031  M00S00029.smp     +++|*T  IR    18/ *SMP*,1/1,5/,18/ FWA,18/LWA
Figure IR

0171829LWA FWA30353640414259 FWA1 *SMP*

00032  M00S00030.smp     +++|*
00033  M00S00031.smp     +++|*         FWA    FIRST WORD ADDRESS OF SAMPLE RANGE.
00034  M00S00032.smp     +++|*         LWA    LAST WORD ADDRESS OF SAMPLE RANGE.
00035  M00S00033.smp     +++|*
00036  M00S00034.smp     +++|*         FORM 2
Line S00035 Modification History
M01 (Removed by) smp1
Seq #  *Modification Id* Act 
----------------------------+
00037  M01S00035.smp1    ---|*T  IR    18/ *SMP*,1/,1/1,4/,1/1,17/,18/ PARAM
Figure IR

0171829 PARAM30343536394041425911 *SMP*


Line S00001 Modification History
M01 (Added by) smp1
Seq #  *Modification Id* Act 
----------------------------+
00038  M01S00001.smp1    +++|*T  IR    18/ *SMP*,1/ ,5/,1/1,17/,18/ PARAM
Figure IR

0171829 PARAM30343536404142591 *SMP*

00039  M00S00036.smp     +++|*
00040  M00S00037.smp     +++|*         PARAM  PARAMETER ADDRESS.
00041  M00S00038.smp     +++|*
00042  M00S00039.smp     +++|*
00043  M00S00040.smp     +++|*T  PARAM 12/RATE,12/,18/ FWA,18/ LWA
Figure PARAM

0171829 LWA FWA303536474859 FWARATE

00044  M00S00041.smp     +++|*
00045  M00S00042.smp     +++|*         RATE   SAMPLE RATE (1-50 MILLISECONDS.)
00046  M00S00043.smp     +++|*         FWA    FIRST WORD ADDRESS OF SAMPLE RANGE
00047  M00S00044.smp     +++|*         LWA    LAST WORD ADDRESS OF SAMPLE RANGE.
00048  M00S00045.smp     +++|          SPACE  4
00049  M00S00046.smp     +++|***       THE SAMPLE DATA IS PLACED ON THE FILE *PSAMPL* IN
00050  M00S00047.smp     +++|*         THE FOLLOWING FORMAT.
00051  M00S00048.smp     +++|*
00052  M00S00049.smp     +++|*
Line S00050 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00053  M01S00050.v23l617 ---|*         FIRST 8 WORDS = CONTROL CARD.
Line S00002 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00054  M01S00002.v23l617 +++|*         FIRST 8 WORDS = COMMAND.
00055  M00S00051.smp     +++|*
00056  M00S00052.smp     +++|*T        60/   DATE
Figure

029 DATE3059 DATE

00057  M00S00053.smp     +++|*T        60/   TIME
Figure

029 TIME3059 TIME

00058  M00S00054.smp     +++|*T        60/   REAL TIME CLOCK AT START
Figure

029 REAL TIME CLOCK AT START3059 REAL TIME CLOCK AT START

00059  M00S00055.smp     +++|*T        60/   REAL TIME CLOCK AT FINISH
Figure

029 REAL TIME CLOCK AT FINISH3059 REAL TIME CLOCK AT FINISH

00060  M00S00056.smp     +++|*T        60/   CPU TIME AT START
Figure

029 CPU TIME AT START3059 CPU TIME AT START

00061  M00S00057.smp     +++|*T        60/   CPU TIME AT FINISH
Figure

029 CPU TIME AT FINISH3059 CPU TIME AT FINISH

00062  M00S00058.smp     +++|*T        60/   FWA
Figure

029 FWA3059 FWA

00063  M00S00059.smp     +++|*T        60/   LWA
Figure

029 LWA3059 LWA

00064  M00S00060.smp     +++|*T        60/   CPU NOT ACTIVE ON JOB COUNT
Figure

029 CPU NOT ACTIVE ON JOB COUNT3059 CPU NOT ACTIVE ON JOB COUNT

00065  M00S00061.smp     +++|*T        60/   CPU IN RECALL COUNT
Figure

029 CPU IN RECALL COUNT3059 CPU IN RECALL COUNT

00066  M00S00062.smp     +++|*T        60/   CPU ACTIVE AND BELOW SAMPLE RANGE
Figure

029 CPU ACTIVE AND BELOW SAMPLE RANGE3059 CPU ACTIVE AND BELOW SAMPLE RANGE

00067  M00S00063.smp     +++|*T        60/   CPU ACTIVE AND ABOVE SAMPLE RANGE
Figure

029 CPU ACTIVE AND ABOVE SAMPLE RANGE3059 CPU ACTIVE AND ABOVE SAMPLE RANGE

00068  M00S00064.smp     +++|*T        60/   CPU ACTIVE AT SUB-CP
Figure

029 CPU ACTIVE AT SUB-CP3059 CPU ACTIVE AT SUB-CP

00069  M00S00065.smp     +++|*
00070  M00S00066.smp     +++|*         NEXT 128 WORDS.
00071  M00S00067.smp     +++|*
00072  M00S00068.smp     +++|*T        60/   COUNTS FOR P-REGISTER IN THIS RANGE
Figure

029 COUNTS FOR P-REGISTER IN THIS RANGE3059 COUNTS FOR P-REGISTER IN THIS RANGE

00073  M00S00069.smp     +++|          SPACE  4
00074  M00S00070.smp     +++|***       DAYFILE MESSAGES.
00075  M00S00071.smp     +++|*
00076  M00S00072.smp     +++|*
00077  M00S00073.smp     +++|*         * SAMPLE FWA .GE. LWA.* = RANGE PARAMETERS OUT OF ORDER.
00078  M00S00074.smp     +++|*
Line S00075 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00079  M01S00075.v23l617 ---|*         * ILLEGAL SMP REQUEST.* = SMP NOT CALLED FROM CPU WITH
Line S00003 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00080  M01S00003.v23l617 +++|*         * INCORRECT SMP REQUEST.* = SMP NOT CALLED FROM CPU WITH
00081  M00S00076.smp     +++|*                AUTO RECALL.
00082  M00S00077.smp     +++|*
00083  M00S00078.smp     +++|*         * FL TOO SHORT FOR SAMPLES.* = NOT ENOUGH MEMORY FOR SAMPLE
00084  M00S00079.smp     +++|*                DATA.
00085  M00S00080.smp     +++|*
Line S00081 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00086  M01S00081.v23l617 ---|*         * ILLEGAL USER ACCESS.* = NOT CALLED FROM SYOT JOB OR
Line S00004 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00004.v23l617 +++|*         * USER ACCESS NOT VALID.* = NOT CALLED FROM SYOT JOB OR
00088  M00S00082.smp     +++|*                SYSTEM PRIVILEDGES + DEBUG.
00089  M00S00083.smp     +++|*
Line S00084 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00084.v23l617 ---|*         * ILLEGAL SAMPLE RATE.* = SAMPLE RATE SPECIFIED WAS NOT
Line S00005 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00091  M01S00005.v23l617 +++|*         * INCORRECT SAMPLE RATE.* = SAMPLE RATE SPECIFIED WAS NOT
00092  M00S00085.smp     +++|*                WITHIN THE RANGE OF 1 TO 50 MILLISECONDS.
00093  M00S00086.smp     +++|*
00094  M00S00087.smp     +++|*         * PARAMETER ADDRESS ERROR.* = PARAMETER ADDRESS IS NOT
00095  M00S00088.smp     +++|*                WITHIN THE USER-S FL.
Line S00001 Modification History
M01 (Added by) smp6
Seq #  *Modification Id* Act 
----------------------------+
00096  M01S00001.smp6    +++|*
00097  M01S00002.smp6    +++|*         * ERROR IN RATE PARAMETER.* = THE RATE ENTERED ON THE
00098  M01S00003.smp6    +++|*                *SMP* COMMAND WAS INCORRECT.
Line S00001 Modification History
M01 (Added by) smp5
Seq #  *Modification Id* Act 
----------------------------+
00099  M01S00001.smp5    +++|*
00100  M01S00002.smp5    +++|*         * SMP - ABORTED DUE TO ROLLOUT REQUEST.* = THE ROLLOUT
00101  M01S00003.smp5    +++|*                REQUEST FLAG IS SET IN THE JOB-S CONTROL POINT
00102  M01S00004.smp5    +++|*                AREA.  THIS MAY HAPPEN AS A RESULT OF TERMINAL I/O
00103  M01S00005.smp5    +++|*                OR *DIS* DROPPING WHILE *SMP* IS RUNNING.
00104  M00S00089.smp     +++|          SPACE  4
00105  M00S00090.smp     +++|***       OPERATOR MESSAGES.
00106  M00S00091.smp     +++|*
00107  M00S00092.smp     +++|*
00108  M00S00093.smp     +++|*         NONE.
00109  M00S00094.smp     +++|          SPACE  4
00110  M00S00095.smp     +++|**        ROUTINES USED.
00111  M00S00096.smp     +++|*
00112  M00S00097.smp     +++|*
00113  M00S00098.smp     +++|*         NONE.
00114  M00S00099.smp     +++|          SPACE  4
00115  M00S00100.smp     +++|**        PROGRAMS CALLED.
00116  M00S00101.smp     +++|*
00117  M00S00102.smp     +++|*
00118  M00S00103.smp     +++|*         1AJ - ADVANCE JOB STATUS.
00119  M00S00104.smp     +++|          SPACE  4
00120  M00S00105.smp     +++|*CALL     COMPMAC
00121  M00S00106.smp     +++|*CALL     COMSCPS
00122  M00S00107.smp     +++|*CALL     COMSPIM
00123  M00S00108.smp     +++|          SPACE  4
00124  M00S00109.smp     +++|****      DIRECT LOCATION ASSIGNMENTS.
00125  M00S00110.smp     +++|
00126  M00S00111.smp     +++|
00127  M00S00112.smp     +++| CN       EQU    20 - 24     CM WORD BUFFER (5 LOCATIONS)
00128  M00S00113.smp     +++| RT       EQU    26          SAMPLE RATE
00129  M00S00114.smp     +++| RC       EQU    27          REAL TIME CLOCK
00130  M00S00115.smp     +++|
00131  M00S00116.smp     +++|
00132  M00S00117.smp     +++|*         ASSEMBLY CONSTANTS.
00133  M00S00118.smp     +++|
00134  M00S00119.smp     +++|
00135  M00S00120.smp     +++| FET      EQU    2           FET ADDRESS IN CM AREA
00136  M00S00121.smp     +++|****
00137  M00S00122.smp     +++|          TITLE  MAIN PROGRAM.
00138  M00S00123.smp     +++| SMP      SPACE  4
00139  M00S00124.smp     +++|**        SMP - MAIN PROGRAM.
00140  M00S00125.smp     +++|
00141  M00S00126.smp     +++|
00142  M00S00127.smp     +++|          ORG    PPFW
00143  M00S00128.smp     +++| SMP      RJM    PRS         PRESET PROGRAM
00144  M00S00129.smp     +++|          RJM    ISB         INITIALIZE SAMPLE BUFFER
00145  M00S00130.smp     +++|          MONITOR RCPM       REQUEST CPU
00146  M00S00131.smp     +++|          RJM    MNP         MONITOR P
00147  M00S00132.smp     +++|          LDC    RTCL        READ FINISH TIME
00148  M00S00133.smp     +++|          CRM    RTF,ON
00149  M00S00134.smp     +++|          LDD    CP          READ CPU TIME
00150  M00S00135.smp     +++|          ADN    CPTW
00151  M00S00136.smp     +++|          CRM    CTF,ON
00152  M00S00137.smp     +++|          RJM    WAC         WAIT FOR ACTIVITY TO COMPLETE
00153  M00S00138.smp     +++|          RJM    WPS         WRITE P-SAMPLES
00154  M00S00139.smp     +++| DPP      SPACE  4
00155  M00S00140.smp     +++|**        DPP - DROP PP.
00156  M00S00141.smp     +++|
00157  M00S00142.smp     +++|
00158  M00S00143.smp     +++| DPP      LDC    *
00159  M00S00144.smp     +++| DPPA     EQU    *-1         (*DIS* FLAG FROM CPA)
00160  M00S00145.smp     +++|          NJN    DPP1        IF *DIS* FLAG NOT CHANGED
00161  M00S00146.smp     +++|          LDN    10          SET MASK FOR *JCIW*
00162  M00S00147.smp     +++|          STD    CM+4
00163  M00S00148.smp     +++|          LDN    CCTS        CLEAR *DIS* FLAG IN CPA
00164  M00S00149.smp     +++|          STD    CM+1
00165  M00S00150.smp     +++|          MONITOR  SJCM
00166  M00S00151.smp     +++| DPP1     MONITOR  DPPM      DROP PP
00167  M00S00152.smp     +++|          LJM    PPR         EXIT TO PP RESIDENT
00168  M00S00153.smp     +++| MNP      SPACE  4
00169  M00S00154.smp     +++|**        MNP - MONITOR P.
00170  M00S00155.smp     +++|
00171  M00S00156.smp     +++|
00172  M00S00157.smp     +++| MNP      SUBR               ENTRY/EXIT
00173  M00S00158.smp     +++|          MONITOR RCLM       ENSURE RCPM COMPLETE
00174  M00S00159.smp     +++| MNP1     PAUSE
00175  M00S00160.smp     +++|          LDD    CM+1
00176  M00S00161.smp     +++|          NJN    MNPX        RETURN IF ERROR FLAG SET
00177  M00S00162.smp     +++|          LDD    CM          CHECK CPU STATUS
00178  M00S00163.smp     +++|          LPC    7000
00179  M00S00164.smp     +++|          ZJN    MNPX        RETURN IF NO CPU ACTIVITY
00180  M00S00165.smp     +++|          SHN    21-13
00181  M00S00166.smp     +++|          PJN    MNP2        IF CPU ACTIVE
00182  M00S00167.smp     +++|          SHN    6
00183  M00S00168.smp     +++|          LMN    5
00184  M00S00169.smp     +++|          NJN    MNP3        IF CPU NOT IN RECALL
00185  M00S00170.smp     +++|
00186  M00S00171.smp     +++|*         COUNT RECALL SAMPLES.
00187  M00S00172.smp     +++|
00188  M00S00173.smp     +++|          LDC    RCL         ADVANCE RECALL COUNT
00189  M00S00174.smp     +++|          LJM    MNP7        INCREMENT COUNTER
00190  M00S00175.smp     +++|
00191  M00S00176.smp     +++| MNP2     LDN    ZERL        READ CURRENT P ADDRESS
00192  M00S00177.smp     +++|          CRD    CM
00193  M00S00178.smp     +++|          MONITOR RPNM
00194  M00S00179.smp     +++|          LDD    CP          COMPARE CONTROL POINT NUMBERS
00195  M00S00180.smp     +++|          LMD    CM+2
00196  M00S00181.smp     +++|          NJN    MNP3        IF NOT EXECUTING AT THIS CONTROL POINT
00197  M00S00182.smp     +++|          LDD    CM+1
00198  M00S00183.smp     +++|          SHN    21-10
00199  M00S00184.smp     +++|          PJN    MNP4        IF SUBCONTROL POINT NOT ACTIVE
00200  M00S00185.smp     +++|          LDC    ASC         CPU ACTIVE AT SUBCONTROL POINT
00201  M00S00186.smp     +++|          UJN    MNP7        INCREMENT COUNTER
00202  M00S00187.smp     +++|
00203  M00S00188.smp     +++| MNP3     LDC    IAC         ADVANCE INACTIVE COUNT
00204  M00S00189.smp     +++|          UJN    MNP7        INCREMENT COUNTER
00205  M00S00190.smp     +++|
00206  M00S00191.smp     +++| MNP4     LDD    CM+3        ASSEMBLE P ADDRESS
00207  M00S00192.smp     +++|          SHN    14
00208  M00S00193.smp     +++|          LMD    CM+4
00209  M00S00194.smp     +++| MNPA     ADC    *           CHECK LOWER RANGE
00210  M00S00195.smp     +++|          PJN    MNP5        IF ABOVE FWA
00211  M00S00196.smp     +++|          LDC    BLR         ADVANCE BELOW RANGE COUNT
00212  M00S00197.smp     +++|          UJN    MNP7        INCREMENT COUNTER
00213  M00S00198.smp     +++|
00214  M00S00199.smp     +++| MNP5     BSS    0
00215  M00S00200.smp     +++| MNPB     SHN    -0          SET INTERVAL
00216  M00S00201.smp     +++|          STD    T2
00217  M00S00202.smp     +++|          SHN    -7
00218  M00S00203.smp     +++|          ZJN    MNP6        IF BELOW LWA
00219  M00S00204.smp     +++|          LDC    ABR         ADVANCE ABOVE RANGE COUNT
00220  M00S00205.smp     +++|          UJN    MNP7        INCREMENT COUNTER
00221  M00S00206.smp     +++|
00222  M00S00207.smp     +++| MNP6     LDD    T2          SET WORD INDEX
00223  M00S00208.smp     +++|          SHN    2
00224  M00S00209.smp     +++|          ADD    T2
00225  M00S00210.smp     +++|          ADC    PSM
00226  M00S00211.smp     +++|
00227  M00S00212.smp     +++|*         INCREMENT 36-BIT COUNTER.
00228  M00S00213.smp     +++|
00229  M00S00214.smp     +++| MNP7     STD    T1
00230  M00S00215.smp     +++|          AOM    4,T1
00231  M00S00216.smp     +++|          SHN    -14
00232  M00S00217.smp     +++|          RAM    3,T1
00233  M00S00218.smp     +++|          SHN    -14
00234  M00S00219.smp     +++|          RAM    2,T1
00235  M00S00220.smp     +++|          RJM    PSE         PAUSE TO MAKE SAMPLE TIME CONSTANT
00236  M00S00221.smp     +++|          LJM    MNP1        LOOP FOR NEXT SAMPLE
00237  M00S00222.smp     +++|          TITLE  SUBROUTINES.
00238  M00S00223.smp     +++| ABT      SPACE  4
00239  M00S00224.smp     +++|**        ABT - ABORT JOB.
00240  M00S00225.smp     +++|*
00241  M00S00226.smp     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
00242  M00S00227.smp     +++|*
00243  M00S00228.smp     +++|*         EXIT   NONE.
00244  M00S00229.smp     +++|
00245  M00S00230.smp     +++|
00246  M00S00231.smp     +++| ABT      RJM    DFM         ISSUE MESSAGE
00247  M00S00232.smp     +++|          LDC    *
00248  M00S00233.smp     +++| ABTA     EQU    *-1         (*DIS* FLAG FROM CPA)
00249  M00S00234.smp     +++|          NJN    ABT1        IF *DIS* FLAG NOT CHANGED
00250  M00S00235.smp     +++|          LDN    10          SET MASK FOR *JCIW*
00251  M00S00236.smp     +++|          STD    CM+4
00252  M00S00237.smp     +++|          LDN    CCTS        CLEAR *DIS* FLAG IN CPA
00253  M00S00238.smp     +++|          STD    CM+1
00254  M00S00239.smp     +++|          MONITOR  SJCM
00255  M00S00240.smp     +++| ABT1     MONITOR  ABTM      ABORT JOB
00256  M00S00241.smp     +++|          LJM    PPR         EXIT TO PP RESIDENT
00257  M00S00242.smp     +++| ISB      SPACE  4
00258  M00S00243.smp     +++|**        ISB - INITIALIZE SAMPLE BUFFER.
00259  M00S00244.smp     +++|*
00260  M00S00245.smp     +++|*         ENTRY  NONE.
00261  M00S00246.smp     +++|*
00262  M00S00247.smp     +++|*         EXIT   NONE.
00263  M00S00248.smp     +++|*
00264  M00S00249.smp     +++|*         USES   T1, T2.
00265  M00S00250.smp     +++|*
00266  M00S00251.smp     +++|*         CALLS  NONE.
00267  M00S00252.smp     +++|
00268  M00S00253.smp     +++|
00269  M00S00254.smp     +++| ISB      SUBR               ENTRY/EXIT
Line S00255 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00270  M01S00255.v23l617 ---|          LDC    CCD-5       SET CONTROL CARD ADDRESS
Line S00006 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00271  M01S00006.v23l617 +++|          LDC    CCD-5       SET COMMAND ADDRESS
00272  M00S00256.smp     +++|          STD    T1
00273  M00S00257.smp     +++|          LDN    MS1W
00274  M00S00258.smp     +++|          STD    T2
00275  M00S00259.smp     +++| ISB1     LDN    5           ADVANCE READ ADDRESS
00276  M00S00260.smp     +++|          RAD    T1          SET READ ADDRESS
00277  M00S00261.smp     +++|          STM    ISBA+1
Line S00262 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00278  M01S00262.v23l617 ---|          LDD    CP          READ CONTROL CARD WORD
Line S00007 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00279  M01S00007.v23l617 +++|          LDD    CP          READ COMMAND WORD
00280  M00S00263.smp     +++|          ADD    T2
00281  M00S00264.smp     +++| ISBA     CRM    *,ON
00282  M00S00265.smp     +++|          LDM    4,T1        CHECK WORD
Line S00266 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00283  M01S00266.v23l617 ---|          ZJN    ISB2        IF END OF CONTROL CARD
Line S00008 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00284  M01S00008.v23l617 +++|          ZJN    ISB2        IF END OF COMMAND
00285  M00S00267.smp     +++|          AOD    T2
00286  M00S00268.smp     +++|          LMN    MS1W+10
00287  M00S00269.smp     +++|          NJN    ISB1        LOOP TO END OF MESSAGE
00288  M00S00270.smp     +++| ISB2     LDN    DTEL        READ DATE
00289  M00S00271.smp     +++|          CRM    DTE,ON
00290  M00S00272.smp     +++|          LDN    TIML        READ TIME
00291  M00S00273.smp     +++|          CRM    TIM,ON
00292  M00S00274.smp     +++|          LDC    128D*5      CLEAR SAMPLE BUFFER
00293  M00S00275.smp     +++|          STD    T1
00294  M00S00276.smp     +++| ISB3     LDN    0
00295  M00S00277.smp     +++|          STM    PSM-1,T1
00296  M00S00278.smp     +++|          SOD    T1
00297  M00S00279.smp     +++|          NJN    ISB3
00298  M00S00280.smp     +++|          LDC    RTCL        READ START TIME
00299  M00S00281.smp     +++|          CRM    RTS,ON
00300  M00S00282.smp     +++|          LDD    CP
00301  M00S00283.smp     +++|          ADN    CPTW
00302  M00S00284.smp     +++|          CRM    CTS,ON
00303  M00S00285.smp     +++|          LJM    ISBX        RETURN
00304  M00S00286.smp     +++| PSE      SPACE  4,10
00305  M00S00287.smp     +++|**        PSE - PAUSE TO MAKE SAMPLE TIME CONSTANT.
00306  M00S00288.smp     +++|*
00307  M00S00289.smp     +++|*         ENTRY  (RC) - PREVIOUS REAL TIME CLOCK VALUE.
00308  M00S00290.smp     +++|*                (RT) - SAMPLE RATE (MILLISECONDS).
00309  M00S00291.smp     +++|*
00310  M00S00292.smp     +++|*         EXIT   (RC) - REAL TIME CLOCK UPON EXIT.
00311  M00S00293.smp     +++|*
00312  M00S00294.smp     +++|*         USES   T1, CM - CM+4.
00313  M00S00295.smp     +++|
00314  M00S00296.smp     +++|
00315  M00S00297.smp     +++| PSE4     LDD    CM+4
00316  M00S00298.smp     +++|          STD    RC          SAVE NEW REAL TIME CLOCK SETTING
00317  M00S00299.smp     +++|
00318  M00S00300.smp     +++| PSE      SUBR               ENTRY/EXIT
00319  M00S00301.smp     +++|
00320  M00S00302.smp     +++| PSE1     LDC    RTCL        READ REAL TIME CLOCK
00321  M00S00303.smp     +++|          CRD    CM
00322  M00S00304.smp     +++|          LDD    CM+4
00323  M00S00305.smp     +++|          SBD    RC
00324  M00S00306.smp     +++|          PJN    PSE2        IF NO OVERFLOW
00325  M00S00307.smp     +++|          ADC    10000
00326  M00S00308.smp     +++| PSE2     SBD    RT
00327  M00S00309.smp     +++|          PJN    PSE4        IF DELAY COMPLETED
00328  M00S00310.smp     +++|          LMC    -0
00329  M00S00311.smp     +++|          STD    T1
00330  M00S00312.smp     +++| PSE3     LDC    300D
00331  M00S00313.smp     +++|          SBN    1
00332  M00S00314.smp     +++|          NJN    *-1
00333  M00S00315.smp     +++|          SOD    T1
00334  M00S00316.smp     +++|          NJN    PSE3        IF DELAY NOT COMPLETE
00335  M00S00317.smp     +++|          UJN    PSE1        CHECK PAUSE COMPLETE
00336  M00S00318.smp     +++| WAC      SPACE  4,10
00337  M00S00319.smp     +++|**        WAC - WAIT FOR ACTIVITY TO COMPLETE.
00338  M00S00320.smp     +++|*
00339  M00S00321.smp     +++|*         EXIT   NO PP-S IN RECALL.
00340  M00S00322.smp     +++|*                NO PP-S ASSIGNED EXCEPT *SMP* AND POSSIBLY ONE *DIS*
00341  M00S00323.smp     +++|*                            TYPE PP (DETERMINED BY *DIS* FLAG).
00342  M00S00324.smp     +++|*
Line S00006 Modification History
M01 (Added by) smp5
Seq #  *Modification Id* Act 
----------------------------+
00343  M01S00006.smp5    +++|*         ERROR  TO *ABT* IF ROLLOUT REQUESTED.
00344  M01S00007.smp5    +++|*                TO *DPP* IF OVERRIDE ERROR FLAG SET.
00345  M01S00008.smp5    +++|*
00346  M00S00325.smp     +++|*         USES   T1, CM - CM+4.
00347  M00S00326.smp     +++|
00348  M00S00327.smp     +++|
00349  M00S00328.smp     +++| WAC      SUBR               ENTRY/EXIT
Line S00329 Modification History
M01 (Removed by) smp3
Seq #  *Modification Id* Act 
----------------------------+
00350  M01S00329.smp3    ---|          LDD    CP          CHECK FOR *DIS* FLAG
00351  M01S00330.smp3    ---|          ADN    JCIW
00352  M01S00331.smp3    ---|          CRD    CM
00353  M01S00332.smp3    ---|          LDD    CM+3
00354  M01S00333.smp3    ---|          SHN    -11
00355  M01S00334.smp3    ---|          LPN    1
00356  M01S00335.smp3    ---|          STD    T1
Line S00001 Modification History
M01 (Added by) smp3
Seq #  *Modification Id* Act 
----------------------------+
00357  M01S00001.smp3    +++|          LDM    DPPA
00358  M01S00002.smp3    +++|          ZJN    WAC0        IF NOT *DIS* JOB ORIGINALLY
00359  M01S00003.smp3    +++|          LDN    1           DISCOUNT *DIS* ACTIVE PP
00360  M01S00004.smp3    +++| WAC0     STD    T1
Line S00336 Modification History
M01 (Removed by) smp5
Seq #  *Modification Id* Act 
----------------------------+
00361  M01S00336.smp5    ---| WAC1     PAUSE              CHECK FOR PP OR TAPE ACTIVITY
00362  M01S00337.smp5    ---|          LDD    CM+4
Line S00009 Modification History
M01 (Added by) smp5
Seq #  *Modification Id* Act 
----------------------------+
00363  M01S00009.smp5    +++| WAC1     PAUSE
00364  M01S00010.smp5    +++|          LDD    CM+2        CHECK FOR ROLLOUT REQUEST
00365  M01S00011.smp5    +++|          LPN    1
00366  M01S00012.smp5    +++|          NJN    WAC2        IF ROLLOUT REQUESTED
00367  M01S00013.smp5    +++|          LDD    CM+1        CHECK FOR OVERRIDE
00368  M01S00014.smp5    +++|          LMN    ORET
00369  M01S00015.smp5    +++|          ZJN    WAC3        IF OVERRIDE
00370  M01S00016.smp5    +++|          LDD    CM+4        CHECK FOR PP OR TAPE ACTIVITY
00371  M00S00338.smp     +++|          SHN    -4
00372  M00S00339.smp     +++|          NJN    WAC1        IF PP RECALL OR TAPE ACTIVITY
00373  M00S00340.smp     +++|          LDD    CM
00374  M00S00341.smp     +++|          LPN    77
Line S00342 Modification History
M01 (Removed by) smp3
Seq #  *Modification Id* Act 
----------------------------+
00375  M01S00342.smp3    ---|          SBN    1           DISCOUNT *SMP*
00376  M01S00343.smp3    ---|          SBD    T1          DISCOUNT *DIS*, IF *DIS* FLAG SET
00377  M01S00344.smp3    ---|          NJN    WAC1        IF PP ACTIVITY REMAINS
Line S00005 Modification History
M01 (Added by) smp3
Seq #  *Modification Id* Act 
----------------------------+
00378  M01S00005.smp3    +++|          SBN    2           DISCOUNT *SMP*
00379  M01S00006.smp3    +++|          SBD    T1          DISCOUNT *DIS* IF *DIS* JOB ORIGINALLY
00380  M01S00007.smp3    +++|          PJN    WAC1        IF PP ACTIVITY REMAINS
00381  M00S00345.smp     +++|          UJN    WACX        RETURN
Line S00017 Modification History
M01 (Added by) smp5
Seq #  *Modification Id* Act 
----------------------------+
00382  M01S00017.smp5    +++|
00383  M01S00018.smp5    +++| WAC2     LDC    WACA
00384  M01S00019.smp5    +++|          LJM    ABT         ABORT JOB AND DROP PP
00385  M01S00020.smp5    +++|
00386  M01S00021.smp5    +++| WAC3     LJM    DPP         DROP PP
00387  M01S00022.smp5    +++|
00388  M01S00023.smp5    +++| WACA     DATA   C* SMP - ABORTED DUE TO ROLLOUT REQUEST.*
00389  M00S00346.smp     +++| WPS      SPACE  4
00390  M00S00347.smp     +++|**        WPS - WRITE P-SAMPLES.
00391  M00S00348.smp     +++|
00392  M00S00349.smp     +++|
00393  M00S00350.smp     +++| WPS      SUBR               ENTRY/EXIT
00394  M00S00351.smp     +++|          LDD    FL          CHECK FIELD LENGTH
00395  M00S00352.smp     +++|          SHN    6
00396  M00S00353.smp     +++|          ADC    -FET-BUFL
00397  M00S00354.smp     +++|          PJN    WPS1        IF ROOM FOR SAMPLE DATA
00398  M00S00355.smp     +++|          LDC    =C* FL TOO SHORT FOR SAMPLES.*
00399  M00S00356.smp     +++|          RJM    DFM
00400  M00S00357.smp     +++|          LJM    DPP         DROP PP
00401  M00S00358.smp     +++|
00402  M00S00359.smp     +++| WPS1     LDC    BUFL        SET WORD COUNT
00403  M00S00360.smp     +++|          STD    T1
00404  M00S00361.smp     +++|          LDD    RA
00405  M00S00362.smp     +++|          SHN    6
00406  M00S00363.smp     +++|          ADN    FET
00407  M00S00364.smp     +++|          CRM    TBUF,T1     SAVE CP FL
00408  M00S00365.smp     +++|          ADC    -BUFL
00409  M00S00366.smp     +++|          CWM    BUF,T1
00410  M00S00367.smp     +++|          EXECUTE  CIO,=     CALL *CIO*
00411  M00S00368.smp     +++| WPS2     LDD    MA          SET *RPPM* PARAMETERS
00412  M00S00369.smp     +++|          CWM    WPSA,ON
00413  M00S00370.smp     +++|          LDN    ZERL
00414  M00S00371.smp     +++|          CRD    CM
00415  M00S00372.smp     +++|          LDD    MA          CLEAR MB+1
00416  M00S00373.smp     +++|          ADN    1
00417  M00S00374.smp     +++|          CWD    CM
00418  M00S00375.smp     +++|          MONITOR  RPPM
00419  M00S00376.smp     +++|          LDD    CM+1
00420  M00S00377.smp     +++|          NJN    WPS4        IF PP ASSIGNED
00421  M00S00378.smp     +++|          PAUSE
00422  M00S00379.smp     +++|          LDD    CM+1
00423  M00S00380.smp     +++|          ZJN    WPS2        IF ERROR FLAG CLEAR
00424  M00S00381.smp     +++|          LMN    ORET
00425  M00S00382.smp     +++|          NJN    WPS2        IF NOT OVERRIDE
00426  M00S00383.smp     +++| WPS3     LJM    DPP         DROP PP
00427  M00S00384.smp     +++|
00428  M00S00385.smp     +++| WPS4     PAUSE
00429  M00S00386.smp     +++|          LDD    CM+1
00430  M00S00387.smp     +++|          ZJN    WPS5        IF NO ERROR
00431  M00S00388.smp     +++|          LMN    ORET
00432  M00S00389.smp     +++|          ZJN    WPS3        IF OVERRIDE
00433  M00S00390.smp     +++| WPS5     LDD    RA
00434  M00S00391.smp     +++|          SHN    6
00435  M00S00392.smp     +++|          ADN    FET+1
00436  M00S00393.smp     +++|          CRD    CM
00437  M00S00394.smp     +++|          LDD    CM+4
00438  M00S00395.smp     +++|          SHN    21-0
00439  M00S00396.smp     +++|          PJN    WPS4        IF NOT COMPLETE
00440  M00S00397.smp     +++|          LDD    RA
00441  M00S00398.smp     +++|          SHN    6
00442  M00S00399.smp     +++|          ADN    FET
00443  M00S00400.smp     +++|          CWM    TBUF,T1
00444  M00S00401.smp     +++|          UJN    WPS3        DROP PP
00445  M00S00402.smp     +++|
00446  M00S00403.smp     +++| WPSA     VFD    18/0LCIO,6/0,18/0,18/FET+1
00447  M00S00404.smp     +++|          SPACE  4,10
00448  M00S00405.smp     +++|*         COMMON DECKS.
00449  M00S00406.smp     +++|
00450  M00S00407.smp     +++|
00451  M00S00408.smp     +++| IFP$     EQU    1           ASSEMBLE REMOTE INITIALIZATION CODE
00452  M00S00409.smp     +++| EJT$     EQU    1           INITIALIZE EJT PROCESSING
00453  M00S00410.smp     +++|*CALL     COMPGFP
00454  M00S00411.smp     +++|          SPACE  4
00455  M00S00412.smp     +++|**        SAMPLE BUFFERS.
00456  M00S00413.smp     +++|
00457  M00S00414.smp     +++|
00458  M00S00415.smp     +++|          USE    BUFFERS
00459  M00S00416.smp     +++| BUF      VFD    60/
00460  M00S00417.smp     +++|
00461  M00S00418.smp     +++|*         FET FOR *PSAMPL* FILE.
00462  M00S00419.smp     +++|
00463  M00S00420.smp     +++|          VFD    42/0LPSAMPL,18/26
00464  M00S00421.smp     +++|          VFD    60/FET+6
00465  M00S00422.smp     +++|          VFD    60/FET+BUFL
00466  M00S00423.smp     +++|          VFD    60/FET+6
00467  M00S00424.smp     +++|          VFD    60/FET+BUFL+1
00468  M00S00425.smp     +++|
Line S00426 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00469  M01S00426.v23l617 ---| CCD      BSS    8D*5        CONTROL CARD
Line S00009 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00470  M01S00009.v23l617 +++| CCD      BSS    8D*5        COMMAND
00471  M00S00427.smp     +++| DTE      VFD    60/         DATE
00472  M00S00428.smp     +++| TIM      VFD    60/         TIME
00473  M00S00429.smp     +++| RTS      VFD    60/         REAL TIME CLOCK AT START
00474  M00S00430.smp     +++| RTF      VFD    60/         REAL TIME CLOCK AT FINISH
00475  M00S00431.smp     +++| CTS      VFD    60/         CPU TIME AT START
00476  M00S00432.smp     +++| CTF      VFD    60/         CPU TIME AT FINISH
00477  M00S00433.smp     +++| FWA      VFD    60/         FWA
00478  M00S00434.smp     +++| LWA      VFD    60/         LWA
00479  M00S00435.smp     +++| IAC      VFD    60/         CPU NOT ACTIVE ON JOB COUNT
00480  M00S00436.smp     +++| RCL      VFD    60/         CPU IN RECALL COUNT
00481  M00S00437.smp     +++| BLR      VFD    60/         CPU ACTIVE AND BELOW SAMPLE RANGE
00482  M00S00438.smp     +++| ABR      VFD    60/         CPU ACTIVE AND ABOVE SAMPLE RANGE
00483  M00S00439.smp     +++| ASC      VFD    60/         CPU ACTIVE AT SUB-CP
00484  M00S00440.smp     +++|
00485  M00S00441.smp     +++| PSM      BSS    0           COUNTS FOR P-REGISTER IN THIS RANGE
00486  M00S00442.smp     +++|
00487  M00S00443.smp     +++| .1       SET    *-BUF+128D*5
00488  M00S00444.smp     +++| BUFL     EQU    .1/5
00489  M00S00445.smp     +++|
00490  M00S00446.smp     +++| TBUF     EQU    BUF+BUFL*5  FWA OF TEMPORARY FL SAVE BUFFER
00491  M00S00447.smp     +++|
00492  M00S00448.smp     +++|          ERRNG  7777B-TBUF-BUFL*5  NOT ENOUGH BUFFER SPACE
00493  M00S00449.smp     +++| PRS      TITLE  PRESET.
00494  M00S00450.smp     +++|**        PRS - PRESET PROGRAM.
00495  M00S00451.smp     +++|
00496  M00S00452.smp     +++|
00497  M00S00453.smp     +++| PRS      SUBR               ENTRY/EXIT
00498  M00S00454.smp     +++|          RJM    IFP         INITIALIZE FNT PROCESSOR
00499  M00S00455.smp     +++|          LDD    CP          DETERMINE IF *DIS* FLAG SET
00500  M00S00456.smp     +++|          ADN    JCIW
00501  M00S00457.smp     +++|          CRD    CM
00502  M00S00458.smp     +++|          LDD    CM+3
00503  M00S00459.smp     +++|          SHN    -6
00504  M00S00460.smp     +++|          LPN    10
00505  M00S00461.smp     +++|          STM    DPPA
00506  M00S00462.smp     +++|          STM    ABTA
00507  M00S00463.smp     +++|          NJN    PRS1        IF *DIS* FLAG SET
Line S00464 Modification History
M01 (Removed by) smp4
Seq #  *Modification Id* Act 
----------------------------+
00508  M01S00464.smp4    ---|          LDN    10          SET MASK OF *JCIW*
00509  M01S00465.smp4    ---|          STD    CM+4
00510  M01S00466.smp4    ---|          LDN    SCTS        SET *DIS* FLAG IN CPA
00511  M01S00467.smp4    ---|          STD    CM+1
00512  M01S00468.smp4    ---|          MONITOR  SJCM
Line S00001 Modification History
M01 (Added by) smp4
Seq #  *Modification Id* Act 
----------------------------+
00513  M01S00001.smp4    +++|          LDN    ZERL        SET *DIS* FLAG
00514  M01S00002.smp4    +++|          CRD    CM
00515  M01S00003.smp4    +++|          LDN    2
00516  M01S00004.smp4    +++|          STD    CM+1
00517  M01S00005.smp4    +++|          LDD    CP
00518  M01S00006.smp4    +++|          STD    CM+4
00519  M01S00007.smp4    +++|          LDD    MA
00520  M01S00008.smp4    +++|          CWM    PRSD,CM+1
00521  M01S00009.smp4    +++|          MONITOR  UTEM
00522  M01S00010.smp4    +++|          LDD    CM+1
00523  M01S00011.smp4    +++|          ZJN    PRS1        IF FLAG IS SET
00524  M01S00012.smp4    +++|          LDD    MA          RECALL *SMP*
00525  M01S00013.smp4    +++|          CWD    IR
00526  M01S00014.smp4    +++|          LDN    ZERL
00527  M01S00015.smp4    +++|          CRD    CM
00528  M01S00016.smp4    +++|          MONITOR  RECM
00529  M01S00017.smp4    +++|          LJM    PPR         EXIT
00530  M00S00469.smp     +++|
00531  M00S00470.smp     +++|*         CHECK RANGE PARAMETERS.
00532  M00S00471.smp     +++|
00533  M00S00472.smp     +++| PRS1     RJM    CUA         CHECK USER ACCESS
00534  M00S00473.smp     +++|          ZJN    PRS2        IF VALID ACCESS
Line S00474 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00535  M01S00474.v23l617 ---|          LDC    =C* ILLEGAL USER ACCESS.*
Line S00010 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00536  M01S00010.v23l617 +++|          LDC    =C* USER ACCESS NOT VALID.*
00537  M00S00475.smp     +++|          LJM    ABT         ABORT CALLING PROGRAM
00538  M00S00476.smp     +++|
00539  M00S00477.smp     +++| PRS2     LDD    IA          COPY INPUT REGISTER TO CM
00540  M00S00478.smp     +++|          CRD    CM
00541  M00S00479.smp     +++|          LDN    10D         SET SAMPLE RATE TO 10 MS
00542  M00S00480.smp     +++|          STD    CM
00543  M00S00481.smp     +++|          LDD    CM+2
00544  M00S00482.smp     +++|          SHN    21-13
00545  M00S00483.smp     +++|          PJN    PRS5        IF REQUEST IS OF FORM 1
00546  M00S00484.smp     +++|          LDD    IR+3        GET THE PARAMETER ADDRESS
00547  M00S00485.smp     +++|          LPN    77
00548  M00S00486.smp     +++|          STD    IR+3
00549  M00S00487.smp     +++|          SHN    14
00550  M00S00488.smp     +++|          LMD    IR+4
00551  M00S00489.smp     +++|          MJN    PRS3        IF NEGATIVE ADDRESS
00552  M00S00490.smp     +++|          SHN    -6
00553  M00S00491.smp     +++|          SBD    FL
00554  M00S00492.smp     +++|          MJN    PRS4        IF WITHIN FL OF CALLER
00555  M00S00493.smp     +++| PRS3     LDC    =C* PARAMETER ADDRESS ERROR.*
00556  M00S00494.smp     +++|          LJM    ABT         ABORT SMP
00557  M00S00495.smp     +++|
00558  M00S00496.smp     +++| PRS4     LDD    IR+3        READ PARAMETER OF FORM 2 REQUEST
00559  M00S00497.smp     +++|          SHN    6
00560  M00S00498.smp     +++|          ADD    RA
00561  M00S00499.smp     +++|          SHN    6
00562  M00S00500.smp     +++|          ADD    IR+4
00563  M00S00501.smp     +++|          CRD    CM
00564  M00S00502.smp     +++| PRS5     LDD    CM+3        SET FWA
00565  M00S00503.smp     +++|          SCN    77
00566  M00S00504.smp     +++|          SHN    6
00567  M00S00505.smp     +++|          LMD    CM+2
00568  M00S00506.smp     +++|          SHN    6
00569  M00S00507.smp     +++|          STD    T2
00570  M00S00508.smp     +++|          STM    FWA+4
00571  M00S00509.smp     +++|          STM    LWA+4
00572  M00S00510.smp     +++|          SHN    -14
00573  M00S00511.smp     +++|          STD    T1
00574  M00S00512.smp     +++|          STM    FWA+3
00575  M00S00513.smp     +++|          STM    LWA+3
00576  M00S00514.smp     +++|          LDD    CM+3        SET LWA
00577  M00S00515.smp     +++|          LPN    77
00578  M00S00516.smp     +++|          STD    IR+3
00579  M00S00517.smp     +++|          SBD    T1          CHECK LWA-FWA
00580  M00S00518.smp     +++|          SHN    14
00581  M00S00519.smp     +++|          ADD    CM+4
00582  M00S00520.smp     +++|          SBD    T2
00583  M00S00521.smp     +++|          SBN    1
00584  M00S00522.smp     +++|          PJN    PRS6        IF LWA .GE. FWA
00585  M00S00523.smp     +++|          LDC    =C* SAMPLE FWA .GE. LWA.*
00586  M00S00524.smp     +++|          LJM    ABT
00587  M00S00525.smp     +++|
00588  M00S00526.smp     +++| PRS6     SHN    -7          SET RANGE .GE. 12B
00589  M00S00527.smp     +++|          STD    T4
00590  M00S00528.smp     +++|          LDN    1
00591  M00S00529.smp     +++|          STD    T3
00592  M00S00530.smp     +++| PRS7     LDD    T4          SET RANGE TO NEXT HIGHER POWER OF 2
00593  M00S00531.smp     +++|          ZJN    PRS8        IF ZERO
00594  M00S00532.smp     +++|          SHN    -1
00595  M00S00533.smp     +++|          STD    T4
00596  M00S00534.smp     +++|          SOM    MNPB
00597  M00S00535.smp     +++|          LDD    T3
00598  M00S00536.smp     +++|          SHN    1
00599  M00S00537.smp     +++|          STD    T3
00600  M00S00538.smp     +++|          UJN    PRS7        LOOP
00601  M00S00539.smp     +++|
00602  M00S00540.smp     +++| PRS8     LDC    ADCI+77     SET LOWER LIMIT
00603  M00S00541.smp     +++|          LMD    T1
00604  M00S00542.smp     +++|          STM    MNPA
00605  M00S00543.smp     +++|          LCN    0
00606  M00S00544.smp     +++|          LMD    T2
00607  M00S00545.smp     +++|          STM    MNPA+1
00608  M00S00546.smp     +++|          LDD    T3          SET UPPER LIMIT IN SAMPLE FILE
00609  M00S00547.smp     +++|          SHN    7
00610  M00S00548.smp     +++|          RAM    LWA+4
00611  M00S00549.smp     +++|          SHN    -14
00612  M00S00550.smp     +++|          RAM    LWA+3
00613  M00S00551.smp     +++|          LDD    CM+4
00614  M00S00552.smp     +++|          STD    IR+4
00615  M00S00553.smp     +++|          LDD    CM          SAVE SAMPLE RATE
00616  M00S00554.smp     +++|          STD    RT
00617  M00S00555.smp     +++|
00618  M00S00556.smp     +++|*         CHECK CALL TYPE.
00619  M00S00557.smp     +++|
00620  M00S00558.smp     +++|          PAUSE
00621  M00S00559.smp     +++|          LDD    CM          CHECK CPU STATUS
00622  M00S00560.smp     +++|          SHN    -11
00623  M00S00561.smp     +++|          ZJN    PRS12       IF CPU NOT ACTIVE
00624  M00S00562.smp     +++|          RJM    CRS         CHECK RECALL STATUS
00625  M00S00563.smp     +++|          NJN    PRS10       IF AUTO RECALL REQUEST
Line S00564 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00626  M01S00564.v23l617 ---|          LDC    =C* ILLEGAL SMP REQUEST.*
Line S00011 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00627  M01S00011.v23l617 +++|          LDC    =C* INCORRECT SMP REQUEST.*
00628  M00S00565.smp     +++|          LJM    ABT
00629  M00S00566.smp     +++|
Line S00567 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00630  M01S00567.v23l617 ---| PRS9     LDC    =C* ILLEGAL SAMPLE RATE.*
Line S00012 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00631  M01S00012.v23l617 +++| PRS9     LDC    =C* INCORRECT SAMPLE RATE.*
00632  M00S00568.smp     +++|          LJM    ABT         ABORT
00633  M00S00569.smp     +++|
Line S00570 Modification History
M01 (Removed by) ns2107
Seq #  *Modification Id* Act 
----------------------------+
00634  M01S00570.ns2107  ---| PRS10    MONITOR  DCPM      DROP CPU
Line S00001 Modification History
M01 (Added by) ns2107
Seq #  *Modification Id* Act 
----------------------------+
00635  M01S00001.ns2107  +++| PRS10    LDN    0
00636  M01S00002.ns2107  +++|          STD    CM+1
00637  M01S00003.ns2107  +++|          MONITOR  DCPM      DROP CPU
Line S00571 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00638  M01S00571.v23l617 ---| PRS11    LDN    ZERL        CLEAR (RA+1)
Line S00013 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00639  M01S00013.v23l617 +++| PRS11    LDN    ZERL        CLEAR SYSTEM REQUEST (RA+1)
00640  M00S00572.smp     +++|          CRD    CM
00641  M00S00573.smp     +++|          LDD    RA
00642  M00S00574.smp     +++|          SHN    6
00643  M00S00575.smp     +++|          ADN    1
00644  M00S00576.smp     +++|          CWD    CM
00645  M00S00577.smp     +++|          LDD    RT          CHECK RATE RANGE
00646  M00S00578.smp     +++|          SBN    1
00647  M00S00579.smp     +++|          MJN    PRS9        IF LESS THAN 1
00648  M00S00580.smp     +++|          SBN    50D
00649  M00S00581.smp     +++|          PJN    PRS9        IF GREATER THAN 50
00650  M00S00582.smp     +++|          LJM    PRSX        RETURN
00651  M00S00583.smp     +++|
00652  M00S00584.smp     +++| PRS12    RJM    CRP         CHECK FOR RATE PARAMETER
00653  M00S00585.smp     +++|          LDD    RT
00654  M00S00586.smp     +++|          SBN    1
00655  M00S00587.smp     +++|          MJN    PRS9        IF RATE .LT. 1
00656  M00S00588.smp     +++|          SBN    50D
00657  M00S00589.smp     +++|          PJN    PRS9        IF RATE .GT. 50D
00658  M00S00590.smp     +++|
Line S00591 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00659  M01S00591.v23l617 ---|*         CALL NEXT CONTROL STATEMENT.
Line S00014 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00660  M01S00014.v23l617 +++|*         CALL NEXT COMMAND.
00661  M00S00592.smp     +++|
00662  M00S00593.smp     +++|          LDD    CP          ENTER CONTROL POINT IN *1AJ* REQUEST
00663  M00S00594.smp     +++|          SHN    -7
00664  M00S00595.smp     +++|          RAM    PRSA+1
00665  M00S00596.smp     +++| PRS13    LDD    FL          ENSURE SOME CM ASSIGNED TO JOB
00666  M00S00597.smp     +++|          NJN    PRS14       IF JOB HAS CM ASSIGNED
00667  M00S00598.smp     +++|          STD    CM+2        SET CM REQUEST
00668  M00S00599.smp     +++|          LDN    1           REQUEST 100B WORDS CM
00669  M00S00600.smp     +++|          STD    CM+1
00670  M00S00601.smp     +++|          MONITOR RSTM
00671  M00S00602.smp     +++|          PAUSE
00672  M00S00603.smp     +++|          LDD    CM+1
00673  M00S00604.smp     +++|          ZJN    PRS13       IF ERROR FLAG CLEAR
00674  M00S00605.smp     +++|          LJM    DPP
00675  M00S00606.smp     +++|
00676  M00S00607.smp     +++| PRS14    LDN    ZERL        CLEAR (RA+PGNR)
00677  M00S00608.smp     +++|          CRD    CM
00678  M00S00609.smp     +++|          LDD    RA
00679  M00S00610.smp     +++|          SHN    6
00680  M00S00611.smp     +++|          ADN    PGNR
00681  M00S00612.smp     +++|          CWD    CM
00682  M00S00613.smp     +++|          LDD    MA
00683  M00S00614.smp     +++|          CWM    PRSB,ON
00684  M00S00615.smp     +++|          LDN    ZERL
00685  M00S00616.smp     +++|          CRD    CM
00686  M00S00617.smp     +++|          LDN    40+1        INTERLOCK EJT AND SET JOB ADVANCE
00687  M00S00618.smp     +++|          STD    CM+1
00688  M00S00619.smp     +++|          LDD    CP          SET JOB EJTO
00689  M00S00620.smp     +++|          ADN    TFSW
00690  M00S00621.smp     +++|          CRD    T1
00691  M00S00622.smp     +++|          LDD    T1
00692  M00S00623.smp     +++|          STM    PRSC
00693  M00S00624.smp     +++|          SFA    EJT
00694  M00S00625.smp     +++|          STD    CM+4        INTERLOCK EJT ENTRY
00695  M00S00626.smp     +++|          SHN    -14
00696  M00S00627.smp     +++|          STD    CM+3
00697  M00S00628.smp     +++|          MONITOR  UTEM      UPDATE CONTROL POINT AREA
Line S00001 Modification History
M01 (Added by) smp2
Seq #  *Modification Id* Act 
----------------------------+
00698  M01S00001.smp2    +++|          LDD    CM+1
00699  M01S00002.smp2    +++|          ZJN    PRS15       IF OPERATION COMPLETED
00700  M01S00003.smp2    +++|          PAUSE
00701  M01S00004.smp2    +++|          LDD    CM+1
00702  M01S00005.smp2    +++|          ZJP    PRS14       IF ERROR FLAG NOT SET
00703  M01S00006.smp2    +++|          LJM    DPP         EXIT
00704  M01S00007.smp2    +++|
00705  M00S00629.smp     +++|          EXECUTE 1AJ,=      CALL *1AJ*
00706  M00S00630.smp     +++| PRS15    LDD    MA          REQUEST PP
00707  M00S00631.smp     +++|          CWM    PRSA,ON
00708  M00S00632.smp     +++|          LDN    1           SET PRIORITY PP REQUEST
00709  M00S00633.smp     +++|          STD    CM+1
00710  M00S00634.smp     +++|          MONITOR RPPM
00711  M00S00635.smp     +++|          LDD    CM+1        SET PP ASSIGNMENT
00712  M00S00636.smp     +++|          STD    T1
Line S00637 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00713  M01S00637.ns21000 ---|          NJN    PRS16       IF PP ASSIGNED
Line S00001 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00714  M01S00001.ns21000 +++|          NJP    PRS16       IF PP ASSIGNED
00715  M00S00638.smp     +++|          PAUSE
00716  M00S00639.smp     +++|          LDD    CM+1
00717  M00S00640.smp     +++|          ZJN    PRS15       IF ERROR FLAG CLEAR LOOP
00718  M00S00641.smp     +++|          LDN    0           CLEAR JOB ADVANCE FLAG
00719  M00S00642.smp     +++|          STM    PRSB+4
00720  M00S00643.smp     +++|          LDD    MA
00721  M00S00644.smp     +++|          CWM    PRSB,ON
00722  M00S00645.smp     +++|          LDN    ZERL
00723  M00S00646.smp     +++|          CRD    CM
00724  M00S00647.smp     +++|          LDN    40+1        INTERLOCK EJT AND CLEAR JOB ADVANCE
00725  M00S00648.smp     +++|          STD    CM+1
00726  M00S00649.smp     +++|          LDC    *
00727  M00S00650.smp     +++| PRSC     EQU    *-1         (EJTO)
00728  M00S00651.smp     +++|          SFA    EJT
00729  M00S00652.smp     +++|          STD    CM+4        INTERLOCK EJT ENTRY
00730  M00S00653.smp     +++|          SHN    -14
00731  M00S00654.smp     +++|          STD    CM+3
00732  M00S00655.smp     +++|          MONITOR  UTEM      UPDATE CONTROL POINT AREA
00733  M00S00656.smp     +++|          LJM    DPP         DROP PP
00734  M00S00657.smp     +++|
00735  M00S00658.smp     +++| PRS16    LDD    T1          READ INPUT REGISTER
00736  M00S00659.smp     +++|          CRD    CM
00737  M00S00660.smp     +++|          LDD    CM+1
00738  M00S00661.smp     +++|          LPN    37
00739  M00S00662.smp     +++|          SHN    7
00740  M00S00663.smp     +++|          LMD    CP
00741  M00S00664.smp     +++|          NJN    PRS18       IF *1AJ* FINISHED
00742  M00S00665.smp     +++|          PAUSE
00743  M00S00666.smp     +++|          LDD    CM+1
00744  M00S00667.smp     +++|          ZJN    PRS16       IF ERROR FLAG CLEAR LOOP
00745  M00S00668.smp     +++| PRS17    LJM    DPP         DROP PP
00746  M00S00669.smp     +++|
00747  M00S00670.smp     +++| PRS18    LDD    RA          READ (RA+PGNR)
00748  M00S00671.smp     +++|          SHN    6
00749  M00S00672.smp     +++|          ADN    PGNR
00750  M00S00673.smp     +++|          CRD    CM
00751  M00S00674.smp     +++|          LDD    CM
00752  M00S00675.smp     +++|          ZJN    PRS17       IF CPU PROGRAM NOT LOADED
00753  M00S00676.smp     +++| PRS19    PAUSE              WAIT FOR LOADER TO COMPLETE
00754  M00S00677.smp     +++|          LDD    CM+1
00755  M00S00678.smp     +++|          NJN    PRS17       IF ERROR FLAG SET
00756  M00S00679.smp     +++|          LDD    CM
00757  M00S00680.smp     +++|          SHN    -11
00758  M00S00681.smp     +++|          NJN    PRS19       IF LOADER STILL RUNNING
Line S00682 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00759  M01S00682.v23l617 ---|          LJM    PRS11       CLEAR (RA+1)
Line S00015 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00760  M01S00015.v23l617 +++|          LJM    PRS11       CLEAR SYSTEM REQUEST
00761  M00S00683.smp     +++|
00762  M00S00684.smp     +++| PRSA     VFD    18/0L1AJ,6/0,12/2,12/0,12/1
00763  M00S00685.smp     +++| PRSB     VFD    12/1,12/600,36/1  JOB ADVANCE FLAG
Line S00018 Modification History
M01 (Added by) smp4
Seq #  *Modification Id* Act 
----------------------------+
00764  M01S00018.smp4    +++| PRSD     VFD    1/1,5/STSW,6/1,6/24D,42/0
00765  M01S00019.smp4    +++|          VFD    6/JCIW,6/1,6/21D,42/1
00766  M00S00686.smp     +++| CRP      SPACE  4,10
00767  M00S00687.smp     +++|**        CRP - CHECK FOR RATE PARAMETER.
00768  M00S00688.smp     +++|*
Line S00689 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00769  M01S00689.v23l617 ---|*         CHECKS THE *SMP* CONTROL STATEMENT FOR THE RATE PARAMETER.
Line S00016 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00770  M01S00016.v23l617 +++|*         CHECKS THE *SMP* COMMAND FOR THE RATE PARAMETER.
00771  M00S00690.smp     +++|*
00772  M00S00691.smp     +++|*         EXIT   (RT) = SAMPLE RATE.
00773  M00S00692.smp     +++|*                TO *ABT* IF ERROR ENCOUNTERED.
00774  M00S00693.smp     +++|*
00775  M00S00694.smp     +++|*         USES   RT, T1, T2, T3, T4, T5, T6, CBUF - CBUF+35.
00776  M00S00695.smp     +++|*
00777  M00S00696.smp     +++|*         CALLS  NCH.
00778  M00S00697.smp     +++|
00779  M00S00698.smp     +++|
00780  M00S00699.smp     +++| CRP      SUBR               ENTRY/EXIT
Line S00700 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00781  M01S00700.v23l617 ---|          LDD    CP          READ CURRENT CONTROL STATEMENT
Line S00017 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00782  M01S00017.v23l617 +++|          LDD    CP          READ CURRENT COMMAND
00783  M00S00701.smp     +++|          ADN    MS1W
00784  M00S00702.smp     +++|          CRM    CBUF,TR
00785  M00S00703.smp     +++|          CRM    CBUF+17,TR
00786  M00S00704.smp     +++|          LDN    0
00787  M00S00705.smp     +++|          STD    T1
00788  M00S00706.smp     +++|          STD    T2
00789  M00S00707.smp     +++|          LDN    10D         DEFAULT RATE IS 10 DECIMAL
00790  M00S00708.smp     +++|          STD    RT
Line S00709 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00791  M01S00709.v23l617 ---| CRP1     RJM    NCH         SKIP TO CONTROL STATEMENT TERMINATOR
00792  M01S00710.v23l617 ---|          ZJN    CRPX        IF END OF CONTROL STATEMENT
Line S00018 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00793  M01S00018.v23l617 +++| CRP1     RJM    NCH         SKIP TO COMMAND TERMINATOR
00794  M01S00019.v23l617 +++|          ZJN    CRPX        IF END OF COMMAND
00795  M00S00711.smp     +++|          LMN    1R.
00796  M00S00712.smp     +++|          ZJN    CRP2        IF TERMINATOR FOUND
00797  M00S00713.smp     +++|          LMN    1R)&1R.
00798  M00S00714.smp     +++|          NJN    CRP1        IF TERMINATOR NOT YET FOUND
00799  M00S00715.smp     +++| CRP2     RJM    NCH         GET NEXT CHARACTER
00800  M00S00716.smp     +++|          LMN    1R/         CHECK FOR SLASH
00801  M00S00717.smp     +++|          NJN    CRPX        IF NO SLASH
00802  M00S00718.smp     +++|          STD    RT          DECODE THE SAMPLE RATE
00803  M00S00719.smp     +++|          STD    T4          CLEAR OCTAL ASSEMBLY WORD
00804  M00S00720.smp     +++|          STD    T5          CLEAR DECIMAL DIGIT FLAG
00805  M00S00721.smp     +++| CRP3     RJM    NCH         GET NEXT CHARACTER
Line S00722 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00806  M01S00722.v23l617 ---|          ZJN    CRPX        IF END OF CARD
Line S00020 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00807  M01S00020.v23l617 +++|          ZJN    CRPX        IF END OF COMMAND
00808  M00S00723.smp     +++|          SBN    1R0
00809  M00S00724.smp     +++|          MJN    CRP5        IF A LETTER
00810  M00S00725.smp     +++|          STD    T6
00811  M00S00726.smp     +++|          SBN    10D
00812  M00S00727.smp     +++|          PJN    CRP5        IF NOT A DECIMAL DIGIT
00813  M00S00728.smp     +++|          ADN    10D-10B
00814  M00S00729.smp     +++|          MJN    CRP4        IF AN OCTAL DIGIT
00815  M00S00730.smp     +++|          AOD    T5          SET DECIMAL DIGIT FLAG
00816  M00S00731.smp     +++| CRP4     LDD    RT          ADD TO DECIMAL ASSEMBLY
00817  M00S00732.smp     +++|          SHN    2
00818  M00S00733.smp     +++|          RAD    RT
00819  M00S00734.smp     +++|          SHN    1
00820  M00S00735.smp     +++|          ADD    T6
00821  M00S00736.smp     +++|          STD    RT
00822  M00S00737.smp     +++|          LDD    T4          ADD TO OCTAL ASSEMBLY
00823  M00S00738.smp     +++|          SHN    3
00824  M00S00739.smp     +++|          ADD    T6
00825  M00S00740.smp     +++|          STD    T4
00826  M00S00741.smp     +++|          UJN    CRP3        GET NEXT DIGIT
00827  M00S00742.smp     +++|
00828  M00S00743.smp     +++| CRP5     LDD    T3          CHECK FOR VALID SUFFIX
00829  M00S00744.smp     +++|          LMN    1R
00830  M00S00745.smp     +++|          ZJN    CRP6        IF SPACE
00831  M00S00746.smp     +++|          LMN    1RD&1R
00832  M00S00747.smp     +++|          ZJN    CRP6        IF DECIMAL SUFFIX
00833  M00S00748.smp     +++|          LMN    1RB&1RD
Line S00749 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00834  M01S00749.v23l617 ---|          NJN    CRP7        IF AN ILLEGAL CHARACTER
Line S00021 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00835  M01S00021.v23l617 +++|          NJN    CRP7        IF AN INCORRECT CHARACTER
00836  M00S00750.smp     +++|          LDD    T5
00837  M00S00751.smp     +++|          NJN    CRP7        IF DECIMAL DIGIT IN OCTAL NUMBER
00838  M00S00752.smp     +++|          LDD    T4          USE THE OCTAL VERSION
00839  M00S00753.smp     +++|          STD    RT
00840  M00S00754.smp     +++| CRP6     RJM    NCH         GET NEXT CHARACTER
Line S00755 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00841  M01S00755.v23l617 ---|          ZJN    CRP8        IF END OF THE CONTROL STATEMENT
Line S00022 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00842  M01S00022.v23l617 +++|          ZJN    CRP8        IF END OF THE COMMAND
00843  M00S00756.smp     +++|          LMN    1R
00844  M00S00757.smp     +++|          ZJN    CRP6        IF SPACE
00845  M00S00758.smp     +++| CRP7     LDC    =C* ERROR IN RATE PARAMETER.*
00846  M00S00759.smp     +++|          LJM    ABT         ABORT
00847  M00S00760.smp     +++|
00848  M00S00761.smp     +++| CRP8     LJM    CRPX        RETURN
00849  M00S00762.smp     +++| NCH      SPACE  4,15
00850  M00S00763.smp     +++|**        NCH - GET THE NEXT CHARACTER.
00851  M00S00764.smp     +++|*
00852  M00S00765.smp     +++|*         ENTRY  (T1) = NEXT BYTE.
00853  M00S00766.smp     +++|*                (T2) = NEXT CHARACTER WITHIN BYTE.
00854  M00S00767.smp     +++|*
00855  M00S00768.smp     +++|*         EXIT   (A) = NEXT CHARACTER FROM STRING.
00856  M00S00769.smp     +++|*                (T3) = NEXT CHARACTER FROM STRING.
00857  M00S00770.smp     +++|*                (T1) = NEXT BYTE IN STRING.
00858  M00S00771.smp     +++|*                (T2) = POSITION OF CHARACTER WITHIN BYTE.
00859  M00S00772.smp     +++|*
00860  M00S00773.smp     +++|*         USES   T1, T2, T3.
00861  M00S00774.smp     +++|
00862  M00S00775.smp     +++|
00863  M00S00776.smp     +++| NCH1     SHN    -6          EXTRACT DESIRED CHARACTER
00864  M00S00777.smp     +++|          LPN    77
00865  M00S00778.smp     +++|          STD    T3
00866  M00S00779.smp     +++|          LDD    T2          POSITION TO NEXT CHARACTER
00867  M00S00780.smp     +++|          LMN    1
00868  M00S00781.smp     +++|          STD    T2
00869  M00S00782.smp     +++|          NJN    NCH2        IF ADVANCED TO NEXT BYTE
00870  M00S00783.smp     +++|          AOD    T1
00871  M00S00784.smp     +++| NCH2     LDD    T3
00872  M00S00785.smp     +++|
00873  M00S00786.smp     +++| NCH      SUBR               ENTRY/EXIT
00874  M00S00787.smp     +++|          LDM    CBUF,T1     LOAD BYTE CONTAINING NEXT CHARACTER
00875  M00S00788.smp     +++|          LJM    NCH1,T2     EXTRACT CHARACTER
00876  M00S00789.smp     +++|          SPACE  4,10
Line S00790 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00877  M01S00790.v23l617 ---| CBUF     BSS    0           CONTROL STATEMENT
Line S00023 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00878  M01S00023.v23l617 +++| CBUF     BSS    0           COMMAND
00879  M00S00791.smp     +++|          SPACE  4
00880  M00S00792.smp     +++|**        COMMON DECKS.
00881  M00S00793.smp     +++|
00882  M00S00794.smp     +++|
00883  M00S00795.smp     +++|*CALL     COMPCUA
00884  M00S00796.smp     +++|*CALL     COMPCRS
00885  M00S00797.smp     +++|          SPACE  4,10
00886  M00S00798.smp     +++| IFP      HERE
00887  M00S00799.smp     +++|          SPACE  4
00888  M00S00800.smp     +++|          END
cdc/nos2.source/opl.opl871/deck/smp.txt ยท Last modified: by 127.0.0.1