Deck TFU

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.tfu     +++|          IDENT  TFU,TFU
00002  M00S00002.tfu     +++|          PERIPH
00003  M00S00003.tfu     +++|          BASE   MIXED
00004  M00S00004.tfu     +++|          SST
00005  M00S00005.tfu     +++|*COMMENT  TFU - TAPE FILE UTILITY.

Line S00006 Modification History
`M01` (Removed by)	`281l803`

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

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.tfu     +++|          TITLE  TFU - TAPE FILE UTILITY.
00009  M00S00008.tfu     +++| TFU      SPACE  4,10
00010  M00S00009.tfu     +++|***       TFU - TAPE FILE UTILITY.
00011  M00S00010.tfu     +++|*
00012  M00S00011.tfu     +++|*         J. D. HOLMBECK     85/02/15.
00013  M00S00012.tfu     +++| TFU      SPACE  4,10
00014  M00S00013.tfu     +++|***       *TFU* CONTAINS FUNCTIONS FOR THE *TAPE MANAGEMENT SYSTEM*
00015  M00S00014.tfu     +++|*         (*TMS*) THAT DO NOT REQUIRE ACCESS TO THE TAPE CATALOG FILES.
00016  M00S00015.tfu     +++|*         THE PROGRAM *TFM* IS USED TO ACCESS THE TAPE CATALOG FILES.
00017  M00S00016.tfu     +++| TFU      SPACE  4,10
00018  M00S00017.tfu     +++|***       *TFU* CALL FORMAT.
00019  M00S00018.tfu     +++|*
00020  M00S00019.tfu     +++|*T        18/*TFU* ,6/AR, 12/CODE, 24/PARAM

00021  M00S00020.tfu     +++|*
00022  M00S00021.tfu     +++|*                AR          AUTO RECALL.
00023  M00S00022.tfu     +++|*                CODE        FUNCTION CODE.
00024  M00S00023.tfu     +++|*                PARAM       PARAMETER FOR FUNCTION.
00025  M00S00024.tfu     +++| DAYFILE  SPACE  4,10
00026  M00S00025.tfu     +++|***       DAYFILE MESSAGES.
00027  M00S00026.tfu     +++|*
00028  M00S00027.tfu     +++|*         * TFU - ARGUMENT ERROR.*
00029  M00S00028.tfu     +++|*                THE PARAMETER SPECIFIED IN THE LOWER 24 BITS OF THE
00030  M00S00029.tfu     +++|*                REQUEST IS NOT IN THE CORRECT FORMAT FOR THE FUNCTION.
00031  M00S00030.tfu     +++|*                FOR EXAMPLE, A PARAMETER BLOCK ADDRESS MAY BE OUTSIDE
00032  M00S00031.tfu     +++|*                THE FIELD LENGTH OF THE CALLING PROGRAM.
00033  M00S00032.tfu     +++|*
00034  M00S00033.tfu     +++|*         * TFU - INCORRECT REQUEST.*
00035  M00S00034.tfu     +++|*                THE FUNCTION NUMBER SPECIFIED IS NOT RECOGNIZED BY
00036  M00S00035.tfu     +++|*                *TFU*.
00037  M00S00036.tfu     +++|*
00038  M00S00037.tfu     +++|*         * TFU - USER ACCESS NOT VALID.*
00039  M00S00038.tfu     +++|*                THE FUNCTION REQUESTED REQUIRES SPECIAL PRIVILEGES
00040  M00S00039.tfu     +++|*                THAT THE CALLING PROGRAM DOES NOT HAVE.  FOR EXAMPLE,
00041  M00S00040.tfu     +++|*                THE FUNCTION MAY REQUIRE AN *SSJ=* ENTRY POINT.
00042  M00S00041.tfu     +++|          TITLE  COMMON DECKS.
00043  M00S00042.tfu     +++| COMMON   SPACE  4,10
00044  M00S00043.tfu     +++|**        COMMON DECKS.
00045  M00S00044.tfu     +++|
00046  M00S00045.tfu     +++|
00047  M00S00046.tfu     +++|*CALL     COMPMAC

Line S00047 Modification History
`M01` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00048  M01S00047.282l826 ---|          QUAL   EVT
00049  M01S00048.282l826 ---|*CALL     COMSEVT
00050  M01S00049.282l826 ---|          QUAL   *
00051  M00S00050.tfu     +++|*CALL     COMSEJT
00052  M00S00051.tfu     +++|          QUAL   MTX
00053  M00S00052.tfu     +++|*CALL     COMSMTX
00054  M00S00053.tfu     +++|          QUAL   *
00055  M00S00054.tfu     +++|*CALL     COMSPIM
00056  M00S00055.tfu     +++|*CALL     COMSPRD
00057  M00S00056.tfu     +++|*CALL     COMSSSD
00058  M00S00057.tfu     +++|          QUAL   TFM
00059  M00S00058.tfu     +++|*CALL     COMSTFM
00060  M00S00059.tfu     +++|          QUAL   *
00061  M00S00060.tfu     +++|          LIST   X
00062  M00S00061.tfu     +++|*CALL     COMSTFU
00063  M00S00062.tfu     +++|          LIST   *
00064  M00S00063.tfu     +++|          TITLE  PROGRAM MACROS AND EQUIVALENCES.
00065  M00S00064.tfu     +++| ABORT    SPACE  4,10
00066  M00S00065.tfu     +++|**        ABORT - ERROR PROCESSING MACRO.
00067  M00S00066.tfu     +++|*
00068  M00S00067.tfu     +++|*         ABORT  PARAM
00069  M00S00068.tfu     +++|*
00070  M00S00069.tfu     +++|*         ENTRY  PARAM = DAYFILE MESSAGE ADDRESS.
00071  M00S00070.tfu     +++|*
00072  M00S00071.tfu     +++|*         EXIT   DAYFILE MESSAGE ISSUED TO SYSTEM AND USER DAYFILES.
00073  M00S00072.tfu     +++|*                PP ABORTED.
00074  M00S00073.tfu     +++|*
00075  M00S00074.tfu     +++|*         CALLS  ERR.
00076  M00S00075.tfu     +++|
00077  M00S00076.tfu     +++|
00078  M00S00077.tfu     +++|          PURGMAC  ABORT
00079  M00S00078.tfu     +++|
00080  M00S00079.tfu     +++| ABORT    MACRO  A
00081  M00S00080.tfu     +++|          MACREF ABORT
00082  M00S00081.tfu     +++|          LDC    A
00083  M00S00082.tfu     +++|          LJM    //ERR
00084  M00S00083.tfu     +++| ABORT    ENDM
00085  M00S00084.tfu     +++| ENTRY    SPACE  4,10
00086  M00S00085.tfu     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00087  M00S00086.tfu     +++|*
00088  M00S00087.tfu     +++|*         ENTRY  NAME
00089  M00S00088.tfu     +++|*
00090  M00S00089.tfu     +++|*         ENTRY  NAME = ENTRY ADDRESS.
00091  M00S00090.tfu     +++|
00092  M00S00091.tfu     +++|
00093  M00S00092.tfu     +++|          PURGMAC ENTRY
00094  M00S00093.tfu     +++|
00095  M00S00094.tfu     +++|          MACRO  ENTRY,NAME
00096  M00S00095.tfu     +++|          MACREF ENTRY
00097  M00S00096.tfu     +++|          IF     -MIC,.M
00098  M00S00097.tfu     +++| NAME     EQU    *
00099  M00S00098.tfu     +++|          ELSE
00100  M00S00099.tfu     +++|          QUAL
00101  M00S00100.tfu     +++| NAME     EQU    *+1R".M"*10000
00102  M00S00101.tfu     +++|          QUAL   ".O"
00103  M00S00102.tfu     +++|          ENDIF
00104  M00S00103.tfu     +++| ENTRY    ENDM
00105  M00S00104.tfu     +++| FCN      SPACE  4,15
00106  M00S00105.tfu     +++|**        FCN - DEFINE FUNCTION PROCESSOR.
00107  M00S00106.tfu     +++|*
00108  M00S00107.tfu     +++|* FUNC    FCN    NAME,(JOB CODES),SSJ
00109  M00S00108.tfu     +++|*
00110  M00S00109.tfu     +++|*         ENTRY  FUNC = FUNCTION CODE FROM *COMSTFU*.
00111  M00S00110.tfu     +++|*                NAME = NAME OF FUNCTION PROCESSOR.
00112  M00S00111.tfu     +++|*                JOB CODES = IF USED, FUNCTION IS ALLOWED BY ONLY
00113  M00S00112.tfu     +++|*                            THOSE JOB TYPES.
00114  M00S00113.tfu     +++|*                SSJ = IF USED, FUNCTION IS ALLOWED BY ONLY THOSE
00115  M00S00114.tfu     +++|*                            JOBS WITH *SSJ=* ENTRY POINTS OR
00116  M00S00115.tfu     +++|*                            SUBSYSTEM ID-S.
00117  M00S00116.tfu     +++|
00118  M00S00117.tfu     +++|
00119  M00S00118.tfu     +++| .3       SET    0
00120  M00S00119.tfu     +++|
00121  M00S00120.tfu     +++|          PURGMAC  FCN
00122  M00S00121.tfu     +++|
00123  M00S00122.tfu     +++|          MACRO  FCN,FN,A,B,C
00124  M00S00123.tfu     +++|          LOC    .3/3
00125  M00S00124.tfu     +++| FN       CON    A/10000B,A-A/10000B*10000B
00126  M00S00125.tfu     +++| .1       SET    0
00127  M00S00126.tfu     +++|          IFC    NE,$B$$,1
00128  M00S00127.tfu     +++| .1       BITSET (B)
00129  M00S00128.tfu     +++|          IFC    NE,$C$$,1
00130  M00S00129.tfu     +++| .1       SET    .1+4000
00131  M00S00130.tfu     +++|          CON    .1
00132  M00S00131.tfu     +++| .3       SET    .3+3
00133  M00S00132.tfu     +++| FCN      ENDM
00134  M00S00133.tfu     +++| OVERLAY  SPACE  4,10
00135  M00S00134.tfu     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00136  M00S00135.tfu     +++|*
00137  M00S00136.tfu     +++|*         OVERLAY (TEXT)
00138  M00S00137.tfu     +++|*
00139  M00S00138.tfu     +++|*         ENTRY  TEXT = TEXT OF SUBTITLE.
00140  M00S00139.tfu     +++|
00141  M00S00140.tfu     +++|
00142  M00S00141.tfu     +++| .N       SET    0
00143  M00S00142.tfu     +++| OVLB     MICRO  1,, 4T      BASE OVERLAY NAME
00144  M00S00143.tfu     +++|
00145  M00S00144.tfu     +++|          PURGMAC OVERLAY
00146  M00S00145.tfu     +++|
00147  M00S00146.tfu     +++| OVERLAY  MACRO  TEXT
00148  M00S00147.tfu     +++|          QUAL
00149  M00S00148.tfu     +++| .N       SET    .N+1
00150  M00S00149.tfu     +++| .M       MICRO  .N,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
00151  M00S00150.tfu     +++| .O       MICRO  1,3, "OVLB"".M"
00152  M00S00151.tfu     +++|          QUAL   ".O"
00153  M00S00152.tfu     +++|          TTL    TFU/".O" - TEXT
00154  M00S00153.tfu     +++|          TITLE
00155  M00S00154.tfu     +++|          IDENT  ".O",OVL    TEXT
00156  M00S00155.tfu     +++|*COMMENT  TFU - TEXT

Line S00156 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00157  M01S00156.281l803 ---|          COMMENT COPYRIGHT   CONTROL DATA CORP. 1985.

Line S00002 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00158  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00159  M00S00157.tfu     +++|          ORG    OVL
00160  M00S00158.tfu     +++|          LJM    *
00161  M00S00159.tfu     +++|          UJN    *-2
00162  M00S00160.tfu     +++| OVERLAY  ENDM
00163  M00S00161.tfu     +++| DIRECT   SPACE  4,10
00164  M00S00162.tfu     +++|****      DIRECT LOCATION ASSIGNMENTS.
00165  M00S00163.tfu     +++|
00166  M00S00164.tfu     +++|
00167  M00S00165.tfu     +++| CN       EQU    20 - 24     CM WORD BUFFER (5 LOCATIONS)
00168  M00S00166.tfu     +++| OT       EQU    25          JOB ORIGIN TYPE
00169  M00S00167.tfu     +++| FN       EQU    30 - 34     FAMILY NAME (5 LOCATIONS)
00170  M00S00168.tfu     +++| UN       EQU    40 - 44     USER NAME (5 LOCATIONS)
00171  M00S00169.tfu     +++| EP       EQU    57          ENTRY POINTS
00172  M00S00170.tfu     +++| SC       EQU    60 - 64     SCRATCH
00173  M00S00171.tfu     +++|****
00174  M00S00172.tfu     +++|          TITLE  MAIN PROGRAM.
00175  M00S00173.tfu     +++|          SPACE  4
00176  M00S00174.tfu     +++|          ORG    PPFW
00177  M00S00175.tfu     +++| TFU      SPACE  4,10
00178  M00S00176.tfu     +++|**        TFU - MAIN PROGRAM.
00179  M00S00177.tfu     +++|
00180  M00S00178.tfu     +++|
00181  M00S00179.tfu     +++| TFU      RJM    PRS         PRESET TAPE FILE UTILITY
00182  M00S00180.tfu     +++|          LDC    0
00183  M00S00181.tfu     +++| TFUA     EQU    *-1         (OVERLAY NAME)
00184  M00S00182.tfu     +++|          ZJN    TFU1        IF NO OVERLAY NAME
00185  M00S00183.tfu     +++|          LMC    2L"OVLB"    LOAD OVERLAY
00186  M00S00184.tfu     +++|          RJM    EXR         EXECUTE ROUTINE
00187  M00S00185.tfu     +++| TFU1     LDN    0           CLEAR ADDRESS WORD COUNT
00188  M00S00186.tfu     +++|          STD    T1
00189  M00S00187.tfu     +++|          LJM    *           ENTER PROCESSOR
00190  M00S00188.tfu     +++| TFUB     EQU    *-1         (ENTRY ADDRESS FOR FUNCTION)
00191  M00S00189.tfu     +++|
00192  M00S00190.tfu     +++| TFUX     MONITOR DPPM       DROP PP
00193  M00S00191.tfu     +++|          LJM    PPR         EXIT TO PP RESIDENT
00194  M00S00192.tfu     +++|          SPACE  4,10
00195  M00S00193.tfu     +++|**        PROGRAMMING NOTE.
00196  M00S00194.tfu     +++|*
00197  M00S00195.tfu     +++|*         (T1) = 0, ON ENTRY TO ALL FUNCTION PROCESSORS TO ASSURE
00198  M00S00196.tfu     +++|*         THE ROUTINE *CKA* WILL CHECK THE PROPER CM ADDRESSES.
00199  M00S00197.tfu     +++|          TITLE  ERROR PROCESSOR.
00200  M00S00198.tfu     +++| ERR      SPACE  4,10
00201  M00S00199.tfu     +++|**        ERR - ERROR PROCESSOR.
00202  M00S00200.tfu     +++|*
00203  M00S00201.tfu     +++|*         ENTRY  (A) = ADDRESS OF DAYFILE MESSAGE.
00204  M00S00202.tfu     +++|*
00205  M00S00203.tfu     +++|*         EXIT   DAYFILE MESSAGE ISSUED TO SYSTEM AND USER DAYFILES.
00206  M00S00204.tfu     +++|*                PP ABORTED.
00207  M00S00205.tfu     +++|*
00208  M00S00206.tfu     +++|*         USES   CN.
00209  M00S00207.tfu     +++|*
00210  M00S00208.tfu     +++|*         CALLS  /4TA/ERR.
00211  M00S00209.tfu     +++|
00212  M00S00210.tfu     +++|
00213  M00S00211.tfu     +++| ERR      BSS    0           ENTRY
00214  M00S00212.tfu     +++|          STD    CN          SET ERROR MESSAGE ADDRESS
00215  M00S00213.tfu     +++|          EXECUTE  4TA
00216  M00S00214.tfu     +++|          LJM    /4TA/ERR    PROCESS ERROR
00217  M00S00215.tfu     +++|          TITLE  RESIDENT ROUTINES.
00218  M00S00216.tfu     +++| CKA      SPACE  4,15
00219  M00S00217.tfu     +++|**        CKA - CHECK ADDRESS.
00220  M00S00218.tfu     +++|*
00221  M00S00219.tfu     +++|*         ENTRY  (IR+3 - IR+4) = ADDRESS.
00222  M00S00220.tfu     +++|*                (T1) = WORD COUNT MINUS ONE.
00223  M00S00221.tfu     +++|*
00224  M00S00222.tfu     +++|*         EXIT   (A) = ABSOLUTE ADDRESS.
00225  M00S00223.tfu     +++|*
00226  M00S00224.tfu     +++|*         ERROR  ABORT WITH * TFU - ARGUMENT ERROR* IF ADDRESS IS NOT
00227  M00S00225.tfu     +++|*                WITHIN FIELD LENGTH OF CALLING PROGRAM.
00228  M00S00226.tfu     +++|*
00229  M00S00227.tfu     +++|*         MACROS ABORT.
00230  M00S00228.tfu     +++|
00231  M00S00229.tfu     +++|
00232  M00S00230.tfu     +++| CKA2     LDD    IR+3        LOAD ABSOLUTE ADDRESS
00233  M00S00231.tfu     +++|          SHN    6
00234  M00S00232.tfu     +++|          ADD    RA
00235  M00S00233.tfu     +++|          SHN    6
00236  M00S00234.tfu     +++|          ADD    IR+4
00237  M00S00235.tfu     +++|
00238  M00S00236.tfu     +++| CKA      SUBR               ENTRY/EXIT
00239  M00S00237.tfu     +++|          LDD    IR+3
00240  M00S00238.tfu     +++|          SCN    37
00241  M00S00239.tfu     +++|          NJN    CKA1        IF OUT OF RANGE
00242  M00S00240.tfu     +++|          LDD    IR+3
00243  M00S00241.tfu     +++|          SHN    14
00244  M00S00242.tfu     +++|          LMD    IR+4
00245  M00S00243.tfu     +++|          ADD    T1
00246  M00S00244.tfu     +++|          SHN    -6
00247  M00S00245.tfu     +++|          SBD    FL
00248  M00S00246.tfu     +++|          MJN    CKA2        IF WITHIN FIELD LENGTH
00249  M00S00247.tfu     +++| CKA1     ABORT  ERAE        * TFU - ARGUMENT ERROR.*
00250  M00S00248.tfu     +++| COMMON   SPACE  4,10
00251  M00S00249.tfu     +++|**        COMMON DECKS NOT TO BE OVERLAYED.
00252  M00S00250.tfu     +++|
00253  M00S00251.tfu     +++|
00254  M00S00252.tfu     +++| EJT$     EQU    1           DEFINE EJT PROCESSOR
00255  M00S00253.tfu     +++| IFP$     EQU    1           DEFINE INITIALIZATION PROCESSOR
00256  M00S00254.tfu     +++|*CALL     COMPGFP
00257  M00S00255.tfu     +++| OVERLAY  SPACE  4,10
00258  M00S00256.tfu     +++|**        OVERLAY DEFINITIONS.
00259  M00S00257.tfu     +++|
00260  M00S00258.tfu     +++|
00261  M00S00259.tfu     +++|          USE    OVERLAY
00262  M00S00260.tfu     +++| OVL      EQU    *+5         OVERLAY  LOAD ADDRESS
00263  M00S00261.tfu     +++|          TITLE  FUNCTION PROCESSORS.
00264  M00S00262.tfu     +++| AEJ      SPACE  4,25
00265  M00S00263.tfu     +++|***       FUNCTION *AEJF* - ASSIGN EST ORDINAL TO JOB.
00266  M00S00264.tfu     +++|*
00267  M00S00265.tfu     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
00268  M00S00266.tfu     +++|*
00269  M00S00267.tfu     +++|*T,ADDR   36/ , 12/ EJT, 12/ EST

00270  M00S00268.tfu     +++|*
00271  M00S00269.tfu     +++|*                EJT = EJT ORDINAL OF JOB.
00272  M00S00270.tfu     +++|*                EST = EST ORDINAL TO ASSIGN TO JOB.
00273  M00S00271.tfu     +++|*
00274  M00S00272.tfu     +++|*         EXIT   PARAMETER BLOCK RESET.
00275  M00S00273.tfu     +++|*
00276  M00S00274.tfu     +++|*T,ADDR   12/ RET, 24/ , 12/ EJT, 12/ EST

00277  M00S00275.tfu     +++|*
00278  M00S00276.tfu     +++|*                RET = 0 IF EST ASSIGNED.
00279  M00S00277.tfu     +++|*                    = 1 IF JOB NOT AT A CONTROL POINT.
00280  M00S00278.tfu     +++|*                    = 2 IF JOB NOT REQUESTING A RESOURCE.
00281  M00S00279.tfu     +++|*
00282  M00S00280.tfu     +++|*         USES   CM - CM+4, CN - CN+4, FN - FN+4.
00283  M00S00281.tfu     +++|*
00284  M00S00282.tfu     +++|*         CALLS  CKA.
00285  M00S00283.tfu     +++|*
00286  M00S00284.tfu     +++|*         MACROS MONITOR, SFA.
00287  M00S00285.tfu     +++|
00288  M00S00286.tfu     +++|
00289  M00S00287.tfu     +++| AEJ      ENTRY              ENTRY
00290  M00S00288.tfu     +++|          RJM    CKA         CHECK ADDRESS
00291  M00S00289.tfu     +++|          CRD    FN          GET PARAMETER BLOCK
00292  M00S00290.tfu     +++|          LDD    FN+4        SET EST
00293  M00S00291.tfu     +++|          STM    AEJC
00294  M00S00292.tfu     +++|          SFA    EJT,FN+3    GET EJT ADDRESS
00295  M00S00293.tfu     +++|          ERRNZ  JSNE
00296  M00S00294.tfu     +++|          CRD    CM          GET JOB STATUS
00297  M00S00295.tfu     +++|          ADN    SCHE-JSNE   GET CONTROL POINT NUMBER
00298  M00S00296.tfu     +++|          CRD    CN
00299  M00S00297.tfu     +++|          LDD    CM+4
00300  M00S00298.tfu     +++|          LPN    76
00301  M00S00299.tfu     +++|          SBN    EXJS*2
00302  M00S00300.tfu     +++|          NJN    AEJ1        IF JOB NOT AT CONTROL POINT
00303  M00S00301.tfu     +++|          LDN    ZERL        SET MONITOR CALL
00304  M00S00302.tfu     +++|          CRD    CM
00305  M00S00303.tfu     +++|          LDN    4           SET REQUEST COUNT
00306  M00S00304.tfu     +++|          STD    CM+1
00307  M00S00305.tfu     +++|          LDD    CN+3        SET CPA ADDRESS
00308  M00S00306.tfu     +++|          LPN    77
00309  M00S00307.tfu     +++|          SHN    7
00310  M00S00308.tfu     +++|          ADN    JCIW
00311  M00S00309.tfu     +++|          STD    CM+4
00312  M00S00310.tfu     +++|          LDD    MA          SET VERIFY/UPDATE BLOCK
00313  M00S00311.tfu     +++|          CWM    AEJB,CM+1
00314  M00S00312.tfu     +++|          MONITOR  UTEM      UPDATE TABLE ENTRY
00315  M00S00313.tfu     +++|          LDD    CM+1
00316  M00S00314.tfu     +++|          ZJN    AEJ2        IF OPERATION COMPLETE
00317  M00S00315.tfu     +++| AEJ1     BSS    0
00318  M00S00316.tfu     +++| AEJA     LDN    1           FLAG USER NOT AT CONTROL POINT
00319  M00S00317.tfu     +++|*         LDN    2           (FLAG USER NOT REQUESTING RESOURCE)
00320  M00S00318.tfu     +++| AEJ2     STD    FN+0
00321  M00S00319.tfu     +++|          RJM    CKA         CHECK ADDRESS
00322  M00S00320.tfu     +++|          CWD    FN          RETURN STATUS TO USER
00323  M00S00321.tfu     +++|          LJM    TFUX        RETURN
00324  M00S00322.tfu     +++|
00325  M00S00323.tfu     +++| AEJB     BSS    0           VERIFY/UPDATE BLOCK FOR *UTEM*
00326  M00S00324.tfu     +++|          VFD    1/1,5/JCIW-JCIW,6/11D,6/49D
00327  M00S00325.tfu     +++|          VFD    42/RXCS     VERIFY *RESEX* CPU PRIORITY
00328  M00S00326.tfu     +++|          VFD    1/1,5/JCIW-JCIW,6/12D,6/24D
00329  M00S00327.tfu     +++|          VFD    42/ORSI     VERIFY ALLOW OPERATOR ROLLOUT SUBSYSTEM ID
00330  M00S00328.tfu     +++|          VFD    1/1,5/SNSW-JCIW,6/01D,6/12D
00331  M00S00329.tfu     +++|          VFD    42/1        VERIFY PP PAUSE FLAG SET
00332  M00S00330.tfu     +++|          VFD    1/0,5/OAEW-JCIW,6/12D,6/00D,30/0
00333  M00S00331.tfu     +++| AEJC     VFD    12/         UPDATE ASSIGNED EST ORDINAL
00334  M00S00332.tfu     +++| IXM      SPACE  4,25
00335  M00S00333.tfu     +++|***       FUNCTION *IXMF* - ISSUE EXTERNAL *MAGNET* REQUEST.
00336  M00S00334.tfu     +++|*
00337  M00S00335.tfu     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
00338  M00S00336.tfu     +++|*
00339  M00S00337.tfu     +++|*T,ADDR   6/ 0, 6/ FNC, 12/ UDT, 36/ PAR

00340  M00S00338.tfu     +++|*
00341  M00S00339.tfu     +++|*                FNC = FUNCTION CODE.

Line S00340 Modification History
`M01` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00342  M01S00340.282l826 ---|*                UDT = *UDT* ADDRESS.

Line S00001 Modification History
`M01` (Added by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00343  M01S00001.282l826 +++|*                UDT = *UDT* ORDINAL.
00344  M00S00341.tfu     +++|*                PAR = PARAMETER FOR FUNCTION.
00345  M00S00342.tfu     +++|*
00346  M00S00343.tfu     +++|*         EXIT   PARAMETER BLOCK RESET.
00347  M00S00344.tfu     +++|*
00348  M00S00345.tfu     +++|*T,ADDR   12/ RET, 12/ UDT, 36/ PAR

00349  M00S00346.tfu     +++|*
00350  M00S00347.tfu     +++|*                RET = 0 IF REQUEST ACCEPTED.
00351  M00S00348.tfu     +++|*                    = 1 IF MAGNET NOT ACTIVE.
00352  M00S00349.tfu     +++|*                    = 2 IF REQUEST NOT ACCEPTED.
00353  M00S00350.tfu     +++|*
00354  M00S00351.tfu     +++|*         USES   CM - CM+4, CN - CN+4.
00355  M00S00352.tfu     +++|*
00356  M00S00353.tfu     +++|*         CALLS  CKA.
00357  M00S00354.tfu     +++|*
00358  M00S00355.tfu     +++|*         MACROS DELAY, MONITOR, PAUSE.
00359  M00S00356.tfu     +++|
00360  M00S00357.tfu     +++|
00361  M00S00358.tfu     +++| IXM      ENTRY              ENTRY
00362  M00S00359.tfu     +++|          RJM    CKA         CHECK ADDRESS
00363  M00S00360.tfu     +++|          CRD    CN
00364  M00S00361.tfu     +++|          LDD    MA          WRITE VSN ASSIGNMENT DATA
00365  M00S00362.tfu     +++|          CWD    CN
00366  M00S00363.tfu     +++| IXM1     LDN    1           SET WRITE
00367  M00S00364.tfu     +++|          STD    CM+1
00368  M00S00365.tfu     +++|          LDC    MTSI        *MAGNET* SUBSYSTEM ID
00369  M00S00366.tfu     +++|          STD    CM+2
00370  M00S00367.tfu     +++|          LDD    HN          SET WORD COUNT
00371  M00S00368.tfu     +++|          STD    CM+3
00372  M00S00369.tfu     +++|          LDN    /MTX/XREQ
00373  M00S00370.tfu     +++|          STD    CM+4
00374  M00S00371.tfu     +++|          MONITOR  TDAM
00375  M00S00372.tfu     +++|          LDD    CM+1

Line S00373 Modification History
`M01` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00376  M01S00373.282l826 ---|          ZJP    IXM5        IF CALL COMPLETED

Line S00002 Modification History
`M01` (Added by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00377  M01S00002.282l826 +++|          ZJN    IXM4        IF CALL COMPLETED
00378  M00S00374.tfu     +++|          SBN    4
00379  M00S00375.tfu     +++|          ZJN    IXM3        IF MAGNET NOT ACTIVE
00380  M00S00376.tfu     +++|          PAUSE
00381  M00S00377.tfu     +++|          DELAY
00382  M00S00378.tfu     +++|          LDD    CM+1
00383  M00S00379.tfu     +++|          NJN    IXM2        IF ERROR
00384  M00S00380.tfu     +++|          SOM    IXMB
00385  M00S00381.tfu     +++|          PJP    IXM1        IF RETRY COUNT NOT EXHAUSTED
00386  M00S00382.tfu     +++| IXM2     AOM    IXMA
00387  M00S00383.tfu     +++| IXM3     AOM    IXMA
00388  M00S00384.tfu     +++| IXM4     BSS    0
00389  M00S00385.tfu     +++| IXMA     LDN    0           FLAG REQUEST ACCEPTED
00390  M00S00386.tfu     +++|*         LDN    1           (FLAG *MAGNET* NOT ACTIVE)
00391  M00S00387.tfu     +++|*         LDN    2           (FLAG REQUEST NOT ACCEPTED)
00392  M00S00388.tfu     +++|          STD    CN
00393  M00S00389.tfu     +++|          RJM    CKA         CHECK ADDRESS
00394  M00S00390.tfu     +++|          CWD    CN
00395  M00S00391.tfu     +++|          LJM    TFUX        RETURN
00396  M00S00392.tfu     +++|

Line S00393 Modification History
`M01` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
00397  M01S00393.282l826 ---| IXM5     LDD    CN          CHECK FOR ENTERING VSNS
00398  M01S00394.282l826 ---|          LMN    /MTX/XEV
00399  M01S00395.282l826 ---|          ZJN    IXM6        IF ENTERING VSN
00400  M01S00396.282l826 ---|          LMN    /MTX/XSV&/MTX/XEV
00401  M01S00397.282l826 ---|          NJN    IXM4        IF NOT ENTERING SCRATCH VSN
00402  M01S00398.282l826 ---|          LDC    2R  +2R  +2R    EVENT FOR SCRATCH VSN
00403  M01S00399.282l826 ---|          UJN    IXM7        ENTER SCRATCH VSN EVENT
00404  M01S00400.282l826 ---|
00405  M01S00401.282l826 ---| IXM6     LDD    CN+2
00406  M01S00402.282l826 ---|          ZJN    IXM4        IF CLEARING VSN
00407  M01S00403.282l826 ---|          ADD    CN+3        GENERATE EVENT FROM VSN
00408  M01S00404.282l826 ---|          ADD    CN+4
00409  M01S00405.282l826 ---| IXM7     STD    CM+4
00410  M01S00406.282l826 ---|          LDN    0           ENTER EVENT INTO EVENT TABLE
00411  M01S00407.282l826 ---|          STD    CM+1
00412  M01S00408.282l826 ---|          LDN    /EVT/VSNE/10000
00413  M01S00409.282l826 ---|          STD    CM+3
00414  M01S00410.282l826 ---|          MONITOR  EATM
00415  M01S00411.282l826 ---|          UJN    IXM4        RETURN
00416  M00S00412.tfu     +++|
00417  M00S00413.tfu     +++| IXMB     CON    10D         RETRY COUNT

Line S00414 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00418  M01S00414.nos252  ---| RTS      SPACE  4,20
00419  M01S00415.nos252  ---|***       FUNCTION *RTSF* - RETURN *TMS* STATUS.
00420  M01S00416.nos252  ---|*
00421  M01S00417.nos252  ---|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
00422  M01S00418.nos252  ---|*
00423  M01S00419.nos252  ---|*         EXIT   PARAMETER BLOCK RESET.
00424  M01S00420.nos252  ---|*

Line S00421 Modification History
`M01` (Removed by)	`t2807`
`M02` (Removed by)	`nos252`

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

Line S00001 Modification History
`M01` (Added by)	`t2807`
`M02` (Removed 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` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00427  M01S00422.nos252  ---|*
00428  M01S00423.nos252  ---|*                TMS = 0 IF *TMS* IS DISABLED.
00429  M01S00424.nos252  ---|*                    = 1 IF *TMS* IS ENABLED.
00430  M01S00425.nos252  ---|*                NTD = 0 IF DEFAULT NON-SYOT TAPE OPTION IS *TO=F*.
00431  M01S00426.nos252  ---|*                    = 1 IF DEFAULT NON-SYOT TAPE OPTION IS *TO=T*.
00432  M01S00427.nos252  ---|*                STD = 0 IF DEFAULT SYOT TAPE OPTION IS *TO=F*.
00433  M01S00428.nos252  ---|*                    = 1 IF DEFAULT SYOT TAPE OPTION IS *TO=T*.

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

Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00002.nos252  ---|*                NTE = 0 IF DEFAULT NON-SYOT TAPE OPTION IS *TO=E*.
00435  M02S00003.nos252  ---|*                    = 1 IF DEFAULT NON-SYOT TAPE OPTION IS *TO=C*.
00436  M02S00004.nos252  ---|*                STE = 0 IF DEFAULT NON-SYOT TAPE OPTION IS *TO=E*.
00437  M02S00005.nos252  ---|*                    = 1 IF DEFAULT NON-SYOT TAPE OPTION IS *TO=C*.
00438  M02S00006.nos252  ---|*                ETD = 0 IF DEFAULT USER TAPE OPTION IS *TO=E*.
00439  M02S00007.nos252  ---|*                    = 1 IF DEFAULT USER TAPE OPTION IS *TO=C*.

Line S00429 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00440  M01S00429.nos252  ---|*                UTD = 0 IF DEFAULT USER TAPE OPTION IS *TO=F*.
00441  M01S00430.nos252  ---|*                    = 1 IF DEFAULT USER TAPE OPTION IS *TO=T*.
00442  M01S00431.nos252  ---|*
00443  M01S00432.nos252  ---|*         USES   CM - CM+4, CN - CN+4, FN - FN+4.
00444  M01S00433.nos252  ---|*
00445  M01S00434.nos252  ---|*         CALLS  CKA.
00446  M01S00435.nos252  ---|
00447  M01S00436.nos252  ---|
00448  M01S00437.nos252  ---| RTS      ENTRY              ENTRY
00449  M01S00438.nos252  ---|          LDN    TFML        GET *TMS* SYSTEM STATUS WORD
00450  M01S00439.nos252  ---|          CRD    CN
00451  M01S00440.nos252  ---|          LDD    CP          GET *TMS* USER STATUS WORD
00452  M01S00441.nos252  ---|          ADN    TMSW
00453  M01S00442.nos252  ---|          CRD    FN
00454  M01S00443.nos252  ---|          LDN    ZERL        PRESET RETURN WORD
00455  M01S00444.nos252  ---|          CRD    CM
00456  M01S00445.nos252  ---|          LDD    OT          CHECK ORIGIN TYPE
00457  M01S00446.nos252  ---|*         LMN    SYOT
00458  M01S00447.nos252  ---|          ERRNZ  SYOT        SYSTEM ORIGIN FLAG MISMATCH
00459  M01S00448.nos252  ---|          NJN    RTS1        IF NOT SYSTEM ORIGIN
00460  M01S00449.nos252  ---|          AOM    RTSA        SET SYSTEM ORIGIN SHIFT COUNT

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

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

Line S00450 Modification History
`M01` (Removed by)	`nos252`

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

Line S00451 Modification History
`M01` (Removed by)	`t2807`
`M02` (Removed by)	`nos252`

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

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

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

Line S00452 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00465  M01S00452.nos252  ---|          STD    CM
00466  M01S00453.nos252  ---| RTSA     SHN    0-12+22     POSITION SYSTEM DEFAULT TAPE OPTION BIT
00467  M01S00454.nos252  ---|*         SHN    0-11+22     (SYOT)
00468  M01S00455.nos252  ---|          LMD    FN+4
00469  M01S00456.nos252  ---|          LPN    1
00470  M01S00457.nos252  ---|          STD    CM+4        SET USER DEFAULT TAPE OPTION BIT

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

Seq #  *Modification Id* Act 
----------------------------+
00471  M02S00010.nos252  ---|          LDD    CM          POSITION SYSTEM DEFAULT TAPE OPTION BIT
00472  M02S00011.nos252  ---| RTSB     SHN    1-10+22
00473  M02S00012.nos252  ---|*         SHN    1-7+22      (SYOT)
00474  M02S00013.nos252  ---|          LMD    FN+4
00475  M02S00014.nos252  ---|          LPN    2
00476  M02S00015.nos252  ---|          RAD    CM+4

Line S00458 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00477  M01S00458.nos252  ---|          RJM    CKA         CHECK ADDRESS
00478  M01S00459.nos252  ---|          CWD    CM          RETURN *TMS* STATUS
00479  M01S00460.nos252  ---|          LJM    TFUX        RETURN
00480  M00S00461.tfu     +++| STO      SPACE  4,20
00481  M00S00462.tfu     +++|***       FUNCTION *STOF* - SET DEFAULT *TO* OPTION FOR USER.
00482  M00S00463.tfu     +++|*
00483  M00S00464.tfu     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
00484  M00S00465.tfu     +++|*

Line S00466 Modification History
`M01` (Removed by)	`t2807`

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

Line S00016 Modification History
`M01` (Added by)	`t2807`

Seq #  *Modification Id* Act 
----------------------------+
00486  M01S00016.t2807   +++|*T,ADDR   58/ , 1/ ETD, 1/ UTD

00487  M00S00467.tfu     +++|*

Line S00017 Modification History
`M01` (Added by)	`t2807`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00468.tfu     +++|*                UTD = 0 IF DEFAULT USER TAPE OPTION TO BE *TO=F*.
00491  M00S00469.tfu     +++|*                    = 1 IF DEFAULT USER TAPE OPTION TO BE *TO=T*.
00492  M00S00470.tfu     +++|*
00493  M00S00471.tfu     +++|*         EXIT   DEFAULT USER TAPE OPTION RESET.
00494  M00S00472.tfu     +++|*
00495  M00S00473.tfu     +++|*         USES   CM - CM+4, CN - CN+4.
00496  M00S00474.tfu     +++|*
00497  M00S00475.tfu     +++|*         CALLS  CKA.
00498  M00S00476.tfu     +++|*
00499  M00S00477.tfu     +++|*         MACROS DELAY, MONITOR, PAUSE.
00500  M00S00478.tfu     +++|
00501  M00S00479.tfu     +++|
00502  M00S00480.tfu     +++| STO      ENTRY              ENTRY

Line S00481 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00503  M01S00481.nos252  ---|          LDN    TFML        GET *TMS* SYSTEM STATUS WORD
00504  M01S00482.nos252  ---|          CRD    CN
00505  M00S00483.tfu     +++|          RJM    CKA         CHECK ADDRESS
00506  M00S00484.tfu     +++|          CRD    FN          GET USER REQUEST

Line S00485 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00507  M01S00485.nos252  ---|          LDD    CP          GET *TMS* USER STATUS WORD
00508  M01S00486.nos252  ---|          ADN    TMSW
00509  M01S00487.nos252  ---|          CRD    CM
00510  M01S00488.nos252  ---|          LDD    CM+4

Line S00489 Modification History
`M01` (Removed by)	`t2807`
`M02` (Removed by)	`nos252`

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

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

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

Line S00490 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00513  M01S00490.nos252  ---|          STD    CM+4
00514  M01S00491.nos252  ---|          LDD    OT          CHECK ORIGIN TYPE
00515  M01S00492.nos252  ---|*         LMN    SYOT
00516  M01S00493.nos252  ---|          ERRNZ  SYOT        SYSTEM ORIGIN FLAG MISMATCH
00517  M01S00494.nos252  ---|          NJN    STO1        IF NOT SYSTEM ORIGIN
00518  M01S00495.nos252  ---|          AOM    STOA        SET SYSTEM ORIGIN SHIFT COUNT

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

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

Line S00496 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00520  M01S00496.nos252  ---| STO1     LDD    CN          POSITION SYSTEM DEFAULT TAPE OPTION BIT
00521  M01S00497.nos252  ---| STOA     SHN    0-12+22
00522  M01S00498.nos252  ---|*         SHN    0-11+22     (SYOT)
00523  M01S00499.nos252  ---|          LMD    FN+4        SET USER DEFAULT TAPE OPTION BIT
00524  M01S00500.nos252  ---|          LPN    1
00525  M01S00501.nos252  ---|          RAD    CM+4

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

Seq #  *Modification Id* Act 
----------------------------+
00526  M02S00021.nos252  ---|          LDD    CN          POSITION DEFAULT TAPE OPTION BIT
00527  M02S00022.nos252  ---| STOB     SHN    1-10+22
00528  M02S00023.nos252  ---|*         SHN    1-7+22      (SYOT)
00529  M02S00024.nos252  ---|          LMD    FN+4        SET DEFAULT OF *TO=E* OR *TO=C*
00530  M02S00025.nos252  ---|          LPN    2
00531  M02S00026.nos252  ---|          RAD    CM+4

Line S00502 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00532  M01S00502.nos252  ---|          LDD    CP          RESET *TMS* USER STATUS WORD
00533  M01S00503.nos252  ---|          ADN    TMSW

Line S00001 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00504.tfu     +++|          CWD    CM
00546  M00S00505.tfu     +++|          LJM    TFUX        RETURN
00547  M00S00506.tfu     +++| STS      SPACE  4,20
00548  M00S00507.tfu     +++|***       FUNCTION *STSF* - SET *TMS* STATUS FOR SYSTEM.
00549  M00S00508.tfu     +++|*
00550  M00S00509.tfu     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
00551  M00S00510.tfu     +++|*

Line S00511 Modification History
`M01` (Removed by)	`t2807`

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

Line S00027 Modification History
`M01` (Added by)	`t2807`

Seq #  *Modification Id* Act 
----------------------------+
00553  M01S00027.t2807   +++|*T,ADDR   1/ TMS, 1/ NTD, 1/STD, 1/ NTE, 1/ STE, 55/

00554  M00S00512.tfu     +++|*

Line S00513 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00555  M01S00513.nos252  ---|*                TMS = 0 IF *TMS* TO BE DISABLED.
00556  M01S00514.nos252  ---|*                    = 1 IF *TMS* TO BE ENABLED.

Line S00012 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00557  M01S00012.nos252  +++|*                TMS = 1 IF *TMS* TO BE ENABLED.
00558  M00S00515.tfu     +++|*                NTD = 0 IF DEFAULT NON-SYOT TAPE OPTION TO BE *TO=F*.
00559  M00S00516.tfu     +++|*                    = 1 IF DEFAULT NON-SYOT TAPE OPTION TO BE *TO=T*.
00560  M00S00517.tfu     +++|*                STD = 0 IF DEFAULT SYOT TAPE OPTION TO BE *TO=F*.
00561  M00S00518.tfu     +++|*                    = 1 IF DEFAULT SYOT TAPE OPTION TO BE *TO=T*.

Line S00028 Modification History
`M01` (Added by)	`t2807`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00519.tfu     +++|*
00567  M00S00520.tfu     +++|*         EXIT   SYSTEM *TMS* STATUS RESET.
00568  M00S00521.tfu     +++|*

Line S00522 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00569  M01S00522.nos252  ---|*         USES   CM - CM+4, CN - CN+4.

Line S00013 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00570  M01S00013.nos252  +++|*         USES   T1, CM - CM+4.
00571  M00S00523.tfu     +++|*
00572  M00S00524.tfu     +++|*         CALLS  CKA.
00573  M00S00525.tfu     +++|*

Line S00526 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00574  M01S00526.nos252  ---|*         MACROS DELAY, MONITOR, PAUSE.

Line S00014 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00575  M01S00014.nos252  +++|*         MACROS MONITOR.
00576  M00S00527.tfu     +++|
00577  M00S00528.tfu     +++|
00578  M00S00529.tfu     +++| STS      ENTRY              ENTRY
00579  M00S00530.tfu     +++|          RJM    CKA         CHECK ADDRESS
00580  M00S00531.tfu     +++|          CRD    CM          SET REQUESTED *TMS* STATUS
00581  M00S00532.tfu     +++|          LDD    CM

Line S00533 Modification History
`M01` (Removed by)	`t2807`

Seq #  *Modification Id* Act 
----------------------------+
00582  M01S00533.t2807   ---|          SHN    0-11

Line S00032 Modification History
`M01` (Added by)	`t2807`

Seq #  *Modification Id* Act 
----------------------------+
00583  M01S00032.t2807   +++|          SHN    0-7
00584  M00S00534.tfu     +++|          STM    STSA+4
00585  M00S00535.tfu     +++|          LDN    1           SET REQUEST COUNT
00586  M00S00536.tfu     +++|          STD    CM+1
00587  M00S00537.tfu     +++|          LDN    0
00588  M00S00538.tfu     +++|          STD    CM+2
00589  M00S00539.tfu     +++|          STD    CM+3

Line S00540 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00590  M01S00540.nos252  ---|          LDN    TFML        SET ADDRESS

Line S00015 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00591  M01S00015.nos252  +++|          LDK    TFML        SET ADDRESS
00592  M00S00541.tfu     +++|          STD    CM+4
00593  M00S00542.tfu     +++|          LDD    MA          SET REQUEST IN MESSAGE BUFFER
00594  M00S00543.tfu     +++|          CWM    STSA,ON
00595  M00S00544.tfu     +++|          MONITOR  UTEM      UPDATE TABLE

Line S00545 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00596  M01S00545.nos252  ---|          LJM    TFUX        RETURN

Line S00016 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00546.tfu     +++|

Line S00547 Modification History
`M01` (Removed by)	`t2807`

Seq #  *Modification Id* Act 
----------------------------+
00615  M01S00547.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` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00616  M02S00033.nos252  ---| STSA     VFD    1/0,5/0,6/5,6/55D,42/0  *UTEM* REQUEST BLOCK

Line S00033 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00548.tfu     +++|          TITLE  PRESET AREA.
00621  M00S00549.tfu     +++| PRS      SPACE  4,15
00622  M00S00550.tfu     +++|**        PRS - PRESET TAPE FILE UTILITY.
00623  M00S00551.tfu     +++|*
00624  M00S00552.tfu     +++|*         EXIT   (EP) = SPECIAL ENTRY POINT FLAGS.
00625  M00S00553.tfu     +++|*                (OT) = JOB ORIGIN TYPE.
00626  M00S00554.tfu     +++|*
00627  M00S00555.tfu     +++|*         ERROR  ABORT WITH * TFU - INCORRECT REQUEST* IF FUNCTION
00628  M00S00556.tfu     +++|*                NUMBER NOT RECOGNIZED OR IF THE CALLING PROGRAM DOES
00629  M00S00557.tfu     +++|*                NOT HAVE THE CORRECT PRIVILEGES.
00630  M00S00558.tfu     +++|*
00631  M00S00559.tfu     +++|*         USES   CM - CM+4, CN - CN+4.
00632  M00S00560.tfu     +++|*
00633  M00S00561.tfu     +++|*         CALLS  CRS, IFP.
00634  M00S00562.tfu     +++|*
00635  M00S00563.tfu     +++|*         MACROS ABORT, SFA.
00636  M00S00564.tfu     +++|
00637  M00S00565.tfu     +++|
00638  M00S00566.tfu     +++| PRS      SUBR               ENTRY/EXIT
00639  M00S00567.tfu     +++|          LDD    CP          READ SPECIAL ENTRY POINT WORD
00640  M00S00568.tfu     +++|          ADN    STSW        CHECK ERROR FLAG
00641  M00S00569.tfu     +++|          CRD    CM
00642  M00S00570.tfu     +++|          ADN    SEPW-STSW
00643  M00S00571.tfu     +++|          CRD    CN
00644  M00S00572.tfu     +++|          LDD    CM+1
00645  M00S00573.tfu     +++|          SBN    SPET
00646  M00S00574.tfu     +++|          MJN    PRS1        IF NOT SPECIAL ERROR FLAG
00647  M00S00575.tfu     +++|          LJM    TFUX        EXIT *TFU*
00648  M00S00576.tfu     +++|
00649  M00S00577.tfu     +++| PRS1     LDD    CN          SAVE ENTRY POINTS
00650  M00S00578.tfu     +++|          STD    EP
00651  M00S00579.tfu     +++|          RJM    CRS         CHECK RECALL STATUS
00652  M00S00580.tfu     +++|          ZJN    PRS2        IF NO AUTO RECALL
00653  M00S00581.tfu     +++|          RJM    IFP         INITIALIZE MANAGED TABLE PROCESSORS
00654  M00S00582.tfu     +++|          LDD    CP          FETCH EJT ORDINAL
00655  M00S00583.tfu     +++|          ADN    TFSW
00656  M00S00584.tfu     +++|          CRD    CM
00657  M00S00585.tfu     +++|          SFA    EJT,CM      CALCULATE EJT ENTRY ABSOLUTE ADDRESS
00658  M00S00586.tfu     +++|          ADN    SCLE        GET JOB ORIGIN TYPE
00659  M00S00587.tfu     +++|          CRD    CM
00660  M00S00588.tfu     +++|          LDD    CM
00661  M00S00589.tfu     +++|          LPN    17
00662  M00S00590.tfu     +++|          STD    OT
00663  M00S00591.tfu     +++|          LDD    IR+2        CHECK FUNCTION CODE
00664  M00S00592.tfu     +++|          SHN    1
00665  M00S00593.tfu     +++|          ADD    IR+2
00666  M00S00594.tfu     +++|          STD    T7
00667  M00S00595.tfu     +++|          ADC    -TFCNL
00668  M00S00596.tfu     +++|          MJN    PRS3        IF LEGAL CODE
00669  M00S00597.tfu     +++| PRS2     ABORT  ERIR        * TFU - INCORRECT REQUEST.*
00670  M00S00598.tfu     +++|
00671  M00S00599.tfu     +++| PRS3     LDM    TFCN+1,T7
00672  M00S00600.tfu     +++|          ZJN    PRS2        IF UNDEFINED FUNCTION CODE
00673  M00S00601.tfu     +++|          STM    TFUB        SAVE THE ADDRESS OF FUNCTION
00674  M00S00602.tfu     +++|          LDD    CP          READ JOB CONTROL INFORMATION
00675  M00S00603.tfu     +++|          ADK    JCIW
00676  M00S00604.tfu     +++|          CRD    CN
00677  M00S00605.tfu     +++|          LDM    TFCN+2,T7   CHECK ORIGIN CONTROL
00678  M00S00606.tfu     +++|          LPC    3777
00679  M00S00607.tfu     +++|          ZJN    PRS4        IF NO CONTROL BITS
00680  M00S00608.tfu     +++|          STD    T1
00681  M00S00609.tfu     +++|          LCN    0           SET BIT SHIFT
00682  M00S00610.tfu     +++|          LMD    OT
00683  M00S00611.tfu     +++|          RAM    PRSA
00684  M00S00612.tfu     +++|          LDD    T1          CHECK BITS
00685  M00S00613.tfu     +++| PRSA     SHN    21
00686  M00S00614.tfu     +++|          MJN    PRS6        IF LEGAL FUNCTION FOR JOB ORIGIN TYPE
00687  M00S00615.tfu     +++|          LDM    TFCN+2,T7   GET FUNCTION PROCESSOR ADDRESS
00688  M00S00616.tfu     +++|          SHN    21-13
00689  M00S00617.tfu     +++|          MJN    PRS5        IF *SSJ=* REQUIRED
00690  M00S00618.tfu     +++|          UJN    PRS2        ABORT
00691  M00S00619.tfu     +++|
00692  M00S00620.tfu     +++| PRS4     LDM    TFCN+2,T7   GET FUNCTION PROCESSOR ADDRESS
00693  M00S00621.tfu     +++|          SHN    21-13
00694  M00S00622.tfu     +++|          PJN    PRS6        IF SSJ= NOT REQUIRED
00695  M00S00623.tfu     +++| PRS5     LDD    EP          CHECK *SSJ=* ENTRY POINT
00696  M00S00624.tfu     +++|          SHN    21-2
00697  M00S00625.tfu     +++|          MJN    PRS6        IF *SSJ=*
00698  M00S00626.tfu     +++|          LDD    CN+2
00699  M00S00627.tfu     +++|          ADK    -LSSI
00700  M00S00628.tfu     +++|          MJP    PRS2        IF NOT SUBSYSTEM
00701  M00S00629.tfu     +++| PRS6     LDM    TFCN,T7     SET OVERLAY NAME
00702  M00S00630.tfu     +++|          STM    TFUA
00703  M00S00631.tfu     +++|          LJM    PRSX        RETURN
00704  M00S00632.tfu     +++| TFCN     SPACE  4,15
00705  M00S00633.tfu     +++|**        TFCN - TABLE OF FUNCTION CODE PROCESSORS.
00706  M00S00634.tfu     +++|*         ENTRY = 3 WORDS.
00707  M00S00635.tfu     +++|*
00708  M00S00636.tfu     +++|*T,       12/ NAME , 12/ ADDR , 12/ BITS

00709  M00S00637.tfu     +++|*
00710  M00S00638.tfu     +++|*         NAME   OVERLAY NAME
00711  M00S00639.tfu     +++|*         ADDR   ADDRESS OF FUNCTION PROCESSOR
00712  M00S00640.tfu     +++|*         BITS   BITS FOR JOB ORIGIN CONTROL
00713  M00S00641.tfu     +++|*                BIT         MEANING
00714  M00S00642.tfu     +++|*                11          SET IF SSJ= ENTRY POINT REQUIRED.
00715  M00S00643.tfu     +++|*                10 - 0      SET IF CORRESPONDING ORIGIN TYPE REQUIRED.
00716  M00S00644.tfu     +++|
00717  M00S00645.tfu     +++|
00718  M00S00646.tfu     +++| TFCN     BSS    0           TABLE OF FUNCTION CODE PROCESSORS
00719  M00S00647.tfu     +++| AEJF     FCN    AEJ,,SSJ    ASSIGN *EST* ORDINAL TO JOB
00720  M00S00648.tfu     +++| IXMF     FCN    IXM,,SSJ    ISSUE EXTERNAL *MAGNET* REQUEST

Line S00649 Modification History
`M01` (Removed by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00721  M01S00649.nos252  ---| RTSF     FCN    RTS         RETURN *TMS* STATUS

Line S00036 Modification History
`M01` (Added by)	`nos252`

Seq #  *Modification Id* Act 
----------------------------+
00722  M01S00036.nos252  +++|          FCN    PRS2        RESERVED
00723  M00S00650.tfu     +++| STOF     FCN    STO         SET DEFAULT *TO* FOR USER
00724  M00S00651.tfu     +++| STSF     FCN    STS,,SSJ    SET *TMS* STATUS FOR SYSTEM
00725  M00S00652.tfu     +++|          LOC    *O
00726  M00S00653.tfu     +++| TFCNL    EQU    *-TFCN
00727  M00S00654.tfu     +++|          SPACE  4
00728  M00S00655.tfu     +++| IFP      HERE               GLOBAL FNT PROCESSORS INITIALIZATION CODE
00729  M00S00656.tfu     +++|          SPACE  4,10
00730  M00S00657.tfu     +++|**        COMMON DECKS.
00731  M00S00658.tfu     +++|
00732  M00S00659.tfu     +++|
00733  M00S00660.tfu     +++|*CALL     COMPCRS
00734  M00S00661.tfu     +++|          SPACE  4,10
00735  M00S00662.tfu     +++|          OVERFLOW
00736  M00S00663.tfu     +++|          OVERLAY  (ERROR PROCESSOR.)
00737  M00S00664.tfu     +++| ERR      SPACE  4,10
00738  M00S00665.tfu     +++|**        ERR - PROCESS ERROR.
00739  M00S00666.tfu     +++|*
00740  M00S00667.tfu     +++|*         ENTRY  (CN) = ERROR MESSAGE ADDRESS.
00741  M00S00668.tfu     +++|*
00742  M00S00669.tfu     +++|*         EXIT   ERROR MESSAGE ISSUED TO SYSTEM AND USER DAYFILES.
00743  M00S00670.tfu     +++|*                PP ABORTED.
00744  M00S00671.tfu     +++|*
00745  M00S00672.tfu     +++|*         CALLS  DFM.
00746  M00S00673.tfu     +++|*
00747  M00S00674.tfu     +++|*         MACROS MONITOR.
00748  M00S00675.tfu     +++|
00749  M00S00676.tfu     +++|
00750  M00S00677.tfu     +++| ERR      BSS    0           ENTRY
00751  M00S00678.tfu     +++|          LDD    CN          GET DAYFILE MESSAGE ADDRESS
00752  M00S00679.tfu     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
00753  M00S00680.tfu     +++|          MONITOR  ABTM
00754  M00S00681.tfu     +++|          LJM    PPR         EXIT
00755  M00S00682.tfu     +++| ERRMSG   SPACE  4,10
00756  M00S00683.tfu     +++|*         ERROR MESSAGES.
00757  M00S00684.tfu     +++|
00758  M00S00685.tfu     +++|
00759  M00S00686.tfu     +++|          QUAL
00760  M00S00687.tfu     +++| ERAE     DATA   C* TFU - ARGUMENT ERROR.*
00761  M00S00688.tfu     +++| ERIR     DATA   C* TFU - INCORRECT REQUEST.*
00762  M00S00689.tfu     +++| ERIU     DATA   C* TFU - USER ACCESS NOT VALID.*
00763  M00S00690.tfu     +++|          QUAL   *
00764  M00S00691.tfu     +++|          SPACE  4,10
00765  M00S00692.tfu     +++|          OVERFLOW OVL
00766  M00S00693.tfu     +++|          TTL    TFU - TAPE FILE UTILITY.
00767  M00S00694.tfu     +++|          SPACE  4,10
00768  M00S00695.tfu     +++|          END