User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:ldistap.005

Deck LDISTAP Part 005

14 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S02933 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03254  M02S02933.282l826 ---| PRE4     RJ     CSC         CHECK FOR SPECIAL CHARACTER
Line S02934 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03255  M02S02934.282l826 ---|          MBSXTA X6,DPPV,DPPVC,59,DPPVU  SET PHYSICAL VSN
Line S02935 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03256  M02S02935.282l826 ---|
Line S02936 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03257  M02S02936.282l826 ---|*         SET *USERNAM*.
Line S02937 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03258  M02S02937.282l826 ---|
Line S02938 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03259  M02S02938.282l826 ---|          SA1    A0+/MTX/UUFN  GET USER NAME
Line S02939 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03260  M02S02939.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
Line S02940 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03261  M02S02940.282l826 ---|          MBSXTA X6,DPUN,DPUNC,59,DPUNU
Line S02941 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03262  M02S02941.282l826 ---|
Line S02942 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03263  M02S02942.282l826 ---|*         SET *FAMILY*.
Line S02943 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03264  M02S02943.282l826 ---|
Line S02944 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03265  M02S02944.282l826 ---|          MX0    -6          GET FAMILY ORDINAL
Line S02945 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03266  M02S02945.282l826 ---|          SA1    A0+/MTX/UUFN
Line S02946 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03267  M02S02946.282l826 ---|          AX1    12
Line S02947 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03268  M02S02947.282l826 ---|          BX1    -X0*X1
Line S02948 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03269  M02S02948.282l826 ---|          SA1    X1+FBUF     GET FAMILY NAME
Line S02949 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03270  M02S02949.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
Line S02950 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03271  M02S02950.282l826 ---|          MBSXTA X6,DPFM,DPFMC,59,DPFMU  SET FAMILY NAME
Line S02951 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03272  M02S02951.282l826 ---|
Line S02952 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03273  M02S02952.282l826 ---|*         SET *RING*.
Line S02953 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03274  M02S02953.282l826 ---|
Line S02954 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03275  M02S02954.282l826 ---|          MX0    -2          GET RING STATUS
Line S02955 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03276  M02S02955.282l826 ---|          SA1    A0+/MTX/UST4
Line S02956 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03277  M02S02956.282l826 ---|          AX1    3
Line S02957 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03278  M02S02957.282l826 ---|          BX1    -X0*X1
Line S02958 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03279  M02S02958.282l826 ---|          MBSATA X1+TRNG,DPRN,DPRNC,59,DPRNU  SET RING STATUS
Line S02959 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03280  M02S02959.282l826 ---|
Line S02960 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03281  M02S02960.282l826 ---|*         SET *LAB*.
Line S02961 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03282  M02S02961.282l826 ---|
Line S02962 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03283  M03S02962.282l826 ---|          SA1    A0+/MTX/UST2  CHECK LABELLED STATUS
Line S00207 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03284  M02S00207.282l826 ---|          SA1    A0+/MTX/UST2  CHECK LABELED STATUS
Line S02963 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03285  M02S02963.282l826 ---|          LX1    59-11
Line S02964 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03286  M02S02964.282l826 ---|          SX6    3R---
Line S02965 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03287  M03S02965.282l826 ---|          PL     X1,PRE5     IF NOT LABELLED
Line S00208 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03288  M02S00208.282l826 ---|          PL     X1,PRE5     IF NOT LABELED
Line S02966 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03289  M02S02966.282l826 ---|          SX6    3RYES
Line S02967 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03290  M03S02967.282l826 ---| PRE5     MBSXTA X6,DPLB,DPLBC,17,DPLBU  SET LABELLED STATUS
Line S00209 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03291  M02S00209.282l826 ---| PRE5     MBSXTA X6,DPLB,DPLBC,17,DPLBU  SET LABELED STATUS
Line S02968 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03292  M02S02968.282l826 ---|
Line S02969 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03293  M02S02969.282l826 ---|*         SET *LEVEL*.
Line S02970 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03294  M02S02970.282l826 ---|
Line S02971 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03295  M02S02971.282l826 ---|          SA2    SSS         CHECK IF SECURED SYSTEM
Line S02972 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03296  M02S02972.282l826 ---|          SA1    BLANKS
Line S02973 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03297  M02S02973.282l826 ---|          ZR     X2,PRE6     IF NOT SECURED SYSTEM
Line S02974 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03298  M02S02974.282l826 ---|          MX0    -3          GET ACCESS LEVEL
Line S02975 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03299  M02S02975.282l826 ---|          SA1    A0+/MTX/UVRI
Line S02976 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03300  M02S02976.282l826 ---|          AX1    42
Line S02977 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03301  M02S02977.282l826 ---|          BX1    -X0*X1
Line S02978 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03302  M02S02978.282l826 ---|          SA1    X1+TLVL
Line S02979 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03303  M02S02979.282l826 ---| PRE6     MBSATA A1,DPLV,DPLVC,59,DPLVU  SET/CLEAR ACCESS LEVEL
Line S02980 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03304  M02S02980.282l826 ---|
Line S02981 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03305  M02S02981.282l826 ---|*         SET SECOND STATUS MESSAGE.
Line S02982 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03306  M02S02982.282l826 ---|
Line S02983 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03307  M02S02983.282l826 ---|          SX0    17B         GET ERROR CODE
Line S02984 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03308  M02S02984.282l826 ---|          SA1    A0+/MTX/UVSN
Line S02985 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03309  M02S02985.282l826 ---|          AX1    15
Line S02986 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03310  M02S02986.282l826 ---|          BX1    X0*X1
Line S02987 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03311  M02S02987.282l826 ---|          SX2    X1-/MTX/DMB
Line S02988 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03312  M02S02988.282l826 ---|          SA1    X1+TMEM
Line S02989 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03313  M02S02989.282l826 ---|          NZ     X2,PRE8     IF NOT UDT MESSAGE
Line S02990 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03314  M02S02990.282l826 ---|          SA1    A0+/MTX/UMB1
Line S02991 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03315  M02S02991.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
Line S02992 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03316  M02S02992.282l826 ---|          SA6    A1
Line S02993 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03317  M02S02993.282l826 ---|          SA1    A1+B1
Line S02994 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03318  M02S02994.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
Line S02995 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03319  M02S02995.282l826 ---|          SA6    A1
Line S02996 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03320  M02S02996.282l826 ---|          SX1    A0+/MTX/UMB1
Line S02997 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03321  M02S02997.282l826 ---| PRE8     MBSATA X1,DPS2,DPS2C,59,DPS2U  SET SECOND STATUS MESSAGE
Line S02998 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03322  M02S02998.282l826 ---|
Line S02999 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03323  M02S02999.282l826 ---|*         SET THIRD STATUS MESSAGE.
Line S03000 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03324  M02S03000.282l826 ---|
Line S03001 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03325  M02S03001.282l826 ---|          SA1    A0+/MTX/UMB2
Line S03002 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03326  M02S03002.282l826 ---|          NZ     X1,PRE9     IF THIRD STATUS MESSAGE
Line S03003 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03327  M02S03003.282l826 ---|          SA1    BLANKS
Line S03004 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03328  M02S03004.282l826 ---| PRE9     RJ     ZTB         CONVERT ZEROES TO BLANKS
Line S03005 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03329  M02S03005.282l826 ---|          SA6    PREE
Line S03006 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03330  M02S03006.282l826 ---|          SA1    A1+B1
Line S03007 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03331  M02S03007.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
Line S03008 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03332  M02S03008.282l826 ---|          SA6    A6+B1
Line S03009 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03333  M02S03009.282l826 ---|          MBSATA PREE,DPS3,DPS3C,59,DPS3U  SET THIRD STATUS MESSAGE
Line S03010 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03334  M02S03010.282l826 ---|          MOVE   PREBL+PRECL,PREB,X5  SET ENTRY INTO BUFFER
Line S03011 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03335  M02S03011.282l826 ---|          SX5    X5+PREBL+PRECL  INCREMENT DISPLAY BUFFER ADDRESS
Line S03012 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03336  M02S03012.282l826 ---|          SA1    CLN         INCREMENT CURRENT LINE NUMBER
Line S03013 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03337  M02S03013.282l826 ---|          SX6    X1+LPEUP
Line S03014 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03338  M02S03014.282l826 ---|          SA6    A1
Line S03015 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03339  M02S03015.282l826 ---|          SA1    A0          GET NEXT *UDT* ADDRESS
Line S03016 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03340  M02S03016.282l826 ---|          EQ     PRE1        CHECK ADDRESS
Line S03017 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03341  M02S03017.282l826 ---|
Line S03018 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03342  M02S03018.282l826 ---| PRE10    BX1    -X1         GET PREVIEW BUFFER ADDRESS
Line S03019 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03343  M02S03019.282l826 ---|          SA0    X1
Line S03020 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03344  M02S03020.282l826 ---| PRE11    SA1    A0
Line S03021 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03345  M02S03021.282l826 ---|          ZR     X1,PRE16    IF END OF PREVIEW BUFFER
Line S03022 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03346  M02S03022.282l826 ---|          SA1    CLN         CHECK CURRENT LINE NUMBER
Line S03023 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03347  M02S03023.282l826 ---|          SX6    X1+LPEPB-NLPHD-NLPTT-NLPPG-2
Line S03024 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03348  M02S03024.282l826 ---|          PL     X6,PRE16    IF NO MORE LINES IN DISPLAY
Line S03025 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03349  M02S03025.282l826 ---|          SX6    X5+PREAL-DBUF-DBUFL
Line S03026 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03350  M02S03026.282l826 ---|          PL     X6,PRE16    IF NO MORE ROOM IN DISPLAY BUFFER
Line S03027 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03351  M02S03027.282l826 ---|          SX0    PREB
Line S03028 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03352  M02S03028.282l826 ---|          SA1    CLN
Line S03029 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03353  M02S03029.282l826 ---|          RJ     CLY         CONVERT LINE NUMBER TO Y-COORDINATE
Line S03030 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03354  M02S03030.282l826 ---|          MBSATA PREB,DPI2,12,47,47
Line S03031 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03355  M02S03031.282l826 ---|          MBSATA PREB,DPJS,12,47,47
Line S03032 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03356  M02S03032.282l826 ---|
Line S03033 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03357  M02S03033.282l826 ---|*         PRESET TMS/PHYSICAL VSNS.
Line S03034 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03358  M02S03034.282l826 ---|
Line S03035 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03359  M02S03035.282l826 ---|          MX0    12-1        CHECK IF TAPE REQUEST
Line S03036 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03360  M02S03036.282l826 ---|          LX0    -1
Line S03037 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03361  M03S03037.282l826 ---|          SA1    A0+B0
Line S00210 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03362  M02S00210.282l826 ---|          SA1    A0+/MTX/PRST
Line S03038 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03363  M02S03038.282l826 ---|          LX1    42
Line S03039 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03364  M03S03039.282l826 ---|          SRCHTAB  X1,TDDN,0,1,TDDNL
Line S00211 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03365  M02S00211.282l826 ---|          SRCHTAB  X1,TRES,0,1,TRESL
Line S03040 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03366  M02S03040.282l826 ---|          SA3    BLANKS
Line S03041 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03367  M02S03041.282l826 ---|          SA4    BLANKS
Line S03042 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03368  M02S03042.282l826 ---|          NZ     X6,PRE12    IF NOT A TAPE REQUEST
Line S03043 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03369  M03S03043.282l826 ---|          SA2    A0+2        CHECK TMS FLAG
Line S00212 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03370  M02S00212.282l826 ---|          SA2    A0+/MTX/PFLG  CHECK *TMS* FLAG
Line S03044 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03371  M02S03044.282l826 ---|          BX3    X2
Line S03045 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03372  M02S03045.282l826 ---|          LX2    59-23
Line S03046 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03373  M03S03046.282l826 ---|          PL     X2,PRE12    IF TMS
Line S00213 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03374  M02S00213.282l826 ---|          PL     X2,PRE12    IF *TMS*
Line S03047 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03375  M02S03047.282l826 ---|          SA3    =7LNON-TMS
Line S03048 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03376  M02S03048.282l826 ---|          BX4    X3
Line S03049 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03377  M02S03049.282l826 ---| PRE12    BX6    X3          SET *TMS* VSN
Line S03050 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03378  M02S03050.282l826 ---|          SA6    PRED
Line S03051 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03379  M02S03051.282l826 ---|          BX6    X4          SAVE INTENSITY MESSAGE
Line S03052 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03380  M02S03052.282l826 ---|          SA6    PREE
Line S03053 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03381  M02S03053.282l826 ---|
Line S03054 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03382  M02S03054.282l826 ---|*         SET *JSN*.
Line S03055 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03383  M02S03055.282l826 ---|
Line S03056 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03384  M02S03056.282l826 ---|          MX0    -12         GET EJT ORDINAL
Line S03057 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03385  M03S03057.282l826 ---|          SA1    A0+B1
Line S00214 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03386  M02S00214.282l826 ---|          SA1    A0+/MTX/PUID
Line S03058 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03387  M02S03058.282l826 ---|          BX1    -X0*X1
Line S03059 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03388  M02S03059.282l826 ---|          RJ     GEJ         GET EJT ENTRY
Line S03060 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03389  M02S03060.282l826 ---|          MBSATA EBUF+JSNE,DPJS,DPJSC,59,DPJSU  SET JSN
Line S03061 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03390  M02S03061.282l826 ---|
Line S03062 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03391  M02S03062.282l826 ---|*         SET *TMSVSN*.
Line S03063 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03392  M02S03063.282l826 ---|
Line S03064 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03393  M02S03064.282l826 ---|          SA1    PRED
Line S03065 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03394  M02S03065.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
Line S03066 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03395  M02S03066.282l826 ---|          MBSXTA X6,DPTV,DPTVC,59,DPTVU  SET *TMS* VSN
Line S03067 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03396  M02S03067.282l826 ---|          MBSATA PREE,DPI1,DPI1C,59,DPI1U  SET INTENSITY MESSAGES
Line S03068 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03397  M02S03068.282l826 ---|          MBSATA PREE,DPI2,DPI2C,59,DPI2U
Line S03069 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03398  M02S03069.282l826 ---|
Line S03070 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03399  M02S03070.282l826 ---|*         SET OFF-SITE STATUS.
Line S03071 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03400  M02S03071.282l826 ---|
Line S03072 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03401  M02S03072.282l826 ---|          SA1    PRED        GET TMS VSN
Line S03073 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03402  M03S03073.282l826 ---|          MX0    -12         GET FAMILY ORDINAL
Line S03074 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03403  M03S03074.282l826 ---|          SA2    A0+2
Line S00215 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03404  M02S00215.282l826 ---|          MX0    -6          GET FAMILY ORDINAL
Line S00216 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03405  M02S00216.282l826 ---|          SA2    A0+/MTX/PUID
Line S00217 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03406  M02S00217.282l826 ---|          AX2    12
Line S03075 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03407  M02S03075.282l826 ---|          BX2    -X0*X2
Line S03076 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03408  M02S03076.282l826 ---|          RJ     COS         CHECK OFF-SITE STATUS
Line S03077 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03409  M02S03077.282l826 ---|          MBSXTA X1,DPOS,DPOSC,59,DPOSU  SET OFF-SITE FLAG
Line S03078 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03410  M02S03078.282l826 ---|
Line S03079 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03411  M02S03079.282l826 ---|*         SET *STATUS*.
Line S03080 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03412  M02S03080.282l826 ---|
Line S03081 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03413  M02S03081.282l826 ---|          MBSATA (=5HMOUNT),DPS1,DPS1C,59,DPS1U  SET STATUS MESSAGE
Line S03082 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03414  M02S03082.282l826 ---|
Line S03083 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03415  M02S03083.282l826 ---|*         SET *EQ*.
Line S03084 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03416  M02S03084.282l826 ---|
Line S03085 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03417  M02S03085.282l826 ---|          MX0    -17         GET EQUIPMENT TYPE MNEMONIC
Line S03086 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03418  M03S03086.282l826 ---|          SA1    A0+B0
Line S00218 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03419  M02S00218.282l826 ---|          SA1    A0+/MTX/PRST
Line S03087 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03420  M02S03087.282l826 ---|          BX1    -X0*X1
Line S03088 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03421  M02S03088.282l826 ---|          MBSXTA X1,DPEQ,DPEQC,DPEQC-1,DPEQU  SET EQUIPMENT TYPE
Line S03089 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03422  M02S03089.282l826 ---|
Line S03090 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03423  M02S03090.282l826 ---|*         SET UNIT OFF FLAG.
Line S03091 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03424  M02S03091.282l826 ---|
Line S03092 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03425  M03S03092.282l826 ---|          SA1    A0+B0       CHECK UNIT OFF FLAG
Line S00219 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03426  M02S00219.282l826 ---|          SA1    A0+/MTX/PRST  CHECK UNIT OFF FLAG
Line S03093 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03427  M02S03093.282l826 ---|          LX1    59-17
Line S03094 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03428  M02S03094.282l826 ---|          SX6    1R
Line S03095 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03429  M02S03095.282l826 ---|          PL     X1,PRE13    IF NOT UNIT OFF
Line S03096 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03430  M02S03096.282l826 ---|          SX6    1R*
Line S03097 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03431  M02S03097.282l826 ---| PRE13    MBSXTA X6,DPOF,DPOFC,5,DPOFU  SET UNIT OFF FLAG
Line S03098 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03432  M02S03098.282l826 ---|
Line S03099 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03433  M02S03099.282l826 ---|*         SET *PN/VSN*.
Line S03100 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03434  M02S03100.282l826 ---|
Line S03101 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03435  M03S03101.282l826 ---|          SA1    A0+B0       GET VSN/PACKNAME
Line S00220 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03436  M02S00220.282l826 ---|          SA1    A0+/MTX/PRST  GET VSN/PACKNAME
Line S03102 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03437  M02S03102.282l826 ---|          RJ     CSC         CHECK FOR SPECIAL CHARACTERS
Line S03103 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03438  M02S03103.282l826 ---|          MBSXTA X6,DPPV,DPPVC,59,DPPVU  SET VSN/PACKNAME
Line S03104 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03439  M02S03104.282l826 ---|
Line S03105 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03440  M02S03105.282l826 ---|*         SET *USERNAM*.
Line S03106 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03441  M02S03106.282l826 ---|
Line S03107 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03442  M03S03107.282l826 ---|          SA1    A0+B1       GET USER NAME
Line S00221 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03443  M02S00221.282l826 ---|          SA1    A0+/MTX/PUID  GET USER NAME
Line S03108 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03444  M02S03108.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
Line S03109 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03445  M02S03109.282l826 ---|          MBSXTA X6,DPUN,DPUNC,59,DPUNU  SET USER NAME
Line S03110 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03446  M02S03110.282l826 ---|
Line S03111 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03447  M02S03111.282l826 ---|*         SET *FAMILY*.
Line S03112 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03448  M02S03112.282l826 ---|
Line S03113 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03449  M03S03113.282l826 ---|          MX0    -12         GET FAMILY ORDINAL
Line S03114 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03450  M03S03114.282l826 ---|          SA1    A0+2
Line S00222 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03451  M02S00222.282l826 ---|          MX0    -6          GET FAMILY ORDINAL
Line S00223 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03452  M02S00223.282l826 ---|          SA1    A0+/MTX/PUID
Line S00224 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03453  M02S00224.282l826 ---|          AX1    12
Line S03115 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03454  M02S03115.282l826 ---|          BX1    -X0*X1
Line S03116 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03455  M02S03116.282l826 ---|          SA1    X1+FBUF
Line S03117 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03456  M02S03117.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
Line S03118 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03457  M02S03118.282l826 ---|          MBSXTA X6,DPFM,DPFMC,59,DPFMU  SET FAMILY NAME
Line S03119 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03458  M02S03119.282l826 ---|
Line S03120 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03459  M02S03120.282l826 ---|*         SET *RING*.
Line S03121 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03460  M02S03121.282l826 ---|
Line S03122 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03461  M02S03122.282l826 ---|          MX0    -2          GET RING STATUS
Line S03123 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03462  M03S03123.282l826 ---|          SA1    A0+B1
Line S03124 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03463  M03S03124.282l826 ---|          AX1    12
Line S00225 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03464  M02S00225.282l826 ---|          SA1    A0+/MTX/PFLG
Line S03125 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03465  M02S03125.282l826 ---|          BX1    -X0*X1
Line S03126 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03466  M02S03126.282l826 ---|          MBSATA X1+TRNG,DPRN,DPRNC,59,DPRNU  SET RING STATUS
Line S03127 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03467  M02S03127.282l826 ---|
Line S03128 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03468  M02S03128.282l826 ---|*         SET *LAB*.
Line S03129 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03469  M02S03129.282l826 ---|
Line S03130 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03470  M03S03130.282l826 ---|          SA1    A0+B1       CHECK LABELLED STATUS
Line S03131 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03471  M03S03131.282l826 ---|          LX1    59-14
Line S00226 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03472  M02S00226.282l826 ---|          SA1    A0+/MTX/PFLG  CHECK LABELED STATUS
Line S00227 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03473  M02S00227.282l826 ---|          LX1    59-2
Line S03132 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03474  M02S03132.282l826 ---|          SX6    3R---
Line S03133 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03475  M03S03133.282l826 ---|          PL     X1,PRE14    IF NOT LABELLED
Line S00228 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03476  M02S00228.282l826 ---|          PL     X1,PRE14    IF NOT LABELED
Line S03134 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03477  M02S03134.282l826 ---|          SX6    3RYES
Line S03135 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03478  M03S03135.282l826 ---| PRE14    MBSXTA X6,DPLB,DPLBC,DPLBC-1,DPLBU  SET LABELLED STATUS
Line S00229 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03479  M02S00229.282l826 ---| PRE14    MBSXTA X6,DPLB,DPLBC,DPLBC-1,DPLBU  SET LABELED STATUS
Line S03136 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03480  M02S03136.282l826 ---|
Line S03137 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03481  M02S03137.282l826 ---|*         SET *LEVEL*.
Line S03138 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03482  M02S03138.282l826 ---|
Line S03139 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03483  M02S03139.282l826 ---|          SA2    SSS         CHECK FOR SECURED SYSTEM
Line S03140 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03484  M02S03140.282l826 ---|          SA1    BLANKS
Line S03141 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03485  M02S03141.282l826 ---|          ZR     X2,PRE15    IF NOT SECURED SYSTEM
Line S03142 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03486  M02S03142.282l826 ---|          MX0    -3          GET ACCESS LEVEL
Line S03143 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03487  M03S03143.282l826 ---|          SA1    A0+B1
Line S03144 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03488  M03S03144.282l826 ---|          AX1    15
Line S00230 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03489  M02S00230.282l826 ---|          SA1    A0+/MTX/PFLG
Line S00231 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03490  M02S00231.282l826 ---|          AX1    3
Line S03145 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03491  M02S03145.282l826 ---|          BX1    -X0*X3
Line S03146 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03492  M02S03146.282l826 ---|          SA1    X1+TLVL
Line S03147 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03493  M02S03147.282l826 ---| PRE15    MBSATA A1,DPLV,DPLVC,59,DPLVU  SET ACCESS LEVEL
Line S03148 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03494  M02S03148.282l826 ---|          MOVE   PREBL,PREB,X5  SET ENTRY INTO DISPLAY
Line S03149 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03495  M02S03149.282l826 ---|          SX5    X5+PREBL    INCREMENT DISPLAY BUFFER ADDRESS
Line S03150 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03496  M02S03150.282l826 ---|          SA0    A0+PBUFE    INCREMENT PREVIEW BUFFER ADDRESS
Line S03151 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03497  M02S03151.282l826 ---|          SA1    CLN         INCREMENT CURRENT LINE NUMBER
Line S03152 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03498  M02S03152.282l826 ---|          SX6    X1+LPEPB
Line S03153 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03499  M02S03153.282l826 ---|          SA6    A1
Line S03154 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03500  M02S03154.282l826 ---|          EQ     PRE11       CHECK NEXT PREVIEW ENTRY
Line S03155 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03501  M02S03155.282l826 ---|
Line S03156 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03502  M02S03156.282l826 ---| PREA     BSS    0           PREVIEW DISPLAY HEADER
Line S03157 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03503  M02S03157.282l826 ---|          LDISS  1,NLPTT+1
Line S03158 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03504  M02S03158.282l826 ---|          LDIS   4,(JSN )
Line S03159 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03505  M02S03159.282l826 ---|          LDIS   1,( )
Line S03160 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03506  M02S03160.282l826 ---|          LDIS   7,(TMSVSN )
Line S03161 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03507  M02S03161.282l826 ---|          LDIS   6,(STATUS)
Line S03162 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03508  M02S03162.282l826 ---|          LDIS   1,( )
Line S03163 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03509  M02S03163.282l826 ---|          LDIS   3,(EQ )
Line S03164 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03510  M02S03164.282l826 ---|          LDIS   1,( )
Line S03165 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03511  M02S03165.282l826 ---|          LDIS   7,(PN/VSN )
Line S03166 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03512  M02S03166.282l826 ---|          LDIS   1,( )
Line S03167 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03513  M02S03167.282l826 ---|          LDIS   7,(USERNAM)
Line S03168 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03514  M02S03168.282l826 ---|          LDIS   1,( )
Line S03169 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03515  M02S03169.282l826 ---|          LDIS   7,(FAMILY )
Line S03170 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03516  M02S03170.282l826 ---|          LDIS   4,(RING)
Line S03171 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03517  M02S03171.282l826 ---|          LDIS   1,( )
Line S03172 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03518  M02S03172.282l826 ---|          LDIS   3,(LAB)
Line S03173 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03519  M02S03173.282l826 ---|          LDIS   1,( )
Line S03174 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03520  M02S03174.282l826 ---| DPLH     LDIS   7,(LEVEL  ) ACCESS LEVEL HEADER
Line S03175 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03521  M02S03175.282l826 ---|          LDISE
Line S03176 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03522  M02S03176.282l826 ---| PREAL    EQU    *-PREA      PREVIEW DISPLAY HEADER LENGTH
Line S03177 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03523  M02S03177.282l826 ---|
Line S03178 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03524  M02S03178.282l826 ---| PREB     BSS    0           PREVIEW DISPLAY FIRST LINE OF ENTRY
Line S03179 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03525  M02S03179.282l826 ---| DPFCT    EQU    6           FIRST CHARACTER OF *TMSVSN*
Line S03180 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03526  M02S03180.282l826 ---|          LDISS  DPFCT,K+1
Line S03181 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03527  M02S03181.282l826 ---| DPI1     LDIS   7,(NON-TMS) FIRST *TMS* VSN INTENSITY MESSAGE
Line S03182 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03528  M02S03182.282l826 ---|          LDISE
Line S03183 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03529  M02S03183.282l826 ---|          LDISS  DPFCT,K-1
Line S03184 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03530  M02S03184.282l826 ---| DPI2     LDIS   7,(NON-TMS) SECOND *TMS* VSN INTENSITY MESSAGE
Line S03185 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03531  M02S03185.282l826 ---|          LDISE
Line S03186 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03532  M02S03186.282l826 ---|          LDISS  1,K-1
Line S03187 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03533  M02S03187.282l826 ---| DPJS     LDIS   4,(JSNN)    JOB SEQUENCE NUMBER
Line S03188 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03534  M02S03188.282l826 ---| DPOS     LDIS   1,( )       OFF-SITE FLAG
Line S03189 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03535  M02S03189.282l826 ---| DPFCT    EQU    CP+1        FIRST CHARACTER OF *TMSVSN*
Line S03190 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03536  M02S03190.282l826 ---| DPTV     LDIS   7,(NON-TMS) TMS VSN
Line S03191 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03537  M02S03191.282l826 ---|          LDIS   1,( )
Line S03192 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03538  M02S03192.282l826 ---| DPFCS    EQU    CP+1        FIRST CHARACTER POSITION OF SECOND LINE
Line S03193 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03539  M02S03193.282l826 ---| DPTR     LDIS   2,(NT)      TRACK TYPE
Line S03194 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03540  M02S03194.282l826 ---| DPES     LDIS   3,(060)     EST ORDINAL
Line S03195 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03541  M02S03195.282l826 ---|*DPS1     LDIS   5,(MOUNT)   FIRST STATUS MESSAGE
Line S03196 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03542  M02S03196.282l826 ---| DPS1     EQU    DPTR        ADDRESS OF FIRST STATUS MESSAGE
Line S03197 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03543  M02S03197.282l826 ---| DPS1C    EQU    DPTRC+DPESC BIT COUNT OF FIRST STATUS MESSAGE
Line S03198 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03544  M02S03198.282l826 ---| DPS1U    EQU    DPTRU       UPPER BIT POSITION OF FIRST STATUS MESSAGE
Line S03199 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03545  M02S03199.282l826 ---|          LDIS   1,( )
Line S03200 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03546  M02S03200.282l826 ---| DPEQ     LDIS   3,(DJ1)     EQUIPMENT TYPE
Line S03201 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03547  M02S03201.282l826 ---| DPOF     LDIS   1,(*)       UNIT OFF FLAG
Line S03202 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03548  M02S03202.282l826 ---| DPPV     LDIS   7,(PACKNAM) VSN OR PACK NAME
Line S03203 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03549  M02S03203.282l826 ---|          LDIS   1,( )
Line S03204 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03550  M02S03204.282l826 ---| DPUN     LDIS   7,(USERNAM) USER NAME
Line S03205 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03551  M02S03205.282l826 ---|          LDIS   1,( )
Line S03206 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03552  M02S03206.282l826 ---| DPFM     LDIS   7,(FAMNAME) FAMILY NAME
Line S03207 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03553  M02S03207.282l826 ---|          LDIS   1,( )
Line S03208 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03554  M02S03208.282l826 ---| DPRN     LDIS   3,(---)     RING REQUIREMENT
Line S03209 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03555  M02S03209.282l826 ---|          LDIS   1,( )
Line S03210 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03556  M02S03210.282l826 ---| DPLB     LDIS   3,(---)     LABEL REQUIREMENT
Line S03211 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03557  M02S03211.282l826 ---|          LDIS   1,( )
Line S03212 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03558  M02S03212.282l826 ---| DPLV     LDIS   7,(LVL0   ) ACCESS LEVEL
Line S03213 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03559  M02S03213.282l826 ---|          LDISE
Line S03214 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03560  M02S03214.282l826 ---| PREBL    EQU    *-PREB      PREVIEW DISPLAY FIRST LINE LENGTH
Line S03215 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03561  M02S03215.282l826 ---|
Line S03216 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03562  M02S03216.282l826 ---| PREC     BSS    0           PREVIEW DISPLAY SECOND LINE OF ENTRY
Line S03217 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03563  M02S03217.282l826 ---|          LDISS  DPFCS,K
Line S03218 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03564  M02S03218.282l826 ---| DPS2     LDIS   20,(                    )  SECOND STATUS MESSAGE
Line S03219 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03565  M02S03219.282l826 ---|          LDIS   1,( )
Line S03220 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03566  M02S03220.282l826 ---| DPS3     LDIS   20,(                    )  THIRD STATUS MESSAGE
Line S03221 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03567  M02S03221.282l826 ---|          LDISE
Line S03222 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03568  M02S03222.282l826 ---| PRECL    EQU    *-PREC      PREVIEW DISPLAY SECOND LINE LENGTH
Line S03223 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03569  M02S03223.282l826 ---|
Line S03224 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03570  M02S03224.282l826 ---| PRED     BSS    1           *TMSVSN* HOLDER
Line S03225 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03571  M02S03225.282l826 ---| PREE     BSS    1           *TMSVSN* INTENSITY HOLDER
Line S03226 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03572  M02S03226.282l826 ---|
Line S03227 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03573  M02S03227.282l826 ---| NWIPT    SET    PREBL+PRECL
Line S03228 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03574  M02S03228.282l826 ---| NWIPT    MAX    NWIPT*NLPPG/LPEUP,PREBL*NLPPG/LPEPB
Line S03229 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03575  M02S03229.282l826 ---| NWIPD    EQU    NWIPT+PREAL NUMBER OF WORDS IN *PRE* DISPLAY
03576  M01S03230.ldistap +++|          TITLE  SYSTEM STATUS SUBROUTINES.
03577  M01S03231.ldistap +++| CCB      SPACE  4,10
03578  M01S03232.ldistap +++|**        CCB - CLEAR CATALOG BUFFER.
03579  M01S03233.ldistap +++|*
03580  M01S03234.ldistap +++|*         (A0) = ADDRESS OF CATALOG BUFFER.
03581  M01S03235.ldistap +++|*
03582  M01S03236.ldistap +++|*         EXIT   CATALOG BUFFER FIELDS SET TO ZERO.
Line S03237 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03583  M02S03237.274l797 ---|*                NEXT SCRATCH VSN SET TO SIX HYPHENS.
03584  M01S00232.274l797 +++|*                (TMSM) SET TO SIX HYPHENS.
03585  M01S00233.274l797 +++|*                (TMSC) SET TO SIX HYPHENS.
03586  M01S00234.274l797 +++|*                (TMSA) SET TO SIX HYPHENS.
03587  M01S03238.ldistap +++|*
03588  M01S03239.ldistap +++|*         MACROS CLEAR, MBSATA.
03589  M01S03240.ldistap +++|
03590  M01S03241.ldistap +++|
03591  M01S03242.ldistap +++| CCB      SUBR               ENTRY/EXIT
03592  M01S03243.ldistap +++|          CLEAR  A0,SBUFE    CLEAR CATALOG BUFFER
Line S03244 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03593  M02S03244.274l797 ---|          MBSATA HYPHENS,A0+SBCWL+/TFM/TMSV,6*6,59,59  CLEAR SCRATCH
03594  M01S00235.274l797 +++|          MBSATA HYPHENS,A0+SBCWL+/TFM/TMSM,6*6,59,59  *MT/NT* SCRATCH
03595  M01S00236.274l797 +++|          MBSATA HYPHENS,A0+SBCWL+/TFM/TMSC,6*6,59,59  *CT* SCRATCH
03596  M01S00237.274l797 +++|          MBSATA HYPHENS,A0+SBCWL+/TFM/TMSA,6*6,59,59  *AT* SCRATCH
03597  M01S03245.ldistap +++|          EQ     CCBX        RETURN
03598  M01S03246.ldistap +++| CCS      SPACE  4,20
03599  M01S03247.ldistap +++|**        CCS - CHECK CATALOG STATUS.
03600  M01S03248.ldistap +++|*
03601  M01S03249.ldistap +++|*         ENTRY  (A0) = ADDRESS OF CATALOG BUFFER.
03602  M01S03250.ldistap +++|*                (X4) = *CSCFA* IF CATALOG IS FAST-ATTACHED.
03603  M01S03251.ldistap +++|*                     = *CSCFB* IF CATALOG IS BUSY.
03604  M01S03252.ldistap +++|*
03605  M01S03253.ldistap +++|*         EXIT   ((A0)+0) = BIT 47 SET IF CATALOG IS BUSY.
03606  M01S03254.ldistap +++|*                (X4) = *CSERR* IF CATALOG ERROR.
Line S03255 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03607  M02S03255.274l797 ---|*                     = *CSNSV* IF NO SCRATCH VSNS.
03608  M01S00238.274l797 +++|*                     = *CSNSV* IF NO SCRATCH VSNS OF ANY TYPE.
03609  M01S03256.ldistap +++|*                     = *CSCFA* IF NO SPECIAL STATUS.
03610  M01S03257.ldistap +++|*                (CCE) INCREMENTED IF CATALOG ERROR.
Line S03258 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03611  M02S03258.274l797 ---|*                (CNS) INCREMENTED IF NO SCRATCH VSNS.
Line S03259 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03612  M02S03259.274l797 ---|*                NEXT SCRATCH SET TO SIX HYPHENS IF NO SCRATCH VSNS.
03613  M01S00239.274l797 +++|*                (CNSN) INCREMENTED IF NO *MT/NT* SCRATCH VSNS.
03614  M01S00240.274l797 +++|*                (TMSM) SET TO SIX HYPHENS IF NO *MT/NT* SCRATCH VSNS.
03615  M01S00241.274l797 +++|*                (CNSC) INCREMENTED IF NO *CT* SCRATCH VSNS.
03616  M01S00242.274l797 +++|*                (TMSC) SET TO SIX HYPHENS IF NO *CT* SCRATCH VSNS.
03617  M01S00243.274l797 +++|*                (CNSA) INCREMENTED IF NO *AT* SCRATCH VSNS.
03618  M01S00244.274l797 +++|*                (TMSA) SET TO SIX HYPHENS IF NO *AT* SCRATCH VSNS.
03619  M01S03260.ldistap +++|*
Line S03261 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03620  M02S03261.274l797 ---|*         USES   X - 0, 1, 6.
03621  M01S00245.274l797 +++|*         USES   X - 0, 1, 4, 6, 7.
03622  M01S03262.ldistap +++|*                A - 1, 6.
03623  M01S03263.ldistap +++|*
03624  M01S03264.ldistap +++|*         MACROS MBSATA, MBSXTA.
03625  M01S03265.ldistap +++|
03626  M01S03266.ldistap +++|
Line S03267 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03627  M02S03267.274l797 ---| CCS3     SX1    X4-CSNSV
Line S03268 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03628  M02S03268.274l797 ---|          NZ     X1,CCSX     IF SCRATCH VSNS
Line S03269 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03629  M02S03269.274l797 ---|          SA1    CNS         INCREMENT NO SCRATCH FAMILY COUNT
Line S03270 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03630  M02S03270.274l797 ---|          SX6    X1+B1
Line S03271 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03631  M02S03271.274l797 ---|          SA6    A1
03632  M01S00246.274l797 +++| CCS5     SA1    CCSB        CHECK TOTAL SCRATCH COUNT FOR FAMILY
03633  M01S00247.274l797 +++|          NZ     X1,CCSX     IF SCRATCH VSN-S OF ANY TYPE FOUND
03634  M01S00248.274l797 +++|          SX4    CSNSV       SET ERROR STATUS
03635  M01S03272.ldistap +++|
03636  M01S03273.ldistap +++| CCS      SUBR               ENTRY/EXIT
03637  M01S03274.ldistap +++|          SX6    X4-CSCFA
03638  M01S03275.ldistap +++|          SX1    B0
03639  M01S03276.ldistap +++|          ZR     X6,CCS1     IF CATALOG IS FAST-ATTACHED
03640  M01S03277.ldistap +++|          SX4    CSCFA
03641  M01S03278.ldistap +++|          SX1    B1+
03642  M01S03279.ldistap +++| CCS1     MBSXTA X1,A0,1,0,47  SET/CLEAR CATALOG BUSY BIT
Line S03280 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03643  M02S03280.274l797 ---|          MX0    -24         CHECK SCRATCH VSN COUNT
Line S03281 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03644  M02S03281.274l797 ---|          SA1    A0+SBCWL+/TFM/TMSV
Line S03282 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03645  M02S03282.274l797 ---|          BX1    -X0*X1
Line S03283 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03646  M02S03283.274l797 ---|          NZ     X1,CCS2     IF SCRATCH VSNS
Line S03284 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03647  M02S03284.274l797 ---|          MBSATA HYPHENS,A0+SBCWL+/TFM/TMSV,6*6,59,59  CLEAR SCRATCH
Line S03285 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03648  M02S03285.274l797 ---|          SX4    CSNSV
Line S03286 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03649  M02S03286.274l797 ---| CCS2     SX0    /TFM/FETS   CHECK FOR CATALOG ERROR
03650  M01S00249.274l797 +++|          MX0    -24         CHECK *MT/NT* SCRATCH VSN COUNT
03651  M01S00250.274l797 +++|          SA1    A0+SBCWL+/TFM/TMSM
03652  M01S00251.274l797 +++|          BX6    -X0*X1
03653  M01S00252.274l797 +++|          SA6    CCSB
03654  M01S00253.274l797 +++|          NZ     X6,CCS2     IF *MT/NT* SCRATCH VSNS
03655  M01S00254.274l797 +++|          MBSATA HYPHENS,A0+SBCWL+/TFM/TMSM,6*6,59,59  CLEAR VSN
03656  M01S00255.274l797 +++|          SA1    CNSM        COUNT OF FAMILIES WITH NO *MT/NT* SCRATCH
03657  M01S00256.274l797 +++|          SX6    X1+B1
03658  M01S00257.274l797 +++|          SA6    A1
03659  M01S00258.274l797 +++| CCS2     MX0    -24         CHECK *CT* SCRATCH VSN COUNT
03660  M01S00259.274l797 +++|          SA1    A0+SBCWL+/TFM/TMSC
03661  M01S00260.274l797 +++|          BX2    -X0*X1
03662  M01S00261.274l797 +++|          SA1    CCSB        INCREMENT TOTAL SCRATCH COUNT
03663  M01S00262.274l797 +++|          IX6    X1+X2
03664  M01S00263.274l797 +++|          SA6    A1
03665  M01S00264.274l797 +++|          NZ     X2,CCS3     IF *CT* SCRATCH VSNS
03666  M01S00265.274l797 +++|          MBSATA HYPHENS,A0+SBCWL+/TFM/TMSC,6*6,59,59  CLEAR VSN
03667  M01S00266.274l797 +++|          SA1    CNSC        COUNT OF FAMILIES WITH NO *CT* SCRATCH
03668  M01S00267.274l797 +++|          SX6    X1+B1
03669  M01S00268.274l797 +++|          SA6    A1
03670  M01S00269.274l797 +++| CCS3     MX0    -24         CHECK *AT* SCRATCH VSN COUNT
03671  M01S00270.274l797 +++|          SA1    A0+SBCWL+/TFM/TMSA
03672  M01S00271.274l797 +++|          BX2    -X0*X1
03673  M01S00272.274l797 +++|          SA1    CCSB        INCREMENT TOTAL SCRATCH COUNT
03674  M01S00273.274l797 +++|          IX6    X1+X2
03675  M01S00274.274l797 +++|          SA6    A1
03676  M01S00275.274l797 +++|          NZ     X2,CCS4     IF *AT* SCRATCH VSNS
03677  M01S00276.274l797 +++|          MBSATA HYPHENS,A0+SBCWL+/TFM/TMSA,6*6,59,59  CLEAR VSN
03678  M01S00277.274l797 +++|          SA1    CNSA        COUNT OF FAMILIES WITH NO *AT* SCRATCH
03679  M01S00278.274l797 +++|          SX6    X1+B1
03680  M01S00279.274l797 +++|          SA6    A1
03681  M01S00280.274l797 +++| CCS4     SX0    /TFM/FETS   CHECK FOR CATALOG ERROR
03682  M01S03287.ldistap +++|          SA1    A0+SBCWL+/TFM/TMFM
03683  M01S03288.ldistap +++|          BX1    X0*X1
Line S03289 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03684  M02S03289.274l797 ---|          ZR     X1,CCS3     IF NO CATALOG ERROR
03685  M01S00281.274l797 +++|          ZR     X1,CCS5     IF NO CATALOG ERROR
03686  M01S03290.ldistap +++|          SA1    CCE         INCREMENT CATALOG ERROR COUNT
03687  M01S03291.ldistap +++|          SX6    X1+B1
03688  M01S03292.ldistap +++|          SA6    A1
03689  M01S03293.ldistap +++|          SX4    CSERR
03690  M01S03294.ldistap +++|          EQ     CCSX        RETURN
03691  M01S00282.274l797 +++|
03692  M01S00283.274l797 +++|
03693  M01S00284.274l797 +++| CCSB     CON    0           TOTAL SCRATCH COUNT FOR THIS FAMILY
03694  M01S03295.ldistap +++| CNF      SPACE  4,10
03695  M01S03296.ldistap +++|**        CNF - CHECK NON-FAST ATTACHED FILE STATUS.
03696  M01S03297.ldistap +++|*
03697  M01S03298.ldistap +++|*         EXIT   CALL *CCS* IF CATALOG ERROR.
03698  M01S03299.ldistap +++|*                CALL *CCB* IF NO CATALOG ERROR.
03699  M01S03300.ldistap +++|*
03700  M01S03301.ldistap +++|*         USES   X - 0, 1.
03701  M01S03302.ldistap +++|*                A - 1.
03702  M01S03303.ldistap +++|*
03703  M01S03304.ldistap +++|*         CALLS  CCB, CCS.
03704  M01S03305.ldistap +++|
03705  M01S03306.ldistap +++|
03706  M01S03307.ldistap +++| CNF1     RJ     CCB         CLEAR CATALOG BUFFER
03707  M01S03308.ldistap +++|
03708  M01S03309.ldistap +++| CNF      SUBR               ENTRY/EXIT
03709  M01S03310.ldistap +++|          SX0    /TFM/FETS   CHECK FOR CATALOG ERROR
03710  M01S03311.ldistap +++|          SA1    A0+SBCWL+/TFM/TMFM
03711  M01S03312.ldistap +++|          BX1    X0*X1
03712  M01S03313.ldistap +++|          ZR     X1,CNF1     IF NO CATALOG ERROR
03713  M01S03314.ldistap +++|          SX4    CSCFA
03714  M01S03315.ldistap +++|          RJ     CCS         CHECK CATALOG STATUS
03715  M01S03316.ldistap +++|          EQ     CNFX        RETURN
03716  M01S03317.ldistap +++| GCS      SPACE  4,20
03717  M01S03318.ldistap +++|**        GCS - GET CATALOG STATUSES.
03718  M01S03319.ldistap +++|*
03719  M01S03320.ldistap +++|*         EXIT   CATALOG STATUS BUFFERS SET INTO *SBUF*.
03720  M01S03321.ldistap +++|*                FAMILY ORDINAL TABLE SET INTO *FBUF*.
03721  M01S03322.ldistap +++|*                FIRST CATALOG STATUS BUFFER ENTRY FOR EACH DISPLAY
03722  M01S03323.ldistap +++|*                PAGE SET INTO *TFDP*.
03723  M01S03324.ldistap +++|*                WORD 0 OF EACH CATALOG STATUS BUFFER ENTRY SET -
03724  M01S03325.ldistap +++|*T,       12/STATUS, 1/BUSY FLAG, 29/0, 18/ADDRESS OF NEXT ENTRY
Figure

0171829ADDRESS OF NEXT ENTRY030464748590BUSY FLAGSTATUS

03725  M01S03326.ldistap +++|*                (CCE) = NUMBER OF FAMILY CATALOGS WITH ERRORS.
03726  M01S03327.ldistap +++|*                (CNS) = NUMBER OF FAMILY CATALOGS WITH NO SCRATCH.
Line S03328 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03727  M02S03328.nos252  ---|*                (TMS) = 0 IF *TMS* IS NOT ACTIVE.
03728  M01S00059.nos252  +++|*                (TMS) = 0 IF *TMS* IS ACTIVE.
03729  M01S03329.ldistap +++|*
03730  M01S03330.ldistap +++|*         USES   X - 0, 1, 2, 4, 5, 6.
03731  M01S03331.ldistap +++|*                A - 0, 1, 2, 4, 5, 6.
03732  M01S03332.ldistap +++|*                B - 2, 3.
03733  M01S03333.ldistap +++|*
03734  M01S03334.ldistap +++|*         CALLS  ACF, SWP.
03735  M01S03335.ldistap +++|*
03736  M01S03336.ldistap +++|*         MACROS CLEAR, MBSATA, MBSXTA, RDMEM, READ, READW, REWIND,
03737  M01S03337.ldistap +++|*                RJM.
03738  M01S03338.ldistap +++|
03739  M01S03339.ldistap +++|
03740  M01S03340.ldistap +++| GCS13    SX6    B2          SET NUMBER OF PAGES
03741  M01S03341.ldistap +++|          SA6    TNDP+DISFC
03742  M01S03342.ldistap +++|
03743  M01S03343.ldistap +++| GCS      SUBR               ENTRY/EXIT
03744  M01S03344.ldistap +++|          CLEAR  TFCF,NFCST  PRESET POINTER TABLES
03745  M01S03345.ldistap +++|          CLEAR  TFCL,NFCST
03746  M01S03346.ldistap +++|          CLEAR  TFDP,NPGFD  PRESET *TFDP*
03747  M01S03347.ldistap +++|          SX6    B0          CLEAR CATALOG STATUS COUNTS
03748  M01S03348.ldistap +++|          SA6    CCE
Line S03349 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
03749  M02S03349.274l797 ---|          SA6    CNS
03750  M01S00285.274l797 +++|          SA6    CNSM
03751  M01S00286.274l797 +++|          SA6    CNSC
03752  M01S00287.274l797 +++|          SA6    CNSA
03753  M01S03350.ldistap +++|          SA6    TNDP+DISFC
Line S03351 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
03754  M02S03351.nos252  ---|          SYSTEM TFU,R,TMS,/TFU/RTSF*100B  GET *TMS* STATUS
03755  M01S00060.nos252  +++|          SYSTEM SFM,R,TMS,GTSF*100B  GET *TMS* STATUS
03756  M01S03352.ldistap +++|          MX0    1           SAVE *TMS* STATUS
03757  M01S03353.ldistap +++|          SA1    TMS
03758  M01S03354.ldistap +++|          BX1    X0*X1
03759  M01S03355.ldistap +++|          BX6    X0-X1
03760  M01S03356.ldistap +++|          SA6    TMS
03761  M01S03357.ldistap +++|          SA1    MXF         GET FAMILY ORDINAL TABLE
03762  M01S03358.ldistap +++|          SA2    FFO
03763  M01S03359.ldistap +++|          RDMEM  ABS,X2,X1,FBUF
03764  M01S03360.ldistap +++|          SA5    MXF         GET CATALOG SYSTEM BLOCKS
03765  M01S03361.ldistap +++|          SA0    SBUF
03766  M01S03362.ldistap +++| GCS1     SX5    X5-1
03767  M01S03363.ldistap +++|          NG     X5,GCS5     IF END OF FAMILIES
03768  M01S03364.ldistap +++|          MX0    42          GET FAMILY NAME
03769  M01S03365.ldistap +++|          SA1    X5+FBUF
03770  M01S03366.ldistap +++|          BX1    X0*X1
03771  M01S03367.ldistap +++|          SX4    CSFNF
03772  M01S03368.ldistap +++|          ZR     X1,GCS2     IF NO FAMILY NAME
03773  M01S03369.ldistap +++|          SX2    377777B
03774  M01S03370.ldistap +++|          RJ     SWP         SWAP TO FAMILY NAME AND USER INDEX
03775  M01S03371.ldistap +++|          NZ     X4,GCS2     IF FAMILY NOT FOUND
03776  M01S03372.ldistap +++|          RJ     ACF         ATTACH CATALOG FILE
03777  M01S03373.ldistap +++|          NZ     X1,GCS2     IF CATALOG NOT ATTACHED
03778  M01S03374.ldistap +++|          SX6    X4          SAVE STATUS
03779  M01S03375.ldistap +++|          SA6    GCSB
03780  M01S03376.ldistap +++|          REWIND P,R         GET SYSTEM BLOCK
Line S03377 Modification History
M01 (Added by) ldistap
M02 (Updated by) t5497
Seq #  *Modification Id* Act 
----------------------------+
03781  M02S03377.t5497   ---|          READ   P
Line S03378 Modification History
M01 (Added by) ldistap
M02 (Updated by) t5497
Seq #  *Modification Id* Act 
----------------------------+
03782  M02S03378.t5497   ---|          READW  P,A0,SBUFE
Line S03379 Modification History
M01 (Added by) ldistap
M02 (Updated by) t5497
Seq #  *Modification Id* Act 
----------------------------+
03783  M02S03379.t5497   ---|          RETURN P
03784  M01S00001.t5497   +++|          READ   P,R
03785  M01S00002.t5497   +++|          MX0    -5          CHECK FOR ERROR
03786  M01S00003.t5497   +++|          SA1    P
03787  M01S00004.t5497   +++|          AX1    9
03788  M01S00005.t5497   +++|          BX1    -X0*X1
03789  M01S00006.t5497   +++|          ZR     X1,GCS1.1   IF NO ERROR ON READ
03790  M01S00007.t5497   +++|          SX6    CSCNF       FLAG AS CATALOG FILE NOT FOUND
03791  M01S00008.t5497   +++|          SA6    GCSB
03792  M01S00009.t5497   +++|          EQ     GCS1.2      RETURN CATALOG FILE
03793  M01S00010.t5497   +++|
03794  M01S00011.t5497   +++| GCS1.1   READW  P,A0,SBUFE
03795  M01S00012.t5497   +++| GCS1.2   RETURN P
03796  M01S03380.ldistap +++|          SA4    GCSB        GET STATUS
03797  M01S03381.ldistap +++| GCS2     SA1    X4+TFCP
03798  M01S03382.ldistap +++|          RJM    X1          EXECUTE PROCESSOR FOR CATALOG STATUS
03799  M01S03383.ldistap +++|          MBSATA X5+FBUF,A0+SBCWL+/TFM/TMFM,42,59,59  SET FAMILY NAME
03800  M01S03384.ldistap +++|          MBSXTA X4,A0,12,11,59  SET CATALOG STATUS
03801  M01S03385.ldistap +++|          MBSATA X4+TFCF,A0,18,17,17  LINK STATUS ENTRIES
03802  M01S03386.ldistap +++|          SX1    A0
03803  M01S03387.ldistap +++|          MBSXTA X1,X4+TFCF,18,17,17
03804  M01S03388.ldistap +++|          SA1    X4+TFCM
03805  M01S03389.ldistap +++|          ZR     X1,GCS3     IF USE MESSAGE BUFFER
03806  M01S03390.ldistap +++|          MBSATA X1,A0+SBCWL+/TFM/TMMB,/TFM/MBML*60,59,59  SET MESSAGE
03807  M01S03391.ldistap +++| GCS3     SA1    X4+TFCL
03808  M01S03392.ldistap +++|          NZ     X1,GCS4     IF ALREADY A LAST ENTRY
03809  M01S03393.ldistap +++|          SX6    A0          SET LAST ENTRY
03810  M01S03394.ldistap +++|          SA6    A1
03811  M01S03395.ldistap +++| GCS4     SA0    A0+SBUFE
03812  M01S03396.ldistap +++|          EQ     GCS1        CHECK NEXT FAMILY
03813  M01S03397.ldistap +++|
03814  M01S03398.ldistap +++| GCS5     SA1    OFM         GET ORIGINAL FAMILY NAME
03815  M01S03399.ldistap +++|          SA2    OUI
03816  M01S03400.ldistap +++|          RJ     SWP         SWAP TO FAMILY NAME AND USER INDEX
03817  M01S03401.ldistap +++|          SA4    GCSA        LINK STATUS ENTRIES
03818  M01S03402.ldistap +++| GCS6     ZR     X4,GCS10    IF END OF TABLE
03819  M01S03403.ldistap +++|          SA5    A4+B1
03820  M01S03404.ldistap +++|          SA2    X4
03821  M01S03405.ldistap +++|          ZR     X2,GCS9     IF NO ENTRIES FOR THIS STATUS
03822  M01S03406.ldistap +++|          SA1    TFDP+0
03823  M01S03407.ldistap +++|          NZ     X1,GCS7     IF FIRST ENTRY ALREADY SET
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/ldistap.005.txt ยท Last modified: by 127.0.0.1