User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:tfm.002

Deck TFM Part 002

23 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03122  M01S02911.tfm     +++|          ADN    TFSW
03123  M01S02912.tfm     +++|          CRD    CN
Line S02913 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03124  M02S02913.282l826 ---|          UDTRD  CM,/MTX/UJID,1
Line S02914 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03125  M02S02914.282l826 ---|          LDD    CM+4
03126  M01S00038.282l826 +++|          UDTRD  CM,/MTX/UVRI,1
03127  M01S00039.282l826 +++|          LDD    CM
03128  M01S02915.tfm     +++|          LMD    CN
03129  M01S02916.tfm     +++|          NJN    SUL3        IF NOT EJT ORDINAL
03130  M01S02917.tfm     +++|          UDTRD  UTMS,/MTX/UTMS,1
03131  M01S02918.tfm     +++|          LDM    UTMS+4
03132  M01S02919.tfm     +++|          SHN    21-13
03133  M01S02920.tfm     +++|          PJN    SUL3        IF NOT A TMS CONTROLLED FILE
Line S02921 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03134  M02S02921.282l826 ---|          UDTRD  CM,/MTX/UST2,1
Line S02922 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03135  M02S02922.282l826 ---|          LDD    CM+4
Line S02923 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03136  M02S02923.282l826 ---|          SHN    21-13
03137  M01S00040.282l826 +++|          UDTRD  CM,/MTX/UST4,1
03138  M01S00041.282l826 +++|          LDD    CM
03139  M01S00042.282l826 +++|          SHN    21-12
03140  M01S02924.tfm     +++|          PJN    SUL2        IF UNLABELED FILE
Line S02925 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03141  M02S02925.282l826 ---|          SHN    21-12-21+13
03142  M01S00043.282l826 +++|          SHN    21-11-21+12
03143  M01S02926.tfm     +++|          PJN    SUL4        IF STANDARD LABELS
03144  M01S02927.tfm     +++| SUL2     LJM    EML         EXIT TO MAIN LOOP
03145  M01S02928.tfm     +++|
03146  M01S02929.tfm     +++| SUL3     ERROR  TPI         *TMS PROCESSING INHIBITED.*
03147  M01S02930.tfm     +++|
03148  M01S02931.tfm     +++| SUL4     LDM    PFTD        UPDATE FET FROM UDT
03149  M01S02932.tfm     +++|          LPC    4000
03150  M01S02933.tfm     +++|          STM    PFTD
03151  M01S02934.tfm     +++|          RJM    GUO         GET USER OPTIONS FROM UDT
03152  M01S02935.tfm     +++|          LDM    UTMS+4
03153  M01S02936.tfm     +++|          SHN    21-10
03154  M01S02937.tfm     +++|          PJN    SUL2        IF NON-SYMBOLIC ACCESS
03155  M01S02938.tfm     +++|          LDM    PBTO+1      FORCE TMS FILE, SYMBOLIC ACCESS
03156  M01S02939.tfm     +++|          SCN    24
03157  M01S02940.tfm     +++|          LMN    24
03158  M01S02941.tfm     +++|          STM    PBTO+1
03159  M01S02942.tfm     +++|          LJM    SULX        RETURN
03160  M01S02943.tfm     +++| TTB      SPACE  4,10
03161  M01S02944.tfm     +++|**        TTB - TRIM TRAILING BLANKS.
03162  M01S02945.tfm     +++|*
03163  M01S02946.tfm     +++|*         ENTRY  (A, 0-11) = ADDRESS OF STRING.
03164  M01S02947.tfm     +++|*                (A, 12-17)= STRING COUNT.
03165  M01S02948.tfm     +++|*
03166  M01S02949.tfm     +++|*         EXIT   TRAILING BLANKS CONVERTED TO BINARY ZERO.
03167  M01S02950.tfm     +++|*
Line S02951 Modification History
M01 (Added by) tfm
M02 (Updated by) t2807
Seq #  *Modification Id* Act 
----------------------------+
03168  M02S02951.t2807   ---|*         USES   T1, T2.
03169  M01S00005.t2807   +++|*         USES   T0, T1, T2.
03170  M01S02952.tfm     +++|
03171  M01S02953.tfm     +++|
03172  M01S02954.tfm     +++| TTB      SUBR               ENTRY/EXIT
03173  M01S02955.tfm     +++|          STD    T1          SAVE ADDRESS
03174  M01S02956.tfm     +++|          SHN    -14
03175  M01S02957.tfm     +++|          STD    T2          SAVE CHARACTER COUNT
03176  M01S02958.tfm     +++|          SHN    -1
03177  M01S02959.tfm     +++|          RAD    T1
03178  M01S02960.tfm     +++| TTB1     LDD    T2          CHECK FOR CHARACTER POSITION
03179  M01S02961.tfm     +++|          LPN    1
03180  M01S02962.tfm     +++|          ZJN    TTB2        IF EVEN CHARACTER
03181  M01S02963.tfm     +++|          LDI    T1          PRESET ZERO CHARACTER
03182  M01S02964.tfm     +++|          LPN    77
03183  M01S02965.tfm     +++|          STD    T0
03184  M01S02966.tfm     +++|          LDI    T1          LOAD CHARACTER
03185  M01S02967.tfm     +++|          SHN    -6
03186  M01S02968.tfm     +++|          UJN    TTB3        CHECK CHARACTER
03187  M01S02969.tfm     +++|
03188  M01S02970.tfm     +++| TTB2     LDI    T1          PRESET ZERO CHARACTER
03189  M01S02971.tfm     +++|          SCN    77
03190  M01S02972.tfm     +++|          STD    T0
03191  M01S02973.tfm     +++|          LMI    T1          LOAD CHARACTER
03192  M01S02974.tfm     +++| TTB3     ZJN    TTB4        IF ALREADY ZERO
03193  M01S02975.tfm     +++|          LMN    1R
03194  M01S02976.tfm     +++|          NJN    TTBX        IF NOT BLANK
03195  M01S00006.t2807   +++|          LMD    T0          RESTORE OTHER CHARACTER
03196  M01S02977.tfm     +++|          STI    T1
03197  M01S02978.tfm     +++| TTB4     SOD    T2
Line S02979 Modification History
M01 (Added by) tfm
M02 (Updated by) t2807
Seq #  *Modification Id* Act 
----------------------------+
03198  M02S02979.t2807   ---|          PJN    TTB1        IF MORE TO BLANK
03199  M01S00007.t2807   +++|          LPN    1
03200  M01S00008.t2807   +++|          NJN    TTB1        IF ODD CHARACTER TO DO
03201  M01S00009.t2807   +++|          SOD    T1          DECREMENT STRING POINTER
03202  M01S00010.t2807   +++|          LDD    T2
03203  M01S00011.t2807   +++|          NJN    TTB1        IF MORE TO BLANK
03204  M01S02980.tfm     +++|          UJN    TTBX        RETURN
03205  M01S02981.tfm     +++|          SPACE  4
03206  M01S02982.tfm     +++|***       LEVEL 2 COMMON DECKS.
03207  M01S02983.tfm     +++|
03208  M01S02984.tfm     +++|*CALL     COMPAST
03209  M01S02985.tfm     +++|*CALL     COMPCRS
03210  M01S02986.tfm     +++|*CALL     COMPFAT
03211  M01S00044.282l826 +++| EJT$     EQU    1           ASSEMBLE EJT CODE
03212  M01S00045.282l826 +++|*CALL     COMPGFP
03213  M01S02987.tfm     +++|*CALL     COMPIRA
03214  M01S02988.tfm     +++|*CALL     COMPSAF
03215  M01S02989.tfm     +++|*CALL     COMPSFB
03216  M01S02990.tfm     +++|          SPACE  4
03217  M01S02991.tfm     +++|          ERRNG  BUF0-*      BYTES LEFT BEFORE BUFFER OVERFLOW
03218  M01S02992.tfm     +++|          OVERLAY (ERROR PROCESSING.),OVL1
03219  M01S02993.tfm     +++|          SPACE  4,10
03220  M01S02994.tfm     +++|***       TAPE MANAGER ERROR PROCESSING.
03221  M01S02995.tfm     +++|*
03222  M01S02996.tfm     +++|*
Line S02997 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03223  M02S02997.nos252  ---|*         CONTROL STATEMENT OR CENTRAL PROGRAM CALLS.
03224  M01S00037.nos252  +++|*         COMMAND OR CENTRAL PROGRAM CALLS.
03225  M01S02998.tfm     +++|*
03226  M01S02999.tfm     +++|*         IF THE ERROR PROCESSING BIT IS SET IN THE FET, TFM
03227  M01S03000.tfm     +++|*         RETURNS THE ERROR CODE, SETS THE COMPLETE BIT AND ISSUE
03228  M01S03001.tfm     +++|*         THE DAYFILE MESSAGE.  THE ERROR CODE IS RETURNED IN
03229  M01S03002.tfm     +++|*         WORD 0 OF THE FET BITS 9 - 16.
03230  M01S03003.tfm     +++|*
03231  M01S03004.tfm     +++|*         IF THE ERROR PROCESSING BIT IS NOT SET, A DAYFILE
03232  M01S03005.tfm     +++|*         MESSAGE IS ISSUED, THE CONTROL POINT ABORTED, AND THE
03233  M01S03006.tfm     +++|*         PPU IS DROPPED.
03234  M01S03007.tfm     +++|*
03235  M01S03008.tfm     +++|*         IF ERROR RETURN ADDRESS *ERAD* IS SET AND USER IS
03236  M01S03009.tfm     +++|*         PROCESSING ERRORS, MESSAGE WILL NOT BE ISSUED BUT WILL
03237  M01S03010.tfm     +++|*         BE RETURNED TO USER AT RA + ERAD. FOUR WORDS MUST
03238  M01S03011.tfm     +++|*         BE ALLOCATED AT *ERAD* FOR MESSAGE.
03239  M01S03012.tfm     +++|*
03240  M01S03013.tfm     +++|*         IF THE ERROR CONDITION IS ONE THAT THE USER CAN
03241  M01S03014.tfm     +++|*         ROLLOUT AND WAIT ON, THE ROLLOUT INDICATOR IS
03242  M01S03015.tfm     +++|*         SET IN WORD 0 OF THE FET, BIT 17, AND THE
03243  M01S03016.tfm     +++|*         EVENT DESCRIPTION WILL BE SET IN *TERW* IN CP
03244  M01S03017.tfm     +++|*         AREA SO CALLING PROGRAM MAY ISSUE ROLLOUT IF IT
03245  M01S03018.tfm     +++|*         DESIRES TO WAIT FOR THE CONDITION TO CLEAR.
03246  M01S03019.tfm     +++|*
03247  M01S03020.tfm     +++|          SPACE  4,10
03248  M01S03021.tfm     +++|***       COMMON SYMBOL DEFINITIONS.
03249  M01S03022.tfm     +++|
03250  M01S03023.tfm     +++|
03251  M01S03024.tfm     +++|*CALL     COMS1DS
03252  M01S03025.tfm     +++|          SPACE  4,10
03253  M01S03026.tfm     +++|***       DIRECT CELL LOCATIONS.
03254  M01S03027.tfm     +++|
03255  M01S03028.tfm     +++|
03256  M01S03029.tfm     +++| CN       EQU    S1 -S1+4    SCRATCH WORD (5 LOCATIONS)
03257  M01S03030.tfm     +++| EA       EQU    S2          ERROR MESSAGE ADDRESS
03258  M01S03031.tfm     +++| AP       EQU    S2+1        ASSEMBLY POINTER
03259  M01S03032.tfm     +++| HB       EQU    S2+2        HALF BYTE FLAG
03260  M01S03033.tfm     +++| TME      SPACE  4,20
03261  M01S03034.tfm     +++|**        TME - TAPE MANAGER ERROR PROCESSING.
03262  M01S03035.tfm     +++|*
03263  M01S03036.tfm     +++|*         ENTRY  (EC) = ERROR CODE.
03264  M01S03037.tfm     +++|*                (FO) = CATALOG FNT ORDINAL.
03265  M01S03038.tfm     +++|*
03266  M01S03039.tfm     +++|*         USES   CM - CM+4, T1 - T2.
03267  M01S03040.tfm     +++|*
03268  M01S03041.tfm     +++|*         CALLS  ABT, BEM, IEM, IOE, MMC, PRF, SSE, UEP.
03269  M01S03042.tfm     +++|*
03270  M01S03043.tfm     +++|*         MACROS LDA, MONITOR, MULT3.
03271  M01S03044.tfm     +++|
03272  M01S03045.tfm     +++|
03273  M01S03046.tfm     +++| TME      ENTRY              OVERLAY ENTRY POINT
03274  M01S03047.tfm     +++|          LDD    CP          CHECK DMP= STATUS
03275  M01S03048.tfm     +++|          ADC    SEPW
03276  M01S03049.tfm     +++|          STD    T1
03277  M01S03050.tfm     +++|          CRD    CM
03278  M01S03051.tfm     +++|          LDD    CM
03279  M01S03052.tfm     +++|          LPN    20
03280  M01S03053.tfm     +++|          NJN    TME1        IF DMP= ENTRY POINT PRESENT
03281  M01S03054.tfm     +++|          LDN    ZERL
03282  M01S03055.tfm     +++|          CRD    CM          CLEAR CPU COMMUNICATION WORD
03283  M01S03056.tfm     +++|          LDD    T1
03284  M01S03057.tfm     +++|          ADN    SPCW-SEPW
03285  M01S03058.tfm     +++|          CWD    CM
03286  M01S03059.tfm     +++| TME1     MULT3  EC          MULTIPLY (ERROR CODE)*3
03287  M01S03060.tfm     +++|          ADC    EMSG-3      OFFSET FOR ERROR CODE 0
03288  M01S03061.tfm     +++|          STD    EA
03289  M01S03062.tfm     +++|          RJM    BEM         BUILD ERROR MESSAGE
03290  M01S03063.tfm     +++|          RJM    MMC         MOVE TO MAGNET CONTROL POINT
03291  M01S03064.tfm     +++|          LDI    EA
03292  M01S03065.tfm     +++|          SHN    21-2
03293  M01S03066.tfm     +++|          MJP    TME5        IF UNCONDITIONAL ABORT
03294  M01S03067.tfm     +++|          LDD    FC
03295  M01S03068.tfm     +++|          LMN    MAGF
03296  M01S03069.tfm     +++|          ZJN    TME3        IF CALLED BY *MAGNET*
03297  M01S03070.tfm     +++|          LDM    DFFO
03298  M01S03071.tfm     +++|          ZJN    TME2        IF DEMAND FILE NOT ATTACHED
03299  M01S03072.tfm     +++|          STD    T1          SET FNT ORDINAL
03300  M01S03073.tfm     +++|          LDN    /PFM/PTUP   SET MODE
03301  M01S03074.tfm     +++|          STD    T2
03302  M01S03075.tfm     +++|          LDN    RFAS        RETURN DEMAND FILE
03303  M01S03076.tfm     +++|          RJM    ARF
03304  M01S03077.tfm     +++| TME2     LDA    IR+3,REL    CHECK USER ERROR PROCESSING FLAG
03305  M01S03078.tfm     +++|          ADN    1
03306  M01S03079.tfm     +++|          CRD    CM
03307  M01S03080.tfm     +++|          LDD    CM+1
03308  M01S03081.tfm     +++|          SHN    21-10
03309  M01S03082.tfm     +++|          PJP    TME5        IF USER NOT PROCESSING ERRORS
03310  M01S03083.tfm     +++|          RJM    UEP         USER ERROR PROCESSING
03311  M01S03084.tfm     +++|          LJM    TME6        CHECK FOR *TFSPE* CALL
03312  M01S03085.tfm     +++|
03313  M01S03086.tfm     +++| TME3     LDI    EA          PROCESS ERRORS FOR *MAGNET*
03314  M01S03087.tfm     +++|          SHN    21-3
03315  M01S03088.tfm     +++|          PJP    TME5        IF NON-ROLLABLE ERROR
03316  M01S03089.tfm     +++|          RJM    IEM         ISSUE ERROR MESSAGE
03317  M01S03090.tfm     +++|          LDD    CP
03318  M01S03091.tfm     +++|          ADN    JCIW
03319  M01S03092.tfm     +++|          CRD    CM
03320  M01S03093.tfm     +++|          LDD    CM+2
03321  M01S03094.tfm     +++|          NJP    TME4        IF JOB NOT ROLLABLE
03322  M01S03095.tfm     +++|          RJM    SSE         SET SYSTEM EVENT
03323  M01S03096.tfm     +++|          LDM    UTMS+3      SET WAIT JOB ROLLIN
03324  M01S03097.tfm     +++|          SCN    WUJR
03325  M01S03098.tfm     +++|          LMN    WUJR
03326  M01S03099.tfm     +++|          STM    UTMS+3
03327  M01S03100.tfm     +++|          LDN    ZERL        REQUEST ROLLOUT
03328  M01S03101.tfm     +++|          CRD    CM
Line S03102 Modification History
M01 (Added by) tfm
M02 (Updated by) t2807
Seq #  *Modification Id* Act 
----------------------------+
03329  M02S03102.t2807   ---|          LDC    4000B+ROTE
03330  M01S00012.t2807   +++|          LDC    4000B+/COMSCPS/ROTE
03331  M01S03103.tfm     +++|          STD    CM+1
03332  M01S03104.tfm     +++|          LDD    CP
03333  M01S03105.tfm     +++|          SHN    -7
03334  M01S03106.tfm     +++|          STD    CM+2
03335  M01S03107.tfm     +++|          MONITOR ROCM       ROLLOUT CONTROL POINT
03336  M01S03108.tfm     +++| TME4     LDM    UTMS+4      SET REISSUE REQUEST
03337  M01S03109.tfm     +++|          SCN    RSRR
03338  M01S03110.tfm     +++|          LMN    RSRR
03339  M01S03111.tfm     +++|          STM    UTMS+4
03340  M01S03112.tfm     +++|          UJN    TME6        CHECK FOR *TFSPE* CALL
03341  M01S03113.tfm     +++|
03342  M01S03114.tfm     +++| TME5     RJM    IEM         ISSUE ERROR MESSAGES
03343  M01S03115.tfm     +++|          RJM    ABT         ABORT USER JOB
03344  M01S03116.tfm     +++| TME6     LDM    TFMF        CHECK FOR OPERATOR NOTIFICATION REQUIRED
03345  M01S03117.tfm     +++|          SHN    21-3
03346  M01S03118.tfm     +++|          MJN    TME7        IF OPERATOR FLAG SET
03347  M01S03119.tfm     +++|          LDM    TFMC
03348  M01S03120.tfm     +++|          LPN    77
03349  M01S03121.tfm     +++|          LMN    /PFM/PTLM
03350  M01S03122.tfm     +++|          ZJN    TME10       IF LOCAL FILE MODE
03351  M01S03123.tfm     +++|          LDI    EA
03352  M01S03124.tfm     +++|          SHN    21-1
03353  M01S03125.tfm     +++|          PJN    TME8        IF NOT CALLING *TFSPE*
03354  M01S03126.tfm     +++| TME7     RJM    IOE         INFORM OPERATOR OF ERROR
03355  M01S03127.tfm     +++| TME8     LDI    EA          CHECK FOR PP HANG
03356  M01S03128.tfm     +++|          SHN    21-0
03357  M01S03129.tfm     +++|          PJN    TME10       IF NOT HANG CONDITION
03358  M01S03130.tfm     +++|          LDD    FO          SET FNT ORDINAL
03359  M01S03131.tfm     +++|          ZJN    TME9        IF CATALOG NOT ATTACHED
03360  M01S03132.tfm     +++|          STD    T1
03361  M01S03133.tfm     +++|          LDM    TFMC        SET MODE
03362  M01S03134.tfm     +++|          LPN    77
03363  M01S03135.tfm     +++|          STD    T2
03364  M01S03136.tfm     +++|          LDN    RFAS        RETURN CATALOG
03365  M01S03137.tfm     +++|          RJM    ARF
03366  M01S03138.tfm     +++|*         LDN    0           CLEAR FNT ORDINAL
03367  M01S03139.tfm     +++|          STD    FO
Line S03140 Modification History
M01 (Added by) tfm
M02 (Updated by) t5472
Seq #  *Modification Id* Act 
----------------------------+
03368  M02S03140.t5472   ---| TME9     MONITOR HNGM       HANG PP
03369  M01S00003.t5472   +++| TME9     MONITOR CHGM       CONDITIONALLY HANG PP
03370  M01S03141.tfm     +++| TME10    LJM    TMEX        RETURN
Line S03142 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03371  M02S03142.274l797 ---|          TITLE  ".Y." SUBROUTINES.
03372  M01S00023.274l797 +++|          TITLE  SUBROUTINES.
03373  M01S03143.tfm     +++| ABT      SPACE  4,10
03374  M01S03144.tfm     +++|**        ABT - ABORT USER JOB.
03375  M01S03145.tfm     +++|*
03376  M01S03146.tfm     +++|*         FOR ALL NON-MAGNET REQUESTS, THE FET IS SET
03377  M01S03147.tfm     +++|*         COMPLETE. FOR MAGNET REQUESTS, THE USER JOB
03378  M01S03148.tfm     +++|*         ABORT AND FUNCTION COMPLETE FLAGS ARE SET.
03379  M01S03149.tfm     +++|*         IN ALL CASES THE *PPET* SYSTEM ERROR FLAG
03380  M01S03150.tfm     +++|*         IS SET FOR THE USER JOB.
03381  M01S03151.tfm     +++|*
03382  M01S03152.tfm     +++|*         USES   CM - CM+4.
03383  M01S03153.tfm     +++|*
03384  M01S03154.tfm     +++|*         MACROS MONITOR, UDTRD, UDTWT.
03385  M01S03155.tfm     +++|
03386  M01S03156.tfm     +++|
03387  M01S03157.tfm     +++| ABT1     LDA    IR+3,REL    SET FET COMPLETE
03388  M01S03158.tfm     +++|          CRD    CM
03389  M01S03159.tfm     +++|          LDD    CM+4
03390  M01S03160.tfm     +++|          SCN    1
03391  M01S03161.tfm     +++|          LMN    1
03392  M01S03162.tfm     +++|          STD    CM+4
03393  M01S03163.tfm     +++|          LDA    IR+3,REL
03394  M01S03164.tfm     +++|          CWD    CM
03395  M01S03165.tfm     +++| ABT2     LDN    ZERL        SET ERROR FLAG
03396  M01S03166.tfm     +++|          CRD    CM
03397  M01S03167.tfm     +++|          LDN    PPET
03398  M01S03168.tfm     +++|          STD    CM+1
03399  M01S03169.tfm     +++|          MONITOR CEFM       CHANGE ERROR FLAG
03400  M01S03170.tfm     +++|
03401  M01S03171.tfm     +++| ABT      SUBR               ABORT USER JOB
03402  M01S03172.tfm     +++|          LDD    FC          CHECK CALLER
03403  M01S03173.tfm     +++|          LMN    MAGF
03404  M01S03174.tfm     +++|          NJN    ABT1        IF NOT CALLED BY *MAGNET*
03405  M01S03175.tfm     +++|          LDM    UTMS+4      SET ABORT USER JOB STATUS
03406  M01S03176.tfm     +++|          SCN    RSAJ
03407  M01S03177.tfm     +++|          LMN    RSAJ
03408  M01S03178.tfm     +++|          STM    UTMS+4
03409  M01S03179.tfm     +++|          LDD    CP
03410  M01S03180.tfm     +++|          ADN    JCIW
03411  M01S03181.tfm     +++|          CRD    CM
03412  M01S03182.tfm     +++|          LDD    CM+2
03413  M01S03183.tfm     +++|          LMC    MTSI
03414  M01S03184.tfm     +++|          NJN    ABT2        IF NOT *MAGNET* CONTROL POINT
03415  M01S03185.tfm     +++|          UJN    ABTX        RETURN
03416  M01S03186.tfm     +++| BEM      SPACE  4,10
03417  M01S03187.tfm     +++|**        BEM - BUILD ERROR MESSAGE.
03418  M01S03188.tfm     +++|*
03419  M01S03189.tfm     +++|*         ENTRY  (EA) = ERROR MESSAGE CONTROL WORD.
03420  M01S03190.tfm     +++|*
03421  M01S03191.tfm     +++|*         EXIT   (MBUF) = COMPLETED ERROR MESSAGE.
03422  M01S03192.tfm     +++|*
03423  M01S03193.tfm     +++|*         USES   AP, HB.
03424  M01S03194.tfm     +++|*
03425  M01S03195.tfm     +++|*         CALLS  EQM, FMM, FNM, LFM, MVM, RAM, UNM,
03426  M01S03196.tfm     +++|*                VSM.
03427  M01S03197.tfm     +++|*
03428  M01S03198.tfm     +++|
03429  M01S03199.tfm     +++|
03430  M01S03200.tfm     +++| BEM      SUBR               ENTRY/EXIT
03431  M01S03201.tfm     +++|          LDC    MBUF        INITIALIZE ASSEMBLY POINTER
03432  M01S03202.tfm     +++|          STD    AP
03433  M01S03203.tfm     +++|          CLEAR  ,AP,MBML*10D
03434  M01S03204.tfm     +++|          LDN    0
03435  M01S03205.tfm     +++|          STD    HB
03436  M01S03206.tfm     +++|          LDI    EA
03437  M01S03207.tfm     +++|          SHN    21-13
03438  M01S03208.tfm     +++|          PJN    BEM1        IF NOT EQUIPMENT MESSAGE
03439  M01S03209.tfm     +++|          RJM    EQM         BUILD EQUIPMENT MESSAGE
03440  M01S03210.tfm     +++|          LJM    BEM7        COMPLETE ERROR MESSAGE
03441  M01S03211.tfm     +++|
03442  M01S03212.tfm     +++| BEM1     SHN    21-12-21+13 CHECK FAMILY MESSAGE
03443  M01S03213.tfm     +++|          PJN    BEM2        IF NOT FAMILY NAME MESSAGE
03444  M01S03214.tfm     +++|          RJM    FMM         BUILD FAMILY NAME MESSAGE
03445  M01S03215.tfm     +++|          LJM    BEM7        COMPLETE ERROR MESSAGE
03446  M01S03216.tfm     +++|
03447  M01S03217.tfm     +++| BEM2     SHN    21-11-21+12 CHECK FILE NAME MESSAGE
03448  M01S03218.tfm     +++|          PJN    BEM3        IF NOT FILE NAME MESSAGE
03449  M01S03219.tfm     +++|          RJM    FNM         BUILD FILE NAME MESSAGE
03450  M01S03220.tfm     +++|          UJN    BEM7        COMPLETE ERROR MESSAGE
03451  M01S03221.tfm     +++|
03452  M01S03222.tfm     +++| BEM3     SHN    21-10-21+11 CHECK LOCAL FILE NAME MESSAGE
03453  M01S03223.tfm     +++|          PJN    BEM4        IF NOT LOCAL FILE NAME MESSAGE
03454  M01S03224.tfm     +++|          RJM    LFM         BUILD LOCAL FILE NAME MESSAGE
03455  M01S03225.tfm     +++|          LDI    EA
03456  M01S03226.tfm     +++|          SHN    21-10
03457  M01S03227.tfm     +++| BEM4     SHN    21-7-21+10  CHECK VSN MESSAGE
03458  M01S03228.tfm     +++|          PJN    BEM5        IF NOT VSN MESSAGE
03459  M01S03229.tfm     +++|          RJM    VSM         BUILD VSN MESSAGE
03460  M01S03230.tfm     +++|          UJN    BEM7        COMPLETE ERROR MESSAGE
03461  M01S03231.tfm     +++|
03462  M01S03232.tfm     +++| BEM5     SHN    21-6-21+7   CHECK USERNAME MESSAGE
03463  M01S03233.tfm     +++|          PJN    BEM6        IF NOT USERNAME MESSAGE
03464  M01S03234.tfm     +++|          RJM    UNM         BUILD USERNAME MESSAGE
03465  M01S03235.tfm     +++|          UJN    BEM7        COMPLETE ERROR MESSAGE
03466  M01S03236.tfm     +++|
03467  M01S03237.tfm     +++| BEM6     SHN    21-5-21+6   CHECK RANDOM ADDRESS MESSAGE
03468  M01S03238.tfm     +++|          PJN    BEM7        IF NOT RANDOM ADDRESS MESSAGE
03469  M01S03239.tfm     +++|          RJM    RAM         BUILD RANDOM ADDRESS MESSAGE
03470  M01S03240.tfm     +++| BEM7     LDD    EA          COMPLETE ERROR MESSAGE
03471  M01S03241.tfm     +++|          ADN    2
03472  M01S03242.tfm     +++|          STM    BEMA
03473  M01S03243.tfm     +++|          LDM    **          GET MESSAGE ADDRESS
03474  M01S03244.tfm     +++| BEMA     EQU    *-1         (ERROR MESSAGE ADDRESS)
03475  M01S03245.tfm     +++|          RJM    MVM         MERGE VARIABLE MESSAGE
03476  M01S03246.tfm     +++|          LDD    HB
03477  M01S03247.tfm     +++|          ZJN    BEM8        IF BYTE FILLED
03478  M01S03248.tfm     +++|          AOD    AP
03479  M01S03249.tfm     +++|          LDN    0
03480  M01S03250.tfm     +++| BEM8     STI    AP          SET END OF MESSAGE
03481  M01S03251.tfm     +++|          LJM    BEMX        RETURN
03482  M01S03252.tfm     +++| CSZ      SPACE  4,10
03483  M01S03253.tfm     +++|**        CSZ - CONVERT TRAILING SPACES TO ZEROS.
03484  M01S03254.tfm     +++|*
03485  M01S03255.tfm     +++|*         ENTRY  (A) = 6/ CC,12/ ADDR
03486  M01S03256.tfm     +++|*                WHERE - CC = CHARACTER COUNT.
03487  M01S03257.tfm     +++|*                        ADDR = ADDRESS.
03488  M01S03258.tfm     +++|*
03489  M01S03259.tfm     +++|*         USES   T1, T2, T3.
03490  M01S03260.tfm     +++|
03491  M01S03261.tfm     +++|
03492  M01S03262.tfm     +++| CSZ      SUBR               ENTRY/EXIT
03493  M01S03263.tfm     +++|          STD    T1
03494  M01S03264.tfm     +++|          SHN    -14
03495  M01S03265.tfm     +++|          ZJN    CSZX        IF CHARACTER COUNT NOT GIVEN
03496  M01S03266.tfm     +++|          STD    T2
03497  M01S03267.tfm     +++|          LPN    1           SET HALF BYTE FLAG
03498  M01S03268.tfm     +++|          STD    T3
03499  M01S03269.tfm     +++|          LDD    T2          SET LAST WORD ADDRESS
03500  M01S03270.tfm     +++|          SHN    -1
03501  M01S03271.tfm     +++|          SBN    1
03502  M01S03272.tfm     +++|          ADD    T3
03503  M01S03273.tfm     +++|          RAD    T1
03504  M01S03274.tfm     +++|          LDD    T3
03505  M01S03275.tfm     +++|          ZJN    CSZ2        IF TERMINATE ON WORD BOUNDARY
03506  M01S03276.tfm     +++| CSZ1     LDI    T1          CHECK LEFT MOST CHARACTER
03507  M01S03277.tfm     +++|          SHN    -6
03508  M01S03278.tfm     +++|          LMN    1R
03509  M01S03279.tfm     +++|          NJN    CSZX        IF NOT SPACE
03510  M01S03280.tfm     +++|          LDI    T1
03511  M01S03281.tfm     +++|          LPN    77
03512  M01S03282.tfm     +++|          STI    T1
03513  M01S03283.tfm     +++|          SOD    T1          DECREMENT WORD COUNT
03514  M01S03284.tfm     +++|          SOD    T2          DECREMENT CHARACTER COUNT
03515  M01S03285.tfm     +++|          ZJN    CSZX        IF LAST CHARACTER
03516  M01S03286.tfm     +++| CSZ2     LDI    T1          CHECK RIGHT MOST CHARACTER
03517  M01S03287.tfm     +++|          LPN    77
03518  M01S03288.tfm     +++|          LMN    1R
03519  M01S03289.tfm     +++|          NJN    CSZ3        IF NOT SPACE
03520  M01S03290.tfm     +++|          LDI    T1
03521  M01S03291.tfm     +++|          SCN    77
03522  M01S03292.tfm     +++|          STI    T1
03523  M01S03293.tfm     +++|          SOD    T2          DECREMENT CHARACTER COUNT
03524  M01S03294.tfm     +++|          NJN    CSZ1        IF NOT LAST CHARACTER
03525  M01S03295.tfm     +++| CSZ3     LJM    CSZX        RETURN
03526  M01S03296.tfm     +++| EQM      SPACE  4,10
03527  M01S03297.tfm     +++|**        EQM - BUILD EQUIPMENT MESSAGE.
03528  M01S03298.tfm     +++|*
03529  M01S03299.tfm     +++|*         SETS EQUIPMENT AND DEVICE NUMBER IN MESSAGE.
03530  M01S03300.tfm     +++|*
03531  M01S03301.tfm     +++|*         ENTRY  (EQ) = EQUIPMENT NUMBER.
03532  M01S03302.tfm     +++|*                (AP) = ASSEMBLY POINTER.
03533  M01S03303.tfm     +++|*
03534  M01S03304.tfm     +++|*         USES   CM - CM+4, T1, CN.
03535  M01S03305.tfm     +++|*
03536  M01S03306.tfm     +++|*         CALLS  C2D, MVM.
03537  M01S03307.tfm     +++|
03538  M01S03308.tfm     +++|
03539  M01S03309.tfm     +++| EQM      SUBR               ENTRY/EXIT
03540  M01S03310.tfm     +++|          LDD    EQ          CONVERT UPPER TWO DIGITS OF EST ORDINAL
03541  M01S03311.tfm     +++|          SHN    -3
03542  M01S03312.tfm     +++|          RJM    C2D         CONVERT TWO DIGITS
03543  M01S03313.tfm     +++|          STM    EQMA+1
03544  M01S03314.tfm     +++|          LDD    EQ
03545  M01S03315.tfm     +++|          LPN    7
03546  M01S03316.tfm     +++|          SHN    6
03547  M01S03317.tfm     +++|          ADC    2R0,
03548  M01S03318.tfm     +++|          STM    EQMA+2
03549  M01S03319.tfm     +++|          SFA    EST,EQ      READ EST ENTRY
03550  M01S03320.tfm     +++|          CRD    CM
03551  M01S03321.tfm     +++|          LDD    CM+3        SET EQUIPMENT TYPE
03552  M01S03322.tfm     +++|          LPC    3777
03553  M01S03323.tfm     +++|          STM    EQMA
03554  M01S03324.tfm     +++|          LDD    CM+4        READ MST
03555  M01S03325.tfm     +++|          SHN    3
03556  M01S03326.tfm     +++|          ADN    PFGL
03557  M01S03327.tfm     +++|          CRD    CM
03558  M01S03328.tfm     +++|          LDD    CM+3        SET DEVICE NUMBER
03559  M01S03329.tfm     +++|          RJM    C2D         CONVERT TWO DIGITS
03560  M01S03330.tfm     +++|          SHN    -6
03561  M01S03331.tfm     +++|          LPN    77
03562  M01S03332.tfm     +++|          STD    T1
03563  M01S03333.tfm     +++|          LDM    EQMA+4
03564  M01S03334.tfm     +++|          SCN    77
03565  M01S03335.tfm     +++|          ADD    T1
03566  M01S03336.tfm     +++|          STM    EQMA+4
03567  M01S03337.tfm     +++|          LDD    CM+3
03568  M01S03338.tfm     +++|          LPN    7
03569  M01S03339.tfm     +++|          SHN    6
03570  M01S03340.tfm     +++|          ADC    2R0,
03571  M01S03341.tfm     +++|          STM    EQMA+5
03572  M01S03342.tfm     +++|          LDC    EQMA
03573  M01S03343.tfm     +++|          RJM    MVM         MERGE VARIABLE MESSAGE
03574  M01S03344.tfm     +++|          LJM    EQMX        RETURN
03575  M01S03345.tfm     +++|
03576  M01S03346.tfm     +++| EQMA     DATA   C*EQXXX, DNYY,*
03577  M01S03347.tfm     +++| FMM      SPACE  4,10
03578  M01S03348.tfm     +++|**        FMM - BUILD FAMILY NAME MESSAGE.
03579  M01S03349.tfm     +++|*
03580  M01S03350.tfm     +++|*         SETS FAMILY NAME IN MESSAGE.
03581  M01S03351.tfm     +++|*
03582  M01S03352.tfm     +++|*         ENTRY  (PFAM - PFAM+3) = FAMILY NAME.
03583  M01S03353.tfm     +++|*
03584  M01S03354.tfm     +++|*         CALLS  MVM.
03585  M01S03355.tfm     +++|*
03586  M01S03356.tfm     +++|
03587  M01S03357.tfm     +++|
03588  M01S03358.tfm     +++| FMM      SUBR               ENTRY/EXIT
03589  M01S03359.tfm     +++|          LDM    PFAM+3      INSURE END OF FAMILY NAME
03590  M01S03360.tfm     +++|          SCN    77
03591  M01S03361.tfm     +++|          STM    PFAM+3
03592  M01S03362.tfm     +++|          LDC    PFAM
03593  M01S03363.tfm     +++|          RJM    MVM         MOVE VARIABLE MESSAGE
03594  M01S03364.tfm     +++|          UJN    FMMX        RETURN
03595  M01S03365.tfm     +++| FNM      SPACE  4,10
03596  M01S03366.tfm     +++|**        FNM - BUILD FILENAME MESSAGE.
03597  M01S03367.tfm     +++|*
03598  M01S03368.tfm     +++|*         SETS FILENAME IF MESSAGE.
03599  M01S03369.tfm     +++|*
03600  M01S03370.tfm     +++|*         ENTRY  (EC) = ERROR CODE.
03601  M01S03371.tfm     +++|*                (POFI - POFI+8D) = OLD FILE NAME.
03602  M01S03372.tfm     +++|*                (PNFI - PNFI-8D) = NEW FILE NAME.
03603  M01S03373.tfm     +++|*
03604  M01S03374.tfm     +++|*         CALLS  CSZ, MVM.
03605  M01S03375.tfm     +++|
03606  M01S03376.tfm     +++|
03607  M01S03377.tfm     +++| FNM      SUBR               ENTRY/EXIT
03608  M01S03378.tfm     +++|          LDC    FIKL*10000+POFI
03609  M01S03379.tfm     +++|          RJM    CSZ         CONVERT TRAILING SPACES TO ZEROS
03610  M01S03380.tfm     +++|          LDC    POFI
03611  M01S03381.tfm     +++|          RJM    MVM         MOVE VARIABLE MESSAGE
03612  M01S03382.tfm     +++|          UJN    FNMX        RETURN
03613  M01S03383.tfm     +++| IDM      SPACE  4,10
03614  M01S03384.tfm     +++|**        IDM - ISSUE DAYFILE MESSAGE.
03615  M01S03385.tfm     +++|*
03616  M01S03386.tfm     +++|*         ENTRY  (A) = DESTINATION CODE/10000.
03617  M01S03387.tfm     +++|*
03618  M01S03388.tfm     +++|*         CALLS  DFM.
03619  M01S03389.tfm     +++|
03620  M01S03390.tfm     +++|
03621  M01S03391.tfm     +++| IDM      SUBR               ENTRY/EXIT
03622  M01S03392.tfm     +++|          LPN    77          SET MESSAGE DESTINATION
03623  M01S03393.tfm     +++|          SHN    14
03624  M01S03394.tfm     +++|          LMC    MBUF
03625  M01S03395.tfm     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
03626  M01S03396.tfm     +++|          UJN    IDMX        RETURN
03627  M01S03397.tfm     +++| IEM      SPACE  4,10
03628  M01S03398.tfm     +++|**        IEM - ISSUE ERROR MESSAGES.
03629  M01S03399.tfm     +++|*
03630  M01S03400.tfm     +++|*         DETERMINES THE DISPOSITION OF THE ERROR  MESSAGES.
03631  M01S03401.tfm     +++|*
03632  M01S03402.tfm     +++|*         ENTRY  (EA) = FWA OF ERROR MESSAGE CONTROL WORD.
03633  M01S03403.tfm     +++|*                (CO) = CATALOG FST ORDINAL.
03634  M01S03404.tfm     +++|*
03635  M01S03405.tfm     +++|*         EXIT   ALL DAYFILE AND/OR DISPLAY MESSAGES ISSUED.
03636  M01S03406.tfm     +++|*
03637  M01S03407.tfm     +++|*         USES   BA, BP, FN - FN+4, HB, T5 - T5+4.
03638  M01S03408.tfm     +++|*
03639  M01S03409.tfm     +++|*         CALLS  IDM, MBP, RDS, WDS.
03640  M01S03410.tfm     +++|*
03641  M01S03411.tfm     +++|*         MACROS ENDMS, MMOVE, UDTRD, UDTWT.
03642  M01S03412.tfm     +++|
03643  M01S03413.tfm     +++|
03644  M01S03414.tfm     +++| IEM      SUBR               ENTRY/EXIT
03645  M01S03415.tfm     +++|          LDD    EA          SET DESTINATION CODE ADDRESS
03646  M01S03416.tfm     +++|          ADN    1
03647  M01S03417.tfm     +++|          STD    HB
03648  M01S03418.tfm     +++|          LDD    FC          CHECK CALLER
03649  M01S03419.tfm     +++|          LMN    MAGF
03650  M01S03420.tfm     +++|          NJP    IEM2        IF NOT CALLED BY *MAGNET*
Line S03421 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03651  M02S03421.282l826 ---|          UDTWT  MBUF,/MTX/UMB1,4
Line S03422 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03652  M02S03422.282l826 ---|          LDC    SHNI+21     CHECK FOR *E,P* DISPLAY MESSAGE
Line S03423 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03653  M02S03423.282l826 ---|          SBM    UTMS
Line S03424 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03654  M02S03424.282l826 ---|          STM    IEMB
Line S03425 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03655  M02S03425.282l826 ---|          LDBC   (UCES,VMFS,VTLS)
Line S03426 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03656  M02S03426.282l826 ---|          SHN    21-0
Line S03427 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03657  M02S03427.282l826 ---|*         SHN    21-(UTMS)
Line S03428 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03658  M02S03428.282l826 ---| IEMB     EQU    *-1
Line S03429 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03659  M02S03429.282l826 ---|          MJN    IEM1        IF NOT TO BE DISPLAYED AT *E,P*
Line S03430 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03660  M02S03430.282l826 ---|          UDTRD  CM,/MTX/UVSN,1
Line S03431 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03661  M02S03431.282l826 ---|          LDD    CM+3
Line S03432 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03662  M02S03432.282l826 ---|          LPC    -171
Line S03433 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03663  M02S03433.282l826 ---|          LMM    /MTX/DMB*10
Line S03434 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03664  M02S03434.282l826 ---|          STD    CM+3
Line S03435 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03665  M02S03435.282l826 ---|          UDTWT  CM,/MTX/UVSN,1
Line S03436 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03666  M02S03436.282l826 ---|          LDD    MC
Line S03437 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03667  M02S03437.282l826 ---|          ZJN    IEM1        IF NOT CONTROL POINT NUMBER
Line S03438 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03668  M02S03438.282l826 ---|          SHN    7
Line S03439 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03669  M02S03439.282l826 ---|          SCN    1
Line S03440 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03670  M02S03440.282l826 ---|          ADN    MS2W
Line S03441 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03671  M03S03441.282l826 ---|          CWM    IEMA,ON
Line S00038 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03672  M02S00038.282l826 ---|          CWM    IEMA,TR     +$CHECK *TMSDIS,PRE.*+
Line S03442 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03673  M02S03442.282l826 ---| IEM1     LDD    CP          CHECK PP ASSIGNMENT
03674  M01S00046.282l826 +++|          UDTWT  MBUF,/MTX/UMSG,4  SET MESSAGE IN UDT BUFFER
03675  M01S00047.282l826 +++|          LDD    CP          CHECK PP ASSIGNMENT
03676  M01S03443.tfm     +++|          ADN    JCIW
03677  M01S03444.tfm     +++|          CRD    CM
03678  M01S03445.tfm     +++|          LDD    CM+2
03679  M01S03446.tfm     +++|          LMC    MTSI
03680  M01S03447.tfm     +++|          ZJP    IME6        IF *MAGNET* CONTROL POINT
03681  M01S03448.tfm     +++| IEM2     LDI    HB          CHECK FOR CP DAYFILE MESSAGE
03682  M01S03449.tfm     +++|          SHN    21-0
03683  M01S03450.tfm     +++|          PJN    IEM3        IF NOT FOR CONTROL POINT DAYFILE
03684  M01S03451.tfm     +++|          LDN    CPON/10000
03685  M01S03452.tfm     +++|          RJM    IDM         ISSUE DAYFILE MESSAGE
03686  M01S03453.tfm     +++| IEM3     LDI    HB          CHECK FOR SYSTEM DAYFILE MESSAGE
03687  M01S03454.tfm     +++|          SHN    21-1
03688  M01S03455.tfm     +++|          PJN    IEM4        IF NOT FOR SYSTEM DAYFILE
03689  M01S03456.tfm     +++|          LDN    0
03690  M01S03457.tfm     +++|          RJM    IDM         ISSUE DAYFILE MESSAGE
03691  M01S03458.tfm     +++| IEM4     LDI    HB          CHECK FOR ERROR LOG MESSAGE
03692  M01S03459.tfm     +++|          SHN    21-2
03693  M01S03460.tfm     +++|          PJN    IEM5        IF NOT FOR ERROR LOG
03694  M01S03461.tfm     +++|          LDN    ERLN/10000
03695  M01S03462.tfm     +++|          RJM    IDM         ISSUE DAYFILE MESSAGE
03696  M01S03463.tfm     +++| IEM5     LDI    HB          CHECK FOR ACCOUNT DAYFILE MESSAGE
03697  M01S03464.tfm     +++|          SHN    21-3
03698  M01S03465.tfm     +++|          PJN    IME6        IF NOT FOR ACCOUNT DAYFILE
03699  M01S03466.tfm     +++|          LDN    ACFN/10000
03700  M01S03467.tfm     +++|          RJM    IDM         ISSUE DAYFILE MESSAGE
03701  M01S03468.tfm     +++| IME6     LDI    HB          CHECK FOR CATALOG BUFFER MESSAGE
03702  M01S03469.tfm     +++|          SHN    21-5
03703  M01S03470.tfm     +++|          PJP    IEMX        IF NOT FOR CATALOG BUFFER
03704  M01S03471.tfm     +++|          LDD    FO
03705  M01S03472.tfm     +++|          RJM    AFA         GET ABSOLUTE FST ADDRESS
03706  M01S03473.tfm     +++|          CRD    T5
03707  M01S03474.tfm     +++|          SBN    1
03708  M01S03475.tfm     +++|          CRD    FN
03709  M01S03476.tfm     +++|          LDD    T5          SET ABSOLUTE TRACK/SECTOR
03710  M01S03477.tfm     +++|          LPC    777
03711  M01S03478.tfm     +++|          STD    T5
03712  M01S03479.tfm     +++|          LDN    1
03713  M01S03480.tfm     +++|          STD    T7
03714  M01S03481.tfm     +++|          LDC    BUF0        SET BUFFER ADDRESS/POINTER
03715  M01S03482.tfm     +++|          STD    BA
03716  M01S03483.tfm     +++|          ADN    2
03717  M01S03484.tfm     +++|          STD    BP
Line S03485 Modification History
M01 (Added by) tfm
M02 (Updated by) t5472
Seq #  *Modification Id* Act 
----------------------------+
03718  M02S03485.t5472   ---|          SETMS  WRITE
Line S00004 Modification History
M01 (Added by) t5472
M02 (Updated by) t5679
Seq #  *Modification Id* Act 
----------------------------+
03719  M02S00004.t5679   ---|          SETMS  IO
03720  M01S00002.t5679   +++|          SETMS  IO,RW
03721  M01S03486.tfm     +++|          LDD    BA
03722  M01S03487.tfm     +++|          RJM    RDS         READ SECTOR
03723  M01S00005.t5472   +++|          MJN    IME8        IF MASS STORAGE ERROR OCCURRED
03724  M01S03488.tfm     +++|          LDM    CWFE,BA
03725  M01S03489.tfm     +++|          RJM    MBP         MOVE BUFFER POINTER
03726  M01S03490.tfm     +++|          LDM    SBST+1,BP   SET ERROR, SUSPEND ACTIVITY FLAGS
03727  M01S03491.tfm     +++|          SCN    FETS
03728  M01S03492.tfm     +++|          LMN    FETS
03729  M01S03493.tfm     +++|          STM    SBST+1,BP
03730  M01S03494.tfm     +++|          LDN    TMMB
03731  M01S03495.tfm     +++|          RJM    MBP         MOVE BUFFER POINTER
03732  M01S03496.tfm     +++|          MMOVE  MBUF,,,BP,MBML*10D
03733  M01S03497.tfm     +++|          LDD    BA
03734  M01S03498.tfm     +++|          RJM    WDS         WRITE SECTOR
03735  M01S00006.t5472   +++|          MJN    IME8        IF MASS STORAGE ERROR OCCURRED
Line S03499 Modification History
M01 (Added by) tfm
M02 (Updated by) t5472
Seq #  *Modification Id* Act 
----------------------------+
03736  M02S03499.t5472   ---|          ENDMS
03737  M01S00007.t5472   +++| IME7     ENDMS              RELEASE CHANNEL
03738  M01S03500.tfm     +++|          LJM    IEMX        RETURN
03739  M01S03501.tfm     +++|
03740  M01S00008.t5472   +++| IME8     RJM    ISM         ISSUE SYSTEM CONTROL POINT MESSAGE
03741  M01S00009.t5472   +++|          UJN    IME7        EXIT
Line S00010 Modification History
M01 (Added by) t5472
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03742  M02S00010.282l826 ---|
Line S03502 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03743  M03S03502.282l826 ---| IEMA     DATA   10H$   CHECK
Line S00039 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03744  M02S00039.282l826 ---| IEMA     DATA   C+$CHECK *TMSDIS,PRE.*+
Line S00040 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03745  M02S00040.282l826 ---|          ERRNG  3*5-*+IEMA  MESSAGE TOO LONG
03746  M01S03503.tfm     +++| IOE      SPACE  4,20
03747  M01S03504.tfm     +++|**        IOE - INFORM OPERATOR OF ERROR.
03748  M01S03505.tfm     +++|*
Line S03506 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03749  M02S03506.nos252  ---|*         ENTRY  (EC) = ERROR CODE.
Line S03507 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03750  M02S03507.nos252  ---|*
Line S03508 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03751  M02S03508.nos252  ---|*         EXIT   (A) = 0 IF MESSAGE SENT TO *A,OPERATOR* DISPLAY.
Line S03509 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03752  M02S03509.nos252  ---|*                    .NE. 0 IF DISPLAY IS INTERLOCKED.
Line S03510 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03753  M02S03510.nos252  ---|*                THE MESSAGE ISSUED FOR NO SCRATCH TAPES IS -
Line S03511 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03754  M02S03511.nos252  ---|*
Line S03512 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03755  M02S03512.nos252  ---|*                    ENTER *LDISTAP,FAM.* NO SCRATCH TAPES
Line S03513 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03756  M02S03513.nos252  ---|*
Line S03514 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03757  M02S03514.nos252  ---|*                OTHERWISE THE MESSAGE IS -
Line S03515 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03758  M02S03515.nos252  ---|*
Line S03516 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03759  M02S03516.nos252  ---|*                    ENTER *LDISTAP,FAM.* TMS CATALOG ERROR
Line S03517 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03760  M02S03517.nos252  ---|*
Line S03518 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03761  M02S03518.nos252  ---|*         USES   T1, CM - CM+4.
03762  M01S00041.nos252  +++|*         EXIT   (A) = 0 IF TAPE CATALOG ERROR EVENT ISSUED.
03763  M01S00042.nos252  +++|*                    .NE. 0 IF UNABLE TO ISSUE EVENT.
03764  M01S00043.nos252  +++|*                *CHECK TMSDIS,FAM* MESSAGE IN A,OPERATOR IF
03765  M01S00044.nos252  +++|*                EVENT IS ISSUED.
03766  M01S00045.nos252  +++|*
03767  M01S00046.nos252  +++|*         USES   CM - CM+4.
03768  M01S03519.tfm     +++|*
03769  M01S03520.tfm     +++|*         MACROS  MONITOR.
03770  M01S03521.tfm     +++|
03771  M01S03522.tfm     +++|
03772  M01S03523.tfm     +++| IOE      SUBR               ENTRY/EXIT
Line S03524 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03773  M02S03524.nos252  ---|          LDC    LDSP        GET OPERATOR DISPLAY BUFFER ADDRESS
Line S03525 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03774  M02S03525.nos252  ---|          CRD    CM
Line S03526 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03775  M02S03526.nos252  ---|          LDD    CM+2
Line S03527 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03776  M02S03527.nos252  ---|          SHN    14
Line S03528 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03777  M02S03528.nos252  ---|          LMD    CM+3
Line S03529 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03778  M02S03529.nos252  ---|          SBN    LODS
Line S03530 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03779  M02S03530.nos252  ---|          STD    CM+4
Line S03531 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03780  M02S03531.nos252  ---|          STM    IOEA+1
Line S03532 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03781  M02S03532.nos252  ---|          SHN    -14
Line S03533 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03782  M02S03533.nos252  ---|          STD    CM+3
Line S03534 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03783  M02S03534.nos252  ---|          LMC    LDCI
Line S03535 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03784  M02S03535.nos252  ---|          STM    IOEA
Line S03536 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03785  M02S03536.nos252  ---|          LDN    0           FLAG SET INTERLOCK
Line S03537 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03786  M02S03537.nos252  ---|          STD    CM+1
Line S03538 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03787  M02S03538.nos252  ---|          STD    CM+2
Line S03539 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03788  M02S03539.nos252  ---|          MONITOR  UTEM      UPDATE TABLE
Line S03540 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03789  M02S03540.nos252  ---|          LDD    CM+1
Line S03541 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03790  M02S03541.nos252  ---|          NJP    IOEX        IF INTERLOCK NOT ACCEPTED
Line S03542 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03791  M02S03542.nos252  ---|          LDD    EC          CHECK ERROR TYPE
Line S03543 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03792  M02S03543.nos252  ---|          SBN    /EMSG/WSA
Line S03544 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03793  M02S03544.nos252  ---|          ZJN    IOE1        IF NO SCRATCH
Line S03545 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03794  M02S03545.nos252  ---|          LDN    IOEE-IOED
Line S03546 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03795  M02S03546.nos252  ---| IOE1     ADC    IOED
Line S03547 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03796  M02S03547.nos252  ---|          STM    IOEB
Line S03548 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03797  M02S03548.nos252  ---|          LDN    2
Line S03549 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03798  M02S03549.nos252  ---|          STD    T1
Line S03550 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03799  M02S03550.nos252  ---| IOEA     LDC    **          SET JSN AND START OF MESSAGE IN BUFFER
Line S03551 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03800  M02S03551.nos252  ---|          CWM    IOEC,TR
Line S03552 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03801  M02S03552.nos252  ---|          CWM    IOED,T1     SET NO SCRATCH MESSAGE IN BUFFER
Line S03553 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03802  M02S03553.nos252  ---|*         CWM    IOEE,T1     (SET CATALOG ERROR MESSAGE IN BUFFER)
Line S03554 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03803  M02S03554.nos252  ---| IOEB     EQU    *-1
Line S03555 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03804  M02S03555.nos252  ---|          LDC    OPRL        SET OPERATOR DISPLAY FLAG
Line S03556 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03805  M02S03556.nos252  ---|          STD    CM+4
Line S03557 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03806  M02S03557.nos252  ---|          LDN    1
Line S03558 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03807  M02S03558.nos252  ---|          STD    CM+1
Line S03559 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03808  M02S03559.nos252  ---|          LDN    0
Line S03560 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03809  M02S03560.nos252  ---|          STD    CM+2
Line S03561 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03810  M02S03561.nos252  ---|          STD    CM+3
Line S03562 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03811  M02S03562.nos252  ---|          LDD    MA
Line S03563 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03812  M02S03563.nos252  ---|          CWM    IOEF,ON
Line S03564 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03813  M02S03564.nos252  ---|          MONITOR  UTEM      UPDATE TABLE
Line S03565 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03814  M02S03565.nos252  ---|          LDN    0
Line S03566 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03815  M02S03566.nos252  ---|          LJM    IOEX        RETURN
Line S03567 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03816  M02S03567.nos252  ---|
Line S03568 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03817  M02S03568.nos252  ---| IOEC     BSS    0
Line S03569 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03818  M02S03569.nos252  ---|          VFD    24/4HSYS ,35/0,1/1  DUMMY JOB SEQUENCE NUMBER
Line S03570 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03819  M02S03570.nos252  ---|          DATA   20HENTER *LDISTAP,FAM.*  FIRST PART OF MESSAGE
Line S03571 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03820  M02S03571.nos252  ---| IOED     DATA   18L NO SCRATCH TAPES   MESSAGE FOR NO SCRATCH
Line S03572 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03821  M02S03572.nos252  ---|          CON    0
Line S03573 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03822  M02S03573.nos252  ---| IOEE     DATA   18L TMS CATALOG ERROR  MESSAGE FOR CATALOG ERROR
Line S03574 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03823  M02S03574.nos252  ---|          CON    0
Line S03575 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03824  M02S03575.nos252  ---| IOEF     VFD    1/0,5/0,6/1,6/59D,42/1  SET OPERATOR DISPLAY
03825  M01S00047.nos252  +++|          LDN    ZERL        BUILD EVENT
03826  M01S00048.nos252  +++|          CRD    CM
03827  M01S00049.nos252  +++|          LDN    /EVT/TCSE
03828  M01S00050.nos252  +++|          STD    CM+4
03829  M01S00051.nos252  +++|          MONITOR  EATM      ISSUE EVENT
03830  M01S00052.nos252  +++|          LDD    CM+0
03831  M01S00053.nos252  +++|          UJN    IOEX        RETURN
03832  M01S00011.t5472   +++| ISM      SPACE  4,10
03833  M01S00012.t5472   +++|**        ISM - ISSUE MESSAGE TO SYSTEM CONTROL POINT.
03834  M01S00013.t5472   +++|*
03835  M01S00014.t5472   +++|*         ENTRY  (EC) = ERROR CODE.
03836  M01S00015.t5472   +++|*
03837  M01S00016.t5472   +++|*         EXIT   MESSAGE POSTED ON LINE 2 OF B DISPLAY FOR
03838  M01S00017.t5472   +++|*                SYSTEM CONTROL POINT.  *GO,SYS.* REQUIRED TO CLEAR IT.
03839  M01S00018.t5472   +++|*
03840  M01S00019.t5472   +++|*         USES   CM - CM+4.
03841  M01S00020.t5472   +++|
03842  M01S00021.t5472   +++|
03843  M01S00022.t5472   +++| ISM      SUBR               ENTRY/EXIT
03844  M01S00023.t5472   +++|          LDD    EC
03845  M01S00024.t5472   +++|          RJM    C2D
03846  M01S00025.t5472   +++|          STM    ISMA+4
03847  M01S00026.t5472   +++|          LDK    ISMA+7
03848  M01S00027.t5472   +++|          STD    AP
03849  M01S00028.t5472   +++|          LDN    0
03850  M01S00029.t5472   +++|          STD    HB
03851  M01S00030.t5472   +++|          RJM    FMM         INSERT FAMILY NAME IN MSG
03852  M01S00031.t5472   +++|          LDD    HB          RE-DIRECT MESSAGE POINTER
03853  M01S00032.t5472   +++|          SBN    1
03854  M01S00033.t5472   +++|          RAD    AP
03855  M01S00034.t5472   +++|          LDD    HB          TERMINATE MESSAGE WITH *.*
03856  M01S00035.t5472   +++|          ZJN    ISM1        IF SPACE IN LOWER 6 BITS
03857  M01S00036.t5472   +++|          LDC    1R.*100-1R *100-1R.+1R
03858  M01S00037.t5472   +++| ISM1     ADN    1R.-1R
03859  M01S00038.t5472   +++|          RAI    AP
03860  M01S00039.t5472   +++|          LDK    NCPL
03861  M01S00040.t5472   +++|          CRD    CM
03862  M01S00041.t5472   +++|          LDD    CM+1
03863  M01S00042.t5472   +++|          ADN    1
03864  M01S00043.t5472   +++|          SHN    7
03865  M01S00044.t5472   +++|          ADK    MS2W        MESSAGE 2 AREA FOR SYSTEM CONTROL POINT
03866  M01S00045.t5472   +++|          CWM    ISMA,TR
03867  M01S00046.t5472   +++|          UJN    ISMX        RETURN
03868  M01S00047.t5472   +++|
03869  M01S00048.t5472   +++| ISMA     DATA   C* TMS ERRXX ON FAM.*
03870  M01S00049.t5472   +++|          BSSZ   3           SPACE FOR 7 CHARACTER FAMILY NAMES
03871  M01S03576.tfm     +++| LFM      SPACE  4,10
03872  M01S03577.tfm     +++|**        LFM - BUILD LOCAL FILE NAME MESSAGE.
03873  M01S03578.tfm     +++|*
03874  M01S03579.tfm     +++|*         SETS THE LOCAL FILE NAME IN THE MESSAGE.
03875  M01S03580.tfm     +++|*
03876  M01S03581.tfm     +++|*         ENTRY  (FN - FN+3) = LOCAL FILE NAME.
03877  M01S03582.tfm     +++|*
03878  M01S03583.tfm     +++|*         CALLS  MVM.
03879  M01S03584.tfm     +++|
03880  M01S03585.tfm     +++|
03881  M01S03586.tfm     +++| LFM      SUBR               ENTRY/EXIT
03882  M01S03587.tfm     +++|          LDD    FN+3        INSURE END OF LFN
03883  M01S03588.tfm     +++|          SCN    77
03884  M01S03589.tfm     +++|          STD    FN+3
03885  M01S03590.tfm     +++|          LDN    FN
03886  M01S03591.tfm     +++|          RJM    MVM         MOVE VARIABLE MESSAGE
03887  M01S03592.tfm     +++|          UJN    LFMX        RETURN
03888  M01S03593.tfm     +++| MMC      SPACE  4,10
03889  M01S03594.tfm     +++|*         MMC - MOVE TO MAGNET CONTROL POINT.
03890  M01S03595.tfm     +++|*
03891  M01S03596.tfm     +++|*         ENTRY  (FC) = FUNCTION CODE.
03892  M01S03597.tfm     +++|*                (UTMS) = REQUEST SUBFUNCTION.
03893  M01S03598.tfm     +++|*
03894  M01S03599.tfm     +++|*         EXIT   CONTROL POINT ASSIGNMENT CHANGE TO MAGNET IF THIS IS
03895  M01S03600.tfm     +++|*                A *VMFS* MAGNET REQUEST.
03896  M01S03601.tfm     +++|*
Line S03602 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03897  M02S03602.282l826 ---|*         USES   CP, T1, CM - CM+4.
03898  M01S00048.282l826 +++|*         USES   CM+1.
03899  M01S03603.tfm     +++|*
Line S03604 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03900  M02S03604.282l826 ---|*         MACROS MONITOR, PAUSE.
03901  M01S00049.282l826 +++|*         MACROS MONITOR.
03902  M01S03605.tfm     +++|
03903  M01S03606.tfm     +++|
03904  M01S03607.tfm     +++| MMC      SUBR               ENTRY/EXIT
03905  M01S03608.tfm     +++|          LDD    FC
03906  M01S03609.tfm     +++|          LMN    MAGF
03907  M01S03610.tfm     +++|          NJN    MMCX        IF NOT MAGNET REQUEST
03908  M01S03611.tfm     +++|          LDM    UTMS
03909  M01S03612.tfm     +++|          LMN    VMFS
03910  M01S03613.tfm     +++|          NJN    MMCX        IF NOT *VMFS*
Line S03614 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03911  M02S03614.282l826 ---|          LDD    MC          MAGNET CONTROL POINTER NUMBER
Line S03615 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03912  M02S03615.282l826 ---|          ZJN    MMCX        IF MAGNET NOT ACTIVE
03913  M01S00050.282l826 +++|          LDK    /COMSCPS/ALCS  SET RETURN TO CALLING CP
03914  M01S03616.tfm     +++|          STD    CM+1
Line S03617 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03915  M02S03617.282l826 ---|          SHN    7           CALCULATE CONTROL POINT ADDRESS
Line S03618 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03916  M02S03618.282l826 ---|          SCN    1
Line S03619 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03917  M02S03619.282l826 ---|          STD    T1
Line S03620 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03918  M02S03620.282l826 ---|          MONITOR  CCAM
Line S03621 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03919  M02S03621.282l826 ---|          LDD    T1          SET CONTROL POINT ADDRESS
Line S03622 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03920  M02S03622.282l826 ---|          STD    CP
Line S03623 Modification History
M01 (Added by) tfm
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03921  M02S03623.282l826 ---|          PAUSE  -STSW       RESET RA AND FL
03922  M01S00051.282l826 +++|          MONITOR  CCAM      RETURN TO MAGNET CP
03923  M01S03624.tfm     +++|          UJN    MMCX        RETURN
03924  M01S03625.tfm     +++| MVM      SPACE  4,10
03925  M01S03626.tfm     +++|**        MVM - MERGE VARIABLE MESSAGE.
03926  M01S03627.tfm     +++|*
03927  M01S03628.tfm     +++|*         *MVM* WILL MERGE VARIABLE LENGTH MESSAGES
03928  M01S03629.tfm     +++|*         TO A ASSEMBLY BUFFER INSURING THAT THERE
03929  M01S03630.tfm     +++|*         WILL BE A SPACE (BLANK) BETWEEN EACH
03930  M01S03631.tfm     +++|*         MERGED MESSAGE. THIS ROUTINE IS USED TO
03931  M01S03632.tfm     +++|*         COMBINE SEVERAL DISJOINTED MESSAGES INTO
03932  M01S03633.tfm     +++|*         ONE COHERENT MESSAGE WHICH IS THEN ISSUED
03933  M01S03634.tfm     +++|*         ACCORDING THE DISPOSITION CODE.
03934  M01S03635.tfm     +++|*
03935  M01S03636.tfm     +++|*         ENTRY  (A) = ADDRESS OF CHARACTER STRING.
03936  M01S03637.tfm     +++|*                (AP) = ASSEMBLY POINTER.
03937  M01S03638.tfm     +++|*                (HB) = HALF BYTE FLAG.
03938  M01S03639.tfm     +++|*
03939  M01S03640.tfm     +++|*         USES   T1.
03940  M01S03641.tfm     +++|*
03941  M01S03642.tfm     +++|
03942  M01S03643.tfm     +++|
03943  M01S03644.tfm     +++| MVM      SUBR               ENTRY/EXIT
03944  M01S03645.tfm     +++|          STD    T1
03945  M01S03646.tfm     +++|          LDD    HB
03946  M01S03647.tfm     +++|          NJN    MVM2        IF NOT FULL WORD
03947  M01S03648.tfm     +++| MVM1     LDI    T1          MOVE FULL BYTE
03948  M01S03649.tfm     +++|          ZJN    MVM4        IF END OF MESSAGE
03949  M01S03650.tfm     +++|          STI    AP
03950  M01S03651.tfm     +++|          LPN    77
03951  M01S03652.tfm     +++|          ZJN    MVM3        IF END OF MESSAGE
03952  M01S03653.tfm     +++|          AOD    T1          ADVANCE TO NEXT BYTE
03953  M01S03654.tfm     +++|          AOD    AP          ADVANCE ASSEMBLY POINTER
03954  M01S03655.tfm     +++|          UJN    MVM1        MOVE NEXT BYTE
03955  M01S03656.tfm     +++|
03956  M01S03657.tfm     +++| MVM2     LDI    T1          MOVE LOWER CHARACTER
03957  M01S03658.tfm     +++|          SHN    -6
03958  M01S03659.tfm     +++|          ZJN    MVM3        IF END OF MESSAGE
03959  M01S03660.tfm     +++|          RAI    AP
03960  M01S03661.tfm     +++|          AOD    AP          ADVANCE ASSEMBLY POINTER
03961  M01S03662.tfm     +++|          LDI    T1          MOVE UPPER CHARACTER
03962  M01S03663.tfm     +++|          LPN    77
03963  M01S03664.tfm     +++|          ZJN    MVM4        IF END OF MESSAGE
03964  M01S03665.tfm     +++|          SHN    6
03965  M01S03666.tfm     +++|          STI    AP
03966  M01S03667.tfm     +++|          AOD    T1
03967  M01S03668.tfm     +++|          UJN    MVM2        MOVE NEXT BYTE
03968  M01S03669.tfm     +++|
03969  M01S03670.tfm     +++| MVM3     LDN    1R          INSERT SPACE IN LOWER BYTE
03970  M01S03671.tfm     +++|          RAI    AP
03971  M01S03672.tfm     +++|          AOD    AP
03972  M01S03673.tfm     +++|          LDN    0
03973  M01S03674.tfm     +++|          UJN    MVM5        TOGGLE HALF BYTE
03974  M01S03675.tfm     +++|
03975  M01S03676.tfm     +++| MVM4     LDC    1R *100     INSERT SPACE IN UPPER BYTE
03976  M01S03677.tfm     +++|          STI    AP
03977  M01S03678.tfm     +++|          LDN    1
03978  M01S03679.tfm     +++| MVM5     STD    HB          TOGGLE HALF BYTE
03979  M01S03680.tfm     +++|          LJM    MVMX        RETURN
03980  M01S03681.tfm     +++| RAM      SPACE  4,10
03981  M01S03682.tfm     +++|**        RAM - BUILD RANDOM ADDRESS MESSAGE.
03982  M01S03683.tfm     +++|*
03983  M01S03684.tfm     +++|*         CONVERTS THE RANDOM ADDRESS TO DISPLAY CODE
03984  M01S03685.tfm     +++|*         AND MOVES IT TO THE ASSEMBLY BUFFER.
03985  M01S03686.tfm     +++|*
03986  M01S03687.tfm     +++|*         ENTRY  (CTSA - CTSA+1) = RANDOM ADDRESS.
03987  M01S03688.tfm     +++|*
03988  M01S03689.tfm     +++|*         CALLS  C2D, MVM.
03989  M01S03690.tfm     +++|
03990  M01S03691.tfm     +++|
03991  M01S03692.tfm     +++| RAM      SUBR               ENTRY/EXIT
03992  M01S03693.tfm     +++|          LDM    CTSA
03993  M01S03694.tfm     +++|          SHN    -6
03994  M01S03695.tfm     +++|          RJM    C2D         CONVERT TWO DIGITS
03995  M01S03696.tfm     +++|          STM    RAMA
03996  M01S03697.tfm     +++|          LDM    CTSA
03997  M01S03698.tfm     +++|          LPN    77
03998  M01S03699.tfm     +++|          RJM    C2D         CONVERT TWO DIGITS
03999  M01S03700.tfm     +++|          STM    RAMA+1
04000  M01S03701.tfm     +++|          LDM    CTSA+1
04001  M01S03702.tfm     +++|          SHN    -6
04002  M01S03703.tfm     +++|          RJM    C2D         CONVERT TWO DIGITS
04003  M01S03704.tfm     +++|          STM    RAMA+2
04004  M01S03705.tfm     +++|          LDM    CTSA+1
04005  M01S03706.tfm     +++|          LPN    77
04006  M01S03707.tfm     +++|          RJM    C2D         CONVERT TWO DIGITS
04007  M01S03708.tfm     +++|          STM    RAMA+3
04008  M01S03709.tfm     +++|          LDC    RAMA
04009  M01S03710.tfm     +++|          RJM    MVM         MOVE VARIABLE MESSAGE
04010  M01S03711.tfm     +++|          LJM    RAMX        RETURN
04011  M01S03712.tfm     +++|
04012  M01S03713.tfm     +++| RAMA     DATA   C*00000000*
04013  M01S03714.tfm     +++| SSE      SPACE  4,10
04014  M01S03715.tfm     +++|**        SSE - SET SYSTEM EVENT.
04015  M01S03716.tfm     +++|*
04016  M01S03717.tfm     +++|*         ENTRY  (EC) = ERROR CODE.
04017  M01S03718.tfm     +++|*
04018  M01S03719.tfm     +++|*         EXIT   CONTROL POINT EVENT WORD UPDATED.
04019  M01S03720.tfm     +++|*
04020  M01S03721.tfm     +++|*         USES   CN - CN+4.
04021  M01S03722.tfm     +++|
04022  M01S03723.tfm     +++|
04023  M01S03724.tfm     +++| SSE      SUBR               ENTRY/EXIT
04024  M01S03725.tfm     +++|          LDD    CP
04025  M01S03726.tfm     +++|          ADN    TERW
04026  M01S03727.tfm     +++|          CRD    CN
04027  M01S03728.tfm     +++|          LDD    EC
04028  M01S03729.tfm     +++|          LMN    /EMSG/TUA
04029  M01S03730.tfm     +++|          ZJN    SSE1        IF TMS UTILITY ACTIVE
04030  M01S03731.tfm     +++|          LMN    /EMSG/CNF&/EMSG/TUA
04031  M01S03732.tfm     +++|          NJN    SSE2        IF NOT CATALOG NOT FOUND ERROR
04032  M01S03733.tfm     +++| SSE1     LDN    ESUA
04033  M01S03734.tfm     +++|          UJN    SSE3        SET EVENT IN CONTROL POINT
04034  M01S03735.tfm     +++|
04035  M01S03736.tfm     +++| SSE2     LDN    ESVB        VSN BUSY OR WAIT SCRATCH
04036  M01S03737.tfm     +++| SSE3     STD    CN+4        SET EVENT IN CONTROL POINT
04037  M01S03738.tfm     +++|          SHN    -14
04038  M01S03739.tfm     +++|          ADC    FBRT*1000
04039  M01S03740.tfm     +++|          STD    CN+3
04040  M01S03741.tfm     +++|          LDD    CN+2
04041  M01S03742.tfm     +++|          SCN    77
04042  M01S03743.tfm     +++|          ADN    FBRT/10     SET ROLLOUT TIME
04043  M01S03744.tfm     +++|          STD    CN+2
04044  M01S03745.tfm     +++|          LDD    CP
04045  M01S03746.tfm     +++|          ADN    TERW
04046  M01S03747.tfm     +++|          CWD    CN
04047  M01S03748.tfm     +++|          LJM    SSEX        RETURN
04048  M01S03749.tfm     +++| UEP      SPACE  4,10
04049  M01S03750.tfm     +++|**        UEP - USER ERROR PROCESSING.
04050  M01S03751.tfm     +++|*
04051  M01S03752.tfm     +++|*         IF THE USER IS PROCESSING ERRORS, THE ERROR
04052  M01S03753.tfm     +++|*         CODE IS SET IN THE FET. IF THE ERROR IS ONE
04053  M01S03754.tfm     +++|*         THAT THE USER HAS A ROLLOUT OPTION ON, THE
04054  M01S03755.tfm     +++|*         ROLLOUT FLAG IS SET IN FET+0 BIT 17 AND
04055  M01S03756.tfm     +++|*         THE EVENT IS BUILT A ND SET IN *TERW*. IF
04056  M01S03757.tfm     +++|*         THE USER HAS SPECIFIED A ERROR MESSAGE
04057  M01S03758.tfm     +++|*         RETURN BUFFER, THE DETAILED MESSAGE IS
04058  M01S03759.tfm     +++|*         WRITTEN TO THAT BUFFER.
04059  M01S03760.tfm     +++|*
04060  M01S03761.tfm     +++|*         ENTRY  (EC) = ERROR CODE.
04061  M01S03762.tfm     +++|*                (MBUF) = ASSEMBLED ERROR MESSAGE.
04062  M01S03763.tfm     +++|*
04063  M01S03764.tfm     +++|*         USES   CM - CM+4, CN - CN+4, T1 - T3.
04064  M01S03765.tfm     +++|
04065  M01S03766.tfm     +++|
04066  M01S03767.tfm     +++| UEP      SUBR               ENTRY/EXIT
04067  M01S03768.tfm     +++|          LDA    IR+3,REL    SET ERROR CODE IN FET
04068  M01S03769.tfm     +++|          CRD    CM
04069  M01S03770.tfm     +++|          LDD    CM+3
04070  M01S03771.tfm     +++|          SCN    77
04071  M01S03772.tfm     +++|          STD    CM+3
04072  M01S03773.tfm     +++|          LDD    CM+4
04073  M01S03774.tfm     +++|          LPC    777
04074  M01S03775.tfm     +++|          STD    CM+4
04075  M01S03776.tfm     +++|          LDD    EC
04076  M01S03777.tfm     +++|          SHN    21-2
04077  M01S03778.tfm     +++|          RAD    CM+3
04078  M01S03779.tfm     +++|          SHN    -6
04079  M01S03780.tfm     +++|          LPC    7000
04080  M01S03781.tfm     +++|          RAD    CM+4
04081  M01S03782.tfm     +++|          LDI    EA          CHECK IF ROLLABLE ERROR
04082  M01S03783.tfm     +++|          SHN    21-3
04083  M01S03784.tfm     +++|          PJN    UEP1        IF NON-ROLLABLE ERROR
04084  M01S03785.tfm     +++|          RJM    SSE         SET SYSTEM EVENT
04085  M01S03786.tfm     +++|          LDD    CM+3        SET ROLLOUT EVENT FLAG
04086  M01S03787.tfm     +++|          LMN    40
04087  M01S03788.tfm     +++|          STD    CM+3
04088  M01S03789.tfm     +++| UEP1     LDA    IR+3,REL    REWRITE FET+0
04089  M01S03790.tfm     +++|          CWD    CM
04090  M01S03791.tfm     +++|          ADN    TFEA
04091  M01S03792.tfm     +++|          CRD    CM
04092  M01S03793.tfm     +++|          LDA    CM+3,ABS
04093  M01S03794.tfm     +++|          ZJP    UEPX        IF NO USER MESSAGE BUFFER
04094  M01S03795.tfm     +++|          LDC    MBUF        COPY ERROR MESSAGE
04095  M01S03796.tfm     +++|          STD    T1
04096  M01S03797.tfm     +++|          LDN    5           SET BYTES PER WORD
04097  M01S03798.tfm     +++|          STD    T2
04098  M01S03799.tfm     +++|          LDN    1
04099  M01S03800.tfm     +++|          STD    T3          INITIALIZE CM WORD COUNT
04100  M01S03801.tfm     +++| UEP2     LDI    T1          SEARCH FOR END OF MESSAGE
04101  M01S03802.tfm     +++|          ZJN    UEP3        IF ZERO BYTE FOUND
04102  M01S03803.tfm     +++|          AOD    T1
04103  M01S03804.tfm     +++|          SOD    T2
04104  M01S03805.tfm     +++|          NJN    UEP2        IF NOT FULL CM WORD
04105  M01S03806.tfm     +++|          AOD    T3
04106  M01S03807.tfm     +++|          LDN    5
04107  M01S03808.tfm     +++|          STD    T2          RESET BYTES PER WORD
04108  M01S03809.tfm     +++|          UJN    UEP2        CONTINUE TO END OF MESSAGE
04109  M01S03810.tfm     +++|
04110  M01S03811.tfm     +++| UEP3     AOD    T1          CLEAR REMAINDER OF MESSAGE TO FULL WORD
04111  M01S03812.tfm     +++|          SOD    T2
04112  M01S03813.tfm     +++|          ZJN    UEP4        IF FULL CM WORD
04113  M01S03814.tfm     +++|          LDN    0
04114  M01S03815.tfm     +++|          STI    T1          CLEAR MESSAGE TAIL
04115  M01S03816.tfm     +++|          UJN    UEP3        LOOP FOR FULL CM WORD
04116  M01S03817.tfm     +++|
04117  M01S03818.tfm     +++| UEP4     LDA    IR+3,REL    WRITE TO USERS MESSAGE BUFFER
04118  M01S03819.tfm     +++|          ADN    TFEA
04119  M01S03820.tfm     +++|          CRD    CM
04120  M01S03821.tfm     +++|          LDA    CM+3,REL
04121  M01S03822.tfm     +++|          CWM    MBUF,T3     SEND MESSAGE TO CENTRAL
04122  M01S03823.tfm     +++|          LJM    UEPX        RETURN
04123  M01S03824.tfm     +++| UNM      SPACE  4,10
04124  M01S03825.tfm     +++|**        UNM - BUILD USERNAME MESSAGE.
04125  M01S03826.tfm     +++|*
04126  M01S03827.tfm     +++|*         SETS THE USERNAME IN THE MESSAGE.
04127  M01S03828.tfm     +++|*
04128  M01S03829.tfm     +++|*         ENTRY  PBUN - PBUN+3) = USERNAME.
04129  M01S03830.tfm     +++|*
04130  M01S03831.tfm     +++|*         CALLS  MVM.
04131  M01S03832.tfm     +++|
04132  M01S03833.tfm     +++|
04133  M01S03834.tfm     +++| UNM      SUBR               ENTRY/EXIT
04134  M01S03835.tfm     +++|          LDM    PBUN+3      INSURE END OF USERNAME
04135  M01S03836.tfm     +++|          SCN    77
04136  M01S03837.tfm     +++|          STM    PBUN+3
04137  M01S03838.tfm     +++|          LDC    PBUN
04138  M01S03839.tfm     +++|          RJM    MVM         MOVE VARIABLE MESSAGE
04139  M01S03840.tfm     +++|          UJN    UNMX        RETURN
04140  M01S03841.tfm     +++| VSM      SPACE  4,10
04141  M01S03842.tfm     +++|**        VSM - BUILD VSN MESSAGE.
04142  M01S03843.tfm     +++|*
04143  M01S03844.tfm     +++|*         SETS THE VSN IN THE MESSAGE.
04144  M01S03845.tfm     +++|*
04145  M01S03846.tfm     +++|*         ENTRY  (PESN - PESN+2) = EXTERNAL VSN.
04146  M01S03847.tfm     +++|*
04147  M01S03848.tfm     +++|*         CALLS  MVM.
04148  M01S03849.tfm     +++|
04149  M01S03850.tfm     +++|
04150  M01S03851.tfm     +++| VSM      SUBR               ENTRY/EXIT
04151  M01S03852.tfm     +++|          MMOVE  PESN,,VSMA+2,,VSKL
04152  M01S03853.tfm     +++|          LDC    VSMA
04153  M01S03854.tfm     +++|          RJM    MVM         MOVE VARIABLE MESSAGE
04154  M01S03855.tfm     +++|          UJN    VSMX        RETURN
04155  M01S03856.tfm     +++|
04156  M01S03857.tfm     +++| VSMA     DATA   C*VSN XXXXXX*
04157  M01S03858.tfm     +++|          SPACE  4,10
04158  M01S03859.tfm     +++|**        COMMON DECKS.
04159  M01S03860.tfm     +++|
04160  M01S03861.tfm     +++|
04161  M01S03862.tfm     +++| MVM$     EQU    1           DEFINE MVM - MOVE VARIABLE MESSAGE
04162  M01S03863.tfm     +++| RCL$     EQU    1           DEFINE RCL - PP RECALL
04163  M01S03864.tfm     +++|*CALL     COMPTFM
04164  M01S03865.tfm     +++|*CALL     COMPC2D
04165  M01S00024.274l797 +++|          TITLE  ERROR MESSAGES.
04166  M01S03866.tfm     +++| EMSG     SPACE  4,15
04167  M01S03867.tfm     +++|**        ERROR MESSAGES.
04168  M01S03868.tfm     +++|*
04169  M01S03869.tfm     +++|*         FORMAT (BYTE 0), ERROR DISPOSITION FLAGS.
04170  M01S03870.tfm     +++|*                (BYTE 1), MESSAGE TYPE AND DESTINATION FLAGS.
04171  M01S03871.tfm     +++|*                (BYTE 2), FIRST WORD ADDRESS OF MESSAGE.
04172  M01S03872.tfm     +++|*
04173  M01S03873.tfm     +++|*         MESSAGE DISPOSITION FLAGS.
04174  M01S03874.tfm     +++|*                0001 = HANG PPU.
04175  M01S03875.tfm     +++|*                0002 = CALL TFSP TO A CONTROL POINT.
04176  M01S03876.tfm     +++|*                0004 = UNCONDITIONAL ABORT OF USER CONTROL POINT.
04177  M01S03877.tfm     +++|*                0010 = ROLLOUT USER CONTROL POINT.
04178  M01S03878.tfm     +++|*                0020 = RESERVED.
04179  M01S03879.tfm     +++|*                0040 = RANDOM ADDRESS MESSAGE.
04180  M01S03880.tfm     +++|*                0100 = USERNAME MESSAGE.
04181  M01S03881.tfm     +++|*                0200 = VSN MESSAGE.
04182  M01S03882.tfm     +++|*                0400 = LOCAL FILE NAME MESSAGE.
04183  M01S03883.tfm     +++|*                1000 = FILE NAME MESSAGE.
04184  M01S03884.tfm     +++|*                2000 = FAMILY NAME MESSAGE.
04185  M01S03885.tfm     +++|*                4000 = EQUIPMENT MESSAGE.
04186  M01S03886.tfm     +++|*
04187  M01S03887.tfm     +++|*         MESSAGE DESTINATION CODES.
04188  M01S03888.tfm     +++|*                0001 = SEND TO CONTROL POINT DAYFILE.
04189  M01S03889.tfm     +++|*                0002 = SEND TO SYSTEM DAYFILE.
04190  M01S03890.tfm     +++|*                0004 = SEND TO SYSTEM ERROR LOG.
04191  M01S03891.tfm     +++|*                0010 = SEND TO ACCOUNT DAYFILE.
04192  M01S03892.tfm     +++|*                0020 = SEND TO E,P DISPLAY IF UNIT ASSIGNED.
04193  M01S03893.tfm     +++|*                0040 = SEND TO CATALOG MESSAGE BUFFER.
04194  M01S03894.tfm     +++|*                0100 = RESERVED.
04195  M01S03895.tfm     +++|*                0200 = RESERVED.
04196  M01S03896.tfm     +++|*                0400 = RESERVED.
04197  M01S03897.tfm     +++|*                1000 = RESERVED.
04198  M01S03898.tfm     +++|*                2000 = RESERVED.
04199  M01S03899.tfm     +++|*                4000 = RESERVED.
04200  M01S03900.tfm     +++|
04201  M01S03901.tfm     +++|
04202  M01S03902.tfm     +++| EMSG     EMSG   BEGIN
04203  M01S03903.tfm     +++|
04204  M01S03904.tfm     +++| VBS      EMSG   0210,0001,(BUSY.)
04205  M01S03905.tfm     +++| LNF      EMSG   0400,0001,(NOT FOUND.)
04206  M01S03906.tfm     +++| FNF      EMSG   1000,0001,(NOT FOUND.)
04207  M01S03907.tfm     +++| VNF      EMSG   0200,0001,(NOT FOUND.)
04208  M01S03908.tfm     +++| UNF      EMSG   0100,0001,(NOT FOUND.)
04209  M01S03909.tfm     +++| NMT      EMSG   0400,0001,(NOT ON MAGNETIC TAPE.)
04210  M01S03910.tfm     +++| VSR      EMSG   0200,0001,(RESERVED.)
04211  M01S03911.tfm     +++| VSD      EMSG   0200,0000,(DUPLICATE.)
04212  M01S03912.tfm     +++| FAR      EMSG   1000,0001,(ALREADY RESERVED.)
04213  M01S03913.tfm     +++| VAR      EMSG   0200,0001,(ALREADY RESERVED.)
04214  M01S03914.tfm     +++| DLK      EMSG   0200,0006,(DEADLOCK.)
Line S03915 Modification History
M01 (Added by) tfm
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
04215  M02S03915.nos252  ---| ILR      EMSG   0000,0001,(TFM INVALID REQUEST.)
04216  M01S00054.nos252  +++| ILR      EMSG   0000,0001,(TFM INCORRECT REQUEST.)
04217  M01S03916.tfm     +++| TMD      EMSG   0000,0001,(TMS DISABLED.)
04218  M01S03917.tfm     +++| MNA      EMSG   0000,0001,(MAGNET NOT ACTIVE.)
04219  M01S03918.tfm     +++| EBP      EMSG   2006,0047,(ERRONEOUS BUFFER POINTER.)
04220  M01S03919.tfm     +++| TUA      EMSG   0010,0001,(TMS UTILITY ACTIVE.)
04221  M01S03920.tfm     +++| BAE      EMSG   0000,0001,(BUFFER ARGUMENT ERROR.)
04222  M01S03921.tfm     +++| EID      EMSG   0000,0001,(ERROR IN INDEX DATA.)
04223  M01S03922.tfm     +++| ECD      EMSG   0000,0001,(ERROR IN CATALOG DATA.)
04224  M01S03923.tfm     +++| EAD      EMSG   0000,0001,(ERROR IN ADMIT DATA.)
04225  M01S03924.tfm     +++| RAE      EMSG   0046,0041,(RANDOM ADDRESS ERROR.)
04226  M01S03925.tfm     +++| TKL      EMSG   4000,0006,(TRACK LIMIT.)
04227  M01S03926.tfm     +++| MSE      EMSG   4004,0046,(MASS STORAGE ERROR.)
04228  M01S03927.tfm     +++| CNF      EMSG   2010,0007,(TAPE CATALOG NOT FOUND.)
04229  M01S03928.tfm     +++| ECF      EMSG   0000,0001,(EMPTY CATALOG.)
04230  M01S03929.tfm     +++| CLE      EMSG   2006,0047,(CATALOG LINKAGE ERROR.)
04231  M01S03930.tfm     +++| IOS      EMSG   0004,0001,(I/O SEQUENCE ERROR ON CATALOG.)
04232  M01S03931.tfm     +++| EOI      EMSG   0001,0007,(EOI NOT ON TRACK CHAIN.)
04233  M01S03932.tfm     +++| NAE      EMSG   0000,0001,(NO ADMITS.)
04234  M01S03933.tfm     +++| TPI      EMSG   0000,0001,(TMS PROCESSING INHIBITED.)
04235  M01S03934.tfm     +++| SFA      EMSG   2010,0001,(ACTIVITY SUSPENDED.)
04236  M01S03935.tfm     +++| FCE      EMSG   2004,0001,(TAPE CATALOG ERROR.)
04237  M01S03936.tfm     +++| WSA      EMSG   0012,0001,(WAIT SCRATCH ASSIGNMENT.)
04238  M01S03937.tfm     +++| NEU      EMSG   0004,0001,(NO EXTEND ON USER OWNED FILE.)
04239  M01S03938.tfm     +++| WRF      EMSG   0000,0001,(WRITE REQUEST ON READ-ONLY FILE.)
04240  M01S03939.tfm     +++| MPE      EMSG   0000,0001,(MULTI-FILE PROCESSING ERROR.)
04241  M01S03940.tfm     +++| FCI      EMSG   0000,0001,(FILE CREATION NOT ALLOWED.)
04242  M01S03941.tfm     +++| EFD      EMSG   0000,0001,(ERROR IN FILE DATA.)
04243  M01S03942.tfm     +++| CNA      EMSG   0000,2010,(LINKED CATALOG NOT ACCESSIBLE.)
04244  M01S03943.tfm     +++|
04245  M01S03944.tfm     +++| EMSG     EMSG   END
04246  M01S03945.tfm     +++|
04247  M01S03946.tfm     +++|
04248  M01S03947.tfm     +++| CBUF     SPACE  4,10
04249  M01S03948.tfm     +++|***       BUFFERS.
04250  M01S03949.tfm     +++|
04251  M01S03950.tfm     +++|
04252  M01S03951.tfm     +++| MBUF     BSS    40
04253  M01S03952.tfm     +++|          SPACE  4,10
04254  M01S03953.tfm     +++|          USE    //          FORCE LITERALS
04255  M01S03954.tfm     +++|
04256  M01S03955.tfm     +++|
04257  M01S03956.tfm     +++|          ERRNG  BUF0-*      BYTES LEFT BEFORE BUFFER OVERFLOW
Line S03957 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04258  M02S03957.274l797 ---|          OVERLAY (SUBFUNCTION ISFS.),OVL1
04259  M01S00025.274l797 +++|          OVERLAY (INITIALIZE FAMILY TAPE CATALOG.),OVL1
04260  M01S03958.tfm     +++|          SPACE  4
04261  M01S03959.tfm     +++|***       LOCAL DIRECT CELL LOCATIONS.
04262  M01S03960.tfm     +++|
04263  M01S03961.tfm     +++|
Line S03962 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04264  M02S03962.274l797 ---| IL       EQU    S1          CLEAR INTERLOCK FLAG
04265  M01S00026.274l797 +++| TT       EQU    S1          TAPE TYPE (0=MT/NT, 1=CT, 3=AT)
04266  M01S03963.tfm     +++| NV       EQU    S1+1 - S1+3 NEXT VOLUME
04267  M01S03964.tfm     +++| IC       EQU    S1+1        INITIAL CATALOG FLAG
04268  M01S03965.tfm     +++| RC       EQU    S1+2        REEL COUNT
04269  M01S00010.ns2763  +++| SV       EQU    S1+4        SYSTEM VSN FLAG
04270  M01S03966.tfm     +++| CV       EQU    S2          CURRENT VSN POINTER
04271  M01S03967.tfm     +++| PV       EQU    S3          PREVIOUS SCRATCH VSN POINTER
Line S03968 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04272  M02S03968.274l797 ---| ISFS     SPACE  4,10
04273  M01S00027.274l797 +++|          SPACE  4,10
04274  M01S00028.274l797 +++|***       BUFFER ALLOCATION.
04275  M01S00029.274l797 +++|*
04276  M01S00030.274l797 +++|*         THE FOLLOWING BUFFER IS CREATED BY THIS OVERLAY, AND IS
04277  M01S00031.274l797 +++|*         USED BY THE *ISFS* POSTPROCESSOR OVERLAY.
04278  M01S00032.274l797 +++|
04279  M01S00033.274l797 +++|
04280  M01S00034.274l797 +++| TSPW     BSS    0           TABLE OF SCRATCH POOL WORDS
04281  M01S00035.274l797 +++|*                            (INDEXED BY TAPE TYPE)
04282  M01S00036.274l797 +++|          VFD    36/-0,24/0
04283  M01S00037.274l797 +++|          VFD    36/-0,24/0
04284  M01S00038.274l797 +++|          VFD    36/-0,24/0
04285  M01S00039.274l797 +++|          VFD    36/-0,24/0
04286  M01S00040.274l797 +++|
04287  M01S00041.274l797 +++| OVL2     EQU    *+2         LOAD ADDRESS FOR *ISFS* POSTPROCESSOR
04288  M01S00042.274l797 +++| ISFS     SPACE  4,30
04289  M01S03969.tfm     +++|***       ISFS - INITIALIZE FAMILY TAPE CATALOG.
04290  M01S03970.tfm     +++|*
04291  M01S03971.tfm     +++|*         ENTRY  (IR - IR+3) = FET ADDRESS -
04292  M01S03972.tfm     +++|*
04293  M01S03973.tfm     +++|*T FET+0  42/ FILE NAME,1/ R,8/ AT,6/ CODE,3/ ST
Figure FET+0

0238916171829 ST CODE AT R FILE NAME3059 FILE NAME

04294  M01S03974.tfm     +++|*T,   +1  15/ 0,1/ EP, 27/ 0,18/ 0
Figure +1

0171829 0 03044454659 0 EP 0

04295  M01S03975.tfm     +++|*T,   +2  60/ 0
Figure +2

029 03059 0

04296  M01S03976.tfm     +++|*T,   +3  60/ 0
Figure +3

029 03059 0

04297  M01S03977.tfm     +++|*T,   +4  12/ FNT,30/ 0,18/ 0
Figure +4

0171829 0 030474859 0 FNT

04298  M01S03978.tfm     +++|*T,   +5  42/ 0,18/ EADD
Figure +5

0171829 EADD 03059 0

04299  M01S03979.tfm     +++|*T,   +6  60/ 0
Figure +6

029 03059 0

04300  M01S03980.tfm     +++|*T,   +7  46/ 0,2/ OP,12/ 0
Figure +7

01112131429 0 OP 03059 0

04301  M01S03981.tfm     +++|*
04302  M01S03982.tfm     +++|*         OP = PROCESSING OPTION.
04303  M01S03983.tfm     +++|*              0 = REORDER SCRATCH ONLY (*TFSP* *ISV* DIRECTIVE).
04304  M01S03984.tfm     +++|*              1 = REORDER SCRATCH AND CLEAR ALL INTERLOCKS (FIRST
04305  M01S03985.tfm     +++|*                  *ISF* ON DEVICE).
04306  M01S03986.tfm     +++|*              2 = REORDER SCRATCH AND CLEAR CURRENT AND INACTIVE
04307  M01S03987.tfm     +++|*                  MACHINE INTERLOCKS (*ISF* LINK TO SHARED DEVICE).
04308  M01S03988.tfm     +++|*              3 = REORDER SCRATCH AND CLEAR INACTIVE MACHINE
04309  M01S03989.tfm     +++|*                  INTERLOCKS (*TFSPR* COMMAND).
04310  M01S03990.tfm     +++|*
Line S03991 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04311  M02S03991.274l797 ---|*         USES   CM - CM+4.
04312  M01S00043.274l797 +++|*         USES   TT, T2, CV - CV+4, PV - PV+4.
04313  M01S03992.tfm     +++|*
Line S03993 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04314  M02S03993.274l797 ---|*         CALLS  CFB, GNB, GNL, MBP, PRS, RRP, SEI, TBA, WRP.
04315  M01S00044.274l797 +++|*         CALLS  CFB, GNB, GNL, MBP, PRS, RVB, TBA, WRP.
04316  M01S03994.tfm     +++|*
Line S03995 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04317  M02S03995.274l797 ---|*         MACROS CLEAR, MMOVE, MONITOR, RESTP.
04318  M01S00045.274l797 +++|*         MACROS EXOVL, MMOVE.
04319  M01S03996.tfm     +++|
04320  M01S03997.tfm     +++|
04321  M01S03998.tfm     +++| ISF      ENTRY              ENTRY/EXIT
04322  M01S03999.tfm     +++|          RJM    PRS         PRESET
Line S04000 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04323  M02S04000.274l797 ---|          LDI    BP
04324  M01S00046.274l797 +++| ISF0     LDI    BP
04325  M01S04001.tfm     +++|          ZJN    ISF2        IF NO ENTRIES IN FIRST VSN BLOCK
04326  M01S04002.tfm     +++| ISF1     RJM    CFB         CHECK FILE BUSY
04327  M01S04003.tfm     +++|          LDM    CWEL,BA     POSITION TO NEXT INDEX
04328  M01S04004.tfm     +++|          RJM    MBP         MOVE BUFFER POINTER
04329  M01S04005.tfm     +++|          MJN    ISF2        IF MOVE OUTSIDE BUFFER
04330  M01S04006.tfm     +++|          LDI    BP
04331  M01S04007.tfm     +++|          NJN    ISF1        IF NOT END OF INDEX
04332  M01S04008.tfm     +++| ISF2     LDC    0           NO BUFFER REWRITE
04333  M01S04009.tfm     +++|*         LDC    1           (IF BUFFER REWRITE)
04334  M01S04010.tfm     +++| ISFA     EQU    *-1
04335  M01S04011.tfm     +++|          ZJN    ISF3        IF NO BUFFER REWRITE
04336  M01S04012.tfm     +++|          RJM    WRP         WRITE RANDOM PRU
04337  M01S04013.tfm     +++|          LDN    0           CLEAR BUFFER REWRITE NEEDED
04338  M01S04014.tfm     +++|          STM    ISFA
04339  M01S04015.tfm     +++| ISF3     RJM    GNL         GET NEXT LINK
04340  M01S04016.tfm     +++|          ZJN    ISF5        IF BLOCK NOT LINKED
04341  M01S04017.tfm     +++|          LDC    0           NO BUFFER SWITCH
04342  M01S04018.tfm     +++|*         LDC    1           (BUFFER SWITCH)
04343  M01S04019.tfm     +++| ISFB     EQU    *-1
04344  M01S04020.tfm     +++|          ZJN    ISF4        IF NO BUFFER SWITCH
04345  M01S04021.tfm     +++|          LDN    0           CLEAR BUFFER SWITCH NEEDED
04346  M01S04022.tfm     +++|          STM    ISFB
04347  M01S04023.tfm     +++|          RJM    TBA         TOGGLE BUFFER ASSIGNMENT
04348  M01S04024.tfm     +++| ISF4     RJM    GNB         GET NEXT BLOCK
04349  M01S04025.tfm     +++|          LDM    CWFE,BA     SKIP BLOCK CONTROL WORDS
04350  M01S04026.tfm     +++|          RJM    MBP         MOVE BUFFER POINTER
04351  M01S04027.tfm     +++|          LJM    ISF1        SEARCH INDEX BUFFER
04352  M01S04028.tfm     +++|
Line S04029 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04353  M02S04029.274l797 ---| ISF5     RESTP  CPSB        REREAD SYSTEM BLOCK
04354  M01S00047.274l797 +++| ISF5     LDD    TT
04355  M01S00048.274l797 +++|          SHN    21-13
04356  M01S00049.274l797 +++|          MJP    ISF7        IF NO VSN ENTRIES OF ANY TYPE FOUND
04357  M01S00050.274l797 +++|          LDD    TT          SAVE SCRATCH POOL WORD FOR THIS TAPE TYPE
04358  M01S00051.274l797 +++|          SHN    2
04359  M01S00052.274l797 +++|          ADD    TT
04360  M01S00053.274l797 +++|          ADC    TSPW
04361  M01S00054.274l797 +++|          STD    T2
04362  M01S00055.274l797 +++|          MMOVE  PESN,,,,10D
04363  M01S00056.274l797 +++|          LCN    0           CLEAR *VSN ENTRY FOUND* FLAG FOR TAPE TYPE
04364  M01S00057.274l797 +++|          STM    ISFC,TT
04365  M01S00058.274l797 +++|          LDN    4           CHECK FOR OTHER TAPE TYPES TO PROCESS
04366  M01S00059.274l797 +++|          STD    TT
04367  M01S00060.274l797 +++| ISF6     SOD    TT          CHECK NEXT TAPE TYPE
04368  M01S00061.274l797 +++|          MJP    ISF7        IF NO MORE TAPE TYPES
04369  M01S00062.274l797 +++|          LDM    ISFC,TT
04370  M01S00063.274l797 +++|          ZJN    ISF6        IF NO VSN ENTRIES FOUND FOR THIS TAPE TYPE
04371  M01S00064.274l797 +++|          SHN    21-13
Line S04030 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04372  M02S04030.274l797 ---|          RJM    RRP         READ RANDOM PRU
Line S04031 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04373  M02S04031.274l797 ---|          RJM    SEI         SET EOI SECTOR LOCATION
Line S04032 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04374  M02S04032.274l797 ---|          STM    SBTC,BP     SET TRACK COUNT
Line S04033 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04375  M02S04033.274l797 ---|          LDA    T2,ABS      SET SECTOR COUNT
Line S04034 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04376  M02S04034.274l797 ---|          STM    SBPC+1,BP
Line S04035 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04377  M02S04035.274l797 ---|          SHN    -14
Line S04036 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04378  M02S04036.274l797 ---|          STM    SBPC,BP
Line S04037 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04379  M02S04037.274l797 ---|          MMOVE  PESN,,SBSV,BP,10D  SET SCRATCH VSN POINTER
Line S04038 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04380  M02S04038.274l797 ---|          LDD    IL
Line S04039 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04381  M02S04039.274l797 ---|          ZJN    ISF6        IF NOT CLEARING INTERLOCKS
Line S04040 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04382  M02S04040.274l797 ---|          CLEAR  CWUN,BA,10D CLEAR *TFSP* USER NAME INTERLOCK
Line S04041 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04383  M02S04041.274l797 ---|          LDM    SBST+1,BP   CLEAR UTILITY ACIVE AND SUSPEND FLAGS
Line S04042 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04384  M02S04042.274l797 ---|          SCN    UITS+SATS
Line S04043 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04385  M02S04043.274l797 ---|          STM    SBST+1,BP
Line S04044 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04386  M02S04044.274l797 ---|          LDM    SBST,BP
Line S04045 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04387  M02S04045.274l797 ---|          SCN    FFTS/10000
Line S04046 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04388  M02S04046.274l797 ---|          STM    SBST,BP
Line S04047 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04389  M02S04047.274l797 ---|          LDM    SBID,BP     CHECK MACHINE ID
Line S04048 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04390  M02S04048.274l797 ---|          LMM    MFID
Line S04049 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04391  M02S04049.274l797 ---|          ZJN    ISF6        IF HOME MAINFRAME
Line S04050 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04392  M02S04050.274l797 ---|          LDM    SBST,BP
Line S04051 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04393  M02S04051.274l797 ---|          SCN    GFTS/10000  CLEAR GLOBAL SCRATCH STATUS
Line S04052 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04394  M02S04052.274l797 ---|          LMN    FFTS/10000  SET FOREIGN MAINFRAME
Line S04053 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04395  M02S04053.274l797 ---|          STM    SBST,BP
Line S04054 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04396  M02S04054.274l797 ---| ISF6     RJM    WRP         WRITE SYSTEM BLOCK
Line S04055 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04397  M02S04055.274l797 ---|          LDN    ZERL        POST UTILITY ACTIVE EVENT
Line S04056 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04398  M02S04056.274l797 ---|          CRD    CM
Line S04057 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04399  M02S04057.274l797 ---|          LDN    ESUA
Line S04058 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04400  M02S04058.274l797 ---|          STD    CM+4
Line S04059 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04401  M02S04059.274l797 ---|          MONITOR EATM       ENTER EVENT
Line S04060 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04402  M02S04060.274l797 ---|          LDA    PESN+3      CHECK FOR AVAILABLE SCRATCH
Line S04061 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04403  M02S04061.274l797 ---|          ZJN    ISF7        IF NO SCRATCH
Line S04062 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04404  M02S04062.274l797 ---|          LDN    ZERL
Line S04063 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04405  M02S04063.274l797 ---|          CRD    CM
Line S04064 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04406  M02S04064.274l797 ---|          LDN    ESVB
Line S04065 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04407  M02S04065.274l797 ---|          STD    CM+4
Line S04066 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04408  M02S04066.274l797 ---|          MONITOR  EATM      ENTER EVENT
Line S04067 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04409  M02S04067.274l797 ---| ISF7     LJM    ISFX        RETURN
Line S04068 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04410  M02S04068.274l797 ---|          TITLE  ".Y." SUBROUTINES.
Line S04069 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04411  M02S04069.274l797 ---| CFB      SPACE  4,10
Line S04070 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04412  M02S04070.274l797 ---|**        CFB - CHECK FILE BUSY
04413  M01S00065.274l797 +++|          MJN    ISF6        IF TAPE TYPE ALREADY PROCESSED
04414  M01S00066.274l797 +++|          LDD    MA          RESTORE POINTERS FOR FIRST VSN BLOCK
04415  M01S00067.274l797 +++|          CWM    ISFD,ON
04416  M01S00068.274l797 +++|          SBN    1
04417  M01S00069.274l797 +++|          CRD    CV
04418  M01S00070.274l797 +++|          CWM    ISFE,ON     PRESET PREVIOUS VSN
04419  M01S00071.274l797 +++|          SBN    1
04420  M01S00072.274l797 +++|          CRM    PESN,ON
04421  M01S00073.274l797 +++|          LDN    ZERL        CLEAR PREVIOUS VSN BUFFER POINTERS
04422  M01S00074.274l797 +++|          CRD    PV
04423  M01S00075.274l797 +++|          RJM    RVB         RESTORE VSN BUFFERS
04424  M01S00076.274l797 +++|          LJM    ISF0        SCAN FOR NEXT VSN TYPE
04425  M01S00077.274l797 +++|
04426  M01S00078.274l797 +++| ISF7     EXOVL  ISP         EXECUTE *ISFS* POSTPROCESSOR
04427  M01S00079.274l797 +++|
04428  M01S00080.274l797 +++|
04429  M01S00081.274l797 +++| ISFC     BSSZ   4           TABLE OF *VSN ENTRY FOUND* FLAGS
04430  M01S00082.274l797 +++|*                            (INDEXED BY TAPE TYPE)
04431  M01S00083.274l797 +++|
04432  M01S00084.274l797 +++| ISFD     BSS    5           POINTERS TO FIRST LEVEL-2 VSN BLOCK
04433  M01S00085.274l797 +++|
04434  M01S00086.274l797 +++| ISFE     VFD    36/-0,24/0  DEFAULT VALUE FOR SCRATCH POOL WORD
04435  M01S00087.274l797 +++|          TITLE  SUBROUTINES.
04436  M01S00088.274l797 +++| CFB      SPACE  4,20
04437  M01S00089.274l797 +++|**        CFB - CHECK FILE BUSY.
04438  M01S04071.tfm     +++|*
Line S04072 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04439  M02S04072.274l797 ---|*         ENTRY  (BA) = BUFFER ADDRESS (VSN INDEX)
Line S04073 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04440  M02S04073.274l797 ---|*                (BP) = BUFFER POINTER (VSN INDEX)
Line S04074 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04441  M02S04074.274l797 ---|*                (IL) = CLEAR INTERLOCK STATUS.
04442  M01S00090.274l797 +++|*         ENTRY  (BA) = BUFFER ADDRESS (VSN INDEX).
04443  M01S00091.274l797 +++|*                (BP) = BUFFER POINTER (VSN INDEX).
04444  M01S00092.274l797 +++|*                (TT) = TAPE TYPE (0=MT/NT, 1=CT, 3=AT).
04445  M01S00093.274l797 +++|*                (TT) = 4000, IF NO VSN ENTRY OF ANY TYPE FOUND YET.
04446  M01S04075.tfm     +++|*
04447  M01S04076.tfm     +++|*         EXIT   (BA) = UNCHANGED.
04448  M01S04077.tfm     +++|*                (BP) = UNCHANGED.
04449  M01S00094.274l797 +++|*                (TT) = TAPE TYPE, IF THIS VSN IS THE FIRST VSN ENTRY
04450  M01S00095.274l797 +++|*                  OF ANY TYPE FOUND.
04451  M01S00096.274l797 +++|*                (ISFC) WORD FOR THE VSN-S TAPE TYPE SET NONZERO, IF
04452  M01S00097.274l797 +++|*                  THE VSN IS NOT THE CORRECT TAPE TYPE.
04453  M01S04078.tfm     +++|*
04454  M01S00098.274l797 +++|*         USES   TT, T1.
04455  M01S00099.274l797 +++|*
04456  M01S04079.tfm     +++|*         CALLS  CSV, RLV, RSV, SCP.
04457  M01S04080.tfm     +++|
04458  M01S04081.tfm     +++|
Line S04082 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04459  M02S04082.274l797 ---| CFB5     RJM    CSV         CHECK FOR SCRATCH VOLUME
04460  M01S00100.274l797 +++| CFB8     RJM    CSV         CHECK FOR SCRATCH VOLUME
04461  M01S04083.tfm     +++|
04462  M01S04084.tfm     +++| CFB      SUBR               ENTRY/EXIT
Line S04085 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04463  M02S04085.274l797 ---|          LDD    IL
Line S04086 Modification History
M01 (Added by) tfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04464  M02S04086.274l797 ---|          ZJN    CFB5        IF NOT CLEARING INTERLOCKS
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/tfm.002.txt ยท Last modified: by 127.0.0.1