User Tools

Site Tools


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

Deck HFM

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.hfm     +++|          IDENT  HFM,HFM
00002  M01S00002.hfm     +++|          PERIPH
00003  M01S00003.hfm     +++|          BASE   MIXED
00004  M01S00004.hfm     +++|          SST
00005  M01S00005.hfm     +++|*COMMENT  HFM - HARDWARE FUNCTION MANAGER.
Line S00006 Modification History
M01 (Added by) hfm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.hfm     +++|          TITLE  HFM - HARDWARE FUNCTION MANAGER.
00009  M01S00008.hfm     +++|          SPACE  4
00010  M01S00009.hfm     +++|***       HFM - HARDWARE FUNCTION MANAGER.
00011  M01S00010.hfm     +++|*         A. J. BEEKMAN.     74/06/13.
00012  M01S00011.hfm     +++|          SPACE  4
00013  M01S00012.hfm     +++|***       *HFM* PROCESSES FUNCTIONS FOR CPU PROGRAMS THAT OPERATE ON
00014  M01S00013.hfm     +++|*         THE STATUS AND CONTROL REGISTERS OF THE CYBER 170 OR THE
00015  M01S00014.hfm     +++|*         INTERLOCK REGISTER OF THE CYBER 70.
00016  M01S00015.hfm     +++|*
00017  M01S00016.hfm     +++|*         ALL *HFM* FUNCTIONS REQUIRE THAT THE JOB IS SYSTEM ORIGIN
00018  M01S00017.hfm     +++|*         OR THE USER HAS SYSTEM ORIGIN PRIVILEDGES WITH DEBUG MODE
00019  M01S00018.hfm     +++|*         ON, THAT THE CALLING PROGRAM HAS AN SSJ= ENTRY POINT,
00020  M01S00019.hfm     +++|*         AND THAT AUTO RECALL IS SET.  ERRORS ENCOUNTERED BY *HFM*
Line S00020 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00020.ns2052  ---|*         CAUSE THE REQUEST TO BE DROPPED, BUT DO NOT ABORT THE JOB.
00022  M01S00001.ns2052  +++|*         CAUSE THE REQUEST TO BE DROPPED AND ABORT THE JOB.
00023  M01S00021.hfm     +++|          SPACE  4
00024  M01S00022.hfm     +++|***       CALL.
00025  M01S00023.hfm     +++|*
00026  M01S00024.hfm     +++|*T IR     24/ *HFMP*,12/ CODE,6/ 0,18/ ADDR
Figure IR

01718232429 ADDR 0 CODE30353659 CODE *HFMP*

00027  M01S00025.hfm     +++|*         CODE - FUNCTION CODE.
00028  M01S00026.hfm     +++|*         ADDR - ADDRESS OF PARAMETER WORD.
Line S00027 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00027.ns2052  ---|*
Line S00028 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00028.ns2052  ---|*         RETURN.
Line S00029 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00031  M02S00029.ns2052  ---|*
Line S00030 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00030.ns2052  ---|*T ADDR   2/ ,10/ EC,48/
Figure ADDR

029304748575859 EC


Line S00031 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00031.ns2052  ---|*         EC     ERROR CODE.
Line S00032 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00032.ns2052  ---|*                1 = * HFM ARGUMENT ERROR.*.
Line S00033 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00033.ns2052  ---|*                2 = * HFM ILLEGAL REQUEST.*.
Line S00034 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00034.ns2052  ---|*                3 = * CHANNEL 36 NOT ACTIVE.*.
00037  M01S00035.hfm     +++|          SPACE  4
00038  M01S00036.hfm     +++|***       DAYFILE MESSAGES.
00039  M01S00037.hfm     +++|*
Line S00038 Modification History
M01 (Added by) hfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00038.v23l617 ---|*         * CHANNEL 36 NOT ACTIVE.* - ILLEGAL REQUEST FOR CHANNEL 36.
00041  M01S00001.v23l617 +++|*         * CHANNEL 36 NOT ACTIVE.* - INCORRECT REQUEST FOR CHANNEL 36.
00042  M01S00039.hfm     +++|*
Line S00040 Modification History
M01 (Added by) hfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00040.v23l617 ---|*         * HFM ARGUMENT ERROR.* - ILLEGAL FUNCTION CODE OR PARAMETER
00044  M01S00002.v23l617 +++|*         * HFM ARGUMENT ERROR.* - INCORRECT FUNCTION CODE OR PARAMETER
00045  M01S00041.hfm     +++|*         WORD ADDRESS OUT OF RANGE.
00046  M01S00042.hfm     +++|*
Line S00043 Modification History
M01 (Added by) hfm
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00043.v23l617 ---|*         * HFM ILLEGAL REQUEST.* - NOT SSJ= CALLER, AUTO RECALL NOT
00048  M01S00003.v23l617 +++|*         * HFM INCORRECT REQUEST.* - NOT SSJ= CALLER, AUTO RECALL NOT
00049  M01S00044.hfm     +++|*         SET, OR NOT SYSTEM ORIGIN WITH USER NOT VALIDATED FOR
Line S00045 Modification History
M01 (Added by) hfm
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00045.ns21000 ---|*         SYSTEM PRIVILEDGES.
00051  M01S00001.ns21000 +++|*         SYSTEM PRIVILEDGES, OR NOT CYBER 70 OR CYBER 170 MAINFRAME.
00052  M01S00046.hfm     +++|          SPACE  4
00053  M01S00047.hfm     +++|*CALL     COMPMAC
00054  M01S00002.ns2052  +++|*CALL     COMSPIM
00055  M01S00048.hfm     +++|*CALL     COMSSCR
00056  M01S00049.hfm     +++|*CALL     COMSSSJ
00057  M01S00050.hfm     +++|          TITLE  DIRECT LOCATION ASSIGNMENTS.
00058  M01S00051.hfm     +++|****      DIRECT LOCATION ASSIGNMENTS.
00059  M01S00052.hfm     +++|
00060  M01S00053.hfm     +++|
00061  M01S00054.hfm     +++| CM       EQU    10 - 14     CM WORD BUFFER
00062  M01S00055.hfm     +++| CN       EQU    20 - 24     CM WORD BUFFER
00063  M01S00056.hfm     +++| PW       EQU    30 - 34     PARAMETER WORD BUFFER
00064  M01S00057.hfm     +++| NB       EQU    35          NUMBER OF BITS IN REGISTER
Line S00058 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00058.ns2052  ---| EC       EQU    36          ERROR CODE
Line S00059 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00059.ns2052  ---| MT       EQU    37          MACHINE TYPE FLAG
00067  M01S00003.ns2052  +++| MT       EQU    36          MACHINE TYPE FLAG
00068  M01S00060.hfm     +++|
00069  M01S00061.hfm     +++|
00070  M01S00062.hfm     +++|*         CONSTANTS.
00071  M01S00063.hfm     +++|
00072  M01S00064.hfm     +++| CH       EQU    CHSC        STATUS/CONTROL REGISTER CHANNEL
Line S00065 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00065.ns2052  ---|
Line S00066 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00066.ns2052  ---|*         INSTRUCTIONS USED AS CONSTANTS.
Line S00067 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00067.ns2052  ---|
Line S00068 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00068.ns2052  ---| IANI     EQU    7000        IAN INSTRUCTION
Line S00069 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00077  M02S00069.ns2052  ---| OANI     EQU    7200        OAN INSTRUCTION
Line S00070 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00070.ns2052  ---|
00079  M01S00071.hfm     +++|****
00080  M01S00072.hfm     +++| HFM      TITLE  MAIN PROGRAM.
00081  M01S00073.hfm     +++|*         HFM - MAIN PROGRAM.
00082  M01S00074.hfm     +++|
00083  M01S00075.hfm     +++|          ORG    PPFW
00084  M01S00076.hfm     +++| HFM      RJM    PRS         PRESET
00085  M01S00077.hfm     +++|          LDM    TFCN,IR+2   SET FUNCTION PROCESSOR
00086  M01S00078.hfm     +++|          STM    HFMA
00087  M01S00079.hfm     +++|          LJM    *           PROCESS REQUEST
00088  M01S00080.hfm     +++| HFMA     EQU    *-1
00089  M01S00081.hfm     +++|
00090  M01S00082.hfm     +++|*         RETURN FROM FUNCTION.
00091  M01S00083.hfm     +++|
Line S00084 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00084.ns2052  ---| HFM1     LDD    IR+3        WRITE PARAMETER WORD
Line S00085 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00085.ns2052  ---|          LPN    77
Line S00086 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00094  M02S00086.ns2052  ---|          SHN    6
Line S00087 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00095  M02S00087.ns2052  ---|          ADD    RA
Line S00088 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00088.ns2052  ---|          SHN    6
Line S00089 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00089.ns2052  ---|          ADD    IR+4
Line S00090 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00090.ns2052  ---|          CWD    PW
Line S00091 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00091.ns2052  ---| HFMX     MONITOR DPPM       DROP PP
00100  M01S00004.ns2052  +++| HFM1     MONITOR  DPPM      DROP PP
00101  M01S00092.hfm     +++|          LJM    PPR         EXIT TO PP RESIDENT
00102  M01S00093.hfm     +++|          SPACE  4
00103  M01S00094.hfm     +++|**        TFCN - TABLE OF FUNCTION CODE PROCESSORS.
00104  M01S00095.hfm     +++|*         ENTRY = 1 WORD.
00105  M01S00096.hfm     +++|*         INDEXED BY FUNCTION CODE.
00106  M01S00097.hfm     +++|*
00107  M01S00098.hfm     +++|*T        12/ ADDR
Figure

011 ADDR

00108  M01S00099.hfm     +++|*         ADDR   ADDRESS OF FUNCTION PROCESSOR.
00109  M01S00100.hfm     +++|
00110  M01S00101.hfm     +++|
00111  M01S00102.hfm     +++| TFCN     BSS    0
00112  M01S00103.hfm     +++|          LOC    0
00113  M01S00104.hfm     +++|
00114  M01S00105.hfm     +++|          CON    TDB         TRANSFER DATA BLOCK
00115  M01S00106.hfm     +++|          CON    PRF         PROCESS REGISTER FUNCTION
00116  M01S00107.hfm     +++|
00117  M01S00108.hfm     +++|          LOC    *O
00118  M01S00109.hfm     +++| TFCNL    EQU    *-TFCN
00119  M01S00110.hfm     +++| ERR      TITLE  SUBROUTINES.
00120  M01S00111.hfm     +++|**        ERR -  ERROR PROCESSOR.
00121  M01S00112.hfm     +++|*
00122  M01S00113.hfm     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
Line S00114 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00123  M02S00114.ns2052  ---|*                (EC) = ERROR CODE.
Line S00115 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00124  M02S00115.ns2052  ---|*
Line S00116 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00116.ns2052  ---|*         USES   PW.
00126  M01S00005.ns2052  +++|*
00127  M01S00006.ns2052  +++|*         EXIT   TO PPR (JOB HAS BEEN ABORTED).
00128  M01S00117.hfm     +++|*
00129  M01S00118.hfm     +++|*         CALLS  DFM.
00130  M01S00007.ns2052  +++|*
00131  M01S00008.ns2052  +++|*         MACROS MONITOR.
00132  M01S00119.hfm     +++|
00133  M01S00120.hfm     +++|
00134  M01S00121.hfm     +++| ERR      RJM    DFM         ISSUE DAYFILE MESSAGE
Line S00122 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00135  M02S00122.ns2052  ---|          LDD    EC
Line S00123 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00123.ns2052  ---|          ZJN    HFMX        IF ILLEGAL PARAMETER WORD ADDRESS
Line S00124 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00124.ns2052  ---|          RAD    PW          SET ERROR CODE
Line S00125 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00125.ns2052  ---|          UJN    HFM1        EXIT
00139  M01S00009.ns2052  +++|          MONITOR  ABTM      ABORT JOB
00140  M01S00010.ns2052  +++|          LJM    PPR         EXIT TO PP RESIDENT
00141  M01S00126.hfm     +++| TDB      TITLE  FUNCTION PROCESSORS.
00142  M01S00127.hfm     +++|***       TDB -  TRANSFER DATA BLOCK (FUNCTION 0).
00143  M01S00128.hfm     +++|*
00144  M01S00129.hfm     +++|*         TRANSFER DATA BLOCK BIT BY BIT TO THE STATUS AND CONTROL
00145  M01S00130.hfm     +++|*         REGISTER, OR 128 BITS TO THE INTERLOCK REGISTER ON A CYBER
00146  M01S00131.hfm     +++|*         70.  SET OR CLEAR THE CORRESPONDING BITS IN THE REGISTER
00147  M01S00132.hfm     +++|*         AS IN THE DATA BLOCK.  THIS ALLOWS THE USER TO SET ERROR
00148  M01S00133.hfm     +++|*         OR CONTROL BITS MANUALLY.
00149  M01S00134.hfm     +++|*
00150  M01S00135.hfm     +++|*         CALLING FORMAT:
00151  M01S00136.hfm     +++|*
00152  M01S00137.hfm     +++|*T ADDR   2/F,58/ 0
Figure ADDR

029 030575859 0F

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

029 REGISTER BITS 59 - 03059 REGISTER BITS 59 - 0

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

029 REGISTER BITS 119 - 603059 REGISTER BITS 119 - 60

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

029 REGISTER BITS 179 - 1203059 REGISTER BITS 179 - 120

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

029 REGISTER BITS 239 - 1803059 REGISTER BITS 239 - 180

00157  M01S00142.hfm     +++|*
00158  M01S00143.hfm     +++|*         ADDR   PARAMETER WORD ADDRESS.
00159  M01S00144.hfm     +++|*         DB     DATA BLOCK ADDRESS (ADDR+1).
00160  M01S00145.hfm     +++|*         F      CHANNEL 36 REGISTER FLAG (BIT 59).
00161  M01S00146.hfm     +++|*
00162  M01S00147.hfm     +++|*
00163  M01S00148.hfm     +++|*         ENTRY  (PW) = PARAMETER WORD.
00164  M01S00149.hfm     +++|*                PARAMETER WORD BIT 59 SET - CHANNEL 36 REGISTER.
00165  M01S00150.hfm     +++|*                DATA BLOCK  WORD 0 - BITS 59 - 0.
00166  M01S00151.hfm     +++|*                            WORD 1 - BITS 119 - 60.
00167  M01S00152.hfm     +++|*                            WORD 2 - BITS 179 - 120.
00168  M01S00153.hfm     +++|*                            WORD 3 - BITS 239 - 180.
00169  M01S00154.hfm     +++|*
00170  M01S00155.hfm     +++|*         EXIT   DATA BLOCK TRANSFERRED TO CORRECT REGISTER.
00171  M01S00156.hfm     +++|*
00172  M01S00157.hfm     +++|*         USES   T2 - T4.
00173  M01S00158.hfm     +++|*
00174  M01S00159.hfm     +++|*         CALLS  CLO, CTY, CCH, SFC, CLL.
00175  M01S00160.hfm     +++|
00176  M01S00161.hfm     +++|
00177  M01S00162.hfm     +++| TDB      BSS    0
00178  M01S00163.hfm     +++|          RJM    CLO         CHECK LOCK OUT
00179  M01S00164.hfm     +++|          RJM    CTY         CHECK TYPE OF REGISTER
00180  M01S00165.hfm     +++|          LDD    PW          PARAMETER WORD
00181  M01S00166.hfm     +++|          SHN    21-13
00182  M01S00167.hfm     +++|          PJN    TDB1        IF CHANNEL 16
00183  M01S00168.hfm     +++|          RJM    CCH         CHANGE CHANNEL
00184  M01S00169.hfm     +++|
00185  M01S00170.hfm     +++|*         READ DATA BLOCK.
00186  M01S00171.hfm     +++|
00187  M01S00172.hfm     +++| TDB1     LDD    IR+3        READ DATA BLOCK
00188  M01S00173.hfm     +++|          LPN    77
00189  M01S00174.hfm     +++|          SHN    6
00190  M01S00175.hfm     +++|          ADD    RA
00191  M01S00176.hfm     +++|          SHN    6
00192  M01S00177.hfm     +++|          ADD    IR+4
00193  M01S00178.hfm     +++|          ADN    1
00194  M01S00179.hfm     +++|          CRM    SCRB+17,ON  WORD 0
00195  M01S00180.hfm     +++|          CRM    SCRB+12,ON  WORD 1
00196  M01S00181.hfm     +++|          CRM    SCRB+5,ON   WORD 2
00197  M01S00182.hfm     +++|          CRM    SCRB,ON     WORD 3
00198  M01S00183.hfm     +++|          LDC    SCRB+23     S/C WORD TO READ
00199  M01S00184.hfm     +++|          STD    T3
00200  M01S00185.hfm     +++|          LDN    0           FIRST BIT NUMBER
00201  M01S00186.hfm     +++|          STD    T4
00202  M01S00187.hfm     +++|
00203  M01S00188.hfm     +++|*         TRANSFER DATA BLOCK TO HARDWARE REGISTER.
00204  M01S00189.hfm     +++|
00205  M01S00190.hfm     +++| TDB2     LDN    14          NUMBER OF BITS PER WORD
00206  M01S00191.hfm     +++|          STD    T2
00207  M01S00192.hfm     +++| TDB3     LDI    T3
00208  M01S00193.hfm     +++|          SHN    21-0        GET NEXT BIT
00209  M01S00194.hfm     +++|          STI    T3
00210  M01S00195.hfm     +++|          MJN    TDB4        IF BIT TO BE SET
00211  M01S00196.hfm     +++|          LDC    FCCL        CLEAR BIT
00212  M01S00197.hfm     +++|          UJN    TDB5
00213  M01S00198.hfm     +++|
00214  M01S00199.hfm     +++| TDB4     LDC    FCSB        SET BIT
00215  M01S00200.hfm     +++| TDB5     LMC    0           ADD BIT NUMBER
00216  M01S00201.hfm     +++| TDBA     EQU    *-1
00217  M01S00202.hfm     +++|          RJM    SFC         SEND FUNCTION
00218  M01S00203.hfm     +++|          AOD    T4          INCREMENT BIT NUMBER
00219  M01S00204.hfm     +++|          STM    TDBA
00220  M01S00205.hfm     +++|          SBD    NB
00221  M01S00206.hfm     +++|          ZJN    TDB6        IF ALL BITS TRANSFERRED
00222  M01S00207.hfm     +++|          SOD    T2          DECREMENT BITS PER WORD
00223  M01S00208.hfm     +++|          NJN    TDB3        IF ENTIRE WORD NOT TRANSFERRED
00224  M01S00209.hfm     +++|          SOD    T3          SET NEXT WORD ADDRESS
00225  M01S00210.hfm     +++|          UJN    TDB2        LOOP FOR ALL BITS
00226  M01S00211.hfm     +++|
00227  M01S00212.hfm     +++| TDB6     RJM    CLL         CLEAR LOCK BIT
Line S00213 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00213.ns2052  ---|          LJM    HFMX        RETURN
00229  M01S00011.ns2052  +++|          LJM    HFM1        RETURN
00230  M01S00214.hfm     +++| PRF      EJECT
00231  M01S00215.hfm     +++|***       PRF -  PROCESS REGISTER FUNCTION (FUNCTION 1).
00232  M01S00216.hfm     +++|*
00233  M01S00217.hfm     +++|*         PROCESS STATUS AND CONTROL REGISTER FUNCTION.  SEND THE
00234  M01S00218.hfm     +++|*         SPECIFIED FUNCTION TO THE REGISTER AND RETURN THE REPLY.
00235  M01S00219.hfm     +++|*         IF CYCLE IS REQUESTED, SEND THE FUNCTION THE NUMBER OF
00236  M01S00220.hfm     +++|*         TIMES AND AT THE TIME INTERVAL GIVEN IN THE PARAMETER WORD,
00237  M01S00221.hfm     +++|*         AND RETURN THE REPLY AFTER THE FINAL CYCLE.
00238  M01S00222.hfm     +++|*
00239  M01S00223.hfm     +++|*         CALLING FORMAT:
00240  M01S00224.hfm     +++|*
00241  M01S00225.hfm     +++|*T ADDR   2/F,10/ 0,12/ LENGTH,12/ NUMBER,12/ FUNCTION,12/ REPLY
Figure ADDR

01112232429 REPLY FUNCTION NUMBER3035364748575859 NUMBER LENGTH 0F

00242  M01S00226.hfm     +++|*
00243  M01S00227.hfm     +++|*         ADDR   PARAMETER WORD ADDRESS.
00244  M01S00228.hfm     +++|*         F      CHANNEL 36 REGISTER FLAG (BIT 59).
00245  M01S00229.hfm     +++|*                CYCLE FLAG (BIT 58).
00246  M01S00230.hfm     +++|*         LENGTH  NUMBER OF PERIODS PER CYCLE (PERIOD = 20B MS.).
00247  M01S00231.hfm     +++|*         NUMBER  NUMBER OF CYCLES.
00248  M01S00232.hfm     +++|*         FUNCTION  REGISTER FUNCTION.
00249  M01S00233.hfm     +++|*                0YYY        READ BYTE YYY.
00250  M01S00234.hfm     +++|*                1XXX        TEST BIT XXX.
00251  M01S00235.hfm     +++|*                2XXX        CLEAR BIT XXX.
00252  M01S00236.hfm     +++|*                3XXX        TEST/CLEAR BIT XXX.
00253  M01S00237.hfm     +++|*                4XXX        SET BIT XXX.
00254  M01S00238.hfm     +++|*                5XXX        TEST/SET BIT XXX.
00255  M01S00239.hfm     +++|*                6000        CLEAR ALL BITS.
00256  M01S00240.hfm     +++|*                7000        TEST ERROR BITS.
00257  M01S00241.hfm     +++|*         REPLY  FUNCTION REPLY.
00258  M01S00242.hfm     +++|*
00259  M01S00243.hfm     +++|*
00260  M01S00244.hfm     +++|*         ENTRY  (PW - PW+4) = PARAMETER WORD CONTENTS.
00261  M01S00245.hfm     +++|*                PARAMETER WORD BIT 59 SET - CHANNEL 36.
00262  M01S00246.hfm     +++|*                      BITS 12 - 23 - S/C INSTRUCTION.
00263  M01S00247.hfm     +++|*                      BIT 58 SET - PROCESS CYCLE.
00264  M01S00248.hfm     +++|*                      BITS 24 - 35 - NUMBER OF CYCLES.
00265  M01S00249.hfm     +++|*                      BITS 36 - 47 - CYCLE TIME.
00266  M01S00250.hfm     +++|*
00267  M01S00251.hfm     +++|*         EXIT   S/C INSTRUCTION PROCESSED.
00268  M01S00252.hfm     +++|*                REPLY IN BITS 0 - 11 OF PARAMETER WORD.
00269  M01S00253.hfm     +++|*
Line S00254 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00270  M02S00254.ns2052  ---|*         USES   CM - CM+4, PW - PW+4, CN - CN+4.
Line S00255 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00271  M02S00255.ns2052  ---|*
Line S00256 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00272  M02S00256.ns2052  ---|*         CALLS  CTY, CCH, CEB, SFC.
Line S00012 Modification History
M01 (Added by) ns2052
M02 (Updated by) ns2052a
Seq #  *Modification Id* Act 
----------------------------+
00273  M02S00012.ns2052a ---|*         USES   PW, PW+2, CM - CM+4, CN - CN+4.
00274  M01S00001.ns2052a +++|*         USES   CM - CM+4, CN - CN+4, PW - PW+4.
00275  M01S00013.ns2052  +++|*
00276  M01S00014.ns2052  +++|*         CALLS  CCH, CEB, CTY, SFC.
00277  M01S00015.ns2052  +++|*
00278  M01S00016.ns2052  +++|*         MACROS MONITOR, PAUSE.
00279  M01S00257.hfm     +++|
00280  M01S00258.hfm     +++|
00281  M01S00259.hfm     +++| PRF      BSS    0
00282  M01S00260.hfm     +++|          RJM    CTY         CHECK TYPE OF REGISTER
00283  M01S00261.hfm     +++|          LDD    PW          PARAMETER WORD
00284  M01S00262.hfm     +++|          SHN    21-13
00285  M01S00263.hfm     +++|          PJN    PRF1        IF CHANNEL 16
00286  M01S00264.hfm     +++|          RJM    CCH         CHANGE CHANNEL
00287  M01S00265.hfm     +++| PRF1     RJM    CEB         CHECK FOR CHANNEL 36 ERROR BIT
00288  M01S00266.hfm     +++|          LDD    PW
00289  M01S00267.hfm     +++|          SHN    21-12
00290  M01S00268.hfm     +++|          PJN    PRF3        IF PROCESS CYCLE BIT NOT SET
00291  M01S00269.hfm     +++|
00292  M01S00270.hfm     +++|*         ON CYCLE, READ REAL TIME CLOCK.
00293  M01S00271.hfm     +++|
00294  M01S00272.hfm     +++|          MONITOR RCPM       REQUEST CPU
00295  M01S00273.hfm     +++| PRF2     LDC    RTCL        READ REAL TIME CLOCK
00296  M01S00274.hfm     +++|          CRD    CN
00297  M01S00275.hfm     +++|
00298  M01S00276.hfm     +++|*         SEND FUNCTION AND RETURN REPLY.
00299  M01S00277.hfm     +++|
00300  M01S00278.hfm     +++| PRF3     LDD    PW+3
00301  M01S00279.hfm     +++|          RJM    SFC         SEND FUNCTION
00302  M01S00002.ns2052a +++|          STD    PW+4        SAVE SCR DATA
Line S00280 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00303  M02S00280.ns2052  ---|          STD    CM          STORE REPLY
00304  M01S00281.hfm     +++|          LDD    T4          CHECK CHANNEL 36 ERROR BIT FLAG
00305  M01S00282.hfm     +++|          ZJN    PRF4        IF NOT ERROR BIT
00306  M01S00283.hfm     +++|          LDC    FCSB+EISP   SET ERROR IN SECOND PPS BIT
00307  M01S00284.hfm     +++|          OAN    16
00308  M01S00285.hfm     +++|          IAN    16+40
00309  M01S00286.hfm     +++| PRF4     LDD    PW
00310  M01S00287.hfm     +++|          SHN    21-12
00311  M01S00288.hfm     +++|          MJN    PRF5        IF CYCLE BIT SET
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
Line S00289 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00318  M02S00289.ns2052  ---|          LDD    CM          STORE FUNCTION REPLY
Line S00290 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00319  M02S00290.ns2052  ---|          STD    PW+4
00320  M01S00291.hfm     +++|          LJM    HFM1        RETURN
00321  M01S00292.hfm     +++|
00322  M01S00293.hfm     +++|*         CHECK CYCLE TIMING.
00323  M01S00294.hfm     +++|
00324  M01S00295.hfm     +++| PRF5     LDC    RTCL        READ REAL TIME CLOCK
00325  M01S00296.hfm     +++|          CRD    CM
00326  M01S00297.hfm     +++|          LDD    CM+4
00327  M01S00298.hfm     +++|          SBD    CN+4
00328  M01S00299.hfm     +++|          SHN    -4          NUMBER OF CYCLES SINCE LAST INSTRUCTION
00329  M01S00300.hfm     +++|          SBD    PW+1        CYCLE TIME
00330  M01S00301.hfm     +++|          PJN    PRF6        IF TIME TO SEND INSTRUCTION
00331  M01S00302.hfm     +++|          PAUSE
00332  M01S00303.hfm     +++|          UJN    PRF5        LOOP FOR CYCLE TIME
00333  M01S00304.hfm     +++|
00334  M01S00305.hfm     +++|*         CHECK FOR END OF CYCLE.
00335  M01S00306.hfm     +++|
00336  M01S00307.hfm     +++| PRF6     SOD    PW+2        NUMBER OF CYCLES
00337  M01S00308.hfm     +++|          SBN    1
00338  M01S00309.hfm     +++|          ZJN    PRF7        IF TIME UP
00339  M01S00310.hfm     +++|          LDD    IR+3        READ PARAMETER WORD
00340  M01S00311.hfm     +++|          LPN    77
00341  M01S00312.hfm     +++|          SHN    6
00342  M01S00313.hfm     +++|          ADD    RA
00343  M01S00314.hfm     +++|          SHN    6
00344  M01S00315.hfm     +++|          ADD    IR+4
00345  M01S00316.hfm     +++|          CRD    CN
00346  M01S00317.hfm     +++|          LDD    CN          CHECK FOR END OF CYCLE
00347  M01S00318.hfm     +++|          SHN    21-12
00348  M01S00319.hfm     +++|          PJN    PRF7        IF STOP CYCLE SIGNAL
00349  M01S00320.hfm     +++|          LJM    PRF2        LOOP FOR NEXT INSTRUCTION
00350  M01S00321.hfm     +++|
00351  M01S00322.hfm     +++| PRF7     LDN    0           CLEAR CYCLE BIT
00352  M01S00323.hfm     +++|          STD    PW
00353  M01S00324.hfm     +++|          LJM    PRF3        LOOP FOR LAST INSTRUCTION
00354  M01S00325.hfm     +++| CCH      TITLE  SECONDARY SUBROUTINES.
00355  M01S00326.hfm     +++|**        CCH -  CHANGE CHANNEL.
00356  M01S00327.hfm     +++|*
00357  M01S00328.hfm     +++|*         EXIT   IF CHANNEL 36 AVAILABLE, INSTRUCTIONS IN *SFC* ARE
00358  M01S00329.hfm     +++|*                SET TO CHANNEL 36.
00359  M01S00330.hfm     +++|*                IF NOT AVAILABLE, ERROR MESSAGE ISSUED.
00360  M01S00331.hfm     +++|*
Line S00332 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00361  M02S00332.ns2052  ---|*         USES   EC, CM - CM+4.
00362  M01S00017.ns2052  +++|*         USES   CM - CM+4.
00363  M01S00333.hfm     +++|*
00364  M01S00334.hfm     +++|*         CALLS  ERR, CLL.
00365  M01S00335.hfm     +++|
00366  M01S00336.hfm     +++|
00367  M01S00337.hfm     +++| CCH      SUBR               ENTRY/EXIT
00368  M01S00338.hfm     +++|          LDD    MT          CHECK MACHINE TYPE
00369  M01S00339.hfm     +++|          ZJN    CCH1        IF NOT CYBER 170
00370  M01S00340.hfm     +++|          LDN    PPUL        READ PP CONFIGURATION
00371  M01S00341.hfm     +++|          CRD    CM
00372  M01S00342.hfm     +++|          LDD    CM+2        CHECK NUMBER OF PP-S
00373  M01S00343.hfm     +++|          SBN    13
00374  M01S00344.hfm     +++|          MJN    CCH1        IF 10 PP-S
00375  M01S00345.hfm     +++|          LDC    OANI+36     SET CHANNEL 36
00376  M01S00346.hfm     +++|          STM    SFCA
00377  M01S00347.hfm     +++|          LDC    IANI+36+40  SET CHANNEL 36
00378  M01S00348.hfm     +++|          STM    SFCB
00379  M01S00349.hfm     +++|          UJN    CCHX        RETURN
00380  M01S00350.hfm     +++|
00381  M01S00351.hfm     +++| CCH1     LDD    IR+2
00382  M01S00352.hfm     +++|          SBN    1
00383  M01S00353.hfm     +++|          PJN    CCH2        IF NOT FUNCTION 0
00384  M01S00354.hfm     +++|          RJM    CLL         CLEAR LOCK BIT
Line S00355 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00385  M02S00355.ns2052  ---| CCH2     LDN    3
Line S00356 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00386  M02S00356.ns2052  ---|          STD    EC
Line S00357 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00357.ns2052  ---|          LDC    =C* CHANNEL 36 NOT ACTIVE.*
Line S00358 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00388  M02S00358.ns2052  ---|          LJM    ERR
00389  M01S00018.ns2052  +++| CCH2     LDC    =C* CHANNEL 36 NOT ACTIVE.*
00390  M01S00019.ns2052  +++|          LJM    ERR         ISSUE MESSAGE AND ABORT
00391  M01S00359.hfm     +++| CEB      SPACE  4,10
00392  M01S00360.hfm     +++|**        CEB -  CHECK FOR CHANNEL 36 ERROR BIT.
00393  M01S00361.hfm     +++|*
00394  M01S00362.hfm     +++|*         ENTRY  (PW) = CHANNEL 36 FLAG.
00395  M01S00363.hfm     +++|*                (PW+3) = REGISTER FUNCTION.
00396  M01S00364.hfm     +++|*
00397  M01S00365.hfm     +++|*         EXIT   (T4) NONZERO IF CHANNEL 36 ERROR BIT TO BE SET.
00398  M01S00366.hfm     +++|*
00399  M01S00367.hfm     +++|*         USES   T4.
00400  M01S00368.hfm     +++|
00401  M01S00369.hfm     +++|
00402  M01S00370.hfm     +++| CEB      SUBR               ENTRY/EXIT
00403  M01S00371.hfm     +++|          LDN    0           CLEAR FLAG
00404  M01S00372.hfm     +++|          STD    T4
00405  M01S00373.hfm     +++|          LDD    PW
00406  M01S00374.hfm     +++|          SHN    21-13
00407  M01S00375.hfm     +++|          PJN    CEBX        IF CHANNEL 16
00408  M01S00376.hfm     +++|          LDD    PW+3        CHECK FOR SET BIT FUNCTIONS
00409  M01S00377.hfm     +++|          SHN    -11
00410  M01S00378.hfm     +++|          SBN    4
00411  M01S00379.hfm     +++|          MJN    CEBX        IF FUNCTIONS 0-3
00412  M01S00380.hfm     +++|          SBN    2
00413  M01S00381.hfm     +++|          PJN    CEBX        IF NOT SET OR TEST/SET FUNCTIONS
00414  M01S00382.hfm     +++|          LDD    PW+3        CHECK BIT NUMBER
00415  M01S00383.hfm     +++|          LPC    777
00416  M01S00384.hfm     +++|          SBN    NTEB        NUMBER OF TEST ERROR BITS
00417  M01S00385.hfm     +++|          PJN    CEBX        IF NOT ERROR BIT
00418  M01S00386.hfm     +++|          AOD    T4          SET FLAG
00419  M01S00387.hfm     +++|          UJN    CEBX        RETURN
00420  M01S00388.hfm     +++| CLL      SPACE  4,5
00421  M01S00389.hfm     +++|**        CLL -  CLEAR LOCK OUT.
00422  M01S00390.hfm     +++|*
00423  M01S00391.hfm     +++|*         EXIT   LOCK OUT BIT CLEARED.
00424  M01S00392.hfm     +++|*
00425  M01S00393.hfm     +++|*         USES   CM - CM+4.
00426  M01S00394.hfm     +++|
00427  M01S00395.hfm     +++|
00428  M01S00396.hfm     +++| CLL      SUBR               ENTRY/EXIT
00429  M01S00397.hfm     +++|          LDC    SCRL        CLEAR LOCK OUT BIT
00430  M01S00398.hfm     +++|          CRD    CM
00431  M01S00399.hfm     +++|          LDD    CM
00432  M01S00400.hfm     +++|          LPC    3777
00433  M01S00401.hfm     +++|          STD    CM
00434  M01S00402.hfm     +++|          LDC    SCRL
00435  M01S00403.hfm     +++|          CWD    CM
00436  M01S00404.hfm     +++|          UJN    CLLX        RETURN
00437  M01S00405.hfm     +++| CLO      SPACE  4,5
00438  M01S00406.hfm     +++|**        CLO -  CHECK MTR LOCK OUT.
00439  M01S00407.hfm     +++|*
00440  M01S00408.hfm     +++|*         EXIT   LOCK OUT BIT SET.
00441  M01S00409.hfm     +++|*
00442  M01S00410.hfm     +++|*         USES   CM - CM+4.
00443  M01S00411.hfm     +++|
00444  M01S00412.hfm     +++|
00445  M01S00413.hfm     +++| CLO      SUBR               ENTRY/EXIT
00446  M01S00414.hfm     +++| CLO1     LDC    SCRL        CHECK MTR LOCK BIT
00447  M01S00415.hfm     +++|          CRD    CM
00448  M01S00416.hfm     +++|          LDD    CM
00449  M01S00417.hfm     +++|          SHN    6
00450  M01S00418.hfm     +++|          PJN    CLO2        IF LOCK OUT BIT NOT SET
00451  M01S00419.hfm     +++|          PAUSE
00452  M01S00420.hfm     +++|          UJN    CLO1        LOOP UNTIL CLEAR
00453  M01S00421.hfm     +++|
00454  M01S00422.hfm     +++| CLO2     LDC    4000        SET BIT
00455  M01S00423.hfm     +++|          RAD    CM
00456  M01S00424.hfm     +++|          LDC    SCRL
00457  M01S00425.hfm     +++|          CWD    CM
00458  M01S00426.hfm     +++|          UJN    CLOX        RETURN
00459  M01S00427.hfm     +++| CTY      SPACE  4,7
00460  M01S00428.hfm     +++|**        CTY -  CHECK TYPE OF REGISTER.
00461  M01S00429.hfm     +++|*
00462  M01S00430.hfm     +++|*         EXIT   IF NOT CYBER 170, INSTRUCTIONS IN *SFC* SET TO
00463  M01S00431.hfm     +++|*                CHANNEL 15.
00464  M01S00432.hfm     +++|*                (NB) = NUMBER OF BITS IN REGISTER.
00465  M01S00433.hfm     +++|*
00466  M01S00434.hfm     +++|*         USES   CM - CM+4, NB.
00467  M01S00435.hfm     +++|
00468  M01S00436.hfm     +++|
00469  M01S00437.hfm     +++| CTY1     LDC    NBIT        SET NUMBER OF BITS IN S/C REGISTER
00470  M01S00438.hfm     +++|          STD    NB
00471  M01S00439.hfm     +++|
00472  M01S00440.hfm     +++| CTY      SUBR               ENTRY/EXIT
00473  M01S00441.hfm     +++|          LDD    MT          CHECK MACHINE TYPE
00474  M01S00442.hfm     +++|          NJN    CTY1        IF CYBER 170
00475  M01S00443.hfm     +++|          LDC    200         SET NUMBER OF BITS
00476  M01S00444.hfm     +++|          STD    NB
00477  M01S00445.hfm     +++|          SOM    SFCA        SET CHANNEL 15
00478  M01S00446.hfm     +++|          SOM    SFCB
00479  M01S00447.hfm     +++|          UJN    CTYX        RETURN
00480  M01S00448.hfm     +++| SFC      SPACE  4,5
00481  M01S00449.hfm     +++|**        SFC -  SEND FUNCTION TO S/C REGISTER.
00482  M01S00450.hfm     +++|*
00483  M01S00451.hfm     +++|*         ENTRY  (A) = S/C REGISTER FUNCTION.
00484  M01S00452.hfm     +++|*
00485  M01S00453.hfm     +++|*         EXIT   (A) = FUNCTION REPLY.
00486  M01S00454.hfm     +++|
00487  M01S00455.hfm     +++|
00488  M01S00456.hfm     +++| SFC      SUBR               ENTRY/EXIT
00489  M01S00457.hfm     +++| SFCA     OAN    CH+40       SEND FUNCTION
00490  M01S00458.hfm     +++|*         OAN    CH+40+20    (IF CHANNEL 36 CALL)
00491  M01S00459.hfm     +++|*         OAN    15          (IF CYBER 70 CALL)
00492  M01S00460.hfm     +++| SFCB     IAN    CH+40
00493  M01S00461.hfm     +++|*         IAN    CH+40+20    (IF CHANNEL 36 CALL)
00494  M01S00462.hfm     +++|*         IAN    15+40       (IF CYBER 70 CALL)
00495  M01S00463.hfm     +++|          UJN    SFCX        RETURN
00496  M01S00464.hfm     +++|          SPACE  4
00497  M01S00465.hfm     +++|          USE    LITERALS
00498  M01S00466.hfm     +++|
00499  M01S00467.hfm     +++|
00500  M01S00468.hfm     +++|*         BUFFERS.
00501  M01S00469.hfm     +++|
00502  M01S00470.hfm     +++|
00503  M01S00471.hfm     +++| SCRB     EQU    *           S/C REGISTER BUFFER
00504  M01S00472.hfm     +++| PRS      TITLE  PRESET.
00505  M01S00473.hfm     +++|**        PRS -  PRESET.
00506  M01S00474.hfm     +++|*
00507  M01S00475.hfm     +++|*         EXIT   (PW - PW+4) = PARAMETER WORD CONTENTS.
00508  M01S00020.ns2052  +++|*                TO ERR, IF ANY ERROR ENCOUNTERED.
00509  M01S00476.hfm     +++|*
Line S00477 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00477.ns2052  ---|*         USES   PW - PW+4, CM - CM+4, EC, MT.
00511  M01S00021.ns2052  +++|*         USES   MT, CM - CM+4, PW - PW+4.
00512  M01S00478.hfm     +++|*
00513  M01S00479.hfm     +++|*         CALLS  CRS, CUA, ERR.
00514  M01S00480.hfm     +++|
00515  M01S00481.hfm     +++|
00516  M01S00482.hfm     +++| PRS      SUBR               ENTRY/EXIT
00517  M01S00483.hfm     +++|
00518  M01S00484.hfm     +++|*         CHECK PARAMETER WORD ADDRESS.
00519  M01S00485.hfm     +++|
Line S00486 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00520  M02S00486.ns2052  ---|          LDN    0
Line S00487 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00521  M02S00487.ns2052  ---|          STD    EC          SET NO ERROR CODE
00522  M01S00488.hfm     +++|          LDD    IR+3        CHECK ADDRESS
00523  M01S00489.hfm     +++|          LPN    77
00524  M01S00490.hfm     +++|          SHN    14
00525  M01S00491.hfm     +++|          MJN    PRS2        IF OUT OF RANGE
00526  M01S00492.hfm     +++|          ADD    IR+4
00527  M01S00493.hfm     +++|          ADN    5
00528  M01S00494.hfm     +++|          SHN    -6
00529  M01S00495.hfm     +++|          SBD    FL
00530  M01S00496.hfm     +++|          PJN    PRS2        IF .GT. FL - 5
00531  M01S00497.hfm     +++|          LDD    IR+3        SET ADDRESS - 2
00532  M01S00498.hfm     +++|          LPN    77
00533  M01S00499.hfm     +++|          SHN    14
00534  M01S00500.hfm     +++|          ADD    IR+4
00535  M01S00501.hfm     +++|          SBN    2
00536  M01S00502.hfm     +++|          PJN    PRS3        IF .GT. RA + 1
Line S00503 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00503.ns2052  ---|          UJN    PRS2
Line S00504 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00538  M02S00504.ns2052  ---|
Line S00505 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00539  M02S00505.ns2052  ---| PRS1     LDN    1
Line S00506 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00540  M02S00506.ns2052  ---|          STD    EC
00541  M01S00507.hfm     +++| PRS2     LDC    =C* HFM ARGUMENT ERROR.*
Line S00508 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00542  M02S00508.ns2052  ---|          LJM    ERR
00543  M01S00022.ns2052  +++|          UJN    PRS4.2      ISSUE MESSAGE AND ABORT
00544  M01S00509.hfm     +++|
00545  M01S00510.hfm     +++| PRS3     ADN    2           READ PARAMETER WORD
00546  M01S00511.hfm     +++|          SHN    14
00547  M01S00512.hfm     +++|          ADD    RA
00548  M01S00513.hfm     +++|          SHN    6
00549  M01S00514.hfm     +++|          CRD    PW
00550  M01S00515.hfm     +++|
00551  M01S00516.hfm     +++|*         CHECK FUNCTION CODE.
00552  M01S00517.hfm     +++|
00553  M01S00518.hfm     +++|          LDD    IR+2        CHECK CODE
00554  M01S00519.hfm     +++|          SBN    TFCNL
Line S00520 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00555  M02S00520.ns2052  ---|          PJN    PRS1        IF ILLEGAL CODE
Line S00023 Modification History
M01 (Added by) ns2052
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00023.v23l617 ---|          PJN    PRS2        IF ILLEGAL CODE
00557  M01S00004.v23l617 +++|          PJN    PRS2        IF INCORRECT CODE
00558  M01S00521.hfm     +++|
00559  M01S00522.hfm     +++|*         CHECK FOR LEGAL ACCESS.
00560  M01S00523.hfm     +++|
00561  M01S00524.hfm     +++|          LDD    CP          CHECK SSJ= BIT
00562  M01S00525.hfm     +++|          ADC    SEPW
00563  M01S00526.hfm     +++|          CRD    CM
00564  M01S00527.hfm     +++|          LDD    CM
00565  M01S00528.hfm     +++|          SHN    21-2
00566  M01S00529.hfm     +++|          PJN    PRS4        IF NOT SSJ= JOB
00567  M01S00530.hfm     +++|          RJM    CUA         CHECK USER ACCESS
Line S00531 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00568  M02S00531.ns2052  ---|          NJN    PRS4        IF NOT LEGAL ACCESS
00569  M01S00024.ns2052  +++|          NJN    PRS4.1      IF *DEBUG* NOT TURNED ON
00570  M01S00532.hfm     +++|          RJM    CRS         CHECK RECALL STATUS
00571  M01S00533.hfm     +++|          NJN    PRS5        IF AUTO RECALL SET
Line S00534 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00572  M02S00534.ns2052  ---| PRS4     LDN    2
Line S00535 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00573  M02S00535.ns2052  ---|          STD    EC
Line S00536 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00574  M02S00536.ns2052  ---|          LDC    =C* HFM ILLEGAL REQUEST.*
Line S00537 Modification History
M01 (Added by) hfm
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00575  M02S00537.ns2052  ---|          LJM    ERR
Line S00025 Modification History
M01 (Added by) ns2052
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00576  M02S00025.v23l617 ---| PRS4     LDC    =C* HFM ILLEGAL REQUEST.*
00577  M01S00005.v23l617 +++| PRS4     LDC    =C* HFM INCORRECT REQUEST.*
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  M01S00538.hfm     +++|
Line S00539 Modification History
M01 (Added by) hfm
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00583  M02S00539.ns21000 ---| PRS5     LDN    CPUL        CHECK MACHINE TYPE
Line S00540 Modification History
M01 (Added by) hfm
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00584  M02S00540.ns21000 ---|          CRD    CM
Line S00541 Modification History
M01 (Added by) hfm
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00585  M02S00541.ns21000 ---|          LDD    CM+3
Line S00542 Modification History
M01 (Added by) hfm
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00586  M02S00542.ns21000 ---|          LPN    20
Line S00543 Modification History
M01 (Added by) hfm
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00587  M02S00543.ns21000 ---|          STD    MT
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  M01S00544.hfm     +++|          LJM    PRSX        RETURN
00600  M01S00545.hfm     +++|          SPACE  4
00601  M01S00546.hfm     +++|*         COMMON DECKS.
00602  M01S00547.hfm     +++|
00603  M01S00548.hfm     +++|*CALL     COMPCRS
00604  M01S00549.hfm     +++| SSJ$     EQU    1           SET SSJ CHECKING FOR *COMPCUA*
00605  M01S00550.hfm     +++|*CALL     COMPCUA
00606  M01S00551.hfm     +++|
00607  M01S00552.hfm     +++|
00608  M01S00553.hfm     +++|          END
cdc/nos2.source/opl.opl871/deck/hfm.txt ยท Last modified: by 127.0.0.1