User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ma

Deck 1MA

17 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1ma     +++|          IDENT  1MA,MTA
00002  M01S00002.1ma     +++|          PERIPH
00003  M01S00003.1ma     +++|          BASE   MIXED
00004  M01S00004.1ma     +++|          SST
00005  M01S00005.1ma     +++|*COMMENT  1MA - MONITOR AUXILIARY PROCESSOR.
Line S00006 Modification History
M01 (Added by) 1ma
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1982.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.1ma     +++|          TITLE  1MA - MONITOR AUXILIARY PROCESSOR.
00009  M01S00008.1ma     +++|          SPACE  4,10
00010  M01S00009.1ma     +++|*****     1MA - MONITOR AUXILIARY PROCESSOR.
00011  M01S00010.1ma     +++|*         G. R. MANSFIELD.  70/08/04.
00012  M01S00011.1ma     +++|*         A. J. KOMOR.  76/03/15.
00013  M01S00012.1ma     +++|          SPACE  4,10
00014  M01S00013.1ma     +++|***       *1MA* IS CALLED BY THE SYSTEM MONITOR TO PERFORM
00015  M01S00014.1ma     +++|*         FUNCTIONS WHICH CAN NOT BE PROCESSED IMMEDIATELY BY THE
00016  M01S00015.1ma     +++|*         MONITOR.
00017  M01S00016.1ma     +++|          SPACE  4,10
00018  M01S00017.1ma     +++|***       CALL.
00019  M01S00018.1ma     +++|*
00020  M01S00019.1ma     +++|*
00021  M01S00020.1ma     +++|*T IR     18/  *1MA*,1/,5/  CP,12/  CODE,24/  ARG
Figure IR

0232429 ARG CODE30353640414259 CODE CP *1MA*

00022  M01S00021.1ma     +++|*         CP     CONTROL POINT NUMBER
00023  M01S00022.1ma     +++|*         CODE   FUNCTION CODE
00024  M01S00023.1ma     +++|*                0 = REQUEST STORAGE
00025  M01S00024.1ma     +++|*                1 = DAYFILE MESSAGE
00026  M01S00025.1ma     +++|*                2 = SCP FUNCTION ON UCP
00027  M01S00026.1ma     +++|*                3 = FILE SWITCHING FUNCTION.
00028  M01S00027.1ma     +++|*                4 = EXIT FROM SCP STATUS
00029  M01S00028.1ma     +++|*                5 = EJT SYSTEM REQUEST
00030  M01S00029.1ma     +++|*                6 = PROCESS CLOCK UPDATE.
00031  M01S00030.1ma     +++|*                7 = LOG SOFTWARE ERROR.
00032  M01S00031.1ma     +++|*               10 = LOAD CPP RESIDENT
00033  M01S00032.1ma     +++|*               11 = LOAD OVERLAY FOR CPP.
00034  M01S00033.1ma     +++|*               12 = IDLE CPP
00035  M01S00034.1ma     +++|*         ARG    ARGUMENT(S)
00036  M01S00035.1ma     +++|          SPACE  4,10
00037  M01S00036.1ma     +++|***       DAYFILE MESSAGES.
00038  M01S00037.1ma     +++|*
00039  M01S00038.1ma     +++|*
00040  M01S00039.1ma     +++|*         * FL REQUEST BEYOND MFL (CM).* = CM FL REQUEST EXCEEDS MFL.
00041  M01S00040.1ma     +++|*
00042  M01S00041.1ma     +++|*         * FL REQUEST BEYOND MFL (EXTENDED MEMORY).* = EXTENDED MEMORY
00043  M01S00042.1ma     +++|*           FL REQUEST EXCEEDS MFL.
00044  M01S00043.1ma     +++|*
00045  M01S00044.1ma     +++|*         * MFL LESS THAN EXTENDED MEMORY MINIMUM CM FL.* = A REQUEST
00046  M01S00045.1ma     +++|*         FOR EXTENDED MEMORY HAS BEEN MADE WHILE AN MFL OF LESS THAN
00047  M01S00046.1ma     +++|*         *MCMX* IS IN EFFECT.
00048  M01S00047.1ma     +++|*
00049  M01S00048.1ma     +++|*         * INCORRECT COMMON MEMORY MANAGER REQUEST.* = A NON CMM TYPE
00050  M01S00049.1ma     +++|*         MEMORY REQUEST WAS MADE WHILE THE JOB STEP WAS IN CMM MODE.
00051  M01S00050.1ma     +++|*
00052  M01S00051.1ma     +++|*         * INCORRECT REQUEST.* = PARAMETER ADDRESS OUTSIDE JOB FL.
00053  M01S00052.1ma     +++|*
00054  M01S00053.1ma     +++|*         * USER ACCESS NOT VALID.* = UCP NOT QUALIFIED TO ACCESS SCP.
00055  M01S00054.1ma     +++|          SPACE  4,10
00056  M01S00055.1ma     +++|***       ACCOUNT DAYFILE MESSAGES.
00057  M01S00056.1ma     +++|*
00058  M01S00057.1ma     +++|*
00059  M01S00058.1ma     +++|*         *ARUN, USERNAME, FAMILYNAME, TERMINALNAME.* = RECOVERY OF
00060  M01S00059.1ma     +++|*         AN INTERACTIVE JOB WITH A USER NAME OF USERNAME, A FAMILY
00061  M01S00060.1ma     +++|*         OF FAMILYNAME, AND A TERMINAL NAME OF TERMINALNAME.
00062  M01S00061.1ma     +++|*
00063  M01S00062.1ma     +++|*         *ASTD, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER
00064  M01S00063.1ma     +++|*         NAME USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO A
00065  M01S00064.1ma     +++|*         USER DETACH.
00066  M01S00065.1ma     +++|*
00067  M01S00066.1ma     +++|*         *ASTH, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER
00068  M01S00067.1ma     +++|*         NAME USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO A
00069  M01S00068.1ma     +++|*         LINE DISCONNECT.
00070  M01S00069.1ma     +++|*
00071  M01S00070.1ma     +++|*         *ASTP, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER
00072  M01S00071.1ma     +++|*         NAME USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO A
00073  M01S00072.1ma     +++|*         PROGRAM REQUEST.
00074  M01S00073.1ma     +++|*
00075  M01S00074.1ma     +++|*         *ASTR, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER
00076  M01S00075.1ma     +++|*         NAME USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO THE
00077  M01S00076.1ma     +++|*         RECOVERY OF THE INTERACTIVE SUBSYSTEM.
00078  M01S00077.1ma     +++|*
00079  M01S00078.1ma     +++|*         *ASTT, USERNAME, FAMILYNAME.* = INTERACTIVE JOB WITH USER
00080  M01S00079.1ma     +++|*         USERNAME AND FAMILY FAMILYNAME WAS SUSPENDED DUE TO A
00081  M01S00080.1ma     +++|*         SESSION TIMEOUT.
00082  M01S00081.1ma     +++|          SPACE  4,10
00083  M01S00082.1ma     +++|***       OPERATOR MESSAGES.
00084  M01S00083.1ma     +++|*
00085  M01S00084.1ma     +++|*
00086  M01S00085.1ma     +++|*         *WAITING FOR STORAGE (CM).* = JOB IS WAITING FOR ADDITIONAL
00087  M01S00086.1ma     +++|*         CENTRAL MEMORY TO BE MADE AVAILABLE.
00088  M01S00087.1ma     +++|*
00089  M01S00088.1ma     +++|*         *WAITING FOR STORAGE (EM).* = JOB IS WAITING FOR
00090  M01S00089.1ma     +++|*         ADDITIONAL EXTENDED CORE STORAGE TO BE MADE AVAILABLE.
00091  M01S00090.1ma     +++|*
00092  M01S00091.1ma     +++|*         * CPP NOT RESPONDING* = A CPP HAS NOT BEGUN TO INPUT *PPR*
00093  M01S00092.1ma     +++|*         FROM CHANNEL 15 DURING A DEADSTART OPERATION.
00094  M01S00093.1ma     +++|*
00095  M01S00094.1ma     +++|*         * LAST BYTE NOT TAKEN BY CPP* = THE LAST BYTE OF *PPR* HAS
00096  M01S00095.1ma     +++|*         BEEN INPUTTED BY THE CPP BEING DEADSTARTED.
00097  M01S00096.1ma     +++|*
00098  M01S00097.1ma     +++|*         * CHANNEL 15 PARITY ERROR* = DURING CPP DEADSTART, A PARITY
00099  M01S00098.1ma     +++|*         ERROR WAS ENCOUNTERED ON CHANNEL 15.
00100  M01S00099.1ma     +++|*
00101  M01S00100.1ma     +++|*         * PPR PRESET TIMEOUT* = AFTER BEING LOADED INTO A DEADSTARTED
00102  M01S00101.1ma     +++|*         CPP, *PPR* HUNG IN ITS PRESET CODE.
00103  M01S00102.1ma     +++|          SPACE  4,10
00104  M01S00103.1ma     +++|***       ERROR LOG MESSAGE.
00105  M01S00104.1ma     +++|*
00106  M01S00105.1ma     +++|*         * PPN P1234 SYSTEM ERROR.* = A PP WITH THE NAME OF PPN
00107  M01S00106.1ma     +++|*         DETECTED A SYSTEM ERROR AT ADDRESS 1234 WITHIN THE PP.
00108  M01S00107.1ma     +++|*         THE ADDRESS IS NOT VALID IF IT IS ZERO.
00109  M01S00108.1ma     +++|          SPACE  4,10
00110  M01S00109.1ma     +++|***       HANG CONDITIONS.
00111  M01S00110.1ma     +++|*
00112  M01S00111.1ma     +++|*
00113  M01S00112.1ma     +++|*         1.     *1MA* IS CALLED WITH AN INCORRECT FUNCTION CODE.
00114  M01S00113.1ma     +++|*         2.     EJT REQUEST MADE WITH INCORRECT FUNCTION CODE.
00115  M01S00114.1ma     +++|          SPACE  4,10
00116  M01S00115.1ma     +++|**        DIRECT LOCATION ASSIGNMENTS.
00117  M01S00116.1ma     +++|
00118  M01S00117.1ma     +++|
00119  M01S00118.1ma     +++| FN       EQU    20 - 24     FNT ENTRY
00120  M01S00119.1ma     +++| FS       EQU    25 - 31     FST ENTRY
00121  M01S00120.1ma     +++| SP       EQU    32 - 36     SUBSYSTEM PARAMETER WORD 1
00122  M01S00121.1ma     +++| SQ       EQU    37 - 43     JOB IDENTIFIER
00123  M01S00122.1ma     +++| SF       EQU    44          SUBFUNCTION CODE FOR FUNCTION 0
00124  M01S00123.1ma     +++| RC       EQU    44          REPLY CODE FOR FUNCTION 3
00125  M01S00124.1ma     +++| OT       EQU    44          ORIGIN TYPE
00126  M01S00125.1ma     +++| EF       EQU    46          ERROR FLAG
00127  M01S00126.1ma     +++| FA       EQU    57          FNT ORDINAL
00128  M01S00127.1ma     +++| CN       EQU    60 - 64     SCRATCH
00129  M01S00128.1ma     +++| SC       EQU    67          SCP CONNECTION ACTIVITY, SERVICE CLASS
00130  M01S00129.1ma     +++| W3       EQU    15 - 21     PARAMETER BLOCK
00131  M01S00130.1ma     +++| W4       EQU    22 - 26
00132  M01S00131.1ma     +++| W5       EQU    W4
00133  M01S00132.1ma     +++| TN       EQU    W5+1        TERMINAL NUMBER
00134  M01S00133.1ma     +++| W0       EQU    27 - 33
00135  M01S00134.1ma     +++| W1       EQU    34 - 40
00136  M01S00135.1ma     +++| W2       EQU    41 - 45
00137  M01S00136.1ma     +++| EJ       EQU    46 - 47     EJT ENTRY ADDRESS
00138  M01S00137.1ma     +++| TT       EQU    EJ          TERMINAL TABLE ADDRESS
00139  M01S00138.1ma     +++| TA       EQU    57          INTERACTIVE SUBSYSTEM *RA*
00140  M01S00139.1ma     +++| JS       EQU    57          JOB STATUS
00141  M01S00140.1ma     +++| EL       EQU    57          ENTRY LENGTH
00142  M01S00141.1ma     +++|          SPACE  4,10
00143  M01S00142.1ma     +++|**        CONSTANTS.
00144  M01S00143.1ma     +++|
00145  M01S00144.1ma     +++|
00146  M01S00145.1ma     +++| DETI     EQU    1           DETACH ALLOWED IF INVOLUNTARY
00147  M01S00146.1ma     +++| EJWD     MAX    JSNE,SCHE,SCLE  HIGHEST WORD NEEDED FROM EJT
00148  M01S00147.1ma     +++|          SPACE  4,10
00149  M01S00148.1ma     +++|**        COMMON DECKS.
00150  M01S00149.1ma     +++|
00151  M01S00150.1ma     +++|
00152  M01S00151.1ma     +++|*CALL     COMPMAC
00153  M01S00152.1ma     +++|*CALL     COMSACC
00154  M01S00153.1ma     +++|*CALL     COMSDFS
00155  M01S00154.1ma     +++|*CALL     COMSEVT
00156  M01S00001.ns2738  +++|          QUAL   DFT
00157  M01S00155.1ma     +++|*CALL     COMSDFT
00158  M01S00002.ns2738  +++|          QUAL   *
00159  M01S00156.1ma     +++|*CALL     COMSDST
00160  M01S00157.1ma     +++|
00161  M01S00158.1ma     +++|          QUAL   IOU
00162  M01S00159.1ma     +++|*CALL     COMSIOU
00163  M01S00160.1ma     +++|          QUAL   *
00164  M01S00161.1ma     +++|
00165  M01S00162.1ma     +++|*         UNQUALIFIED *COMSIOU* SYMBOLS.
00166  M01S00163.1ma     +++|
00167  M01S00164.1ma     +++| MR       EQU    /IOU/MR
00168  M01S00165.1ma     +++| MX       EQU    /IOU/MX
00169  M01S00166.1ma     +++| MXDM     EQU    /IOU/MXDM
00170  M01S00167.1ma     +++| MXPT     EQU    /IOU/MXPT
00171  M01S00168.1ma     +++|
00172  M01S00169.1ma     +++|*CALL     COMSEJT
00173  M01S00170.1ma     +++|*CALL     COMSJCE
00174  M01S00001.273l780 +++|*CALL     COMSMSC
00175  M01S00001.271l750 +++|*CALL     COMSMTR
00176  M01S00171.1ma     +++|*CALL     COMSREM
00177  M01S00172.1ma     +++|*CALL     COMSSSJ
00178  M01S00173.1ma     +++|*CALL     COMSMSP
00179  M01S00174.1ma     +++|*CALL     COMSJRO
00180  M01S00175.1ma     +++|*CALL     COMSPIM
00181  M01S00176.1ma     +++|*CALL     COMSSSE
00182  M01S00177.1ma     +++|*CALL     COMSCPS
00183  M01S00178.1ma     +++|*CALL     COMSSCP
00184  M01S00179.1ma     +++|*CALL     COMSSRU
00185  M01S00180.1ma     +++|*CALL     COMSSSD
00186  M01S00181.1ma     +++|*CALL     COMSZOL
00187  M01S00182.1ma     +++|          SPACE  4,10
00188  M01S00183.1ma     +++|          TITLE  MACRO DEFINITIONS.
00189  M01S00184.1ma     +++| ABORT    SPACE  4,10
00190  M01S00185.1ma     +++|**        ABORT - ERROR PROCESSING MACRO.
00191  M01S00186.1ma     +++|*
00192  M01S00187.1ma     +++|*         ABORT  ADDR
00193  M01S00188.1ma     +++|*
00194  M01S00189.1ma     +++|*         ADDR = FWA OF ERROR MESSAGE FOR DAYFILE.
00195  M01S00190.1ma     +++|*
00196  M01S00191.1ma     +++|*         CALLS  ERR.
00197  M01S00192.1ma     +++|
00198  M01S00193.1ma     +++|
00199  M01S00194.1ma     +++|          PURGMAC ABORT
00200  M01S00195.1ma     +++|
00201  M01S00196.1ma     +++| ABORT    MACRO  A
00202  M01S00197.1ma     +++|          MACREF ABORT
00203  M01S00198.1ma     +++|          LDC    A
00204  M01S00199.1ma     +++|          LJM    ERR         PROCESS ERROR
00205  M01S00200.1ma     +++| ABORT    ENDM
00206  M01S00201.1ma     +++|          SPACE  4,10
00207  M01S00202.1ma     +++|**        OVERLAY CONTROL.
00208  M01S00203.1ma     +++|*
00209  M01S00204.1ma     +++|*         THIS FEATURE IS INCLUDED FOR FUTURE MODULARITY.
00210  M01S00205.1ma     +++|
00211  M01S00206.1ma     +++| .N       SET    0
00212  M01S00207.1ma     +++| OVLB     MICRO  1,, 2M      BASE OVERLAY NAME
00213  M01S00208.1ma     +++| OVERLAY  SPACE  4,10
00214  M01S00209.1ma     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00215  M01S00210.1ma     +++|*
00216  M01S00211.1ma     +++|*         OVERLAY  (TEXT),LADDR.
00217  M01S00212.1ma     +++|*
00218  M01S00213.1ma     +++|*         ENTRY  *TEXT* = TEXT OF SUBTITLES.
00219  M01S00214.1ma     +++|*                *LADDR* = LOAD ADDRESS FOR OVERLAY, DEFAULT E1MA.
00220  M01S00215.1ma     +++|
00221  M01S00216.1ma     +++|
00222  M01S00217.1ma     +++|          PURGMAC  OVERLAY
00223  M01S00218.1ma     +++|
00224  M01S00219.1ma     +++| OVERLAY  MACRO  TEXT,E1MA
00225  M01S00220.1ma     +++|          MACREF OVERLAY
00226  M01S00221.1ma     +++|          QUAL
00227  M01S00222.1ma     +++| .N       SET    .N+1
00228  M01S00223.1ma     +++| .M       MICRO  .N,1, ABCDFGHIJKLM
00229  M01S00224.1ma     +++| .O       MICRO  1,3, "OVLB"".M"
00230  M01S00225.1ma     +++|          QUAL   ".O"
00231  M01S00226.1ma     +++|          TTL    1MA/".O" - TEXT
00232  M01S00227.1ma     +++|          TITLE
00233  M01S00228.1ma     +++|          IDENT  ".O",E1MA   TEXT
00234  M01S00229.1ma     +++|*COMMENT  1MA - TEXT
Line S00230 Modification History
M01 (Added by) 1ma
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00230.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.
00236  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00237  M01S00231.1ma     +++|          ORG    E1MA
00238  M01S00232.1ma     +++|          ENDM
00239  M01S00233.1ma     +++| SCLASS   SPACE  4,15
00240  M01S00234.1ma     +++|**        SCLASS - DEFINE SERVICE CLASS TABLE.
00241  M01S00235.1ma     +++|*
00242  M01S00236.1ma     +++|*         SCLASS NM,MN,DF,ST,TX
00243  M01S00237.1ma     +++|*
00244  M01S00238.1ma     +++|*         ENTRY  *NM* = SERVICE CLASS NAME.
00245  M01S00239.1ma     +++|*                *MN* = TWO CHARACTER MNEMONIC.
00246  M01S00240.1ma     +++|*                *DF* = DAYFILE MESSAGE CHARACTER.
00247  M01S00241.1ma     +++|*                *ST* = SHORT TEXT FOR *QFTLIST*.
00248  M01S00242.1ma     +++|*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00249  M01S00243.1ma     +++|*
00250  M01S00244.1ma     +++|*         NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00251  M01S00245.1ma     +++|*                THIS MACRO.
00252  M01S00246.1ma     +++|
00253  M01S00247.1ma     +++|
00254  M01S00248.1ma     +++|          PURGMAC  SCLASS
00255  M01S00249.1ma     +++|
00256  M01S00250.1ma     +++| SCLASS   MACRO  NM,MN,DF,ST,TX
00257  M01S00251.1ma     +++| .A       IFC    NE,$NM$SSSC$
00258  M01S00252.1ma     +++| .SCLVSP  RMT
00259  M01S00253.1ma     +++|          INDEX  NM,MN_MK    TX
00260  M01S00254.1ma     +++| .SCLVSP  RMT
00261  M01S00255.1ma     +++| .A       ENDIF
00262  M01S00256.1ma     +++| SCLASS   ENDM
00263  M01S00257.1ma     +++|
00264  M01S00258.1ma     +++|
00265  M01S00259.1ma     +++| SCL$     EQU    0           ONLY PROCESS CLASSES WITH JCB-S
00266  M01S00260.1ma     +++|*CALL     COMSSCD
00267  M01S00261.1ma     +++| TABLE    SPACE  4,10
00268  M01S00262.1ma     +++|**        TABLE - GENERATE OVERLAY TABLE.
00269  M01S00263.1ma     +++|*
00270  M01S00264.1ma     +++|*         GENERATES 2-BYTE TABLE ENTRIES IN THE FORMAT
00271  M01S00265.1ma     +++|*
00272  M01S00266.1ma     +++|*T        12/ OVL,12/ ADDR
Figure

0111223 ADDR OVL

00273  M01S00267.1ma     +++|*
00274  M01S00268.1ma     +++|*         OVL  = LAST CHARACTER OF OVERLAY TO BE LOADED.
00275  M01S00269.1ma     +++|*         ADDR = ADDRESS OF FUNCTION PROCESSOR IN THE OVERLAY.
00276  M01S00270.1ma     +++|
00277  M01S00271.1ma     +++|
00278  M01S00272.1ma     +++|          PURGMAC  TABLE
00279  M01S00273.1ma     +++|
00280  M01S00274.1ma     +++|          MACRO  TABLE,NAME,OFFSET,ADDR
00281  M01S00275.1ma     +++|          LOCAL  MC,TAG1,TAG2,TAG3
00282  M01S00276.1ma     +++| TAG1     IFC    NE,$NAME$$  SET *NAME* TO BEGINNING OF TABLE
00283  M01S00277.1ma     +++| NAME     BSS    0
00284  M01S00278.1ma     +++| .2       SET    NAME
00285  M01S00279.1ma     +++| TAG1     ELSE
00286  M01S00280.1ma     +++|          ORG    .2+OFFSET*2-2
00287  M01S00281.1ma     +++| TAG2     IFC    NE,$ADDR$$  IF ACTUAL TABLE ENTRY
00288  M01S00282.1ma     +++| MC       MICRO  1,1, ADDR
00289  M01S00283.1ma     +++|          IFC    NE,$"MC"$/$,1
00290  M01S00284.1ma     +++|          ERR    TABLE ADDRESSES MUST BE QUALIFIED.
00291  M01S00285.1ma     +++| MC       MICRO  1,2, ADDR
00292  M01S00286.1ma     +++| TAG3     IFC    EQ,$"MC"$//$  IF NO OVERLAY TO LOAD
00293  M01S00287.1ma     +++|          CON    0,ADDR
00294  M01S00288.1ma     +++| TAG3     ELSE               STORE LAST CHARACTER OF OVERLAY NAME
00295  M01S00289.1ma     +++| MC       MICRO  4,1, ADDR
00296  M01S00290.1ma     +++|          CON    1R_"MC",ADDR
00297  M01S00291.1ma     +++| TAG3     ENDIF
00298  M01S00292.1ma     +++| TAG2     ENDIF
00299  M01S00293.1ma     +++| TAG1     ENDIF
00300  M01S00294.1ma     +++|          ENDM
00301  M01S00295.1ma     +++|          TITLE  MTA - MAIN PROGRAM.
00302  M01S00296.1ma     +++| MTA      SPACE  4,10
00303  M01S00297.1ma     +++|**        MTA - MAIN PROGRAM.
00304  M01S00298.1ma     +++|
00305  M01S00299.1ma     +++|
00306  M01S00300.1ma     +++|          ORG    PPFW
00307  M01S00301.1ma     +++| MTA      LDD    IR+2        CHECK FUNCTION
00308  M01S00302.1ma     +++|          SBN    TFCNL
00309  M01S00303.1ma     +++|          MJN    MTA1        IF LEGAL REQUEST
00310  M01S00304.1ma     +++|          LDN    0
00311  M01S00305.1ma     +++|          RJM    CHG         CONDITIONALLY HANG PP
00312  M01S00306.1ma     +++|          LJM    DPP         DROP PP
00313  M01S00307.1ma     +++|
00314  M01S00308.1ma     +++| MTA1     RJM    IFP
00315  M01S00309.1ma     +++|          LDD    IR+3
00316  M01S00310.1ma     +++|          LPN    37
00317  M01S00311.1ma     +++|          SHN    14
00318  M01S00312.1ma     +++|          LMD    IR+4
00319  M01S00313.1ma     +++|          STM    SRAB+1
00320  M01S00314.1ma     +++|          SHN    -6
00321  M01S00315.1ma     +++|          STM    SRAA+1
00322  M01S00316.1ma     +++|          SHN    -6
00323  M01S00317.1ma     +++|          RAM    SRAB
00324  M01S00318.1ma     +++|          LDM    TFCN,IR+2   SET PROCESSOR
00325  M01S00319.1ma     +++|          STD    T1
00326  M01S00320.1ma     +++|          LMC    4000
00327  M01S00321.1ma     +++|          ZJN    MTA2        IF OVERLAY LOAD REQUIRED
00328  M01S00322.1ma     +++|          LJM    0,T1        ENTER PROCESSOR
00329  M01S00323.1ma     +++|
00330  M01S00324.1ma     +++| MTA2     LDN    MESL        READ MESSAGE DATA FROM MESSAGE BUFFER
00331  M01S00325.1ma     +++|          STD    T1
00332  M01S00326.1ma     +++|          LDD    MP+3        ASSEMBLE BUFFER ADDRESS
00333  M01S00327.1ma     +++|          SHN    14
00334  M01S00328.1ma     +++|          LMD    MP+4
00335  M01S00329.1ma     +++|          ADN    1
00336  M01S00330.1ma     +++|          CRD    SP
00337  M01S00331.1ma     +++|          ADN    1           READ JOB IDENTIFIER
00338  M01S00332.1ma     +++|          CRD    SQ
00339  M01S00333.1ma     +++|          CRM    BUF,T1      READ REST OF MESSAGE BUFFER
00340  M01S00334.1ma     +++|          LDN    ZERL        CLEAR BUFFER INTERLOCK
00341  M01S00335.1ma     +++|          CRD    CN
00342  M01S00336.1ma     +++|          LDD    MP+3        ASSEMBLE BUFFER ADDRESS
00343  M01S00337.1ma     +++|          SHN    14
00344  M01S00338.1ma     +++|          LMD    MP+4
00345  M01S00339.1ma     +++|          CWD    CN
00346  M01S00340.1ma     +++|          EXECUTE  2MA
00347  M01S00341.1ma     +++|          LDN    0
00348  M01S00342.1ma     +++|          RJM    CHG         CONDITIONALLY HANG PP
00349  M01S00343.1ma     +++|          LJM    DPP         DROP PP
00350  M01S00344.1ma     +++| CHG      SPACE  4,10
00351  M01S00345.1ma     +++|**        CHG - CONDITIONALLY HANG PP.
00352  M01S00346.1ma     +++|*
00353  M01S00347.1ma     +++|*         ENTRY  (A) = ERROR FLAG TO SET.
00354  M01S00348.1ma     +++|*
00355  M01S00349.1ma     +++|*         USES   CM - CM+4.
00356  M01S00350.1ma     +++|*
00357  M01S00351.1ma     +++|*         MACROS MONITOR.
00358  M01S00352.1ma     +++|
00359  M01S00353.1ma     +++|
00360  M01S00354.1ma     +++| CHG      SUBR               ENTRY/EXIT
00361  M01S00355.1ma     +++|          STD    CM+2        SET ERROR FLAG
00362  M01S00356.1ma     +++|          LDM    CHG         P-ADDRESS
00363  M01S00357.1ma     +++|          STD    CM+1
00364  M01S00358.1ma     +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
00365  M01S00359.1ma     +++|          UJN    CHGX        RETURN
00366  M01S00360.1ma     +++| ERR      SPACE  4,10
00367  M01S00361.1ma     +++|**        ERR - ERROR PROCESSOR.
00368  M01S00362.1ma     +++|*
00369  M01S00363.1ma     +++|*         ENTRY  (A) = FWA OF ERROR MESSAGE FOR DAYFILE.
00370  M01S00364.1ma     +++|*
00371  M01S00365.1ma     +++|*         EXIT   DAYFILE MESSAGE ISSUED.
00372  M01S00366.1ma     +++|*                CONTROL POINT ABORTED.
00373  M01S00367.1ma     +++|*
00374  M01S00368.1ma     +++|*         CALLS  DFM.
00375  M01S00369.1ma     +++|*
00376  M01S00370.1ma     +++|*         MACROS MONITOR.
00377  M01S00371.1ma     +++|
00378  M01S00372.1ma     +++|
00379  M01S00373.1ma     +++| ERR      RJM    DFM
00380  M01S00374.1ma     +++|          MONITOR  ABTM      ABORT JOB
00381  M01S00375.1ma     +++| ERR1     LJM    PPR         EXIT TO PP RESIDENT
00382  M01S00376.1ma     +++|          TITLE  SUBROUTINES.
00383  M01S00377.1ma     +++| CAA      SPACE  4,10
00384  M01S00378.1ma     +++|**        CAA - CALCULATE ABSOLUTE ADDRESS.
00385  M01S00379.1ma     +++|*
00386  M01S00380.1ma     +++|*         ENTRY  (IR+3 - IR+4) = RELATIVE ADDRESS.
00387  M01S00381.1ma     +++|*
00388  M01S00382.1ma     +++|*         EXIT   (A) = ABSOLUTE ADDRESS.
00389  M01S00383.1ma     +++|
00390  M01S00384.1ma     +++|
00391  M01S00385.1ma     +++| CAA      SUBR               ENTRY/EXIT
00392  M01S00386.1ma     +++|          LDD    IR+3        CALCULATE ABSOLUTE ADDRESS
00393  M01S00387.1ma     +++|          LPN    37
00394  M01S00388.1ma     +++|          SHN    6
00395  M01S00389.1ma     +++|          ADD    RA
00396  M01S00390.1ma     +++|          SHN    6
00397  M01S00391.1ma     +++|          ADD    IR+4
00398  M01S00392.1ma     +++|          UJN    CAAX        RETURN
00399  M01S00393.1ma     +++| RCL      SPACE  4,10
00400  M01S00394.1ma     +++|**        RCL - ENTER PP RECALL.
00401  M01S00395.1ma     +++|*         ENTRY SET TO RECALL FOR 250 MILLISECONDS.
00402  M01S00396.1ma     +++|*
00403  M01S00397.1ma     +++|*         ENTRY  (IR - IR+4) = RECALL PARAMETERS.
00404  M01S00398.1ma     +++|*                (SF) = SUBFUNCTION.
00405  M01S00399.1ma     +++|*                (A) = RECALL STACK REASON CODE.
00406  M01S00400.1ma     +++|*
Line S00401 Modification History
M01 (Added by) 1ma
M02 (Updated by) 1ma27
Seq #  *Modification Id* Act 
----------------------------+
00407  M02S00401.1ma27   ---|*         USES   CM - CM+4.
00408  M01S00001.1ma27   +++|*         USES   CM - CM+4, CN - CN+4.
00409  M01S00402.1ma     +++|*
00410  M01S00403.1ma     +++|*         MACROS MONITOR.
00411  M01S00404.1ma     +++|
00412  M01S00405.1ma     +++|
00413  M01S00406.1ma     +++| RCL      SHN    6           SAVE RECALL STACK REASON CODE
00414  M01S00407.1ma     +++|          STD    CM
00415  M01S00408.1ma     +++|          LDN    ZERL
00416  M01S00409.1ma     +++|          CRD    CM+1
00417  M01S00002.1ma27   +++|          LDD    CP          CHECK FOR *ORET*
00418  M01S00003.1ma27   +++|          ADK    STSW
00419  M01S00004.1ma27   +++|          CRD    CN
00420  M01S00005.1ma27   +++|          LDD    CN+1
00421  M01S00006.1ma27   +++|          LMN    ORET
00422  M01S00007.1ma27   +++|          ZJN    DPP         IF SET, DROP PP
00423  M01S00410.1ma     +++|          LDD    SF
00424  M01S00411.1ma     +++|          ZJN    RCL1        IF RFL REQUEST
00425  M01S00412.1ma     +++|          LDD    HN          RESTORE SUBFUNCTION
00426  M01S00413.1ma     +++|          RAD    IR+3
00427  M01S00414.1ma     +++| RCL1     LDD    MA          STORE PP CALL IN MESSAGE BUFFER
00428  M01S00415.1ma     +++|          CWD    IR
00429  M01S00416.1ma     +++|          ADN    1           WRITE RECALL STACK REASON CODE
00430  M01S00417.1ma     +++|          CWD    CM
00431  M01S00418.1ma     +++|          LDN    PTMF        REQUEST TIMED RECALL
00432  M01S00419.1ma     +++|          STD    CM+1
00433  M01S00420.1ma     +++|          LDC    250D        SET RECALL TIME
00434  M01S00421.1ma     +++|          STD    CM+4
00435  M01S00422.1ma     +++|          MONITOR  RECM      ENTER DEFAULT TIMED RECALL
00436  M01S00423.1ma     +++|          UJN    DPP1        EXIT
00437  M01S00424.1ma     +++| SRA      SPACE  4,10
00438  M01S00425.1ma     +++|**        SRA - SET REQUEST ADDRESS.
00439  M01S00426.1ma     +++|*
00440  M01S00427.1ma     +++|*         EXIT   (A) = ABSOLUTE ADDRESS OF REQUEST WORD.
00441  M01S00428.1ma     +++|*                (A) = 0 IF ADDRESS OUTSIDE USER-S FL.
00442  M01S00429.1ma     +++|
00443  M01S00430.1ma     +++|
00444  M01S00431.1ma     +++| SRA1     LDN    0           INDICATE INCORRECT ADDRESS
00445  M01S00432.1ma     +++|
00446  M01S00433.1ma     +++| SRA      SUBR               ENTRY/EXIT
00447  M01S00434.1ma     +++| SRAA     LDC    *           (REQUEST ADDRESS/100)
00448  M01S00435.1ma     +++|          SBD    FL
00449  M01S00436.1ma     +++|          PJN    SRA1        IF ADDRESS OUTSIDE FL
00450  M01S00437.1ma     +++|          LDD    RA
00451  M01S00438.1ma     +++|          SHN    6
00452  M01S00439.1ma     +++| SRAB     ADC    *           (REQUEST ADDRESS)
00453  M01S00440.1ma     +++|          UJN    SRAX        RETURN
00454  M01S00441.1ma     +++| DPP      SPACE  4,10
00455  M01S00442.1ma     +++|**        DPP - DROP PP.
00456  M01S00443.1ma     +++|*
00457  M01S00444.1ma     +++|*         USES   CM+1 - CM+2.
00458  M01S00445.1ma     +++|*
00459  M01S00446.1ma     +++|*         MACROS MONITOR.
00460  M01S00447.1ma     +++|
00461  M01S00448.1ma     +++|
00462  M01S00449.1ma     +++| DPP      MONITOR  DPPM      DROP PPU
00463  M01S00450.1ma     +++| DPP1     LJM    PPR         ENTER PP RESIDENT
00464  M01S00451.1ma     +++|
00465  M01S00452.1ma     +++| DPP2     LDN    2           DECREMENT DAYFILE MESSAGE LIMIT
00466  M01S00453.1ma     +++|          STD    CM+1
00467  M01S00454.1ma     +++|          LDN    0
00468  M01S00455.1ma     +++|          STD    CM+2
00469  M01S00456.1ma     +++|          LDD    MA
00470  M01S00457.1ma     +++|          CWM    DPPA,CM+1
00471  M01S00458.1ma     +++|          MONITOR  UADM      UPDATE ACCOUNTING
00472  M01S00459.1ma     +++|          UJN    DPP1        UPDATE ACCOUNTING AND DROP PPU
00473  M01S00460.1ma     +++|
00474  M01S00461.1ma     +++|*         MESSAGE BUFFER STRUCTURE FOR UADM FORMAT.
00475  M01S00462.1ma     +++|
00476  M01S00463.1ma     +++| DPPA     CON    CDOS
00477  M01S00464.1ma     +++|          CON    ACLW
00478  M01S00465.1ma     +++|          CON    36D*100+12D
00479  M01S00466.1ma     +++|          CON    0,0
00480  M01S00467.1ma     +++|
00481  M01S00468.1ma     +++|          CON    AISS        SUBFUNCTION
00482  M01S00469.1ma     +++|          CON    IOAW        CP AREA WORD TO UPDATE
00483  M01S00470.1ma     +++|          CON    40D*100+20D MS ACCUMULATOR FIELD
00484  M01S00471.1ma     +++|          VFD    6/,18/IMMS  INCREMENT VALUE
00485  M01S00472.1ma     +++| TFCN     SPACE  4,10
00486  M01S00473.1ma     +++|**        TFCN - FUNCTION CODE TABLE.
00487  M01S00474.1ma     +++|*
00488  M01S00475.1ma     +++|*         ENTRY = 1 WORD.
00489  M01S00476.1ma     +++|*         INDEXED BY FUNCTION CODE.
00490  M01S00477.1ma     +++|*
00491  M01S00478.1ma     +++|*T,       12/  ADDR
Figure

011 ADDR

00492  M01S00479.1ma     +++|*         ADDR   ADDRESS OF FUNCTION PROCESSOR
00493  M01S00480.1ma     +++|
00494  M01S00481.1ma     +++|
00495  M01S00482.1ma     +++| TFCN     BSS    0
00496  M01S00483.1ma     +++|          LOC    0
00497  M01S00484.1ma     +++|          CON    RFL         0 = REQUEST STORAGE
00498  M01S00485.1ma     +++|          CON    DMS         1 = DAYFILE MESSAGE
00499  M01S00486.1ma     +++|          CON    4000        2 = SCP FUNCTION ON UCP
00500  M01S00487.1ma     +++|          CON    4000        3 = FILE SWITCHING FUNCTION
00501  M01S00488.1ma     +++|          CON    4000        4 = EXIT FROM SCP STATUS
00502  M01S00489.1ma     +++|          CON    PER         5 = PROCESS EJT REQUEST
00503  M01S00490.1ma     +++|          CON    PCU         6 = PROCESS CLOCK UPDATE
00504  M01S00491.1ma     +++|          CON    LCE         7 = LOG SOFTWARE ERROR
00505  M01S00492.1ma     +++|          CON    CPP         10 = LOAD CPP RESIDENT
00506  M01S00493.1ma     +++|          CON    CPP         11 = LOAD OVERLAY FOR CPP
00507  M01S00494.1ma     +++|          CON    CPP         12 = IDLE CPP
00508  M01S00495.1ma     +++| TFCNL    BSS    0           TABLE LENGTH
00509  M01S00496.1ma     +++|          LOC    *O
00510  M01S00497.1ma     +++|          TITLE      FUNCTION PROCESSORS.
00511  M01S00498.1ma     +++| PER      SPACE  4,50
00512  M01S00499.1ma     +++|**        FUNCTION 5.
00513  M01S00500.1ma     +++|*         PROCESS EJT REQUEST.
00514  M01S00501.1ma     +++|*
00515  M01S00502.1ma     +++|*         ENTRY
00516  M01S00503.1ma     +++|*T IR     18/ *1MA*,6/ AR,12/ CP,6/ 0,18/ ADDR
Figure IR

01718232429 ADDR 0 CP303536414259 CP AR *1MA*

00517  M01S00504.1ma     +++|*         AR = AUTO RECALL FLAG.
00518  M01S00505.1ma     +++|*         CP = CONTROL POINT NUMBER.
00519  M01S00506.1ma     +++|*         ADDR   ADDRESS OF PARAMETER BLOCK.
00520  M01S00507.1ma     +++|*
00521  M01S00508.1ma     +++|*ADDR     24/ JSN,12/ FLAGS,6/ PPI,8/ ERR,9/ FCN,1/C
00522  M01S00509.1ma     +++|*         42/ NAME,6/ ERF,12/ EJTO
00523  M01S00510.1ma     +++|*         3/RES,3/JAL,6/ OT,6/ RC,18/ MSG BUF,24/ RES
00524  M01S00511.1ma     +++|*         60/ REC WD 1
00525  M01S00512.1ma     +++|*         60/ REC WD 2
00526  M01S00513.1ma     +++|*         12/ INST,12/ TN,36/ CDC RES
00527  M01S00514.1ma     +++|*         42/ TNAME, 18/ RESERVED
00528  M01S00515.1ma     +++|*
00529  M01S00516.1ma     +++|*         JSN = JOB SEQUENCE NUMBER.
00530  M01S00517.1ma     +++|*         FLAGS = ENEJ, BIT 0 = SELECT EJT ENTRIES BY ORIGIN TYPE.
00531  M01S00518.1ma     +++|*                 RTEJ - BIT 0 = SELECT EJT ENTRIES BY ORIGIN TYPE.
00532  M01S00519.1ma     +++|*                        BIT 1 = DEFAULT TIMEOUT (CLEAR = 0 TIMEOUT).
00533  M01S00520.1ma     +++|*         PPI = PREPROCESSOR INDEX.
00534  M01S00521.1ma     +++|*         ERR = ERROR RETURN (0 ON CALL).
00535  M01S00522.1ma     +++|*         FCN = FUNCTION CODE.
00536  M01S00523.1ma     +++|*         C = COMPLETE BIT (0 ON CALL).
00537  M01S00524.1ma     +++|*         NAME = ENEJ - ENTRY POINT NAME.
00538  M01S00525.1ma     +++|*                DTEJ, RCEJ, RSEJ - USER NAME.
00539  M01S00526.1ma     +++|*         ERF = ERROR FLAG TO SET.
00540  M01S00527.1ma     +++|*         EJTO = EXECUTING JOB TABLE ORDINAL.
00541  M01S00528.1ma     +++|*         RES = RESERVED FOR CDC.
00542  M01S00529.1ma     +++|*         JAL = JOB ACCESS LEVEL LIMIT (RETURNED ON *DTEJ*; 0 ON CALL).
00543  M01S00530.1ma     +++|*         OT = ORIGIN TYPE.
00544  M01S00531.1ma     +++|*         RC = REASON CODE.
00545  M01S00532.1ma     +++|*         MSG BUF = RELATIVE ADDRESS OF BUFFER TO RETURN *MS1W*.
00546  M01S00533.1ma     +++|*         REC WD 1 = RECOVERY WORD 1 (NFL WORD RC1N - SEE *PPCOM*).
00547  M01S00534.1ma     +++|*         REC WD 2 = RECOVERY WORD 2 (NFL WORD RC2N - SEE *PPCOM*).
00548  M01S00535.1ma     +++|*         INST = RESERVED FOR INSTALLATIONS.
00549  M01S00536.1ma     +++|*         TN = TERMINAL NUMBER.
00550  M01S00537.1ma     +++|*         CDC RES = RESERVED FOR CDC.
00551  M01S00538.1ma     +++|*         TNAME = TERMINAL NAME (RETURNED BY *DTEJ* AND *TJEJ*;
00552  M01S00539.1ma     +++|*                                SPECIFIED ON CALL FOR *RCEJ*).
00553  M01S00540.1ma     +++|*
00554  M01S00541.1ma     +++|*         NOTE - ANY CHANGES TO THIS PARAMETER BLOCK SHOULD ALSO
00555  M01S00542.1ma     +++|*                BE DOCUMENTED IN *CPUMTR* AND *IAFEX*.
00556  M01S00543.1ma     +++|*
00557  M01S00544.1ma     +++|*         CALLS  CHG, DPP, EXR, SFI, FUNCTION PROCESSORS.
00558  M01S00545.1ma     +++|*
00559  M01S00546.1ma     +++|*         MACROS EXECUTE.
00560  M01S00547.1ma     +++|
00561  M01S00548.1ma     +++|
00562  M01S00549.1ma     +++| PER      BSS    0           ENTRY
00563  M01S00550.1ma     +++|          LDD    MP+3        ASSEMBLE BUFFER ADDRESS
00564  M01S00551.1ma     +++|          SHN    14
00565  M01S00552.1ma     +++|          LMD    MP+4
00566  M01S00553.1ma     +++|          ADN    1
00567  M01S00554.1ma     +++|          CRM    W0,TR
00568  M01S00555.1ma     +++|          LDN    ZERL        CLEAR BUFFER INTERLOCK
00569  M01S00556.1ma     +++|          CRD    CN
00570  M01S00557.1ma     +++|          LDD    MP+3        ASSEMBLE BUFFER ADDRESS
00571  M01S00558.1ma     +++|          SHN    14
00572  M01S00559.1ma     +++|          LMD    MP+4
00573  M01S00560.1ma     +++|          CWD    CN
00574  M01S00561.1ma     +++|          LDK    EJWD+1
00575  M01S00562.1ma     +++|          STD    EL
00576  M01S00563.1ma     +++|          LDD    W0+4
00577  M01S00564.1ma     +++|          LPN    76
00578  M01S00565.1ma     +++|          STD    CN
00579  M01S00566.1ma     +++|          ZJN    PER2        IF NO FUNCTION CODE
00580  M01S00567.1ma     +++|          SBN    MXEJ*2
00581  M01S00568.1ma     +++|          PJN    PER2        IF INCORRECT FUNCTION CODE
00582  M01S00569.1ma     +++|          LDM    TEJT-1,CN   SET LOAD ADDRESS
00583  M01S00570.1ma     +++|          STM    PERA
00584  M01S00571.1ma     +++|          ZJN    PER2        IF NO PROCESSOR ADDRESS
00585  M01S00572.1ma     +++|          LDM    TEJT-2,CN   SET OVERLAY TO LOAD
00586  M01S00573.1ma     +++|          ZJN    PER1        IF NO OVERLAY TO LOAD
00587  M01S00574.1ma     +++|          LMC    2L2M
00588  M01S00575.1ma     +++|          RJM    EXR         LOAD OVERLAY
00589  M01S00576.1ma     +++| PER1     LJM    *           PROCESS EJT SYSTEM REQUEST
00590  M01S00577.1ma     +++| PERA     EQU    *-1
00591  M01S00578.1ma     +++|
00592  M01S00579.1ma     +++|*         PROCESS INCORRECT FUNCTION CODE.
00593  M01S00580.1ma     +++|
00594  M01S00581.1ma     +++| PER2     LDN    0
00595  M01S00582.1ma     +++|          RJM    CHG         CONDITIONALLY HANG PP
00596  M01S00583.1ma     +++|          LDN    SSER        SYSTEM SOFTWARE ERROR
00597  M01S00584.1ma     +++|*         UJN    PERX        RETURN
00598  M01S00585.1ma     +++|
00599  M01S00586.1ma     +++|*         EXIT FOR FUNCTION PROCESSORS.
00600  M01S00587.1ma     +++|*         (A) = ERROR CODE TO PUT INTO RETURN BLOCK.
00601  M01S00588.1ma     +++|
00602  M01S00589.1ma     +++| PERX     BSS    0           ENTRY
00603  M01S00590.1ma     +++|          SHN    12          POSITION ERROR CODE
00604  M01S00591.1ma     +++|          RAD    W0+4
00605  M01S00592.1ma     +++|          SHN    -14
00606  M01S00593.1ma     +++|          RAD    W0+3
00607  M01S00594.1ma     +++|          AOD    W0+4        SET COMPLETE BIT
00608  M01S00595.1ma     +++|          RJM    CAA         CALCULATE ABSOLUTE ADDRESS
00609  M01S00596.1ma     +++|          CWM    W0,TR       WRITE PARAMETER BLOCK
00610  M01S00597.1ma     +++|          LDN    CEIN
00611  M01S00598.1ma     +++|          STD    T1
00612  M01S00599.1ma     +++|          LDC    0           CHECK EJTO
00613  M01S00600.1ma     +++| PERB     EQU    *-1         EJT ORDINAL
00614  M01S00601.1ma     +++|          ZJN    PER3        IF NO INTERLOCK TO CLEAR
00615  M01S00602.1ma     +++|          SFA    EJT
00616  M01S00603.1ma     +++|          RJM    SFI         CLEAR INTERLOCK
00617  M01S00604.1ma     +++| PER3     LJM    DPP         DROP PP
00618  M01S00605.1ma     +++| TEJT     SPACE  4,20
00619  M01S00606.1ma     +++|**        TEJT - TABLE OF EJT REQUEST PROCESSORS.
00620  M01S00607.1ma     +++|*
00621  M01S00608.1ma     +++|*T        12/ OVL,12/ ADDR
Figure

0111223 ADDR OVL

00622  M01S00609.1ma     +++|*
00623  M01S00610.1ma     +++|*         OVL  = LAST LETTER OF OVERLAY TO LOAD.
00624  M01S00611.1ma     +++|*         ADDR = ADDRESS OF FUNCTION PROCESSOR.
00625  M01S00612.1ma     +++|
00626  M01S00613.1ma     +++|
00627  M01S00614.1ma     +++| TEJT     TABLE
00628  M01S00615.1ma     +++|          TABLE  DTEJ,/2MC/DTC  DTEJ - DETACH JOB
00629  M01S00616.1ma     +++|          TABLE  ENEJ,//PER2    ENEJ - (PROCESSED BY CPUMTR)
00630  M01S00617.1ma     +++|          TABLE  FJEJ,/2MD/FTJ  FJEJ - FREEZE JOB
00631  M01S00618.1ma     +++|          TABLE  RCEJ,/2MC/REC  RCEJ - RECOVER JOB
00632  M01S00619.1ma     +++|          TABLE  RSEJ,/2MC/RRJ  RSEJ - RESTART RECOVERED JOB
00633  M01S00620.1ma     +++|          TABLE  RTEJ,/2MC/RST  RTEJ - RESET TIMEOUT
00634  M01S00621.1ma     +++|          TABLE  SAEJ,/2MD/SUB  SAEJ - SET USER BREAK ERROR FLAG
00635  M01S00622.1ma     +++|          TABLE  TJEJ,/2MC/TRM  TJEJ - TERMINATE JOB
00636  M01S00623.1ma     +++|          TABLE  MXEJ           MAXIMUM EJT REQUEST +1
00637  M01S00624.1ma     +++|          TITLE  FUNCTION PROCESSORS.
00638  M01S00625.1ma     +++| RFL      SPACE  4,25
00639  M01S00626.1ma     +++|***       FUNCTION 0.
00640  M01S00627.1ma     +++|*         REQUEST STORAGE.
00641  M01S00628.1ma     +++|*
00642  M01S00629.1ma     +++|*         ENTRY
00643  M01S00630.1ma     +++|*T ARG    6/SUB,18/FL
Figure ARG

0171823FLSUB

00644  M01S00631.1ma     +++|*
00645  M01S00632.1ma     +++|*         SUB = 0  RFL REQUEST (NO STATUS WORD).
00646  M01S00633.1ma     +++|*             = 1  IF CM, ABORT IF NOT AVAILABLE.
00647  M01S00634.1ma     +++|*             = 2  IF EXTENDED MEMORY, ABORT IF NOT AVAILABLE.
00648  M01S00635.1ma     +++|*             = 3  IF CM, NO ABORT IF NOT AVAILABLE.
00649  M01S00636.1ma     +++|*             = 4  IF EXTENDED MEMORY, NO ABORT IF NOT AVAILABLE.
00650  M01S00637.1ma     +++|*
00651  M01S00638.1ma     +++|*         FL = STORAGE REQUESTED IF SUBFUNCTION 0.
00652  M01S00639.1ma     +++|*            = ADDRESS OF STATUS WORD IF NOT SUBFUNCTION 0.
00653  M01S00640.1ma     +++|*
00654  M01S00641.1ma     +++|*         IF SUBFUNCTION AND FL ARE BOTH ZERO, A CMM ERROR IS BEING
00655  M01S00642.1ma     +++|*         REQUESTED.
00656  M01S00643.1ma     +++|*
00657  M01S00644.1ma     +++|*         USES   SC, CM - CM+4, T3 - T7.
00658  M01S00645.1ma     +++|*
00659  M01S00646.1ma     +++|*         CALLS  CKE, CLM, RSI, SRA.
00660  M01S00647.1ma     +++|*
00661  M01S00648.1ma     +++|*         MACROS EXECUTE, MONITOR.
00662  M01S00649.1ma     +++|
00663  M01S00650.1ma     +++|
00664  M01S00651.1ma     +++| RFL      LDD    IR+3        SAVE SUBFUNCTION CODE
00665  M01S00652.1ma     +++|          SHN    -6
00666  M01S00653.1ma     +++|          STD    SF
00667  M01S00654.1ma     +++|          ZJN    RFL3        IF RFL REQUEST
00668  M01S00655.1ma     +++|          LDC    -100
00669  M01S00656.1ma     +++|          RAD    IR+3
00670  M01S00657.1ma     +++|          RJM    SRA         SET REQUEST WORD ADDRESS
00671  M01S00658.1ma     +++|          ZJN    RFL2        IF INCORRECT ADDRESS
00672  M01S00659.1ma     +++|          CRD    FN
00673  M01S00660.1ma     +++|          LDD    IR+3
00674  M01S00661.1ma     +++|          SHN    21-6
00675  M01S00662.1ma     +++|          MJN    RFL6        IF EXTENDED MEMORY REQUEST
00676  M01S00663.1ma     +++|          LDD    FN+2
00677  M01S00664.1ma     +++|          SCN    77
00678  M01S00665.1ma     +++|          SHN    6
00679  M01S00666.1ma     +++|          LMD    FN+1
00680  M01S00667.1ma     +++|          SHN    6
00681  M01S00668.1ma     +++|          UJN    RFL4        ROUND MEMORY REQUEST
00682  M01S00669.1ma     +++|
00683  M01S00670.1ma     +++| RFL1     LDC    =C* INCORRECT COMMON MEMORY MANAGER REQUEST.*
00684  M01S00671.1ma     +++|          LJM    ERR         PROCESS ERROR
00685  M01S00672.1ma     +++|
00686  M01S00673.1ma     +++| RFL2     LDC    =C* INCORRECT REQUEST.*
00687  M01S00674.1ma     +++|          LJM    ERR         PROCESS ERROR
00688  M01S00675.1ma     +++|
00689  M01S00676.1ma     +++| RFL3     LDD    IR+3
00690  M01S00677.1ma     +++|          SHN    14
00691  M01S00678.1ma     +++|          LMD    IR+4
00692  M01S00679.1ma     +++|          ZJN    RFL1        IF CMM CONFLICT
00693  M01S00680.1ma     +++| RFL4     LPC    377777      MASK OUT NO REDUCE OVERRIDE
00694  M01S00681.1ma     +++|          ADN    77          ROUND UP MEMORY REQUEST
00695  M01S00682.1ma     +++|          MJN    RFL5        IF TOO MUCH MEMORY REQUESTED
00696  M01S00683.1ma     +++|          SHN    -6
00697  M01S00684.1ma     +++|          STD    T3          SET NEW FL
00698  M01S00685.1ma     +++|          RJM    CKE         CHECK FOR EXTENDED MEMORY ASSIGNED
00699  M01S00686.1ma     +++|          LJM    RFL16       CHECK FL .LE. MFL
00700  M01S00687.1ma     +++|
00701  M01S00688.1ma     +++| RFL5     LJM    RFL17       PROCESS ERROR
00702  M01S00689.1ma     +++|
00703  M01S00690.1ma     +++|*         PROCESS EXTENDED MEMORY.
00704  M01S00691.1ma     +++|
00705  M01S00692.1ma     +++| RFL6     LDC    -200+100    CHANGE CMM BIT TO CLEAR
00706  M01S00693.1ma     +++|          RAM    RFLB
00707  M01S00694.1ma     +++|          LDK    MEFL        PRESET SHIFT INSTRUCTION
00708  M01S00695.1ma     +++|          CRD    CM
00709  M01S00696.1ma     +++|          LDD    CM+2
00710  M01S00697.1ma     +++|          SHN    -11
00711  M01S00698.1ma     +++|          ADC    SHNI+3
00712  M01S00699.1ma     +++|          STM    RFLA
00713  M01S00700.1ma     +++|          LDD    FN
00714  M01S00701.1ma     +++|          ADD    FN+1
00715  M01S00702.1ma     +++|          ZJN    RFL10       IF POSSIBLE EXTENDED MEMORY STATUS
00716  M01S00703.1ma     +++| RFL7     ADC    -2*7777
00717  M01S00704.1ma     +++|          NJN    RFL8        IF NOT EXTENDED MEMORY MFL REQUEST
00718  M01S00705.1ma     +++|          LDD    FN+2
00719  M01S00706.1ma     +++|          SHN    -6
00720  M01S00707.1ma     +++|          LMN    76
00721  M01S00708.1ma     +++|          ZJN    RFL9        IF EXTENDED MEMORY MFL REQUEST
00722  M01S00709.1ma     +++|          LMN    77&76
00723  M01S00710.1ma     +++|          NJN    RFL8        IF NOT SET EXTENDED MEMORY FL TO ZERO
00724  M01S00711.1ma     +++|          LDN    ZERL
00725  M01S00712.1ma     +++|          CRD    FN-2
00726  M01S00713.1ma     +++| RFL8     LJM    RFL12       PROCESS EXTENDED MEMORY STORAGE REQUEST
00727  M01S00714.1ma     +++|
00728  M01S00715.1ma     +++| RFL9     LDN    SSTL        CHECK EXTENDED MEMORY CONTROL
00729  M01S00716.1ma     +++|          CRD    FS
00730  M01S00717.1ma     +++|          LDN    ZERL
00731  M01S00718.1ma     +++|          CRD    CM          PRESET EXTENDED MEMORY MFL = 0
00732  M01S00719.1ma     +++|          LDD    FS
00733  M01S00720.1ma     +++|          SHN    21-5
00734  M01S00721.1ma     +++|          MJN    RFL13       IF USER EXTENDED MEMORY NOT AVAILABLE
00735  M01S00722.1ma     +++|          LDD    CP
00736  M01S00723.1ma     +++|          ADN    ELCW
00737  M01S00724.1ma     +++|          CRD    FS
00738  M01S00725.1ma     +++|          LDD    FS
00739  M01S00726.1ma     +++|          UJN    RFL11       SET MFL(EC) IN REPLY WORD
00740  M01S00727.1ma     +++|
00741  M01S00728.1ma     +++| RFL10    LDD    FN+2
00742  M01S00729.1ma     +++|          SHN    -6
00743  M01S00730.1ma     +++|          NJN    RFL12       IF NOT EXTENDED MEMORY STATUS REQUEST
00744  M01S00731.1ma     +++|          LDN    ZERL
00745  M01S00732.1ma     +++|          CRD    CM
00746  M01S00733.1ma     +++|          LDD    CP          RETURN EXTENDED MEMORY FL
00747  M01S00734.1ma     +++|          ADN    ECSW
00748  M01S00735.1ma     +++|          CRD    FS
00749  M01S00736.1ma     +++|          LDD    FS+4
00750  M01S00737.1ma     +++| RFL11    SHN    3
00751  M01S00738.1ma     +++|*         SHN    3+UESC      (ADJUST FOR BLOCKING FACTOR)
00752  M01S00739.1ma     +++| RFLA     EQU    *-1
00753  M01S00740.1ma     +++|          STD    CM+1
00754  M01S00741.1ma     +++|          SHN    -14
00755  M01S00742.1ma     +++|          STD    CM
00756  M01S00743.1ma     +++|          UJN    RFL13       PROCESS COMPLETION STATUS
00757  M01S00744.1ma     +++|
00758  M01S00745.1ma     +++| RFL12    EXECUTE  2MB       PROCESS EXTENDED MEMORY STORAGE REQUEST
00759  M01S00746.1ma     +++|
00760  M01S00747.1ma     +++|*         RETURN COMPLETION STATUS.
00761  M01S00748.1ma     +++|
00762  M01S00749.1ma     +++| RFL13    LDD    SF
00763  M01S00750.1ma     +++|          ZJN    RFL15       IF NO COMPETION INFORMATION REQUESTED
00764  M01S00751.1ma     +++|          LDN    1           SET COMPLETION FLAG
00765  M01S00752.1ma     +++|          STD    CM+4
00766  M01S00753.1ma     +++|          RJM    SRA         SET REQUEST ADDRESS
00767  M01S00754.1ma     +++|          ZJN    RFL14       IF INCORRECT ADDRESS
00768  M01S00755.1ma     +++|          CWD    CM
00769  M01S00756.1ma     +++| RFL14    LDD    FN+4
00770  M01S00757.1ma     +++|          LPN    14
00771  M01S00758.1ma     +++|          LMN    14
00772  M01S00759.1ma     +++|          NJN    RFL15       IF NOT CLEAR CMM JOB STEP STATUS
00773  M01S00760.1ma     +++|          LDD    CP          CLEAR CMM JOB STEP STATUS
00774  M01S00761.1ma     +++|          ADC    DBAW
00775  M01S00762.1ma     +++|          CRD    CM
00776  M01S00763.1ma     +++|          STD    T1
00777  M01S00764.1ma     +++|          LDD    CM
00778  M01S00765.1ma     +++|          LPC    7677        (CM)
00779  M01S00766.1ma     +++|*         LPC    7577        (EXTENDED MEMORY)
00780  M01S00767.1ma     +++| RFLB     EQU    *-1
00781  M01S00768.1ma     +++|          STD    CM
00782  M01S00769.1ma     +++|          LDD    T1
00783  M01S00770.1ma     +++|          CWD    CM
00784  M01S00771.1ma     +++| RFL15    LJM    DPP         DROP PPU
00785  M01S00772.1ma     +++|
00786  M01S00773.1ma     +++|*         CHECK IF FL .LE. MFL.
00787  M01S00774.1ma     +++|
00788  M01S00775.1ma     +++| RFL16    LDD    CP
00789  M01S00776.1ma     +++|          ADN    FLCW
00790  M01S00777.1ma     +++|          CRD    T7
00791  M01S00778.1ma     +++|          LDN    ZERL
00792  M01S00779.1ma     +++|          CRD    CM
00793  M01S00780.1ma     +++|          LDD    FL
00794  M01S00781.1ma     +++|          STD    CM+1
00795  M01S00782.1ma     +++|          LDD    T7
00796  M01S00783.1ma     +++|          SBD    T3
00797  M01S00784.1ma     +++|          PJN    RFL18       IF FL .LE. MFL
00798  M01S00785.1ma     +++|          LDD    IR+3
00799  M01S00786.1ma     +++|          SHN    21-7
00800  M01S00787.1ma     +++|          PJN    RFL17       IF NOT *NO ABORT*
00801  M01S00788.1ma     +++|          LJM    RFL13       RETURN STATUS ON NO ABORT REQUESTS
00802  M01S00789.1ma     +++|
00803  M01S00790.1ma     +++| RFL17    LDC    =C* FL REQUEST BEYOND MFL (CM).*
00804  M01S00791.1ma     +++|          LJM    ERR         PROCESS ERROR ABORT
00805  M01S00792.1ma     +++|
00806  M01S00793.1ma     +++|*         REQUEST STORAGE.
00807  M01S00794.1ma     +++|
00808  M01S00795.1ma     +++| RFL18    LDD    FL          SAVE CURRENT FL
00809  M01S00796.1ma     +++|          STD    T4
00810  M01S00797.1ma     +++|          ZJN    RFL19       IF NO FL CURRENTLY ASSIGNED
00811  M01S00798.1ma     +++|          LDD    T3          REQUESTED FL
00812  M01S00799.1ma     +++|          RJM    RSI         REQUEST STORAGE INCREASE
00813  M01S00800.1ma     +++|          NJN    RFL20       IF FL NOT ASSIGNED
00814  M01S00801.1ma     +++|          RJM    CLM         CLEAR ADDITIONAL MEMORY
00815  M01S00802.1ma     +++|          LJM    RFL13       COMPLETE PROCESSING
00816  M01S00803.1ma     +++|
00817  M01S00804.1ma     +++| RFL19    LJM    RFL2        * INCORRECT REQUEST.*
00818  M01S00805.1ma     +++|
00819  M01S00806.1ma     +++|*         STORAGE NOT AVAILABLE.
00820  M01S00807.1ma     +++|
00821  M01S00808.1ma     +++| RFL20    PJN    RFL21       IF WAITING FOR REPLY FROM *1SJ*
00822  M01S00809.1ma     +++|          LDD    CP          CHECK IF JOB ROLLABLE
00823  M01S00810.1ma     +++|          ADN    JCIW
00824  M01S00811.1ma     +++|          CRD    CM
00825  M01S00812.1ma     +++|          ADK    TFSW-JCIW
00826  M01S00813.1ma     +++|          CRD    FN
00827  M01S00814.1ma     +++|          LDD    CM+3        CHECK FOR *DIS* JOB
00828  M01S00815.1ma     +++|          LPC    1000
00829  M01S00816.1ma     +++|          ADD    CM+2        CHECK FOR NON-ROLLABLE JOB
00830  M01S00817.1ma     +++|          NJN    RFL21       IF JOB NOT ROLLABLE
00831  M01S00818.1ma     +++|          SFA    EJT,FN      READ *SCLE* EJT WORD
00832  M01S00819.1ma     +++|          ADK    SCLE
00833  M01S00820.1ma     +++|          CRD    FN
00834  M01S00821.1ma     +++|          LDD    FN
00835  M01S00822.1ma     +++|          LPN    20
00836  M01S00823.1ma     +++|          NJN    RFL21       IF FORCED ROLLIN, JOB NOT ROLLABLE
00837  M01S00824.1ma     +++|          STD    CM+1        ROLLOUT CONTROL POINT
00838  M01S00825.1ma     +++|          MONITOR  ROCM
00839  M01S00826.1ma     +++|          UJN    RFL22       ENTER PP RECALL
00840  M01S00827.1ma     +++|
00841  M01S00828.1ma     +++|*         STORAGE AVAILABLE BUT NOT ASSIGNED.
00842  M01S00829.1ma     +++|
00843  M01S00830.1ma     +++| RFL21    LDD    CP          SET WAITING FOR STORAGE INCREASE
00844  M01S00831.1ma     +++|          ADN    MS2W
00845  M01S00832.1ma     +++|          CWM    =C*WAITING FOR STORAGE (CM).  *,TR
00846  M01S00833.1ma     +++| RFL22    LDN    CFIR        SET CM FL INCREASE PENDING REASON CODE
00847  M01S00834.1ma     +++|          LJM    RCL         ENTER PP RECALL STACK
00848  M01S00835.1ma     +++| DMS      SPACE  4,15
00849  M01S00836.1ma     +++|***       FUNCTION 1.
00850  M01S00837.1ma     +++|*         ENTER DAYFILE MESSAGE.
00851  M01S00838.1ma     +++|*
00852  M01S00839.1ma     +++|*         ENTRY
00853  M01S00840.1ma     +++|*T ARG    6/  0,18/  MSG
Figure ARG

0171823 MSG 0

00854  M01S00841.1ma     +++|*         MSG    ADDRESS OF MESSAGE.
00855  M01S00842.1ma     +++|*
00856  M01S00843.1ma     +++|*         USES   CM - CM+4, T2.
00857  M01S00844.1ma     +++|*
00858  M01S00845.1ma     +++|*         CALLS  DFM, SRA.
00859  M01S00846.1ma     +++|*
00860  M01S00847.1ma     +++|*         NOTE   THIS FUNCTION SHOULD BE USED ONLY BY SUBSYSTEMS THAT
00861  M01S00848.1ma     +++|*                CANNOT GIVE UP THE CPU DURING NORMAL *MSG* PROCESSING.
00862  M01S00849.1ma     +++|
00863  M01S00850.1ma     +++|
00864  M01S00851.1ma     +++| DMS      LDN    5           SET WORD COUNT
00865  M01S00852.1ma     +++|          STD    T2
00866  M01S00853.1ma     +++|          RJM    SRA         SET REQUEST ADDRESS
00867  M01S00854.1ma     +++|          ZJN    DMS1        IF INCORRECT ADDRESS
00868  M01S00855.1ma     +++|          CRM    BUF,T2
00869  M01S00856.1ma     +++|          SBN    1
00870  M01S00857.1ma     +++|          SHN    -6
00871  M01S00858.1ma     +++|          SBD    RA
00872  M01S00859.1ma     +++|          SBD    FL
00873  M01S00860.1ma     +++|          PJN    DMS1        IF INCORRECT ADDRESS
00874  M01S00861.1ma     +++|          LDN    0           TERMINATE MESSAGE
00875  M01S00862.1ma     +++|          STM    BUF+5*5
00876  M01S00863.1ma     +++|          LDC    BUF
00877  M01S00864.1ma     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
00878  M01S00865.1ma     +++|          LJM    DPP         DROP PPU
00879  M01S00866.1ma     +++|
00880  M01S00867.1ma     +++| DMS1     LDC    =C* INCORRECT REQUEST.*
00881  M01S00868.1ma     +++|          LJM    ERR         PROCESS ERROR
00882  M01S00869.1ma     +++| CPP      SPACE  4,10
00883  M01S00870.1ma     +++|**        FUNCTIONS 10, 11, 12.
00884  M01S00871.1ma     +++|*         CPP PROCESSOR.
00885  M01S00872.1ma     +++|
00886  M01S00873.1ma     +++|
00887  M01S00874.1ma     +++| CPP      LDD    MA          SAVE OVERLAY LOAD PARAMETERS
00888  M01S00875.1ma     +++|          CRD    CN
00889  M01S00876.1ma     +++|          EXECUTE 2MH        PROCESS CPP REQUEST
00890  M01S00877.1ma     +++|          LJM    DPP         DROP PP
00891  M01S00878.1ma     +++| PCU      SPACE  4,10
00892  M01S00879.1ma     +++|**        FUNCTION 6.
00893  M01S00880.1ma     +++|*         PROCESS CLOCK UPDATE.
00894  M01S00881.1ma     +++|
00895  M01S00882.1ma     +++|
00896  M01S00883.1ma     +++| PCU      EXECUTE  2MF       PROCESS CLOCK UPDATE
00897  M01S00884.1ma     +++|          LJM    DPP         DROP PP
00898  M01S00885.1ma     +++| LCE      SPACE  4,10
00899  M01S00886.1ma     +++|**        FUNCTION 7.
00900  M01S00887.1ma     +++|*         LOG SOFTWARE ERROR.
00901  M01S00888.1ma     +++|
00902  M01S00889.1ma     +++|
00903  M01S00890.1ma     +++| LCE      EXECUTE  2MG       LOG SOFTWARE ERROR
00904  M01S00891.1ma     +++|          LJM    DPP         DROP PP
00905  M01S00892.1ma     +++| CKE      SPACE  4,10
00906  M01S00893.1ma     +++|**        CKE - CHECK FOR EXTENDED MEMORY ASSIGNED.
00907  M01S00894.1ma     +++|*
00908  M01S00895.1ma     +++|*         ENTRY  (T3) = NEW FL/100B REQUESTED.
00909  M01S00896.1ma     +++|*
00910  M01S00897.1ma     +++|*         EXIT   (T3) ADJUSTED IF EXTENDED MEMORY IS ASSIGNED AND
00911  M01S00898.1ma     +++|*                (T3) IS .LT. MCMX.
00912  M01S00899.1ma     +++|*
00913  M01S00900.1ma     +++|*         USES   T3, CM - CM+4.
00914  M01S00901.1ma     +++|
00915  M01S00902.1ma     +++|
00916  M01S00903.1ma     +++| CKE      SUBR               ENTRY/EXIT
00917  M01S00904.1ma     +++|          LDD    CP          CHECK FOR EXTENDED MEMORY ASSIGNED
00918  M01S00905.1ma     +++|          ADN    ECSW
00919  M01S00906.1ma     +++|          CRD    CM
00920  M01S00907.1ma     +++|          LDD    CM+4
00921  M01S00908.1ma     +++|          ZJN    CKEX        IF NO EXTENDED MEMORY ASSIGNED
00922  M01S00909.1ma     +++|          LDD    T3
00923  M01S00910.1ma     +++|          ADC    -MCMX/100
00924  M01S00911.1ma     +++|          PJN    CKEX        IF FL .GE. MCMX
00925  M01S00912.1ma     +++|          LDC    MCMX/100    SET TO MINIMUM FL
00926  M01S00913.1ma     +++|          STD    T3
00927  M01S00914.1ma     +++|          UJN    CKEX        RETURN
00928  M01S00915.1ma     +++| MRER     SPACE  4,10
00929  M01S00916.1ma     +++|**        MRER - MAINTENANCE REGISTER ERROR HANDLER.
00930  M01S00917.1ma     +++|*
00931  M01S00918.1ma     +++|*         ENTRY  FATAL MAINTENANCE REGISTER ERROR.
00932  M01S00919.1ma     +++|*
00933  M01S00920.1ma     +++|*         EXIT   TO *ERR* VIA *ABORT* MACRO.
00934  M01S00921.1ma     +++|*
00935  M01S00922.1ma     +++|*         MACROS ABORT.
00936  M01S00923.1ma     +++|
00937  M01S00924.1ma     +++|
00938  M01S00925.1ma     +++| MRER     ABORT  ERMR        * 1MA - FATAL MAINTENANCE REGISTER ERROR.*
00939  M01S00926.1ma     +++|
00940  M01S00927.1ma     +++|
00941  M01S00928.1ma     +++| CHFL     CON    0           CHANNEL RESERVED FLAG
00942  M01S00929.1ma     +++| ERMR     DATA   C* 1MA - FATAL MAINTENANCE REGISTER ERROR.*
00943  M01S00930.1ma     +++| CLM      SPACE  4,15
00944  M01S00931.1ma     +++|**        CLM - CLEAR MEMORY (CM).
00945  M01S00932.1ma     +++|*
00946  M01S00933.1ma     +++|*         ENTRY  (T4) = OLD FL.
00947  M01S00934.1ma     +++|*
00948  M01S00935.1ma     +++|*         EXIT   ADDITIONAL CM CLEARED.
00949  M01S00936.1ma     +++|*                CONSOLE MESSAGE CLEARED.
00950  M01S00937.1ma     +++|*                (CM+1) = CURRENT FL.
00951  M01S00938.1ma     +++|*
00952  M01S00939.1ma     +++|*         USES   CM - CM+4.
00953  M01S00940.1ma     +++|*
00954  M01S00941.1ma     +++|*         MACROS MONITOR.
00955  M01S00942.1ma     +++|
00956  M01S00943.1ma     +++|
00957  M01S00944.1ma     +++| CLM      SUBR               ENTRY/EXIT
00958  M01S00945.1ma     +++|          LDK    SSTL
00959  M01S00946.1ma     +++|          CRD    CM
00960  M01S00947.1ma     +++|          LDD    CM
00961  M01S00948.1ma     +++|          SHN    21-12
00962  M01S00949.1ma     +++|          PJN    CLM0        IF MEMORY CLEARING ENABLED
00963  M01S00950.1ma     +++|          LDD    CP          READ SEPW WORD FROM CP AREA
00964  M01S00951.1ma     +++|          ADC    SEPW
00965  M01S00952.1ma     +++|          CRD    CM
00966  M01S00953.1ma     +++|          LDD    CM          CHECK ENTRY POINTS
00967  M01S00954.1ma     +++|          LPN    1
00968  M01S00955.1ma     +++|          NJN    CLM1        IF SSM= ENTRY POINT PRESENT
00969  M01S00956.1ma     +++| CLM0     LDD    FL          CHECK FL CHANGE
00970  M01S00957.1ma     +++|          SBD    T4
00971  M01S00958.1ma     +++|          MJN    CLM1        IF DECREASE
00972  M01S00959.1ma     +++|          ZJN    CLM1        IF NO CHANGE
00973  M01S00960.1ma     +++|          SHN    6
00974  M01S00961.1ma     +++|          STD    CM+2
00975  M01S00962.1ma     +++|          SHN    -14
00976  M01S00963.1ma     +++|          STD    CM+1
00977  M01S00964.1ma     +++|          LDD    HN          SET RELATIVE ADDRESS OPTION
00978  M01S00965.1ma     +++|          RAD    CM+1
00979  M01S00966.1ma     +++|          LDD    T4          SET ADDRESS FOR CLEAR
00980  M01S00967.1ma     +++|          SHN    6
00981  M01S00968.1ma     +++|          STD    CM+4
00982  M01S00969.1ma     +++|          SHN    -14
00983  M01S00970.1ma     +++|          STD    CM+3
00984  M01S00971.1ma     +++|          MONITOR  CSTM      CLEAR ADDED FL
00985  M01S00972.1ma     +++| CLM1     LDN    0
00986  M01S00973.1ma     +++|          STD    CM          CLEAR CONSOLE MESSAGE
00987  M01S00974.1ma     +++|          STD    CM+1
00988  M01S00975.1ma     +++|          LDD    CP
00989  M01S00976.1ma     +++|          ADN    MS2W
00990  M01S00977.1ma     +++|          CWD    CM
00991  M01S00978.1ma     +++|          LDN    ZERL        RETURN STATUS
00992  M01S00979.1ma     +++|          CRD    CM
00993  M01S00980.1ma     +++|          LDD    FL
00994  M01S00981.1ma     +++|          STD    CM+1
00995  M01S00982.1ma     +++|          LJM    CLMX        RETURN
00996  M01S00983.1ma     +++|          SPACE  4,10
00997  M01S00984.1ma     +++|**        COMMON DECKS.
00998  M01S00985.1ma     +++|
00999  M01S00986.1ma     +++|
01000  M01S00987.1ma     +++| EJT$     EQU    1           SELECT EJT PROCESSOR
01001  M01S00988.1ma     +++| IFP$     EQU    1
01002  M01S00989.1ma     +++| QFT$     EQU    1           SELECT QFT PROCESSOR
01003  M01S00990.1ma     +++|*CALL     COMPGFP
01004  M01S00991.1ma     +++|*CALL     COMPRSI
01005  M01S00992.1ma     +++| SFI$     EQU    1           SELECT IMMEDIATE RETURN FROM *SFI*
01006  M01S00993.1ma     +++|*CALL     COMPSFI
01007  M01S00994.1ma     +++|          SPACE  4,10
01008  M01S00995.1ma     +++|**        BUFFER.
01009  M01S00996.1ma     +++|
01010  M01S00997.1ma     +++|
01011  M01S00998.1ma     +++|          USE    BUFFER
01012  M01S00999.1ma     +++| BUF      BSS    0
01013  M01S01000.1ma     +++|          SPACE  4,10
01014  M01S01001.1ma     +++|**        OVERLAY ORIGIN.
01015  M01S01002.1ma     +++|
01016  M01S01003.1ma     +++|
01017  M01S01004.1ma     +++| E1MA     EQU    BUF+MESL*5+5
01018  M01S01005.1ma     +++|          ERRNG  BFMS-*
01019  M01S01006.1ma     +++| IFP      HERE
01020  M01S01007.1ma     +++|          OVERFLOW
01021  M01S01008.1ma     +++|          TTL    1MA/2MA - SYSTEM CP FACILITY PROCESSOR.
01022  M01S01009.1ma     +++|          TITLE
01023  M01S01010.1ma     +++|          OVERLAY (SYSTEM CP FACILITY FUNCTION.),E1MA
01024  M01S01011.1ma     +++|          SPACE  4,10
01025  M01S01012.1ma     +++|*****     2MA - FUNCTION PROCESSOR FOR SYSTEM CP FACILITY.
01026  M01S01013.1ma     +++|*
01027  M01S01014.1ma     +++|*         *2MA* PERFORMS VARIOUS TIME CONSUMING FUNCTIONS USED
01028  M01S01015.1ma     +++|*         IN THE SYSTEM CP (SCP) FACILITY.
01029  M01S01016.1ma     +++| SCP      SPACE  4,30
01030  M01S01017.1ma     +++|***       SYSTEM CONTROL POINT FUNCTIONS.  (SEE *CPUMTR*).
01031  M01S01018.1ma     +++|*
01032  M01S01019.1ma     +++|*         ENTRY
01033  M01S01020.1ma     +++|*T ARG    6/INDX ,18/ ADDR
Figure ARG

0171823 ADDRINDX

01034  M01S01021.1ma     +++|*         INDX   SUBSYSTEM INDEX OF CALLER, OR *TERM* TABLE
01035  M01S01022.1ma     +++|*                MESSAGE INDEX/2 IF *CPUMTR* REQUESTING ABORT.
01036  M01S01023.1ma     +++|*         ADDR   ADDRESS OF FUNCTION PARAMETERS.
01037  M01S01024.1ma     +++|*                ADDR = 0, IF *CPUMTR* REQUESTING ABORT.
01038  M01S01025.1ma     +++|*
01039  M01S01026.1ma     +++|*         FOR *1MA* FUNCTION 2 (SCP FUNCTION ON UCP), ADDITIONAL
01040  M01S01027.1ma     +++|*         INFORMATION IS TRANSFERRED FROM THE MESSAGE BUFFER.
01041  M01S01028.1ma     +++|*         (SP - SP+4) = 6/ RC,12/ FP, 18/ UCPA, 18/SCPA,6/ FC
01042  M01S01029.1ma     +++|*         (SQ - SQ+4) = 24/ JSEQ,24/,12/ JEJT  (SF.SWPO)
01043  M01S01030.1ma     +++|*                     = MESSAGE (SF.REGR)
01044  M01S01031.1ma     +++|*         (BUF - BUF+MESL-1) = MESSAGE (SF.REGR)
01045  M01S01032.1ma     +++|*         FC     FUNCTION CODES VALID FOR 1MA ARE -
01046  M01S01033.1ma     +++|*                02          SEND DAYFILE MESSAGE AND/OR ABORT USER.
01047  M01S01034.1ma     +++|*                24          SWAP OUT USER JOB.
01048  M01S01035.1ma     +++|*         FP     A PARAMETER MEANINGFUL TO A PARTICULAR FUNCTION.
01049  M01S01036.1ma     +++|*         JEJT   JOB EJT ORDINAL.
01050  M01S01037.1ma     +++|*         JSEQ   JOB SEQUENCE NUMBER.
01051  M01S01038.1ma     +++|*         RC     SYSTEM REPLY CODE - (SEE *COMSSCP*).
01052  M01S01039.1ma     +++|*         SCPA   A DATA ADDRESS WITHIN THE SUBSYSTEM MEMORY.
01053  M01S01040.1ma     +++|*         UCPA   A DATA ADDRESS WITHIN A USER JOB MEMORY.
01054  M01S01041.1ma     +++|*
01055  M01S01042.1ma     +++|*         CALLS  CHG, DFM, SDM, SWO, SWP, SWT, SXT.
01056  M01S01043.1ma     +++|*
01057  M01S01044.1ma     +++|*         MACROS MONITOR.
01058  M01S01045.1ma     +++|
01059  M01S01046.1ma     +++|
01060  M01S01047.1ma     +++| SCP      SUBR               ENTRY
01061  M01S01048.1ma     +++|          LDD    IR+3        CHECK ABORT REQUESTED
01062  M01S01049.1ma     +++|          LPN    77
01063  M01S01050.1ma     +++|          ADD    IR+4
01064  M01S01051.1ma     +++|          ZJN    SCP4        IF ABORT REQUESTED FROM CPUMTR
01065  M01S01052.1ma     +++|          LDD    IR+2
01066  M01S01053.1ma     +++|          SBN    3
01067  M01S01054.1ma     +++|          MJN    SCP2        IF SCP FUNCTION ON UCP
01068  M01S01055.1ma     +++|          ZJN    SCP1        IF FILE SWITCHING FUNCTION
01069  M01S01056.1ma     +++|          RJM    SXT         PROCESS SF.EXIT
01070  M01S01057.1ma     +++|          UJN    SCP3        DROP PP
01071  M01S01058.1ma     +++|
01072  M01S01059.1ma     +++| SCP1     LJM    SWT         PROCESS FILE SWITCHING FUNCTION
01073  M01S01060.1ma     +++|
01074  M01S01061.1ma     +++| SCP2     LDD    SP+4        GET SCP FUNCTION ON UCP
01075  M01S01062.1ma     +++|          LPN    37
01076  M01S01063.1ma     +++|          LMN    REGR
01077  M01S01064.1ma     +++|          NJN    SCP6        IF NOT ISSUE DAYFILE MESSAGE
01078  M01S01065.1ma     +++|          RJM    SDM         SEND DAYFILE MESSAGE AND/OR ABORT USER
01079  M01S01066.1ma     +++| SCP3     LJM    DPP         EXIT
01080  M01S01067.1ma     +++|
01081  M01S01068.1ma     +++| SCP4     LDD    IR+3        GET MESSAGE INDEX/2
01082  M01S01069.1ma     +++|          SHN    -6+1
01083  M01S01070.1ma     +++|          SCN    1
01084  M01S01071.1ma     +++|          STD    T4
01085  M01S01072.1ma     +++|          SBN    TERML
01086  M01S01073.1ma     +++|          PJN    SCP7        IF NOT LEGAL MESSAGE INDEX
01087  M01S01074.1ma     +++|          LDM    TERM,T4     GET DAYFILE MESSAGE ADDRESS
01088  M01S01075.1ma     +++|          ZJN    SCP5        IF NO DAYFILE MESSAGE
01089  M01S01076.1ma     +++|          RJM    DFM         ISSUE MESSAGE TO DAYFILE
01090  M01S01077.1ma     +++| SCP5     LDM    TERM+1,T4   GET ERROR FLAG
01091  M01S01078.1ma     +++|          STD    CM+1
01092  M01S01079.1ma     +++|          MONITOR  CEFM      SET ERROR FLAG
01093  M01S01080.1ma     +++|          UJN    SCP3        EXIT
01094  M01S01081.1ma     +++|
01095  M01S01082.1ma     +++| SCP6     LMN    SWPO&REGR
01096  M01S01083.1ma     +++|          NJN    SCP9        IF NOT VALID SUBFUNCTION CODE
01097  M01S01084.1ma     +++|          RJM    SWO         SWAP OUT USER JOB
01098  M01S01085.1ma     +++|          UJN    SCP3        EXIT
01099  M01S01086.1ma     +++|
01100  M01S01087.1ma     +++| SCP7     LDK    FSET        SET FORCED ERROR
01101  M01S01088.1ma     +++| SCP8     RJM    CHG         CONDITIONALLY HANG PP
01102  M01S01089.1ma     +++|          UJN    SCP3        DROP PP
01103  M01S01090.1ma     +++|
01104  M01S01091.1ma     +++| SCP9     LDN    0
01105  M01S01092.1ma     +++|          UJN    SCP8        CONDITIONALLY HANG
01106  M01S01093.1ma     +++| TERM     SPACE  4,10
01107  M01S01094.1ma     +++|**        TERM - TABLE OF ERROR FLAGS AND MESSAGES.
01108  M01S01095.1ma     +++|*
01109  M01S01096.1ma     +++|*T        12/ ERMA, 12/ ERFL
Figure

0111223 ERFL ERMA

01110  M01S01097.1ma     +++|*         ERMA   ERROR MESSAGE ADDRESS
01111  M01S01098.1ma     +++|*         ERFL   ERROR FLAG
01112  M01S01099.1ma     +++|
01113  M01S01100.1ma     +++|
01114  M01S01101.1ma     +++| TERM     BSS    0
01115  M01S01102.1ma     +++|          LOC    0
01116  M01S01103.1ma     +++|          CON    0,ITET      SCP *SSCR* PARAMETERS INCORRECT
01117  M01S01104.1ma     +++|          CON    =C* USER ACCESS NOT VALID.*,SYET
01118  M01S01105.1ma     +++| TERML    EQU    *
01119  M01S01106.1ma     +++|          LOC    *O
01120  M01S01107.1ma     +++|          TITLE  SCP FUNCTION PROCESSORS.
01121  M01S01108.1ma     +++| SDM      SPACE  4,10
01122  M01S01109.1ma     +++|**        SDM - SEND DAYFILE MESSAGE AND/OR ABORT JOB. (SF.REGR)
01123  M01S01110.1ma     +++|*
01124  M01S01111.1ma     +++|*         ENTRY  (BUF - BUF+MESL-1) = MESSAGE BUFFER DATA.
01125  M01S01112.1ma     +++|*
01126  M01S01113.1ma     +++|*         USES   CM - CM+4, T0 - T6, BUF - BUF+5*5.
01127  M01S01114.1ma     +++|*
01128  M01S01115.1ma     +++|*         CALLS  DFM, SCB.
01129  M01S01116.1ma     +++|*
01130  M01S01117.1ma     +++|*         MACROS MONITOR.
01131  M01S01118.1ma     +++|
01132  M01S01119.1ma     +++|
01133  M01S01120.1ma     +++| SDM      SUBR               ENTRY/EXIT
01134  M01S01121.1ma     +++|
01135  M01S01122.1ma     +++|*         SEND MESSAGE TO SPECIFIED DAYFILE.
01136  M01S01123.1ma     +++|
01137  M01S01124.1ma     +++|          LDD    SP+4        CHECK MESSAGE DESIRED
01138  M01S01125.1ma     +++|          SCN    77
01139  M01S01126.1ma     +++|          ADD    SP+3
01140  M01S01127.1ma     +++|          ZJN    SDM3        IF NO MESSAGE SPECIFIED
01141  M01S01128.1ma     +++|          LDD    SP          CHECK SPECIFIED DAYFILE OPTION
01142  M01S01129.1ma     +++|          LPN    77
01143  M01S01130.1ma     +++|          SHN    14
01144  M01S01131.1ma     +++|          ADD    SP+1
01145  M01S01132.1ma     +++|          SHN    -6
01146  M01S01133.1ma     +++|          SBN    MXDF
01147  M01S01134.1ma     +++|          MJN    SDM2        IF VALID DAYFILE OPTION
01148  M01S01135.1ma     +++|          LDN    RC66        * INCORRECT DAYFILE PROCESSING FLAG.*
01149  M01S01136.1ma     +++| SDM1     RJM    SCB         SET COMPLETION BIT, REPLY CODE
01150  M01S01137.1ma     +++|          UJN    SDMX        RETURN
01151  M01S01138.1ma     +++|
01152  M01S01139.1ma     +++| SDM2     RAM    SDMA        SET DAYFILE OPTION
01153  M01S01140.1ma     +++|          LDN    MESL        EXTRACT MESSAGE TO BE ISSUED
01154  M01S01141.1ma     +++|          STD    T2
01155  M01S01142.1ma     +++|          LDN    0           TERMINATE MESSAGE
01156  M01S01143.1ma     +++|          STM    BUF+MESL*5
01157  M01S01144.1ma     +++|          LDC    BUF+MXDF*10000
01158  M01S01145.1ma     +++| SDMA     EQU    *-2         (DAYFILE OPTION)
01159  M01S01146.1ma     +++|          RJM    DFM
01160  M01S01147.1ma     +++|
01161  M01S01148.1ma     +++|*         SET ERROR FLAG ON USER JOB IF DESIRED.
01162  M01S01149.1ma     +++|
01163  M01S01150.1ma     +++| SDM3     LDD    SP+1        CHECK USER ABORT DESIRED
01164  M01S01151.1ma     +++|          LPN    77
01165  M01S01152.1ma     +++|          SHN    14
01166  M01S01153.1ma     +++|          ADD    SP+2
01167  M01S01154.1ma     +++|          ZJN    SDM1        IF NO ABORT SPECIFIED
01168  M01S01155.1ma     +++|          SBN    1
01169  M01S01156.1ma     +++|          STD    T1
01170  M01S01157.1ma     +++|          SBN    TEFGL
01171  M01S01158.1ma     +++|          MJN    SDM5        IF VALID ERROR FLAG SPECIFIED
01172  M01S01159.1ma     +++|          LDN    RC65        * ATTEMPT TO SET INCORRECT ERROR FLAG.*
01173  M01S01160.1ma     +++| SDM4     UJN    SDM1        SET COMPLETION BIT, REPLY CODE
01174  M01S01161.1ma     +++|
01175  M01S01162.1ma     +++| SDM5     LDM    TEFG,T1     SET ERROR FLAG
01176  M01S01163.1ma     +++|          STD    CM+1
01177  M01S01164.1ma     +++|          MONITOR  CEFM
01178  M01S01165.1ma     +++|          LDN    0
01179  M01S01166.1ma     +++|          UJN    SDM4        SET COMPLETION BIT
01180  M01S01167.1ma     +++|          SPACE  4,10
01181  M01S01168.1ma     +++|**        TEFG - TABLE OF ERROR FLAGS.
01182  M01S01169.1ma     +++|*
01183  M01S01170.1ma     +++|*         INDEXED BY VALUE SPECIFIED IN *FP* FIELD OF SF.REGR REQUEST.
01184  M01S01171.1ma     +++|
01185  M01S01172.1ma     +++|
01186  M01S01173.1ma     +++| TEFG     BSS    0
01187  M01S01174.1ma     +++|          LOC    0
01188  M01S01175.1ma     +++|
01189  M01S01176.1ma     +++|          CON    PPET        GENERAL SUBSYSTEM ERROR
01190  M01S01177.1ma     +++|          CON    SYET        HOSTILE USER ERROR
01191  M01S01178.1ma     +++|
01192  M01S01179.1ma     +++| TEFGL    BSS    0
01193  M01S01180.1ma     +++|          LOC    *O
01194  M01S01181.1ma     +++| SWO      SPACE  4,10
01195  M01S01182.1ma     +++|**        SWO - SWAP OUT USER CONTROL POINT. (SF.SWPO)
01196  M01S01183.1ma     +++|*
01197  M01S01184.1ma     +++|*         USES   CM - CM+4.
01198  M01S01185.1ma     +++|*
01199  M01S01186.1ma     +++|*         CALL   CHG, SCB.
01200  M01S01187.1ma     +++|*
01201  M01S01188.1ma     +++|*         MACROS MONITOR.
01202  M01S01189.1ma     +++|
01203  M01S01190.1ma     +++|
01204  M01S01191.1ma     +++| SWO      SUBR               ENTRY/EXIT
01205  M01S01192.1ma     +++|          LDD    CP          CHECK IF JOB ROLLABLE
01206  M01S01193.1ma     +++|          ADN    JCIW
01207  M01S01194.1ma     +++|          CRD    CM
01208  M01S01195.1ma     +++|          LDD    CM+3        CHECK FOR *DIS* JOB
01209  M01S01196.1ma     +++|          LPC    1000
01210  M01S01197.1ma     +++|          ADD    CM+2        CHECK FOR NON-ROLLABLE JOB
01211  M01S01198.1ma     +++|          NJN    SWO2        IF JOB NOT ROLLABLE
01212  M01S01199.1ma     +++|          STD    CM+1        ROLLOUT CONTROL POINT
01213  M01S01200.1ma     +++|          MONITOR  ROCM
01214  M01S01201.1ma     +++| SWO1     LDN    0           INDICATE NO ERRORS
01215  M01S01202.1ma     +++|          RJM    SCB         SET COMPLETION BIT, NO ERRORS
01216  M01S01203.1ma     +++|          UJN    SWOX        RETURN
01217  M01S01204.1ma     +++|
01218  M01S01205.1ma     +++| SWO2     LDD    MA          CLEAR SCP ROLLOUT REQUESTED FLAG
01219  M01S01206.1ma     +++|          CWM    SWOA,ON
01220  M01S01207.1ma     +++|          LDN    1
01221  M01S01208.1ma     +++|          STD    CM+1
01222  M01S01209.1ma     +++|          STD    CM+2
01223  M01S01210.1ma     +++|          MONITOR  UADM
01224  M01S01211.1ma     +++|          LDD    CM+1
01225  M01S01212.1ma     +++|          ZJN    SWO1        IF BIT SUCCESSFULLY CLEARED
01226  M01S01213.1ma     +++|          LDN    0
01227  M01S01214.1ma     +++|          RJM    CHG         CONDITIONALLY HANG PP
01228  M01S01215.1ma     +++|          UJN    SWO1        SET COMPLETION BIT AND RETURN
01229  M01S01216.1ma     +++|
01230  M01S01217.1ma     +++|
01231  M01S01218.1ma     +++| SWOA     VFD    12/CDOS,12/STSW,6/29D,6/1
01232  M01S01219.1ma     +++| SXT      SPACE  4,10
01233  M01S01220.1ma     +++|**        SXT - PROCESS EXIT FROM SCP STATUS. (SF.EXIT)
01234  M01S01221.1ma     +++|*
01235  M01S01222.1ma     +++|*         USES   EF, SC.
01236  M01S01223.1ma     +++|*
01237  M01S01224.1ma     +++|*         CALLS  SCB, *0ST*.
01238  M01S01225.1ma     +++|*
01239  M01S01226.1ma     +++|*         MACROS EXECUTE.
01240  M01S01227.1ma     +++|
01241  M01S01228.1ma     +++|
01242  M01S01229.1ma     +++| SXT      SUBR               ENTRY/EXIT
01243  M01S01230.1ma     +++|          LDN    0           INDICATE NO ERROR FLAG
01244  M01S01231.1ma     +++|          STD    EF
01245  M01S01232.1ma     +++|          LDN    6           INDICATE CONNECTED UCP-S FOR SF.EXIT
01246  M01S01233.1ma     +++|          STD    SC
01247  M01S01234.1ma     +++|          EXECUTE  0ST,OSTL
01248  M01S01235.1ma     +++|          RJM    CAA         GET *SF.EXIT* PARAMETER WORD
01249  M01S01236.1ma     +++|          CRD    CM
01250  M01S01237.1ma     +++|          AOD    CM+4        SET COMPLETE BIT
01251  M01S01238.1ma     +++|          LDD    CM          CLEAR REPLY CODE (NO ERROR)
01252  M01S01239.1ma     +++|          LPN    77
01253  M01S01240.1ma     +++|          STD    CM
01254  M01S01241.1ma     +++|          RJM    CAA
01255  M01S01242.1ma     +++|          CWD    CM
01256  M01S01243.1ma     +++|          UJN    SXTX        RETURN
01257  M01S01244.1ma     +++|          TITLE  SUBROUTINES.
01258  M01S01245.1ma     +++| DLY      SPACE  4,10
01259  M01S01246.1ma     +++|**        DLY - DELAY.
01260  M01S01247.1ma     +++|*
01261  M01S01248.1ma     +++|*         EXIT   (A) = 0 IF OPERATOR INTERVENTION.
01262  M01S01249.1ma     +++|*
01263  M01S01250.1ma     +++|*         MACROS DELAY, PAUSE.
01264  M01S01251.1ma     +++|
01265  M01S01252.1ma     +++|
01266  M01S01253.1ma     +++| DLY      SUBR               ENTRY/EXIT
01267  M01S01254.1ma     +++|          PAUSE
01268  M01S01255.1ma     +++|          DELAY
01269  M01S01256.1ma     +++|          LDD    CM+1        CHECK FOR OPERATOR OVERRIDE
01270  M01S01257.1ma     +++|          LMN    ORET
01271  M01S01258.1ma     +++|          UJN    DLYX        RETURN
01272  M01S01259.1ma     +++| SCB      SPACE  4,15
01273  M01S01260.1ma     +++|**        SCB - SET COMPLETION BIT.
01274  M01S01261.1ma     +++|*
01275  M01S01262.1ma     +++|*         SCB SETS SETS THE COMPLETION BIT FOR A PARTICULAR
01276  M01S01263.1ma     +++|*         SF.XXXX FUNCTION ALONG WITH THE REPLY CODE.
01277  M01S01264.1ma     +++|*
01278  M01S01265.1ma     +++|*         ENTRY  (A) = REPLY CODE.
01279  M01S01266.1ma     +++|*
01280  M01S01267.1ma     +++|*         EXIT   (T7) = REPLY CODE.
01281  M01S01268.1ma     +++|*
01282  M01S01269.1ma     +++|*         USES   T1, CM - CM+4.
01283  M01S01270.1ma     +++|*
01284  M01S01271.1ma     +++|*         CALLS  DLY.
01285  M01S01272.1ma     +++|*
01286  M01S01273.1ma     +++|*         MACROS MONITOR.
01287  M01S01274.1ma     +++|
01288  M01S01275.1ma     +++|
01289  M01S01276.1ma     +++| SCB      SUBR               ENTRY/EXIT
01290  M01S01277.1ma     +++|          STD    T7          SAVE ERROR STATUS
01291  M01S01278.1ma     +++|          LDD    IR+4        ADDRESS OF FUNCTION PARAMETER WORD
01292  M01S01279.1ma     +++|          STM    SCBA
01293  M01S01280.1ma     +++|          LDD    IR+3
01294  M01S01281.1ma     +++|          LPN    77
01295  M01S01282.1ma     +++|          SHN    14
01296  M01S01283.1ma     +++|          ADD    T7          SET ERROR STATUS IN CALL
01297  M01S01284.1ma     +++|          SHN    6
01298  M01S01285.1ma     +++|          STM    SCBB
01299  M01S01286.1ma     +++|          LDD    IR+3        EXTRACT SUBSYSTEM INDEX
01300  M01S01287.1ma     +++|          SHN    -6
01301  M01S01288.1ma     +++|          ADC    LSSI
01302  M01S01289.1ma     +++|          STM    SCBC        SUBSYSTEM QUEUE PRIORITY
01303  M01S01290.1ma     +++| SCB1     LDC    *
01304  M01S01291.1ma     +++| SCBA     EQU    *-1         (ADDRESS OF FUNCTION REQUEST)
01305  M01S01292.1ma     +++|          STD    CM+4
01306  M01S01293.1ma     +++|          LDC    *
01307  M01S01294.1ma     +++| SCBB     EQU    *-1
01308  M01S01295.1ma     +++|          STD    CM+3        ADDRESS OF PARAMETER AND ERROR STATUS
01309  M01S01296.1ma     +++|          LDC    *
01310  M01S01297.1ma     +++| SCBC     EQU    *-1
01311  M01S01298.1ma     +++|          STD    CM+2        SUBSYSTEM QUEUE PRIORITY
01312  M01S01299.1ma     +++|          LDN    2           FUNCTION CODE
01313  M01S01300.1ma     +++|          STD    CM+1
01314  M01S01301.1ma     +++|          MONITOR  TDAM      SET REPLY CODE, COMPLETION BIT
01315  M01S01302.1ma     +++|          LDD    CM+1
01316  M01S01303.1ma     +++|          ZJN    SCB2        RETURN IF ACCEPTED
01317  M01S01304.1ma     +++|          SBN    4
01318  M01S01305.1ma     +++|          ZJN    SCB2        RETURN IF SUBSYSTEM INACTIVE
01319  M01S01306.1ma     +++|          PJN    SCB3        IF INCORRECT COMPLETION ADDRESS
01320  M01S01307.1ma     +++|          RJM    DLY         DELAY
01321  M01S01308.1ma     +++|          NJN    SCB1        IF NOT OPERATOR OVERRIDE
01322  M01S01309.1ma     +++| SCB2     LJM    SCBX        RETURN
01323  M01S01310.1ma     +++|
01324  M01S01311.1ma     +++| SCB3     LDD    MA          SAVE SCP ORDINAL AND JOB SEQUENCE NUMBER
01325  M01S01312.1ma     +++|          CWD    CM
01326  M01S01313.1ma     +++| SCB4     LDD    MA          GET SCP ORDINAL AND JOB SEQUENCE NUMBER
01327  M01S01314.1ma     +++|          CRD    CM
01328  M01S01315.1ma     +++|          LDC    4000+ITET   SCP INCORRECT TRANSFER ADDRESS
01329  M01S01316.1ma     +++|          STD    CM+1
01330  M01S01317.1ma     +++|          MONITOR  CEFM      SET ERROR ON SCP
01331  M01S01318.1ma     +++|          LDD    CM+1
01332  M01S01319.1ma     +++|          LMN    1           CHECK FOR SCP MOVING STATUS
01333  M01S01320.1ma     +++|          NJN    SCB2        IF OPERATION COMPLETE OR SCP NOT FOUND
01334  M01S01321.1ma     +++|          RJM    DLY         DELAY
01335  M01S01322.1ma     +++|          ZJN    SCB2        IF OPERATOR INTERVENTION
01336  M01S01323.1ma     +++|          LDD    T1          RESET SCP CONTROL POINT NUMBER
01337  M01S01324.1ma     +++|          STD    CM+2
01338  M01S01325.1ma     +++|          UJN    SCB4        REISSUE REQUEST
01339  M01S01326.1ma     +++| SWT      TITLE  FILE SWITCHING FUNCTION PROCESSOR.
01340  M01S01327.1ma     +++| SWT      SPACE  4,40
01341  M01S01328.1ma     +++|***       FUNCTION 3.
01342  M01S01329.1ma     +++|*         FILE SWITCHING PROCESSOR.
01343  M01S01330.1ma     +++|*
01344  M01S01331.1ma     +++|*         THIS PROCESSOR IS CALLED BY *CPUMTR* TO PROCESS AN *SST*
01345  M01S01332.1ma     +++|*         SYSTEM REQUEST AFTER ALL PARAMETERS HAVE BEEN VALIDATED.
01346  M01S01333.1ma     +++|*
01347  M01S01334.1ma     +++|*         ENTRY
01348  M01S01335.1ma     +++|*
01349  M01S01336.1ma     +++|*T,ARG    6/0,18/  ADDR
Figure ARG

0171823 ADDR0

01350  M01S01337.1ma     +++|*         ADDR   RELATIVE ADDRESS OF FUNCTION PARAMETERS.
01351  M01S01338.1ma     +++|*
01352  M01S01339.1ma     +++|*         (SP - SP+4) = 12/ FNTR,12/ FNTS,18/ RSV,6/ FCN,11/ ST,1/ C
01353  M01S01340.1ma     +++|*         (SQ - SQ+4) = 24/ JSN,24/0,12/ JEJT
01354  M01S01341.1ma     +++|*         C      COMPLETION BIT.
01355  M01S01342.1ma     +++|*         FCN    SUBFUNCTION CODE -
01356  M01S01343.1ma     +++|*                CUSU = 1    CALLER UCP - SCP TO UCP SWITCH.
01357  M01S01344.1ma     +++|*                CUUS = 2    CALLER UCP - UCP TO SCP SWITCH.
01358  M01S01345.1ma     +++|*                CSUS = 3    CALLER SCP - UCP TO SCP SWITCH.
01359  M01S01346.1ma     +++|*                CSSU = 4    CALLER SCP - SCP TO UCP SWITCH.
01360  M01S01347.1ma     +++|*         FNTR   FNT ORDINAL IN RECEIVER-S FNT (RETURNED PARAMETER).
01361  M01S01348.1ma     +++|*                (SET TO PARTNER-S CPA BY *CPUMTR* FOR *1MA*.)
01362  M01S01349.1ma     +++|*         FNTS   FNT ORDINAL IN SOURCE-S FNT.
01363  M01S01350.1ma     +++|*         JEJT   PARTNER JOB EJT ORDINAL  (FCN = 3 OR 4).
01364  M01S01351.1ma     +++|*                (SET BY *CPUMTR* FOR *1MA* FOR FCN = 1 OR 2.)
01365  M01S01352.1ma     +++|*         JSN    JOB SEQUENCE NUMBER FOR PARTNER  (FCN = 3 OR 4).
01366  M01S01353.1ma     +++|*         RSV    RESERVED FOR CDC.
01367  M01S01354.1ma     +++|*         ST     RETURN STATUS CODE -
01368  M01S01355.1ma     +++|*                00     SWITCH COMPLETED NORMALLY.
01369  M01S01356.1ma     +++|*                01     FILE BUSY.
01370  M01S01357.1ma     +++|*                02     PARTNER ROLLED OUT.
01371  M01S01358.1ma     +++|*                03     INCORRECT FILE TYPE.
01372  M01S01359.1ma     +++|*                04     PARTNER-S IDENTIFICATION NOT KNOWN.
01373  M01S01360.1ma     +++|*                05     NO SPACE IN RECEIVER-S NFL.
01374  M01S01361.1ma     +++|*                06     FILE LIMIT.
01375  M01S01362.1ma     +++|*                07     FILE *FNTS* NOT FOUND.
01376  M01S01363.1ma     +++|
01377  M01S01364.1ma     +++|
01378  M01S01365.1ma     +++| SWT      BSS    0           ENTRY
01379  M01S01366.1ma     +++|          LDN    0           INITIALIZE
01380  M01S01367.1ma     +++|          STD    FA
01381  M01S01368.1ma     +++|          STD    RC
01382  M01S01369.1ma     +++|          LDN    SFIN        SET JOB INTERLOCK
01383  M01S01370.1ma     +++|          RJM    PJI
01384  M01S01371.1ma     +++|          ZJN    SWT1        IF INTERLOCK SET
01385  M01S01372.1ma     +++|          LDN    RC02        * JOB ROLLED OUT.*
01386  M01S01373.1ma     +++|          STD    RC
01387  M01S01374.1ma     +++|          NFA    SP+1,R      SET UP FOR EXIT
01388  M01S01375.1ma     +++|          CRD    FN
01389  M01S01376.1ma     +++|          ADN    FSTL
01390  M01S01377.1ma     +++|          CRM    FS,ON
01391  M01S01378.1ma     +++|          CRM    FBUF,ON
01392  M01S01379.1ma     +++|          LDD    SP+3
01393  M01S01380.1ma     +++|          LPN    1
01394  M01S01381.1ma     +++|          ZJP    SFP3.1      IF SF = 2 OR 4
01395  M01S01382.1ma     +++|          LJM    SRC         SET REPLY CODE
01396  M01S01383.1ma     +++|
01397  M01S01384.1ma     +++| SWT1     LDD    SP+3        GET SUB FUNCTION
01398  M01S01385.1ma     +++|          ZJN    SWT2        IF ZERO
01399  M01S01386.1ma     +++|          SBN    5
01400  M01S01387.1ma     +++|          PJN    SWT2        IF OUT OF RANGE
01401  M01S01388.1ma     +++|          LDD    SP+3
01402  M01S01389.1ma     +++|          LPN    1
01403  M01S01390.1ma     +++|          ZJN    SFP         IF SF = 2 OR 4 (SEND FILE TO PARTNER)
01404  M01S01391.1ma     +++|          LJM    GFP         SF = 1 OR 3 (GET FILE FROM PARTNER)
01405  M01S01392.1ma     +++|
01406  M01S01393.1ma     +++| SWT2     LDN    0
01407  M01S01394.1ma     +++|          RJM    CHG         CONDITIONALLY HANG PP
01408  M01S01395.1ma     +++|          LDK    RC10        * INCORRECT SUBFUNCTION.*
01409  M01S01396.1ma     +++|          STD    RC
01410  M01S01397.1ma     +++|          LJM    SFP3        CLEAR JOB INTERLOCK
01411  M01S01398.1ma     +++| SFP      SPACE  4,15
01412  M01S01399.1ma     +++|**        SFP - SEND FILE TO PARTNER.
01413  M01S01400.1ma     +++|*
01414  M01S01401.1ma     +++|*         ENTRY  (SP+1) = SOURCE FNT ORDINAL.
01415  M01S01402.1ma     +++|*
01416  M01S01403.1ma     +++|*         EXIT   (FA) = NEW ADDRESS OF FNT.
01417  M01S01404.1ma     +++|*                (RC) = REPLY CODE.
01418  M01S01405.1ma     +++|*
01419  M01S01406.1ma     +++|*         USES   T1, CM - CM+4.
01420  M01S01407.1ma     +++|*
01421  M01S01408.1ma     +++|*         CALLS  CCP, CLF, PJI, RTC, UIE.
01422  M01S01409.1ma     +++|*
01423  M01S01410.1ma     +++|*         MACROS NFA.
01424  M01S01411.1ma     +++|
01425  M01S01412.1ma     +++|
01426  M01S01413.1ma     +++| SFP      BSS    0           ENTRY
01427  M01S01414.1ma     +++|          NFA    SP+1,R      GET FNT/FST
01428  M01S01415.1ma     +++|          CRD    FN
01429  M01S01416.1ma     +++|          CRD    CM
01430  M01S01417.1ma     +++|          ADN    FSTL
01431  M01S01418.1ma     +++|          CRM    FS,ON
01432  M01S01419.1ma     +++|          CRM    FBUF,ON
01433  M01S01420.1ma     +++|
01434  M01S01421.1ma     +++|*         CHANGE FILE TYPE.
01435  M01S01422.1ma     +++|
01436  M01S01423.1ma     +++|          LDD    CM+4
01437  M01S01424.1ma     +++|          LPN    77
01438  M01S01425.1ma     +++|          ADC    LIFT*100    SET *LIBRARY* FILE TYPE
01439  M01S01426.1ma     +++|          STD    CM+4
01440  M01S01427.1ma     +++|          NFA    SP+1,R
01441  M01S01428.1ma     +++|          CWD    CM
01442  M01S01429.1ma     +++|
01443  M01S01430.1ma     +++|*         CHANGE TO RECEIVER-S CP.
01444  M01S01431.1ma     +++|
01445  M01S01432.1ma     +++|          LDD    SP          SET PARTNER CP
01446  M01S01433.1ma     +++|          STM    CCPA
01447  M01S01434.1ma     +++|          LDN    0           CHANGE TO PARTNER
01448  M01S01435.1ma     +++|          RJM    CCP
01449  M01S01436.1ma     +++|          ZJN    SFP1        IF SUCCESSFUL
01450  M01S01437.1ma     +++|          STD    T1          SAVE REPLY
01451  M01S01438.1ma     +++|          LDN    RC02        * JOB ROLLED OUT.*
01452  M01S01439.1ma     +++|          STD    RC
01453  M01S01440.1ma     +++|          LDD    T1          GET REPLY
01454  M01S01441.1ma     +++|          SBN    1
01455  M01S01442.1ma     +++|          NJN    SFP2        IF WRONG JOB
01456  M01S01443.1ma     +++|          UJN    SFP3        CLEAR JOB INTERLOCK
01457  M01S01444.1ma     +++|
01458  M01S01445.1ma     +++|*         CREATE LOCAL FNT IN RECEIVER-S NFL.
01459  M01S01446.1ma     +++|
01460  M01S01447.1ma     +++| SFP1     RJM    CLF         CREATE LOCAL FNT
01461  M01S01448.1ma     +++|          NJN    SFP2        IF FILE NOT CREATED
01462  M01S01449.1ma     +++|
01463  M01S01450.1ma     +++|*         WRITE FNT/FST INTO RECEIVER-S NFL.
01464  M01S01451.1ma     +++|
01465  M01S01452.1ma     +++|          LDM    CCPB        GET EJT ORDINAL OF CALLER
01466  M01S01453.1ma     +++|          RJM    UIE         UPDATE QFT ENTRY
01467  M01S01454.1ma     +++|          LDD    FS+4        SET FST NOT BUSY
01468  M01S01455.1ma     +++|          SCN    1
01469  M01S01456.1ma     +++|          ADN    1
01470  M01S01457.1ma     +++|          STD    FS+4
01471  M01S01458.1ma     +++|          NFA    FA,R        COMPUTE NFL ADDRESS
01472  M01S01459.1ma     +++|          CWD    FN          WRITE FNT
01473  M01S01460.1ma     +++|          ADN    FSTL
01474  M01S01461.1ma     +++|          CWM    FS,ON       WRITE FST
01475  M01S01462.1ma     +++|          CWM    FBUF,ON     WRITE UTILITY WORD OF FST
01476  M01S01463.1ma     +++|
01477  M01S01464.1ma     +++|*         RETURN TO CALLING JOB.
01478  M01S01465.1ma     +++|
01479  M01S01466.1ma     +++| SFP2     RJM    RTC         RETURN TO CALLER
01480  M01S01467.1ma     +++|
01481  M01S01468.1ma     +++|*         CLEAR JOB INTERLOCK.
01482  M01S01469.1ma     +++|
01483  M01S01470.1ma     +++| SFP3     LDN    CFIN        CLEAR JOB INTERLOCK
01484  M01S01471.1ma     +++|          RJM    PJI
01485  M01S01472.1ma     +++|
01486  M01S01473.1ma     +++|*         TERMINATION PROCESSING - CHECK FOR ERROR.
01487  M01S01474.1ma     +++|
01488  M01S01475.1ma     +++|          LDD    RC
01489  M01S01476.1ma     +++|          ZJN    SFP4        IF NO ERROR
01490  M01S01477.1ma     +++|
01491  M01S01478.1ma     +++|*         CLEAR *LIBRARY* FILE TYPE IN FNT (FILE NOT SWITCHED).
01492  M01S01479.1ma     +++|
01493  M01S01480.1ma     +++| SFP3.1   LDD    FS+4        SET FILE NOT BUSY
01494  M01S01481.1ma     +++|          SCN    1
01495  M01S01482.1ma     +++|          ADN    1
01496  M01S01483.1ma     +++|          STD    FS+4
01497  M01S01484.1ma     +++|          NFA    SP+1,R      UPDATE FNT
01498  M01S01485.1ma     +++|          CWD    FN
01499  M01S01486.1ma     +++|          ADN    FSTL        UPDATE FST
01500  M01S01487.1ma     +++|          CWD    FS
01501  M01S01488.1ma     +++|          UJN    SRC         SET REPLY CODE
01502  M01S01489.1ma     +++|
01503  M01S01490.1ma     +++| SFP4     LDD    SP+1        FNT ORDINAL OF SOURCE FNT
01504  M01S01491.1ma     +++|*         LJM    DLF         DELETE LOCAL FNT
01505  M01S01492.1ma     +++| DLF      SPACE  4,10
01506  M01S01493.1ma     +++|**        DLF - DELETE LOCAL FNT.
01507  M01S01494.1ma     +++|*
01508  M01S01495.1ma     +++|*         ENTRY  (A) = FNT ORDINAL.
01509  M01S01496.1ma     +++|*
01510  M01S01497.1ma     +++|*         USES   CM - CM+4.
01511  M01S01498.1ma     +++|*
01512  M01S01499.1ma     +++|*         EXIT   TO *SRC*.
01513  M01S01500.1ma     +++|*
01514  M01S01501.1ma     +++|*         MACROS MONITOR.
01515  M01S01502.1ma     +++|
01516  M01S01503.1ma     +++|
01517  M01S01504.1ma     +++| DLF      BSS    0           ENTRY
01518  M01S01505.1ma     +++|          STD    CM+4        SET FNT ORDINAL
01519  M01S01506.1ma     +++|          LDN    DLFS        DELETE FNT
01520  M01S01507.1ma     +++|          STD    CM+1
01521  M01S01508.1ma     +++|          MONITOR  PLFM
01522  M01S01509.1ma     +++|*         LJM    SRC         SET REPLY CODE
01523  M01S01510.1ma     +++| SRC      SPACE  4,10
01524  M01S01511.1ma     +++|**        SRC - SET REPLY CODE.
01525  M01S01512.1ma     +++|*
01526  M01S01513.1ma     +++|*         ENTRY  (IR+3 - IR+4) = RELATIVE ADDRESS OF PARAMETER BLOCK.
01527  M01S01514.1ma     +++|*                (FA) = FNT ORDINAL.
01528  M01S01515.1ma     +++|*                (RC) = REPLY CODE.
01529  M01S01516.1ma     +++|*
01530  M01S01517.1ma     +++|*         EXIT   TO *DPP*.
01531  M01S01518.1ma     +++|*                TO *ERR* IF INCORRECT REQUEST ADDRESS.
01532  M01S01519.1ma     +++|*
01533  M01S01520.1ma     +++|*         CALLS  SRA.
01534  M01S01521.1ma     +++|
01535  M01S01522.1ma     +++|
01536  M01S01523.1ma     +++| SRC      LDD    FA          GET FNT ORDINAL
01537  M01S01524.1ma     +++|          STD    SP
01538  M01S01525.1ma     +++|          LDD    RC          GET REPLY CODE
01539  M01S01526.1ma     +++|          SHN    1
01540  M01S01527.1ma     +++|          ADN    1           SET COMPLETION BIT
01541  M01S01528.1ma     +++|          STD    SP+4
01542  M01S01529.1ma     +++|          RJM    SRA         SET REQUEST ADDRESS
01543  M01S01530.1ma     +++|          ZJN    SRC1        IF INCORRECT ADDRESS
01544  M01S01531.1ma     +++|          CWD    SP          UPDATE *ADDR*
01545  M01S01532.1ma     +++|          LJM    DPP         DROP PP
01546  M01S01533.1ma     +++|
01547  M01S01534.1ma     +++| SRC1     LDC    =C* INCORRECT REQUEST.*
01548  M01S01535.1ma     +++|          LJM    ERR         PROCESS ERROR
01549  M01S01536.1ma     +++| GFP      SPACE  4,15
01550  M01S01537.1ma     +++|**        GFP - GET FILE FROM PARTNER.
01551  M01S01538.1ma     +++|*
01552  M01S01539.1ma     +++|*         ENTRY  (SP+1) = FNT ORDINAL OF FILE TO BE SWITCHED.
01553  M01S01540.1ma     +++|*
01554  M01S01541.1ma     +++|*         EXIT   (FA) = NEW ADDRESS OF FNT.
01555  M01S01542.1ma     +++|*                (RC) = REPLY CODE.
01556  M01S01543.1ma     +++|*
01557  M01S01544.1ma     +++|*         USES   T1, CM - CM+4.
01558  M01S01545.1ma     +++|*
01559  M01S01546.1ma     +++|*         CALLS  CCP, CLF, PJI, RTC, UIE.
01560  M01S01547.1ma     +++|*
01561  M01S01548.1ma     +++|*         MACROS MONITOR, NFA.
01562  M01S01549.1ma     +++|
01563  M01S01550.1ma     +++|
01564  M01S01551.1ma     +++| GFP      BSS    0           ENTRY
01565  M01S01552.1ma     +++|
01566  M01S01553.1ma     +++|*         CREATE LOCAL FNT IN CALLER-S NFL.
01567  M01S01554.1ma     +++|
01568  M01S01555.1ma     +++|          RJM    CLF         CREATE LOCAL FNT
01569  M01S01556.1ma     +++|          NJN    GFP1        IF FILE NOT CREATED
01570  M01S01557.1ma     +++|
01571  M01S01558.1ma     +++|*         CHANGE TO PARTNER CP.
01572  M01S01559.1ma     +++|
01573  M01S01560.1ma     +++|          LDD    SP          SET CP ADDRESS
01574  M01S01561.1ma     +++|          STM    CCPA
01575  M01S01562.1ma     +++|          LDN    0           CHANGE TO PARTNER
01576  M01S01563.1ma     +++|          RJM    CCP
01577  M01S01564.1ma     +++|          ZJN    GFP2        IF SUCCESSFUL
01578  M01S01565.1ma     +++|          STD    T1          SAVE REPLY CODE
01579  M01S01566.1ma     +++|          LDN    RC02        * JOB ROLLED OUT.*
01580  M01S01567.1ma     +++|          STD    RC          SET ERROR CODE
01581  M01S01568.1ma     +++|          LDD    T1          REPLY CODE
01582  M01S01569.1ma     +++|          SBN    1
01583  M01S01570.1ma     +++|          NJN    GFP3        IF WRONG JOB
01584  M01S01571.1ma     +++| GFP1     LJM    GFP6        CLEAR JOB INTERLOCK
01585  M01S01572.1ma     +++|
01586  M01S01573.1ma     +++|*         SET FILE BUSY.
01587  M01S01574.1ma     +++|
01588  M01S01575.1ma     +++| GFP2     NFA    SP+1,R      COMPUTE NFL ADDRESS
01589  M01S01576.1ma     +++|          CRD    FN          READ FNT
01590  M01S01577.1ma     +++|          LDN    ZERL
01591  M01S01578.1ma     +++|          CRD    CM
01592  M01S01579.1ma     +++|          LDD    SP+1        FNT ORDINAL
01593  M01S01580.1ma     +++|          STD    CM+4
01594  M01S01581.1ma     +++|          LDD    MA          FILE NAME
01595  M01S01582.1ma     +++|          CWD    FN
01596  M01S01583.1ma     +++|          MONITOR  SFBM
01597  M01S01584.1ma     +++|          LDD    CM+1
01598  M01S01585.1ma     +++|          ZJN    GFP4        IF FILE NOT BUSY
01599  M01S01586.1ma     +++|          LDN    RC01        * FILE BUSY.*
01600  M01S01587.1ma     +++|          STD    RC          SET ERROR CODE
01601  M01S01588.1ma     +++| GFP3     UJN    GFP5        RETURN TO CALLER
01602  M01S01589.1ma     +++|
01603  M01S01590.1ma     +++|*         GET FNT/FST OF FILE TO BE SWITCHED.
01604  M01S01591.1ma     +++|
01605  M01S01592.1ma     +++| GFP4     NFA    SP+1,R      COMPUTE NFL ADDRESS
01606  M01S01593.1ma     +++|          CRD    FN          READ FNT
01607  M01S01594.1ma     +++|          ADN    FSTL
01608  M01S01595.1ma     +++|          CRM    FS,ON
01609  M01S01596.1ma     +++|          CRM    FBUF,ON
01610  M01S01597.1ma     +++|
01611  M01S01598.1ma     +++|*         DELETE OLD FNT.
01612  M01S01599.1ma     +++|
01613  M01S01600.1ma     +++|          LDD    SP+1        FNT ORDINAL
01614  M01S01601.1ma     +++|          STD    CM+4
01615  M01S01602.1ma     +++|          LDN    DLFS        DELETE FNT
01616  M01S01603.1ma     +++|          STD    CM+1
01617  M01S01604.1ma     +++|          MONITOR  PLFM
01618  M01S01605.1ma     +++|
01619  M01S01606.1ma     +++|*         CHANGE BACK TO CALLING CP.
01620  M01S01607.1ma     +++|
01621  M01S01608.1ma     +++| GFP5     RJM    RTC         RETURN TO CALLER
01622  M01S01609.1ma     +++|
01623  M01S01610.1ma     +++|*         CLEAR JOB INTERLOCK.
01624  M01S01611.1ma     +++|
01625  M01S01612.1ma     +++| GFP6     LDN    CFIN        CLEAR JOB INTERLOCK
01626  M01S01613.1ma     +++|          RJM    PJI
01627  M01S01614.1ma     +++|
01628  M01S01615.1ma     +++|*         TERMINATION PROCESSING - CHECK FOR ERROR CODE.
01629  M01S01616.1ma     +++|
01630  M01S01617.1ma     +++|          LDD    RC
01631  M01S01618.1ma     +++|          ZJN    GFP7        IF NO ERROR
01632  M01S01619.1ma     +++|          LDD    FA
01633  M01S01620.1ma     +++|          ZJN    GFP8        IF NO NEW FNT CREATED
01634  M01S01621.1ma     +++|          STD    T1          SAVE ORDINAL
01635  M01S01622.1ma     +++|          LDN    0           CLEAR FNT ORDINAL
01636  M01S01623.1ma     +++|          STD    FA
01637  M01S01624.1ma     +++|          LDD    T1
01638  M01S01625.1ma     +++|          LJM    DLF         DELETE LOCAL FNT
01639  M01S01626.1ma     +++|
01640  M01S01627.1ma     +++|*         WRITE FNT INTO RECEIVER-S NFL.
01641  M01S01628.1ma     +++|
01642  M01S01629.1ma     +++| GFP7     LDD    SQ+4        GET EJT ORDINAL OF PARTNER
01643  M01S01630.1ma     +++|          RJM    UIE         UPDATE QFT ENTRY
01644  M01S01631.1ma     +++|          LDD    FS+4        SET FST NOT BUSY
01645  M01S01632.1ma     +++|          SCN    1
01646  M01S01633.1ma     +++|          ADN    1
01647  M01S01634.1ma     +++|          STD    FS+4
01648  M01S01635.1ma     +++|          NFA    FA,R        COMPUTE NFL ADDRESS
01649  M01S01636.1ma     +++|          CWD    FN          WRITE FNT
01650  M01S01637.1ma     +++|          ADN    FSTL
01651  M01S01638.1ma     +++|          CWM    FS,ON       WRITE FST
01652  M01S01639.1ma     +++|          CWM    FBUF,ON     WRITE UTILITY WORD OF FST
01653  M01S01640.1ma     +++| GFP8     LJM    SRC         SET REPLY CODE
01654  M01S01641.1ma     +++| CCP      SPACE  4,20
01655  M01S01642.1ma     +++|**        CCP - CHANGE CONTROL POINT.
01656  M01S01643.1ma     +++|*
01657  M01S01644.1ma     +++|*         *CCP* CHANGES TO THE SPECIFIED CONTROL POINT, TRYING 5 TIMES
01658  M01S01645.1ma     +++|*         BEFORE GIVING UP.  IF CHANGE IS MADE, THE EJT ORDINAL IS
01659  M01S01646.1ma     +++|*         VERIFIED TO ENSURE THE JOB IS THE CORRECT ONE.
01660  M01S01647.1ma     +++|*
01661  M01S01648.1ma     +++|*         ENTRY  (A) = 0  CHANGE TO PARTNER CP.
01662  M01S01649.1ma     +++|*                (A) .NE. 0  CHANGE BACK TO CALLER CP.
01663  M01S01650.1ma     +++|*                (CCPA) = NEW CP ADDRESS IF A=0.
01664  M01S01651.1ma     +++|*
01665  M01S01652.1ma     +++|*         EXIT   (A) = 0  IF CHANGE MADE SUCCESSFULLY.
01666  M01S01653.1ma     +++|*                (A) = 1  IF CHANGE NOT POSSIBLE.
01667  M01S01654.1ma     +++|*                (A) = 2  IF CHANGE MADE, BUT WRONG EJT ORDINAL.
01668  M01S01655.1ma     +++|*
01669  M01S01656.1ma     +++|*         USES   T1, CM - CM+4.
01670  M01S01657.1ma     +++|*
01671  M01S01658.1ma     +++|*         CALLS  DLY.
01672  M01S01659.1ma     +++|*
01673  M01S01660.1ma     +++|*         MACROS MONITOR.
01674  M01S01661.1ma     +++|
01675  M01S01662.1ma     +++|
01676  M01S01663.1ma     +++| CCP      SUBR               ENTRY/EXIT
01677  M01S01664.1ma     +++|          NJN    CCP1        IF CHANGING BACK TO CALLER
01678  M01S01665.1ma     +++|
01679  M01S01666.1ma     +++|*         PRESET FOR CHANGE TO PARTNER.
01680  M01S01667.1ma     +++|
01681  M01S01668.1ma     +++|          LDD    CP          GET CALLER EJT ORDINAL
01682  M01S01669.1ma     +++|          ADN    TFSW
01683  M01S01670.1ma     +++|          CRD    CM
01684  M01S01671.1ma     +++|          LDD    CM
01685  M01S01672.1ma     +++|          STM    CCPB
01686  M01S01673.1ma     +++|          LDD    SQ+4        SET EJT ORDINAL FOR VERIFY
01687  M01S01674.1ma     +++|          UJN    CCP2        PROCESS CALL
01688  M01S01675.1ma     +++|
01689  M01S01676.1ma     +++|*         PRESET FOR CHANGE BACK TO CALLER.
01690  M01S01677.1ma     +++|
01691  M01S01678.1ma     +++| CCP1     LDM    CCPC        GET CALLING CP ADDRESS
01692  M01S01679.1ma     +++|          STM    CCPA        NEW CPA
01693  M01S01680.1ma     +++|          LDM    CCPB        SET EJT ORDINAL FOR VERIFY
01694  M01S01681.1ma     +++| CCP2     STD    T1
01695  M01S01682.1ma     +++|          LDD    CP          SAVE OLD CP
01696  M01S01683.1ma     +++|          STM    CCPC
01697  M01S01684.1ma     +++|
01698  M01S01685.1ma     +++|*         CHANGE TO NEW CP, TRYING 5 TIMES.
01699  M01S01686.1ma     +++|
01700  M01S01687.1ma     +++|          LDN    5           INITIALIZE RETRY COUNT
01701  M01S01688.1ma     +++|          STM    CCPD
01702  M01S01689.1ma     +++| CCP3     LDC    **
01703  M01S01690.1ma     +++| CCPA     EQU    *-1         NEW CPA
Line S01691 Modification History
M01 (Added by) 1ma
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01704  M02S01691.273l780 ---|          STD    CP
01705  M01S01692.1ma     +++|          SHN    -7
01706  M01S01693.1ma     +++|          STD    CM+1
01707  M01S01694.1ma     +++|          MONITOR  CCAM      CHANGE CP
01708  M01S01695.1ma     +++|          LDD    CM+1
01709  M01S01696.1ma     +++|          ZJN    CCP6        IF CHANGE MADE
01710  M01S01697.1ma     +++|          SOM    CCPD        DECREMENT RETRY COUNT
01711  M01S01698.1ma     +++|          ZJN    CCP4        IF 5 TIMES
01712  M01S01699.1ma     +++|          RJM    DLY         DELAY
01713  M01S01700.1ma     +++|          UJN    CCP3        TRY AGAIN
01714  M01S01701.1ma     +++|
01715  M01S01702.1ma     +++|*         CHANGE REJECTED, RETURN ERROR.
01716  M01S01703.1ma     +++|
01717  M01S01704.1ma     +++| CCP4     LDM    CCPC        RESET TO OLD CP
01718  M01S01705.1ma     +++|          STD    CP
01719  M01S01706.1ma     +++|          LDN    1           CHANGE NOT POSSIBLE
01720  M01S01707.1ma     +++| CCP5     LJM    CCPX        RETURN
01721  M01S01708.1ma     +++|
01722  M01S01709.1ma     +++|*         CHANGE MADE, VERIFY JOB EJT ORDINAL.
01723  M01S01710.1ma     +++|
01724  M01S01711.1ma     +++| CCP6     LDD    CP
01725  M01S01712.1ma     +++|          ADN    TFSW        GET JOB EJT ORDINAL
01726  M01S01713.1ma     +++|          CRD    CM
01727  M01S01714.1ma     +++|          LDD    T1          VERIFY JOB EJT ORDINAL
01728  M01S01715.1ma     +++|          LMD    CM
01729  M01S01716.1ma     +++|          ZJN    CCP5        IF EJT ORDINAL MATCHES
01730  M01S01717.1ma     +++|          LDN    2           WRONG JOB
01731  M01S01718.1ma     +++|          UJN    CCP5        RETURN
01732  M01S01719.1ma     +++|
01733  M01S01720.1ma     +++|
01734  M01S01721.1ma     +++| CCPB     BSS    1           CALLER EJT ORDINAL
01735  M01S01722.1ma     +++| CCPC     BSS    1           CALLER CPA
01736  M01S01723.1ma     +++| CCPD     CON    5           RETRY COUNT
01737  M01S01724.1ma     +++| CLF      SPACE  4,15
01738  M01S01725.1ma     +++|**        CLF - CREATE LOCAL FNT ENTRY.
01739  M01S01726.1ma     +++|*
01740  M01S01727.1ma     +++|*         *CLF* CREATES A LOCAL FNT ENTRY FOR THE JOB TO WHICH THE
01741  M01S01728.1ma     +++|*         PP IS ASSIGNED.
01742  M01S01729.1ma     +++|*
01743  M01S01730.1ma     +++|*         EXIT   (A) = 0  IF FILE CREATED.
01744  M01S01731.1ma     +++|*                (A) = (RC) = *RC05*, IF NO NFL AVAILABLE.
01745  M01S01732.1ma     +++|*                (A) = (RC) = *RC06*, IF LOCAL FILE LIMIT.
01746  M01S01733.1ma     +++|*                (FA) = FNT ORDINAL IF A=0.
01747  M01S01734.1ma     +++|*
01748  M01S01735.1ma     +++|*         USES   CM - CM+4.
01749  M01S01736.1ma     +++|*
01750  M01S01737.1ma     +++|*         CALLS  NFL.
01751  M01S01738.1ma     +++|*
01752  M01S01739.1ma     +++|*         MACROS MONITOR.
01753  M01S01740.1ma     +++|
01754  M01S01741.1ma     +++|
01755  M01S01742.1ma     +++| CLF3     LDD    CP          REQUEST ADDITIONAL 100B WORDS OF NFL
01756  M01S01743.1ma     +++|          ADN    FLSW
01757  M01S01744.1ma     +++|          CRD    CM
01758  M01S01745.1ma     +++|          AOD    CM
01759  M01S01746.1ma     +++|          RJM    NFL
01760  M01S01747.1ma     +++|          ZJN    CLF1        IF NFL ASSIGNED
01761  M01S01748.1ma     +++|          LDN    RC05        * NOT ENOUGH NFL.*
01762  M01S01749.1ma     +++| CLF4     STD    RC
01763  M01S01750.1ma     +++|
01764  M01S01751.1ma     +++| CLF      SUBR               ENTRY/EXIT
01765  M01S01752.1ma     +++|
01766  M01S01753.1ma     +++|*         CREATE FNT IN RECEIVER-S NFL.
01767  M01S01754.1ma     +++|
01768  M01S01755.1ma     +++| CLF1     LDD    MA          SET FILE NAME IN MB
01769  M01S01756.1ma     +++|          CWM    CLFA,ON
01770  M01S01757.1ma     +++|          LDN    CRFS        CREATE LOCAL FNT ENTRY
01771  M01S01758.1ma     +++|          STD    CM+1
01772  M01S01759.1ma     +++|          MONITOR  PLFM
01773  M01S01760.1ma     +++|          LDD    CM+1        SAVE FNT ORDINAL
01774  M01S01761.1ma     +++|          STD    FA
01775  M01S01762.1ma     +++|          LDD    CM+4
01776  M01S01763.1ma     +++|          ZJN    CLFX        IF FILE CREATED, RETURN
01777  M01S01764.1ma     +++|
01778  M01S01765.1ma     +++|*         FNT NOT CREATED, PROCESS REJECT.
01779  M01S01766.1ma     +++|
01780  M01S01767.1ma     +++|          SHN    21-1
01781  M01S01768.1ma     +++|          MJN    CLF2        IF LOCAL FILE LIMIT
01782  M01S01769.1ma     +++|          SHN    21-2-21+1+22
01783  M01S01770.1ma     +++|          MJN    CLF3        IF MORE NFL NEEDED
01784  M01S01771.1ma     +++|
01785  M01S01772.1ma     +++|*         DUPLICATE FILE NAME, CHANGE NAME AND TRY AGAIN.
01786  M01S01773.1ma     +++|
01787  M01S01774.1ma     +++|          LDD    HN          CHANGE FILE NAME
01788  M01S01775.1ma     +++|          RAM    CLFA+3
01789  M01S01776.1ma     +++|          SHN    -6
01790  M01S01777.1ma     +++|          SBN    1R+
01791  M01S01778.1ma     +++|          MJN    CLF1        IF FILE NAME STILL VALID
01792  M01S01779.1ma     +++| CLF2     LDN    RC06        * LOCAL FILE LIMIT.*
01793  M01S01780.1ma     +++|          UJN    CLF4        SET ERROR CODE
01794  M01S01781.1ma     +++|
01795  M01S01782.1ma     +++|
01796  M01S01783.1ma     +++| CLFA     VFD    42/0LZZZZZGA,18/0  SCRATCH FILE NAME
01797  M01S01784.1ma     +++| PJI      SPACE  4,20
01798  M01S01785.1ma     +++|**        PJI - PROCESS JOB INTERLOCK.
01799  M01S01786.1ma     +++|*
01800  M01S01787.1ma     +++|*         *PJI* CLEARS OR SETS THE JOB INTERLOCK ON THE JOB
01801  M01S01788.1ma     +++|*         TO WHICH THE PP IS CURRENTLY ASSIGNED.
01802  M01S01789.1ma     +++|*
01803  M01S01790.1ma     +++|*         ENTRY  (A) = CFIN  CLEAR INTERLOCK.
01804  M01S01791.1ma     +++|*                (A) = SFIN  SET INTERLOCK.
01805  M01S01792.1ma     +++|*
01806  M01S01793.1ma     +++|*         EXIT   (A) = 0  INTERLOCK SET/CLEAR.
01807  M01S01794.1ma     +++|*                (A) = 1  INTERLOCK ALREADY SET (*SFIN* OPTION).
01808  M01S01795.1ma     +++|*
01809  M01S01796.1ma     +++|*         USES   T1, CM - CM+4.
01810  M01S01797.1ma     +++|*
01811  M01S01798.1ma     +++|*         CALLS  SFI.
01812  M01S01799.1ma     +++|*
01813  M01S01800.1ma     +++|*         MACROS SFA.
01814  M01S01801.1ma     +++|
01815  M01S01802.1ma     +++|
01816  M01S01803.1ma     +++| PJI      SUBR               ENTRY/EXIT
01817  M01S01804.1ma     +++|          STD    T1          SAVE SET/CLEAR OPTION
01818  M01S01805.1ma     +++|          LDD    CP          GET JOB FNT ORDINAL
01819  M01S01806.1ma     +++|          ADN    TFSW
01820  M01S01807.1ma     +++|          CRD    CM
01821  M01S01808.1ma     +++|          SFA    EJT,CM      CALCULATE ABSOLUTE ADDRESS OF EJT ENTRY
01822  M01S01809.1ma     +++|          RJM    SFI         SET/CLEAR JOB INTERLOCK
01823  M01S01810.1ma     +++|          UJN    PJIX        RETURN
01824  M01S01811.1ma     +++| RTC      SPACE  4,15
01825  M01S01812.1ma     +++|**        RTC - RETURN TO CALLER.
01826  M01S01813.1ma     +++|*
01827  M01S01814.1ma     +++|*         *RTC* CHANGES CONTROL POINTS BACK TO THE CALLER JOB.
01828  M01S01815.1ma     +++|*
01829  M01S01816.1ma     +++|*         ENTRY  JOB AT PARTNER CP.
01830  M01S01817.1ma     +++|*                *CCP* ALREADY CALLED WITH A=0.
01831  M01S01818.1ma     +++|*
01832  M01S01819.1ma     +++|*         EXIT   JOB AT CALLER CP.
01833  M01S01820.1ma     +++|*
01834  M01S01821.1ma     +++|*         CALLS  CCP, CHG.
01835  M01S01822.1ma     +++|
01836  M01S01823.1ma     +++|
01837  M01S01824.1ma     +++| RTC      SUBR               ENTRY/EXIT
01838  M01S01825.1ma     +++| RTC1     LDN    1           CHANGE BACK TO CALLER CONTROL POINT
01839  M01S01826.1ma     +++|          RJM    CCP
01840  M01S01827.1ma     +++|          ZJN    RTCX        IF CHANGE SUCCESSFUL
01841  M01S01828.1ma     +++|          LDN    0
01842  M01S01829.1ma     +++|          RJM    CHG         CONDITIONALLY HANG PP
01843  M01S01830.1ma     +++|          LDD    CP          CHECK ERROR FLAG
01844  M01S01831.1ma     +++|          ADK    STSW
01845  M01S01832.1ma     +++|          CRD    CM
01846  M01S01833.1ma     +++|          LDD    CM+1
01847  M01S01834.1ma     +++|          SBK    ORET
01848  M01S01835.1ma     +++|          PJN    RTC2        IF *ORET* OR HIGHER ERROR
01849  M01S01836.1ma     +++|          UJN    RTC1        RETRY REQUEST
01850  M01S01837.1ma     +++|
01851  M01S01838.1ma     +++| RTC2     LJM    DPP         DROP PP
01852  M01S01839.1ma     +++| UIE      SPACE  4,15
01853  M01S01840.1ma     +++|*         UIE - UPDATE QFT ENTRY.
01854  M01S01841.1ma     +++|*
01855  M01S01842.1ma     +++|*         *UIE* CHANGES THE JOB EJT ORDINAL ASSIGNMENT IN THE
01856  M01S01843.1ma     +++|*         QFT ENTRY IF THE LOCAL FILE TYPE IS *QFFT*.
01857  M01S01844.1ma     +++|*
01858  M01S01845.1ma     +++|*         ENTRY  (A) = EJT ORDINAL OF JOB WITH QFT ENTRY ASSIGNED.
01859  M01S01846.1ma     +++|*                (FN - FN+4) = LOCAL FNT ENTRY.
01860  M01S01847.1ma     +++|*                (FS - FS+4) = LOCAL FST ENTRY.
01861  M01S01848.1ma     +++|*
01862  M01S01849.1ma     +++|*         USES   T1, T2, T3, CM - CM+4, CN - CN+4.
01863  M01S01850.1ma     +++|*
01864  M01S01851.1ma     +++|*         CALLS  SFI.
01865  M01S01852.1ma     +++|*
01866  M01S01853.1ma     +++|*         MACROS MONITOR, SFA.
01867  M01S01854.1ma     +++|
01868  M01S01855.1ma     +++|
01869  M01S01856.1ma     +++| UIE      SUBR               ENTRY/EXIT
01870  M01S01857.1ma     +++|          STM    UIEB        SAVE OLD JOB EJT ORDINAL
01871  M01S01858.1ma     +++|          LDD    FN+4        CHECK LOCAL FILE TYPE
01872  M01S01859.1ma     +++|          SHN    -6
01873  M01S01860.1ma     +++|          LMN    QFFT
01874  M01S01861.1ma     +++|          NJN    UIEX        IF NOT QUEUED INPUT/OUTPUT FILE
01875  M01S01862.1ma     +++|          LDD    CP          GET NEW JOB EJT ORDINAL
01876  M01S01863.1ma     +++|          ADN    TFSW
01877  M01S01864.1ma     +++|          CRD    CM
01878  M01S01865.1ma     +++|          LDD    CM
01879  M01S01866.1ma     +++|          STM    UIEC
01880  M01S01867.1ma     +++|          LDN    0           INITIALIZE QFT ORDINAL
01881  M01S01868.1ma     +++|          STD    T3
01882  M01S01869.1ma     +++|          LDK    QFTP        GET MAXIMUM ENTRIES IN QFT
01883  M01S01870.1ma     +++|          CRD    CM
01884  M01S01871.1ma     +++|          LDD    CM+2
01885  M01S01872.1ma     +++|          STD    T2
01886  M01S01873.1ma     +++| UIE1     AOD    T3          INCREMENT TO NEXT QFT ENTRY
01887  M01S01874.1ma     +++|          SBD    T2
01888  M01S01875.1ma     +++|          PJN    UIE2        IF END OF QFT
01889  M01S01876.1ma     +++|          SFA    QFT,T3      GET QFT ENTRY
01890  M01S01877.1ma     +++|          CRD    CM
01891  M01S01878.1ma     +++|          ADN    ENTQ-JSNQ
01892  M01S01879.1ma     +++|          CRD    CN
01893  M01S01880.1ma     +++|          LDD    CN          CHECK FOR SAME EQUIPMENT
01894  M01S01881.1ma     +++|          LMD    FS
01895  M01S01882.1ma     +++|          LPC    777
01896  M01S01883.1ma     +++|          NJN    UIE1        IF NOT CORRECT ENTRY
01897  M01S01884.1ma     +++|          LDD    CN+1        CHECK FOR SAME FIRST TRACK
01898  M01S01885.1ma     +++|          LMD    FS+1
01899  M01S01886.1ma     +++|          NJN    UIE1        IF NOT CORRECT ENTRY
01900  M01S01887.1ma     +++|          LDN    3           SET NUMBER OF REQUESTS FOR *UADM*
01901  M01S01888.1ma     +++|          STD    T1
01902  M01S01889.1ma     +++|          LDD    MA          WRITE *UADM* REQUESTS TO MESSAGE BUFFER
01903  M01S01890.1ma     +++|          CWM    UIEA,T1
01904  M01S01891.1ma     +++|          SFA    QFT,T3      CALCULATE ABSOLUTE ADDRESS OF QFT ENTRY
01905  M01S01892.1ma     +++|          RJM    SFI         ISSUE *UTEM* TO CHANGE JOB EJT ORDINAL
01906  M01S01893.1ma     +++|          NJN    UIE2        IF EJT ORDINAL VERIFY FAILED
01907  M01S01894.1ma     +++|          LJM    UIEX        RETURN
01908  M01S01895.1ma     +++|
01909  M01S01896.1ma     +++| UIE2     MONITOR  HNGM      HANG PP
01910  M01S01897.1ma     +++|          UJN    UIE2        UNCONDITIONALLY HANG
01911  M01S01898.1ma     +++|
01912  M01S01899.1ma     +++|
01913  M01S01900.1ma     +++| UIEA     VFD    1/1,5/JSNQ,6/1,6/1,42/1  CHECK FILE ASSIGNED
01914  M01S01901.1ma     +++|          VFD    1/1,5/ENTQ,6/12D,6/0,42/0  VERIFY OLD EJT ORDINAL
01915  M01S01902.1ma     +++| UIEB     EQU    *-1
01916  M01S01903.1ma     +++|          VFD    1/0,5/ENTQ,6/12D,6/0,42/0  SET NEW EJT ORDINAL
01917  M01S01904.1ma     +++| UIEC     EQU    *-1
01918  M01S01905.1ma     +++|          SPACE  4,10
01919  M01S01906.1ma     +++|**        COMMON DECKS.
01920  M01S01907.1ma     +++|
01921  M01S01908.1ma     +++|
01922  M01S01909.1ma     +++|*CALL     COMPNFL
01923  M01S01910.1ma     +++|          SPACE  4,10
01924  M01S01911.1ma     +++|**        BUFFER FOR UTILITY FNT WORD.
01925  M01S01912.1ma     +++|
01926  M01S01913.1ma     +++|
01927  M01S01914.1ma     +++| FBUF     BSS    LENF*5-2*5  REMAINDER OF FNT
01928  M01S01915.1ma     +++|          ERRNZ  LENF-3      CHANGE BUFFER SIZE AND ALL *FBUF* ACCESS
01929  M01S01916.1ma     +++|          SPACE  4,10
01930  M01S01917.1ma     +++|          USE    OVERLAY
01931  M01S01918.1ma     +++|
01932  M01S01919.1ma     +++| OSTL     EQU    *+5         *0ST* LOAD ADDRESS
01933  M01S01920.1ma     +++|
01934  M01S01921.1ma     +++|          ERRNG  BFMS-OSTL-ZSTL  CHECK *0ST* LENGTH
01935  M01S01922.1ma     +++|          OVERFLOW E1MA
01936  M01S01923.1ma     +++|          TTL    1MA/2MB - EXTENDED MEMORY STORAGE REQUEST PROCESSING.
01937  M01S01924.1ma     +++|          TITLE
01938  M01S01925.1ma     +++|          OVERLAY (EXTENDED MEMORY STORAGE REQUEST.),E1MA
01939  M01S01926.1ma     +++|          SPACE  4,10
01940  M01S01927.1ma     +++|*****     2MB - EXTENDED MEMORY STORAGE REQUEST PROCESSING.
01941  M01S01928.1ma     +++|*
01942  M01S01929.1ma     +++|*         *2MB* PERFORMS ALL ECS RELATED STORAGE REQUESTS FOR
01943  M01S01930.1ma     +++|*         THE SYSTEM MONITOR.  *2MB* WILL INSURE THAT AT LEAST
01944  M01S01931.1ma     +++|*         *MCMX* WORDS OF CM IS ASSIGNED TO THE CONTROL POINT
01945  M01S01932.1ma     +++|*         BEFORE REQUESTING EXTENDED MEMORY FOR THE CONTROL POINT.
01946  M01S01933.1ma     +++|*         IF THE CONTROL POINT HAS AN *MFL* OF LESS THAN *MCMX* AT THE
01947  M01S01934.1ma     +++|*         TIME EXTENDED MEMORY IS REQUESTED, THE JOB WILL BE ABORTED.
01948  M01S01935.1ma     +++| RFE      SPACE  4,25
01949  M01S01936.1ma     +++|***       FUNCTION 0 (SUBFUNCTIONS 2 AND 4).
01950  M01S01937.1ma     +++|*         REQUEST EXTENDED CORE STORAGE.
01951  M01S01938.1ma     +++|*
01952  M01S01939.1ma     +++|*         ENTRY
01953  M01S01940.1ma     +++|*T ARG    6/SUB,18/FL
Figure ARG

0171823FLSUB

01954  M01S01941.1ma     +++|*
01955  M01S01942.1ma     +++|*         SUB = 2  EXTENDED MEMORY REQUEST, ABORT IF NOT AVAILABLE.
01956  M01S01943.1ma     +++|*             = 4  EXTENDED MEMORY REQUEST, NO ABORT IF NOT AVAILABLE.
01957  M01S01944.1ma     +++|*
01958  M01S01945.1ma     +++|*T FL     30/VAL,24/,1/R,1/C,1/,3/0
Figure FL

023456290CR3059VAL

01959  M01S01946.1ma     +++|*
01960  M01S01947.1ma     +++|*         VAL    POSITIVE NON-ZERO VALUE INDICATING THE AMOUNT OF
01961  M01S01948.1ma     +++|*                EXTENDED MEMORY BEING REQUESTED.
01962  M01S01949.1ma     +++|*         R      CLEAR *CMM* STATUS.
01963  M01S01950.1ma     +++|*         C      THIS IS A *CMM* TYPE REQUEST.
01964  M01S01951.1ma     +++|*
01965  M01S01952.1ma     +++|*         EXIT   TO *ERR* IF ERRORS ENCOUNTERED.
01966  M01S01953.1ma     +++|*                TO *RCL* TO ENTER PP RECALL.
01967  M01S01954.1ma     +++|*
01968  M01S01955.1ma     +++|*         USES   T3 - T5, T7, CM - CM+4, FS - FS+4, SP - SP+4.
01969  M01S01956.1ma     +++|*
01970  M01S01957.1ma     +++|*         CALLS  CLM, REI, RSI.
01971  M01S01958.1ma     +++|*
01972  M01S01959.1ma     +++|*         MACROS MONITOR.
01973  M01S01960.1ma     +++|
01974  M01S01961.1ma     +++|
01975  M01S01962.1ma     +++| RFE      SUBR               ENTRY/EXIT
01976  M01S01963.1ma     +++|          LDK    MEFL        GET USER EM SHIFT COUNT (UESC)
01977  M01S01964.1ma     +++|          CRD    CM
01978  M01S01965.1ma     +++|          LDD    CM+2
01979  M01S01966.1ma     +++|          SHN    -11
01980  M01S01967.1ma     +++|          STD    CM+2
01981  M01S01968.1ma     +++|          SBN    4
01982  M01S01969.1ma     +++|          LPN    77
01983  M01S01970.1ma     +++|          ADD    TH
01984  M01S01971.1ma     +++|          ERRNZ  SHNI-1000
01985  M01S01972.1ma     +++|          STM    RFEA
01986  M01S01973.1ma     +++|          LDC    SHNI+77
01987  M01S01974.1ma     +++|          SBD    CM+2
01988  M01S01975.1ma     +++|          STM    RFEB
01989  M01S01976.1ma     +++|          LDC    SHNI+3
01990  M01S01977.1ma     +++|          ADD    CM+2
01991  M01S01978.1ma     +++|          STM    RFEC
01992  M01S01979.1ma     +++|          STM    RFEE
01993  M01S01980.1ma     +++|          LDD    IR+3        RESTORE DIRECT CELL HIT DURING LOADING
01994  M01S01981.1ma     +++|          SHN    -6
01995  M01S01982.1ma     +++|          ADN    1
01996  M01S01983.1ma     +++|          STD    T5
01997  M01S01984.1ma     +++|          LDD    FN+2        FETCH REQUEST
01998  M01S01985.1ma     +++|          ADC    7700        ROUND UP
01999  M01S01986.1ma     +++|          SHN    -14
02000  M01S01987.1ma     +++|          ADD    FN+1
02001  M01S01988.1ma     +++|          ADN    7
02002  M01S01989.1ma     +++|          SCN    7
02003  M01S01990.1ma     +++|          SHN    6
02004  M01S01991.1ma     +++|          ADD    FN
02005  M01S01992.1ma     +++|          SHN    11
02006  M01S01993.1ma     +++|          STD    T3          SET NEW FLE
02007  M01S01994.1ma     +++|          SHN    -14
02008  M01S01995.1ma     +++|          STD    T0
02009  M01S01996.1ma     +++|          LDN    17          ROUND VALUE TO BLOCKING SIZE
02010  M01S01997.1ma     +++| RFEA     SHN    -4
02011  M01S01998.1ma     +++|*         SHN    UESC-4
02012  M01S01999.1ma     +++|          RAD    T3
02013  M01S02000.1ma     +++|          SHN    -14
02014  M01S02001.1ma     +++|          ADD    T0
02015  M01S02002.1ma     +++|          SHN    14
02016  M01S02003.1ma     +++|          LMD    T3
02017  M01S02004.1ma     +++| RFEB     SHN    0
02018  M01S02005.1ma     +++|*         SHN    -UESC
02019  M01S02006.1ma     +++|          STD    T3
02020  M01S02007.1ma     +++|          SHN    -14
02021  M01S02008.1ma     +++|          ZJN    RFE1        IF REQUEST .LE. 7777B *UEBS* BLOCKS
02022  M01S02009.1ma     +++|          LDN    PSNI
02023  M01S02010.1ma     +++|          STM    RFED
02024  M01S02011.1ma     +++|
02025  M01S02012.1ma     +++|*         RE-ENTER AT *RFE1* FOLLOWING CLEAR OF CM WHEN
02026  M01S02013.1ma     +++|*         CM INCREASE REQUIRED PRIOR TO EXTENDED MEMORY REQUEST.
02027  M01S02014.1ma     +++|
02028  M01S02015.1ma     +++| RFE1     LDD    CP          FETCH STATUS AND CONTROL WORDS
02029  M01S02016.1ma     +++|          ADN    ECSW
02030  M01S02017.1ma     +++|          CRD    FS
02031  M01S02018.1ma     +++|          ADN    ELCW-ECSW
02032  M01S02019.1ma     +++|          CRD    T7
02033  M01S02020.1ma     +++|          LDN    ZERL
02034  M01S02021.1ma     +++|          CRD    CM
02035  M01S02022.1ma     +++|          LDD    FS+4
02036  M01S02023.1ma     +++| RFEC     SHN    3
02037  M01S02024.1ma     +++|*         SHN    3+UESC
02038  M01S02025.1ma     +++|          STD    CM+1
02039  M01S02026.1ma     +++|          SHN    -14
02040  M01S02027.1ma     +++|          STD    CM
02041  M01S02028.1ma     +++|          LDD    T7
02042  M01S02029.1ma     +++|          SBD    T3
02043  M01S02030.1ma     +++| RFED     PJN    RFE3        IF FLE .LE. MFL (EXTENDED MEMORY)
02044  M01S02031.1ma     +++|*         PSN                (IF FLE .GT. 12 BITS)
02045  M01S02032.1ma     +++|          LDD    IR+3
02046  M01S02033.1ma     +++|          SHN    21-7
02047  M01S02034.1ma     +++|          PJN    RFE2        IF NOT *NO ABORT*
02048  M01S02035.1ma     +++|          LJM    RFEX        COMPLETE PROCESSING
02049  M01S02036.1ma     +++|
02050  M01S02037.1ma     +++| RFE2     LDC    =C* FL REQUEST BEYOND MFL (EXTENDED MEMORY).*
02051  M01S02038.1ma     +++|          LJM    ERR         PROCESS ERROR ABORT
02052  M01S02039.1ma     +++|
02053  M01S02040.1ma     +++|*         CHECK FOR AT LEAST MINIMUM CM FL AVAILABLE.
02054  M01S02041.1ma     +++|
02055  M01S02042.1ma     +++| RFE3     LDD    FL          CHECK CM FL
02056  M01S02043.1ma     +++|          ADC    -MCMX/100
02057  M01S02044.1ma     +++|          PJN    RFE4        IF FL .GE. MINIMUM FL WITH EXTENDED MEMORY
02058  M01S02045.1ma     +++|          LJM    RFE12       GET ENOUGH CM BEFORE REQUESTING ECS
02059  M01S02046.1ma     +++|
02060  M01S02047.1ma     +++|*         REQUEST EXTENDED MEMORY.
02061  M01S02048.1ma     +++|
02062  M01S02049.1ma     +++| RFE4     LDD    CP          CHECK IF JOB ROLLABLE
02063  M01S02050.1ma     +++|          ADN    JCIW
02064  M01S02051.1ma     +++|          CRD    CM
02065  M01S02052.1ma     +++|          LDD    CM+3        CHECK FOR *DIS* JOB
02066  M01S02053.1ma     +++|          LPC    1000
02067  M01S02054.1ma     +++|          ADD    CM+2        CHECK FOR NON-ROLLABLE JOB
02068  M01S02055.1ma     +++|          NJN    RFE5        IF JOB NOT ROLLABLE
02069  M01S02056.1ma     +++|          LDN    SSTL        CHECK EXTENDED MEMORY CONTROL
02070  M01S02057.1ma     +++|          CRD    CM
02071  M01S02058.1ma     +++|          LDD    CM
02072  M01S02059.1ma     +++|          SHN    21-5
02073  M01S02060.1ma     +++|          MJN    RFE6        IF USER EXTENDED MEMORY DISABLED
02074  M01S02061.1ma     +++| RFE5     LDD    FS+4        SAVE CURRENT FLE
02075  M01S02062.1ma     +++|          STD    T4
02076  M01S02063.1ma     +++|          LDD    T3
02077  M01S02064.1ma     +++|          RJM    REI         REQUEST EXTENDED MEMORY INCREASE
02078  M01S02065.1ma     +++|          ZJN    RFE7        IF ASSIGNED
02079  M01S02066.1ma     +++| RFE6     LJM    RFE9        IF REQUEST PENDING
02080  M01S02067.1ma     +++|
02081  M01S02068.1ma     +++|*         EXTENDED MEMORY ASSIGNED.
02082  M01S02069.1ma     +++|
02083  M01S02070.1ma     +++| RFE7     LDD    CP          READ ECSW AND SEPW WORDS
02084  M01S02071.1ma     +++|          ADN    ECSW
02085  M01S02072.1ma     +++|          CRD    FS
02086  M01S02073.1ma     +++|          ADN    SEPW-ECSW
02087  M01S02074.1ma     +++|          CRD    CM
02088  M01S02075.1ma     +++|          LDD    CM          CHECK ENTRY POINTS
02089  M01S02076.1ma     +++|          LPN    1
02090  M01S02077.1ma     +++|          NJN    RFE8        IF SSM= ENTRY POINT PRESENT
02091  M01S02078.1ma     +++|          STD    CM+1
02092  M01S02079.1ma     +++|          STD    CM+3
02093  M01S02080.1ma     +++|          LDD    FS+4
02094  M01S02081.1ma     +++|          SBD    T4
02095  M01S02082.1ma     +++|          MJN    RFE8        IF DECREASE
02096  M01S02083.1ma     +++|          ZJN    RFE8        IF NO CHANGE
02097  M01S02084.1ma     +++|          STD    CM+2
02098  M01S02085.1ma     +++|          LDC    300         SET ECS RELATIVE ADDRESS OPTION
02099  M01S02086.1ma     +++|          RAD    CM+1
02100  M01S02087.1ma     +++|          LDD    T4          SET ADDRESS FOR CLEAR
02101  M01S02088.1ma     +++|          STD    CM+4
02102  M01S02089.1ma     +++|          MONITOR  CSTM      CLEAR ADDED STORAGE
02103  M01S02090.1ma     +++| RFE8     LDN    0
02104  M01S02091.1ma     +++|          STD    CM
02105  M01S02092.1ma     +++|          LDD    CP
02106  M01S02093.1ma     +++|          ADN    MS2W
02107  M01S02094.1ma     +++|          CWD    CM          CLEAR CONSOLE MESSAGE
02108  M01S02095.1ma     +++|          LDN    ZERL        RETURN STATUS
02109  M01S02096.1ma     +++|          CRD    CM
02110  M01S02097.1ma     +++|          LDD    FS+4
02111  M01S02098.1ma     +++| RFEE     SHN    3
02112  M01S02099.1ma     +++|*         SHN    3+UESC
02113  M01S02100.1ma     +++|          STD    CM+1
02114  M01S02101.1ma     +++|          SHN    -14
02115  M01S02102.1ma     +++|          STD    CM
02116  M01S02103.1ma     +++|          LJM    RFEX        RETURN
02117  M01S02104.1ma     +++|
02118  M01S02105.1ma     +++|*         EXTENDED MEMORY NOT AVAILABLE.
02119  M01S02106.1ma     +++|
02120  M01S02107.1ma     +++| RFE9     PJN    RFE10       IF STORAGE UNASSIGNED WAITING FOR *1SJ*
02121  M01S02108.1ma     +++|          LDD    CP          CHECK IF JOB ROLLABLE
02122  M01S02109.1ma     +++|          ADN    JCIW
02123  M01S02110.1ma     +++|          CRD    SP
02124  M01S02111.1ma     +++|          LDD    SP+3        CHECK FOR *DIS* JOB
02125  M01S02112.1ma     +++|          LPC    1000
02126  M01S02113.1ma     +++|          ADD    SP+2        CHECK FOR NON-ROLLABLE JOB
02127  M01S02114.1ma     +++|          NJN    RFE10       IF JOB NOT ROLLABLE
02128  M01S02115.1ma     +++|          STD    CM+1        ROLLOUT CONTROL POINT
02129  M01S02116.1ma     +++|          MONITOR  ROCM
02130  M01S02117.1ma     +++|          UJN    RFE11       ENTER RECALL
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ma.txt ยท Last modified: by 127.0.0.1