Deck TFU

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.tfu     +++|          IDENT  TFU,TFU
00002  M01S00002.tfu     +++|          PERIPH
00003  M01S00003.tfu     +++|          BASE   MIXED
00004  M01S00004.tfu     +++|          SST
00005  M01S00005.tfu     +++|*COMMENT  TFU - TAPE FILE UTILITY.

Line S00006 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP.  1985.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.tfu     +++|          TITLE  TFU - TAPE FILE UTILITY.
00009  M01S00008.tfu     +++| TFU      SPACE  4,10
00010  M01S00009.tfu     +++|***       TFU - TAPE FILE UTILITY.
00011  M01S00010.tfu     +++|*
00012  M01S00011.tfu     +++|*         J. D. HOLMBECK     85/02/15.
00013  M01S00012.tfu     +++| TFU      SPACE  4,10
00014  M01S00013.tfu     +++|***       *TFU* CONTAINS FUNCTIONS FOR THE *TAPE MANAGEMENT SYSTEM*
00015  M01S00014.tfu     +++|*         (*TMS*) THAT DO NOT REQUIRE ACCESS TO THE TAPE CATALOG FILES.
00016  M01S00015.tfu     +++|*         THE PROGRAM *TFM* IS USED TO ACCESS THE TAPE CATALOG FILES.
00017  M01S00016.tfu     +++| TFU      SPACE  4,10
00018  M01S00017.tfu     +++|***       *TFU* CALL FORMAT.
00019  M01S00018.tfu     +++|*
00020  M01S00019.tfu     +++|*T        18/*TFU* ,6/AR, 12/CODE, 24/PARAM

00021  M01S00020.tfu     +++|*
00022  M01S00021.tfu     +++|*                AR          AUTO RECALL.
00023  M01S00022.tfu     +++|*                CODE        FUNCTION CODE.
00024  M01S00023.tfu     +++|*                PARAM       PARAMETER FOR FUNCTION.
00025  M01S00024.tfu     +++| DAYFILE  SPACE  4,10
00026  M01S00025.tfu     +++|***       DAYFILE MESSAGES.
00027  M01S00026.tfu     +++|*
00028  M01S00027.tfu     +++|*         * TFU - ARGUMENT ERROR.*
00029  M01S00028.tfu     +++|*                THE PARAMETER SPECIFIED IN THE LOWER 24 BITS OF THE
00030  M01S00029.tfu     +++|*                REQUEST IS NOT IN THE CORRECT FORMAT FOR THE FUNCTION.
00031  M01S00030.tfu     +++|*                FOR EXAMPLE, A PARAMETER BLOCK ADDRESS MAY BE OUTSIDE
00032  M01S00031.tfu     +++|*                THE FIELD LENGTH OF THE CALLING PROGRAM.
00033  M01S00032.tfu     +++|*
00034  M01S00033.tfu     +++|*         * TFU - INCORRECT REQUEST.*
00035  M01S00034.tfu     +++|*                THE FUNCTION NUMBER SPECIFIED IS NOT RECOGNIZED BY
00036  M01S00035.tfu     +++|*                *TFU*.
00037  M01S00036.tfu     +++|*
00038  M01S00037.tfu     +++|*         * TFU - USER ACCESS NOT VALID.*
00039  M01S00038.tfu     +++|*                THE FUNCTION REQUESTED REQUIRES SPECIAL PRIVILEGES
00040  M01S00039.tfu     +++|*                THAT THE CALLING PROGRAM DOES NOT HAVE.  FOR EXAMPLE,
00041  M01S00040.tfu     +++|*                THE FUNCTION MAY REQUIRE AN *SSJ=* ENTRY POINT.
00042  M01S00041.tfu     +++|          TITLE  COMMON DECKS.
00043  M01S00042.tfu     +++| COMMON   SPACE  4,10
00044  M01S00043.tfu     +++|**        COMMON DECKS.
00045  M01S00044.tfu     +++|
00046  M01S00045.tfu     +++|
00047  M01S00046.tfu     +++|*CALL     COMPMAC

Line S00047 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00047.282l826 ---|          QUAL   EVT

Line S00048 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00048.282l826 ---|*CALL     COMSEVT

Line S00049 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00049.282l826 ---|          QUAL   *
00051  M01S00050.tfu     +++|*CALL     COMSEJT
00052  M01S00051.tfu     +++|          QUAL   MTX
00053  M01S00052.tfu     +++|*CALL     COMSMTX
00054  M01S00053.tfu     +++|          QUAL   *
00055  M01S00054.tfu     +++|*CALL     COMSPIM
00056  M01S00055.tfu     +++|*CALL     COMSPRD
00057  M01S00056.tfu     +++|*CALL     COMSSSD
00058  M01S00057.tfu     +++|          QUAL   TFM
00059  M01S00058.tfu     +++|*CALL     COMSTFM
00060  M01S00059.tfu     +++|          QUAL   *
00061  M01S00060.tfu     +++|          LIST   X
00062  M01S00061.tfu     +++|*CALL     COMSTFU
00063  M01S00062.tfu     +++|          LIST   *
00064  M01S00063.tfu     +++|          TITLE  PROGRAM MACROS AND EQUIVALENCES.
00065  M01S00064.tfu     +++| ABORT    SPACE  4,10
00066  M01S00065.tfu     +++|**        ABORT - ERROR PROCESSING MACRO.
00067  M01S00066.tfu     +++|*
00068  M01S00067.tfu     +++|*         ABORT  PARAM
00069  M01S00068.tfu     +++|*
00070  M01S00069.tfu     +++|*         ENTRY  PARAM = DAYFILE MESSAGE ADDRESS.
00071  M01S00070.tfu     +++|*
00072  M01S00071.tfu     +++|*         EXIT   DAYFILE MESSAGE ISSUED TO SYSTEM AND USER DAYFILES.
00073  M01S00072.tfu     +++|*                PP ABORTED.
00074  M01S00073.tfu     +++|*
00075  M01S00074.tfu     +++|*         CALLS  ERR.
00076  M01S00075.tfu     +++|
00077  M01S00076.tfu     +++|
00078  M01S00077.tfu     +++|          PURGMAC  ABORT
00079  M01S00078.tfu     +++|
00080  M01S00079.tfu     +++| ABORT    MACRO  A
00081  M01S00080.tfu     +++|          MACREF ABORT
00082  M01S00081.tfu     +++|          LDC    A
00083  M01S00082.tfu     +++|          LJM    //ERR
00084  M01S00083.tfu     +++| ABORT    ENDM
00085  M01S00084.tfu     +++| ENTRY    SPACE  4,10
00086  M01S00085.tfu     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00087  M01S00086.tfu     +++|*
00088  M01S00087.tfu     +++|*         ENTRY  NAME
00089  M01S00088.tfu     +++|*
00090  M01S00089.tfu     +++|*         ENTRY  NAME = ENTRY ADDRESS.
00091  M01S00090.tfu     +++|
00092  M01S00091.tfu     +++|
00093  M01S00092.tfu     +++|          PURGMAC ENTRY
00094  M01S00093.tfu     +++|
00095  M01S00094.tfu     +++|          MACRO  ENTRY,NAME
00096  M01S00095.tfu     +++|          MACREF ENTRY
00097  M01S00096.tfu     +++|          IF     -MIC,.M
00098  M01S00097.tfu     +++| NAME     EQU    *
00099  M01S00098.tfu     +++|          ELSE
00100  M01S00099.tfu     +++|          QUAL
00101  M01S00100.tfu     +++| NAME     EQU    *+1R".M"*10000
00102  M01S00101.tfu     +++|          QUAL   ".O"
00103  M01S00102.tfu     +++|          ENDIF
00104  M01S00103.tfu     +++| ENTRY    ENDM
00105  M01S00104.tfu     +++| FCN      SPACE  4,15
00106  M01S00105.tfu     +++|**        FCN - DEFINE FUNCTION PROCESSOR.
00107  M01S00106.tfu     +++|*
00108  M01S00107.tfu     +++|* FUNC    FCN    NAME,(JOB CODES),SSJ
00109  M01S00108.tfu     +++|*
00110  M01S00109.tfu     +++|*         ENTRY  FUNC = FUNCTION CODE FROM *COMSTFU*.
00111  M01S00110.tfu     +++|*                NAME = NAME OF FUNCTION PROCESSOR.
00112  M01S00111.tfu     +++|*                JOB CODES = IF USED, FUNCTION IS ALLOWED BY ONLY
00113  M01S00112.tfu     +++|*                            THOSE JOB TYPES.
00114  M01S00113.tfu     +++|*                SSJ = IF USED, FUNCTION IS ALLOWED BY ONLY THOSE
00115  M01S00114.tfu     +++|*                            JOBS WITH *SSJ=* ENTRY POINTS OR
00116  M01S00115.tfu     +++|*                            SUBSYSTEM ID-S.
00117  M01S00116.tfu     +++|
00118  M01S00117.tfu     +++|
00119  M01S00118.tfu     +++| .3       SET    0
00120  M01S00119.tfu     +++|
00121  M01S00120.tfu     +++|          PURGMAC  FCN
00122  M01S00121.tfu     +++|
00123  M01S00122.tfu     +++|          MACRO  FCN,FN,A,B,C
00124  M01S00123.tfu     +++|          LOC    .3/3
00125  M01S00124.tfu     +++| FN       CON    A/10000B,A-A/10000B*10000B
00126  M01S00125.tfu     +++| .1       SET    0
00127  M01S00126.tfu     +++|          IFC    NE,$B$$,1
00128  M01S00127.tfu     +++| .1       BITSET (B)
00129  M01S00128.tfu     +++|          IFC    NE,$C$$,1
00130  M01S00129.tfu     +++| .1       SET    .1+4000
00131  M01S00130.tfu     +++|          CON    .1
00132  M01S00131.tfu     +++| .3       SET    .3+3
00133  M01S00132.tfu     +++| FCN      ENDM
00134  M01S00133.tfu     +++| OVERLAY  SPACE  4,10
00135  M01S00134.tfu     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00136  M01S00135.tfu     +++|*
00137  M01S00136.tfu     +++|*         OVERLAY (TEXT)
00138  M01S00137.tfu     +++|*
00139  M01S00138.tfu     +++|*         ENTRY  TEXT = TEXT OF SUBTITLE.
00140  M01S00139.tfu     +++|
00141  M01S00140.tfu     +++|
00142  M01S00141.tfu     +++| .N       SET    0
00143  M01S00142.tfu     +++| OVLB     MICRO  1,, 4T      BASE OVERLAY NAME
00144  M01S00143.tfu     +++|
00145  M01S00144.tfu     +++|          PURGMAC OVERLAY
00146  M01S00145.tfu     +++|
00147  M01S00146.tfu     +++| OVERLAY  MACRO  TEXT
00148  M01S00147.tfu     +++|          QUAL
00149  M01S00148.tfu     +++| .N       SET    .N+1
00150  M01S00149.tfu     +++| .M       MICRO  .N,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
00151  M01S00150.tfu     +++| .O       MICRO  1,3, "OVLB"".M"
00152  M01S00151.tfu     +++|          QUAL   ".O"
00153  M01S00152.tfu     +++|          TTL    TFU/".O" - TEXT
00154  M01S00153.tfu     +++|          TITLE
00155  M01S00154.tfu     +++|          IDENT  ".O",OVL    TEXT
00156  M01S00155.tfu     +++|*COMMENT  TFU - TEXT

Line S00156 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00156.281l803 ---|          COMMENT COPYRIGHT   CONTROL DATA CORP. 1985.
00158  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00159  M01S00157.tfu     +++|          ORG    OVL
00160  M01S00158.tfu     +++|          LJM    *
00161  M01S00159.tfu     +++|          UJN    *-2
00162  M01S00160.tfu     +++| OVERLAY  ENDM
00163  M01S00161.tfu     +++| DIRECT   SPACE  4,10
00164  M01S00162.tfu     +++|****      DIRECT LOCATION ASSIGNMENTS.
00165  M01S00163.tfu     +++|
00166  M01S00164.tfu     +++|
00167  M01S00165.tfu     +++| CN       EQU    20 - 24     CM WORD BUFFER (5 LOCATIONS)
00168  M01S00166.tfu     +++| OT       EQU    25          JOB ORIGIN TYPE
00169  M01S00167.tfu     +++| FN       EQU    30 - 34     FAMILY NAME (5 LOCATIONS)
00170  M01S00168.tfu     +++| UN       EQU    40 - 44     USER NAME (5 LOCATIONS)
00171  M01S00169.tfu     +++| EP       EQU    57          ENTRY POINTS
00172  M01S00170.tfu     +++| SC       EQU    60 - 64     SCRATCH
00173  M01S00171.tfu     +++|****
00174  M01S00172.tfu     +++|          TITLE  MAIN PROGRAM.
00175  M01S00173.tfu     +++|          SPACE  4
00176  M01S00174.tfu     +++|          ORG    PPFW
00177  M01S00175.tfu     +++| TFU      SPACE  4,10
00178  M01S00176.tfu     +++|**        TFU - MAIN PROGRAM.
00179  M01S00177.tfu     +++|
00180  M01S00178.tfu     +++|
00181  M01S00179.tfu     +++| TFU      RJM    PRS         PRESET TAPE FILE UTILITY
00182  M01S00180.tfu     +++|          LDC    0
00183  M01S00181.tfu     +++| TFUA     EQU    *-1         (OVERLAY NAME)
00184  M01S00182.tfu     +++|          ZJN    TFU1        IF NO OVERLAY NAME
00185  M01S00183.tfu     +++|          LMC    2L"OVLB"    LOAD OVERLAY
00186  M01S00184.tfu     +++|          RJM    EXR         EXECUTE ROUTINE
00187  M01S00185.tfu     +++| TFU1     LDN    0           CLEAR ADDRESS WORD COUNT
00188  M01S00186.tfu     +++|          STD    T1
00189  M01S00187.tfu     +++|          LJM    *           ENTER PROCESSOR
00190  M01S00188.tfu     +++| TFUB     EQU    *-1         (ENTRY ADDRESS FOR FUNCTION)
00191  M01S00189.tfu     +++|
00192  M01S00190.tfu     +++| TFUX     MONITOR DPPM       DROP PP
00193  M01S00191.tfu     +++|          LJM    PPR         EXIT TO PP RESIDENT
00194  M01S00192.tfu     +++|          SPACE  4,10
00195  M01S00193.tfu     +++|**        PROGRAMMING NOTE.
00196  M01S00194.tfu     +++|*
00197  M01S00195.tfu     +++|*         (T1) = 0, ON ENTRY TO ALL FUNCTION PROCESSORS TO ASSURE
00198  M01S00196.tfu     +++|*         THE ROUTINE *CKA* WILL CHECK THE PROPER CM ADDRESSES.
00199  M01S00197.tfu     +++|          TITLE  ERROR PROCESSOR.
00200  M01S00198.tfu     +++| ERR      SPACE  4,10
00201  M01S00199.tfu     +++|**        ERR - ERROR PROCESSOR.
00202  M01S00200.tfu     +++|*
00203  M01S00201.tfu     +++|*         ENTRY  (A) = ADDRESS OF DAYFILE MESSAGE.
00204  M01S00202.tfu     +++|*
00205  M01S00203.tfu     +++|*         EXIT   DAYFILE MESSAGE ISSUED TO SYSTEM AND USER DAYFILES.
00206  M01S00204.tfu     +++|*                PP ABORTED.
00207  M01S00205.tfu     +++|*
00208  M01S00206.tfu     +++|*         USES   CN.
00209  M01S00207.tfu     +++|*
00210  M01S00208.tfu     +++|*         CALLS  /4TA/ERR.
00211  M01S00209.tfu     +++|
00212  M01S00210.tfu     +++|
00213  M01S00211.tfu     +++| ERR      BSS    0           ENTRY
00214  M01S00212.tfu     +++|          STD    CN          SET ERROR MESSAGE ADDRESS
00215  M01S00213.tfu     +++|          EXECUTE  4TA
00216  M01S00214.tfu     +++|          LJM    /4TA/ERR    PROCESS ERROR
00217  M01S00215.tfu     +++|          TITLE  RESIDENT ROUTINES.
00218  M01S00216.tfu     +++| CKA      SPACE  4,15
00219  M01S00217.tfu     +++|**        CKA - CHECK ADDRESS.
00220  M01S00218.tfu     +++|*
00221  M01S00219.tfu     +++|*         ENTRY  (IR+3 - IR+4) = ADDRESS.
00222  M01S00220.tfu     +++|*                (T1) = WORD COUNT MINUS ONE.
00223  M01S00221.tfu     +++|*
00224  M01S00222.tfu     +++|*         EXIT   (A) = ABSOLUTE ADDRESS.
00225  M01S00223.tfu     +++|*
00226  M01S00224.tfu     +++|*         ERROR  ABORT WITH * TFU - ARGUMENT ERROR* IF ADDRESS IS NOT
00227  M01S00225.tfu     +++|*                WITHIN FIELD LENGTH OF CALLING PROGRAM.
00228  M01S00226.tfu     +++|*
00229  M01S00227.tfu     +++|*         MACROS ABORT.
00230  M01S00228.tfu     +++|
00231  M01S00229.tfu     +++|
00232  M01S00230.tfu     +++| CKA2     LDD    IR+3        LOAD ABSOLUTE ADDRESS
00233  M01S00231.tfu     +++|          SHN    6
00234  M01S00232.tfu     +++|          ADD    RA
00235  M01S00233.tfu     +++|          SHN    6
00236  M01S00234.tfu     +++|          ADD    IR+4
00237  M01S00235.tfu     +++|
00238  M01S00236.tfu     +++| CKA      SUBR               ENTRY/EXIT
00239  M01S00237.tfu     +++|          LDD    IR+3
00240  M01S00238.tfu     +++|          SCN    37
00241  M01S00239.tfu     +++|          NJN    CKA1        IF OUT OF RANGE
00242  M01S00240.tfu     +++|          LDD    IR+3
00243  M01S00241.tfu     +++|          SHN    14
00244  M01S00242.tfu     +++|          LMD    IR+4
00245  M01S00243.tfu     +++|          ADD    T1
00246  M01S00244.tfu     +++|          SHN    -6
00247  M01S00245.tfu     +++|          SBD    FL
00248  M01S00246.tfu     +++|          MJN    CKA2        IF WITHIN FIELD LENGTH
00249  M01S00247.tfu     +++| CKA1     ABORT  ERAE        * TFU - ARGUMENT ERROR.*
00250  M01S00248.tfu     +++| COMMON   SPACE  4,10
00251  M01S00249.tfu     +++|**        COMMON DECKS NOT TO BE OVERLAYED.
00252  M01S00250.tfu     +++|
00253  M01S00251.tfu     +++|
00254  M01S00252.tfu     +++| EJT$     EQU    1           DEFINE EJT PROCESSOR
00255  M01S00253.tfu     +++| IFP$     EQU    1           DEFINE INITIALIZATION PROCESSOR
00256  M01S00254.tfu     +++|*CALL     COMPGFP
00257  M01S00255.tfu     +++| OVERLAY  SPACE  4,10
00258  M01S00256.tfu     +++|**        OVERLAY DEFINITIONS.
00259  M01S00257.tfu     +++|
00260  M01S00258.tfu     +++|
00261  M01S00259.tfu     +++|          USE    OVERLAY
00262  M01S00260.tfu     +++| OVL      EQU    *+5         OVERLAY  LOAD ADDRESS
00263  M01S00261.tfu     +++|          TITLE  FUNCTION PROCESSORS.
00264  M01S00262.tfu     +++| AEJ      SPACE  4,25
00265  M01S00263.tfu     +++|***       FUNCTION *AEJF* - ASSIGN EST ORDINAL TO JOB.
00266  M01S00264.tfu     +++|*
00267  M01S00265.tfu     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
00268  M01S00266.tfu     +++|*
00269  M01S00267.tfu     +++|*T,ADDR   36/ , 12/ EJT, 12/ EST

00270  M01S00268.tfu     +++|*
00271  M01S00269.tfu     +++|*                EJT = EJT ORDINAL OF JOB.
00272  M01S00270.tfu     +++|*                EST = EST ORDINAL TO ASSIGN TO JOB.
00273  M01S00271.tfu     +++|*
00274  M01S00272.tfu     +++|*         EXIT   PARAMETER BLOCK RESET.
00275  M01S00273.tfu     +++|*
00276  M01S00274.tfu     +++|*T,ADDR   12/ RET, 24/ , 12/ EJT, 12/ EST

00277  M01S00275.tfu     +++|*
00278  M01S00276.tfu     +++|*                RET = 0 IF EST ASSIGNED.
00279  M01S00277.tfu     +++|*                    = 1 IF JOB NOT AT A CONTROL POINT.
00280  M01S00278.tfu     +++|*                    = 2 IF JOB NOT REQUESTING A RESOURCE.
00281  M01S00279.tfu     +++|*
00282  M01S00280.tfu     +++|*         USES   CM - CM+4, CN - CN+4, FN - FN+4.
00283  M01S00281.tfu     +++|*
00284  M01S00282.tfu     +++|*         CALLS  CKA.
00285  M01S00283.tfu     +++|*
00286  M01S00284.tfu     +++|*         MACROS MONITOR, SFA.
00287  M01S00285.tfu     +++|
00288  M01S00286.tfu     +++|
00289  M01S00287.tfu     +++| AEJ      ENTRY              ENTRY
00290  M01S00288.tfu     +++|          RJM    CKA         CHECK ADDRESS
00291  M01S00289.tfu     +++|          CRD    FN          GET PARAMETER BLOCK
00292  M01S00290.tfu     +++|          LDD    FN+4        SET EST
00293  M01S00291.tfu     +++|          STM    AEJC
00294  M01S00292.tfu     +++|          SFA    EJT,FN+3    GET EJT ADDRESS
00295  M01S00293.tfu     +++|          ERRNZ  JSNE
00296  M01S00294.tfu     +++|          CRD    CM          GET JOB STATUS
00297  M01S00295.tfu     +++|          ADN    SCHE-JSNE   GET CONTROL POINT NUMBER
00298  M01S00296.tfu     +++|          CRD    CN
00299  M01S00297.tfu     +++|          LDD    CM+4
00300  M01S00298.tfu     +++|          LPN    76
00301  M01S00299.tfu     +++|          SBN    EXJS*2
00302  M01S00300.tfu     +++|          NJN    AEJ1        IF JOB NOT AT CONTROL POINT
00303  M01S00301.tfu     +++|          LDN    ZERL        SET MONITOR CALL
00304  M01S00302.tfu     +++|          CRD    CM
00305  M01S00303.tfu     +++|          LDN    4           SET REQUEST COUNT
00306  M01S00304.tfu     +++|          STD    CM+1
00307  M01S00305.tfu     +++|          LDD    CN+3        SET CPA ADDRESS
00308  M01S00306.tfu     +++|          LPN    77
00309  M01S00307.tfu     +++|          SHN    7
00310  M01S00308.tfu     +++|          ADN    JCIW
00311  M01S00309.tfu     +++|          STD    CM+4
00312  M01S00310.tfu     +++|          LDD    MA          SET VERIFY/UPDATE BLOCK
00313  M01S00311.tfu     +++|          CWM    AEJB,CM+1
00314  M01S00312.tfu     +++|          MONITOR  UTEM      UPDATE TABLE ENTRY
00315  M01S00313.tfu     +++|          LDD    CM+1
00316  M01S00314.tfu     +++|          ZJN    AEJ2        IF OPERATION COMPLETE
00317  M01S00315.tfu     +++| AEJ1     BSS    0
00318  M01S00316.tfu     +++| AEJA     LDN    1           FLAG USER NOT AT CONTROL POINT
00319  M01S00317.tfu     +++|*         LDN    2           (FLAG USER NOT REQUESTING RESOURCE)
00320  M01S00318.tfu     +++| AEJ2     STD    FN+0
00321  M01S00319.tfu     +++|          RJM    CKA         CHECK ADDRESS
00322  M01S00320.tfu     +++|          CWD    FN          RETURN STATUS TO USER
00323  M01S00321.tfu     +++|          LJM    TFUX        RETURN
00324  M01S00322.tfu     +++|
00325  M01S00323.tfu     +++| AEJB     BSS    0           VERIFY/UPDATE BLOCK FOR *UTEM*
00326  M01S00324.tfu     +++|          VFD    1/1,5/JCIW-JCIW,6/11D,6/49D
00327  M01S00325.tfu     +++|          VFD    42/RXCS     VERIFY *RESEX* CPU PRIORITY
00328  M01S00326.tfu     +++|          VFD    1/1,5/JCIW-JCIW,6/12D,6/24D
00329  M01S00327.tfu     +++|          VFD    42/ORSI     VERIFY ALLOW OPERATOR ROLLOUT SUBSYSTEM ID
00330  M01S00328.tfu     +++|          VFD    1/1,5/SNSW-JCIW,6/01D,6/12D
00331  M01S00329.tfu     +++|          VFD    42/1        VERIFY PP PAUSE FLAG SET
00332  M01S00330.tfu     +++|          VFD    1/0,5/OAEW-JCIW,6/12D,6/00D,30/0
00333  M01S00331.tfu     +++| AEJC     VFD    12/         UPDATE ASSIGNED EST ORDINAL
00334  M01S00332.tfu     +++| IXM      SPACE  4,25
00335  M01S00333.tfu     +++|***       FUNCTION *IXMF* - ISSUE EXTERNAL *MAGNET* REQUEST.
00336  M01S00334.tfu     +++|*
00337  M01S00335.tfu     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
00338  M01S00336.tfu     +++|*
00339  M01S00337.tfu     +++|*T,ADDR   6/ 0, 6/ FNC, 12/ UDT, 36/ PAR

00340  M01S00338.tfu     +++|*
00341  M01S00339.tfu     +++|*                FNC = FUNCTION CODE.

Line S00340 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00340.282l826 ---|*                UDT = *UDT* ADDRESS.
00343  M01S00001.282l826 +++|*                UDT = *UDT* ORDINAL.
00344  M01S00341.tfu     +++|*                PAR = PARAMETER FOR FUNCTION.
00345  M01S00342.tfu     +++|*
00346  M01S00343.tfu     +++|*         EXIT   PARAMETER BLOCK RESET.
00347  M01S00344.tfu     +++|*
00348  M01S00345.tfu     +++|*T,ADDR   12/ RET, 12/ UDT, 36/ PAR

00349  M01S00346.tfu     +++|*
00350  M01S00347.tfu     +++|*                RET = 0 IF REQUEST ACCEPTED.
00351  M01S00348.tfu     +++|*                    = 1 IF MAGNET NOT ACTIVE.
00352  M01S00349.tfu     +++|*                    = 2 IF REQUEST NOT ACCEPTED.
00353  M01S00350.tfu     +++|*
00354  M01S00351.tfu     +++|*         USES   CM - CM+4, CN - CN+4.
00355  M01S00352.tfu     +++|*
00356  M01S00353.tfu     +++|*         CALLS  CKA.
00357  M01S00354.tfu     +++|*
00358  M01S00355.tfu     +++|*         MACROS DELAY, MONITOR, PAUSE.
00359  M01S00356.tfu     +++|
00360  M01S00357.tfu     +++|
00361  M01S00358.tfu     +++| IXM      ENTRY              ENTRY
00362  M01S00359.tfu     +++|          RJM    CKA         CHECK ADDRESS
00363  M01S00360.tfu     +++|          CRD    CN
00364  M01S00361.tfu     +++|          LDD    MA          WRITE VSN ASSIGNMENT DATA
00365  M01S00362.tfu     +++|          CWD    CN
00366  M01S00363.tfu     +++| IXM1     LDN    1           SET WRITE
00367  M01S00364.tfu     +++|          STD    CM+1
00368  M01S00365.tfu     +++|          LDC    MTSI        *MAGNET* SUBSYSTEM ID
00369  M01S00366.tfu     +++|          STD    CM+2
00370  M01S00367.tfu     +++|          LDD    HN          SET WORD COUNT
00371  M01S00368.tfu     +++|          STD    CM+3
00372  M01S00369.tfu     +++|          LDN    /MTX/XREQ
00373  M01S00370.tfu     +++|          STD    CM+4
00374  M01S00371.tfu     +++|          MONITOR  TDAM
00375  M01S00372.tfu     +++|          LDD    CM+1

Line S00373 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00376  M02S00373.282l826 ---|          ZJP    IXM5        IF CALL COMPLETED
00377  M01S00002.282l826 +++|          ZJN    IXM4        IF CALL COMPLETED
00378  M01S00374.tfu     +++|          SBN    4
00379  M01S00375.tfu     +++|          ZJN    IXM3        IF MAGNET NOT ACTIVE
00380  M01S00376.tfu     +++|          PAUSE
00381  M01S00377.tfu     +++|          DELAY
00382  M01S00378.tfu     +++|          LDD    CM+1
00383  M01S00379.tfu     +++|          NJN    IXM2        IF ERROR
00384  M01S00380.tfu     +++|          SOM    IXMB
00385  M01S00381.tfu     +++|          PJP    IXM1        IF RETRY COUNT NOT EXHAUSTED
00386  M01S00382.tfu     +++| IXM2     AOM    IXMA
00387  M01S00383.tfu     +++| IXM3     AOM    IXMA
00388  M01S00384.tfu     +++| IXM4     BSS    0
00389  M01S00385.tfu     +++| IXMA     LDN    0           FLAG REQUEST ACCEPTED
00390  M01S00386.tfu     +++|*         LDN    1           (FLAG *MAGNET* NOT ACTIVE)
00391  M01S00387.tfu     +++|*         LDN    2           (FLAG REQUEST NOT ACCEPTED)
00392  M01S00388.tfu     +++|          STD    CN
00393  M01S00389.tfu     +++|          RJM    CKA         CHECK ADDRESS
00394  M01S00390.tfu     +++|          CWD    CN
00395  M01S00391.tfu     +++|          LJM    TFUX        RETURN
00396  M01S00392.tfu     +++|

Line S00393 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00397  M02S00393.282l826 ---| IXM5     LDD    CN          CHECK FOR ENTERING VSNS

Line S00394 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00394.282l826 ---|          LMN    /MTX/XEV

Line S00395 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00395.282l826 ---|          ZJN    IXM6        IF ENTERING VSN

Line S00396 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00400  M02S00396.282l826 ---|          LMN    /MTX/XSV&/MTX/XEV

Line S00397 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00397.282l826 ---|          NJN    IXM4        IF NOT ENTERING SCRATCH VSN

Line S00398 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00402  M02S00398.282l826 ---|          LDC    2R  +2R  +2R    EVENT FOR SCRATCH VSN

Line S00399 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00399.282l826 ---|          UJN    IXM7        ENTER SCRATCH VSN EVENT

Line S00400 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00400.282l826 ---|

Line S00401 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00401.282l826 ---| IXM6     LDD    CN+2

Line S00402 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00406  M02S00402.282l826 ---|          ZJN    IXM4        IF CLEARING VSN

Line S00403 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00407  M02S00403.282l826 ---|          ADD    CN+3        GENERATE EVENT FROM VSN

Line S00404 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00404.282l826 ---|          ADD    CN+4

Line S00405 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00409  M02S00405.282l826 ---| IXM7     STD    CM+4

Line S00406 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00410  M02S00406.282l826 ---|          LDN    0           ENTER EVENT INTO EVENT TABLE

Line S00407 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00411  M02S00407.282l826 ---|          STD    CM+1

Line S00408 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00408.282l826 ---|          LDN    /EVT/VSNE/10000

Line S00409 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00409.282l826 ---|          STD    CM+3

Line S00410 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00410.282l826 ---|          MONITOR  EATM

Line S00411 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00415  M02S00411.282l826 ---|          UJN    IXM4        RETURN
00416  M01S00412.tfu     +++|
00417  M01S00413.tfu     +++| IXMB     CON    10D         RETRY COUNT

Line S00414 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00418  M02S00414.nos252  ---| RTS      SPACE  4,20

Line S00415 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00419  M02S00415.nos252  ---|***       FUNCTION *RTSF* - RETURN *TMS* STATUS.

Line S00416 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00416.nos252  ---|*

Line S00417 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00421  M02S00417.nos252  ---|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.

Line S00418 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00418.nos252  ---|*

Line S00419 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00423  M02S00419.nos252  ---|*         EXIT   PARAMETER BLOCK RESET.

Line S00420 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00424  M02S00420.nos252  ---|*

Line S00421 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`t2807`
`M03` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00425  M03S00421.nos252  ---|*T,ADDR   1/ TMS, 1/ NTD, 1/ STD, 56/ 0, 1/ UTD

Line S00001 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00426  M02S00001.nos252  ---|*T,ADDR   1/ TMS, 1/ NTD, 1/ STD, 1/ NTE, 1/ STE, 53/ 0, 1/ ETD, 1/ UTD

Line S00422 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00427  M02S00422.nos252  ---|*

Line S00423 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00428  M02S00423.nos252  ---|*                TMS = 0 IF *TMS* IS DISABLED.

Line S00424 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00429  M02S00424.nos252  ---|*                    = 1 IF *TMS* IS ENABLED.

Line S00425 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00430  M02S00425.nos252  ---|*                NTD = 0 IF DEFAULT NON-SYOT TAPE OPTION IS *TO=F*.

Line S00426 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00431  M02S00426.nos252  ---|*                    = 1 IF DEFAULT NON-SYOT TAPE OPTION IS *TO=T*.

Line S00427 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00432  M02S00427.nos252  ---|*                STD = 0 IF DEFAULT SYOT TAPE OPTION IS *TO=F*.

Line S00428 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00433  M02S00428.nos252  ---|*                    = 1 IF DEFAULT SYOT TAPE OPTION IS *TO=T*.

Line S00002 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00002.nos252  ---|*                NTE = 0 IF DEFAULT NON-SYOT TAPE OPTION IS *TO=E*.

Line S00003 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00003.nos252  ---|*                    = 1 IF DEFAULT NON-SYOT TAPE OPTION IS *TO=C*.

Line S00004 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00004.nos252  ---|*                STE = 0 IF DEFAULT NON-SYOT TAPE OPTION IS *TO=E*.

Line S00005 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00005.nos252  ---|*                    = 1 IF DEFAULT NON-SYOT TAPE OPTION IS *TO=C*.

Line S00006 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00438  M02S00006.nos252  ---|*                ETD = 0 IF DEFAULT USER TAPE OPTION IS *TO=E*.

Line S00007 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00439  M02S00007.nos252  ---|*                    = 1 IF DEFAULT USER TAPE OPTION IS *TO=C*.

Line S00429 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00440  M02S00429.nos252  ---|*                UTD = 0 IF DEFAULT USER TAPE OPTION IS *TO=F*.

Line S00430 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00430.nos252  ---|*                    = 1 IF DEFAULT USER TAPE OPTION IS *TO=T*.

Line S00431 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00431.nos252  ---|*

Line S00432 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00443  M02S00432.nos252  ---|*         USES   CM - CM+4, CN - CN+4, FN - FN+4.

Line S00433 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00444  M02S00433.nos252  ---|*

Line S00434 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00434.nos252  ---|*         CALLS  CKA.

Line S00435 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00446  M02S00435.nos252  ---|

Line S00436 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00447  M02S00436.nos252  ---|

Line S00437 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00448  M02S00437.nos252  ---| RTS      ENTRY              ENTRY

Line S00438 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00449  M02S00438.nos252  ---|          LDN    TFML        GET *TMS* SYSTEM STATUS WORD

Line S00439 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00450  M02S00439.nos252  ---|          CRD    CN

Line S00440 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00440.nos252  ---|          LDD    CP          GET *TMS* USER STATUS WORD

Line S00441 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00452  M02S00441.nos252  ---|          ADN    TMSW

Line S00442 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00442.nos252  ---|          CRD    FN

Line S00443 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00443.nos252  ---|          LDN    ZERL        PRESET RETURN WORD

Line S00444 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00444.nos252  ---|          CRD    CM

Line S00445 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00445.nos252  ---|          LDD    OT          CHECK ORIGIN TYPE

Line S00446 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00446.nos252  ---|*         LMN    SYOT

Line S00447 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00447.nos252  ---|          ERRNZ  SYOT        SYSTEM ORIGIN FLAG MISMATCH

Line S00448 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00459  M02S00448.nos252  ---|          NJN    RTS1        IF NOT SYSTEM ORIGIN

Line S00449 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00460  M02S00449.nos252  ---|          AOM    RTSA        SET SYSTEM ORIGIN SHIFT COUNT

Line S00008 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00008.nos252  ---|          AOM    RTSB

Line S00450 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00450.nos252  ---| RTS1     LDD    CN          SET SYSTEM *TMS* STATUS BITS

Line S00451 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`t2807`
`M03` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00463  M03S00451.nos252  ---|          LPC    7000

Line S00009 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00464  M02S00009.nos252  ---|          LPC    7600

Line S00452 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00465  M02S00452.nos252  ---|          STD    CM

Line S00453 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00466  M02S00453.nos252  ---| RTSA     SHN    0-12+22     POSITION SYSTEM DEFAULT TAPE OPTION BIT

Line S00454 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00467  M02S00454.nos252  ---|*         SHN    0-11+22     (SYOT)

Line S00455 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00468  M02S00455.nos252  ---|          LMD    FN+4

Line S00456 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00456.nos252  ---|          LPN    1

Line S00457 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00470  M02S00457.nos252  ---|          STD    CM+4        SET USER DEFAULT TAPE OPTION BIT

Line S00010 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00471  M02S00010.nos252  ---|          LDD    CM          POSITION SYSTEM DEFAULT TAPE OPTION BIT

Line S00011 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00472  M02S00011.nos252  ---| RTSB     SHN    1-10+22

Line S00012 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00012.nos252  ---|*         SHN    1-7+22      (SYOT)

Line S00013 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00013.nos252  ---|          LMD    FN+4

Line S00014 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00475  M02S00014.nos252  ---|          LPN    2

Line S00015 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00015.nos252  ---|          RAD    CM+4

Line S00458 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00477  M02S00458.nos252  ---|          RJM    CKA         CHECK ADDRESS

Line S00459 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00478  M02S00459.nos252  ---|          CWD    CM          RETURN *TMS* STATUS

Line S00460 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00479  M02S00460.nos252  ---|          LJM    TFUX        RETURN
00480  M01S00461.tfu     +++| STO      SPACE  4,20
00481  M01S00462.tfu     +++|***       FUNCTION *STOF* - SET DEFAULT *TO* OPTION FOR USER.
00482  M01S00463.tfu     +++|*
00483  M01S00464.tfu     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
00484  M01S00465.tfu     +++|*

Line S00466 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`t2807`

Seq #  *Modification Id* Act 
----------------------------+
00485  M02S00466.t2807   ---|*T,ADDR   59/ , 1/ UTD

00486  M01S00016.t2807   +++|*T,ADDR   58/ , 1/ ETD, 1/ UTD

00487  M01S00467.tfu     +++|*
00488  M01S00017.t2807   +++|*                ETD = 0 IF DEFAULT USER TAPE OPTION TO BE *TO=E*.
00489  M01S00018.t2807   +++|*                    = 1 IF DEFAULT USER TAPE OPTION TO BE *TO=C*.
00490  M01S00468.tfu     +++|*                UTD = 0 IF DEFAULT USER TAPE OPTION TO BE *TO=F*.
00491  M01S00469.tfu     +++|*                    = 1 IF DEFAULT USER TAPE OPTION TO BE *TO=T*.
00492  M01S00470.tfu     +++|*
00493  M01S00471.tfu     +++|*         EXIT   DEFAULT USER TAPE OPTION RESET.
00494  M01S00472.tfu     +++|*
00495  M01S00473.tfu     +++|*         USES   CM - CM+4, CN - CN+4.
00496  M01S00474.tfu     +++|*
00497  M01S00475.tfu     +++|*         CALLS  CKA.
00498  M01S00476.tfu     +++|*
00499  M01S00477.tfu     +++|*         MACROS DELAY, MONITOR, PAUSE.
00500  M01S00478.tfu     +++|
00501  M01S00479.tfu     +++|
00502  M01S00480.tfu     +++| STO      ENTRY              ENTRY

Line S00481 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00481.nos252  ---|          LDN    TFML        GET *TMS* SYSTEM STATUS WORD

Line S00482 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00504  M02S00482.nos252  ---|          CRD    CN
00505  M01S00483.tfu     +++|          RJM    CKA         CHECK ADDRESS
00506  M01S00484.tfu     +++|          CRD    FN          GET USER REQUEST

Line S00485 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00485.nos252  ---|          LDD    CP          GET *TMS* USER STATUS WORD

Line S00486 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00486.nos252  ---|          ADN    TMSW

Line S00487 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00487.nos252  ---|          CRD    CM

Line S00488 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00488.nos252  ---|          LDD    CM+4

Line S00489 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`t2807`
`M03` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00511  M03S00489.nos252  ---|          SCN    1

Line S00019 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00019.nos252  ---|          SCN    3

Line S00490 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00490.nos252  ---|          STD    CM+4

Line S00491 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00514  M02S00491.nos252  ---|          LDD    OT          CHECK ORIGIN TYPE

Line S00492 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00515  M02S00492.nos252  ---|*         LMN    SYOT

Line S00493 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00493.nos252  ---|          ERRNZ  SYOT        SYSTEM ORIGIN FLAG MISMATCH

Line S00494 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00494.nos252  ---|          NJN    STO1        IF NOT SYSTEM ORIGIN

Line S00495 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00518  M02S00495.nos252  ---|          AOM    STOA        SET SYSTEM ORIGIN SHIFT COUNT

Line S00020 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00020.nos252  ---|          AOM    STOB

Line S00496 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00520  M02S00496.nos252  ---| STO1     LDD    CN          POSITION SYSTEM DEFAULT TAPE OPTION BIT

Line S00497 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00521  M02S00497.nos252  ---| STOA     SHN    0-12+22

Line S00498 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00522  M02S00498.nos252  ---|*         SHN    0-11+22     (SYOT)

Line S00499 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00523  M02S00499.nos252  ---|          LMD    FN+4        SET USER DEFAULT TAPE OPTION BIT

Line S00500 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00524  M02S00500.nos252  ---|          LPN    1

Line S00501 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00525  M02S00501.nos252  ---|          RAD    CM+4

Line S00021 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00526  M02S00021.nos252  ---|          LDD    CN          POSITION DEFAULT TAPE OPTION BIT

Line S00022 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00022.nos252  ---| STOB     SHN    1-10+22

Line S00023 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00528  M02S00023.nos252  ---|*         SHN    1-7+22      (SYOT)

Line S00024 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00024.nos252  ---|          LMD    FN+4        SET DEFAULT OF *TO=E* OR *TO=C*

Line S00025 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00530  M02S00025.nos252  ---|          LPN    2

Line S00026 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00531  M02S00026.nos252  ---|          RAD    CM+4

Line S00502 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00502.nos252  ---|          LDD    CP          RESET *TMS* USER STATUS WORD

Line S00503 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00533  M02S00503.nos252  ---|          ADN    TMSW
00534  M01S00001.nos252  +++|          NFA    TMSN        GET TMS CONTROL WORD
00535  M01S00002.nos252  +++|          CRD    CM
00536  M01S00003.nos252  +++|          LDD    CM+4        SET USER DEFINED TAPE OPTIONS FLAG
00537  M01S00004.nos252  +++|          LPC    777
00538  M01S00005.nos252  +++|          LMC    4000
00539  M01S00006.nos252  +++|          STD    CM+4
00540  M01S00007.nos252  +++|          LDD    FN+4        SET USER DEFINED TAPE OPTIONS
00541  M01S00008.nos252  +++|          LPN    3
00542  M01S00009.nos252  +++|          SHN    12-1
00543  M01S00010.nos252  +++|          RAD    CM+4
00544  M01S00011.nos252  +++|          NFA    TMSN        REWRITE TMS CONTROL WORD
00545  M01S00504.tfu     +++|          CWD    CM
00546  M01S00505.tfu     +++|          LJM    TFUX        RETURN
00547  M01S00506.tfu     +++| STS      SPACE  4,20
00548  M01S00507.tfu     +++|***       FUNCTION *STSF* - SET *TMS* STATUS FOR SYSTEM.
00549  M01S00508.tfu     +++|*
00550  M01S00509.tfu     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
00551  M01S00510.tfu     +++|*

Line S00511 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`t2807`

Seq #  *Modification Id* Act 
----------------------------+
00552  M02S00511.t2807   ---|*T,ADDR   1/ TMS, 1/ NTD, 1/ STD, 57/

00553  M01S00027.t2807   +++|*T,ADDR   1/ TMS, 1/ NTD, 1/STD, 1/ NTE, 1/ STE, 55/

00554  M01S00512.tfu     +++|*

Line S00513 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00555  M02S00513.nos252  ---|*                TMS = 0 IF *TMS* TO BE DISABLED.

Line S00514 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00514.nos252  ---|*                    = 1 IF *TMS* TO BE ENABLED.
00557  M01S00012.nos252  +++|*                TMS = 1 IF *TMS* TO BE ENABLED.
00558  M01S00515.tfu     +++|*                NTD = 0 IF DEFAULT NON-SYOT TAPE OPTION TO BE *TO=F*.
00559  M01S00516.tfu     +++|*                    = 1 IF DEFAULT NON-SYOT TAPE OPTION TO BE *TO=T*.
00560  M01S00517.tfu     +++|*                STD = 0 IF DEFAULT SYOT TAPE OPTION TO BE *TO=F*.
00561  M01S00518.tfu     +++|*                    = 1 IF DEFAULT SYOT TAPE OPTION TO BE *TO=T*.
00562  M01S00028.t2807   +++|*                NTE = 0 IF DEFAULT NON-SYOT TAPE OPTION TO BE *TO=E*.
00563  M01S00029.t2807   +++|*                    = 1 IF DEFAULT NON-SYOT TAPE OPTION TO BE *TO=C*.
00564  M01S00030.t2807   +++|*                STE = 0 IF DEFAULT NON-SYOT TAPE OPTION TO BE *TO=E*.
00565  M01S00031.t2807   +++|*                    = 1 IF DEFAULT NON-SYOT TAPE OPTION TO BE *TO=C*.
00566  M01S00519.tfu     +++|*
00567  M01S00520.tfu     +++|*         EXIT   SYSTEM *TMS* STATUS RESET.
00568  M01S00521.tfu     +++|*

Line S00522 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00569  M02S00522.nos252  ---|*         USES   CM - CM+4, CN - CN+4.
00570  M01S00013.nos252  +++|*         USES   T1, CM - CM+4.
00571  M01S00523.tfu     +++|*
00572  M01S00524.tfu     +++|*         CALLS  CKA.
00573  M01S00525.tfu     +++|*

Line S00526 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00574  M02S00526.nos252  ---|*         MACROS DELAY, MONITOR, PAUSE.
00575  M01S00014.nos252  +++|*         MACROS MONITOR.
00576  M01S00527.tfu     +++|
00577  M01S00528.tfu     +++|
00578  M01S00529.tfu     +++| STS      ENTRY              ENTRY
00579  M01S00530.tfu     +++|          RJM    CKA         CHECK ADDRESS
00580  M01S00531.tfu     +++|          CRD    CM          SET REQUESTED *TMS* STATUS
00581  M01S00532.tfu     +++|          LDD    CM

Line S00533 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`t2807`

Seq #  *Modification Id* Act 
----------------------------+
00582  M02S00533.t2807   ---|          SHN    0-11
00583  M01S00032.t2807   +++|          SHN    0-7
00584  M01S00534.tfu     +++|          STM    STSA+4
00585  M01S00535.tfu     +++|          LDN    1           SET REQUEST COUNT
00586  M01S00536.tfu     +++|          STD    CM+1
00587  M01S00537.tfu     +++|          LDN    0
00588  M01S00538.tfu     +++|          STD    CM+2
00589  M01S00539.tfu     +++|          STD    CM+3

Line S00540 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00590  M02S00540.nos252  ---|          LDN    TFML        SET ADDRESS
00591  M01S00015.nos252  +++|          LDK    TFML        SET ADDRESS
00592  M01S00541.tfu     +++|          STD    CM+4
00593  M01S00542.tfu     +++|          LDD    MA          SET REQUEST IN MESSAGE BUFFER
00594  M01S00543.tfu     +++|          CWM    STSA,ON
00595  M01S00544.tfu     +++|          MONITOR  UTEM      UPDATE TABLE

Line S00545 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00596  M02S00545.nos252  ---|          LJM    TFUX        RETURN
00597  M01S00016.nos252  +++|          LDN    0           SET ADDRESS WORD COUNT
00598  M01S00017.nos252  +++|          STD    T1
00599  M01S00018.nos252  +++|          RJM    CKA         GET PARAMETER WORD
00600  M01S00019.nos252  +++|          CRD    CM
00601  M01S00020.nos252  +++|          LDD    CM
00602  M01S00021.nos252  +++|          SHN    21-13
00603  M01S00022.nos252  +++|          PJN    STS1        IF *TMS* NOT TO BE ENABLED
00604  M01S00023.nos252  +++|          LDN    ZERL        CLEAR REQUEST WORD
00605  M01S00024.nos252  +++|          CRD    CM
00606  M01S00025.nos252  +++|          LDN    1           SET REQUEST COUNT
00607  M01S00026.nos252  +++|          STD    CM+1
00608  M01S00027.nos252  +++|          LDK    SSTL        SET ADDRESS
00609  M01S00028.nos252  +++|          STD    CM+4
00610  M01S00029.nos252  +++|          LDD    MA
00611  M01S00030.nos252  +++|          CWM    STSB,ON
00612  M01S00031.nos252  +++|          MONITOR  UTEM      UPDATE TABLE
00613  M01S00032.nos252  +++| STS1     LJM    TFUX        RETURN
00614  M01S00546.tfu     +++|

Line S00547 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`t2807`

Seq #  *Modification Id* Act 
----------------------------+
00615  M02S00547.t2807   ---| STSA     VFD    1/0,5/0,6/3,6/57D,42/0  *UTEM* REQUEST BLOCK

Line S00033 Modification History
`M01` (Added by)	`t2807`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00616  M02S00033.nos252  ---| STSA     VFD    1/0,5/0,6/5,6/55D,42/0  *UTEM* REQUEST BLOCK
00617  M01S00033.nos252  +++| STSA     VFD    1/0,5/0,6/4,6/7,42/0  *UTEM* REQUEST BLOCK
00618  M01S00034.nos252  +++|
00619  M01S00035.nos252  +++| STSB     VFD    1/0,5/0,6/1,6/24D,42/0  *UTEM* REQUEST BLOCK
00620  M01S00548.tfu     +++|          TITLE  PRESET AREA.
00621  M01S00549.tfu     +++| PRS      SPACE  4,15
00622  M01S00550.tfu     +++|**        PRS - PRESET TAPE FILE UTILITY.
00623  M01S00551.tfu     +++|*
00624  M01S00552.tfu     +++|*         EXIT   (EP) = SPECIAL ENTRY POINT FLAGS.
00625  M01S00553.tfu     +++|*                (OT) = JOB ORIGIN TYPE.
00626  M01S00554.tfu     +++|*
00627  M01S00555.tfu     +++|*         ERROR  ABORT WITH * TFU - INCORRECT REQUEST* IF FUNCTION
00628  M01S00556.tfu     +++|*                NUMBER NOT RECOGNIZED OR IF THE CALLING PROGRAM DOES
00629  M01S00557.tfu     +++|*                NOT HAVE THE CORRECT PRIVILEGES.
00630  M01S00558.tfu     +++|*
00631  M01S00559.tfu     +++|*         USES   CM - CM+4, CN - CN+4.
00632  M01S00560.tfu     +++|*
00633  M01S00561.tfu     +++|*         CALLS  CRS, IFP.
00634  M01S00562.tfu     +++|*
00635  M01S00563.tfu     +++|*         MACROS ABORT, SFA.
00636  M01S00564.tfu     +++|
00637  M01S00565.tfu     +++|
00638  M01S00566.tfu     +++| PRS      SUBR               ENTRY/EXIT
00639  M01S00567.tfu     +++|          LDD    CP          READ SPECIAL ENTRY POINT WORD
00640  M01S00568.tfu     +++|          ADN    STSW        CHECK ERROR FLAG
00641  M01S00569.tfu     +++|          CRD    CM
00642  M01S00570.tfu     +++|          ADN    SEPW-STSW
00643  M01S00571.tfu     +++|          CRD    CN
00644  M01S00572.tfu     +++|          LDD    CM+1
00645  M01S00573.tfu     +++|          SBN    SPET
00646  M01S00574.tfu     +++|          MJN    PRS1        IF NOT SPECIAL ERROR FLAG
00647  M01S00575.tfu     +++|          LJM    TFUX        EXIT *TFU*
00648  M01S00576.tfu     +++|
00649  M01S00577.tfu     +++| PRS1     LDD    CN          SAVE ENTRY POINTS
00650  M01S00578.tfu     +++|          STD    EP
00651  M01S00579.tfu     +++|          RJM    CRS         CHECK RECALL STATUS
00652  M01S00580.tfu     +++|          ZJN    PRS2        IF NO AUTO RECALL
00653  M01S00581.tfu     +++|          RJM    IFP         INITIALIZE MANAGED TABLE PROCESSORS
00654  M01S00582.tfu     +++|          LDD    CP          FETCH EJT ORDINAL
00655  M01S00583.tfu     +++|          ADN    TFSW
00656  M01S00584.tfu     +++|          CRD    CM
00657  M01S00585.tfu     +++|          SFA    EJT,CM      CALCULATE EJT ENTRY ABSOLUTE ADDRESS
00658  M01S00586.tfu     +++|          ADN    SCLE        GET JOB ORIGIN TYPE
00659  M01S00587.tfu     +++|          CRD    CM
00660  M01S00588.tfu     +++|          LDD    CM
00661  M01S00589.tfu     +++|          LPN    17
00662  M01S00590.tfu     +++|          STD    OT
00663  M01S00591.tfu     +++|          LDD    IR+2        CHECK FUNCTION CODE
00664  M01S00592.tfu     +++|          SHN    1
00665  M01S00593.tfu     +++|          ADD    IR+2
00666  M01S00594.tfu     +++|          STD    T7
00667  M01S00595.tfu     +++|          ADC    -TFCNL
00668  M01S00596.tfu     +++|          MJN    PRS3        IF LEGAL CODE
00669  M01S00597.tfu     +++| PRS2     ABORT  ERIR        * TFU - INCORRECT REQUEST.*
00670  M01S00598.tfu     +++|
00671  M01S00599.tfu     +++| PRS3     LDM    TFCN+1,T7
00672  M01S00600.tfu     +++|          ZJN    PRS2        IF UNDEFINED FUNCTION CODE
00673  M01S00601.tfu     +++|          STM    TFUB        SAVE THE ADDRESS OF FUNCTION
00674  M01S00602.tfu     +++|          LDD    CP          READ JOB CONTROL INFORMATION
00675  M01S00603.tfu     +++|          ADK    JCIW
00676  M01S00604.tfu     +++|          CRD    CN
00677  M01S00605.tfu     +++|          LDM    TFCN+2,T7   CHECK ORIGIN CONTROL
00678  M01S00606.tfu     +++|          LPC    3777
00679  M01S00607.tfu     +++|          ZJN    PRS4        IF NO CONTROL BITS
00680  M01S00608.tfu     +++|          STD    T1
00681  M01S00609.tfu     +++|          LCN    0           SET BIT SHIFT
00682  M01S00610.tfu     +++|          LMD    OT
00683  M01S00611.tfu     +++|          RAM    PRSA
00684  M01S00612.tfu     +++|          LDD    T1          CHECK BITS
00685  M01S00613.tfu     +++| PRSA     SHN    21
00686  M01S00614.tfu     +++|          MJN    PRS6        IF LEGAL FUNCTION FOR JOB ORIGIN TYPE
00687  M01S00615.tfu     +++|          LDM    TFCN+2,T7   GET FUNCTION PROCESSOR ADDRESS
00688  M01S00616.tfu     +++|          SHN    21-13
00689  M01S00617.tfu     +++|          MJN    PRS5        IF *SSJ=* REQUIRED
00690  M01S00618.tfu     +++|          UJN    PRS2        ABORT
00691  M01S00619.tfu     +++|
00692  M01S00620.tfu     +++| PRS4     LDM    TFCN+2,T7   GET FUNCTION PROCESSOR ADDRESS
00693  M01S00621.tfu     +++|          SHN    21-13
00694  M01S00622.tfu     +++|          PJN    PRS6        IF SSJ= NOT REQUIRED
00695  M01S00623.tfu     +++| PRS5     LDD    EP          CHECK *SSJ=* ENTRY POINT
00696  M01S00624.tfu     +++|          SHN    21-2
00697  M01S00625.tfu     +++|          MJN    PRS6        IF *SSJ=*
00698  M01S00626.tfu     +++|          LDD    CN+2
00699  M01S00627.tfu     +++|          ADK    -LSSI
00700  M01S00628.tfu     +++|          MJP    PRS2        IF NOT SUBSYSTEM
00701  M01S00629.tfu     +++| PRS6     LDM    TFCN,T7     SET OVERLAY NAME
00702  M01S00630.tfu     +++|          STM    TFUA
00703  M01S00631.tfu     +++|          LJM    PRSX        RETURN
00704  M01S00632.tfu     +++| TFCN     SPACE  4,15
00705  M01S00633.tfu     +++|**        TFCN - TABLE OF FUNCTION CODE PROCESSORS.
00706  M01S00634.tfu     +++|*         ENTRY = 3 WORDS.
00707  M01S00635.tfu     +++|*
00708  M01S00636.tfu     +++|*T,       12/ NAME , 12/ ADDR , 12/ BITS

00709  M01S00637.tfu     +++|*
00710  M01S00638.tfu     +++|*         NAME   OVERLAY NAME
00711  M01S00639.tfu     +++|*         ADDR   ADDRESS OF FUNCTION PROCESSOR
00712  M01S00640.tfu     +++|*         BITS   BITS FOR JOB ORIGIN CONTROL
00713  M01S00641.tfu     +++|*                BIT         MEANING
00714  M01S00642.tfu     +++|*                11          SET IF SSJ= ENTRY POINT REQUIRED.
00715  M01S00643.tfu     +++|*                10 - 0      SET IF CORRESPONDING ORIGIN TYPE REQUIRED.
00716  M01S00644.tfu     +++|
00717  M01S00645.tfu     +++|
00718  M01S00646.tfu     +++| TFCN     BSS    0           TABLE OF FUNCTION CODE PROCESSORS
00719  M01S00647.tfu     +++| AEJF     FCN    AEJ,,SSJ    ASSIGN *EST* ORDINAL TO JOB
00720  M01S00648.tfu     +++| IXMF     FCN    IXM,,SSJ    ISSUE EXTERNAL *MAGNET* REQUEST

Line S00649 Modification History
`M01` (Added by)	`tfu`
`M02` (Updated by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00721  M02S00649.nos252  ---| RTSF     FCN    RTS         RETURN *TMS* STATUS
00722  M01S00036.nos252  +++|          FCN    PRS2        RESERVED
00723  M01S00650.tfu     +++| STOF     FCN    STO         SET DEFAULT *TO* FOR USER
00724  M01S00651.tfu     +++| STSF     FCN    STS,,SSJ    SET *TMS* STATUS FOR SYSTEM
00725  M01S00652.tfu     +++|          LOC    *O
00726  M01S00653.tfu     +++| TFCNL    EQU    *-TFCN
00727  M01S00654.tfu     +++|          SPACE  4
00728  M01S00655.tfu     +++| IFP      HERE               GLOBAL FNT PROCESSORS INITIALIZATION CODE
00729  M01S00656.tfu     +++|          SPACE  4,10
00730  M01S00657.tfu     +++|**        COMMON DECKS.
00731  M01S00658.tfu     +++|
00732  M01S00659.tfu     +++|
00733  M01S00660.tfu     +++|*CALL     COMPCRS
00734  M01S00661.tfu     +++|          SPACE  4,10
00735  M01S00662.tfu     +++|          OVERFLOW
00736  M01S00663.tfu     +++|          OVERLAY  (ERROR PROCESSOR.)
00737  M01S00664.tfu     +++| ERR      SPACE  4,10
00738  M01S00665.tfu     +++|**        ERR - PROCESS ERROR.
00739  M01S00666.tfu     +++|*
00740  M01S00667.tfu     +++|*         ENTRY  (CN) = ERROR MESSAGE ADDRESS.
00741  M01S00668.tfu     +++|*
00742  M01S00669.tfu     +++|*         EXIT   ERROR MESSAGE ISSUED TO SYSTEM AND USER DAYFILES.
00743  M01S00670.tfu     +++|*                PP ABORTED.
00744  M01S00671.tfu     +++|*
00745  M01S00672.tfu     +++|*         CALLS  DFM.
00746  M01S00673.tfu     +++|*
00747  M01S00674.tfu     +++|*         MACROS MONITOR.
00748  M01S00675.tfu     +++|
00749  M01S00676.tfu     +++|
00750  M01S00677.tfu     +++| ERR      BSS    0           ENTRY
00751  M01S00678.tfu     +++|          LDD    CN          GET DAYFILE MESSAGE ADDRESS
00752  M01S00679.tfu     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
00753  M01S00680.tfu     +++|          MONITOR  ABTM
00754  M01S00681.tfu     +++|          LJM    PPR         EXIT
00755  M01S00682.tfu     +++| ERRMSG   SPACE  4,10
00756  M01S00683.tfu     +++|*         ERROR MESSAGES.
00757  M01S00684.tfu     +++|
00758  M01S00685.tfu     +++|
00759  M01S00686.tfu     +++|          QUAL
00760  M01S00687.tfu     +++| ERAE     DATA   C* TFU - ARGUMENT ERROR.*
00761  M01S00688.tfu     +++| ERIR     DATA   C* TFU - INCORRECT REQUEST.*
00762  M01S00689.tfu     +++| ERIU     DATA   C* TFU - USER ACCESS NOT VALID.*
00763  M01S00690.tfu     +++|          QUAL   *
00764  M01S00691.tfu     +++|          SPACE  4,10
00765  M01S00692.tfu     +++|          OVERFLOW OVL
00766  M01S00693.tfu     +++|          TTL    TFU - TAPE FILE UTILITY.
00767  M01S00694.tfu     +++|          SPACE  4,10
00768  M01S00695.tfu     +++|          END