Deck HFM

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.hfm     +++|          IDENT  HFM,HFM
00002  M00S00002.hfm     +++|          PERIPH
00003  M00S00003.hfm     +++|          BASE   MIXED
00004  M00S00004.hfm     +++|          SST
00005  M00S00005.hfm     +++|*COMMENT  HFM - HARDWARE FUNCTION MANAGER.

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1974.

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.hfm     +++|          TITLE  HFM - HARDWARE FUNCTION MANAGER.
00009  M00S00008.hfm     +++|          SPACE  4
00010  M00S00009.hfm     +++|***       HFM - HARDWARE FUNCTION MANAGER.
00011  M00S00010.hfm     +++|*         A. J. BEEKMAN.     74/06/13.
00012  M00S00011.hfm     +++|          SPACE  4
00013  M00S00012.hfm     +++|***       *HFM* PROCESSES FUNCTIONS FOR CPU PROGRAMS THAT OPERATE ON
00014  M00S00013.hfm     +++|*         THE STATUS AND CONTROL REGISTERS OF THE CYBER 170 OR THE
00015  M00S00014.hfm     +++|*         INTERLOCK REGISTER OF THE CYBER 70.
00016  M00S00015.hfm     +++|*
00017  M00S00016.hfm     +++|*         ALL *HFM* FUNCTIONS REQUIRE THAT THE JOB IS SYSTEM ORIGIN
00018  M00S00017.hfm     +++|*         OR THE USER HAS SYSTEM ORIGIN PRIVILEDGES WITH DEBUG MODE
00019  M00S00018.hfm     +++|*         ON, THAT THE CALLING PROGRAM HAS AN SSJ= ENTRY POINT,
00020  M00S00019.hfm     +++|*         AND THAT AUTO RECALL IS SET.  ERRORS ENCOUNTERED BY *HFM*

Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00020.ns2052  ---|*         CAUSE THE REQUEST TO BE DROPPED, BUT DO NOT ABORT THE JOB.

Seq #  *Modification Id* Act 
----------------------------+
00022  M01S00001.ns2052  +++|*         CAUSE THE REQUEST TO BE DROPPED AND ABORT THE JOB.
00023  M00S00021.hfm     +++|          SPACE  4
00024  M00S00022.hfm     +++|***       CALL.
00025  M00S00023.hfm     +++|*
00026  M00S00024.hfm     +++|*T IR     24/ *HFMP*,12/ CODE,6/ 0,18/ ADDR

Figure IR

00027  M00S00025.hfm     +++|*         CODE - FUNCTION CODE.
00028  M00S00026.hfm     +++|*         ADDR - ADDRESS OF PARAMETER WORD.

Seq #  *Modification Id* Act 
----------------------------+
00029  M01S00027.ns2052  ---|*
00030  M01S00028.ns2052  ---|*         RETURN.
00031  M01S00029.ns2052  ---|*
00032  M01S00030.ns2052  ---|*T ADDR   2/ ,10/ EC,48/

Figure ADDR

00033  M01S00031.ns2052  ---|*         EC     ERROR CODE.
00034  M01S00032.ns2052  ---|*                1 = * HFM ARGUMENT ERROR.*.
00035  M01S00033.ns2052  ---|*                2 = * HFM ILLEGAL REQUEST.*.
00036  M01S00034.ns2052  ---|*                3 = * CHANNEL 36 NOT ACTIVE.*.
00037  M00S00035.hfm     +++|          SPACE  4
00038  M00S00036.hfm     +++|***       DAYFILE MESSAGES.
00039  M00S00037.hfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00040  M01S00038.v23l617 ---|*         * CHANNEL 36 NOT ACTIVE.* - ILLEGAL REQUEST FOR CHANNEL 36.

Seq #  *Modification Id* Act 
----------------------------+
00041  M01S00001.v23l617 +++|*         * CHANNEL 36 NOT ACTIVE.* - INCORRECT REQUEST FOR CHANNEL 36.
00042  M00S00039.hfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00043  M01S00040.v23l617 ---|*         * HFM ARGUMENT ERROR.* - ILLEGAL FUNCTION CODE OR PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
00044  M01S00002.v23l617 +++|*         * HFM ARGUMENT ERROR.* - INCORRECT FUNCTION CODE OR PARAMETER
00045  M00S00041.hfm     +++|*         WORD ADDRESS OUT OF RANGE.
00046  M00S00042.hfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00043.v23l617 ---|*         * HFM ILLEGAL REQUEST.* - NOT SSJ= CALLER, AUTO RECALL NOT

Seq #  *Modification Id* Act 
----------------------------+
00048  M01S00003.v23l617 +++|*         * HFM INCORRECT REQUEST.* - NOT SSJ= CALLER, AUTO RECALL NOT
00049  M00S00044.hfm     +++|*         SET, OR NOT SYSTEM ORIGIN WITH USER NOT VALIDATED FOR

Seq #  *Modification Id* Act 
----------------------------+
00050  M01S00045.ns21000 ---|*         SYSTEM PRIVILEDGES.

Seq #  *Modification Id* Act 
----------------------------+
00051  M01S00001.ns21000 +++|*         SYSTEM PRIVILEDGES, OR NOT CYBER 70 OR CYBER 170 MAINFRAME.
00052  M00S00046.hfm     +++|          SPACE  4
00053  M00S00047.hfm     +++|*CALL     COMPMAC

Seq #  *Modification Id* Act 
----------------------------+
00054  M01S00002.ns2052  +++|*CALL     COMSPIM
00055  M00S00048.hfm     +++|*CALL     COMSSCR
00056  M00S00049.hfm     +++|*CALL     COMSSSJ
00057  M00S00050.hfm     +++|          TITLE  DIRECT LOCATION ASSIGNMENTS.
00058  M00S00051.hfm     +++|****      DIRECT LOCATION ASSIGNMENTS.
00059  M00S00052.hfm     +++|
00060  M00S00053.hfm     +++|
00061  M00S00054.hfm     +++| CM       EQU    10 - 14     CM WORD BUFFER
00062  M00S00055.hfm     +++| CN       EQU    20 - 24     CM WORD BUFFER
00063  M00S00056.hfm     +++| PW       EQU    30 - 34     PARAMETER WORD BUFFER
00064  M00S00057.hfm     +++| NB       EQU    35          NUMBER OF BITS IN REGISTER

Seq #  *Modification Id* Act 
----------------------------+
00065  M01S00058.ns2052  ---| EC       EQU    36          ERROR CODE
00066  M01S00059.ns2052  ---| MT       EQU    37          MACHINE TYPE FLAG

Seq #  *Modification Id* Act 
----------------------------+
00067  M01S00003.ns2052  +++| MT       EQU    36          MACHINE TYPE FLAG
00068  M00S00060.hfm     +++|
00069  M00S00061.hfm     +++|
00070  M00S00062.hfm     +++|*         CONSTANTS.
00071  M00S00063.hfm     +++|
00072  M00S00064.hfm     +++| CH       EQU    CHSC        STATUS/CONTROL REGISTER CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
00073  M01S00065.ns2052  ---|
00074  M01S00066.ns2052  ---|*         INSTRUCTIONS USED AS CONSTANTS.
00075  M01S00067.ns2052  ---|
00076  M01S00068.ns2052  ---| IANI     EQU    7000        IAN INSTRUCTION
00077  M01S00069.ns2052  ---| OANI     EQU    7200        OAN INSTRUCTION
00078  M01S00070.ns2052  ---|
00079  M00S00071.hfm     +++|****
00080  M00S00072.hfm     +++| HFM      TITLE  MAIN PROGRAM.
00081  M00S00073.hfm     +++|*         HFM - MAIN PROGRAM.
00082  M00S00074.hfm     +++|
00083  M00S00075.hfm     +++|          ORG    PPFW
00084  M00S00076.hfm     +++| HFM      RJM    PRS         PRESET
00085  M00S00077.hfm     +++|          LDM    TFCN,IR+2   SET FUNCTION PROCESSOR
00086  M00S00078.hfm     +++|          STM    HFMA
00087  M00S00079.hfm     +++|          LJM    *           PROCESS REQUEST
00088  M00S00080.hfm     +++| HFMA     EQU    *-1
00089  M00S00081.hfm     +++|
00090  M00S00082.hfm     +++|*         RETURN FROM FUNCTION.
00091  M00S00083.hfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
00092  M01S00084.ns2052  ---| HFM1     LDD    IR+3        WRITE PARAMETER WORD
00093  M01S00085.ns2052  ---|          LPN    77
00094  M01S00086.ns2052  ---|          SHN    6
00095  M01S00087.ns2052  ---|          ADD    RA
00096  M01S00088.ns2052  ---|          SHN    6
00097  M01S00089.ns2052  ---|          ADD    IR+4
00098  M01S00090.ns2052  ---|          CWD    PW
00099  M01S00091.ns2052  ---| HFMX     MONITOR DPPM       DROP PP

Seq #  *Modification Id* Act 
----------------------------+
00100  M01S00004.ns2052  +++| HFM1     MONITOR  DPPM      DROP PP
00101  M00S00092.hfm     +++|          LJM    PPR         EXIT TO PP RESIDENT
00102  M00S00093.hfm     +++|          SPACE  4
00103  M00S00094.hfm     +++|**        TFCN - TABLE OF FUNCTION CODE PROCESSORS.
00104  M00S00095.hfm     +++|*         ENTRY = 1 WORD.
00105  M00S00096.hfm     +++|*         INDEXED BY FUNCTION CODE.
00106  M00S00097.hfm     +++|*
00107  M00S00098.hfm     +++|*T        12/ ADDR

Figure

00108  M00S00099.hfm     +++|*         ADDR   ADDRESS OF FUNCTION PROCESSOR.
00109  M00S00100.hfm     +++|
00110  M00S00101.hfm     +++|
00111  M00S00102.hfm     +++| TFCN     BSS    0
00112  M00S00103.hfm     +++|          LOC    0
00113  M00S00104.hfm     +++|
00114  M00S00105.hfm     +++|          CON    TDB         TRANSFER DATA BLOCK
00115  M00S00106.hfm     +++|          CON    PRF         PROCESS REGISTER FUNCTION
00116  M00S00107.hfm     +++|
00117  M00S00108.hfm     +++|          LOC    *O
00118  M00S00109.hfm     +++| TFCNL    EQU    *-TFCN
00119  M00S00110.hfm     +++| ERR      TITLE  SUBROUTINES.
00120  M00S00111.hfm     +++|**        ERR -  ERROR PROCESSOR.
00121  M00S00112.hfm     +++|*
00122  M00S00113.hfm     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
00123  M01S00114.ns2052  ---|*                (EC) = ERROR CODE.
00124  M01S00115.ns2052  ---|*
00125  M01S00116.ns2052  ---|*         USES   PW.

Seq #  *Modification Id* Act 
----------------------------+
00126  M01S00005.ns2052  +++|*
00127  M01S00006.ns2052  +++|*         EXIT   TO PPR (JOB HAS BEEN ABORTED).
00128  M00S00117.hfm     +++|*
00129  M00S00118.hfm     +++|*         CALLS  DFM.

Seq #  *Modification Id* Act 
----------------------------+
00130  M01S00007.ns2052  +++|*
00131  M01S00008.ns2052  +++|*         MACROS MONITOR.
00132  M00S00119.hfm     +++|
00133  M00S00120.hfm     +++|
00134  M00S00121.hfm     +++| ERR      RJM    DFM         ISSUE DAYFILE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00135  M01S00122.ns2052  ---|          LDD    EC
00136  M01S00123.ns2052  ---|          ZJN    HFMX        IF ILLEGAL PARAMETER WORD ADDRESS
00137  M01S00124.ns2052  ---|          RAD    PW          SET ERROR CODE
00138  M01S00125.ns2052  ---|          UJN    HFM1        EXIT

Seq #  *Modification Id* Act 
----------------------------+
00139  M01S00009.ns2052  +++|          MONITOR  ABTM      ABORT JOB
00140  M01S00010.ns2052  +++|          LJM    PPR         EXIT TO PP RESIDENT
00141  M00S00126.hfm     +++| TDB      TITLE  FUNCTION PROCESSORS.
00142  M00S00127.hfm     +++|***       TDB -  TRANSFER DATA BLOCK (FUNCTION 0).
00143  M00S00128.hfm     +++|*
00144  M00S00129.hfm     +++|*         TRANSFER DATA BLOCK BIT BY BIT TO THE STATUS AND CONTROL
00145  M00S00130.hfm     +++|*         REGISTER, OR 128 BITS TO THE INTERLOCK REGISTER ON A CYBER
00146  M00S00131.hfm     +++|*         70.  SET OR CLEAR THE CORRESPONDING BITS IN THE REGISTER
00147  M00S00132.hfm     +++|*         AS IN THE DATA BLOCK.  THIS ALLOWS THE USER TO SET ERROR
00148  M00S00133.hfm     +++|*         OR CONTROL BITS MANUALLY.
00149  M00S00134.hfm     +++|*
00150  M00S00135.hfm     +++|*         CALLING FORMAT:
00151  M00S00136.hfm     +++|*
00152  M00S00137.hfm     +++|*T ADDR   2/F,58/ 0

Figure ADDR

00153  M00S00138.hfm     +++|*T,DB+0   60/ REGISTER BITS  59 -   0

Figure DB+0

00154  M00S00139.hfm     +++|*T,DB+1   60/ REGISTER BITS 119 -  60

Figure DB+1

00155  M00S00140.hfm     +++|*T,DB+2   60/ REGISTER BITS 179 - 120

Figure DB+2

00156  M00S00141.hfm     +++|*T,DB+3   60/ REGISTER BITS 239 - 180

Figure DB+3

00157  M00S00142.hfm     +++|*
00158  M00S00143.hfm     +++|*         ADDR   PARAMETER WORD ADDRESS.
00159  M00S00144.hfm     +++|*         DB     DATA BLOCK ADDRESS (ADDR+1).
00160  M00S00145.hfm     +++|*         F      CHANNEL 36 REGISTER FLAG (BIT 59).
00161  M00S00146.hfm     +++|*
00162  M00S00147.hfm     +++|*
00163  M00S00148.hfm     +++|*         ENTRY  (PW) = PARAMETER WORD.
00164  M00S00149.hfm     +++|*                PARAMETER WORD BIT 59 SET - CHANNEL 36 REGISTER.
00165  M00S00150.hfm     +++|*                DATA BLOCK  WORD 0 - BITS 59 - 0.
00166  M00S00151.hfm     +++|*                            WORD 1 - BITS 119 - 60.
00167  M00S00152.hfm     +++|*                            WORD 2 - BITS 179 - 120.
00168  M00S00153.hfm     +++|*                            WORD 3 - BITS 239 - 180.
00169  M00S00154.hfm     +++|*
00170  M00S00155.hfm     +++|*         EXIT   DATA BLOCK TRANSFERRED TO CORRECT REGISTER.
00171  M00S00156.hfm     +++|*
00172  M00S00157.hfm     +++|*         USES   T2 - T4.
00173  M00S00158.hfm     +++|*
00174  M00S00159.hfm     +++|*         CALLS  CLO, CTY, CCH, SFC, CLL.
00175  M00S00160.hfm     +++|
00176  M00S00161.hfm     +++|
00177  M00S00162.hfm     +++| TDB      BSS    0
00178  M00S00163.hfm     +++|          RJM    CLO         CHECK LOCK OUT
00179  M00S00164.hfm     +++|          RJM    CTY         CHECK TYPE OF REGISTER
00180  M00S00165.hfm     +++|          LDD    PW          PARAMETER WORD
00181  M00S00166.hfm     +++|          SHN    21-13
00182  M00S00167.hfm     +++|          PJN    TDB1        IF CHANNEL 16
00183  M00S00168.hfm     +++|          RJM    CCH         CHANGE CHANNEL
00184  M00S00169.hfm     +++|
00185  M00S00170.hfm     +++|*         READ DATA BLOCK.
00186  M00S00171.hfm     +++|
00187  M00S00172.hfm     +++| TDB1     LDD    IR+3        READ DATA BLOCK
00188  M00S00173.hfm     +++|          LPN    77
00189  M00S00174.hfm     +++|          SHN    6
00190  M00S00175.hfm     +++|          ADD    RA
00191  M00S00176.hfm     +++|          SHN    6
00192  M00S00177.hfm     +++|          ADD    IR+4
00193  M00S00178.hfm     +++|          ADN    1
00194  M00S00179.hfm     +++|          CRM    SCRB+17,ON  WORD 0
00195  M00S00180.hfm     +++|          CRM    SCRB+12,ON  WORD 1
00196  M00S00181.hfm     +++|          CRM    SCRB+5,ON   WORD 2
00197  M00S00182.hfm     +++|          CRM    SCRB,ON     WORD 3
00198  M00S00183.hfm     +++|          LDC    SCRB+23     S/C WORD TO READ
00199  M00S00184.hfm     +++|          STD    T3
00200  M00S00185.hfm     +++|          LDN    0           FIRST BIT NUMBER
00201  M00S00186.hfm     +++|          STD    T4
00202  M00S00187.hfm     +++|
00203  M00S00188.hfm     +++|*         TRANSFER DATA BLOCK TO HARDWARE REGISTER.
00204  M00S00189.hfm     +++|
00205  M00S00190.hfm     +++| TDB2     LDN    14          NUMBER OF BITS PER WORD
00206  M00S00191.hfm     +++|          STD    T2
00207  M00S00192.hfm     +++| TDB3     LDI    T3
00208  M00S00193.hfm     +++|          SHN    21-0        GET NEXT BIT
00209  M00S00194.hfm     +++|          STI    T3
00210  M00S00195.hfm     +++|          MJN    TDB4        IF BIT TO BE SET
00211  M00S00196.hfm     +++|          LDC    FCCL        CLEAR BIT
00212  M00S00197.hfm     +++|          UJN    TDB5
00213  M00S00198.hfm     +++|
00214  M00S00199.hfm     +++| TDB4     LDC    FCSB        SET BIT
00215  M00S00200.hfm     +++| TDB5     LMC    0           ADD BIT NUMBER
00216  M00S00201.hfm     +++| TDBA     EQU    *-1
00217  M00S00202.hfm     +++|          RJM    SFC         SEND FUNCTION
00218  M00S00203.hfm     +++|          AOD    T4          INCREMENT BIT NUMBER
00219  M00S00204.hfm     +++|          STM    TDBA
00220  M00S00205.hfm     +++|          SBD    NB
00221  M00S00206.hfm     +++|          ZJN    TDB6        IF ALL BITS TRANSFERRED
00222  M00S00207.hfm     +++|          SOD    T2          DECREMENT BITS PER WORD
00223  M00S00208.hfm     +++|          NJN    TDB3        IF ENTIRE WORD NOT TRANSFERRED
00224  M00S00209.hfm     +++|          SOD    T3          SET NEXT WORD ADDRESS
00225  M00S00210.hfm     +++|          UJN    TDB2        LOOP FOR ALL BITS
00226  M00S00211.hfm     +++|
00227  M00S00212.hfm     +++| TDB6     RJM    CLL         CLEAR LOCK BIT

Seq #  *Modification Id* Act 
----------------------------+
00228  M01S00213.ns2052  ---|          LJM    HFMX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00229  M01S00011.ns2052  +++|          LJM    HFM1        RETURN
00230  M00S00214.hfm     +++| PRF      EJECT
00231  M00S00215.hfm     +++|***       PRF -  PROCESS REGISTER FUNCTION (FUNCTION 1).
00232  M00S00216.hfm     +++|*
00233  M00S00217.hfm     +++|*         PROCESS STATUS AND CONTROL REGISTER FUNCTION.  SEND THE
00234  M00S00218.hfm     +++|*         SPECIFIED FUNCTION TO THE REGISTER AND RETURN THE REPLY.
00235  M00S00219.hfm     +++|*         IF CYCLE IS REQUESTED, SEND THE FUNCTION THE NUMBER OF
00236  M00S00220.hfm     +++|*         TIMES AND AT THE TIME INTERVAL GIVEN IN THE PARAMETER WORD,
00237  M00S00221.hfm     +++|*         AND RETURN THE REPLY AFTER THE FINAL CYCLE.
00238  M00S00222.hfm     +++|*
00239  M00S00223.hfm     +++|*         CALLING FORMAT:
00240  M00S00224.hfm     +++|*
00241  M00S00225.hfm     +++|*T ADDR   2/F,10/ 0,12/ LENGTH,12/ NUMBER,12/ FUNCTION,12/ REPLY

Figure ADDR

00242  M00S00226.hfm     +++|*
00243  M00S00227.hfm     +++|*         ADDR   PARAMETER WORD ADDRESS.
00244  M00S00228.hfm     +++|*         F      CHANNEL 36 REGISTER FLAG (BIT 59).
00245  M00S00229.hfm     +++|*                CYCLE FLAG (BIT 58).
00246  M00S00230.hfm     +++|*         LENGTH  NUMBER OF PERIODS PER CYCLE (PERIOD = 20B MS.).
00247  M00S00231.hfm     +++|*         NUMBER  NUMBER OF CYCLES.
00248  M00S00232.hfm     +++|*         FUNCTION  REGISTER FUNCTION.
00249  M00S00233.hfm     +++|*                0YYY        READ BYTE YYY.
00250  M00S00234.hfm     +++|*                1XXX        TEST BIT XXX.
00251  M00S00235.hfm     +++|*                2XXX        CLEAR BIT XXX.
00252  M00S00236.hfm     +++|*                3XXX        TEST/CLEAR BIT XXX.
00253  M00S00237.hfm     +++|*                4XXX        SET BIT XXX.
00254  M00S00238.hfm     +++|*                5XXX        TEST/SET BIT XXX.
00255  M00S00239.hfm     +++|*                6000        CLEAR ALL BITS.
00256  M00S00240.hfm     +++|*                7000        TEST ERROR BITS.
00257  M00S00241.hfm     +++|*         REPLY  FUNCTION REPLY.
00258  M00S00242.hfm     +++|*
00259  M00S00243.hfm     +++|*
00260  M00S00244.hfm     +++|*         ENTRY  (PW - PW+4) = PARAMETER WORD CONTENTS.
00261  M00S00245.hfm     +++|*                PARAMETER WORD BIT 59 SET - CHANNEL 36.
00262  M00S00246.hfm     +++|*                      BITS 12 - 23 - S/C INSTRUCTION.
00263  M00S00247.hfm     +++|*                      BIT 58 SET - PROCESS CYCLE.
00264  M00S00248.hfm     +++|*                      BITS 24 - 35 - NUMBER OF CYCLES.
00265  M00S00249.hfm     +++|*                      BITS 36 - 47 - CYCLE TIME.
00266  M00S00250.hfm     +++|*
00267  M00S00251.hfm     +++|*         EXIT   S/C INSTRUCTION PROCESSED.
00268  M00S00252.hfm     +++|*                REPLY IN BITS 0 - 11 OF PARAMETER WORD.
00269  M00S00253.hfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00270  M01S00254.ns2052  ---|*         USES   CM - CM+4, PW - PW+4, CN - CN+4.
00271  M01S00255.ns2052  ---|*
00272  M01S00256.ns2052  ---|*         CALLS  CTY, CCH, CEB, SFC.

Seq #  *Modification Id* Act 
----------------------------+
00273  M02S00012.ns2052a ---|*         USES   PW, PW+2, CM - CM+4, CN - CN+4.

Seq #  *Modification Id* Act 
----------------------------+
00274  M01S00001.ns2052a +++|*         USES   CM - CM+4, CN - CN+4, PW - PW+4.

Seq #  *Modification Id* Act 
----------------------------+
00275  M01S00013.ns2052  +++|*
00276  M01S00014.ns2052  +++|*         CALLS  CCH, CEB, CTY, SFC.
00277  M01S00015.ns2052  +++|*
00278  M01S00016.ns2052  +++|*         MACROS MONITOR, PAUSE.
00279  M00S00257.hfm     +++|
00280  M00S00258.hfm     +++|
00281  M00S00259.hfm     +++| PRF      BSS    0
00282  M00S00260.hfm     +++|          RJM    CTY         CHECK TYPE OF REGISTER
00283  M00S00261.hfm     +++|          LDD    PW          PARAMETER WORD
00284  M00S00262.hfm     +++|          SHN    21-13
00285  M00S00263.hfm     +++|          PJN    PRF1        IF CHANNEL 16
00286  M00S00264.hfm     +++|          RJM    CCH         CHANGE CHANNEL
00287  M00S00265.hfm     +++| PRF1     RJM    CEB         CHECK FOR CHANNEL 36 ERROR BIT
00288  M00S00266.hfm     +++|          LDD    PW
00289  M00S00267.hfm     +++|          SHN    21-12
00290  M00S00268.hfm     +++|          PJN    PRF3        IF PROCESS CYCLE BIT NOT SET
00291  M00S00269.hfm     +++|
00292  M00S00270.hfm     +++|*         ON CYCLE, READ REAL TIME CLOCK.
00293  M00S00271.hfm     +++|
00294  M00S00272.hfm     +++|          MONITOR RCPM       REQUEST CPU
00295  M00S00273.hfm     +++| PRF2     LDC    RTCL        READ REAL TIME CLOCK
00296  M00S00274.hfm     +++|          CRD    CN
00297  M00S00275.hfm     +++|
00298  M00S00276.hfm     +++|*         SEND FUNCTION AND RETURN REPLY.
00299  M00S00277.hfm     +++|
00300  M00S00278.hfm     +++| PRF3     LDD    PW+3
00301  M00S00279.hfm     +++|          RJM    SFC         SEND FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
00302  M01S00002.ns2052a +++|          STD    PW+4        SAVE SCR DATA

Seq #  *Modification Id* Act 
----------------------------+
00303  M01S00280.ns2052  ---|          STD    CM          STORE REPLY
00304  M00S00281.hfm     +++|          LDD    T4          CHECK CHANNEL 36 ERROR BIT FLAG
00305  M00S00282.hfm     +++|          ZJN    PRF4        IF NOT ERROR BIT
00306  M00S00283.hfm     +++|          LDC    FCSB+EISP   SET ERROR IN SECOND PPS BIT
00307  M00S00284.hfm     +++|          OAN    16
00308  M00S00285.hfm     +++|          IAN    16+40
00309  M00S00286.hfm     +++| PRF4     LDD    PW
00310  M00S00287.hfm     +++|          SHN    21-12
00311  M00S00288.hfm     +++|          MJN    PRF5        IF CYCLE BIT SET

Seq #  *Modification Id* Act 
----------------------------+
00312  M01S00003.ns2052a +++|          LDD    IR+3        COPY DATA TO CALLING PROGRAM
00313  M01S00004.ns2052a +++|          SHN    6
00314  M01S00005.ns2052a +++|          ADD    RA
00315  M01S00006.ns2052a +++|          SHN    6
00316  M01S00007.ns2052a +++|          ADD    IR+4
00317  M01S00008.ns2052a +++|          CWD    PW

Seq #  *Modification Id* Act 
----------------------------+
00318  M01S00289.ns2052  ---|          LDD    CM          STORE FUNCTION REPLY
00319  M01S00290.ns2052  ---|          STD    PW+4
00320  M00S00291.hfm     +++|          LJM    HFM1        RETURN
00321  M00S00292.hfm     +++|
00322  M00S00293.hfm     +++|*         CHECK CYCLE TIMING.
00323  M00S00294.hfm     +++|
00324  M00S00295.hfm     +++| PRF5     LDC    RTCL        READ REAL TIME CLOCK
00325  M00S00296.hfm     +++|          CRD    CM
00326  M00S00297.hfm     +++|          LDD    CM+4
00327  M00S00298.hfm     +++|          SBD    CN+4
00328  M00S00299.hfm     +++|          SHN    -4          NUMBER OF CYCLES SINCE LAST INSTRUCTION
00329  M00S00300.hfm     +++|          SBD    PW+1        CYCLE TIME
00330  M00S00301.hfm     +++|          PJN    PRF6        IF TIME TO SEND INSTRUCTION
00331  M00S00302.hfm     +++|          PAUSE
00332  M00S00303.hfm     +++|          UJN    PRF5        LOOP FOR CYCLE TIME
00333  M00S00304.hfm     +++|
00334  M00S00305.hfm     +++|*         CHECK FOR END OF CYCLE.
00335  M00S00306.hfm     +++|
00336  M00S00307.hfm     +++| PRF6     SOD    PW+2        NUMBER OF CYCLES
00337  M00S00308.hfm     +++|          SBN    1
00338  M00S00309.hfm     +++|          ZJN    PRF7        IF TIME UP
00339  M00S00310.hfm     +++|          LDD    IR+3        READ PARAMETER WORD
00340  M00S00311.hfm     +++|          LPN    77
00341  M00S00312.hfm     +++|          SHN    6
00342  M00S00313.hfm     +++|          ADD    RA
00343  M00S00314.hfm     +++|          SHN    6
00344  M00S00315.hfm     +++|          ADD    IR+4
00345  M00S00316.hfm     +++|          CRD    CN
00346  M00S00317.hfm     +++|          LDD    CN          CHECK FOR END OF CYCLE
00347  M00S00318.hfm     +++|          SHN    21-12
00348  M00S00319.hfm     +++|          PJN    PRF7        IF STOP CYCLE SIGNAL
00349  M00S00320.hfm     +++|          LJM    PRF2        LOOP FOR NEXT INSTRUCTION
00350  M00S00321.hfm     +++|
00351  M00S00322.hfm     +++| PRF7     LDN    0           CLEAR CYCLE BIT
00352  M00S00323.hfm     +++|          STD    PW
00353  M00S00324.hfm     +++|          LJM    PRF3        LOOP FOR LAST INSTRUCTION
00354  M00S00325.hfm     +++| CCH      TITLE  SECONDARY SUBROUTINES.
00355  M00S00326.hfm     +++|**        CCH -  CHANGE CHANNEL.
00356  M00S00327.hfm     +++|*
00357  M00S00328.hfm     +++|*         EXIT   IF CHANNEL 36 AVAILABLE, INSTRUCTIONS IN *SFC* ARE
00358  M00S00329.hfm     +++|*                SET TO CHANNEL 36.
00359  M00S00330.hfm     +++|*                IF NOT AVAILABLE, ERROR MESSAGE ISSUED.
00360  M00S00331.hfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00361  M01S00332.ns2052  ---|*         USES   EC, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
00362  M01S00017.ns2052  +++|*         USES   CM - CM+4.
00363  M00S00333.hfm     +++|*
00364  M00S00334.hfm     +++|*         CALLS  ERR, CLL.
00365  M00S00335.hfm     +++|
00366  M00S00336.hfm     +++|
00367  M00S00337.hfm     +++| CCH      SUBR               ENTRY/EXIT
00368  M00S00338.hfm     +++|          LDD    MT          CHECK MACHINE TYPE
00369  M00S00339.hfm     +++|          ZJN    CCH1        IF NOT CYBER 170
00370  M00S00340.hfm     +++|          LDN    PPUL        READ PP CONFIGURATION
00371  M00S00341.hfm     +++|          CRD    CM
00372  M00S00342.hfm     +++|          LDD    CM+2        CHECK NUMBER OF PP-S
00373  M00S00343.hfm     +++|          SBN    13
00374  M00S00344.hfm     +++|          MJN    CCH1        IF 10 PP-S
00375  M00S00345.hfm     +++|          LDC    OANI+36     SET CHANNEL 36
00376  M00S00346.hfm     +++|          STM    SFCA
00377  M00S00347.hfm     +++|          LDC    IANI+36+40  SET CHANNEL 36
00378  M00S00348.hfm     +++|          STM    SFCB
00379  M00S00349.hfm     +++|          UJN    CCHX        RETURN
00380  M00S00350.hfm     +++|
00381  M00S00351.hfm     +++| CCH1     LDD    IR+2
00382  M00S00352.hfm     +++|          SBN    1
00383  M00S00353.hfm     +++|          PJN    CCH2        IF NOT FUNCTION 0
00384  M00S00354.hfm     +++|          RJM    CLL         CLEAR LOCK BIT

Seq #  *Modification Id* Act 
----------------------------+
00385  M01S00355.ns2052  ---| CCH2     LDN    3
00386  M01S00356.ns2052  ---|          STD    EC
00387  M01S00357.ns2052  ---|          LDC    =C* CHANNEL 36 NOT ACTIVE.*
00388  M01S00358.ns2052  ---|          LJM    ERR

Seq #  *Modification Id* Act 
----------------------------+
00389  M01S00018.ns2052  +++| CCH2     LDC    =C* CHANNEL 36 NOT ACTIVE.*
00390  M01S00019.ns2052  +++|          LJM    ERR         ISSUE MESSAGE AND ABORT
00391  M00S00359.hfm     +++| CEB      SPACE  4,10
00392  M00S00360.hfm     +++|**        CEB -  CHECK FOR CHANNEL 36 ERROR BIT.
00393  M00S00361.hfm     +++|*
00394  M00S00362.hfm     +++|*         ENTRY  (PW) = CHANNEL 36 FLAG.
00395  M00S00363.hfm     +++|*                (PW+3) = REGISTER FUNCTION.
00396  M00S00364.hfm     +++|*
00397  M00S00365.hfm     +++|*         EXIT   (T4) NONZERO IF CHANNEL 36 ERROR BIT TO BE SET.
00398  M00S00366.hfm     +++|*
00399  M00S00367.hfm     +++|*         USES   T4.
00400  M00S00368.hfm     +++|
00401  M00S00369.hfm     +++|
00402  M00S00370.hfm     +++| CEB      SUBR               ENTRY/EXIT
00403  M00S00371.hfm     +++|          LDN    0           CLEAR FLAG
00404  M00S00372.hfm     +++|          STD    T4
00405  M00S00373.hfm     +++|          LDD    PW
00406  M00S00374.hfm     +++|          SHN    21-13
00407  M00S00375.hfm     +++|          PJN    CEBX        IF CHANNEL 16
00408  M00S00376.hfm     +++|          LDD    PW+3        CHECK FOR SET BIT FUNCTIONS
00409  M00S00377.hfm     +++|          SHN    -11
00410  M00S00378.hfm     +++|          SBN    4
00411  M00S00379.hfm     +++|          MJN    CEBX        IF FUNCTIONS 0-3
00412  M00S00380.hfm     +++|          SBN    2
00413  M00S00381.hfm     +++|          PJN    CEBX        IF NOT SET OR TEST/SET FUNCTIONS
00414  M00S00382.hfm     +++|          LDD    PW+3        CHECK BIT NUMBER
00415  M00S00383.hfm     +++|          LPC    777
00416  M00S00384.hfm     +++|          SBN    NTEB        NUMBER OF TEST ERROR BITS
00417  M00S00385.hfm     +++|          PJN    CEBX        IF NOT ERROR BIT
00418  M00S00386.hfm     +++|          AOD    T4          SET FLAG
00419  M00S00387.hfm     +++|          UJN    CEBX        RETURN
00420  M00S00388.hfm     +++| CLL      SPACE  4,5
00421  M00S00389.hfm     +++|**        CLL -  CLEAR LOCK OUT.
00422  M00S00390.hfm     +++|*
00423  M00S00391.hfm     +++|*         EXIT   LOCK OUT BIT CLEARED.
00424  M00S00392.hfm     +++|*
00425  M00S00393.hfm     +++|*         USES   CM - CM+4.
00426  M00S00394.hfm     +++|
00427  M00S00395.hfm     +++|
00428  M00S00396.hfm     +++| CLL      SUBR               ENTRY/EXIT
00429  M00S00397.hfm     +++|          LDC    SCRL        CLEAR LOCK OUT BIT
00430  M00S00398.hfm     +++|          CRD    CM
00431  M00S00399.hfm     +++|          LDD    CM
00432  M00S00400.hfm     +++|          LPC    3777
00433  M00S00401.hfm     +++|          STD    CM
00434  M00S00402.hfm     +++|          LDC    SCRL
00435  M00S00403.hfm     +++|          CWD    CM
00436  M00S00404.hfm     +++|          UJN    CLLX        RETURN
00437  M00S00405.hfm     +++| CLO      SPACE  4,5
00438  M00S00406.hfm     +++|**        CLO -  CHECK MTR LOCK OUT.
00439  M00S00407.hfm     +++|*
00440  M00S00408.hfm     +++|*         EXIT   LOCK OUT BIT SET.
00441  M00S00409.hfm     +++|*
00442  M00S00410.hfm     +++|*         USES   CM - CM+4.
00443  M00S00411.hfm     +++|
00444  M00S00412.hfm     +++|
00445  M00S00413.hfm     +++| CLO      SUBR               ENTRY/EXIT
00446  M00S00414.hfm     +++| CLO1     LDC    SCRL        CHECK MTR LOCK BIT
00447  M00S00415.hfm     +++|          CRD    CM
00448  M00S00416.hfm     +++|          LDD    CM
00449  M00S00417.hfm     +++|          SHN    6
00450  M00S00418.hfm     +++|          PJN    CLO2        IF LOCK OUT BIT NOT SET
00451  M00S00419.hfm     +++|          PAUSE
00452  M00S00420.hfm     +++|          UJN    CLO1        LOOP UNTIL CLEAR
00453  M00S00421.hfm     +++|
00454  M00S00422.hfm     +++| CLO2     LDC    4000        SET BIT
00455  M00S00423.hfm     +++|          RAD    CM
00456  M00S00424.hfm     +++|          LDC    SCRL
00457  M00S00425.hfm     +++|          CWD    CM
00458  M00S00426.hfm     +++|          UJN    CLOX        RETURN
00459  M00S00427.hfm     +++| CTY      SPACE  4,7
00460  M00S00428.hfm     +++|**        CTY -  CHECK TYPE OF REGISTER.
00461  M00S00429.hfm     +++|*
00462  M00S00430.hfm     +++|*         EXIT   IF NOT CYBER 170, INSTRUCTIONS IN *SFC* SET TO
00463  M00S00431.hfm     +++|*                CHANNEL 15.
00464  M00S00432.hfm     +++|*                (NB) = NUMBER OF BITS IN REGISTER.
00465  M00S00433.hfm     +++|*
00466  M00S00434.hfm     +++|*         USES   CM - CM+4, NB.
00467  M00S00435.hfm     +++|
00468  M00S00436.hfm     +++|
00469  M00S00437.hfm     +++| CTY1     LDC    NBIT        SET NUMBER OF BITS IN S/C REGISTER
00470  M00S00438.hfm     +++|          STD    NB
00471  M00S00439.hfm     +++|
00472  M00S00440.hfm     +++| CTY      SUBR               ENTRY/EXIT
00473  M00S00441.hfm     +++|          LDD    MT          CHECK MACHINE TYPE
00474  M00S00442.hfm     +++|          NJN    CTY1        IF CYBER 170
00475  M00S00443.hfm     +++|          LDC    200         SET NUMBER OF BITS
00476  M00S00444.hfm     +++|          STD    NB
00477  M00S00445.hfm     +++|          SOM    SFCA        SET CHANNEL 15
00478  M00S00446.hfm     +++|          SOM    SFCB
00479  M00S00447.hfm     +++|          UJN    CTYX        RETURN
00480  M00S00448.hfm     +++| SFC      SPACE  4,5
00481  M00S00449.hfm     +++|**        SFC -  SEND FUNCTION TO S/C REGISTER.
00482  M00S00450.hfm     +++|*
00483  M00S00451.hfm     +++|*         ENTRY  (A) = S/C REGISTER FUNCTION.
00484  M00S00452.hfm     +++|*
00485  M00S00453.hfm     +++|*         EXIT   (A) = FUNCTION REPLY.
00486  M00S00454.hfm     +++|
00487  M00S00455.hfm     +++|
00488  M00S00456.hfm     +++| SFC      SUBR               ENTRY/EXIT
00489  M00S00457.hfm     +++| SFCA     OAN    CH+40       SEND FUNCTION
00490  M00S00458.hfm     +++|*         OAN    CH+40+20    (IF CHANNEL 36 CALL)
00491  M00S00459.hfm     +++|*         OAN    15          (IF CYBER 70 CALL)
00492  M00S00460.hfm     +++| SFCB     IAN    CH+40
00493  M00S00461.hfm     +++|*         IAN    CH+40+20    (IF CHANNEL 36 CALL)
00494  M00S00462.hfm     +++|*         IAN    15+40       (IF CYBER 70 CALL)
00495  M00S00463.hfm     +++|          UJN    SFCX        RETURN
00496  M00S00464.hfm     +++|          SPACE  4
00497  M00S00465.hfm     +++|          USE    LITERALS
00498  M00S00466.hfm     +++|
00499  M00S00467.hfm     +++|
00500  M00S00468.hfm     +++|*         BUFFERS.
00501  M00S00469.hfm     +++|
00502  M00S00470.hfm     +++|
00503  M00S00471.hfm     +++| SCRB     EQU    *           S/C REGISTER BUFFER
00504  M00S00472.hfm     +++| PRS      TITLE  PRESET.
00505  M00S00473.hfm     +++|**        PRS -  PRESET.
00506  M00S00474.hfm     +++|*
00507  M00S00475.hfm     +++|*         EXIT   (PW - PW+4) = PARAMETER WORD CONTENTS.

Seq #  *Modification Id* Act 
----------------------------+
00508  M01S00020.ns2052  +++|*                TO ERR, IF ANY ERROR ENCOUNTERED.
00509  M00S00476.hfm     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00510  M01S00477.ns2052  ---|*         USES   PW - PW+4, CM - CM+4, EC, MT.

Seq #  *Modification Id* Act 
----------------------------+
00511  M01S00021.ns2052  +++|*         USES   MT, CM - CM+4, PW - PW+4.
00512  M00S00478.hfm     +++|*
00513  M00S00479.hfm     +++|*         CALLS  CRS, CUA, ERR.
00514  M00S00480.hfm     +++|
00515  M00S00481.hfm     +++|
00516  M00S00482.hfm     +++| PRS      SUBR               ENTRY/EXIT
00517  M00S00483.hfm     +++|
00518  M00S00484.hfm     +++|*         CHECK PARAMETER WORD ADDRESS.
00519  M00S00485.hfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
00520  M01S00486.ns2052  ---|          LDN    0
00521  M01S00487.ns2052  ---|          STD    EC          SET NO ERROR CODE
00522  M00S00488.hfm     +++|          LDD    IR+3        CHECK ADDRESS
00523  M00S00489.hfm     +++|          LPN    77
00524  M00S00490.hfm     +++|          SHN    14
00525  M00S00491.hfm     +++|          MJN    PRS2        IF OUT OF RANGE
00526  M00S00492.hfm     +++|          ADD    IR+4
00527  M00S00493.hfm     +++|          ADN    5
00528  M00S00494.hfm     +++|          SHN    -6
00529  M00S00495.hfm     +++|          SBD    FL
00530  M00S00496.hfm     +++|          PJN    PRS2        IF .GT. FL - 5
00531  M00S00497.hfm     +++|          LDD    IR+3        SET ADDRESS - 2
00532  M00S00498.hfm     +++|          LPN    77
00533  M00S00499.hfm     +++|          SHN    14
00534  M00S00500.hfm     +++|          ADD    IR+4
00535  M00S00501.hfm     +++|          SBN    2
00536  M00S00502.hfm     +++|          PJN    PRS3        IF .GT. RA + 1

Seq #  *Modification Id* Act 
----------------------------+
00537  M01S00503.ns2052  ---|          UJN    PRS2
00538  M01S00504.ns2052  ---|
00539  M01S00505.ns2052  ---| PRS1     LDN    1
00540  M01S00506.ns2052  ---|          STD    EC
00541  M00S00507.hfm     +++| PRS2     LDC    =C* HFM ARGUMENT ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
00542  M01S00508.ns2052  ---|          LJM    ERR

Seq #  *Modification Id* Act 
----------------------------+
00543  M01S00022.ns2052  +++|          UJN    PRS4.2      ISSUE MESSAGE AND ABORT
00544  M00S00509.hfm     +++|
00545  M00S00510.hfm     +++| PRS3     ADN    2           READ PARAMETER WORD
00546  M00S00511.hfm     +++|          SHN    14
00547  M00S00512.hfm     +++|          ADD    RA
00548  M00S00513.hfm     +++|          SHN    6
00549  M00S00514.hfm     +++|          CRD    PW
00550  M00S00515.hfm     +++|
00551  M00S00516.hfm     +++|*         CHECK FUNCTION CODE.
00552  M00S00517.hfm     +++|
00553  M00S00518.hfm     +++|          LDD    IR+2        CHECK CODE
00554  M00S00519.hfm     +++|          SBN    TFCNL

Seq #  *Modification Id* Act 
----------------------------+
00555  M01S00520.ns2052  ---|          PJN    PRS1        IF ILLEGAL CODE

Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00023.v23l617 ---|          PJN    PRS2        IF ILLEGAL CODE

Seq #  *Modification Id* Act 
----------------------------+
00557  M01S00004.v23l617 +++|          PJN    PRS2        IF INCORRECT CODE
00558  M00S00521.hfm     +++|
00559  M00S00522.hfm     +++|*         CHECK FOR LEGAL ACCESS.
00560  M00S00523.hfm     +++|
00561  M00S00524.hfm     +++|          LDD    CP          CHECK SSJ= BIT
00562  M00S00525.hfm     +++|          ADC    SEPW
00563  M00S00526.hfm     +++|          CRD    CM
00564  M00S00527.hfm     +++|          LDD    CM
00565  M00S00528.hfm     +++|          SHN    21-2
00566  M00S00529.hfm     +++|          PJN    PRS4        IF NOT SSJ= JOB
00567  M00S00530.hfm     +++|          RJM    CUA         CHECK USER ACCESS

Seq #  *Modification Id* Act 
----------------------------+
00568  M01S00531.ns2052  ---|          NJN    PRS4        IF NOT LEGAL ACCESS

Seq #  *Modification Id* Act 
----------------------------+
00569  M01S00024.ns2052  +++|          NJN    PRS4.1      IF *DEBUG* NOT TURNED ON
00570  M00S00532.hfm     +++|          RJM    CRS         CHECK RECALL STATUS
00571  M00S00533.hfm     +++|          NJN    PRS5        IF AUTO RECALL SET

Seq #  *Modification Id* Act 
----------------------------+
00572  M01S00534.ns2052  ---| PRS4     LDN    2
00573  M01S00535.ns2052  ---|          STD    EC
00574  M01S00536.ns2052  ---|          LDC    =C* HFM ILLEGAL REQUEST.*
00575  M01S00537.ns2052  ---|          LJM    ERR

Seq #  *Modification Id* Act 
----------------------------+
00576  M02S00025.v23l617 ---| PRS4     LDC    =C* HFM ILLEGAL REQUEST.*

Seq #  *Modification Id* Act 
----------------------------+
00577  M01S00005.v23l617 +++| PRS4     LDC    =C* HFM INCORRECT REQUEST.*

Seq #  *Modification Id* Act 
----------------------------+
00578  M01S00026.ns2052  +++|          UJN    PRS4.2      ISSUE MESSAGE AND ABORT
00579  M01S00027.ns2052  +++|
00580  M01S00028.ns2052  +++| PRS4.1   LDC    =C* DEBUG NOT TURNED ON.*
00581  M01S00029.ns2052  +++| PRS4.2   LJM    ERR         ISSUE MESSAGE AND ABORT
00582  M00S00538.hfm     +++|

Seq #  *Modification Id* Act 
----------------------------+
00583  M01S00539.ns21000 ---| PRS5     LDN    CPUL        CHECK MACHINE TYPE
00584  M01S00540.ns21000 ---|          CRD    CM
00585  M01S00541.ns21000 ---|          LDD    CM+3
00586  M01S00542.ns21000 ---|          LPN    20
00587  M01S00543.ns21000 ---|          STD    MT

Seq #  *Modification Id* Act 
----------------------------+
00588  M01S00002.ns21000 +++| PRS5     LDK    MABL        CHECK MAINFRAME TYPE
00589  M01S00003.ns21000 +++|          CRD    CM
00590  M01S00004.ns21000 +++|          LDD    CM+1
00591  M01S00005.ns21000 +++|          SHN    -6
00592  M01S00006.ns21000 +++|          LPN    43
00593  M01S00007.ns21000 +++|          LMN    3
00594  M01S00008.ns21000 +++|          ZJN    PRS4        IF CYBER 170-815/825/835/855
00595  M01S00009.ns21000 +++|          LMN    40
00596  M01S00010.ns21000 +++|          ZJN    PRS4        IF NOT CYBER 170 OR CYBER 70 MAINFRAME
00597  M01S00011.ns21000 +++|          LMN    2
00598  M01S00012.ns21000 +++|          STD    MT          0 = CYBER 70, NONZERO = CYBER 170
00599  M00S00544.hfm     +++|          LJM    PRSX        RETURN
00600  M00S00545.hfm     +++|          SPACE  4
00601  M00S00546.hfm     +++|*         COMMON DECKS.
00602  M00S00547.hfm     +++|
00603  M00S00548.hfm     +++|*CALL     COMPCRS
00604  M00S00549.hfm     +++| SSJ$     EQU    1           SET SSJ CHECKING FOR *COMPCUA*
00605  M00S00550.hfm     +++|*CALL     COMPCUA
00606  M00S00551.hfm     +++|
00607  M00S00552.hfm     +++|
00608  M00S00553.hfm     +++|          END