Deck SMP

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.smp     +++|          IDENT  SMP,SMP
00002  M01S00002.smp     +++|          PERIPH
00003  M01S00003.smp     +++|          BASE   MIXED
00004  M01S00004.smp     +++|          SST
00005  M01S00005.smp     +++|          SYSCOM
00006  M01S00006.smp     +++|*COMMENT  SMP - SAMPLE CPU P-REGISTER.

Line S00007 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.smp     +++|          TITLE  SMP - SAMPLE CPU P-REGISTER.
00010  M01S00009.smp     +++|          SPACE  4
00011  M01S00010.smp     +++|***       SMP - SAMPLE CPU P-REGISTER.
00012  M01S00011.smp     +++|*         G. R. MANSFIELD.  71/06/05.
00013  M01S00012.smp     +++|          SPACE  4
00014  M01S00013.smp     +++|***              SMP SAMPLES THE CPU P-REGISTER OVER THE RANGE
00015  M01S00014.smp     +++|*         REQUESTED BY THE USER AND WRITES THE SAMPLE DATA ON A
00016  M01S00015.smp     +++|*         FILE FOR FURTHER PROCESSING.  THE SAMPLES ARE TAKEN AT
00017  M01S00016.smp     +++|*         A USER SELECTABLE INTERVAL OF BETWEEN 1 AND 50 MILLISECONDS.
00018  M01S00017.smp     +++|*         THE RANGE IS PARTITIONED INTO 128 EQUAL INTERVALS.
00019  M01S00018.smp     +++|          SPACE  4

Line S00019 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00019.v23l617 ---|***       CONTROL STATEMENT CALL.
00021  M01S00001.v23l617 +++|***       THE COMMAND.
00022  M01S00020.smp     +++|*
00023  M01S00021.smp     +++|*
00024  M01S00022.smp     +++|*         SMP(FWA,LWA)/RATE
00025  M01S00023.smp     +++|*
00026  M01S00024.smp     +++|*
00027  M01S00025.smp     +++|*         CPU PROGRAM CALL.
00028  M01S00026.smp     +++|*
00029  M01S00027.smp     +++|*
00030  M01S00028.smp     +++|*         FORM 1
00031  M01S00029.smp     +++|*T  IR    18/ *SMP*,1/1,5/,18/ FWA,18/LWA

00032  M01S00030.smp     +++|*
00033  M01S00031.smp     +++|*         FWA    FIRST WORD ADDRESS OF SAMPLE RANGE.
00034  M01S00032.smp     +++|*         LWA    LAST WORD ADDRESS OF SAMPLE RANGE.
00035  M01S00033.smp     +++|*
00036  M01S00034.smp     +++|*         FORM 2

Line S00035 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp1`

Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00035.smp1    ---|*T  IR    18/ *SMP*,1/,1/1,4/,1/1,17/,18/ PARAM

00038  M01S00001.smp1    +++|*T  IR    18/ *SMP*,1/ ,5/,1/1,17/,18/ PARAM

00039  M01S00036.smp     +++|*
00040  M01S00037.smp     +++|*         PARAM  PARAMETER ADDRESS.
00041  M01S00038.smp     +++|*
00042  M01S00039.smp     +++|*
00043  M01S00040.smp     +++|*T  PARAM 12/RATE,12/,18/ FWA,18/ LWA

00044  M01S00041.smp     +++|*
00045  M01S00042.smp     +++|*         RATE   SAMPLE RATE (1-50 MILLISECONDS.)
00046  M01S00043.smp     +++|*         FWA    FIRST WORD ADDRESS OF SAMPLE RANGE
00047  M01S00044.smp     +++|*         LWA    LAST WORD ADDRESS OF SAMPLE RANGE.
00048  M01S00045.smp     +++|          SPACE  4
00049  M01S00046.smp     +++|***       THE SAMPLE DATA IS PLACED ON THE FILE *PSAMPL* IN
00050  M01S00047.smp     +++|*         THE FOLLOWING FORMAT.
00051  M01S00048.smp     +++|*
00052  M01S00049.smp     +++|*

Line S00050 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00050.v23l617 ---|*         FIRST 8 WORDS = CONTROL CARD.
00054  M01S00002.v23l617 +++|*         FIRST 8 WORDS = COMMAND.
00055  M01S00051.smp     +++|*
00056  M01S00052.smp     +++|*T        60/   DATE

00057  M01S00053.smp     +++|*T        60/   TIME

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

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

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

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

00062  M01S00058.smp     +++|*T        60/   FWA

00063  M01S00059.smp     +++|*T        60/   LWA

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

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

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

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

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

00069  M01S00065.smp     +++|*
00070  M01S00066.smp     +++|*         NEXT 128 WORDS.
00071  M01S00067.smp     +++|*
00072  M01S00068.smp     +++|*T        60/   COUNTS FOR P-REGISTER IN THIS RANGE

00073  M01S00069.smp     +++|          SPACE  4
00074  M01S00070.smp     +++|***       DAYFILE MESSAGES.
00075  M01S00071.smp     +++|*
00076  M01S00072.smp     +++|*
00077  M01S00073.smp     +++|*         * SAMPLE FWA .GE. LWA.* = RANGE PARAMETERS OUT OF ORDER.
00078  M01S00074.smp     +++|*

Line S00075 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00075.v23l617 ---|*         * ILLEGAL SMP REQUEST.* = SMP NOT CALLED FROM CPU WITH
00080  M01S00003.v23l617 +++|*         * INCORRECT SMP REQUEST.* = SMP NOT CALLED FROM CPU WITH
00081  M01S00076.smp     +++|*                AUTO RECALL.
00082  M01S00077.smp     +++|*
00083  M01S00078.smp     +++|*         * FL TOO SHORT FOR SAMPLES.* = NOT ENOUGH MEMORY FOR SAMPLE
00084  M01S00079.smp     +++|*                DATA.
00085  M01S00080.smp     +++|*

Line S00081 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00081.v23l617 ---|*         * ILLEGAL USER ACCESS.* = NOT CALLED FROM SYOT JOB OR
00087  M01S00004.v23l617 +++|*         * USER ACCESS NOT VALID.* = NOT CALLED FROM SYOT JOB OR
00088  M01S00082.smp     +++|*                SYSTEM PRIVILEDGES + DEBUG.
00089  M01S00083.smp     +++|*

Line S00084 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00084.v23l617 ---|*         * ILLEGAL SAMPLE RATE.* = SAMPLE RATE SPECIFIED WAS NOT
00091  M01S00005.v23l617 +++|*         * INCORRECT SAMPLE RATE.* = SAMPLE RATE SPECIFIED WAS NOT
00092  M01S00085.smp     +++|*                WITHIN THE RANGE OF 1 TO 50 MILLISECONDS.
00093  M01S00086.smp     +++|*
00094  M01S00087.smp     +++|*         * PARAMETER ADDRESS ERROR.* = PARAMETER ADDRESS IS NOT
00095  M01S00088.smp     +++|*                WITHIN THE USER-S FL.
00096  M01S00001.smp6    +++|*
00097  M01S00002.smp6    +++|*         * ERROR IN RATE PARAMETER.* = THE RATE ENTERED ON THE
00098  M01S00003.smp6    +++|*                *SMP* COMMAND WAS INCORRECT.
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  M01S00089.smp     +++|          SPACE  4
00105  M01S00090.smp     +++|***       OPERATOR MESSAGES.
00106  M01S00091.smp     +++|*
00107  M01S00092.smp     +++|*
00108  M01S00093.smp     +++|*         NONE.
00109  M01S00094.smp     +++|          SPACE  4
00110  M01S00095.smp     +++|**        ROUTINES USED.
00111  M01S00096.smp     +++|*
00112  M01S00097.smp     +++|*
00113  M01S00098.smp     +++|*         NONE.
00114  M01S00099.smp     +++|          SPACE  4
00115  M01S00100.smp     +++|**        PROGRAMS CALLED.
00116  M01S00101.smp     +++|*
00117  M01S00102.smp     +++|*
00118  M01S00103.smp     +++|*         1AJ - ADVANCE JOB STATUS.
00119  M01S00104.smp     +++|          SPACE  4
00120  M01S00105.smp     +++|*CALL     COMPMAC
00121  M01S00106.smp     +++|*CALL     COMSCPS
00122  M01S00107.smp     +++|*CALL     COMSPIM
00123  M01S00108.smp     +++|          SPACE  4
00124  M01S00109.smp     +++|****      DIRECT LOCATION ASSIGNMENTS.
00125  M01S00110.smp     +++|
00126  M01S00111.smp     +++|
00127  M01S00112.smp     +++| CN       EQU    20 - 24     CM WORD BUFFER (5 LOCATIONS)
00128  M01S00113.smp     +++| RT       EQU    26          SAMPLE RATE
00129  M01S00114.smp     +++| RC       EQU    27          REAL TIME CLOCK
00130  M01S00115.smp     +++|
00131  M01S00116.smp     +++|
00132  M01S00117.smp     +++|*         ASSEMBLY CONSTANTS.
00133  M01S00118.smp     +++|
00134  M01S00119.smp     +++|
00135  M01S00120.smp     +++| FET      EQU    2           FET ADDRESS IN CM AREA
00136  M01S00121.smp     +++|****
00137  M01S00122.smp     +++|          TITLE  MAIN PROGRAM.
00138  M01S00123.smp     +++| SMP      SPACE  4
00139  M01S00124.smp     +++|**        SMP - MAIN PROGRAM.
00140  M01S00125.smp     +++|
00141  M01S00126.smp     +++|
00142  M01S00127.smp     +++|          ORG    PPFW
00143  M01S00128.smp     +++| SMP      RJM    PRS         PRESET PROGRAM
00144  M01S00129.smp     +++|          RJM    ISB         INITIALIZE SAMPLE BUFFER
00145  M01S00130.smp     +++|          MONITOR RCPM       REQUEST CPU
00146  M01S00131.smp     +++|          RJM    MNP         MONITOR P
00147  M01S00132.smp     +++|          LDC    RTCL        READ FINISH TIME
00148  M01S00133.smp     +++|          CRM    RTF,ON
00149  M01S00134.smp     +++|          LDD    CP          READ CPU TIME
00150  M01S00135.smp     +++|          ADN    CPTW
00151  M01S00136.smp     +++|          CRM    CTF,ON
00152  M01S00137.smp     +++|          RJM    WAC         WAIT FOR ACTIVITY TO COMPLETE
00153  M01S00138.smp     +++|          RJM    WPS         WRITE P-SAMPLES
00154  M01S00139.smp     +++| DPP      SPACE  4
00155  M01S00140.smp     +++|**        DPP - DROP PP.
00156  M01S00141.smp     +++|
00157  M01S00142.smp     +++|
00158  M01S00143.smp     +++| DPP      LDC    *
00159  M01S00144.smp     +++| DPPA     EQU    *-1         (*DIS* FLAG FROM CPA)
00160  M01S00145.smp     +++|          NJN    DPP1        IF *DIS* FLAG NOT CHANGED
00161  M01S00146.smp     +++|          LDN    10          SET MASK FOR *JCIW*
00162  M01S00147.smp     +++|          STD    CM+4
00163  M01S00148.smp     +++|          LDN    CCTS        CLEAR *DIS* FLAG IN CPA
00164  M01S00149.smp     +++|          STD    CM+1
00165  M01S00150.smp     +++|          MONITOR  SJCM
00166  M01S00151.smp     +++| DPP1     MONITOR  DPPM      DROP PP
00167  M01S00152.smp     +++|          LJM    PPR         EXIT TO PP RESIDENT
00168  M01S00153.smp     +++| MNP      SPACE  4
00169  M01S00154.smp     +++|**        MNP - MONITOR P.
00170  M01S00155.smp     +++|
00171  M01S00156.smp     +++|
00172  M01S00157.smp     +++| MNP      SUBR               ENTRY/EXIT
00173  M01S00158.smp     +++|          MONITOR RCLM       ENSURE RCPM COMPLETE
00174  M01S00159.smp     +++| MNP1     PAUSE
00175  M01S00160.smp     +++|          LDD    CM+1
00176  M01S00161.smp     +++|          NJN    MNPX        RETURN IF ERROR FLAG SET
00177  M01S00162.smp     +++|          LDD    CM          CHECK CPU STATUS
00178  M01S00163.smp     +++|          LPC    7000
00179  M01S00164.smp     +++|          ZJN    MNPX        RETURN IF NO CPU ACTIVITY
00180  M01S00165.smp     +++|          SHN    21-13
00181  M01S00166.smp     +++|          PJN    MNP2        IF CPU ACTIVE
00182  M01S00167.smp     +++|          SHN    6
00183  M01S00168.smp     +++|          LMN    5
00184  M01S00169.smp     +++|          NJN    MNP3        IF CPU NOT IN RECALL
00185  M01S00170.smp     +++|
00186  M01S00171.smp     +++|*         COUNT RECALL SAMPLES.
00187  M01S00172.smp     +++|
00188  M01S00173.smp     +++|          LDC    RCL         ADVANCE RECALL COUNT
00189  M01S00174.smp     +++|          LJM    MNP7        INCREMENT COUNTER
00190  M01S00175.smp     +++|
00191  M01S00176.smp     +++| MNP2     LDN    ZERL        READ CURRENT P ADDRESS
00192  M01S00177.smp     +++|          CRD    CM
00193  M01S00178.smp     +++|          MONITOR RPNM
00194  M01S00179.smp     +++|          LDD    CP          COMPARE CONTROL POINT NUMBERS
00195  M01S00180.smp     +++|          LMD    CM+2
00196  M01S00181.smp     +++|          NJN    MNP3        IF NOT EXECUTING AT THIS CONTROL POINT
00197  M01S00182.smp     +++|          LDD    CM+1
00198  M01S00183.smp     +++|          SHN    21-10
00199  M01S00184.smp     +++|          PJN    MNP4        IF SUBCONTROL POINT NOT ACTIVE
00200  M01S00185.smp     +++|          LDC    ASC         CPU ACTIVE AT SUBCONTROL POINT
00201  M01S00186.smp     +++|          UJN    MNP7        INCREMENT COUNTER
00202  M01S00187.smp     +++|
00203  M01S00188.smp     +++| MNP3     LDC    IAC         ADVANCE INACTIVE COUNT
00204  M01S00189.smp     +++|          UJN    MNP7        INCREMENT COUNTER
00205  M01S00190.smp     +++|
00206  M01S00191.smp     +++| MNP4     LDD    CM+3        ASSEMBLE P ADDRESS
00207  M01S00192.smp     +++|          SHN    14
00208  M01S00193.smp     +++|          LMD    CM+4
00209  M01S00194.smp     +++| MNPA     ADC    *           CHECK LOWER RANGE
00210  M01S00195.smp     +++|          PJN    MNP5        IF ABOVE FWA
00211  M01S00196.smp     +++|          LDC    BLR         ADVANCE BELOW RANGE COUNT
00212  M01S00197.smp     +++|          UJN    MNP7        INCREMENT COUNTER
00213  M01S00198.smp     +++|
00214  M01S00199.smp     +++| MNP5     BSS    0
00215  M01S00200.smp     +++| MNPB     SHN    -0          SET INTERVAL
00216  M01S00201.smp     +++|          STD    T2
00217  M01S00202.smp     +++|          SHN    -7
00218  M01S00203.smp     +++|          ZJN    MNP6        IF BELOW LWA
00219  M01S00204.smp     +++|          LDC    ABR         ADVANCE ABOVE RANGE COUNT
00220  M01S00205.smp     +++|          UJN    MNP7        INCREMENT COUNTER
00221  M01S00206.smp     +++|
00222  M01S00207.smp     +++| MNP6     LDD    T2          SET WORD INDEX
00223  M01S00208.smp     +++|          SHN    2
00224  M01S00209.smp     +++|          ADD    T2
00225  M01S00210.smp     +++|          ADC    PSM
00226  M01S00211.smp     +++|
00227  M01S00212.smp     +++|*         INCREMENT 36-BIT COUNTER.
00228  M01S00213.smp     +++|
00229  M01S00214.smp     +++| MNP7     STD    T1
00230  M01S00215.smp     +++|          AOM    4,T1
00231  M01S00216.smp     +++|          SHN    -14
00232  M01S00217.smp     +++|          RAM    3,T1
00233  M01S00218.smp     +++|          SHN    -14
00234  M01S00219.smp     +++|          RAM    2,T1
00235  M01S00220.smp     +++|          RJM    PSE         PAUSE TO MAKE SAMPLE TIME CONSTANT
00236  M01S00221.smp     +++|          LJM    MNP1        LOOP FOR NEXT SAMPLE
00237  M01S00222.smp     +++|          TITLE  SUBROUTINES.
00238  M01S00223.smp     +++| ABT      SPACE  4
00239  M01S00224.smp     +++|**        ABT - ABORT JOB.
00240  M01S00225.smp     +++|*
00241  M01S00226.smp     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
00242  M01S00227.smp     +++|*
00243  M01S00228.smp     +++|*         EXIT   NONE.
00244  M01S00229.smp     +++|
00245  M01S00230.smp     +++|
00246  M01S00231.smp     +++| ABT      RJM    DFM         ISSUE MESSAGE
00247  M01S00232.smp     +++|          LDC    *
00248  M01S00233.smp     +++| ABTA     EQU    *-1         (*DIS* FLAG FROM CPA)
00249  M01S00234.smp     +++|          NJN    ABT1        IF *DIS* FLAG NOT CHANGED
00250  M01S00235.smp     +++|          LDN    10          SET MASK FOR *JCIW*
00251  M01S00236.smp     +++|          STD    CM+4
00252  M01S00237.smp     +++|          LDN    CCTS        CLEAR *DIS* FLAG IN CPA
00253  M01S00238.smp     +++|          STD    CM+1
00254  M01S00239.smp     +++|          MONITOR  SJCM
00255  M01S00240.smp     +++| ABT1     MONITOR  ABTM      ABORT JOB
00256  M01S00241.smp     +++|          LJM    PPR         EXIT TO PP RESIDENT
00257  M01S00242.smp     +++| ISB      SPACE  4
00258  M01S00243.smp     +++|**        ISB - INITIALIZE SAMPLE BUFFER.
00259  M01S00244.smp     +++|*
00260  M01S00245.smp     +++|*         ENTRY  NONE.
00261  M01S00246.smp     +++|*
00262  M01S00247.smp     +++|*         EXIT   NONE.
00263  M01S00248.smp     +++|*
00264  M01S00249.smp     +++|*         USES   T1, T2.
00265  M01S00250.smp     +++|*
00266  M01S00251.smp     +++|*         CALLS  NONE.
00267  M01S00252.smp     +++|
00268  M01S00253.smp     +++|
00269  M01S00254.smp     +++| ISB      SUBR               ENTRY/EXIT

Line S00255 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00270  M02S00255.v23l617 ---|          LDC    CCD-5       SET CONTROL CARD ADDRESS
00271  M01S00006.v23l617 +++|          LDC    CCD-5       SET COMMAND ADDRESS
00272  M01S00256.smp     +++|          STD    T1
00273  M01S00257.smp     +++|          LDN    MS1W
00274  M01S00258.smp     +++|          STD    T2
00275  M01S00259.smp     +++| ISB1     LDN    5           ADVANCE READ ADDRESS
00276  M01S00260.smp     +++|          RAD    T1          SET READ ADDRESS
00277  M01S00261.smp     +++|          STM    ISBA+1

Line S00262 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00262.v23l617 ---|          LDD    CP          READ CONTROL CARD WORD
00279  M01S00007.v23l617 +++|          LDD    CP          READ COMMAND WORD
00280  M01S00263.smp     +++|          ADD    T2
00281  M01S00264.smp     +++| ISBA     CRM    *,ON
00282  M01S00265.smp     +++|          LDM    4,T1        CHECK WORD

Line S00266 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00266.v23l617 ---|          ZJN    ISB2        IF END OF CONTROL CARD
00284  M01S00008.v23l617 +++|          ZJN    ISB2        IF END OF COMMAND
00285  M01S00267.smp     +++|          AOD    T2
00286  M01S00268.smp     +++|          LMN    MS1W+10
00287  M01S00269.smp     +++|          NJN    ISB1        LOOP TO END OF MESSAGE
00288  M01S00270.smp     +++| ISB2     LDN    DTEL        READ DATE
00289  M01S00271.smp     +++|          CRM    DTE,ON
00290  M01S00272.smp     +++|          LDN    TIML        READ TIME
00291  M01S00273.smp     +++|          CRM    TIM,ON
00292  M01S00274.smp     +++|          LDC    128D*5      CLEAR SAMPLE BUFFER
00293  M01S00275.smp     +++|          STD    T1
00294  M01S00276.smp     +++| ISB3     LDN    0
00295  M01S00277.smp     +++|          STM    PSM-1,T1
00296  M01S00278.smp     +++|          SOD    T1
00297  M01S00279.smp     +++|          NJN    ISB3
00298  M01S00280.smp     +++|          LDC    RTCL        READ START TIME
00299  M01S00281.smp     +++|          CRM    RTS,ON
00300  M01S00282.smp     +++|          LDD    CP
00301  M01S00283.smp     +++|          ADN    CPTW
00302  M01S00284.smp     +++|          CRM    CTS,ON
00303  M01S00285.smp     +++|          LJM    ISBX        RETURN
00304  M01S00286.smp     +++| PSE      SPACE  4,10
00305  M01S00287.smp     +++|**        PSE - PAUSE TO MAKE SAMPLE TIME CONSTANT.
00306  M01S00288.smp     +++|*
00307  M01S00289.smp     +++|*         ENTRY  (RC) - PREVIOUS REAL TIME CLOCK VALUE.
00308  M01S00290.smp     +++|*                (RT) - SAMPLE RATE (MILLISECONDS).
00309  M01S00291.smp     +++|*
00310  M01S00292.smp     +++|*         EXIT   (RC) - REAL TIME CLOCK UPON EXIT.
00311  M01S00293.smp     +++|*
00312  M01S00294.smp     +++|*         USES   T1, CM - CM+4.
00313  M01S00295.smp     +++|
00314  M01S00296.smp     +++|
00315  M01S00297.smp     +++| PSE4     LDD    CM+4
00316  M01S00298.smp     +++|          STD    RC          SAVE NEW REAL TIME CLOCK SETTING
00317  M01S00299.smp     +++|
00318  M01S00300.smp     +++| PSE      SUBR               ENTRY/EXIT
00319  M01S00301.smp     +++|
00320  M01S00302.smp     +++| PSE1     LDC    RTCL        READ REAL TIME CLOCK
00321  M01S00303.smp     +++|          CRD    CM
00322  M01S00304.smp     +++|          LDD    CM+4
00323  M01S00305.smp     +++|          SBD    RC
00324  M01S00306.smp     +++|          PJN    PSE2        IF NO OVERFLOW
00325  M01S00307.smp     +++|          ADC    10000
00326  M01S00308.smp     +++| PSE2     SBD    RT
00327  M01S00309.smp     +++|          PJN    PSE4        IF DELAY COMPLETED
00328  M01S00310.smp     +++|          LMC    -0
00329  M01S00311.smp     +++|          STD    T1
00330  M01S00312.smp     +++| PSE3     LDC    300D
00331  M01S00313.smp     +++|          SBN    1
00332  M01S00314.smp     +++|          NJN    *-1
00333  M01S00315.smp     +++|          SOD    T1
00334  M01S00316.smp     +++|          NJN    PSE3        IF DELAY NOT COMPLETE
00335  M01S00317.smp     +++|          UJN    PSE1        CHECK PAUSE COMPLETE
00336  M01S00318.smp     +++| WAC      SPACE  4,10
00337  M01S00319.smp     +++|**        WAC - WAIT FOR ACTIVITY TO COMPLETE.
00338  M01S00320.smp     +++|*
00339  M01S00321.smp     +++|*         EXIT   NO PP-S IN RECALL.
00340  M01S00322.smp     +++|*                NO PP-S ASSIGNED EXCEPT *SMP* AND POSSIBLY ONE *DIS*
00341  M01S00323.smp     +++|*                            TYPE PP (DETERMINED BY *DIS* FLAG).
00342  M01S00324.smp     +++|*
00343  M01S00006.smp5    +++|*         ERROR  TO *ABT* IF ROLLOUT REQUESTED.
00344  M01S00007.smp5    +++|*                TO *DPP* IF OVERRIDE ERROR FLAG SET.
00345  M01S00008.smp5    +++|*
00346  M01S00325.smp     +++|*         USES   T1, CM - CM+4.
00347  M01S00326.smp     +++|
00348  M01S00327.smp     +++|
00349  M01S00328.smp     +++| WAC      SUBR               ENTRY/EXIT

Line S00329 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp3`

Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00329.smp3    ---|          LDD    CP          CHECK FOR *DIS* FLAG

Line S00330 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp3`

Seq #  *Modification Id* Act 
----------------------------+
00351  M02S00330.smp3    ---|          ADN    JCIW

Line S00331 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp3`

Seq #  *Modification Id* Act 
----------------------------+
00352  M02S00331.smp3    ---|          CRD    CM

Line S00332 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp3`

Seq #  *Modification Id* Act 
----------------------------+
00353  M02S00332.smp3    ---|          LDD    CM+3

Line S00333 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp3`

Seq #  *Modification Id* Act 
----------------------------+
00354  M02S00333.smp3    ---|          SHN    -11

Line S00334 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp3`

Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00334.smp3    ---|          LPN    1

Line S00335 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp3`

Seq #  *Modification Id* Act 
----------------------------+
00356  M02S00335.smp3    ---|          STD    T1
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` (Added by)	`smp`
`M02` (Updated by)	`smp5`

Seq #  *Modification Id* Act 
----------------------------+
00361  M02S00336.smp5    ---| WAC1     PAUSE              CHECK FOR PP OR TAPE ACTIVITY

Line S00337 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp5`

Seq #  *Modification Id* Act 
----------------------------+
00362  M02S00337.smp5    ---|          LDD    CM+4
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  M01S00338.smp     +++|          SHN    -4
00372  M01S00339.smp     +++|          NJN    WAC1        IF PP RECALL OR TAPE ACTIVITY
00373  M01S00340.smp     +++|          LDD    CM
00374  M01S00341.smp     +++|          LPN    77

Line S00342 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp3`

Seq #  *Modification Id* Act 
----------------------------+
00375  M02S00342.smp3    ---|          SBN    1           DISCOUNT *SMP*

Line S00343 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp3`

Seq #  *Modification Id* Act 
----------------------------+
00376  M02S00343.smp3    ---|          SBD    T1          DISCOUNT *DIS*, IF *DIS* FLAG SET

Line S00344 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp3`

Seq #  *Modification Id* Act 
----------------------------+
00377  M02S00344.smp3    ---|          NJN    WAC1        IF PP ACTIVITY REMAINS
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  M01S00345.smp     +++|          UJN    WACX        RETURN
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  M01S00346.smp     +++| WPS      SPACE  4
00390  M01S00347.smp     +++|**        WPS - WRITE P-SAMPLES.
00391  M01S00348.smp     +++|
00392  M01S00349.smp     +++|
00393  M01S00350.smp     +++| WPS      SUBR               ENTRY/EXIT
00394  M01S00351.smp     +++|          LDD    FL          CHECK FIELD LENGTH
00395  M01S00352.smp     +++|          SHN    6
00396  M01S00353.smp     +++|          ADC    -FET-BUFL
00397  M01S00354.smp     +++|          PJN    WPS1        IF ROOM FOR SAMPLE DATA
00398  M01S00355.smp     +++|          LDC    =C* FL TOO SHORT FOR SAMPLES.*
00399  M01S00356.smp     +++|          RJM    DFM
00400  M01S00357.smp     +++|          LJM    DPP         DROP PP
00401  M01S00358.smp     +++|
00402  M01S00359.smp     +++| WPS1     LDC    BUFL        SET WORD COUNT
00403  M01S00360.smp     +++|          STD    T1
00404  M01S00361.smp     +++|          LDD    RA
00405  M01S00362.smp     +++|          SHN    6
00406  M01S00363.smp     +++|          ADN    FET
00407  M01S00364.smp     +++|          CRM    TBUF,T1     SAVE CP FL
00408  M01S00365.smp     +++|          ADC    -BUFL
00409  M01S00366.smp     +++|          CWM    BUF,T1
00410  M01S00367.smp     +++|          EXECUTE  CIO,=     CALL *CIO*
00411  M01S00368.smp     +++| WPS2     LDD    MA          SET *RPPM* PARAMETERS
00412  M01S00369.smp     +++|          CWM    WPSA,ON
00413  M01S00370.smp     +++|          LDN    ZERL
00414  M01S00371.smp     +++|          CRD    CM
00415  M01S00372.smp     +++|          LDD    MA          CLEAR MB+1
00416  M01S00373.smp     +++|          ADN    1
00417  M01S00374.smp     +++|          CWD    CM
00418  M01S00375.smp     +++|          MONITOR  RPPM
00419  M01S00376.smp     +++|          LDD    CM+1
00420  M01S00377.smp     +++|          NJN    WPS4        IF PP ASSIGNED
00421  M01S00378.smp     +++|          PAUSE
00422  M01S00379.smp     +++|          LDD    CM+1
00423  M01S00380.smp     +++|          ZJN    WPS2        IF ERROR FLAG CLEAR
00424  M01S00381.smp     +++|          LMN    ORET
00425  M01S00382.smp     +++|          NJN    WPS2        IF NOT OVERRIDE
00426  M01S00383.smp     +++| WPS3     LJM    DPP         DROP PP
00427  M01S00384.smp     +++|
00428  M01S00385.smp     +++| WPS4     PAUSE
00429  M01S00386.smp     +++|          LDD    CM+1
00430  M01S00387.smp     +++|          ZJN    WPS5        IF NO ERROR
00431  M01S00388.smp     +++|          LMN    ORET
00432  M01S00389.smp     +++|          ZJN    WPS3        IF OVERRIDE
00433  M01S00390.smp     +++| WPS5     LDD    RA
00434  M01S00391.smp     +++|          SHN    6
00435  M01S00392.smp     +++|          ADN    FET+1
00436  M01S00393.smp     +++|          CRD    CM
00437  M01S00394.smp     +++|          LDD    CM+4
00438  M01S00395.smp     +++|          SHN    21-0
00439  M01S00396.smp     +++|          PJN    WPS4        IF NOT COMPLETE
00440  M01S00397.smp     +++|          LDD    RA
00441  M01S00398.smp     +++|          SHN    6
00442  M01S00399.smp     +++|          ADN    FET
00443  M01S00400.smp     +++|          CWM    TBUF,T1
00444  M01S00401.smp     +++|          UJN    WPS3        DROP PP
00445  M01S00402.smp     +++|
00446  M01S00403.smp     +++| WPSA     VFD    18/0LCIO,6/0,18/0,18/FET+1
00447  M01S00404.smp     +++|          SPACE  4,10
00448  M01S00405.smp     +++|*         COMMON DECKS.
00449  M01S00406.smp     +++|
00450  M01S00407.smp     +++|
00451  M01S00408.smp     +++| IFP$     EQU    1           ASSEMBLE REMOTE INITIALIZATION CODE
00452  M01S00409.smp     +++| EJT$     EQU    1           INITIALIZE EJT PROCESSING
00453  M01S00410.smp     +++|*CALL     COMPGFP
00454  M01S00411.smp     +++|          SPACE  4
00455  M01S00412.smp     +++|**        SAMPLE BUFFERS.
00456  M01S00413.smp     +++|
00457  M01S00414.smp     +++|
00458  M01S00415.smp     +++|          USE    BUFFERS
00459  M01S00416.smp     +++| BUF      VFD    60/
00460  M01S00417.smp     +++|
00461  M01S00418.smp     +++|*         FET FOR *PSAMPL* FILE.
00462  M01S00419.smp     +++|
00463  M01S00420.smp     +++|          VFD    42/0LPSAMPL,18/26
00464  M01S00421.smp     +++|          VFD    60/FET+6
00465  M01S00422.smp     +++|          VFD    60/FET+BUFL
00466  M01S00423.smp     +++|          VFD    60/FET+6
00467  M01S00424.smp     +++|          VFD    60/FET+BUFL+1
00468  M01S00425.smp     +++|

Line S00426 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00426.v23l617 ---| CCD      BSS    8D*5        CONTROL CARD
00470  M01S00009.v23l617 +++| CCD      BSS    8D*5        COMMAND
00471  M01S00427.smp     +++| DTE      VFD    60/         DATE
00472  M01S00428.smp     +++| TIM      VFD    60/         TIME
00473  M01S00429.smp     +++| RTS      VFD    60/         REAL TIME CLOCK AT START
00474  M01S00430.smp     +++| RTF      VFD    60/         REAL TIME CLOCK AT FINISH
00475  M01S00431.smp     +++| CTS      VFD    60/         CPU TIME AT START
00476  M01S00432.smp     +++| CTF      VFD    60/         CPU TIME AT FINISH
00477  M01S00433.smp     +++| FWA      VFD    60/         FWA
00478  M01S00434.smp     +++| LWA      VFD    60/         LWA
00479  M01S00435.smp     +++| IAC      VFD    60/         CPU NOT ACTIVE ON JOB COUNT
00480  M01S00436.smp     +++| RCL      VFD    60/         CPU IN RECALL COUNT
00481  M01S00437.smp     +++| BLR      VFD    60/         CPU ACTIVE AND BELOW SAMPLE RANGE
00482  M01S00438.smp     +++| ABR      VFD    60/         CPU ACTIVE AND ABOVE SAMPLE RANGE
00483  M01S00439.smp     +++| ASC      VFD    60/         CPU ACTIVE AT SUB-CP
00484  M01S00440.smp     +++|
00485  M01S00441.smp     +++| PSM      BSS    0           COUNTS FOR P-REGISTER IN THIS RANGE
00486  M01S00442.smp     +++|
00487  M01S00443.smp     +++| .1       SET    *-BUF+128D*5
00488  M01S00444.smp     +++| BUFL     EQU    .1/5
00489  M01S00445.smp     +++|
00490  M01S00446.smp     +++| TBUF     EQU    BUF+BUFL*5  FWA OF TEMPORARY FL SAVE BUFFER
00491  M01S00447.smp     +++|
00492  M01S00448.smp     +++|          ERRNG  7777B-TBUF-BUFL*5  NOT ENOUGH BUFFER SPACE
00493  M01S00449.smp     +++| PRS      TITLE  PRESET.
00494  M01S00450.smp     +++|**        PRS - PRESET PROGRAM.
00495  M01S00451.smp     +++|
00496  M01S00452.smp     +++|
00497  M01S00453.smp     +++| PRS      SUBR               ENTRY/EXIT
00498  M01S00454.smp     +++|          RJM    IFP         INITIALIZE FNT PROCESSOR
00499  M01S00455.smp     +++|          LDD    CP          DETERMINE IF *DIS* FLAG SET
00500  M01S00456.smp     +++|          ADN    JCIW
00501  M01S00457.smp     +++|          CRD    CM
00502  M01S00458.smp     +++|          LDD    CM+3
00503  M01S00459.smp     +++|          SHN    -6
00504  M01S00460.smp     +++|          LPN    10
00505  M01S00461.smp     +++|          STM    DPPA
00506  M01S00462.smp     +++|          STM    ABTA
00507  M01S00463.smp     +++|          NJN    PRS1        IF *DIS* FLAG SET

Line S00464 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp4`

Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00464.smp4    ---|          LDN    10          SET MASK OF *JCIW*

Line S00465 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp4`

Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00465.smp4    ---|          STD    CM+4

Line S00466 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp4`

Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00466.smp4    ---|          LDN    SCTS        SET *DIS* FLAG IN CPA

Line S00467 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp4`

Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00467.smp4    ---|          STD    CM+1

Line S00468 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`smp4`

Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00468.smp4    ---|          MONITOR  SJCM
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  M01S00469.smp     +++|
00531  M01S00470.smp     +++|*         CHECK RANGE PARAMETERS.
00532  M01S00471.smp     +++|
00533  M01S00472.smp     +++| PRS1     RJM    CUA         CHECK USER ACCESS
00534  M01S00473.smp     +++|          ZJN    PRS2        IF VALID ACCESS

Line S00474 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00535  M02S00474.v23l617 ---|          LDC    =C* ILLEGAL USER ACCESS.*
00536  M01S00010.v23l617 +++|          LDC    =C* USER ACCESS NOT VALID.*
00537  M01S00475.smp     +++|          LJM    ABT         ABORT CALLING PROGRAM
00538  M01S00476.smp     +++|
00539  M01S00477.smp     +++| PRS2     LDD    IA          COPY INPUT REGISTER TO CM
00540  M01S00478.smp     +++|          CRD    CM
00541  M01S00479.smp     +++|          LDN    10D         SET SAMPLE RATE TO 10 MS
00542  M01S00480.smp     +++|          STD    CM
00543  M01S00481.smp     +++|          LDD    CM+2
00544  M01S00482.smp     +++|          SHN    21-13
00545  M01S00483.smp     +++|          PJN    PRS5        IF REQUEST IS OF FORM 1
00546  M01S00484.smp     +++|          LDD    IR+3        GET THE PARAMETER ADDRESS
00547  M01S00485.smp     +++|          LPN    77
00548  M01S00486.smp     +++|          STD    IR+3
00549  M01S00487.smp     +++|          SHN    14
00550  M01S00488.smp     +++|          LMD    IR+4
00551  M01S00489.smp     +++|          MJN    PRS3        IF NEGATIVE ADDRESS
00552  M01S00490.smp     +++|          SHN    -6
00553  M01S00491.smp     +++|          SBD    FL
00554  M01S00492.smp     +++|          MJN    PRS4        IF WITHIN FL OF CALLER
00555  M01S00493.smp     +++| PRS3     LDC    =C* PARAMETER ADDRESS ERROR.*
00556  M01S00494.smp     +++|          LJM    ABT         ABORT SMP
00557  M01S00495.smp     +++|
00558  M01S00496.smp     +++| PRS4     LDD    IR+3        READ PARAMETER OF FORM 2 REQUEST
00559  M01S00497.smp     +++|          SHN    6
00560  M01S00498.smp     +++|          ADD    RA
00561  M01S00499.smp     +++|          SHN    6
00562  M01S00500.smp     +++|          ADD    IR+4
00563  M01S00501.smp     +++|          CRD    CM
00564  M01S00502.smp     +++| PRS5     LDD    CM+3        SET FWA
00565  M01S00503.smp     +++|          SCN    77
00566  M01S00504.smp     +++|          SHN    6
00567  M01S00505.smp     +++|          LMD    CM+2
00568  M01S00506.smp     +++|          SHN    6
00569  M01S00507.smp     +++|          STD    T2
00570  M01S00508.smp     +++|          STM    FWA+4
00571  M01S00509.smp     +++|          STM    LWA+4
00572  M01S00510.smp     +++|          SHN    -14
00573  M01S00511.smp     +++|          STD    T1
00574  M01S00512.smp     +++|          STM    FWA+3
00575  M01S00513.smp     +++|          STM    LWA+3
00576  M01S00514.smp     +++|          LDD    CM+3        SET LWA
00577  M01S00515.smp     +++|          LPN    77
00578  M01S00516.smp     +++|          STD    IR+3
00579  M01S00517.smp     +++|          SBD    T1          CHECK LWA-FWA
00580  M01S00518.smp     +++|          SHN    14
00581  M01S00519.smp     +++|          ADD    CM+4
00582  M01S00520.smp     +++|          SBD    T2
00583  M01S00521.smp     +++|          SBN    1
00584  M01S00522.smp     +++|          PJN    PRS6        IF LWA .GE. FWA
00585  M01S00523.smp     +++|          LDC    =C* SAMPLE FWA .GE. LWA.*
00586  M01S00524.smp     +++|          LJM    ABT
00587  M01S00525.smp     +++|
00588  M01S00526.smp     +++| PRS6     SHN    -7          SET RANGE .GE. 12B
00589  M01S00527.smp     +++|          STD    T4
00590  M01S00528.smp     +++|          LDN    1
00591  M01S00529.smp     +++|          STD    T3
00592  M01S00530.smp     +++| PRS7     LDD    T4          SET RANGE TO NEXT HIGHER POWER OF 2
00593  M01S00531.smp     +++|          ZJN    PRS8        IF ZERO
00594  M01S00532.smp     +++|          SHN    -1
00595  M01S00533.smp     +++|          STD    T4
00596  M01S00534.smp     +++|          SOM    MNPB
00597  M01S00535.smp     +++|          LDD    T3
00598  M01S00536.smp     +++|          SHN    1
00599  M01S00537.smp     +++|          STD    T3
00600  M01S00538.smp     +++|          UJN    PRS7        LOOP
00601  M01S00539.smp     +++|
00602  M01S00540.smp     +++| PRS8     LDC    ADCI+77     SET LOWER LIMIT
00603  M01S00541.smp     +++|          LMD    T1
00604  M01S00542.smp     +++|          STM    MNPA
00605  M01S00543.smp     +++|          LCN    0
00606  M01S00544.smp     +++|          LMD    T2
00607  M01S00545.smp     +++|          STM    MNPA+1
00608  M01S00546.smp     +++|          LDD    T3          SET UPPER LIMIT IN SAMPLE FILE
00609  M01S00547.smp     +++|          SHN    7
00610  M01S00548.smp     +++|          RAM    LWA+4
00611  M01S00549.smp     +++|          SHN    -14
00612  M01S00550.smp     +++|          RAM    LWA+3
00613  M01S00551.smp     +++|          LDD    CM+4
00614  M01S00552.smp     +++|          STD    IR+4
00615  M01S00553.smp     +++|          LDD    CM          SAVE SAMPLE RATE
00616  M01S00554.smp     +++|          STD    RT
00617  M01S00555.smp     +++|
00618  M01S00556.smp     +++|*         CHECK CALL TYPE.
00619  M01S00557.smp     +++|
00620  M01S00558.smp     +++|          PAUSE
00621  M01S00559.smp     +++|          LDD    CM          CHECK CPU STATUS
00622  M01S00560.smp     +++|          SHN    -11
00623  M01S00561.smp     +++|          ZJN    PRS12       IF CPU NOT ACTIVE
00624  M01S00562.smp     +++|          RJM    CRS         CHECK RECALL STATUS
00625  M01S00563.smp     +++|          NJN    PRS10       IF AUTO RECALL REQUEST

Line S00564 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00626  M02S00564.v23l617 ---|          LDC    =C* ILLEGAL SMP REQUEST.*
00627  M01S00011.v23l617 +++|          LDC    =C* INCORRECT SMP REQUEST.*
00628  M01S00565.smp     +++|          LJM    ABT
00629  M01S00566.smp     +++|

Line S00567 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00567.v23l617 ---| PRS9     LDC    =C* ILLEGAL SAMPLE RATE.*
00631  M01S00012.v23l617 +++| PRS9     LDC    =C* INCORRECT SAMPLE RATE.*
00632  M01S00568.smp     +++|          LJM    ABT         ABORT
00633  M01S00569.smp     +++|

Line S00570 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`ns2107`

Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00570.ns2107  ---| PRS10    MONITOR  DCPM      DROP CPU
00635  M01S00001.ns2107  +++| PRS10    LDN    0
00636  M01S00002.ns2107  +++|          STD    CM+1
00637  M01S00003.ns2107  +++|          MONITOR  DCPM      DROP CPU

Line S00571 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00571.v23l617 ---| PRS11    LDN    ZERL        CLEAR (RA+1)
00639  M01S00013.v23l617 +++| PRS11    LDN    ZERL        CLEAR SYSTEM REQUEST (RA+1)
00640  M01S00572.smp     +++|          CRD    CM
00641  M01S00573.smp     +++|          LDD    RA
00642  M01S00574.smp     +++|          SHN    6
00643  M01S00575.smp     +++|          ADN    1
00644  M01S00576.smp     +++|          CWD    CM
00645  M01S00577.smp     +++|          LDD    RT          CHECK RATE RANGE
00646  M01S00578.smp     +++|          SBN    1
00647  M01S00579.smp     +++|          MJN    PRS9        IF LESS THAN 1
00648  M01S00580.smp     +++|          SBN    50D
00649  M01S00581.smp     +++|          PJN    PRS9        IF GREATER THAN 50
00650  M01S00582.smp     +++|          LJM    PRSX        RETURN
00651  M01S00583.smp     +++|
00652  M01S00584.smp     +++| PRS12    RJM    CRP         CHECK FOR RATE PARAMETER
00653  M01S00585.smp     +++|          LDD    RT
00654  M01S00586.smp     +++|          SBN    1
00655  M01S00587.smp     +++|          MJN    PRS9        IF RATE .LT. 1
00656  M01S00588.smp     +++|          SBN    50D
00657  M01S00589.smp     +++|          PJN    PRS9        IF RATE .GT. 50D
00658  M01S00590.smp     +++|

Line S00591 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00591.v23l617 ---|*         CALL NEXT CONTROL STATEMENT.
00660  M01S00014.v23l617 +++|*         CALL NEXT COMMAND.
00661  M01S00592.smp     +++|
00662  M01S00593.smp     +++|          LDD    CP          ENTER CONTROL POINT IN *1AJ* REQUEST
00663  M01S00594.smp     +++|          SHN    -7
00664  M01S00595.smp     +++|          RAM    PRSA+1
00665  M01S00596.smp     +++| PRS13    LDD    FL          ENSURE SOME CM ASSIGNED TO JOB
00666  M01S00597.smp     +++|          NJN    PRS14       IF JOB HAS CM ASSIGNED
00667  M01S00598.smp     +++|          STD    CM+2        SET CM REQUEST
00668  M01S00599.smp     +++|          LDN    1           REQUEST 100B WORDS CM
00669  M01S00600.smp     +++|          STD    CM+1
00670  M01S00601.smp     +++|          MONITOR RSTM
00671  M01S00602.smp     +++|          PAUSE
00672  M01S00603.smp     +++|          LDD    CM+1
00673  M01S00604.smp     +++|          ZJN    PRS13       IF ERROR FLAG CLEAR
00674  M01S00605.smp     +++|          LJM    DPP
00675  M01S00606.smp     +++|
00676  M01S00607.smp     +++| PRS14    LDN    ZERL        CLEAR (RA+PGNR)
00677  M01S00608.smp     +++|          CRD    CM
00678  M01S00609.smp     +++|          LDD    RA
00679  M01S00610.smp     +++|          SHN    6
00680  M01S00611.smp     +++|          ADN    PGNR
00681  M01S00612.smp     +++|          CWD    CM
00682  M01S00613.smp     +++|          LDD    MA
00683  M01S00614.smp     +++|          CWM    PRSB,ON
00684  M01S00615.smp     +++|          LDN    ZERL
00685  M01S00616.smp     +++|          CRD    CM
00686  M01S00617.smp     +++|          LDN    40+1        INTERLOCK EJT AND SET JOB ADVANCE
00687  M01S00618.smp     +++|          STD    CM+1
00688  M01S00619.smp     +++|          LDD    CP          SET JOB EJTO
00689  M01S00620.smp     +++|          ADN    TFSW
00690  M01S00621.smp     +++|          CRD    T1
00691  M01S00622.smp     +++|          LDD    T1
00692  M01S00623.smp     +++|          STM    PRSC
00693  M01S00624.smp     +++|          SFA    EJT
00694  M01S00625.smp     +++|          STD    CM+4        INTERLOCK EJT ENTRY
00695  M01S00626.smp     +++|          SHN    -14
00696  M01S00627.smp     +++|          STD    CM+3
00697  M01S00628.smp     +++|          MONITOR  UTEM      UPDATE CONTROL POINT AREA
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  M01S00629.smp     +++|          EXECUTE 1AJ,=      CALL *1AJ*
00706  M01S00630.smp     +++| PRS15    LDD    MA          REQUEST PP
00707  M01S00631.smp     +++|          CWM    PRSA,ON
00708  M01S00632.smp     +++|          LDN    1           SET PRIORITY PP REQUEST
00709  M01S00633.smp     +++|          STD    CM+1
00710  M01S00634.smp     +++|          MONITOR RPPM
00711  M01S00635.smp     +++|          LDD    CM+1        SET PP ASSIGNMENT
00712  M01S00636.smp     +++|          STD    T1

Line S00637 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00713  M02S00637.ns21000 ---|          NJN    PRS16       IF PP ASSIGNED
00714  M01S00001.ns21000 +++|          NJP    PRS16       IF PP ASSIGNED
00715  M01S00638.smp     +++|          PAUSE
00716  M01S00639.smp     +++|          LDD    CM+1
00717  M01S00640.smp     +++|          ZJN    PRS15       IF ERROR FLAG CLEAR LOOP
00718  M01S00641.smp     +++|          LDN    0           CLEAR JOB ADVANCE FLAG
00719  M01S00642.smp     +++|          STM    PRSB+4
00720  M01S00643.smp     +++|          LDD    MA
00721  M01S00644.smp     +++|          CWM    PRSB,ON
00722  M01S00645.smp     +++|          LDN    ZERL
00723  M01S00646.smp     +++|          CRD    CM
00724  M01S00647.smp     +++|          LDN    40+1        INTERLOCK EJT AND CLEAR JOB ADVANCE
00725  M01S00648.smp     +++|          STD    CM+1
00726  M01S00649.smp     +++|          LDC    *
00727  M01S00650.smp     +++| PRSC     EQU    *-1         (EJTO)
00728  M01S00651.smp     +++|          SFA    EJT
00729  M01S00652.smp     +++|          STD    CM+4        INTERLOCK EJT ENTRY
00730  M01S00653.smp     +++|          SHN    -14
00731  M01S00654.smp     +++|          STD    CM+3
00732  M01S00655.smp     +++|          MONITOR  UTEM      UPDATE CONTROL POINT AREA
00733  M01S00656.smp     +++|          LJM    DPP         DROP PP
00734  M01S00657.smp     +++|
00735  M01S00658.smp     +++| PRS16    LDD    T1          READ INPUT REGISTER
00736  M01S00659.smp     +++|          CRD    CM
00737  M01S00660.smp     +++|          LDD    CM+1
00738  M01S00661.smp     +++|          LPN    37
00739  M01S00662.smp     +++|          SHN    7
00740  M01S00663.smp     +++|          LMD    CP
00741  M01S00664.smp     +++|          NJN    PRS18       IF *1AJ* FINISHED
00742  M01S00665.smp     +++|          PAUSE
00743  M01S00666.smp     +++|          LDD    CM+1
00744  M01S00667.smp     +++|          ZJN    PRS16       IF ERROR FLAG CLEAR LOOP
00745  M01S00668.smp     +++| PRS17    LJM    DPP         DROP PP
00746  M01S00669.smp     +++|
00747  M01S00670.smp     +++| PRS18    LDD    RA          READ (RA+PGNR)
00748  M01S00671.smp     +++|          SHN    6
00749  M01S00672.smp     +++|          ADN    PGNR
00750  M01S00673.smp     +++|          CRD    CM
00751  M01S00674.smp     +++|          LDD    CM
00752  M01S00675.smp     +++|          ZJN    PRS17       IF CPU PROGRAM NOT LOADED
00753  M01S00676.smp     +++| PRS19    PAUSE              WAIT FOR LOADER TO COMPLETE
00754  M01S00677.smp     +++|          LDD    CM+1
00755  M01S00678.smp     +++|          NJN    PRS17       IF ERROR FLAG SET
00756  M01S00679.smp     +++|          LDD    CM
00757  M01S00680.smp     +++|          SHN    -11
00758  M01S00681.smp     +++|          NJN    PRS19       IF LOADER STILL RUNNING

Line S00682 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00759  M02S00682.v23l617 ---|          LJM    PRS11       CLEAR (RA+1)
00760  M01S00015.v23l617 +++|          LJM    PRS11       CLEAR SYSTEM REQUEST
00761  M01S00683.smp     +++|
00762  M01S00684.smp     +++| PRSA     VFD    18/0L1AJ,6/0,12/2,12/0,12/1
00763  M01S00685.smp     +++| PRSB     VFD    12/1,12/600,36/1  JOB ADVANCE FLAG
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  M01S00686.smp     +++| CRP      SPACE  4,10
00767  M01S00687.smp     +++|**        CRP - CHECK FOR RATE PARAMETER.
00768  M01S00688.smp     +++|*

Line S00689 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00769  M02S00689.v23l617 ---|*         CHECKS THE *SMP* CONTROL STATEMENT FOR THE RATE PARAMETER.
00770  M01S00016.v23l617 +++|*         CHECKS THE *SMP* COMMAND FOR THE RATE PARAMETER.
00771  M01S00690.smp     +++|*
00772  M01S00691.smp     +++|*         EXIT   (RT) = SAMPLE RATE.
00773  M01S00692.smp     +++|*                TO *ABT* IF ERROR ENCOUNTERED.
00774  M01S00693.smp     +++|*
00775  M01S00694.smp     +++|*         USES   RT, T1, T2, T3, T4, T5, T6, CBUF - CBUF+35.
00776  M01S00695.smp     +++|*
00777  M01S00696.smp     +++|*         CALLS  NCH.
00778  M01S00697.smp     +++|
00779  M01S00698.smp     +++|
00780  M01S00699.smp     +++| CRP      SUBR               ENTRY/EXIT

Line S00700 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00781  M02S00700.v23l617 ---|          LDD    CP          READ CURRENT CONTROL STATEMENT
00782  M01S00017.v23l617 +++|          LDD    CP          READ CURRENT COMMAND
00783  M01S00701.smp     +++|          ADN    MS1W
00784  M01S00702.smp     +++|          CRM    CBUF,TR
00785  M01S00703.smp     +++|          CRM    CBUF+17,TR
00786  M01S00704.smp     +++|          LDN    0
00787  M01S00705.smp     +++|          STD    T1
00788  M01S00706.smp     +++|          STD    T2
00789  M01S00707.smp     +++|          LDN    10D         DEFAULT RATE IS 10 DECIMAL
00790  M01S00708.smp     +++|          STD    RT

Line S00709 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00791  M02S00709.v23l617 ---| CRP1     RJM    NCH         SKIP TO CONTROL STATEMENT TERMINATOR

Line S00710 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00792  M02S00710.v23l617 ---|          ZJN    CRPX        IF END OF CONTROL STATEMENT
00793  M01S00018.v23l617 +++| CRP1     RJM    NCH         SKIP TO COMMAND TERMINATOR
00794  M01S00019.v23l617 +++|          ZJN    CRPX        IF END OF COMMAND
00795  M01S00711.smp     +++|          LMN    1R.
00796  M01S00712.smp     +++|          ZJN    CRP2        IF TERMINATOR FOUND
00797  M01S00713.smp     +++|          LMN    1R)&1R.
00798  M01S00714.smp     +++|          NJN    CRP1        IF TERMINATOR NOT YET FOUND
00799  M01S00715.smp     +++| CRP2     RJM    NCH         GET NEXT CHARACTER
00800  M01S00716.smp     +++|          LMN    1R/         CHECK FOR SLASH
00801  M01S00717.smp     +++|          NJN    CRPX        IF NO SLASH
00802  M01S00718.smp     +++|          STD    RT          DECODE THE SAMPLE RATE
00803  M01S00719.smp     +++|          STD    T4          CLEAR OCTAL ASSEMBLY WORD
00804  M01S00720.smp     +++|          STD    T5          CLEAR DECIMAL DIGIT FLAG
00805  M01S00721.smp     +++| CRP3     RJM    NCH         GET NEXT CHARACTER

Line S00722 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00806  M02S00722.v23l617 ---|          ZJN    CRPX        IF END OF CARD
00807  M01S00020.v23l617 +++|          ZJN    CRPX        IF END OF COMMAND
00808  M01S00723.smp     +++|          SBN    1R0
00809  M01S00724.smp     +++|          MJN    CRP5        IF A LETTER
00810  M01S00725.smp     +++|          STD    T6
00811  M01S00726.smp     +++|          SBN    10D
00812  M01S00727.smp     +++|          PJN    CRP5        IF NOT A DECIMAL DIGIT
00813  M01S00728.smp     +++|          ADN    10D-10B
00814  M01S00729.smp     +++|          MJN    CRP4        IF AN OCTAL DIGIT
00815  M01S00730.smp     +++|          AOD    T5          SET DECIMAL DIGIT FLAG
00816  M01S00731.smp     +++| CRP4     LDD    RT          ADD TO DECIMAL ASSEMBLY
00817  M01S00732.smp     +++|          SHN    2
00818  M01S00733.smp     +++|          RAD    RT
00819  M01S00734.smp     +++|          SHN    1
00820  M01S00735.smp     +++|          ADD    T6
00821  M01S00736.smp     +++|          STD    RT
00822  M01S00737.smp     +++|          LDD    T4          ADD TO OCTAL ASSEMBLY
00823  M01S00738.smp     +++|          SHN    3
00824  M01S00739.smp     +++|          ADD    T6
00825  M01S00740.smp     +++|          STD    T4
00826  M01S00741.smp     +++|          UJN    CRP3        GET NEXT DIGIT
00827  M01S00742.smp     +++|
00828  M01S00743.smp     +++| CRP5     LDD    T3          CHECK FOR VALID SUFFIX
00829  M01S00744.smp     +++|          LMN    1R
00830  M01S00745.smp     +++|          ZJN    CRP6        IF SPACE
00831  M01S00746.smp     +++|          LMN    1RD&1R
00832  M01S00747.smp     +++|          ZJN    CRP6        IF DECIMAL SUFFIX
00833  M01S00748.smp     +++|          LMN    1RB&1RD

Line S00749 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00834  M02S00749.v23l617 ---|          NJN    CRP7        IF AN ILLEGAL CHARACTER
00835  M01S00021.v23l617 +++|          NJN    CRP7        IF AN INCORRECT CHARACTER
00836  M01S00750.smp     +++|          LDD    T5
00837  M01S00751.smp     +++|          NJN    CRP7        IF DECIMAL DIGIT IN OCTAL NUMBER
00838  M01S00752.smp     +++|          LDD    T4          USE THE OCTAL VERSION
00839  M01S00753.smp     +++|          STD    RT
00840  M01S00754.smp     +++| CRP6     RJM    NCH         GET NEXT CHARACTER

Line S00755 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00841  M02S00755.v23l617 ---|          ZJN    CRP8        IF END OF THE CONTROL STATEMENT
00842  M01S00022.v23l617 +++|          ZJN    CRP8        IF END OF THE COMMAND
00843  M01S00756.smp     +++|          LMN    1R
00844  M01S00757.smp     +++|          ZJN    CRP6        IF SPACE
00845  M01S00758.smp     +++| CRP7     LDC    =C* ERROR IN RATE PARAMETER.*
00846  M01S00759.smp     +++|          LJM    ABT         ABORT
00847  M01S00760.smp     +++|
00848  M01S00761.smp     +++| CRP8     LJM    CRPX        RETURN
00849  M01S00762.smp     +++| NCH      SPACE  4,15
00850  M01S00763.smp     +++|**        NCH - GET THE NEXT CHARACTER.
00851  M01S00764.smp     +++|*
00852  M01S00765.smp     +++|*         ENTRY  (T1) = NEXT BYTE.
00853  M01S00766.smp     +++|*                (T2) = NEXT CHARACTER WITHIN BYTE.
00854  M01S00767.smp     +++|*
00855  M01S00768.smp     +++|*         EXIT   (A) = NEXT CHARACTER FROM STRING.
00856  M01S00769.smp     +++|*                (T3) = NEXT CHARACTER FROM STRING.
00857  M01S00770.smp     +++|*                (T1) = NEXT BYTE IN STRING.
00858  M01S00771.smp     +++|*                (T2) = POSITION OF CHARACTER WITHIN BYTE.
00859  M01S00772.smp     +++|*
00860  M01S00773.smp     +++|*         USES   T1, T2, T3.
00861  M01S00774.smp     +++|
00862  M01S00775.smp     +++|
00863  M01S00776.smp     +++| NCH1     SHN    -6          EXTRACT DESIRED CHARACTER
00864  M01S00777.smp     +++|          LPN    77
00865  M01S00778.smp     +++|          STD    T3
00866  M01S00779.smp     +++|          LDD    T2          POSITION TO NEXT CHARACTER
00867  M01S00780.smp     +++|          LMN    1
00868  M01S00781.smp     +++|          STD    T2
00869  M01S00782.smp     +++|          NJN    NCH2        IF ADVANCED TO NEXT BYTE
00870  M01S00783.smp     +++|          AOD    T1
00871  M01S00784.smp     +++| NCH2     LDD    T3
00872  M01S00785.smp     +++|
00873  M01S00786.smp     +++| NCH      SUBR               ENTRY/EXIT
00874  M01S00787.smp     +++|          LDM    CBUF,T1     LOAD BYTE CONTAINING NEXT CHARACTER
00875  M01S00788.smp     +++|          LJM    NCH1,T2     EXTRACT CHARACTER
00876  M01S00789.smp     +++|          SPACE  4,10

Line S00790 Modification History
`M01` (Added by)	`smp`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00790.v23l617 ---| CBUF     BSS    0           CONTROL STATEMENT
00878  M01S00023.v23l617 +++| CBUF     BSS    0           COMMAND
00879  M01S00791.smp     +++|          SPACE  4
00880  M01S00792.smp     +++|**        COMMON DECKS.
00881  M01S00793.smp     +++|
00882  M01S00794.smp     +++|
00883  M01S00795.smp     +++|*CALL     COMPCUA
00884  M01S00796.smp     +++|*CALL     COMPCRS
00885  M01S00797.smp     +++|          SPACE  4,10
00886  M01S00798.smp     +++| IFP      HERE
00887  M01S00799.smp     +++|          SPACE  4
00888  M01S00800.smp     +++|          END