Deck LDISTAP Part 002

14 Modifications

Listing Sections

Deck LDISTAP Start
Deck LDISTAP Part 1 (Line 1313)
Deck LDISTAP Part 2 (Line 2802)
Deck LDISTAP Part 3 (Line 4413)
Deck LDISTAP Part 4 (Line 6159)

Source

Seq #  *Modification Id* Act 
----------------------------+
02802  M01S00171.274l797 +++|          LDIS   8,(   COUNT)
02803  M01S00172.274l797 +++|          LDIS   1,( )
02804  M01S00173.274l797 +++|          LDIS   7,(NXT-VSN)
02805  M01S00174.274l797 +++|          LDISE
02806  M00S02522.ldistap +++| FAMAL    EQU    *-FAMA      FAMILY CATALOG DISPLAY HEADER LENGTH
02807  M00S02523.ldistap +++|

Line S02524 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
02808  M01S02524.274l797 ---| FAMB     BSS    0           FAMILY CATALOG ENTRY LINE
02809  M01S02525.274l797 ---|          LDISS  1,K+1

Line S00175 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
02810  M01S00175.274l797 +++| FAMB     BSS    0
02811  M01S00176.274l797 +++|          LDISS  1,K+1       FAMILY CATALOG ENTRY LINE ONE
02812  M00S02526.ldistap +++| DFFM     LDIS   7,(FAMNAME) FAMILY NAME
02813  M00S02527.ldistap +++| DFBS     LDIS   1,( )       BUSY FLAG

Line S02528 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
02814  M01S02528.274l797 ---| DFSC     LDIS   8,(       0)  SCRATCH COUNT

Line S00177 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
02815  M01S00177.274l797 +++| DFSM     LDIS   8,(       0)  *MT/NT* SCRATCH COUNT
02816  M00S02529.ldistap +++|          LDIS   1,( )

Line S02530 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
02817  M01S02530.274l797 ---| DFNS     LDIS   6,(------)  NEXT SCRATCH VSN

Line S00178 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
02818  M01S00178.274l797 +++| DFNM     LDIS   6,(------)  *MT/NT* NEXT SCRATCH VSN
02819  M01S00179.274l797 +++|          LDIS   1,( )
02820  M01S00180.274l797 +++| DFSC     LDIS   8,(       0)  *CT* SCRATCH COUNT
02821  M01S00181.274l797 +++|          LDIS   1,( )
02822  M01S00182.274l797 +++| DFNC     LDIS   6,(------)  *CT* NEXT SCRATCH VSN
02823  M01S00183.274l797 +++|          LDIS   1,( )
02824  M01S00184.274l797 +++| DFSA     LDIS   8,(       0)  *AT* SCRATCH COUNT
02825  M01S00185.274l797 +++|          LDIS   1,( )
02826  M01S00186.274l797 +++| DFNA     LDIS   6,(------)  *AT* NEXT SCRATCH VSN
02827  M01S00187.274l797 +++|          LDISE
02828  M01S00188.274l797 +++| FAMB2    BSS    0
02829  M01S00189.274l797 +++|          LDISS  1,K         FAMILY CATALOG ENTRY LINE TWO
02830  M00S02531.ldistap +++|          LDIS   1,( )
02831  M00S02532.ldistap +++| DFST     LDIS   40,(                                        )  STATUS
02832  M00S02533.ldistap +++|          LDISE
02833  M00S02534.ldistap +++| FAMBL    EQU    *-FAMB      FAMILY CATALOG ENTRY LINE LENGTH
02834  M00S02535.ldistap +++|
02835  M00S02536.ldistap +++| NWIFD    EQU    FAMBL*NLPPG/LPEFC+FAMAL  NUMBER OF WORDS IN *FAM* DIS
02836  M00S02537.ldistap +++| HEL      SPACE  4,10
02837  M00S02538.ldistap +++|**        HEL - BUILD *HELP* DISPLAY.
02838  M00S02539.ldistap +++|*
02839  M00S02540.ldistap +++|*         EXIT   *HELP* DISPLAY SET INTO DISPLAY BUFFER.
02840  M00S02541.ldistap +++|*
02841  M00S02542.ldistap +++|*         USES   X - 1, 2, 6.
02842  M00S02543.ldistap +++|*                A - 1.
02843  M00S02544.ldistap +++|*
02844  M00S02545.ldistap +++|*         MACROS MOVE.
02845  M00S02546.ldistap +++|
02846  M00S02547.ldistap +++|
02847  M00S02548.ldistap +++| HEL      SUBR               ENTRY/EXIT
02848  M00S02549.ldistap +++|          SA1    PAG         GET PAGE NUMBER
02849  M00S02550.ldistap +++|          SA1    X1+HELA-1
02850  M00S02551.ldistap +++|          SX2    X1
02851  M00S02552.ldistap +++|          AX1    18
02852  M00S02553.ldistap +++|          MOVE   X1,X2,DBUF+DBUFS  SET *HELP* DISPLAY IN BUFFER
02853  M00S02554.ldistap +++|          EQ     HELX        RETURN
02854  M00S02555.ldistap +++|
02855  M00S02556.ldistap +++| HELA     BSS    0           LENGTHS AND POINTERS TO HELP DISPLAY PAGES
02856  M00S02557.ldistap +++|          LOC    1
02857  M00S02558.ldistap +++|          VFD    24/0,18/HELBL,18/HELB  PAGE ONE

Line S02559 Modification History
`M01` (Removed by)	`ldista5`

Seq #  *Modification Id* Act 
----------------------------+
02858  M01S02559.ldista5 ---|          VFD    24/0,18/HELCL,18/HELC  PAGE TWO
02859  M00S02560.ldistap +++|          LOC    *O
02860  M00S02561.ldistap +++|
02861  M00S02562.ldistap +++| HELB     BSS    0           HELP DISPLAY PAGE ONE
02862  M00S02563.ldistap +++|          LDISS  1,NLPTT+2
02863  M00S02564.ldistap +++|          LDIS   4,(HELP)
02864  M00S02565.ldistap +++|          LDISE
02865  M00S02566.ldistap +++|          LDISS  20,K-1
02866  M00S02567.ldistap +++|          LDIS   23,(DISPLAY VALID COMMANDS.)
02867  M00S02568.ldistap +++|          LDISE
02868  M00S02569.ldistap +++|          LDISS  1,K

Line S02570 Modification History
`M01` (Removed by)	`ldista5`

Seq #  *Modification Id* Act 
----------------------------+
02869  M01S02570.ldista5 ---|          LDIS   3,(PRE)
02870  M01S02571.ldista5 ---|          LDISE
02871  M01S02572.ldista5 ---|          LDISS  20,K-1
02872  M01S02573.ldista5 ---|          LDIS   26,(DISPLAY RESOURCE REQUESTS.)
02873  M01S02574.ldista5 ---|          LDISE
02874  M01S02575.ldista5 ---|          LDISS  1,K
02875  M01S02576.ldista5 ---|          LDIS   3,(JOB)
02876  M01S02577.ldista5 ---|          LDISE
02877  M01S02578.ldista5 ---|          LDISS  20,K-1
02878  M01S02579.ldista5 ---|          LDIS   44,(DISPLAY TAPE JOBS REQUIRING OPERATOR ACTION.)
02879  M01S02580.ldista5 ---|          LDISE
02880  M01S02581.ldista5 ---|          LDISS  1,K
02881  M00S02582.ldistap +++|          LDIS   3,(FAM)
02882  M00S02583.ldistap +++|          LDISE
02883  M00S02584.ldistap +++|          LDISS  20,K-1
02884  M00S02585.ldistap +++|          LDIS   43,(DISPLAY *TMS* FAMILY TAPE CATALOG STATUSES.)

Line S02586 Modification History
`M01` (Removed by)	`ldista5`

Seq #  *Modification Id* Act 
----------------------------+
02885  M01S02586.ldista5 ---|          LDISE
02886  M01S02587.ldista5 ---|          LDISS  1,K
02887  M01S02588.ldista5 ---|          LDIS   3,(EQU)
02888  M01S02589.ldista5 ---|          LDISE
02889  M01S02590.ldista5 ---|          LDISS  20,K-1
02890  M01S02591.ldista5 ---|          LDIS   32,(DISPLAY TAPE EQUIPMENT STATUSES.)
02891  M00S02592.ldistap +++|          LDISE
02892  M00S02593.ldistap +++|          LDISS  1,K
02893  M00S02594.ldistap +++|          LDIS   4,(COPY)
02894  M00S02595.ldistap +++|          LDISE
02895  M00S02596.ldistap +++|          LDISS  20,K-1
02896  M00S02597.ldistap +++|          LDIS   36,(COPY CURRENT DISPLAY TO OUTPUT FILE.)
02897  M00S02598.ldistap +++|          LDISE
02898  M00S02599.ldistap +++|          LDISS  1,K
02899  M00S02600.ldistap +++|          LDIS   1,(+)
02900  M00S02601.ldistap +++|          LDISE
02901  M00S02602.ldistap +++|          LDISS  20,K-1
02902  M00S02603.ldistap +++|          LDIS   20,(TOGGLE PAGE FORWARD.)
02903  M00S02604.ldistap +++|          LDISE
02904  M00S02605.ldistap +++|          LDISS  1,K
02905  M00S02606.ldistap +++|          LDIS   1,(-)
02906  M00S02607.ldistap +++|          LDISE
02907  M00S02608.ldistap +++|          LDISS  20,K-1
02908  M00S02609.ldistap +++|          LDIS   21,(TOGGLE PAGE BACKWARD.)
02909  M00S02610.ldistap +++|          LDISE
02910  M00S02611.ldistap +++|          LDISS  1,K

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

Seq #  *Modification Id* Act 
----------------------------+
02911  M01S02612.nos252  ---|          LDIS   4,(DROP)

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

Seq #  *Modification Id* Act 
----------------------------+
02912  M01S00055.nos252  +++|          LDIS   4,(END )
02913  M00S02613.ldistap +++|          LDISE
02914  M00S02614.ldistap +++|          LDISS  20,K-1

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

Seq #  *Modification Id* Act 
----------------------------+
02915  M01S02615.nos252  ---|          LDIS   20,(TERMINATE *LDISTAP*.)

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

Seq #  *Modification Id* Act 
----------------------------+
02916  M01S00056.nos252  +++|          LDIS   20,(TERMINATE *TMSDIS* .)
02917  M00S02616.ldistap +++|          LDISE
02918  M00S02617.ldistap +++|          CON    0           END OF DISPLAY
02919  M00S02618.ldistap +++| HELBL    EQU    *-HELB      LENGTH OF HELP DISPLAY
02920  M00S02619.ldistap +++|

Line S02620 Modification History
`M01` (Removed by)	`ldista5`

Seq #  *Modification Id* Act 
----------------------------+
02921  M01S02620.ldista5 ---| HELC     BSS    0           HELP DISPLAY PAGE TWO
02922  M01S02621.ldista5 ---|          LDISS  1,NLPTT+2
02923  M01S02622.ldista5 ---|          LDIS   14,(ASSIGN,JSN,EST)
02924  M01S02623.ldista5 ---|          LDISE
02925  M01S02624.ldista5 ---|          LDISS  20,K-1
02926  M01S02625.ldista5 ---|          LDIS   34,(ASSIGN TAPE ON *EST* TO JOB *JSN*.)
02927  M01S02626.ldista5 ---|          LDISE
02928  M01S02627.ldista5 ---|          LDISS  1,K
02929  M01S02628.ldista5 ---|          LDIS   6,(GO,EST)
02930  M01S02629.ldista5 ---|          LDISE
02931  M01S02630.ldista5 ---|          LDISS  20,K-1
02932  M01S02631.ldista5 ---|          LDIS   31,(AUTO BLANK LABEL TAPE ON *EST*.)
02933  M01S02632.ldista5 ---|          LDISE
02934  M01S02633.ldista5 ---|          LDISS  1,K
02935  M01S02634.ldista5 ---|          LDIS   11,(SCRATCH,EST)
02936  M01S02635.ldista5 ---|          LDISE
02937  M01S02636.ldista5 ---|          LDISS  20,K-1
02938  M01S02637.ldista5 ---|          LDIS   33,(DECLARE TAPE ON *EST* AS SCRATCH.)
02939  M01S02638.ldista5 ---|          LDISE
02940  M01S02639.ldista5 ---|          LDISS  1,K
02941  M01S02640.ldista5 ---|          LDIS   8,(STOP,EST)
02942  M01S02641.ldista5 ---|          LDISE
02943  M01S02642.ldista5 ---|          LDISS  20,K-1
02944  M01S02643.ldista5 ---|          LDIS   38,(DO NOT AUTO BLANK LABEL TAPE ON *EST*.)
02945  M01S02644.ldista5 ---|          LDISE
02946  M01S02645.ldista5 ---|          LDISS  1,K
02947  M01S02646.ldista5 ---|          LDIS   10,(UNLOAD,EST)
02948  M01S02647.ldista5 ---|          LDISE
02949  M01S02648.ldista5 ---|          LDISS  20,K-1
02950  M01S02649.ldista5 ---|          LDIS   21,(UNLOAD TAPE ON *EST*.)
02951  M01S02650.ldista5 ---|          LDISE
02952  M01S02651.ldista5 ---|          LDISS  1,K
02953  M01S02652.ldista5 ---|          LDIS   7,(VSN,EST)
02954  M01S02653.ldista5 ---|          LDISE
02955  M01S02654.ldista5 ---|          LDISS  20,K-1
02956  M01S02655.ldista5 ---|          LDIS   20,(CLEARS VSN ON *EST*.)
02957  M01S02656.ldista5 ---|          LDISE
02958  M01S02657.ldista5 ---|          LDISS  1,K
02959  M01S02658.ldista5 ---|          LDIS   8,(VSN,EST,)
02960  M01S02659.ldista5 ---|          LDISE
02961  M01S02660.ldista5 ---|          LDISS  20,K-1
02962  M01S02661.ldista5 ---|          LDIS   33,(DECLARE TAPE ON *EST* AS SCRATCH.)
02963  M01S02662.ldista5 ---|          LDISE
02964  M01S02663.ldista5 ---|          LDISS  1,K
02965  M01S02664.ldista5 ---|          LDIS   11,(VSN,EST,VSN)
02966  M01S02665.ldista5 ---|          LDISE
02967  M01S02666.ldista5 ---|          LDISS  20,K-1
02968  M01S02667.ldista5 ---|          LDIS   43,(DECLARE TAPE ON *EST* TO HAVE VSN OF *VSN*.)
02969  M01S02668.ldista5 ---|          LDISE
02970  M01S02669.ldista5 ---|          LDISS  1,K
02971  M01S02670.ldista5 ---|          LDIS   1,(+)
02972  M01S02671.ldista5 ---|          LDISE
02973  M01S02672.ldista5 ---|          LDISS  20,K-1
02974  M01S02673.ldista5 ---|          LDIS   20,(TOGGLE PAGE FORWARD.)
02975  M01S02674.ldista5 ---|          LDISE
02976  M01S02675.ldista5 ---|          LDISS  1,K
02977  M01S02676.ldista5 ---|          LDIS   1,(-)
02978  M01S02677.ldista5 ---|          LDISE
02979  M01S02678.ldista5 ---|          LDISS  20,K-1
02980  M01S02679.ldista5 ---|          LDIS   21,(TOGGLE PAGE BACKWARD.)
02981  M01S02680.ldista5 ---|          LDISE
02982  M01S02681.ldista5 ---|          LDISS  1,K

Line S02682 Modification History
`M01` (Removed by)	`nos252`
`M02` (Removed by)	`ldista5`

Seq #  *Modification Id* Act 
----------------------------+
02983  M02S02682.ldista5 ---|          LDIS   4,(DROP)

Line S00057 Modification History
`M01` (Added by)	`nos252`
`M02` (Removed by)	`ldista5`

Seq #  *Modification Id* Act 
----------------------------+
02984  M02S00057.ldista5 ---|          LDIS   4,(END )

Line S02683 Modification History
`M01` (Removed by)	`ldista5`

Seq #  *Modification Id* Act 
----------------------------+
02985  M01S02683.ldista5 ---|          LDISE
02986  M01S02684.ldista5 ---|          LDISS  20,K-1

Line S02685 Modification History
`M01` (Removed by)	`nos252`
`M02` (Removed by)	`ldista5`

Seq #  *Modification Id* Act 
----------------------------+
02987  M02S02685.ldista5 ---|          LDIS   20,(TERMINATE *LDISTAP*.)

Line S00058 Modification History
`M01` (Added by)	`nos252`
`M02` (Removed by)	`ldista5`

Seq #  *Modification Id* Act 
----------------------------+
02988  M02S00058.ldista5 ---|          LDIS   20,(TERMINATE *TMSDIS* .)

Line S02686 Modification History
`M01` (Removed by)	`ldista5`

Seq #  *Modification Id* Act 
----------------------------+
02989  M01S02686.ldista5 ---|          LDISE
02990  M01S02687.ldista5 ---|          CON    0           END OF DISPLAY
02991  M01S02688.ldista5 ---| HELCL    EQU    *-HELC      LENGTH OF HELP DISPLAY
02992  M01S02689.ldista5 ---|
02993  M01S02690.ldista5 ---| NWIHT    MAX    HELBL,HELCL
02994  M01S02691.ldista5 ---| NWIHD    EQU    NWIHT       NUMBER OF WORDS IN *HELP* DISPLAY

Line S00009 Modification History
`M01` (Added by)	`ldista5`

Seq #  *Modification Id* Act 
----------------------------+
02995  M01S00009.ldista5 +++| NWIHD    EQU    HELBL       NUMBER OF WORDS IN *HELP* DISPLAY

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

Seq #  *Modification Id* Act 
----------------------------+
02996  M01S02692.282l826 ---| JOB      SPACE  4,10
02997  M01S02693.282l826 ---|**        JOB - BUILD *JOB* DISPLAY.
02998  M01S02694.282l826 ---|*
02999  M01S02695.282l826 ---|*         EXIT   JOB DISPLAY SET INTO *DBUF*.
03000  M01S02696.282l826 ---|*
03001  M01S02697.282l826 ---|*         USES   X - 0, 1, 2, 5, 6.
03002  M01S02698.282l826 ---|*                A - 0, 1, 2, 6.
03003  M01S02699.282l826 ---|*
03004  M01S02700.282l826 ---|*         CALLS  CLY, GEJ, GMT, ZTB.
03005  M01S02701.282l826 ---|*
03006  M01S02702.282l826 ---|*         MACROS MBSATA, MBSXTA, MOVE.
03007  M01S02703.282l826 ---|
03008  M01S02704.282l826 ---|
03009  M01S02705.282l826 ---| JOB3     SX6    B0          FLAG END OF DISPLAY BUFFER
03010  M01S02706.282l826 ---|          SA6    X5
03011  M01S02707.282l826 ---|
03012  M01S02708.282l826 ---| JOB      SUBR               ENTRY/EXIT
03013  M01S02709.282l826 ---|          SX5    DBUF+DBUFS  SET START OF DISPLAY BUFFER
03014  M01S02710.282l826 ---|          MOVE   JOBAL,JOBA,X5  SET HEADER IN DISPLAY BUFFER
03015  M01S02711.282l826 ---|          SX5    X5+JOBAL
03016  M01S02712.282l826 ---|          SA1    PNO
03017  M01S02713.282l826 ---|          ZR     X1,JOB3     IF NO PAGES FOR DISPLAY
03018  M01S02714.282l826 ---|          SA1    PAG         GET ADDRESS OF FIRST ENTRY FOR PAGE
03019  M01S02715.282l826 ---|          ZR     X1,JOB3     IF NO PAGES FOR DISPLAY
03020  M01S02716.282l826 ---|          SA1    X1+TJDP-1
03021  M01S02717.282l826 ---|          SX6    NLPTT+NLPHD+1  SET CURRENT LINE NUMBER
03022  M01S02718.282l826 ---|          SA6    CLN
03023  M01S02719.282l826 ---| JOB1     ZR     X1,JOB3     IF NO MORE ENTRIES
03024  M01S02720.282l826 ---|          SA0    X1
03025  M01S02721.282l826 ---|          SA1    CLN         CHECK CURRENT LINE NUMBER
03026  M01S02722.282l826 ---|          SX6    X1+LPEJB-NLPHD-NLPTT-NLPPG-2
03027  M01S02723.282l826 ---|          PL     X6,JOB3     IF NO MORE LINES IN DISPLAY
03028  M01S02724.282l826 ---|          SX6    X5+JOBBL-DBUF-DBUFL
03029  M01S02725.282l826 ---|          PL     X6,JOB3     IF NO MORE ROOM IN DISPLAY BUFFER
03030  M01S02726.282l826 ---|          SX0    JOBB
03031  M01S02727.282l826 ---|          SA1    CLN
03032  M01S02728.282l826 ---|          RJ     CLY         CONVERT LINE NUMBER TO Y-COORDINATE
03033  M01S02729.282l826 ---|
03034  M01S02730.282l826 ---|*         SET *JSN*.
03035  M01S02731.282l826 ---|
03036  M01S02732.282l826 ---|          MX0    -12         GET EJT ORDINAL
03037  M01S02733.282l826 ---|          SA1    A0+TFSW
03038  M01S02734.282l826 ---|          LX1    12
03039  M01S02735.282l826 ---|          BX1    -X0*X1
03040  M01S02736.282l826 ---|          RJ     GEJ         GET EJT ENTRY
03041  M01S02737.282l826 ---|          MBSATA EBUF+JSNE,DJJS,DJJSC,59,DJJSU  SET *JSN*
03042  M01S02738.282l826 ---|
03043  M01S02739.282l826 ---|*         SET *USERNAM*.
03044  M01S02740.282l826 ---|
03045  M01S02741.282l826 ---|          SA1    A0+UIDW     GET USER NAME
03046  M01S02742.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03047  M01S02743.282l826 ---|          MBSXTA X6,DJUN,DJUNC,59,DJUNU  SET *USERNAM*
03048  M01S02744.282l826 ---|
03049  M01S02745.282l826 ---|*         SET *FAMILY*.
03050  M01S02746.282l826 ---|
03051  M01S02747.282l826 ---|          MX0    -12         GET EST ORDINAL OF FAMILY DEVICE
03052  M01S02748.282l826 ---|          SA1    A0+PFCW
03053  M01S02749.282l826 ---|          AX1    12
03054  M01S02750.282l826 ---|          BX1    -X0*X1
03055  M01S02751.282l826 ---|          RJ     GMT         GET MST ENTRY
03056  M01S02752.282l826 ---|          SA1    MBUF+PFGL   GET FAMILY NAME
03057  M01S02753.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03058  M01S02754.282l826 ---|          MBSXTA X6,DJFM,DJFMC,59,DJFMU  SET *FAMILY*
03059  M01S02755.282l826 ---|
03060  M01S02756.282l826 ---|*         SET *MESSAGE*.
03061  M01S02757.282l826 ---|
03062  M01S02758.282l826 ---|          SA1    A0+MS2W     GET MESSAGE
03063  M01S02759.282l826 ---|          NZ     X1,JOB2     IF MESSAGE IN BUFFER 2
03064  M01S02760.282l826 ---|          SA1    A0+MS1W
03065  M01S02761.282l826 ---| JOB2     RJ     ZTB         CONVERT ZEROES TO BLANKS
03066  M01S02762.282l826 ---|          SA6    A1
03067  M01S02763.282l826 ---|          SA1    A1+B1
03068  M01S02764.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03069  M01S02765.282l826 ---|          SA6    A1
03070  M01S02766.282l826 ---|          SA1    A1+B1
03071  M01S02767.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03072  M01S02768.282l826 ---|          SA6    A1
03073  M01S02769.282l826 ---|          MBSATA A1-2,DJMS,DJMSC,59,DJMSU  SET MESSAGE
03074  M01S02770.282l826 ---|          MOVE   JOBBL,JOBB,X5  SET ENTRY INTO BUFFER
03075  M01S02771.282l826 ---|          SX5    X5+JOBBL    INCREMENT DISPLAY BUFFER ADDRESS
03076  M01S02772.282l826 ---|          SA1    CLN         INCREMENT CURRENT LINE NUMBER
03077  M01S02773.282l826 ---|          SX6    X1+LPEJB
03078  M01S02774.282l826 ---|          SA6    A1
03079  M01S02775.282l826 ---|          SA1    A0          GET NEXT CONTROL POINT ADDRESS
03080  M01S02776.282l826 ---|          EQ     JOB1        CHECK ADDRESS
03081  M01S02777.282l826 ---|
03082  M01S02778.282l826 ---| JOBA     BSS    0           EXECUTING JOB HEADER
03083  M01S02779.282l826 ---|          LDISS  1,NLPTT+1
03084  M01S02780.282l826 ---|          LDIS   4,(JSN )
03085  M01S02781.282l826 ---|          LDIS   1,( )
03086  M01S02782.282l826 ---|          LDIS   7,(USERNAM)
03087  M01S02783.282l826 ---|          LDIS   1,( )
03088  M01S02784.282l826 ---|          LDIS   7,(FAMILY )
03089  M01S02785.282l826 ---|          LDIS   1,( )
03090  M01S02786.282l826 ---|          LDIS   7,(MESSAGE)
03091  M01S02787.282l826 ---|          LDISE
03092  M01S02788.282l826 ---| JOBAL    EQU    *-JOBA      EXEUCTING JOB DISPLAY HEADER LENGTH
03093  M01S02789.282l826 ---|
03094  M01S02790.282l826 ---| JOBB     BSS    0           EXECUTING JOB ENTRY LINE
03095  M01S02791.282l826 ---|          LDISS  1,K+1
03096  M01S02792.282l826 ---| DJJS     LDIS   4,(JSNN)    JSN
03097  M01S02793.282l826 ---|          LDIS   1,( )
03098  M01S02794.282l826 ---| DJUN     LDIS   7,(USERNAM) USER NAME
03099  M01S02795.282l826 ---|          LDIS   1,( )
03100  M01S02796.282l826 ---| DJFM     LDIS   7,(FAMNAME) FAMILY NAME
03101  M01S02797.282l826 ---|          LDIS   1,( )
03102  M01S02798.282l826 ---| DJMS     LDIS   30,(REQUEST - TAPE, GE            )  MESSAGE
03103  M01S02799.282l826 ---|          LDISE
03104  M01S02800.282l826 ---| JOBBL    EQU    *-JOBB      EXECUTING JOB ENTRY LINE LENGTH
03105  M01S02801.282l826 ---|
03106  M01S02802.282l826 ---| NWIJD    EQU    JOBBL*NLPPG/LPEJB+JOBAL  NUMBER OF WORDS IN *JOB* DIS
03107  M01S02803.282l826 ---| PRE      SPACE  4,10
03108  M01S02804.282l826 ---|**        PRE - BUILD *PRE* DISPLAY.
03109  M01S02805.282l826 ---|*
03110  M01S02806.282l826 ---|*         EXIT   PREVIEW DISPLAY SET INTO *DBUF*.
03111  M01S02807.282l826 ---|*
03112  M01S02808.282l826 ---|*         USES   X - 0, 1, 2, 3, 5, 6.
03113  M01S02809.282l826 ---|*                A - 0, 1, 2, 3, 6.
03114  M01S02810.282l826 ---|*
03115  M01S02811.282l826 ---|*         CALLS  CLY, COD, CSC, GEJ, ZTB.
03116  M01S02812.282l826 ---|*
03117  M01S02813.282l826 ---|*         MACROS MBSATA, MBSXTA, MOVE.
03118  M01S02814.282l826 ---|
03119  M01S02815.282l826 ---|
03120  M01S02816.282l826 ---| PRE16    SX6    B0          FLAG END OF DISPLAY BUFFER
03121  M01S02817.282l826 ---|          SA6    X5
03122  M01S02818.282l826 ---|
03123  M01S02819.282l826 ---| PRE      SUBR               ENTRY/EXIT
03124  M01S02820.282l826 ---|          SX5    DBUF+DBUFS  SET START OF DISPLAY BUFFER
03125  M01S02821.282l826 ---|          MOVE   PREAL,PREA,X5  SET HEADER IN DISPLAY BUFFER
03126  M01S02822.282l826 ---|          SX5    X5+PREAL
03127  M01S02823.282l826 ---|          SA1    PNO
03128  M01S02824.282l826 ---|          ZR     X1,PRE16    IF NO PAGES FOR DISPLAY
03129  M01S02825.282l826 ---|          SX6    NLPTT+NLPHD+1  SET CURRENT LINE NUMBER
03130  M01S02826.282l826 ---|          SA6    CLN
03131  M01S02827.282l826 ---|          SA1    PAG         GET ADDRESS FOR FIRST ENTRY FOR PAGE
03132  M01S02828.282l826 ---|          ZR     X1,PRE16    IF NO PAGES FOR DISPLAY
03133  M01S02829.282l826 ---|          SA1    X1+TPDP-1
03134  M01S02830.282l826 ---| PRE1     NG     X1,PRE10    IF PREVIEW BUFFER ADDRESS
03135  M01S02831.282l826 ---|          ZR     X1,PRE16    IF END OF *UDT* TABLE
03136  M01S02832.282l826 ---|          SA0    X1          SAVE *UDT* ADDRESS
03137  M01S02833.282l826 ---|          SA1    CLN         CHECK CURRENT LINE NUMBER
03138  M01S02834.282l826 ---|          SX6    X1+LPEUP-NLPHD-NLPTT-NLPPG-2
03139  M01S02835.282l826 ---|          PL     X6,PRE16    IF NO MORE LINES IN DISPLAY
03140  M01S02836.282l826 ---|          SX6    X5+PREBL+PRECL-DBUF-DBUFL
03141  M01S02837.282l826 ---|          PL     X6,PRE16    IF NO MORE ROOM IN DISPLAY BUFFER
03142  M01S02838.282l826 ---|          SX0    PREB
03143  M01S02839.282l826 ---|          SA1    CLN
03144  M01S02840.282l826 ---|          RJ     CLY         CONVERT LINE NUMBER TO Y-COORDINATE
03145  M01S02841.282l826 ---|          MBSATA PREB,DPI2,12,47,47
03146  M01S02842.282l826 ---|          MBSATA PREB,DPJS,12,47,47
03147  M01S02843.282l826 ---|          SX0    PREC
03148  M01S02844.282l826 ---|          SA1    CLN
03149  M01S02845.282l826 ---|          SX1    X1+B1
03150  M01S02846.282l826 ---|          RJ     CLY         CONVERT LINE NUMBER TO Y-COORDINATE
03151  M01S02847.282l826 ---|
03152  M01S02848.282l826 ---|*         SET *JSN*.
03153  M01S02849.282l826 ---|
03154  M01S02850.282l826 ---|          MX0    -12         GET EJT ORDINAL
03155  M01S02851.282l826 ---|          SA1    A0+/MTX/UJID
03156  M01S02852.282l826 ---|          BX1    -X0*X1
03157  M01S02853.282l826 ---|          RJ     GEJ         GET EJT ENTRY
03158  M01S02854.282l826 ---|          MBSATA EBUF+JSNE,DPJS,DPJSC,59,DPJSU  SET JSN
03159  M01S02855.282l826 ---|

Line S02856 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03160  M02S02856.282l826 ---|*         SET TRACK TYPE.

Line S00190 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03161  M02S00190.282l826 ---|*         SET TAPE DEVICE TYPE.

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

Seq #  *Modification Id* Act 
----------------------------+
03162  M01S02857.282l826 ---|

Line S02858 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03163  M02S02858.282l826 ---|          SX0    B1          GET TRACK TYPE
03164  M02S02859.282l826 ---|          SA1    A0+/MTX/UST1  GET TRACK TYPE
03165  M02S02860.282l826 ---|          AX1    36
03166  M02S02861.282l826 ---|          BX1    X0*X1
03167  M02S02862.282l826 ---|          MBSATA X1+TTRT,DPTR,DPTRC,59,DPTRU  SET TRACK TYPE

Line S00191 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03168  M02S00191.282l826 ---|          MX0    -2          GET TAPE DEVICE TYPE
03169  M02S00192.282l826 ---|          SA1    A0+/MTX/UJID
03170  M02S00193.282l826 ---|          AX1    55
03171  M02S00194.282l826 ---|          BX1    -X0*X1
03172  M02S00195.282l826 ---|          MBSATA X1+TTDT,DPTR,DPTRC,59,DPTRU  SET TAPE DEVICE TYPE

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

Seq #  *Modification Id* Act 
----------------------------+
03173  M01S02863.282l826 ---|
03174  M01S02864.282l826 ---|*         SET EST ORDINAL.
03175  M01S02865.282l826 ---|
03176  M01S02866.282l826 ---|          MX0    -12         GET EST ORDINAL
03177  M01S02867.282l826 ---|          SA1    A0+/MTX/UST4
03178  M01S02868.282l826 ---|          AX1    24
03179  M01S02869.282l826 ---|          BX1    -X0*X1
03180  M01S02870.282l826 ---|          SX1    X1+10000B
03181  M01S02871.282l826 ---|          RJ     COD         CONVERT TO OCTAL DISPLAY
03182  M01S02872.282l826 ---|          MBSXTA X6,DPES,DPESC,DPESC-1,DPESU  SET EST ORDINAL
03183  M01S02873.282l826 ---|
03184  M01S02874.282l826 ---|*         SET *TMSVSN*.
03185  M01S02875.282l826 ---|
03186  M01S02876.282l826 ---|          SA2    A0+/MTX/UTMS  CHECK TMS FLAG
03187  M01S02877.282l826 ---|          LX2    59-11
03188  M01S02878.282l826 ---|          SA1    =7LNON-TMS
03189  M01S02879.282l826 ---|          BX4    X1
03190  M01S02880.282l826 ---|          PL     X2,PRE2     IF NOT TMS TAPE
03191  M01S02881.282l826 ---|          MX0    36          GET TMS VSN
03192  M01S02882.282l826 ---|          SA1    A0+/MTX/UESN
03193  M01S02883.282l826 ---|          BX1    X0*X1
03194  M01S02884.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03195  M01S02885.282l826 ---|          BX1    X6
03196  M01S02886.282l826 ---|          SA4    BLANKS
03197  M01S02887.282l826 ---| PRE2     BX6    X1          SAVE VSN
03198  M01S02888.282l826 ---|          SA6    PRED
03199  M01S02889.282l826 ---|          MBSXTA X1,DPTV,DPTVC,59,DPTVU  SET TMS VSN
03200  M01S02890.282l826 ---|          MBSXTA X4,DPI1,DPI1C,59,DPI1U  SET INTENSITY MESSAGES
03201  M01S02891.282l826 ---|          MBSXTA X4,DPI2,DPI2C,59,DPI2U
03202  M01S02892.282l826 ---|
03203  M01S02893.282l826 ---|*         SET OFF-SITE STATUS.
03204  M01S02894.282l826 ---|
03205  M01S02895.282l826 ---|          SA1    PRED        GET TMS VSN
03206  M01S02896.282l826 ---|          MX0    -12         GET FAMILY ORDINAL
03207  M01S02897.282l826 ---|          SA2    /MTX/UUFN
03208  M01S02898.282l826 ---|          AX2    12
03209  M01S02899.282l826 ---|          BX2    -X0*X2
03210  M01S02900.282l826 ---|          RJ     COS         CHECK OFF-SITE STATUS
03211  M01S02901.282l826 ---|          MBSXTA X1,DPOS,DPOSC,59,DPOSU  SET OFF-SITE FLAG
03212  M01S02902.282l826 ---|
03213  M01S02903.282l826 ---|*         SET *EQ*.
03214  M01S02904.282l826 ---|

Line S02905 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03215  M02S02905.282l826 ---|          SA2    A0+/MTX/UST1  GET TRACK TYPE
03216  M02S02906.282l826 ---|          LX2    59-36
03217  M02S02907.282l826 ---|          AX2    59
03218  M02S02908.282l826 ---|          MX0    -6          GET RESOURCE TYPE

Line S00196 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03219  M02S00196.282l826 ---|          SA2    A0+/MTX/UJID  GET TAPE DEVICE TYPE
03220  M02S00197.282l826 ---|          MX0    -2
03221  M02S00198.282l826 ---|          AX2    55
03222  M02S00199.282l826 ---|          BX2    -X0*X2
03223  M02S00200.282l826 ---|          ZR     X2,PRE2.1   IF *MT* TAPE
03224  M02S00201.282l826 ---|          MX0    -6          GET DENSITY

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

Seq #  *Modification Id* Act 
----------------------------+
03225  M01S02909.282l826 ---|          SA1    A0+/MTX/UST3
03226  M01S02910.282l826 ---|          AX1    6
03227  M01S02911.282l826 ---|          BX1    -X0*X1

Line S02912 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03228  M02S02912.282l826 ---|          BX1    X2*X1
03229  M02S02913.282l826 ---|          MBSATA X1+TDDN,DPEQ,DPEQC,59,DPEQU  SET EQUIPMENT TYPE

Line S00202 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03230  M02S00202.282l826 ---|          SX0    X2-3
03231  M02S00203.282l826 ---|          SX2    X1-2        CALCULATE RESOURCE INDEX
03232  M02S00204.282l826 ---|          NZ     X0,PRE2.1   IF NOT *AT* TAPE
03233  M02S00205.282l826 ---|          SX2    X2+1        ADJUST RESOURCE INDEX
03234  M02S00206.282l826 ---| PRE2.1   MBSATA X2+TRES,DPEQ,DPEQC,59,DPEQU  SET RESOURCE TYPE

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

Seq #  *Modification Id* Act 
----------------------------+
03235  M01S02914.282l826 ---|
03236  M01S02915.282l826 ---|*         CLEAR UNIT OFF FLAG
03237  M01S02916.282l826 ---|
03238  M01S02917.282l826 ---|          MBSATA BLANKS,DPOF,DPOFC,59,DPOFU  CLEAR OFF FLAG
03239  M01S02918.282l826 ---|
03240  M01S02919.282l826 ---|*         SET *VSN*.
03241  M01S02920.282l826 ---|
03242  M01S02921.282l826 ---|          MX0    36          CHECK FOR EQUIVALENCED VSN
03243  M01S02922.282l826 ---|          SA2    A0+/MTX/UVSN  CHECK FOR EQUIVALENCED VSN
03244  M01S02923.282l826 ---|          BX1    X0*X2
03245  M01S02924.282l826 ---|          LX2    59-19
03246  M01S02925.282l826 ---|          SX6    1R
03247  M01S02926.282l826 ---|          PL     X2,PRE3     IF NOT EQUIVALENCED VSN
03248  M01S02927.282l826 ---|          SX6    1R=
03249  M01S02928.282l826 ---| PRE3     LX6    18
03250  M01S02929.282l826 ---|          BX1    X1+X6
03251  M01S02930.282l826 ---|          LX2    59-22-59+19
03252  M01S02931.282l826 ---|          PL     X2,PRE4     IF NOT SCRATCH VSN
03253  M01S02932.282l826 ---|          SA1    =0LSCRATCH
03254  M01S02933.282l826 ---| PRE4     RJ     CSC         CHECK FOR SPECIAL CHARACTER
03255  M01S02934.282l826 ---|          MBSXTA X6,DPPV,DPPVC,59,DPPVU  SET PHYSICAL VSN
03256  M01S02935.282l826 ---|
03257  M01S02936.282l826 ---|*         SET *USERNAM*.
03258  M01S02937.282l826 ---|
03259  M01S02938.282l826 ---|          SA1    A0+/MTX/UUFN  GET USER NAME
03260  M01S02939.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03261  M01S02940.282l826 ---|          MBSXTA X6,DPUN,DPUNC,59,DPUNU
03262  M01S02941.282l826 ---|
03263  M01S02942.282l826 ---|*         SET *FAMILY*.
03264  M01S02943.282l826 ---|
03265  M01S02944.282l826 ---|          MX0    -6          GET FAMILY ORDINAL
03266  M01S02945.282l826 ---|          SA1    A0+/MTX/UUFN
03267  M01S02946.282l826 ---|          AX1    12
03268  M01S02947.282l826 ---|          BX1    -X0*X1
03269  M01S02948.282l826 ---|          SA1    X1+FBUF     GET FAMILY NAME
03270  M01S02949.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03271  M01S02950.282l826 ---|          MBSXTA X6,DPFM,DPFMC,59,DPFMU  SET FAMILY NAME
03272  M01S02951.282l826 ---|
03273  M01S02952.282l826 ---|*         SET *RING*.
03274  M01S02953.282l826 ---|
03275  M01S02954.282l826 ---|          MX0    -2          GET RING STATUS
03276  M01S02955.282l826 ---|          SA1    A0+/MTX/UST4
03277  M01S02956.282l826 ---|          AX1    3
03278  M01S02957.282l826 ---|          BX1    -X0*X1
03279  M01S02958.282l826 ---|          MBSATA X1+TRNG,DPRN,DPRNC,59,DPRNU  SET RING STATUS
03280  M01S02959.282l826 ---|
03281  M01S02960.282l826 ---|*         SET *LAB*.
03282  M01S02961.282l826 ---|

Line S02962 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03283  M02S02962.282l826 ---|          SA1    A0+/MTX/UST2  CHECK LABELLED STATUS

Line S00207 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03284  M02S00207.282l826 ---|          SA1    A0+/MTX/UST2  CHECK LABELED STATUS

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

Seq #  *Modification Id* Act 
----------------------------+
03285  M01S02963.282l826 ---|          LX1    59-11
03286  M01S02964.282l826 ---|          SX6    3R---

Line S02965 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03287  M02S02965.282l826 ---|          PL     X1,PRE5     IF NOT LABELLED

Line S00208 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03288  M02S00208.282l826 ---|          PL     X1,PRE5     IF NOT LABELED

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

Seq #  *Modification Id* Act 
----------------------------+
03289  M01S02966.282l826 ---|          SX6    3RYES

Line S02967 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03290  M02S02967.282l826 ---| PRE5     MBSXTA X6,DPLB,DPLBC,17,DPLBU  SET LABELLED STATUS

Line S00209 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03291  M02S00209.282l826 ---| PRE5     MBSXTA X6,DPLB,DPLBC,17,DPLBU  SET LABELED STATUS

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

Seq #  *Modification Id* Act 
----------------------------+
03292  M01S02968.282l826 ---|
03293  M01S02969.282l826 ---|*         SET *LEVEL*.
03294  M01S02970.282l826 ---|
03295  M01S02971.282l826 ---|          SA2    SSS         CHECK IF SECURED SYSTEM
03296  M01S02972.282l826 ---|          SA1    BLANKS
03297  M01S02973.282l826 ---|          ZR     X2,PRE6     IF NOT SECURED SYSTEM
03298  M01S02974.282l826 ---|          MX0    -3          GET ACCESS LEVEL
03299  M01S02975.282l826 ---|          SA1    A0+/MTX/UVRI
03300  M01S02976.282l826 ---|          AX1    42
03301  M01S02977.282l826 ---|          BX1    -X0*X1
03302  M01S02978.282l826 ---|          SA1    X1+TLVL
03303  M01S02979.282l826 ---| PRE6     MBSATA A1,DPLV,DPLVC,59,DPLVU  SET/CLEAR ACCESS LEVEL
03304  M01S02980.282l826 ---|
03305  M01S02981.282l826 ---|*         SET SECOND STATUS MESSAGE.
03306  M01S02982.282l826 ---|
03307  M01S02983.282l826 ---|          SX0    17B         GET ERROR CODE
03308  M01S02984.282l826 ---|          SA1    A0+/MTX/UVSN
03309  M01S02985.282l826 ---|          AX1    15
03310  M01S02986.282l826 ---|          BX1    X0*X1
03311  M01S02987.282l826 ---|          SX2    X1-/MTX/DMB
03312  M01S02988.282l826 ---|          SA1    X1+TMEM
03313  M01S02989.282l826 ---|          NZ     X2,PRE8     IF NOT UDT MESSAGE
03314  M01S02990.282l826 ---|          SA1    A0+/MTX/UMB1
03315  M01S02991.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03316  M01S02992.282l826 ---|          SA6    A1
03317  M01S02993.282l826 ---|          SA1    A1+B1
03318  M01S02994.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03319  M01S02995.282l826 ---|          SA6    A1
03320  M01S02996.282l826 ---|          SX1    A0+/MTX/UMB1
03321  M01S02997.282l826 ---| PRE8     MBSATA X1,DPS2,DPS2C,59,DPS2U  SET SECOND STATUS MESSAGE
03322  M01S02998.282l826 ---|
03323  M01S02999.282l826 ---|*         SET THIRD STATUS MESSAGE.
03324  M01S03000.282l826 ---|
03325  M01S03001.282l826 ---|          SA1    A0+/MTX/UMB2
03326  M01S03002.282l826 ---|          NZ     X1,PRE9     IF THIRD STATUS MESSAGE
03327  M01S03003.282l826 ---|          SA1    BLANKS
03328  M01S03004.282l826 ---| PRE9     RJ     ZTB         CONVERT ZEROES TO BLANKS
03329  M01S03005.282l826 ---|          SA6    PREE
03330  M01S03006.282l826 ---|          SA1    A1+B1
03331  M01S03007.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03332  M01S03008.282l826 ---|          SA6    A6+B1
03333  M01S03009.282l826 ---|          MBSATA PREE,DPS3,DPS3C,59,DPS3U  SET THIRD STATUS MESSAGE
03334  M01S03010.282l826 ---|          MOVE   PREBL+PRECL,PREB,X5  SET ENTRY INTO BUFFER
03335  M01S03011.282l826 ---|          SX5    X5+PREBL+PRECL  INCREMENT DISPLAY BUFFER ADDRESS
03336  M01S03012.282l826 ---|          SA1    CLN         INCREMENT CURRENT LINE NUMBER
03337  M01S03013.282l826 ---|          SX6    X1+LPEUP
03338  M01S03014.282l826 ---|          SA6    A1
03339  M01S03015.282l826 ---|          SA1    A0          GET NEXT *UDT* ADDRESS
03340  M01S03016.282l826 ---|          EQ     PRE1        CHECK ADDRESS
03341  M01S03017.282l826 ---|
03342  M01S03018.282l826 ---| PRE10    BX1    -X1         GET PREVIEW BUFFER ADDRESS
03343  M01S03019.282l826 ---|          SA0    X1
03344  M01S03020.282l826 ---| PRE11    SA1    A0
03345  M01S03021.282l826 ---|          ZR     X1,PRE16    IF END OF PREVIEW BUFFER
03346  M01S03022.282l826 ---|          SA1    CLN         CHECK CURRENT LINE NUMBER
03347  M01S03023.282l826 ---|          SX6    X1+LPEPB-NLPHD-NLPTT-NLPPG-2
03348  M01S03024.282l826 ---|          PL     X6,PRE16    IF NO MORE LINES IN DISPLAY
03349  M01S03025.282l826 ---|          SX6    X5+PREAL-DBUF-DBUFL
03350  M01S03026.282l826 ---|          PL     X6,PRE16    IF NO MORE ROOM IN DISPLAY BUFFER
03351  M01S03027.282l826 ---|          SX0    PREB
03352  M01S03028.282l826 ---|          SA1    CLN
03353  M01S03029.282l826 ---|          RJ     CLY         CONVERT LINE NUMBER TO Y-COORDINATE
03354  M01S03030.282l826 ---|          MBSATA PREB,DPI2,12,47,47
03355  M01S03031.282l826 ---|          MBSATA PREB,DPJS,12,47,47
03356  M01S03032.282l826 ---|
03357  M01S03033.282l826 ---|*         PRESET TMS/PHYSICAL VSNS.
03358  M01S03034.282l826 ---|
03359  M01S03035.282l826 ---|          MX0    12-1        CHECK IF TAPE REQUEST
03360  M01S03036.282l826 ---|          LX0    -1

Line S03037 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03361  M02S03037.282l826 ---|          SA1    A0+B0

Line S00210 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03362  M02S00210.282l826 ---|          SA1    A0+/MTX/PRST

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

Seq #  *Modification Id* Act 
----------------------------+
03363  M01S03038.282l826 ---|          LX1    42

Line S03039 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03364  M02S03039.282l826 ---|          SRCHTAB  X1,TDDN,0,1,TDDNL

Line S00211 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03365  M02S00211.282l826 ---|          SRCHTAB  X1,TRES,0,1,TRESL

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

Seq #  *Modification Id* Act 
----------------------------+
03366  M01S03040.282l826 ---|          SA3    BLANKS
03367  M01S03041.282l826 ---|          SA4    BLANKS
03368  M01S03042.282l826 ---|          NZ     X6,PRE12    IF NOT A TAPE REQUEST

Line S03043 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03369  M02S03043.282l826 ---|          SA2    A0+2        CHECK TMS FLAG

Line S00212 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03370  M02S00212.282l826 ---|          SA2    A0+/MTX/PFLG  CHECK *TMS* FLAG

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

Seq #  *Modification Id* Act 
----------------------------+
03371  M01S03044.282l826 ---|          BX3    X2
03372  M01S03045.282l826 ---|          LX2    59-23

Line S03046 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03373  M02S03046.282l826 ---|          PL     X2,PRE12    IF TMS

Line S00213 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03374  M02S00213.282l826 ---|          PL     X2,PRE12    IF *TMS*

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

Seq #  *Modification Id* Act 
----------------------------+
03375  M01S03047.282l826 ---|          SA3    =7LNON-TMS
03376  M01S03048.282l826 ---|          BX4    X3
03377  M01S03049.282l826 ---| PRE12    BX6    X3          SET *TMS* VSN
03378  M01S03050.282l826 ---|          SA6    PRED
03379  M01S03051.282l826 ---|          BX6    X4          SAVE INTENSITY MESSAGE
03380  M01S03052.282l826 ---|          SA6    PREE
03381  M01S03053.282l826 ---|
03382  M01S03054.282l826 ---|*         SET *JSN*.
03383  M01S03055.282l826 ---|
03384  M01S03056.282l826 ---|          MX0    -12         GET EJT ORDINAL

Line S03057 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03385  M02S03057.282l826 ---|          SA1    A0+B1

Line S00214 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03386  M02S00214.282l826 ---|          SA1    A0+/MTX/PUID

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

Seq #  *Modification Id* Act 
----------------------------+
03387  M01S03058.282l826 ---|          BX1    -X0*X1
03388  M01S03059.282l826 ---|          RJ     GEJ         GET EJT ENTRY
03389  M01S03060.282l826 ---|          MBSATA EBUF+JSNE,DPJS,DPJSC,59,DPJSU  SET JSN
03390  M01S03061.282l826 ---|
03391  M01S03062.282l826 ---|*         SET *TMSVSN*.
03392  M01S03063.282l826 ---|
03393  M01S03064.282l826 ---|          SA1    PRED
03394  M01S03065.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03395  M01S03066.282l826 ---|          MBSXTA X6,DPTV,DPTVC,59,DPTVU  SET *TMS* VSN
03396  M01S03067.282l826 ---|          MBSATA PREE,DPI1,DPI1C,59,DPI1U  SET INTENSITY MESSAGES
03397  M01S03068.282l826 ---|          MBSATA PREE,DPI2,DPI2C,59,DPI2U
03398  M01S03069.282l826 ---|
03399  M01S03070.282l826 ---|*         SET OFF-SITE STATUS.
03400  M01S03071.282l826 ---|
03401  M01S03072.282l826 ---|          SA1    PRED        GET TMS VSN

Line S03073 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03402  M02S03073.282l826 ---|          MX0    -12         GET FAMILY ORDINAL
03403  M02S03074.282l826 ---|          SA2    A0+2

Line S00215 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03404  M02S00215.282l826 ---|          MX0    -6          GET FAMILY ORDINAL
03405  M02S00216.282l826 ---|          SA2    A0+/MTX/PUID
03406  M02S00217.282l826 ---|          AX2    12

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

Seq #  *Modification Id* Act 
----------------------------+
03407  M01S03075.282l826 ---|          BX2    -X0*X2
03408  M01S03076.282l826 ---|          RJ     COS         CHECK OFF-SITE STATUS
03409  M01S03077.282l826 ---|          MBSXTA X1,DPOS,DPOSC,59,DPOSU  SET OFF-SITE FLAG
03410  M01S03078.282l826 ---|
03411  M01S03079.282l826 ---|*         SET *STATUS*.
03412  M01S03080.282l826 ---|
03413  M01S03081.282l826 ---|          MBSATA (=5HMOUNT),DPS1,DPS1C,59,DPS1U  SET STATUS MESSAGE
03414  M01S03082.282l826 ---|
03415  M01S03083.282l826 ---|*         SET *EQ*.
03416  M01S03084.282l826 ---|
03417  M01S03085.282l826 ---|          MX0    -17         GET EQUIPMENT TYPE MNEMONIC

Line S03086 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03418  M02S03086.282l826 ---|          SA1    A0+B0

Line S00218 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03419  M02S00218.282l826 ---|          SA1    A0+/MTX/PRST

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

Seq #  *Modification Id* Act 
----------------------------+
03420  M01S03087.282l826 ---|          BX1    -X0*X1
03421  M01S03088.282l826 ---|          MBSXTA X1,DPEQ,DPEQC,DPEQC-1,DPEQU  SET EQUIPMENT TYPE
03422  M01S03089.282l826 ---|
03423  M01S03090.282l826 ---|*         SET UNIT OFF FLAG.
03424  M01S03091.282l826 ---|

Line S03092 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03425  M02S03092.282l826 ---|          SA1    A0+B0       CHECK UNIT OFF FLAG

Line S00219 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03426  M02S00219.282l826 ---|          SA1    A0+/MTX/PRST  CHECK UNIT OFF FLAG

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

Seq #  *Modification Id* Act 
----------------------------+
03427  M01S03093.282l826 ---|          LX1    59-17
03428  M01S03094.282l826 ---|          SX6    1R
03429  M01S03095.282l826 ---|          PL     X1,PRE13    IF NOT UNIT OFF
03430  M01S03096.282l826 ---|          SX6    1R*
03431  M01S03097.282l826 ---| PRE13    MBSXTA X6,DPOF,DPOFC,5,DPOFU  SET UNIT OFF FLAG
03432  M01S03098.282l826 ---|
03433  M01S03099.282l826 ---|*         SET *PN/VSN*.
03434  M01S03100.282l826 ---|

Line S03101 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03435  M02S03101.282l826 ---|          SA1    A0+B0       GET VSN/PACKNAME

Line S00220 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03436  M02S00220.282l826 ---|          SA1    A0+/MTX/PRST  GET VSN/PACKNAME

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

Seq #  *Modification Id* Act 
----------------------------+
03437  M01S03102.282l826 ---|          RJ     CSC         CHECK FOR SPECIAL CHARACTERS
03438  M01S03103.282l826 ---|          MBSXTA X6,DPPV,DPPVC,59,DPPVU  SET VSN/PACKNAME
03439  M01S03104.282l826 ---|
03440  M01S03105.282l826 ---|*         SET *USERNAM*.
03441  M01S03106.282l826 ---|

Line S03107 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03442  M02S03107.282l826 ---|          SA1    A0+B1       GET USER NAME

Line S00221 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03443  M02S00221.282l826 ---|          SA1    A0+/MTX/PUID  GET USER NAME

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

Seq #  *Modification Id* Act 
----------------------------+
03444  M01S03108.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03445  M01S03109.282l826 ---|          MBSXTA X6,DPUN,DPUNC,59,DPUNU  SET USER NAME
03446  M01S03110.282l826 ---|
03447  M01S03111.282l826 ---|*         SET *FAMILY*.
03448  M01S03112.282l826 ---|

Line S03113 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03449  M02S03113.282l826 ---|          MX0    -12         GET FAMILY ORDINAL
03450  M02S03114.282l826 ---|          SA1    A0+2

Line S00222 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03451  M02S00222.282l826 ---|          MX0    -6          GET FAMILY ORDINAL
03452  M02S00223.282l826 ---|          SA1    A0+/MTX/PUID
03453  M02S00224.282l826 ---|          AX1    12

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

Seq #  *Modification Id* Act 
----------------------------+
03454  M01S03115.282l826 ---|          BX1    -X0*X1
03455  M01S03116.282l826 ---|          SA1    X1+FBUF
03456  M01S03117.282l826 ---|          RJ     ZTB         CONVERT ZEROES TO BLANKS
03457  M01S03118.282l826 ---|          MBSXTA X6,DPFM,DPFMC,59,DPFMU  SET FAMILY NAME
03458  M01S03119.282l826 ---|
03459  M01S03120.282l826 ---|*         SET *RING*.
03460  M01S03121.282l826 ---|
03461  M01S03122.282l826 ---|          MX0    -2          GET RING STATUS

Line S03123 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03462  M02S03123.282l826 ---|          SA1    A0+B1
03463  M02S03124.282l826 ---|          AX1    12

Line S00225 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03464  M02S00225.282l826 ---|          SA1    A0+/MTX/PFLG

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

Seq #  *Modification Id* Act 
----------------------------+
03465  M01S03125.282l826 ---|          BX1    -X0*X1
03466  M01S03126.282l826 ---|          MBSATA X1+TRNG,DPRN,DPRNC,59,DPRNU  SET RING STATUS
03467  M01S03127.282l826 ---|
03468  M01S03128.282l826 ---|*         SET *LAB*.
03469  M01S03129.282l826 ---|

Line S03130 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03470  M02S03130.282l826 ---|          SA1    A0+B1       CHECK LABELLED STATUS
03471  M02S03131.282l826 ---|          LX1    59-14

Line S00226 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03472  M02S00226.282l826 ---|          SA1    A0+/MTX/PFLG  CHECK LABELED STATUS
03473  M02S00227.282l826 ---|          LX1    59-2

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

Seq #  *Modification Id* Act 
----------------------------+
03474  M01S03132.282l826 ---|          SX6    3R---

Line S03133 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03475  M02S03133.282l826 ---|          PL     X1,PRE14    IF NOT LABELLED

Line S00228 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03476  M02S00228.282l826 ---|          PL     X1,PRE14    IF NOT LABELED

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

Seq #  *Modification Id* Act 
----------------------------+
03477  M01S03134.282l826 ---|          SX6    3RYES

Line S03135 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03478  M02S03135.282l826 ---| PRE14    MBSXTA X6,DPLB,DPLBC,DPLBC-1,DPLBU  SET LABELLED STATUS

Line S00229 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed 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` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03480  M01S03136.282l826 ---|
03481  M01S03137.282l826 ---|*         SET *LEVEL*.
03482  M01S03138.282l826 ---|
03483  M01S03139.282l826 ---|          SA2    SSS         CHECK FOR SECURED SYSTEM
03484  M01S03140.282l826 ---|          SA1    BLANKS
03485  M01S03141.282l826 ---|          ZR     X2,PRE15    IF NOT SECURED SYSTEM
03486  M01S03142.282l826 ---|          MX0    -3          GET ACCESS LEVEL

Line S03143 Modification History
`M01` (Removed by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03487  M02S03143.282l826 ---|          SA1    A0+B1
03488  M02S03144.282l826 ---|          AX1    15

Line S00230 Modification History
`M01` (Added by)	`274l797`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
03489  M02S00230.282l826 ---|          SA1    A0+/MTX/PFLG
03490  M02S00231.282l826 ---|          AX1    3

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

Seq #  *Modification Id* Act 
----------------------------+
03491  M01S03145.282l826 ---|          BX1    -X0*X3
03492  M01S03146.282l826 ---|          SA1    X1+TLVL
03493  M01S03147.282l826 ---| PRE15    MBSATA A1,DPLV,DPLVC,59,DPLVU  SET ACCESS LEVEL
03494  M01S03148.282l826 ---|          MOVE   PREBL,PREB,X5  SET ENTRY INTO DISPLAY
03495  M01S03149.282l826 ---|          SX5    X5+PREBL    INCREMENT DISPLAY BUFFER ADDRESS
03496  M01S03150.282l826 ---|          SA0    A0+PBUFE    INCREMENT PREVIEW BUFFER ADDRESS
03497  M01S03151.282l826 ---|          SA1    CLN         INCREMENT CURRENT LINE NUMBER
03498  M01S03152.282l826 ---|          SX6    X1+LPEPB
03499  M01S03153.282l826 ---|          SA6    A1
03500  M01S03154.282l826 ---|          EQ     PRE11       CHECK NEXT PREVIEW ENTRY
03501  M01S03155.282l826 ---|
03502  M01S03156.282l826 ---| PREA     BSS    0           PREVIEW DISPLAY HEADER
03503  M01S03157.282l826 ---|          LDISS  1,NLPTT+1
03504  M01S03158.282l826 ---|          LDIS   4,(JSN )
03505  M01S03159.282l826 ---|          LDIS   1,( )
03506  M01S03160.282l826 ---|          LDIS   7,(TMSVSN )
03507  M01S03161.282l826 ---|          LDIS   6,(STATUS)
03508  M01S03162.282l826 ---|          LDIS   1,( )
03509  M01S03163.282l826 ---|          LDIS   3,(EQ )
03510  M01S03164.282l826 ---|          LDIS   1,( )
03511  M01S03165.282l826 ---|          LDIS   7,(PN/VSN )
03512  M01S03166.282l826 ---|          LDIS   1,( )
03513  M01S03167.282l826 ---|          LDIS   7,(USERNAM)
03514  M01S03168.282l826 ---|          LDIS   1,( )
03515  M01S03169.282l826 ---|          LDIS   7,(FAMILY )
03516  M01S03170.282l826 ---|          LDIS   4,(RING)
03517  M01S03171.282l826 ---|          LDIS   1,( )
03518  M01S03172.282l826 ---|          LDIS   3,(LAB)
03519  M01S03173.282l826 ---|          LDIS   1,( )
03520  M01S03174.282l826 ---| DPLH     LDIS   7,(LEVEL  ) ACCESS LEVEL HEADER
03521  M01S03175.282l826 ---|          LDISE
03522  M01S03176.282l826 ---| PREAL    EQU    *-PREA      PREVIEW DISPLAY HEADER LENGTH
03523  M01S03177.282l826 ---|
03524  M01S03178.282l826 ---| PREB     BSS    0           PREVIEW DISPLAY FIRST LINE OF ENTRY
03525  M01S03179.282l826 ---| DPFCT    EQU    6           FIRST CHARACTER OF *TMSVSN*
03526  M01S03180.282l826 ---|          LDISS  DPFCT,K+1
03527  M01S03181.282l826 ---| DPI1     LDIS   7,(NON-TMS) FIRST *TMS* VSN INTENSITY MESSAGE
03528  M01S03182.282l826 ---|          LDISE
03529  M01S03183.282l826 ---|          LDISS  DPFCT,K-1
03530  M01S03184.282l826 ---| DPI2     LDIS   7,(NON-TMS) SECOND *TMS* VSN INTENSITY MESSAGE
03531  M01S03185.282l826 ---|          LDISE
03532  M01S03186.282l826 ---|          LDISS  1,K-1
03533  M01S03187.282l826 ---| DPJS     LDIS   4,(JSNN)    JOB SEQUENCE NUMBER
03534  M01S03188.282l826 ---| DPOS     LDIS   1,( )       OFF-SITE FLAG
03535  M01S03189.282l826 ---| DPFCT    EQU    CP+1        FIRST CHARACTER OF *TMSVSN*
03536  M01S03190.282l826 ---| DPTV     LDIS   7,(NON-TMS) TMS VSN
03537  M01S03191.282l826 ---|          LDIS   1,( )
03538  M01S03192.282l826 ---| DPFCS    EQU    CP+1        FIRST CHARACTER POSITION OF SECOND LINE
03539  M01S03193.282l826 ---| DPTR     LDIS   2,(NT)      TRACK TYPE
03540  M01S03194.282l826 ---| DPES     LDIS   3,(060)     EST ORDINAL
03541  M01S03195.282l826 ---|*DPS1     LDIS   5,(MOUNT)   FIRST STATUS MESSAGE
03542  M01S03196.282l826 ---| DPS1     EQU    DPTR        ADDRESS OF FIRST STATUS MESSAGE
03543  M01S03197.282l826 ---| DPS1C    EQU    DPTRC+DPESC BIT COUNT OF FIRST STATUS MESSAGE
03544  M01S03198.282l826 ---| DPS1U    EQU    DPTRU       UPPER BIT POSITION OF FIRST STATUS MESSAGE
03545  M01S03199.282l826 ---|          LDIS   1,( )
03546  M01S03200.282l826 ---| DPEQ     LDIS   3,(DJ1)     EQUIPMENT TYPE
03547  M01S03201.282l826 ---| DPOF     LDIS   1,(*)       UNIT OFF FLAG
03548  M01S03202.282l826 ---| DPPV     LDIS   7,(PACKNAM) VSN OR PACK NAME
03549  M01S03203.282l826 ---|          LDIS   1,( )
03550  M01S03204.282l826 ---| DPUN     LDIS   7,(USERNAM) USER NAME
03551  M01S03205.282l826 ---|          LDIS   1,( )
03552  M01S03206.282l826 ---| DPFM     LDIS   7,(FAMNAME) FAMILY NAME
03553  M01S03207.282l826 ---|          LDIS   1,( )
03554  M01S03208.282l826 ---| DPRN     LDIS   3,(---)     RING REQUIREMENT
03555  M01S03209.282l826 ---|          LDIS   1,( )
03556  M01S03210.282l826 ---| DPLB     LDIS   3,(---)     LABEL REQUIREMENT
03557  M01S03211.282l826 ---|          LDIS   1,( )
03558  M01S03212.282l826 ---| DPLV     LDIS   7,(LVL0   ) ACCESS LEVEL
03559  M01S03213.282l826 ---|          LDISE
03560  M01S03214.282l826 ---| PREBL    EQU    *-PREB      PREVIEW DISPLAY FIRST LINE LENGTH
03561  M01S03215.282l826 ---|
03562  M01S03216.282l826 ---| PREC     BSS    0           PREVIEW DISPLAY SECOND LINE OF ENTRY
03563  M01S03217.282l826 ---|          LDISS  DPFCS,K
03564  M01S03218.282l826 ---| DPS2     LDIS   20,(                    )  SECOND STATUS MESSAGE
03565  M01S03219.282l826 ---|          LDIS   1,( )
03566  M01S03220.282l826 ---| DPS3     LDIS   20,(                    )  THIRD STATUS MESSAGE
03567  M01S03221.282l826 ---|          LDISE
03568  M01S03222.282l826 ---| PRECL    EQU    *-PREC      PREVIEW DISPLAY SECOND LINE LENGTH
03569  M01S03223.282l826 ---|
03570  M01S03224.282l826 ---| PRED     BSS    1           *TMSVSN* HOLDER
03571  M01S03225.282l826 ---| PREE     BSS    1           *TMSVSN* INTENSITY HOLDER
03572  M01S03226.282l826 ---|
03573  M01S03227.282l826 ---| NWIPT    SET    PREBL+PRECL
03574  M01S03228.282l826 ---| NWIPT    MAX    NWIPT*NLPPG/LPEUP,PREBL*NLPPG/LPEPB
03575  M01S03229.282l826 ---| NWIPD    EQU    NWIPT+PREAL NUMBER OF WORDS IN *PRE* DISPLAY
03576  M00S03230.ldistap +++|          TITLE  SYSTEM STATUS SUBROUTINES.
03577  M00S03231.ldistap +++| CCB      SPACE  4,10
03578  M00S03232.ldistap +++|**        CCB - CLEAR CATALOG BUFFER.
03579  M00S03233.ldistap +++|*
03580  M00S03234.ldistap +++|*         (A0) = ADDRESS OF CATALOG BUFFER.
03581  M00S03235.ldistap +++|*
03582  M00S03236.ldistap +++|*         EXIT   CATALOG BUFFER FIELDS SET TO ZERO.

Line S03237 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03583  M01S03237.274l797 ---|*                NEXT SCRATCH VSN SET TO SIX HYPHENS.

Line S00232 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S03238.ldistap +++|*
03588  M00S03239.ldistap +++|*         MACROS CLEAR, MBSATA.
03589  M00S03240.ldistap +++|
03590  M00S03241.ldistap +++|
03591  M00S03242.ldistap +++| CCB      SUBR               ENTRY/EXIT
03592  M00S03243.ldistap +++|          CLEAR  A0,SBUFE    CLEAR CATALOG BUFFER

Line S03244 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03593  M01S03244.274l797 ---|          MBSATA HYPHENS,A0+SBCWL+/TFM/TMSV,6*6,59,59  CLEAR SCRATCH

Line S00235 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S03245.ldistap +++|          EQ     CCBX        RETURN
03598  M00S03246.ldistap +++| CCS      SPACE  4,20
03599  M00S03247.ldistap +++|**        CCS - CHECK CATALOG STATUS.
03600  M00S03248.ldistap +++|*
03601  M00S03249.ldistap +++|*         ENTRY  (A0) = ADDRESS OF CATALOG BUFFER.
03602  M00S03250.ldistap +++|*                (X4) = *CSCFA* IF CATALOG IS FAST-ATTACHED.
03603  M00S03251.ldistap +++|*                     = *CSCFB* IF CATALOG IS BUSY.
03604  M00S03252.ldistap +++|*
03605  M00S03253.ldistap +++|*         EXIT   ((A0)+0) = BIT 47 SET IF CATALOG IS BUSY.
03606  M00S03254.ldistap +++|*                (X4) = *CSERR* IF CATALOG ERROR.

Line S03255 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03607  M01S03255.274l797 ---|*                     = *CSNSV* IF NO SCRATCH VSNS.

Line S00238 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03608  M01S00238.274l797 +++|*                     = *CSNSV* IF NO SCRATCH VSNS OF ANY TYPE.
03609  M00S03256.ldistap +++|*                     = *CSCFA* IF NO SPECIAL STATUS.
03610  M00S03257.ldistap +++|*                (CCE) INCREMENTED IF CATALOG ERROR.

Line S03258 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03611  M01S03258.274l797 ---|*                (CNS) INCREMENTED IF NO SCRATCH VSNS.
03612  M01S03259.274l797 ---|*                NEXT SCRATCH SET TO SIX HYPHENS IF NO SCRATCH VSNS.

Line S00239 Modification History
`M01` (Added by)	`274l797`

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

Line S03261 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03620  M01S03261.274l797 ---|*         USES   X - 0, 1, 6.

Line S00245 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03621  M01S00245.274l797 +++|*         USES   X - 0, 1, 4, 6, 7.
03622  M00S03262.ldistap +++|*                A - 1, 6.
03623  M00S03263.ldistap +++|*
03624  M00S03264.ldistap +++|*         MACROS MBSATA, MBSXTA.
03625  M00S03265.ldistap +++|
03626  M00S03266.ldistap +++|

Line S03267 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03627  M01S03267.274l797 ---| CCS3     SX1    X4-CSNSV
03628  M01S03268.274l797 ---|          NZ     X1,CCSX     IF SCRATCH VSNS
03629  M01S03269.274l797 ---|          SA1    CNS         INCREMENT NO SCRATCH FAMILY COUNT
03630  M01S03270.274l797 ---|          SX6    X1+B1
03631  M01S03271.274l797 ---|          SA6    A1

Line S00246 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S03272.ldistap +++|
03636  M00S03273.ldistap +++| CCS      SUBR               ENTRY/EXIT
03637  M00S03274.ldistap +++|          SX6    X4-CSCFA
03638  M00S03275.ldistap +++|          SX1    B0
03639  M00S03276.ldistap +++|          ZR     X6,CCS1     IF CATALOG IS FAST-ATTACHED
03640  M00S03277.ldistap +++|          SX4    CSCFA
03641  M00S03278.ldistap +++|          SX1    B1+
03642  M00S03279.ldistap +++| CCS1     MBSXTA X1,A0,1,0,47  SET/CLEAR CATALOG BUSY BIT

Line S03280 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03643  M01S03280.274l797 ---|          MX0    -24         CHECK SCRATCH VSN COUNT
03644  M01S03281.274l797 ---|          SA1    A0+SBCWL+/TFM/TMSV
03645  M01S03282.274l797 ---|          BX1    -X0*X1
03646  M01S03283.274l797 ---|          NZ     X1,CCS2     IF SCRATCH VSNS
03647  M01S03284.274l797 ---|          MBSATA HYPHENS,A0+SBCWL+/TFM/TMSV,6*6,59,59  CLEAR SCRATCH
03648  M01S03285.274l797 ---|          SX4    CSNSV
03649  M01S03286.274l797 ---| CCS2     SX0    /TFM/FETS   CHECK FOR CATALOG ERROR

Line S00249 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S03287.ldistap +++|          SA1    A0+SBCWL+/TFM/TMFM
03683  M00S03288.ldistap +++|          BX1    X0*X1

Line S03289 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03684  M01S03289.274l797 ---|          ZR     X1,CCS3     IF NO CATALOG ERROR

Line S00281 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03685  M01S00281.274l797 +++|          ZR     X1,CCS5     IF NO CATALOG ERROR
03686  M00S03290.ldistap +++|          SA1    CCE         INCREMENT CATALOG ERROR COUNT
03687  M00S03291.ldistap +++|          SX6    X1+B1
03688  M00S03292.ldistap +++|          SA6    A1
03689  M00S03293.ldistap +++|          SX4    CSERR
03690  M00S03294.ldistap +++|          EQ     CCSX        RETURN

Line S00282 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03691  M01S00282.274l797 +++|
03692  M01S00283.274l797 +++|
03693  M01S00284.274l797 +++| CCSB     CON    0           TOTAL SCRATCH COUNT FOR THIS FAMILY
03694  M00S03295.ldistap +++| CNF      SPACE  4,10
03695  M00S03296.ldistap +++|**        CNF - CHECK NON-FAST ATTACHED FILE STATUS.
03696  M00S03297.ldistap +++|*
03697  M00S03298.ldistap +++|*         EXIT   CALL *CCS* IF CATALOG ERROR.
03698  M00S03299.ldistap +++|*                CALL *CCB* IF NO CATALOG ERROR.
03699  M00S03300.ldistap +++|*
03700  M00S03301.ldistap +++|*         USES   X - 0, 1.
03701  M00S03302.ldistap +++|*                A - 1.
03702  M00S03303.ldistap +++|*
03703  M00S03304.ldistap +++|*         CALLS  CCB, CCS.
03704  M00S03305.ldistap +++|
03705  M00S03306.ldistap +++|
03706  M00S03307.ldistap +++| CNF1     RJ     CCB         CLEAR CATALOG BUFFER
03707  M00S03308.ldistap +++|
03708  M00S03309.ldistap +++| CNF      SUBR               ENTRY/EXIT
03709  M00S03310.ldistap +++|          SX0    /TFM/FETS   CHECK FOR CATALOG ERROR
03710  M00S03311.ldistap +++|          SA1    A0+SBCWL+/TFM/TMFM
03711  M00S03312.ldistap +++|          BX1    X0*X1
03712  M00S03313.ldistap +++|          ZR     X1,CNF1     IF NO CATALOG ERROR
03713  M00S03314.ldistap +++|          SX4    CSCFA
03714  M00S03315.ldistap +++|          RJ     CCS         CHECK CATALOG STATUS
03715  M00S03316.ldistap +++|          EQ     CNFX        RETURN
03716  M00S03317.ldistap +++| GCS      SPACE  4,20
03717  M00S03318.ldistap +++|**        GCS - GET CATALOG STATUSES.
03718  M00S03319.ldistap +++|*
03719  M00S03320.ldistap +++|*         EXIT   CATALOG STATUS BUFFERS SET INTO *SBUF*.
03720  M00S03321.ldistap +++|*                FAMILY ORDINAL TABLE SET INTO *FBUF*.
03721  M00S03322.ldistap +++|*                FIRST CATALOG STATUS BUFFER ENTRY FOR EACH DISPLAY
03722  M00S03323.ldistap +++|*                PAGE SET INTO *TFDP*.
03723  M00S03324.ldistap +++|*                WORD 0 OF EACH CATALOG STATUS BUFFER ENTRY SET -
03724  M00S03325.ldistap +++|*T,       12/STATUS, 1/BUSY FLAG, 29/0, 18/ADDRESS OF NEXT ENTRY

Figure

03725  M00S03326.ldistap +++|*                (CCE) = NUMBER OF FAMILY CATALOGS WITH ERRORS.
03726  M00S03327.ldistap +++|*                (CNS) = NUMBER OF FAMILY CATALOGS WITH NO SCRATCH.

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

Seq #  *Modification Id* Act 
----------------------------+
03727  M01S03328.nos252  ---|*                (TMS) = 0 IF *TMS* IS NOT ACTIVE.

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

Seq #  *Modification Id* Act 
----------------------------+
03728  M01S00059.nos252  +++|*                (TMS) = 0 IF *TMS* IS ACTIVE.
03729  M00S03329.ldistap +++|*
03730  M00S03330.ldistap +++|*         USES   X - 0, 1, 2, 4, 5, 6.
03731  M00S03331.ldistap +++|*                A - 0, 1, 2, 4, 5, 6.
03732  M00S03332.ldistap +++|*                B - 2, 3.
03733  M00S03333.ldistap +++|*
03734  M00S03334.ldistap +++|*         CALLS  ACF, SWP.
03735  M00S03335.ldistap +++|*
03736  M00S03336.ldistap +++|*         MACROS CLEAR, MBSATA, MBSXTA, RDMEM, READ, READW, REWIND,
03737  M00S03337.ldistap +++|*                RJM.
03738  M00S03338.ldistap +++|
03739  M00S03339.ldistap +++|
03740  M00S03340.ldistap +++| GCS13    SX6    B2          SET NUMBER OF PAGES
03741  M00S03341.ldistap +++|          SA6    TNDP+DISFC
03742  M00S03342.ldistap +++|
03743  M00S03343.ldistap +++| GCS      SUBR               ENTRY/EXIT
03744  M00S03344.ldistap +++|          CLEAR  TFCF,NFCST  PRESET POINTER TABLES
03745  M00S03345.ldistap +++|          CLEAR  TFCL,NFCST
03746  M00S03346.ldistap +++|          CLEAR  TFDP,NPGFD  PRESET *TFDP*
03747  M00S03347.ldistap +++|          SX6    B0          CLEAR CATALOG STATUS COUNTS
03748  M00S03348.ldistap +++|          SA6    CCE

Line S03349 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03749  M01S03349.274l797 ---|          SA6    CNS

Line S00285 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
03750  M01S00285.274l797 +++|          SA6    CNSM
03751  M01S00286.274l797 +++|          SA6    CNSC
03752  M01S00287.274l797 +++|          SA6    CNSA
03753  M00S03350.ldistap +++|          SA6    TNDP+DISFC

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

Seq #  *Modification Id* Act 
----------------------------+
03754  M01S03351.nos252  ---|          SYSTEM TFU,R,TMS,/TFU/RTSF*100B  GET *TMS* STATUS

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

Seq #  *Modification Id* Act 
----------------------------+
03755  M01S00060.nos252  +++|          SYSTEM SFM,R,TMS,GTSF*100B  GET *TMS* STATUS
03756  M00S03352.ldistap +++|          MX0    1           SAVE *TMS* STATUS
03757  M00S03353.ldistap +++|          SA1    TMS
03758  M00S03354.ldistap +++|          BX1    X0*X1
03759  M00S03355.ldistap +++|          BX6    X0-X1
03760  M00S03356.ldistap +++|          SA6    TMS
03761  M00S03357.ldistap +++|          SA1    MXF         GET FAMILY ORDINAL TABLE
03762  M00S03358.ldistap +++|          SA2    FFO
03763  M00S03359.ldistap +++|          RDMEM  ABS,X2,X1,FBUF
03764  M00S03360.ldistap +++|          SA5    MXF         GET CATALOG SYSTEM BLOCKS
03765  M00S03361.ldistap +++|          SA0    SBUF
03766  M00S03362.ldistap +++| GCS1     SX5    X5-1
03767  M00S03363.ldistap +++|          NG     X5,GCS5     IF END OF FAMILIES
03768  M00S03364.ldistap +++|          MX0    42          GET FAMILY NAME
03769  M00S03365.ldistap +++|          SA1    X5+FBUF
03770  M00S03366.ldistap +++|          BX1    X0*X1
03771  M00S03367.ldistap +++|          SX4    CSFNF
03772  M00S03368.ldistap +++|          ZR     X1,GCS2     IF NO FAMILY NAME
03773  M00S03369.ldistap +++|          SX2    377777B
03774  M00S03370.ldistap +++|          RJ     SWP         SWAP TO FAMILY NAME AND USER INDEX
03775  M00S03371.ldistap +++|          NZ     X4,GCS2     IF FAMILY NOT FOUND
03776  M00S03372.ldistap +++|          RJ     ACF         ATTACH CATALOG FILE
03777  M00S03373.ldistap +++|          NZ     X1,GCS2     IF CATALOG NOT ATTACHED
03778  M00S03374.ldistap +++|          SX6    X4          SAVE STATUS
03779  M00S03375.ldistap +++|          SA6    GCSB
03780  M00S03376.ldistap +++|          REWIND P,R         GET SYSTEM BLOCK

Line S03377 Modification History
`M01` (Removed by)	`t5497`

Seq #  *Modification Id* Act 
----------------------------+
03781  M01S03377.t5497   ---|          READ   P
03782  M01S03378.t5497   ---|          READW  P,A0,SBUFE
03783  M01S03379.t5497   ---|          RETURN P

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

Seq #  *Modification Id* Act 
----------------------------+
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  M00S03380.ldistap +++|          SA4    GCSB        GET STATUS
03797  M00S03381.ldistap +++| GCS2     SA1    X4+TFCP
03798  M00S03382.ldistap +++|          RJM    X1          EXECUTE PROCESSOR FOR CATALOG STATUS
03799  M00S03383.ldistap +++|          MBSATA X5+FBUF,A0+SBCWL+/TFM/TMFM,42,59,59  SET FAMILY NAME
03800  M00S03384.ldistap +++|          MBSXTA X4,A0,12,11,59  SET CATALOG STATUS
03801  M00S03385.ldistap +++|          MBSATA X4+TFCF,A0,18,17,17  LINK STATUS ENTRIES
03802  M00S03386.ldistap +++|          SX1    A0
03803  M00S03387.ldistap +++|          MBSXTA X1,X4+TFCF,18,17,17
03804  M00S03388.ldistap +++|          SA1    X4+TFCM
03805  M00S03389.ldistap +++|          ZR     X1,GCS3     IF USE MESSAGE BUFFER
03806  M00S03390.ldistap +++|          MBSATA X1,A0+SBCWL+/TFM/TMMB,/TFM/MBML*60,59,59  SET MESSAGE
03807  M00S03391.ldistap +++| GCS3     SA1    X4+TFCL
03808  M00S03392.ldistap +++|          NZ     X1,GCS4     IF ALREADY A LAST ENTRY
03809  M00S03393.ldistap +++|          SX6    A0          SET LAST ENTRY
03810  M00S03394.ldistap +++|          SA6    A1
03811  M00S03395.ldistap +++| GCS4     SA0    A0+SBUFE
03812  M00S03396.ldistap +++|          EQ     GCS1        CHECK NEXT FAMILY
03813  M00S03397.ldistap +++|
03814  M00S03398.ldistap +++| GCS5     SA1    OFM         GET ORIGINAL FAMILY NAME
03815  M00S03399.ldistap +++|          SA2    OUI
03816  M00S03400.ldistap +++|          RJ     SWP         SWAP TO FAMILY NAME AND USER INDEX
03817  M00S03401.ldistap +++|          SA4    GCSA        LINK STATUS ENTRIES
03818  M00S03402.ldistap +++| GCS6     ZR     X4,GCS10    IF END OF TABLE
03819  M00S03403.ldistap +++|          SA5    A4+B1
03820  M00S03404.ldistap +++|          SA2    X4
03821  M00S03405.ldistap +++|          ZR     X2,GCS9     IF NO ENTRIES FOR THIS STATUS
03822  M00S03406.ldistap +++|          SA1    TFDP+0
03823  M00S03407.ldistap +++|          NZ     X1,GCS7     IF FIRST ENTRY ALREADY SET
03824  M00S03408.ldistap +++|          SA1    X4+TFCF-TFCL  SET FIRST ENTRY
03825  M00S03409.ldistap +++|          SX6    X1
03826  M00S03410.ldistap +++|          SA6    TFDP+0
03827  M00S03411.ldistap +++| GCS7     ZR     X5,GCS10    IF END OF TABLE
03828  M00S03412.ldistap +++|          SA1    X5+TFCF-TFCL
03829  M00S03413.ldistap +++|          NZ     X1,GCS8     IF ENTRIES FOR THIS STATUS
03830  M00S03414.ldistap +++|          SA5    A5+B1
03831  M00S03415.ldistap +++|          EQ     GCS7        CHECK NEXT STATUS
03832  M00S03416.ldistap +++|
03833  M00S03417.ldistap +++| GCS8     MBSATA A1,X2,18,17,17  LINK STATUS ENTRIES
03834  M00S03418.ldistap +++| GCS9     SA4    A5
03835  M00S03419.ldistap +++|          EQ     GCS6        CHECK NEXT STATUS
03836  M00S03420.ldistap +++|
03837  M00S03421.ldistap +++| GCS10    SA5    TFDP+0      COUNT NUMBER FAMILY CATALOG ENTRIES
03838  M00S03422.ldistap +++|          SB2    B0          PRESET PAGE NUMBER
03839  M00S03423.ldistap +++|          SB3    B0
03840  M00S03424.ldistap +++| GCS11    SX5    X5
03841  M00S03425.ldistap +++|          ZR     X5,GCS13    IF END OF ENTRIES
03842  M00S03426.ldistap +++|          SB3    B3-LPEFC
03843  M00S03427.ldistap +++|          PL     B3,GCS12    IF NOT END OF PAGE
03844  M00S03428.ldistap +++|          SX6    X5          SET FIRST ENTRY OF PAGE
03845  M00S03429.ldistap +++|          SA6    B2+TFDP
03846  M00S03430.ldistap +++|          SB2    B2+B1       INCREMENT PAGE NUMBER
03847  M00S03431.ldistap +++|          SB3    NLPPG-1
03848  M00S03432.ldistap +++| GCS12    SA5    X5
03849  M00S03433.ldistap +++|          EQ     GCS11       CHECK NEXT ADDRESS
03850  M00S03434.ldistap +++|
03851  M00S03435.ldistap +++| GCSA     BSS    0           TABLE OF CATALOG STATUS LINKS
03852  M00S03436.ldistap +++|          CON    CSERR+TFCL  CATALOG ERROR
03853  M00S03437.ldistap +++|          CON    CSNSV+TFCL  NO SCRATCH VSNS
03854  M00S03438.ldistap +++|          CON    CSCFA+TFCL  CATALOG FAST-ATTACHED
03855  M00S03439.ldistap +++|          CON    CSCFN+TFCL  CATALOG NOT FAST-ATTACHED
03856  M00S03440.ldistap +++|          CON    CSCNF+TFCL  CATALOG FILE NOT FOUND
03857  M00S03441.ldistap +++|
03858  M00S03442.ldistap +++|          CON    0           END OF TABLE
03859  M00S03443.ldistap +++|
03860  M00S03444.ldistap +++| GCSB     CON    0           CATALOG STATUS

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

Seq #  *Modification Id* Act 
----------------------------+
03861  M01S03445.282l826 ---| GJS      SPACE  4,15
03862  M01S03446.282l826 ---|**        GJS - GET JOB STATUSES.
03863  M01S03447.282l826 ---|*
03864  M01S03448.282l826 ---|*         EXIT   CONTROL POINT AREAS SET INTO *JBUF*.
03865  M01S03449.282l826 ---|*                FIRST CONTROL POINT AREA ENTRY FOR EACH DISPLAY PAGE
03866  M01S03450.282l826 ---|*                SET INTO *TJDP*.
03867  M01S03451.282l826 ---|*                WORD 0 OF EACH CONTROL POINT AREA ENTRY SET -
03868  M01S03452.282l826 ---|*T,       42/0, 18/ADDRESS OF NEXT ENTRY

Figure

03869  M01S03453.282l826 ---|*                (COA) = NUMBER OF JOBS REQUIRING OPERATOR ACTION.
03870  M01S03454.282l826 ---|*
03871  M01S03455.282l826 ---|*         USES   X - 0, 1, 2, 4, 5, 6.
03872  M01S03456.282l826 ---|*                A - 0, 1, 2, 6.
03873  M01S03457.282l826 ---|*                B - 2, 3, 6, 7.
03874  M01S03458.282l826 ---|*
03875  M01S03459.282l826 ---|*         MACROS CLEAR, RDMEM.
03876  M01S03460.282l826 ---|
03877  M01S03461.282l826 ---|
03878  M01S03462.282l826 ---| GJS4     SX6    B2          SET NUMBER OF PAGES
03879  M01S03463.282l826 ---|          SA6    TNDP+DISJB
03880  M01S03464.282l826 ---|          SX6    B7          SET OPERATOR ACTION COUNT
03881  M01S03465.282l826 ---|          SA6    COA
03882  M01S03466.282l826 ---|
03883  M01S03467.282l826 ---| GJS      SUBR               ENTRY/EXIT
03884  M01S03468.282l826 ---|          CLEAR  TJDP,NPGJD  CLEAR PAGE TABLE
03885  M01S03469.282l826 ---|          SX6    B0          CLEAR EXECUTING JOB STATUSES
03886  M01S03470.282l826 ---|          SA6    COA
03887  M01S03471.282l826 ---|          SA6    TNDP+DISJB
03888  M01S03472.282l826 ---|          SA1    NCP         READ CONTROL POINT AREAS
03889  M01S03473.282l826 ---|          LX1    7
03890  M01S03474.282l826 ---|          RDMEM  ABS,CPAS,X1,JBUF  READ CONTROL POINT AREAS
03891  M01S03475.282l826 ---|          SA4    NCP         GET *RESEX* JOBS REQUIRING ACTION
03892  M01S03476.282l826 ---|          LX4    7
03893  M01S03477.282l826 ---|          SX4    X4+177B
03894  M01S03478.282l826 ---|          SB2    B0          PRESET PAGE NUMBER
03895  M01S03479.282l826 ---|          SB3    B0
03896  M01S03480.282l826 ---|          SB6    TJDP        PRESET EXECUTING JOB LINK
03897  M01S03481.282l826 ---|          SB7    B0          PRESET OPERATOR ACTION COUNT
03898  M01S03482.282l826 ---| GJS1     SX4    X4-200B
03899  M01S03483.282l826 ---|          NG     X4,GJS4     IF END OF CONTROL POINTS
03900  M01S03484.282l826 ---|          SA0    X4+JBUF+1
03901  M01S03485.282l826 ---|          MX6    -12         CHECK SUBSYSTEM ID
03902  M01S03486.282l826 ---|          SA1    A0+JCIW
03903  M01S03487.282l826 ---|          AX1    24
03904  M01S03488.282l826 ---|          BX6    -X6*X1
03905  M01S03489.282l826 ---|          SX6    X6-ORSI
03906  M01S03490.282l826 ---|          NZ     X6,GJS3     IF NOT ALLOW OPERATOR ROLLOUT
03907  M01S03491.282l826 ---|          AX1    49-24
03908  M01S03492.282l826 ---|          SX1    X1-RXCS
03909  M01S03493.282l826 ---|          NZ     X1,GJS3     IF NOT *RESEX* PRIORITY
03910  M01S03494.282l826 ---|          SA1    A0+SEPW     CHECK ENTRY POINTS
03911  M01S03495.282l826 ---|          LX1    59-50
03912  M01S03496.282l826 ---|          PL     X1,GJS3     IF NOT SSJ=
03913  M01S03497.282l826 ---|          LX1    59-52-59+50
03914  M01S03498.282l826 ---|          NG     X1,GJS2     IF DMP=
03915  M01S03499.282l826 ---|          LX1    59-33-59+52
03916  M01S03500.282l826 ---|          PL     X1,GJS3     IF NOT DMP= SUPPRESSED
03917  M01S03501.282l826 ---| GJS2     SA1    A0+SNSW     CHECK PP PAUSE FLAG
03918  M01S03502.282l826 ---|          LX1    59-12
03919  M01S03503.282l826 ---|          PL     X1,GJS3     IF NOT SET
03920  M01S03504.282l826 ---|          SB7    B7+B1       INCREMENT OPERATOR ACTION COUNT
03921  M01S03505.282l826 ---|          SX6    A0          LINK JOBS
03922  M01S03506.282l826 ---|          SA6    B6
03923  M01S03507.282l826 ---|          SX6    B0
03924  M01S03508.282l826 ---|          SA6    A0
03925  M01S03509.282l826 ---|          SB6    A0
03926  M01S03510.282l826 ---|          SB3    B3-LPEJB
03927  M01S03511.282l826 ---|          PL     B3,GJS3     IF NOT END OF PAGE
03928  M01S03512.282l826 ---|          SX6    A0          SET FIRST ENTRY OF PAGE
03929  M01S03513.282l826 ---|          SA6    B2+TJDP
03930  M01S03514.282l826 ---|          SB2    B2+B1       INCREMENT PAGE NUMBER
03931  M01S03515.282l826 ---|          SB3    NLPPG-1
03932  M01S03516.282l826 ---| GJS3     SA0    A0+200B
03933  M01S03517.282l826 ---|          EQ     GJS1        CHECK NEXT JOB
03934  M01S03518.282l826 ---| GMS      SPACE  4,20
03935  M01S03519.282l826 ---|**        GET *MAGNET* STATUS.
03936  M01S03520.282l826 ---|*
03937  M01S03521.282l826 ---|*         EXIT   *UDT* ENTRIES SET INTO *UBUF*.
03938  M01S03522.282l826 ---|*                PREVIEW BUFFER SET INTO *PBUF*.
03939  M01S03523.282l826 ---|*                FIRST *UDT* ENTRY FOR EACH DISPLAY PAGE SET INTO
03940  M01S03524.282l826 ---|*                *TJDP*.
03941  M01S03525.282l826 ---|*                WORD 0 OF EACH *UDT* ENTRY SET -
03942  M01S03526.282l826 ---|*T,       42/0, 18/ADDRESS OF NEXT ENTRY  OR

Figure

03943  M01S03527.282l826 ---|*T,       60/-(PBUF+1) IF LAST *UDT* ENTRY

Figure

03944  M01S03528.282l826 ---|*                (CPE) = NUMBER OF PREVIEW DISPLAY ENTRIES.
03945  M01S03529.282l826 ---|*                (MGS) = 0 IF *MAGNET* NOT ACTIVE.
03946  M01S03530.282l826 ---|*
03947  M01S03531.282l826 ---|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
03948  M01S03532.282l826 ---|*                A - 0, 1, 2, 6, 7.
03949  M01S03533.282l826 ---|*                B - 2, 3, 4, 5, 6, 7.
03950  M01S03534.282l826 ---|*
03951  M01S03535.282l826 ---|*         MACROS CLEAR, RDMEM.
03952  M01S03536.282l826 ---|
03953  M01S03537.282l826 ---|
03954  M01S03538.282l826 ---| GMS10    SX6    B2          SET NUMBER OF EQUIPMENT PAGES
03955  M01S03539.282l826 ---|          SA6    TNDP+DISEQ
03956  M01S03540.282l826 ---|
03957  M01S03541.282l826 ---| GMS      SUBR               ENTRY/EXIT
03958  M01S03542.282l826 ---|          CLEAR  TEDP,NPGED  CLEAR PAGE TABLES
03959  M01S03543.282l826 ---|          CLEAR  TPDP,NPGPD
03960  M01S03544.282l826 ---|          SX6    B1          CLEAR *MAGNET* STATUSES
03961  M01S03545.282l826 ---|          SA6    MGS
03962  M01S03546.282l826 ---|          SX6    B0
03963  M01S03547.282l826 ---|          SA6    CPE
03964  M01S03548.282l826 ---|          SA6    TNDP+DISEQ
03965  M01S03549.282l826 ---|          SA6    TNDP+DISPR
03966  M01S03550.282l826 ---|          RDMEM  MTSI,/MTX/UBUF,1,UDA  GET *UDT* ADDRESS
03967  M01S03551.282l826 ---|          PL     X1,GMSX     IF *MAGNET* NOT ACTIVE
03968  M01S03552.282l826 ---|          MX0    -12         SAVE *UDT* ADDRESS
03969  M01S03553.282l826 ---|          BX6    -X0*X2
03970  M01S03554.282l826 ---|          SA6    UDA
03971  M01S03555.282l826 ---|          LX2    12          SAVE FIRST *UDT* ADDRESS FOR *EQU* DISPLAY
03972  M01S03556.282l826 ---|          BX7    -X0*X2
03973  M01S03557.282l826 ---|          SA7    GMSA
03974  M01S03558.282l826 ---|          LX2    24          SAVE *UDT* LENGTH
03975  M01S03559.282l826 ---|          SX2    X2+B1
03976  M01S03560.282l826 ---|          IX7    X2-X6
03977  M01S03561.282l826 ---|          SA7    UDL
03978  M01S03562.282l826 ---|          RDMEM  MTSI,X6,X7,UBUF  GET *UDT* ENTRIES
03979  M01S03563.282l826 ---|          PL     X1,GMSX     IF *MAGNET* NOT ACTIVE
03980  M01S03564.282l826 ---|          RDMEM  MTSI,/MTX/PBUF+1,/MTX/PBUF-1,PBUF  GET PREVIEW ENTRIES
03981  M01S03565.282l826 ---|          PL     X1,GMSX     IF *MAGNET* NOT ACTIVE
03982  M01S03566.282l826 ---|          SX6    B0          FLAG *MAGNET* ACTIVE
03983  M01S03567.282l826 ---|          SA6    MGS
03984  M01S03568.282l826 ---|          SX0    171B        COUNT EQUIPMENT ENTRIES
03985  M01S03569.282l826 ---|          LX0    12
03986  M01S03570.282l826 ---|          SA1    UBUF
03987  M01S03571.282l826 ---|          SB2    B0          PRESET PREVIEW PAGE NUMBER
03988  M01S03572.282l826 ---|          SB3    B0
03989  M01S03573.282l826 ---|          SB6    TPDP        PRESET *UDT* LINK ADDRESS
03990  M01S03574.282l826 ---|          SB7    B0          PRESET PREVIEW ENTRY COUNT
03991  M01S03575.282l826 ---| GMS1     NG     X1,GMS4     IF END OF *UDT* ENTRIES
03992  M01S03576.282l826 ---|          SA2    A1+/MTX/UVSN  CHECK FOR SPECIAL STATUS
03993  M01S03577.282l826 ---|          BX2    X0*X2
03994  M01S03578.282l826 ---|          ZR     X2,GMS3     IF NOT SPECIAL STATUS
03995  M01S03579.282l826 ---|          SB7    B7+B1       INCREMENT PREVIEW ENTRY COUNT
03996  M01S03580.282l826 ---|          SX6    A1          LINK PREVIEW ENTRIES
03997  M01S03581.282l826 ---|          SA6    B6
03998  M01S03582.282l826 ---|          SB6    A1
03999  M01S03583.282l826 ---|          SB3    B3-LPEUP
04000  M01S03584.282l826 ---|          PL     B3,GMS3     IF NOT END OF PREVIEW PAGE
04001  M01S03585.282l826 ---|          SA6    B2+TPDP     SET FIRST ENTRY OF PAGE
04002  M01S03586.282l826 ---|          SB2    B2+B1       INCREMENT PAGE NUMBER
04003  M01S03587.282l826 ---|          SB3    NLPPG-1
04004  M01S03588.282l826 ---| GMS3     SA1    A1+/MTX/UNITL
04005  M01S03589.282l826 ---|          EQ     GMS1        CHECK NEXT *UDT*
04006  M01S03590.282l826 ---|
04007  M01S03591.282l826 ---| GMS4     SA1    PBUF        SET LINK TO PREVIEW BUFFER
04008  M01S03592.282l826 ---|          SX6    -PBUF
04009  M01S03593.282l826 ---|          SA6    B6
04010  M01S03594.282l826 ---| GMS5     ZR     X1,GMS7     IF END OF PREVIEW BUFFER
04011  M01S03595.282l826 ---|          SB7    B7+B1       INCREMENT PREVIEW COUNT
04012  M01S03596.282l826 ---|          SB3    B3-LPEPB
04013  M01S03597.282l826 ---|          PL     B3,GMS6     IF NOT END OF PREVIEW PAGE
04014  M01S03598.282l826 ---|          SX6    A1          SET FIRST ENTRY OF PAGE
04015  M01S03599.282l826 ---|          BX6    -X6
04016  M01S03600.282l826 ---|          SA6    B2+TPDP
04017  M01S03601.282l826 ---|          SB2    B2+B1       INCREMENT PAGE NUMBER
04018  M01S03602.282l826 ---|          SB3    NLPPG-1
04019  M01S03603.282l826 ---| GMS6     SA1    A1+PBUFE
04020  M01S03604.282l826 ---|          EQ     GMS5        CHECK NEXT PREVIEW ENTRY
04021  M01S03605.282l826 ---|
04022  M01S03606.282l826 ---| GMS7     SX6    B2          SET NUMBER OF PREVIEW PAGES
04023  M01S03607.282l826 ---|          SA6    TNDP+DISPR
04024  M01S03608.282l826 ---|          SX6    B7          SET PREVIEW ENTRY COUNT
04025  M01S03609.282l826 ---|          SA6    CPE
04026  M01S03610.282l826 ---|          SA1    GMSA        GET FIRST *UDT* ADDRESS TO DISPLAY
04027  M01S03611.282l826 ---|          SB2    B0          PRESET EQUIPMENT PAGE NUMBER
04028  M01S03612.282l826 ---|          SB3    B0
04029  M01S03613.282l826 ---|          MX0    -12
04030  M01S03614.282l826 ---| GMS8     ZR     X1,GMS10    IF END OF *UDT* TABLE
04031  M01S03615.282l826 ---|          SA2    UDA         GET BUFFER ADDRESS
04032  M01S03616.282l826 ---|          IX1    X1-X2
04033  M01S03617.282l826 ---|          SX6    X1+UBUF
04034  M01S03618.282l826 ---|          SB3    B3-LPEEQ
04035  M01S03619.282l826 ---|          PL     B3,GMS9     IF NOT END OF EQUIPMENT PAGE
04036  M01S03620.282l826 ---|          SA6    B2+TEDP     SET FIRST PAGE OF ENTRY
04037  M01S03621.282l826 ---|          SB2    B2+B1       INCREMENT PAGE NUMBER
04038  M01S03622.282l826 ---|          SB3    NLPPG-1
04039  M01S03623.282l826 ---| GMS9     SA1    X6+/MTX/UVRI  GET NEXT *UDT* ADDRESS
04040  M01S03624.282l826 ---|          BX1    -X0*X1
04041  M01S03625.282l826 ---|          EQ     GMS8        CHECK NEXT ENTRY
04042  M01S03626.282l826 ---|
04043  M01S03627.282l826 ---| GMSA     BSS    1           FIRST *UDT* ADDRESS TO DISPLAY
04044  M00S03628.ldistap +++|          TITLE  INPUT/OUTPUT SUBROUTINES.
04045  M00S03629.ldistap +++| GDI      SPACE  4,10
04046  M00S03630.ldistap +++|**        GDI - GET *DISPLAY* INPUT.
04047  M00S03631.ldistap +++|*
04048  M00S03632.ldistap +++|*         EXIT   (CBUF+1) = INPUT COMMAND.
04049  M00S03633.ldistap +++|*
04050  M00S03634.ldistap +++|*         ERROR  ABORT WITH *L-DISPLAY NOT AVAILABLE*.
04051  M00S03635.ldistap +++|*
04052  M00S03636.ldistap +++|*         USES   X - 1, 2, 6.
04053  M00S03637.ldistap +++|*                A - 1, 6.
04054  M00S03638.ldistap +++|*
04055  M00S03639.ldistap +++|*         MACROS DSDINP, ABTMSG.
04056  M00S03640.ldistap +++|
04057  M00S03641.ldistap +++|
04058  M00S03642.ldistap +++| GDI      SUBR               ENTRY/EXIT
04059  M00S03643.ldistap +++|          SX6    CBUFL       SET BUFFER LENGTH
04060  M00S03644.ldistap +++|          LX6    48
04061  M00S03645.ldistap +++|          SA6    CBUF
04062  M00S03646.ldistap +++|          DSDINP A6          REQUEST L-DISPLAY INPUT
04063  M00S03647.ldistap +++|          SA1    CBUF        CHECK FOR ERRORS
04064  M00S03648.ldistap +++|          SX2    X1-2*NERR-1
04065  M00S03649.ldistap +++|          ZR     X2,GDIX     IF NO ERROR
04066  M00S03650.ldistap +++|          SX2    X1-2*NCMD-1
04067  M00S03651.ldistap +++|          SX6    B0          PRESET COMMAND
04068  M00S03652.ldistap +++|          SA6    CBUF+1
04069  M00S03653.ldistap +++|          ZR     X2,GDIX     IF NO COMMAND ENTERED
04070  M00S03654.ldistap +++|          SX6    B1          FLAG L-DISPLAY ERROR
04071  M00S03655.ldistap +++|          SA6    LDE
04072  M00S03656.ldistap +++|          ABTMSG DFLN        *L-DISPLAY NOT AVAILABLE.*
04073  M00S03657.ldistap +++| GIN      SPACE  4,10
04074  M00S03658.ldistap +++|**        GIN - GET INPUT.
04075  M00S03659.ldistap +++|*
04076  M00S03660.ldistap +++|*         ENTRY  (OPT) = INPUT OPTION.
04077  M00S03661.ldistap +++|*
04078  M00S03662.ldistap +++|*         EXIT   INPUT PROCESSOR EXECUTED FOR OPTION.
04079  M00S03663.ldistap +++|*
04080  M00S03664.ldistap +++|*         USES   X - 1.
04081  M00S03665.ldistap +++|*                A - 1.
04082  M00S03666.ldistap +++|*
04083  M00S03667.ldistap +++|*         MACROS RJM, WRITER.
04084  M00S03668.ldistap +++|
04085  M00S03669.ldistap +++|
04086  M00S03670.ldistap +++| GIN      SUBR               ENTRY/EXIT
04087  M00S03671.ldistap +++|          SA1    TOU
04088  M00S03672.ldistap +++|          NZ     X1,GIN1     IF NOT TERMINAL OUTPUT
04089  M00S03673.ldistap +++|          WRITER L,R         FLUSH BUFFER
04090  M00S03674.ldistap +++| GIN1     CLEAR  CBUF+1,CBUFL  CLEAR INPUT BUFFER
04091  M00S03675.ldistap +++|          SA1    OPT         GET INPUT OPTION
04092  M00S03676.ldistap +++|          SA1    X1+GINA
04093  M00S03677.ldistap +++|          RJM    X1          PROCESS INPUT
04094  M00S03678.ldistap +++|          EQ     GINX        RETURN
04095  M00S03679.ldistap +++|
04096  M00S03680.ldistap +++| GINA     BSS    0           INPUT OPTION PROCESSORS
04097  M00S03681.ldistap +++|          LOC    0
04098  M00S03682.ldistap +++| OPTLD    CON    GDI         DISPLAY
04099  M00S03683.ldistap +++| OPTLN    CON    GLI         LINE
04100  M00S03684.ldistap +++| OPTSC    CON    GSI         SCREEN
04101  M00S03685.ldistap +++|          LOC    *O
04102  M00S03686.ldistap +++| GLI      SPACE  4,10
04103  M00S03687.ldistap +++|**        GLI - GET LINE INPUT.
04104  M00S03688.ldistap +++|*
04105  M00S03689.ldistap +++|*         EXIT   (CBUF+1) = INPUT COMMAND.
04106  M00S03690.ldistap +++|*
04107  M00S03691.ldistap +++|*         USES   X - 1, 2, 6.
04108  M00S03692.ldistap +++|*                A - 1, 2, 6.
04109  M00S03693.ldistap +++|*
04110  M00S03694.ldistap +++|*         MACROS MBSATA, READC, REWIND.
04111  M00S03695.ldistap +++|
04112  M00S03696.ldistap +++| GLI1     MBSATA ZEROES,I,15,17,17  CLEAR EOF
04113  M00S03697.ldistap +++|
04114  M00S03698.ldistap +++| GLI      SUBR               ENTRY/EXIT
04115  M00S03699.ldistap +++|          READC  I,CBUF+1,8  READ COMMAND LINE
04116  M00S03700.ldistap +++|          ZR     X1,GLIX     IF NOT EOR/EOF/EOI
04117  M00S03701.ldistap +++|          SX6    B0          PRESET COMMAND
04118  M00S03702.ldistap +++|          SA6    CBUF+1
04119  M00S03703.ldistap +++|          SA1    TIN         CHECK FOR TERMINAL INPUT/OUTPUT
04120  M00S03704.ldistap +++|          SA2    TOU
04121  M00S03705.ldistap +++|          BX1    X1+X2
04122  M00S03706.ldistap +++|          ZR     X1,GLI1     IF BOTH TERMINAL INPUT AND OUTPUT

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

Seq #  *Modification Id* Act 
----------------------------+
04123  M01S03707.nos252  ---|          SA1    =0LDROP     SET TERMINATION COMMAND

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

Seq #  *Modification Id* Act 
----------------------------+
04124  M01S00061.nos252  +++|          SA1    =0LEND      SET TERMINATION COMMAND
04125  M00S03708.ldistap +++|          BX6    X1
04126  M00S03709.ldistap +++|          SA6    CBUF+1
04127  M00S03710.ldistap +++|          EQ     GLIX        RETURN
04128  M00S03711.ldistap +++| GSI      SPACE  4,10
04129  M00S03712.ldistap +++|**        GSI - GET SCREEN INPUT.
04130  M00S03713.ldistap +++|*
04131  M00S03714.ldistap +++|*         EXIT   (CBUF+1) = INPUT COMMAND.
04132  M00S03715.ldistap +++|*                (SIA) = 0 IF INPUT REQUESTED.
04133  M00S03716.ldistap +++|*
04134  M00S03717.ldistap +++|*         USES   X - 1, 6.
04135  M00S03718.ldistap +++|*                A - 1, 6.
04136  M00S03719.ldistap +++|*
04137  M00S03720.ldistap +++|*         CALLS  GLI.
04138  M00S03721.ldistap +++|
04139  M00S03722.ldistap +++|
04140  M00S03723.ldistap +++| GSI1     RJ     GLI         GET LINE INPUT
04141  M00S03724.ldistap +++|          SX6    B0          CLEAR SCREEN INPUT AVAILABLE
04142  M00S03725.ldistap +++|          SA6    SIA
04143  M00S03726.ldistap +++|
04144  M00S03727.ldistap +++| GSI      SUBR               ENTRY/EXIT
04145  M00S03728.ldistap +++|          SA1    SIA
04146  M00S03729.ldistap +++|          NG     X1,GSI1     IF SCREEN INPUT AVAILABLE
04147  M00S03730.ldistap +++|          SX6    B0          SET NO COMMAND
04148  M00S03731.ldistap +++|          SA6    CBUF+1
04149  M00S03732.ldistap +++|          EQ     GSIX        RETURN
04150  M00S03733.ldistap +++| IDO      SPACE  4,10
04151  M00S03734.ldistap +++|**        IDO - ISSUE *DISPLAY* OUTPUT.
04152  M00S03735.ldistap +++|*
04153  M00S03736.ldistap +++|*         EXIT   (DBUF) SENT TO L-DISPLAY.
04154  M00S03737.ldistap +++|*
04155  M00S03738.ldistap +++|*         ERROR  ABORT WITH *L-DISPLAY NOT AVAILABLE*.
04156  M00S03739.ldistap +++|*
04157  M00S03740.ldistap +++|*         USES   X - 1, 2, 6.
04158  M00S03741.ldistap +++|*                A - 1, 6.
04159  M00S03742.ldistap +++|*
04160  M00S03743.ldistap +++|*         MACROS DSDOUT, ABTMSG.
04161  M00S03744.ldistap +++|
04162  M00S03745.ldistap +++|
04163  M00S03746.ldistap +++| IDO      SUBR               ENTRY/EXIT
04164  M00S03747.ldistap +++|          SX6    LDSY        SET BUFFER LENGTH
04165  M00S03748.ldistap +++|          LX6    48
04166  M00S03749.ldistap +++|          SA6    DBUF
04167  M00S03750.ldistap +++|          DSDOUT A6          REQUEST L-DISPLAY OUTPUT
04168  M00S03751.ldistap +++|          SA1    DBUF        CHECK FOR ERRORS
04169  M00S03752.ldistap +++|          SX2    X1-2*NERR-1
04170  M00S03753.ldistap +++|          ZR     X2,IDOX     IF NO ERROR
04171  M00S03754.ldistap +++|          SX6    B1          FLAG L-DISPLAY ERROR
04172  M00S03755.ldistap +++|          SA6    LDE
04173  M00S03756.ldistap +++|          ABTMSG DFLN        *L-DISPLAY NOT AVAILABLE.*
04174  M00S03757.ldistap +++| ILO      SPACE  4,15
04175  M00S03758.ldistap +++|**        ILO - ISSUE LINE OUTPUT.
04176  M00S03759.ldistap +++|*
04177  M00S03760.ldistap +++|*         EXIT   (DBUF) COPIED TO OUTPUT FILE.
04178  M00S03761.ldistap +++|*
04179  M00S03762.ldistap +++|*         USES   X - 1, 2.
04180  M00S03763.ldistap +++|*                A - 1.
04181  M00S03764.ldistap +++|*                B - 6, 7.
04182  M00S03765.ldistap +++|*
04183  M00S03766.ldistap +++|*         CALLS  CKD.
04184  M00S03767.ldistap +++|*
04185  M00S03768.ldistap +++|*         MACROS WRITEC.
04186  M00S03769.ldistap +++|
04187  M00S03770.ldistap +++|
04188  M00S03771.ldistap +++| ILO      SUBR               ENTRY/EXIT
04189  M00S03772.ldistap +++|          SA1    TOU         CHECK FOR TERMINAL OUTPUT
04190  M00S03773.ldistap +++|          SB7    B0
04191  M00S03774.ldistap +++|          ZR     X1,ILO1     IF TERMINAL OUTPUT
04192  M00S03775.ldistap +++|          WRITEC L,ILOA      DOUBLE SPACE
04193  M00S03776.ldistap +++|          SB7    B1
04194  M00S03777.ldistap +++| ILO1     SX2    L           SET OUTPUT FILE ADDRESS
04195  M00S03778.ldistap +++|          SB6    DBUF
04196  M00S03779.ldistap +++|          RJ     CKD         COPY K-DISPLAY TO OUTPUT FILE
04197  M00S03780.ldistap +++|          EQ     ILOX        RETURN
04198  M00S03781.ldistap +++|
04199  M00S03782.ldistap +++| ILOA     DATA   C*0*        DOUBLE SPACE
04200  M00S03783.ldistap +++| IOU      SPACE  4,10
04201  M00S03784.ldistap +++|**        IOU - ISSUE OUTPUT.
04202  M00S03785.ldistap +++|*
04203  M00S03786.ldistap +++|*         ENTRY  (OPT) = OUTPUT OPTION.
04204  M00S03787.ldistap +++|*
04205  M00S03788.ldistap +++|*         EXIT   OUTPUT PROCESSOR EXECUTED FOR OPTION.
04206  M00S03789.ldistap +++|*
04207  M00S03790.ldistap +++|*         USES   X - 1.
04208  M00S03791.ldistap +++|*                A - 1.
04209  M00S03792.ldistap +++|*
04210  M00S03793.ldistap +++|*         MACROS RJM.
04211  M00S03794.ldistap +++|
04212  M00S03795.ldistap +++|
04213  M00S03796.ldistap +++| IOU      SUBR               ENTRY/EXIT
04214  M00S03797.ldistap +++|          SA1    OPT         GET OUTPUT OPTION
04215  M00S03798.ldistap +++|          SA1    X1+IOUA
04216  M00S03799.ldistap +++|          RJM    X1          PROCESS OUTPUT
04217  M00S03800.ldistap +++|          EQ     IOUX        RETURN
04218  M00S03801.ldistap +++|
04219  M00S03802.ldistap +++| IOUA     BSS    0           OUTPUT OPTION PROCESSORS
04220  M00S03803.ldistap +++|          LOC    0
04221  M00S03804.ldistap +++| DOPT     CON    IDO         DISPLAY
04222  M00S03805.ldistap +++| LOPT     CON    ILO         LINE
04223  M00S03806.ldistap +++| SOPT     CON    ISO         SCREEN
04224  M00S03807.ldistap +++|          LOC    *O
04225  M00S03808.ldistap +++| ISO      SPACE  4,10
04226  M00S03809.ldistap +++|**        ISO - ISSUE SCREEN OUTPUT.
04227  M00S03810.ldistap +++|*
04228  M00S03811.ldistap +++|*         EXIT   (DBUF) COPIED TO OUTPUT FILE.
04229  M00S03812.ldistap +++|*
04230  M00S03813.ldistap +++|*         USES   X - 1, 2.
04231  M00S03814.ldistap +++|*                A - 1, 2.
04232  M00S03815.ldistap +++|*
04233  M00S03816.ldistap +++|*         CALLS  ILO.
04234  M00S03817.ldistap +++|*
04235  M00S03818.ldistap +++|*         MACROS WRITEC.
04236  M00S03819.ldistap +++|
04237  M00S03820.ldistap +++|
04238  M00S03821.ldistap +++| ISO      SUBR               ENTRY/EXIT
04239  M00S03822.ldistap +++|          SA2    SIA
04240  M00S03823.ldistap +++|          SA1    ISOB
04241  M00S03824.ldistap +++|          ZR     X2,ISO1     IF TERMINAL INPUT NOT AVAILABLE
04242  M00S03825.ldistap +++|          SX6    -B1         FLAG INPUT AVAILABLE
04243  M00S03826.ldistap +++|          SA6    A2
04244  M00S03827.ldistap +++|          SA1    ISOA
04245  M00S03828.ldistap +++| ISO1     MBSATA A1,DMIN,DMINC,59,DMINU  SET INPUT MESSAGE
04246  M00S03829.ldistap +++|          SA1    BEL         CHECK IF BELL IS REQUIRED
04247  M00S03830.ldistap +++|          SA2    CCE
04248  M00S03831.ldistap +++|          NZ     X2,ISO2     IF CATALOG ERRORS

Line S03832 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
04249  M01S03832.274l797 ---|          SA2    CNS
04250  M01S03833.274l797 ---|          NZ     X2,ISO2     IF CATALOGS WITH NO SCRATCH

Line S00288 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
04251  M01S00288.274l797 +++|          SA2    CNSM
04252  M01S00289.274l797 +++|          NZ     X2,ISO2     IF CATALOGS WITH NO *MT/NT* SCRATCH
04253  M01S00290.274l797 +++|          SA2    CNSC
04254  M01S00291.274l797 +++|          NZ     X2,ISO2     IF CATALOGS WITH NO *CT* SCRATCH
04255  M01S00292.274l797 +++|          SA2    CNSA
04256  M01S00293.274l797 +++|          NZ     X2,ISO2     IF CATALOGS WITH NO *AT* SCRATCH
04257  M00S03834.ldistap +++|          SA2    COA
04258  M00S03835.ldistap +++|          NZ     X2,ISO2     IF JOBS REQUIRE OPERATOR ACTION

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

Seq #  *Modification Id* Act 
----------------------------+
04259  M01S03836.282l826 ---|          SA2    CPE
04260  M01S03837.282l826 ---|          NZ     X2,ISO2     IF PREVIEW ENTRIES
04261  M00S03838.ldistap +++|          SX1    2R
04262  M00S03839.ldistap +++| ISO2     MBSXTA X1,TOP,12,11,47  SET/CLEAR BELL
04263  M00S03840.ldistap +++|          WRITEC L,TOP       GO TO TOP OF SCREEN
04264  M00S03841.ldistap +++|          RJ     ILO         ISSUE LINE OUTPUT
04265  M00S03842.ldistap +++|          WRITEC L,CIN       CLEAR INPUT LINE
04266  M00S03843.ldistap +++|          EQ     ISOX        RETURN
04267  M00S03844.ldistap +++|

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

Seq #  *Modification Id* Act 
----------------------------+
04268  M01S03845.nos252  ---| ISOA     DATA   50HENTER *HELP* FOR HELP.  ENTER *DROP* TO TERMINATE.

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

Seq #  *Modification Id* Act 
----------------------------+
04269  M01S00062.nos252  +++| ISOA     DATA   50HENTER *HELP* FOR HELP.  ENTER *END* TO TERMINATE.
04270  M00S03846.ldistap +++| ISOB     DATA   50HISSUE *BREAK* TO ENTER INPUT.
04271  M00S03847.ldistap +++|          TITLE  COMMON SUBROUTINES.
04272  M00S03848.ldistap +++| ACF      SPACE  4,15
04273  M00S03849.ldistap +++|**        ACF - ATTACH CATALOG FILE.
04274  M00S03850.ldistap +++|*
04275  M00S03851.ldistap +++|*         EXIT   (X1) = 0 IF CATALOG ATTACHED.
04276  M00S03852.ldistap +++|*                     .NE. 0 IF CATALOG NOT ATTACHED.
04277  M00S03853.ldistap +++|*                (X4) = CSCFA IF CATALOG FILE IS FAST-ATTACHED.
04278  M00S03854.ldistap +++|*                     = CSCFB IF CATALOG FILE IS BUSY.
04279  M00S03855.ldistap +++|*                     = CSCFN IF CATALOG FILE IS NOT FAST-ATTACHED.
04280  M00S03856.ldistap +++|*                     = CSCNF IF CATALOG FILE IS NOT FOUND.
04281  M00S03857.ldistap +++|*
04282  M00S03858.ldistap +++|*         USES   X - 0, 1, 6.
04283  M00S03859.ldistap +++|*                A - 1, 6.
04284  M00S03860.ldistap +++|*
04285  M00S03861.ldistap +++|*         MACROS ATTACH, CATLIST, MBSATA, SETFET.
04286  M00S03862.ldistap +++|
04287  M00S03863.ldistap +++|
04288  M00S03864.ldistap +++| ACF      SUBR               ENTRY/EXIT
04289  M00S03865.ldistap +++|          SETFET P,(DTY=B0),(ERA=ACFB)  CLEAR DEVICE TYPE
04290  M00S03866.ldistap +++|          MBSATA ZEROES,P,16,17,17  CLEAR ERROR CODE
04291  M00S03867.ldistap +++|          ATTACH P,,,,RM,,,IP,FA  ATTACH CATALOG FILE
04292  M00S03868.ldistap +++|          MX0    -8          GET STATUS
04293  M00S03869.ldistap +++|          SA1    P
04294  M00S03870.ldistap +++|          AX1    10
04295  M00S03871.ldistap +++|          BX1    -X0*X1
04296  M00S03872.ldistap +++|          SX4    CSCFA
04297  M00S03873.ldistap +++|          ZR     X1,ACFX     IF FILE ATTACHED

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

Seq #  *Modification Id* Act 
----------------------------+
04298  M01S03874.t2807   ---|          SX1    X4-/ERRMSG/FBS

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

Seq #  *Modification Id* Act 
----------------------------+
04299  M01S00020.t2807   +++|          SX1    X1-/ERRMSG/FBS
04300  M00S03875.ldistap +++|          SX4    CSCFB
04301  M00S03876.ldistap +++|          ZR     X1,ACF1     IF FILE BUSY
04302  M00S03877.ldistap +++|          SX6    ZBUF        RESET BUFFER POINTERS
04303  M00S03878.ldistap +++|          SA6    P+2
04304  M00S03879.ldistap +++|          SA6    A6+B1
04305  M00S03880.ldistap +++|          MBSATA ZEROES,P,16,17,17  CLEAR ERROR CODE
04306  M00S03881.ldistap +++|          ATTACH P,,,,RM,,,IP,NF  ATTACH CATALOG FILE
04307  M00S03882.ldistap +++|          MX0    -8          GET STATUS
04308  M00S03883.ldistap +++|          SA1    P
04309  M00S03884.ldistap +++|          AX1    10
04310  M00S03885.ldistap +++|          BX1    -X0*X1
04311  M00S03886.ldistap +++|          SX4    CSCFN
04312  M00S03887.ldistap +++|          ZR     X1,ACFX     IF FILE FOUND
04313  M00S03888.ldistap +++|          SX1    X1-/ERRMSG/FBS  CHECK FOR FILE BUSY
04314  M00S03889.ldistap +++|          SX4    CSCFB
04315  M00S03890.ldistap +++|          ZR     X1,ACF1     IF FILE BUSY
04316  M00S03891.ldistap +++|          SX4    CSCNF
04317  M00S03892.ldistap +++| ACF1     SX1    B1          FLAG CATALOG NOT ATTACHED
04318  M00S03893.ldistap +++|          EQ     ACFX        RETURN
04319  M00S03894.ldistap +++|

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

Seq #  *Modification Id* Act 
----------------------------+
04320  M01S03895.282l826 ---| ACFA     DATA   0L"TMFC"    PERMANENT FILE NAME
04321  M00S03896.ldistap +++| ACFB     BSS    4           *PFM* MESSAGE BUFFER

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

Seq #  *Modification Id* Act 
----------------------------+
04322  M01S03897.282l826 ---| CJX      SPACE  4,15
04323  M01S03898.282l826 ---|**        CJX - CHECK IF JOB IS EXECUTING AT A CONTROL POINT.
04324  M01S03899.282l826 ---|*
04325  M01S03900.282l826 ---|*         ENTRY  (JSN) = JOB SEQUENCE NUMBER.
04326  M01S03901.282l826 ---|*                (JBUF) = IMAGE OF CONTROL POINT AREAS.
04327  M01S03902.282l826 ---|*
04328  M01S03903.282l826 ---|*         EXIT   (X1) = 0 IF JOB NOT FOUND.
04329  M01S03904.282l826 ---|*                     = EJT ORDINAL IF JOB IS REQUESTING A RESOURCE.
04330  M01S03905.282l826 ---|*
04331  M01S03906.282l826 ---|*         USES   X - 0, 2, 6.
04332  M01S03907.282l826 ---|*                A - 0, 1, 2, 6.
04333  M01S03908.282l826 ---|*
04334  M01S03909.282l826 ---|*         CALLS  GEJ.
04335  M01S03910.282l826 ---|
04336  M01S03911.282l826 ---|
04337  M01S03912.282l826 ---| CJX2     SA1    CJXA        GET EJT ORDINAL
04338  M01S03913.282l826 ---|
04339  M01S03914.282l826 ---| CJX      SUBR               ENTRY/EXIT
04340  M01S03915.282l826 ---|          SA1    TJDP        GET FIRST CONTROL POINT TO CHECK
04341  M01S03916.282l826 ---| CJX1     ZR     X1,CJX2     IF JOB NOT FOUND
04342  M01S03917.282l826 ---|          SA0    X1          GET EJT ORDINAL
04343  M01S03918.282l826 ---|          SA1    A0+TFSW
04344  M01S03919.282l826 ---|          AX1    48
04345  M01S03920.282l826 ---|          SX6    X1
04346  M01S03921.282l826 ---|          SA6    CJXA
04347  M01S03922.282l826 ---|          RJ     GEJ         GET EJT ENTRY
04348  M01S03923.282l826 ---|          MX0    24          COMPARE JSNS
04349  M01S03924.282l826 ---|          SA1    JSN
04350  M01S03925.282l826 ---|          SA2    EBUF+JSNE
04351  M01S03926.282l826 ---|          BX1    X1-X2
04352  M01S03927.282l826 ---|          BX1    X0*X1
04353  M01S03928.282l826 ---|          ZR     X1,CJX2     IF JOB FOUND
04354  M01S03929.282l826 ---|          SA1    A0
04355  M01S03930.282l826 ---|          EQ     CJX1        CHECK NEXT CONTROL POINT
04356  M01S03931.282l826 ---|
04357  M01S03932.282l826 ---| CJXA     BSS    1           EJT ORDINAL
04358  M00S03933.ldistap +++| CLS      SPACE  4,15
04359  M00S03934.ldistap +++|**        CLS - CHECK LINE MODE OUTPUT STATUS.
04360  M00S03935.ldistap +++|*
04361  M00S03936.ldistap +++|*         ENTRY  (LNS) = 0 IF DO NOT FORCE LINE MODE OUTPUT.
04362  M00S03937.ldistap +++|*                      .NE. 0 IF FORCE LINE MODE OUTPUT.
04363  M00S03938.ldistap +++|*
04364  M00S03939.ldistap +++|*         EXIT   (X6) = 0 IF FORCE OUTPUT.
04365  M00S03940.ldistap +++|*                     .NE. 0 IF DO NOT FORCE OUTPUT.
04366  M00S03941.ldistap +++|*                (LNS) = 0.
04367  M00S03942.ldistap +++|*
04368  M00S03943.ldistap +++|*         USES   X - 1.
04369  M00S03944.ldistap +++|*                A - 1, 6.
04370  M00S03945.ldistap +++|
04371  M00S03946.ldistap +++|
04372  M00S03947.ldistap +++| CLS      SUBR               ENTRY/EXIT
04373  M00S03948.ldistap +++|          SA1    OPT         CHECK INPUT/OUTPUT OPTION
04374  M00S03949.ldistap +++|          SX1    X1-OPTLN
04375  M00S03950.ldistap +++|          SX6    B0
04376  M00S03951.ldistap +++|          NZ     X1,CLSX     IF NOT LINE MODE
04377  M00S03952.ldistap +++|          SA1    LNS         GET LINE MODE OUTPUT STATUS
04378  M00S03953.ldistap +++|          SA6    A1
04379  M00S03954.ldistap +++|          NZ     X1,CLSX     IF FORCE OUTPUT
04380  M00S03955.ldistap +++|          SX6    B1
04381  M00S03956.ldistap +++|          EQ     CLSX        RETURN
04382  M00S03957.ldistap +++| CLY      SPACE  4,15
04383  M00S03958.ldistap +++|**        CLY - CONVERT LINE NUMBER TO Y-COORDINATE.
04384  M00S03959.ldistap +++|*
04385  M00S03960.ldistap +++|*         ENTRY  (X0) = FWA OF L-DISPLAY LINE.
04386  M00S03961.ldistap +++|*                (X1) = DISPLAY LINE NUMBER.
04387  M00S03962.ldistap +++|*
04388  M00S03963.ldistap +++|*         EXIT   Y-COORDINATE SET INTO BYTE 1 OF L-DISPLAY LINE.
04389  M00S03964.ldistap +++|*
04390  M00S03965.ldistap +++|*         USES   X - 2, 6.
04391  M00S03966.ldistap +++|*                A - 2.
04392  M00S03967.ldistap +++|*
04393  M00S03968.ldistap +++|*         MACROS MBSXTA.
04394  M00S03969.ldistap +++|
04395  M00S03970.ldistap +++|
04396  M00S03971.ldistap +++| CLY      SUBR               ENTRY/EXIT
04397  M00S03972.ldistap +++|          SX6    15          PRESET Y-COORDINATE INCREMENT
04398  M00S03973.ldistap +++|          SA2    CON
04399  M00S03974.ldistap +++|          ZR     X2,CLY1     IF NOT 721 CONSOLE
04400  M00S03975.ldistap +++|          SX6    10          RESET Y-COORDINATE INCREMENT
04401  M00S03976.ldistap +++|          SX2    7726B-7707B
04402  M00S03977.ldistap +++| CLY1     SX2    X2+7707B
04403  M00S03978.ldistap +++|          IX6    X1*X6       COMPUTE Y-COORDINATE
04404  M00S03979.ldistap +++|          IX6    X2-X6
04405  M00S03980.ldistap +++|          MBSXTA X6,X0,12,11,47  SET Y-COORDINATE
04406  M00S03981.ldistap +++|          EQ     CLYX        RETURN

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

Seq #  *Modification Id* Act 
----------------------------+
04407  M01S03982.282l826 ---| CMM      SPACE  4,15
04408  M01S03983.282l826 ---|**        CMM - CLEAR *MAGNET* MESSAGE.
04409  M01S03984.282l826 ---|*
04410  M01S03985.282l826 ---|*         ENTRY  (CPE) = COUNT OF PREVIEW ENTRIES.
04411  M01S03986.282l826 ---|*

Line S03987 Modification History
`M01` (Removed by)	`nos252`
`M02` (Removed by)	`282l826`

Seq #  *Modification Id* Act 
----------------------------+
04412  M02S03987.282l826 ---|*         EXIT   *ENTER *LDISTAP,PRE.** MESSAGE CLEARED AT CONTROL

Proceed to Part 3