User Tools

Site Tools


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

Deck LDISTAP Part 006

14 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
03824  M01S03408.ldistap +++|          SA1    X4+TFCF-TFCL  SET FIRST ENTRY
03825  M01S03409.ldistap +++|          SX6    X1
03826  M01S03410.ldistap +++|          SA6    TFDP+0
03827  M01S03411.ldistap +++| GCS7     ZR     X5,GCS10    IF END OF TABLE
03828  M01S03412.ldistap +++|          SA1    X5+TFCF-TFCL
03829  M01S03413.ldistap +++|          NZ     X1,GCS8     IF ENTRIES FOR THIS STATUS
03830  M01S03414.ldistap +++|          SA5    A5+B1
03831  M01S03415.ldistap +++|          EQ     GCS7        CHECK NEXT STATUS
03832  M01S03416.ldistap +++|
03833  M01S03417.ldistap +++| GCS8     MBSATA A1,X2,18,17,17  LINK STATUS ENTRIES
03834  M01S03418.ldistap +++| GCS9     SA4    A5
03835  M01S03419.ldistap +++|          EQ     GCS6        CHECK NEXT STATUS
03836  M01S03420.ldistap +++|
03837  M01S03421.ldistap +++| GCS10    SA5    TFDP+0      COUNT NUMBER FAMILY CATALOG ENTRIES
03838  M01S03422.ldistap +++|          SB2    B0          PRESET PAGE NUMBER
03839  M01S03423.ldistap +++|          SB3    B0
03840  M01S03424.ldistap +++| GCS11    SX5    X5
03841  M01S03425.ldistap +++|          ZR     X5,GCS13    IF END OF ENTRIES
03842  M01S03426.ldistap +++|          SB3    B3-LPEFC
03843  M01S03427.ldistap +++|          PL     B3,GCS12    IF NOT END OF PAGE
03844  M01S03428.ldistap +++|          SX6    X5          SET FIRST ENTRY OF PAGE
03845  M01S03429.ldistap +++|          SA6    B2+TFDP
03846  M01S03430.ldistap +++|          SB2    B2+B1       INCREMENT PAGE NUMBER
03847  M01S03431.ldistap +++|          SB3    NLPPG-1
03848  M01S03432.ldistap +++| GCS12    SA5    X5
03849  M01S03433.ldistap +++|          EQ     GCS11       CHECK NEXT ADDRESS
03850  M01S03434.ldistap +++|
03851  M01S03435.ldistap +++| GCSA     BSS    0           TABLE OF CATALOG STATUS LINKS
03852  M01S03436.ldistap +++|          CON    CSERR+TFCL  CATALOG ERROR
03853  M01S03437.ldistap +++|          CON    CSNSV+TFCL  NO SCRATCH VSNS
03854  M01S03438.ldistap +++|          CON    CSCFA+TFCL  CATALOG FAST-ATTACHED
03855  M01S03439.ldistap +++|          CON    CSCFN+TFCL  CATALOG NOT FAST-ATTACHED
03856  M01S03440.ldistap +++|          CON    CSCNF+TFCL  CATALOG FILE NOT FOUND
03857  M01S03441.ldistap +++|
03858  M01S03442.ldistap +++|          CON    0           END OF TABLE
03859  M01S03443.ldistap +++|
03860  M01S03444.ldistap +++| GCSB     CON    0           CATALOG STATUS
Line S03445 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03861  M02S03445.282l826 ---| GJS      SPACE  4,15
Line S03446 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03862  M02S03446.282l826 ---|**        GJS - GET JOB STATUSES.
Line S03447 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03863  M02S03447.282l826 ---|*
Line S03448 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03864  M02S03448.282l826 ---|*         EXIT   CONTROL POINT AREAS SET INTO *JBUF*.
Line S03449 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03865  M02S03449.282l826 ---|*                FIRST CONTROL POINT AREA ENTRY FOR EACH DISPLAY PAGE
Line S03450 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03866  M02S03450.282l826 ---|*                SET INTO *TJDP*.
Line S03451 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03867  M02S03451.282l826 ---|*                WORD 0 OF EACH CONTROL POINT AREA ENTRY SET -
Line S03452 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03868  M02S03452.282l826 ---|*T,       42/0, 18/ADDRESS OF NEXT ENTRY
Figure

0171829ADDRESS OF NEXT ENTRY030590


Line S03453 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03869  M02S03453.282l826 ---|*                (COA) = NUMBER OF JOBS REQUIRING OPERATOR ACTION.
Line S03454 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03870  M02S03454.282l826 ---|*
Line S03455 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03871  M02S03455.282l826 ---|*         USES   X - 0, 1, 2, 4, 5, 6.
Line S03456 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03872  M02S03456.282l826 ---|*                A - 0, 1, 2, 6.
Line S03457 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03873  M02S03457.282l826 ---|*                B - 2, 3, 6, 7.
Line S03458 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03874  M02S03458.282l826 ---|*
Line S03459 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03875  M02S03459.282l826 ---|*         MACROS CLEAR, RDMEM.
Line S03460 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03876  M02S03460.282l826 ---|
Line S03461 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03877  M02S03461.282l826 ---|
Line S03462 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03878  M02S03462.282l826 ---| GJS4     SX6    B2          SET NUMBER OF PAGES
Line S03463 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03879  M02S03463.282l826 ---|          SA6    TNDP+DISJB
Line S03464 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03880  M02S03464.282l826 ---|          SX6    B7          SET OPERATOR ACTION COUNT
Line S03465 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03881  M02S03465.282l826 ---|          SA6    COA
Line S03466 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03882  M02S03466.282l826 ---|
Line S03467 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03883  M02S03467.282l826 ---| GJS      SUBR               ENTRY/EXIT
Line S03468 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03884  M02S03468.282l826 ---|          CLEAR  TJDP,NPGJD  CLEAR PAGE TABLE
Line S03469 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03885  M02S03469.282l826 ---|          SX6    B0          CLEAR EXECUTING JOB STATUSES
Line S03470 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03886  M02S03470.282l826 ---|          SA6    COA
Line S03471 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03887  M02S03471.282l826 ---|          SA6    TNDP+DISJB
Line S03472 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03888  M02S03472.282l826 ---|          SA1    NCP         READ CONTROL POINT AREAS
Line S03473 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03889  M02S03473.282l826 ---|          LX1    7
Line S03474 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03890  M02S03474.282l826 ---|          RDMEM  ABS,CPAS,X1,JBUF  READ CONTROL POINT AREAS
Line S03475 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03891  M02S03475.282l826 ---|          SA4    NCP         GET *RESEX* JOBS REQUIRING ACTION
Line S03476 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03892  M02S03476.282l826 ---|          LX4    7
Line S03477 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03893  M02S03477.282l826 ---|          SX4    X4+177B
Line S03478 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03894  M02S03478.282l826 ---|          SB2    B0          PRESET PAGE NUMBER
Line S03479 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03895  M02S03479.282l826 ---|          SB3    B0
Line S03480 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03896  M02S03480.282l826 ---|          SB6    TJDP        PRESET EXECUTING JOB LINK
Line S03481 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03897  M02S03481.282l826 ---|          SB7    B0          PRESET OPERATOR ACTION COUNT
Line S03482 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03898  M02S03482.282l826 ---| GJS1     SX4    X4-200B
Line S03483 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03899  M02S03483.282l826 ---|          NG     X4,GJS4     IF END OF CONTROL POINTS
Line S03484 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03900  M02S03484.282l826 ---|          SA0    X4+JBUF+1
Line S03485 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03901  M02S03485.282l826 ---|          MX6    -12         CHECK SUBSYSTEM ID
Line S03486 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03902  M02S03486.282l826 ---|          SA1    A0+JCIW
Line S03487 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03903  M02S03487.282l826 ---|          AX1    24
Line S03488 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03904  M02S03488.282l826 ---|          BX6    -X6*X1
Line S03489 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03905  M02S03489.282l826 ---|          SX6    X6-ORSI
Line S03490 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03906  M02S03490.282l826 ---|          NZ     X6,GJS3     IF NOT ALLOW OPERATOR ROLLOUT
Line S03491 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03907  M02S03491.282l826 ---|          AX1    49-24
Line S03492 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03908  M02S03492.282l826 ---|          SX1    X1-RXCS
Line S03493 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03909  M02S03493.282l826 ---|          NZ     X1,GJS3     IF NOT *RESEX* PRIORITY
Line S03494 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03910  M02S03494.282l826 ---|          SA1    A0+SEPW     CHECK ENTRY POINTS
Line S03495 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03911  M02S03495.282l826 ---|          LX1    59-50
Line S03496 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03912  M02S03496.282l826 ---|          PL     X1,GJS3     IF NOT SSJ=
Line S03497 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03913  M02S03497.282l826 ---|          LX1    59-52-59+50
Line S03498 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03914  M02S03498.282l826 ---|          NG     X1,GJS2     IF DMP=
Line S03499 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03915  M02S03499.282l826 ---|          LX1    59-33-59+52
Line S03500 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03916  M02S03500.282l826 ---|          PL     X1,GJS3     IF NOT DMP= SUPPRESSED
Line S03501 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03917  M02S03501.282l826 ---| GJS2     SA1    A0+SNSW     CHECK PP PAUSE FLAG
Line S03502 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03918  M02S03502.282l826 ---|          LX1    59-12
Line S03503 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03919  M02S03503.282l826 ---|          PL     X1,GJS3     IF NOT SET
Line S03504 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03920  M02S03504.282l826 ---|          SB7    B7+B1       INCREMENT OPERATOR ACTION COUNT
Line S03505 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03921  M02S03505.282l826 ---|          SX6    A0          LINK JOBS
Line S03506 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03922  M02S03506.282l826 ---|          SA6    B6
Line S03507 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03923  M02S03507.282l826 ---|          SX6    B0
Line S03508 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03924  M02S03508.282l826 ---|          SA6    A0
Line S03509 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03925  M02S03509.282l826 ---|          SB6    A0
Line S03510 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03926  M02S03510.282l826 ---|          SB3    B3-LPEJB
Line S03511 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03927  M02S03511.282l826 ---|          PL     B3,GJS3     IF NOT END OF PAGE
Line S03512 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03928  M02S03512.282l826 ---|          SX6    A0          SET FIRST ENTRY OF PAGE
Line S03513 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03929  M02S03513.282l826 ---|          SA6    B2+TJDP
Line S03514 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03930  M02S03514.282l826 ---|          SB2    B2+B1       INCREMENT PAGE NUMBER
Line S03515 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03931  M02S03515.282l826 ---|          SB3    NLPPG-1
Line S03516 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03932  M02S03516.282l826 ---| GJS3     SA0    A0+200B
Line S03517 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03933  M02S03517.282l826 ---|          EQ     GJS1        CHECK NEXT JOB
Line S03518 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03934  M02S03518.282l826 ---| GMS      SPACE  4,20
Line S03519 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03935  M02S03519.282l826 ---|**        GET *MAGNET* STATUS.
Line S03520 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03936  M02S03520.282l826 ---|*
Line S03521 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03937  M02S03521.282l826 ---|*         EXIT   *UDT* ENTRIES SET INTO *UBUF*.
Line S03522 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03938  M02S03522.282l826 ---|*                PREVIEW BUFFER SET INTO *PBUF*.
Line S03523 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03939  M02S03523.282l826 ---|*                FIRST *UDT* ENTRY FOR EACH DISPLAY PAGE SET INTO
Line S03524 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03940  M02S03524.282l826 ---|*                *TJDP*.
Line S03525 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03941  M02S03525.282l826 ---|*                WORD 0 OF EACH *UDT* ENTRY SET -
Line S03526 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03942  M02S03526.282l826 ---|*T,       42/0, 18/ADDRESS OF NEXT ENTRY  OR
Figure

0171829ADDRESS OF NEXT ENTRY OR030590


Line S03527 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03943  M02S03527.282l826 ---|*T,       60/-(PBUF+1) IF LAST *UDT* ENTRY
Figure

029-(PBUF+1) IF LAST *UDT* ENTRY3059-(PBUF+1) IF LAST *UDT* ENTRY


Line S03528 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03944  M02S03528.282l826 ---|*                (CPE) = NUMBER OF PREVIEW DISPLAY ENTRIES.
Line S03529 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03945  M02S03529.282l826 ---|*                (MGS) = 0 IF *MAGNET* NOT ACTIVE.
Line S03530 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03946  M02S03530.282l826 ---|*
Line S03531 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03947  M02S03531.282l826 ---|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
Line S03532 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03948  M02S03532.282l826 ---|*                A - 0, 1, 2, 6, 7.
Line S03533 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03949  M02S03533.282l826 ---|*                B - 2, 3, 4, 5, 6, 7.
Line S03534 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03950  M02S03534.282l826 ---|*
Line S03535 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03951  M02S03535.282l826 ---|*         MACROS CLEAR, RDMEM.
Line S03536 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03952  M02S03536.282l826 ---|
Line S03537 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03953  M02S03537.282l826 ---|
Line S03538 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03954  M02S03538.282l826 ---| GMS10    SX6    B2          SET NUMBER OF EQUIPMENT PAGES
Line S03539 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03955  M02S03539.282l826 ---|          SA6    TNDP+DISEQ
Line S03540 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03956  M02S03540.282l826 ---|
Line S03541 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03957  M02S03541.282l826 ---| GMS      SUBR               ENTRY/EXIT
Line S03542 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03958  M02S03542.282l826 ---|          CLEAR  TEDP,NPGED  CLEAR PAGE TABLES
Line S03543 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03959  M02S03543.282l826 ---|          CLEAR  TPDP,NPGPD
Line S03544 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03960  M02S03544.282l826 ---|          SX6    B1          CLEAR *MAGNET* STATUSES
Line S03545 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03961  M02S03545.282l826 ---|          SA6    MGS
Line S03546 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03962  M02S03546.282l826 ---|          SX6    B0
Line S03547 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03963  M02S03547.282l826 ---|          SA6    CPE
Line S03548 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03964  M02S03548.282l826 ---|          SA6    TNDP+DISEQ
Line S03549 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03965  M02S03549.282l826 ---|          SA6    TNDP+DISPR
Line S03550 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03966  M02S03550.282l826 ---|          RDMEM  MTSI,/MTX/UBUF,1,UDA  GET *UDT* ADDRESS
Line S03551 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03967  M02S03551.282l826 ---|          PL     X1,GMSX     IF *MAGNET* NOT ACTIVE
Line S03552 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03968  M02S03552.282l826 ---|          MX0    -12         SAVE *UDT* ADDRESS
Line S03553 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03969  M02S03553.282l826 ---|          BX6    -X0*X2
Line S03554 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03970  M02S03554.282l826 ---|          SA6    UDA
Line S03555 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03971  M02S03555.282l826 ---|          LX2    12          SAVE FIRST *UDT* ADDRESS FOR *EQU* DISPLAY
Line S03556 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03972  M02S03556.282l826 ---|          BX7    -X0*X2
Line S03557 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03973  M02S03557.282l826 ---|          SA7    GMSA
Line S03558 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03974  M02S03558.282l826 ---|          LX2    24          SAVE *UDT* LENGTH
Line S03559 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03975  M02S03559.282l826 ---|          SX2    X2+B1
Line S03560 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03976  M02S03560.282l826 ---|          IX7    X2-X6
Line S03561 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03977  M02S03561.282l826 ---|          SA7    UDL
Line S03562 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03978  M02S03562.282l826 ---|          RDMEM  MTSI,X6,X7,UBUF  GET *UDT* ENTRIES
Line S03563 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03979  M02S03563.282l826 ---|          PL     X1,GMSX     IF *MAGNET* NOT ACTIVE
Line S03564 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03980  M02S03564.282l826 ---|          RDMEM  MTSI,/MTX/PBUF+1,/MTX/PBUF-1,PBUF  GET PREVIEW ENTRIES
Line S03565 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03981  M02S03565.282l826 ---|          PL     X1,GMSX     IF *MAGNET* NOT ACTIVE
Line S03566 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03982  M02S03566.282l826 ---|          SX6    B0          FLAG *MAGNET* ACTIVE
Line S03567 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03983  M02S03567.282l826 ---|          SA6    MGS
Line S03568 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03984  M02S03568.282l826 ---|          SX0    171B        COUNT EQUIPMENT ENTRIES
Line S03569 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03985  M02S03569.282l826 ---|          LX0    12
Line S03570 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03986  M02S03570.282l826 ---|          SA1    UBUF
Line S03571 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03987  M02S03571.282l826 ---|          SB2    B0          PRESET PREVIEW PAGE NUMBER
Line S03572 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03988  M02S03572.282l826 ---|          SB3    B0
Line S03573 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03989  M02S03573.282l826 ---|          SB6    TPDP        PRESET *UDT* LINK ADDRESS
Line S03574 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03990  M02S03574.282l826 ---|          SB7    B0          PRESET PREVIEW ENTRY COUNT
Line S03575 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03991  M02S03575.282l826 ---| GMS1     NG     X1,GMS4     IF END OF *UDT* ENTRIES
Line S03576 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03992  M02S03576.282l826 ---|          SA2    A1+/MTX/UVSN  CHECK FOR SPECIAL STATUS
Line S03577 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03993  M02S03577.282l826 ---|          BX2    X0*X2
Line S03578 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03994  M02S03578.282l826 ---|          ZR     X2,GMS3     IF NOT SPECIAL STATUS
Line S03579 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03995  M02S03579.282l826 ---|          SB7    B7+B1       INCREMENT PREVIEW ENTRY COUNT
Line S03580 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03996  M02S03580.282l826 ---|          SX6    A1          LINK PREVIEW ENTRIES
Line S03581 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03997  M02S03581.282l826 ---|          SA6    B6
Line S03582 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03998  M02S03582.282l826 ---|          SB6    A1
Line S03583 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
03999  M02S03583.282l826 ---|          SB3    B3-LPEUP
Line S03584 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04000  M02S03584.282l826 ---|          PL     B3,GMS3     IF NOT END OF PREVIEW PAGE
Line S03585 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04001  M02S03585.282l826 ---|          SA6    B2+TPDP     SET FIRST ENTRY OF PAGE
Line S03586 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04002  M02S03586.282l826 ---|          SB2    B2+B1       INCREMENT PAGE NUMBER
Line S03587 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04003  M02S03587.282l826 ---|          SB3    NLPPG-1
Line S03588 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04004  M02S03588.282l826 ---| GMS3     SA1    A1+/MTX/UNITL
Line S03589 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04005  M02S03589.282l826 ---|          EQ     GMS1        CHECK NEXT *UDT*
Line S03590 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04006  M02S03590.282l826 ---|
Line S03591 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04007  M02S03591.282l826 ---| GMS4     SA1    PBUF        SET LINK TO PREVIEW BUFFER
Line S03592 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04008  M02S03592.282l826 ---|          SX6    -PBUF
Line S03593 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04009  M02S03593.282l826 ---|          SA6    B6
Line S03594 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04010  M02S03594.282l826 ---| GMS5     ZR     X1,GMS7     IF END OF PREVIEW BUFFER
Line S03595 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04011  M02S03595.282l826 ---|          SB7    B7+B1       INCREMENT PREVIEW COUNT
Line S03596 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04012  M02S03596.282l826 ---|          SB3    B3-LPEPB
Line S03597 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04013  M02S03597.282l826 ---|          PL     B3,GMS6     IF NOT END OF PREVIEW PAGE
Line S03598 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04014  M02S03598.282l826 ---|          SX6    A1          SET FIRST ENTRY OF PAGE
Line S03599 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04015  M02S03599.282l826 ---|          BX6    -X6
Line S03600 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04016  M02S03600.282l826 ---|          SA6    B2+TPDP
Line S03601 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04017  M02S03601.282l826 ---|          SB2    B2+B1       INCREMENT PAGE NUMBER
Line S03602 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04018  M02S03602.282l826 ---|          SB3    NLPPG-1
Line S03603 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04019  M02S03603.282l826 ---| GMS6     SA1    A1+PBUFE
Line S03604 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04020  M02S03604.282l826 ---|          EQ     GMS5        CHECK NEXT PREVIEW ENTRY
Line S03605 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04021  M02S03605.282l826 ---|
Line S03606 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04022  M02S03606.282l826 ---| GMS7     SX6    B2          SET NUMBER OF PREVIEW PAGES
Line S03607 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04023  M02S03607.282l826 ---|          SA6    TNDP+DISPR
Line S03608 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04024  M02S03608.282l826 ---|          SX6    B7          SET PREVIEW ENTRY COUNT
Line S03609 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04025  M02S03609.282l826 ---|          SA6    CPE
Line S03610 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04026  M02S03610.282l826 ---|          SA1    GMSA        GET FIRST *UDT* ADDRESS TO DISPLAY
Line S03611 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04027  M02S03611.282l826 ---|          SB2    B0          PRESET EQUIPMENT PAGE NUMBER
Line S03612 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04028  M02S03612.282l826 ---|          SB3    B0
Line S03613 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04029  M02S03613.282l826 ---|          MX0    -12
Line S03614 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04030  M02S03614.282l826 ---| GMS8     ZR     X1,GMS10    IF END OF *UDT* TABLE
Line S03615 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04031  M02S03615.282l826 ---|          SA2    UDA         GET BUFFER ADDRESS
Line S03616 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04032  M02S03616.282l826 ---|          IX1    X1-X2
Line S03617 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04033  M02S03617.282l826 ---|          SX6    X1+UBUF
Line S03618 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04034  M02S03618.282l826 ---|          SB3    B3-LPEEQ
Line S03619 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04035  M02S03619.282l826 ---|          PL     B3,GMS9     IF NOT END OF EQUIPMENT PAGE
Line S03620 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04036  M02S03620.282l826 ---|          SA6    B2+TEDP     SET FIRST PAGE OF ENTRY
Line S03621 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04037  M02S03621.282l826 ---|          SB2    B2+B1       INCREMENT PAGE NUMBER
Line S03622 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04038  M02S03622.282l826 ---|          SB3    NLPPG-1
Line S03623 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04039  M02S03623.282l826 ---| GMS9     SA1    X6+/MTX/UVRI  GET NEXT *UDT* ADDRESS
Line S03624 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04040  M02S03624.282l826 ---|          BX1    -X0*X1
Line S03625 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04041  M02S03625.282l826 ---|          EQ     GMS8        CHECK NEXT ENTRY
Line S03626 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04042  M02S03626.282l826 ---|
Line S03627 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04043  M02S03627.282l826 ---| GMSA     BSS    1           FIRST *UDT* ADDRESS TO DISPLAY
04044  M01S03628.ldistap +++|          TITLE  INPUT/OUTPUT SUBROUTINES.
04045  M01S03629.ldistap +++| GDI      SPACE  4,10
04046  M01S03630.ldistap +++|**        GDI - GET *DISPLAY* INPUT.
04047  M01S03631.ldistap +++|*
04048  M01S03632.ldistap +++|*         EXIT   (CBUF+1) = INPUT COMMAND.
04049  M01S03633.ldistap +++|*
04050  M01S03634.ldistap +++|*         ERROR  ABORT WITH *L-DISPLAY NOT AVAILABLE*.
04051  M01S03635.ldistap +++|*
04052  M01S03636.ldistap +++|*         USES   X - 1, 2, 6.
04053  M01S03637.ldistap +++|*                A - 1, 6.
04054  M01S03638.ldistap +++|*
04055  M01S03639.ldistap +++|*         MACROS DSDINP, ABTMSG.
04056  M01S03640.ldistap +++|
04057  M01S03641.ldistap +++|
04058  M01S03642.ldistap +++| GDI      SUBR               ENTRY/EXIT
04059  M01S03643.ldistap +++|          SX6    CBUFL       SET BUFFER LENGTH
04060  M01S03644.ldistap +++|          LX6    48
04061  M01S03645.ldistap +++|          SA6    CBUF
04062  M01S03646.ldistap +++|          DSDINP A6          REQUEST L-DISPLAY INPUT
04063  M01S03647.ldistap +++|          SA1    CBUF        CHECK FOR ERRORS
04064  M01S03648.ldistap +++|          SX2    X1-2*NERR-1
04065  M01S03649.ldistap +++|          ZR     X2,GDIX     IF NO ERROR
04066  M01S03650.ldistap +++|          SX2    X1-2*NCMD-1
04067  M01S03651.ldistap +++|          SX6    B0          PRESET COMMAND
04068  M01S03652.ldistap +++|          SA6    CBUF+1
04069  M01S03653.ldistap +++|          ZR     X2,GDIX     IF NO COMMAND ENTERED
04070  M01S03654.ldistap +++|          SX6    B1          FLAG L-DISPLAY ERROR
04071  M01S03655.ldistap +++|          SA6    LDE
04072  M01S03656.ldistap +++|          ABTMSG DFLN        *L-DISPLAY NOT AVAILABLE.*
04073  M01S03657.ldistap +++| GIN      SPACE  4,10
04074  M01S03658.ldistap +++|**        GIN - GET INPUT.
04075  M01S03659.ldistap +++|*
04076  M01S03660.ldistap +++|*         ENTRY  (OPT) = INPUT OPTION.
04077  M01S03661.ldistap +++|*
04078  M01S03662.ldistap +++|*         EXIT   INPUT PROCESSOR EXECUTED FOR OPTION.
04079  M01S03663.ldistap +++|*
04080  M01S03664.ldistap +++|*         USES   X - 1.
04081  M01S03665.ldistap +++|*                A - 1.
04082  M01S03666.ldistap +++|*
04083  M01S03667.ldistap +++|*         MACROS RJM, WRITER.
04084  M01S03668.ldistap +++|
04085  M01S03669.ldistap +++|
04086  M01S03670.ldistap +++| GIN      SUBR               ENTRY/EXIT
04087  M01S03671.ldistap +++|          SA1    TOU
04088  M01S03672.ldistap +++|          NZ     X1,GIN1     IF NOT TERMINAL OUTPUT
04089  M01S03673.ldistap +++|          WRITER L,R         FLUSH BUFFER
04090  M01S03674.ldistap +++| GIN1     CLEAR  CBUF+1,CBUFL  CLEAR INPUT BUFFER
04091  M01S03675.ldistap +++|          SA1    OPT         GET INPUT OPTION
04092  M01S03676.ldistap +++|          SA1    X1+GINA
04093  M01S03677.ldistap +++|          RJM    X1          PROCESS INPUT
04094  M01S03678.ldistap +++|          EQ     GINX        RETURN
04095  M01S03679.ldistap +++|
04096  M01S03680.ldistap +++| GINA     BSS    0           INPUT OPTION PROCESSORS
04097  M01S03681.ldistap +++|          LOC    0
04098  M01S03682.ldistap +++| OPTLD    CON    GDI         DISPLAY
04099  M01S03683.ldistap +++| OPTLN    CON    GLI         LINE
04100  M01S03684.ldistap +++| OPTSC    CON    GSI         SCREEN
04101  M01S03685.ldistap +++|          LOC    *O
04102  M01S03686.ldistap +++| GLI      SPACE  4,10
04103  M01S03687.ldistap +++|**        GLI - GET LINE INPUT.
04104  M01S03688.ldistap +++|*
04105  M01S03689.ldistap +++|*         EXIT   (CBUF+1) = INPUT COMMAND.
04106  M01S03690.ldistap +++|*
04107  M01S03691.ldistap +++|*         USES   X - 1, 2, 6.
04108  M01S03692.ldistap +++|*                A - 1, 2, 6.
04109  M01S03693.ldistap +++|*
04110  M01S03694.ldistap +++|*         MACROS MBSATA, READC, REWIND.
04111  M01S03695.ldistap +++|
04112  M01S03696.ldistap +++| GLI1     MBSATA ZEROES,I,15,17,17  CLEAR EOF
04113  M01S03697.ldistap +++|
04114  M01S03698.ldistap +++| GLI      SUBR               ENTRY/EXIT
04115  M01S03699.ldistap +++|          READC  I,CBUF+1,8  READ COMMAND LINE
04116  M01S03700.ldistap +++|          ZR     X1,GLIX     IF NOT EOR/EOF/EOI
04117  M01S03701.ldistap +++|          SX6    B0          PRESET COMMAND
04118  M01S03702.ldistap +++|          SA6    CBUF+1
04119  M01S03703.ldistap +++|          SA1    TIN         CHECK FOR TERMINAL INPUT/OUTPUT
04120  M01S03704.ldistap +++|          SA2    TOU
04121  M01S03705.ldistap +++|          BX1    X1+X2
04122  M01S03706.ldistap +++|          ZR     X1,GLI1     IF BOTH TERMINAL INPUT AND OUTPUT
Line S03707 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
04123  M02S03707.nos252  ---|          SA1    =0LDROP     SET TERMINATION COMMAND
04124  M01S00061.nos252  +++|          SA1    =0LEND      SET TERMINATION COMMAND
04125  M01S03708.ldistap +++|          BX6    X1
04126  M01S03709.ldistap +++|          SA6    CBUF+1
04127  M01S03710.ldistap +++|          EQ     GLIX        RETURN
04128  M01S03711.ldistap +++| GSI      SPACE  4,10
04129  M01S03712.ldistap +++|**        GSI - GET SCREEN INPUT.
04130  M01S03713.ldistap +++|*
04131  M01S03714.ldistap +++|*         EXIT   (CBUF+1) = INPUT COMMAND.
04132  M01S03715.ldistap +++|*                (SIA) = 0 IF INPUT REQUESTED.
04133  M01S03716.ldistap +++|*
04134  M01S03717.ldistap +++|*         USES   X - 1, 6.
04135  M01S03718.ldistap +++|*                A - 1, 6.
04136  M01S03719.ldistap +++|*
04137  M01S03720.ldistap +++|*         CALLS  GLI.
04138  M01S03721.ldistap +++|
04139  M01S03722.ldistap +++|
04140  M01S03723.ldistap +++| GSI1     RJ     GLI         GET LINE INPUT
04141  M01S03724.ldistap +++|          SX6    B0          CLEAR SCREEN INPUT AVAILABLE
04142  M01S03725.ldistap +++|          SA6    SIA
04143  M01S03726.ldistap +++|
04144  M01S03727.ldistap +++| GSI      SUBR               ENTRY/EXIT
04145  M01S03728.ldistap +++|          SA1    SIA
04146  M01S03729.ldistap +++|          NG     X1,GSI1     IF SCREEN INPUT AVAILABLE
04147  M01S03730.ldistap +++|          SX6    B0          SET NO COMMAND
04148  M01S03731.ldistap +++|          SA6    CBUF+1
04149  M01S03732.ldistap +++|          EQ     GSIX        RETURN
04150  M01S03733.ldistap +++| IDO      SPACE  4,10
04151  M01S03734.ldistap +++|**        IDO - ISSUE *DISPLAY* OUTPUT.
04152  M01S03735.ldistap +++|*
04153  M01S03736.ldistap +++|*         EXIT   (DBUF) SENT TO L-DISPLAY.
04154  M01S03737.ldistap +++|*
04155  M01S03738.ldistap +++|*         ERROR  ABORT WITH *L-DISPLAY NOT AVAILABLE*.
04156  M01S03739.ldistap +++|*
04157  M01S03740.ldistap +++|*         USES   X - 1, 2, 6.
04158  M01S03741.ldistap +++|*                A - 1, 6.
04159  M01S03742.ldistap +++|*
04160  M01S03743.ldistap +++|*         MACROS DSDOUT, ABTMSG.
04161  M01S03744.ldistap +++|
04162  M01S03745.ldistap +++|
04163  M01S03746.ldistap +++| IDO      SUBR               ENTRY/EXIT
04164  M01S03747.ldistap +++|          SX6    LDSY        SET BUFFER LENGTH
04165  M01S03748.ldistap +++|          LX6    48
04166  M01S03749.ldistap +++|          SA6    DBUF
04167  M01S03750.ldistap +++|          DSDOUT A6          REQUEST L-DISPLAY OUTPUT
04168  M01S03751.ldistap +++|          SA1    DBUF        CHECK FOR ERRORS
04169  M01S03752.ldistap +++|          SX2    X1-2*NERR-1
04170  M01S03753.ldistap +++|          ZR     X2,IDOX     IF NO ERROR
04171  M01S03754.ldistap +++|          SX6    B1          FLAG L-DISPLAY ERROR
04172  M01S03755.ldistap +++|          SA6    LDE
04173  M01S03756.ldistap +++|          ABTMSG DFLN        *L-DISPLAY NOT AVAILABLE.*
04174  M01S03757.ldistap +++| ILO      SPACE  4,15
04175  M01S03758.ldistap +++|**        ILO - ISSUE LINE OUTPUT.
04176  M01S03759.ldistap +++|*
04177  M01S03760.ldistap +++|*         EXIT   (DBUF) COPIED TO OUTPUT FILE.
04178  M01S03761.ldistap +++|*
04179  M01S03762.ldistap +++|*         USES   X - 1, 2.
04180  M01S03763.ldistap +++|*                A - 1.
04181  M01S03764.ldistap +++|*                B - 6, 7.
04182  M01S03765.ldistap +++|*
04183  M01S03766.ldistap +++|*         CALLS  CKD.
04184  M01S03767.ldistap +++|*
04185  M01S03768.ldistap +++|*         MACROS WRITEC.
04186  M01S03769.ldistap +++|
04187  M01S03770.ldistap +++|
04188  M01S03771.ldistap +++| ILO      SUBR               ENTRY/EXIT
04189  M01S03772.ldistap +++|          SA1    TOU         CHECK FOR TERMINAL OUTPUT
04190  M01S03773.ldistap +++|          SB7    B0
04191  M01S03774.ldistap +++|          ZR     X1,ILO1     IF TERMINAL OUTPUT
04192  M01S03775.ldistap +++|          WRITEC L,ILOA      DOUBLE SPACE
04193  M01S03776.ldistap +++|          SB7    B1
04194  M01S03777.ldistap +++| ILO1     SX2    L           SET OUTPUT FILE ADDRESS
04195  M01S03778.ldistap +++|          SB6    DBUF
04196  M01S03779.ldistap +++|          RJ     CKD         COPY K-DISPLAY TO OUTPUT FILE
04197  M01S03780.ldistap +++|          EQ     ILOX        RETURN
04198  M01S03781.ldistap +++|
04199  M01S03782.ldistap +++| ILOA     DATA   C*0*        DOUBLE SPACE
04200  M01S03783.ldistap +++| IOU      SPACE  4,10
04201  M01S03784.ldistap +++|**        IOU - ISSUE OUTPUT.
04202  M01S03785.ldistap +++|*
04203  M01S03786.ldistap +++|*         ENTRY  (OPT) = OUTPUT OPTION.
04204  M01S03787.ldistap +++|*
04205  M01S03788.ldistap +++|*         EXIT   OUTPUT PROCESSOR EXECUTED FOR OPTION.
04206  M01S03789.ldistap +++|*
04207  M01S03790.ldistap +++|*         USES   X - 1.
04208  M01S03791.ldistap +++|*                A - 1.
04209  M01S03792.ldistap +++|*
04210  M01S03793.ldistap +++|*         MACROS RJM.
04211  M01S03794.ldistap +++|
04212  M01S03795.ldistap +++|
04213  M01S03796.ldistap +++| IOU      SUBR               ENTRY/EXIT
04214  M01S03797.ldistap +++|          SA1    OPT         GET OUTPUT OPTION
04215  M01S03798.ldistap +++|          SA1    X1+IOUA
04216  M01S03799.ldistap +++|          RJM    X1          PROCESS OUTPUT
04217  M01S03800.ldistap +++|          EQ     IOUX        RETURN
04218  M01S03801.ldistap +++|
04219  M01S03802.ldistap +++| IOUA     BSS    0           OUTPUT OPTION PROCESSORS
04220  M01S03803.ldistap +++|          LOC    0
04221  M01S03804.ldistap +++| DOPT     CON    IDO         DISPLAY
04222  M01S03805.ldistap +++| LOPT     CON    ILO         LINE
04223  M01S03806.ldistap +++| SOPT     CON    ISO         SCREEN
04224  M01S03807.ldistap +++|          LOC    *O
04225  M01S03808.ldistap +++| ISO      SPACE  4,10
04226  M01S03809.ldistap +++|**        ISO - ISSUE SCREEN OUTPUT.
04227  M01S03810.ldistap +++|*
04228  M01S03811.ldistap +++|*         EXIT   (DBUF) COPIED TO OUTPUT FILE.
04229  M01S03812.ldistap +++|*
04230  M01S03813.ldistap +++|*         USES   X - 1, 2.
04231  M01S03814.ldistap +++|*                A - 1, 2.
04232  M01S03815.ldistap +++|*
04233  M01S03816.ldistap +++|*         CALLS  ILO.
04234  M01S03817.ldistap +++|*
04235  M01S03818.ldistap +++|*         MACROS WRITEC.
04236  M01S03819.ldistap +++|
04237  M01S03820.ldistap +++|
04238  M01S03821.ldistap +++| ISO      SUBR               ENTRY/EXIT
04239  M01S03822.ldistap +++|          SA2    SIA
04240  M01S03823.ldistap +++|          SA1    ISOB
04241  M01S03824.ldistap +++|          ZR     X2,ISO1     IF TERMINAL INPUT NOT AVAILABLE
04242  M01S03825.ldistap +++|          SX6    -B1         FLAG INPUT AVAILABLE
04243  M01S03826.ldistap +++|          SA6    A2
04244  M01S03827.ldistap +++|          SA1    ISOA
04245  M01S03828.ldistap +++| ISO1     MBSATA A1,DMIN,DMINC,59,DMINU  SET INPUT MESSAGE
04246  M01S03829.ldistap +++|          SA1    BEL         CHECK IF BELL IS REQUIRED
04247  M01S03830.ldistap +++|          SA2    CCE
04248  M01S03831.ldistap +++|          NZ     X2,ISO2     IF CATALOG ERRORS
Line S03832 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04249  M02S03832.274l797 ---|          SA2    CNS
Line S03833 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04250  M02S03833.274l797 ---|          NZ     X2,ISO2     IF CATALOGS WITH NO SCRATCH
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  M01S03834.ldistap +++|          SA2    COA
04258  M01S03835.ldistap +++|          NZ     X2,ISO2     IF JOBS REQUIRE OPERATOR ACTION
Line S03836 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04259  M02S03836.282l826 ---|          SA2    CPE
Line S03837 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04260  M02S03837.282l826 ---|          NZ     X2,ISO2     IF PREVIEW ENTRIES
04261  M01S03838.ldistap +++|          SX1    2R
04262  M01S03839.ldistap +++| ISO2     MBSXTA X1,TOP,12,11,47  SET/CLEAR BELL
04263  M01S03840.ldistap +++|          WRITEC L,TOP       GO TO TOP OF SCREEN
04264  M01S03841.ldistap +++|          RJ     ILO         ISSUE LINE OUTPUT
04265  M01S03842.ldistap +++|          WRITEC L,CIN       CLEAR INPUT LINE
04266  M01S03843.ldistap +++|          EQ     ISOX        RETURN
04267  M01S03844.ldistap +++|
Line S03845 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
04268  M02S03845.nos252  ---| ISOA     DATA   50HENTER *HELP* FOR HELP.  ENTER *DROP* TO TERMINATE.
04269  M01S00062.nos252  +++| ISOA     DATA   50HENTER *HELP* FOR HELP.  ENTER *END* TO TERMINATE.
04270  M01S03846.ldistap +++| ISOB     DATA   50HISSUE *BREAK* TO ENTER INPUT.
04271  M01S03847.ldistap +++|          TITLE  COMMON SUBROUTINES.
04272  M01S03848.ldistap +++| ACF      SPACE  4,15
04273  M01S03849.ldistap +++|**        ACF - ATTACH CATALOG FILE.
04274  M01S03850.ldistap +++|*
04275  M01S03851.ldistap +++|*         EXIT   (X1) = 0 IF CATALOG ATTACHED.
04276  M01S03852.ldistap +++|*                     .NE. 0 IF CATALOG NOT ATTACHED.
04277  M01S03853.ldistap +++|*                (X4) = CSCFA IF CATALOG FILE IS FAST-ATTACHED.
04278  M01S03854.ldistap +++|*                     = CSCFB IF CATALOG FILE IS BUSY.
04279  M01S03855.ldistap +++|*                     = CSCFN IF CATALOG FILE IS NOT FAST-ATTACHED.
04280  M01S03856.ldistap +++|*                     = CSCNF IF CATALOG FILE IS NOT FOUND.
04281  M01S03857.ldistap +++|*
04282  M01S03858.ldistap +++|*         USES   X - 0, 1, 6.
04283  M01S03859.ldistap +++|*                A - 1, 6.
04284  M01S03860.ldistap +++|*
04285  M01S03861.ldistap +++|*         MACROS ATTACH, CATLIST, MBSATA, SETFET.
04286  M01S03862.ldistap +++|
04287  M01S03863.ldistap +++|
04288  M01S03864.ldistap +++| ACF      SUBR               ENTRY/EXIT
04289  M01S03865.ldistap +++|          SETFET P,(DTY=B0),(ERA=ACFB)  CLEAR DEVICE TYPE
04290  M01S03866.ldistap +++|          MBSATA ZEROES,P,16,17,17  CLEAR ERROR CODE
04291  M01S03867.ldistap +++|          ATTACH P,,,,RM,,,IP,FA  ATTACH CATALOG FILE
04292  M01S03868.ldistap +++|          MX0    -8          GET STATUS
04293  M01S03869.ldistap +++|          SA1    P
04294  M01S03870.ldistap +++|          AX1    10
04295  M01S03871.ldistap +++|          BX1    -X0*X1
04296  M01S03872.ldistap +++|          SX4    CSCFA
04297  M01S03873.ldistap +++|          ZR     X1,ACFX     IF FILE ATTACHED
Line S03874 Modification History
M01 (Added by) ldistap
M02 (Updated by) t2807
Seq #  *Modification Id* Act 
----------------------------+
04298  M02S03874.t2807   ---|          SX1    X4-/ERRMSG/FBS
04299  M01S00020.t2807   +++|          SX1    X1-/ERRMSG/FBS
04300  M01S03875.ldistap +++|          SX4    CSCFB
04301  M01S03876.ldistap +++|          ZR     X1,ACF1     IF FILE BUSY
04302  M01S03877.ldistap +++|          SX6    ZBUF        RESET BUFFER POINTERS
04303  M01S03878.ldistap +++|          SA6    P+2
04304  M01S03879.ldistap +++|          SA6    A6+B1
04305  M01S03880.ldistap +++|          MBSATA ZEROES,P,16,17,17  CLEAR ERROR CODE
04306  M01S03881.ldistap +++|          ATTACH P,,,,RM,,,IP,NF  ATTACH CATALOG FILE
04307  M01S03882.ldistap +++|          MX0    -8          GET STATUS
04308  M01S03883.ldistap +++|          SA1    P
04309  M01S03884.ldistap +++|          AX1    10
04310  M01S03885.ldistap +++|          BX1    -X0*X1
04311  M01S03886.ldistap +++|          SX4    CSCFN
04312  M01S03887.ldistap +++|          ZR     X1,ACFX     IF FILE FOUND
04313  M01S03888.ldistap +++|          SX1    X1-/ERRMSG/FBS  CHECK FOR FILE BUSY
04314  M01S03889.ldistap +++|          SX4    CSCFB
04315  M01S03890.ldistap +++|          ZR     X1,ACF1     IF FILE BUSY
04316  M01S03891.ldistap +++|          SX4    CSCNF
04317  M01S03892.ldistap +++| ACF1     SX1    B1          FLAG CATALOG NOT ATTACHED
04318  M01S03893.ldistap +++|          EQ     ACFX        RETURN
04319  M01S03894.ldistap +++|
Line S03895 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04320  M02S03895.282l826 ---| ACFA     DATA   0L"TMFC"    PERMANENT FILE NAME
04321  M01S03896.ldistap +++| ACFB     BSS    4           *PFM* MESSAGE BUFFER
Line S03897 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04322  M02S03897.282l826 ---| CJX      SPACE  4,15
Line S03898 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04323  M02S03898.282l826 ---|**        CJX - CHECK IF JOB IS EXECUTING AT A CONTROL POINT.
Line S03899 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04324  M02S03899.282l826 ---|*
Line S03900 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04325  M02S03900.282l826 ---|*         ENTRY  (JSN) = JOB SEQUENCE NUMBER.
Line S03901 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04326  M02S03901.282l826 ---|*                (JBUF) = IMAGE OF CONTROL POINT AREAS.
Line S03902 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04327  M02S03902.282l826 ---|*
Line S03903 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04328  M02S03903.282l826 ---|*         EXIT   (X1) = 0 IF JOB NOT FOUND.
Line S03904 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04329  M02S03904.282l826 ---|*                     = EJT ORDINAL IF JOB IS REQUESTING A RESOURCE.
Line S03905 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04330  M02S03905.282l826 ---|*
Line S03906 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04331  M02S03906.282l826 ---|*         USES   X - 0, 2, 6.
Line S03907 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04332  M02S03907.282l826 ---|*                A - 0, 1, 2, 6.
Line S03908 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04333  M02S03908.282l826 ---|*
Line S03909 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04334  M02S03909.282l826 ---|*         CALLS  GEJ.
Line S03910 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04335  M02S03910.282l826 ---|
Line S03911 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04336  M02S03911.282l826 ---|
Line S03912 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04337  M02S03912.282l826 ---| CJX2     SA1    CJXA        GET EJT ORDINAL
Line S03913 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04338  M02S03913.282l826 ---|
Line S03914 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04339  M02S03914.282l826 ---| CJX      SUBR               ENTRY/EXIT
Line S03915 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04340  M02S03915.282l826 ---|          SA1    TJDP        GET FIRST CONTROL POINT TO CHECK
Line S03916 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04341  M02S03916.282l826 ---| CJX1     ZR     X1,CJX2     IF JOB NOT FOUND
Line S03917 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04342  M02S03917.282l826 ---|          SA0    X1          GET EJT ORDINAL
Line S03918 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04343  M02S03918.282l826 ---|          SA1    A0+TFSW
Line S03919 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04344  M02S03919.282l826 ---|          AX1    48
Line S03920 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04345  M02S03920.282l826 ---|          SX6    X1
Line S03921 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04346  M02S03921.282l826 ---|          SA6    CJXA
Line S03922 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04347  M02S03922.282l826 ---|          RJ     GEJ         GET EJT ENTRY
Line S03923 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04348  M02S03923.282l826 ---|          MX0    24          COMPARE JSNS
Line S03924 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04349  M02S03924.282l826 ---|          SA1    JSN
Line S03925 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04350  M02S03925.282l826 ---|          SA2    EBUF+JSNE
Line S03926 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04351  M02S03926.282l826 ---|          BX1    X1-X2
Line S03927 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04352  M02S03927.282l826 ---|          BX1    X0*X1
Line S03928 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04353  M02S03928.282l826 ---|          ZR     X1,CJX2     IF JOB FOUND
Line S03929 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04354  M02S03929.282l826 ---|          SA1    A0
Line S03930 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04355  M02S03930.282l826 ---|          EQ     CJX1        CHECK NEXT CONTROL POINT
Line S03931 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04356  M02S03931.282l826 ---|
Line S03932 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04357  M02S03932.282l826 ---| CJXA     BSS    1           EJT ORDINAL
04358  M01S03933.ldistap +++| CLS      SPACE  4,15
04359  M01S03934.ldistap +++|**        CLS - CHECK LINE MODE OUTPUT STATUS.
04360  M01S03935.ldistap +++|*
04361  M01S03936.ldistap +++|*         ENTRY  (LNS) = 0 IF DO NOT FORCE LINE MODE OUTPUT.
04362  M01S03937.ldistap +++|*                      .NE. 0 IF FORCE LINE MODE OUTPUT.
04363  M01S03938.ldistap +++|*
04364  M01S03939.ldistap +++|*         EXIT   (X6) = 0 IF FORCE OUTPUT.
04365  M01S03940.ldistap +++|*                     .NE. 0 IF DO NOT FORCE OUTPUT.
04366  M01S03941.ldistap +++|*                (LNS) = 0.
04367  M01S03942.ldistap +++|*
04368  M01S03943.ldistap +++|*         USES   X - 1.
04369  M01S03944.ldistap +++|*                A - 1, 6.
04370  M01S03945.ldistap +++|
04371  M01S03946.ldistap +++|
04372  M01S03947.ldistap +++| CLS      SUBR               ENTRY/EXIT
04373  M01S03948.ldistap +++|          SA1    OPT         CHECK INPUT/OUTPUT OPTION
04374  M01S03949.ldistap +++|          SX1    X1-OPTLN
04375  M01S03950.ldistap +++|          SX6    B0
04376  M01S03951.ldistap +++|          NZ     X1,CLSX     IF NOT LINE MODE
04377  M01S03952.ldistap +++|          SA1    LNS         GET LINE MODE OUTPUT STATUS
04378  M01S03953.ldistap +++|          SA6    A1
04379  M01S03954.ldistap +++|          NZ     X1,CLSX     IF FORCE OUTPUT
04380  M01S03955.ldistap +++|          SX6    B1
04381  M01S03956.ldistap +++|          EQ     CLSX        RETURN
04382  M01S03957.ldistap +++| CLY      SPACE  4,15
04383  M01S03958.ldistap +++|**        CLY - CONVERT LINE NUMBER TO Y-COORDINATE.
04384  M01S03959.ldistap +++|*
04385  M01S03960.ldistap +++|*         ENTRY  (X0) = FWA OF L-DISPLAY LINE.
04386  M01S03961.ldistap +++|*                (X1) = DISPLAY LINE NUMBER.
04387  M01S03962.ldistap +++|*
04388  M01S03963.ldistap +++|*         EXIT   Y-COORDINATE SET INTO BYTE 1 OF L-DISPLAY LINE.
04389  M01S03964.ldistap +++|*
04390  M01S03965.ldistap +++|*         USES   X - 2, 6.
04391  M01S03966.ldistap +++|*                A - 2.
04392  M01S03967.ldistap +++|*
04393  M01S03968.ldistap +++|*         MACROS MBSXTA.
04394  M01S03969.ldistap +++|
04395  M01S03970.ldistap +++|
04396  M01S03971.ldistap +++| CLY      SUBR               ENTRY/EXIT
04397  M01S03972.ldistap +++|          SX6    15          PRESET Y-COORDINATE INCREMENT
04398  M01S03973.ldistap +++|          SA2    CON
04399  M01S03974.ldistap +++|          ZR     X2,CLY1     IF NOT 721 CONSOLE
04400  M01S03975.ldistap +++|          SX6    10          RESET Y-COORDINATE INCREMENT
04401  M01S03976.ldistap +++|          SX2    7726B-7707B
04402  M01S03977.ldistap +++| CLY1     SX2    X2+7707B
04403  M01S03978.ldistap +++|          IX6    X1*X6       COMPUTE Y-COORDINATE
04404  M01S03979.ldistap +++|          IX6    X2-X6
04405  M01S03980.ldistap +++|          MBSXTA X6,X0,12,11,47  SET Y-COORDINATE
04406  M01S03981.ldistap +++|          EQ     CLYX        RETURN
Line S03982 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04407  M02S03982.282l826 ---| CMM      SPACE  4,15
Line S03983 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04408  M02S03983.282l826 ---|**        CMM - CLEAR *MAGNET* MESSAGE.
Line S03984 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04409  M02S03984.282l826 ---|*
Line S03985 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04410  M02S03985.282l826 ---|*         ENTRY  (CPE) = COUNT OF PREVIEW ENTRIES.
Line S03986 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04411  M02S03986.282l826 ---|*
Line S03987 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04412  M03S03987.282l826 ---|*         EXIT   *ENTER *LDISTAP,PRE.** MESSAGE CLEARED AT CONTROL
Line S00063 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04413  M02S00063.282l826 ---|*         EXIT   *ENTER *TMSDIS,PRE.** MESSAGE CLEARED AT CONTROL
Line S03988 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04414  M02S03988.282l826 ---|*                POINT OF *MAGNET* IF NO PREVIEW DISPLAY ENTRIES.
Line S03989 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04415  M02S03989.282l826 ---|*
Line S03990 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04416  M02S03990.282l826 ---|*         USES   X - 0, 1, 2, 6.
Line S03991 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04417  M02S03991.282l826 ---|*                A - 1, 2, 6.
Line S03992 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04418  M02S03992.282l826 ---|*
Line S03993 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04419  M02S03993.282l826 ---|*         MACROS MBSATA, SYSTEM.
Line S03994 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04420  M02S03994.282l826 ---|
Line S03995 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04421  M02S03995.282l826 ---|
Line S03996 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04422  M02S03996.282l826 ---| CMM      SUBR               ENTRY/EXIT
Line S03997 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04423  M02S03997.282l826 ---|          SA1    CPE
Line S03998 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04424  M02S03998.282l826 ---|          NZ     X1,CMMX     IF NO PREVIEW ENTRIES
Line S03999 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04425  M02S03999.282l826 ---|          SA1    OPT         CHECK INPUT/OUTPUT MODE
Line S04000 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04426  M02S04000.282l826 ---|          SX1    X1-OPTLD
Line S04001 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04427  M02S04001.282l826 ---|          NZ     X1,CMMX     IF NOT L-DISPLAY MODE
Line S04002 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04428  M02S04002.282l826 ---|          SX6    GBUF        CHECK MESSAGE IN *MS2W*
Line S04003 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04429  M02S04003.282l826 ---|          SA6    CMMA+2
Line S04004 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04430  M02S04004.282l826 ---|          SA6    A6+B1
Line S04005 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04431  M02S04005.282l826 ---|          MBSATA ZEROES,CMMA+0,1,59,0
Line S04006 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04432  M02S04006.282l826 ---|          SYSTEM QAC,R,CMMA
Line S04007 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04433  M02S04007.282l826 ---|          MX0    6           CHECK FOR FLASHING MESSAGE
Line S04008 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04434  M02S04008.282l826 ---|          SA1    GBUF+1
Line S04009 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04435  M02S04009.282l826 ---|          SA2    =1L$
Line S04010 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04436  M02S04010.282l826 ---|          BX1    X1-X2
Line S04011 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04437  M02S04011.282l826 ---|          BX1    X0*X1
Line S04012 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04438  M02S04012.282l826 ---|          NZ     X1,CMMX     IF NOT FLASHING MESSAGE
Line S04013 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04439  M02S04013.282l826 ---|          MBSATA ZEROES,CMMB+0,1,59,0
Line S04014 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04440  M02S04014.282l826 ---|          SX6    CMMC+CMMCL
Line S04015 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04441  M02S04015.282l826 ---|          SA6    CMMB+2
Line S04016 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04442  M02S04016.282l826 ---|          SX6    CMMC
Line S04017 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04443  M02S04017.282l826 ---|          SA6    A6+B1
Line S04018 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04444  M02S04018.282l826 ---|          SYSTEM QAC,R,CMMB  CLEAR FLASHING MESSAGE
Line S04019 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04445  M02S04019.282l826 ---|          EQ     CMMX        RETURN
Line S04020 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04446  M02S04020.282l826 ---|
Line S04021 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04447  M02S04021.282l826 ---| CMMA     BSS    0           *QAC* PEEK BLOCK
Line S04022 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04448  M02S04022.282l826 ---|          LOC    0
Line S04023 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04449  M02S04023.282l826 ---|          VFD    42/0,8/0,9/3,1/0  *PEEK* FUNCTION
Line S04024 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04450  M02S04024.282l826 ---|          VFD    30/0,12/13B,18/GBUF  BLOCK LENGTH
Line S04025 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04451  M02S04025.282l826 ---|          VFD    42/0,18/GBUF
Line S04026 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04452  M02S04026.282l826 ---|          VFD    42/0,18/GBUF
Line S04027 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04453  M02S04027.282l826 ---|          VFD    42/0,18/GBUF+GBUFL
Line S04028 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04454  M02S04028.282l826 ---|          VFD    42/0,6/0,12/0
Line S04029 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04455  M02S04029.282l826 ---|          VFD    42/0,18/0
Line S04030 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04456  M02S04030.282l826 ---|          VFD    24/4LMAG ,36/104B  SELECT BY JSN
Line S04031 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04457  M02S04031.282l826 ---|          VFD    12/2B,12/0,12/0,3/0,3/0,18/0  EXECUTING JOB
Line S04032 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04458  M02S04032.282l826 ---|          VFD    18/0,18/0,3/0,3/0,18/0
Line S04033 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04459  M02S04033.282l826 ---|          VFD    60/0
Line S04034 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04460  M02S04034.282l826 ---|          VFD    60/0
Line S04035 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04461  M02S04035.282l826 ---|          VFD    60/-0
Line S04036 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04462  M02S04036.282l826 ---|          VFD    12/7777B,48/0
Line S04037 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04463  M02S04037.282l826 ---|          VFD    60/100000B  GET *MS2W* BLOCK
Line S04038 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04464  M02S04038.282l826 ---|          VFD    60/0
Line S04039 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04465  M02S04039.282l826 ---|          ERRNZ  13B+5B-*    INCORRECT *QAC* BLOCK LENGTH
Line S04040 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04466  M02S04040.282l826 ---|          LOC    *O
Line S04041 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04467  M02S04041.282l826 ---|
Line S04042 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04468  M02S04042.282l826 ---| CMMB     BSS    0           *QAC* ALTER BLOCK
Line S04043 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04469  M02S04043.282l826 ---|          LOC    0
Line S04044 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04470  M02S04044.282l826 ---|          VFD    42/0,8/0,9/1,1/0  *ALTER* FUNCTION
Line S04045 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04471  M02S04045.282l826 ---|          VFD    30/0,12/14B,18/CMMC  BLOCK LENGTH
Line S04046 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04472  M02S04046.282l826 ---|          VFD    42/0,18/CMMC+CMMCL
Line S04047 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04473  M02S04047.282l826 ---|          VFD    42/0,18/CMMC
Line S04048 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04474  M02S04048.282l826 ---|          VFD    42/0,18/CMMC+CMMCL+1
Line S04049 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04475  M02S04049.282l826 ---|          VFD    42/0,6/0,12/0
Line S04050 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04476  M02S04050.282l826 ---|          VFD    42/0,18/0
Line S04051 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04477  M02S04051.282l826 ---|          VFD    24/4LMAG ,36/104B  SELECT BY JSN
Line S04052 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04478  M02S04052.282l826 ---|          VFD    12/2B,12/0,12/0,3/0,3/0,18/0  EXECUTING JOB
Line S04053 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04479  M02S04053.282l826 ---|          VFD    18/0,18/0,3/0,3/0,18/0
Line S04054 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04480  M02S04054.282l826 ---|          VFD    60/0
Line S04055 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04481  M02S04055.282l826 ---|          VFD    60/0
Line S04056 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04482  M02S04056.282l826 ---|          VFD    6/0,24/0,30/30000B  CLEAR PAUSE BIT, SEND MESSAGE
Line S04057 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04483  M02S04057.282l826 ---|          VFD    42/0,18/0
Line S04058 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04484  M02S04058.282l826 ---|          VFD    42/0,6/0,6/0,6/0
Line S04059 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04485  M02S04059.282l826 ---|          VFD    12/0,12/0,12/0,3/0,3/0,6/0,6/0,6/0
Line S04060 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04486  M02S04060.282l826 ---|          VFD    60/0
Line S04061 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04487  M02S04061.282l826 ---|          ERRNZ  14B+5B-*    INCORRECT *QAC* BLOCK LENGTH
Line S04062 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04488  M02S04062.282l826 ---|          LOC    *O
Line S04063 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04489  M02S04063.282l826 ---|
Line S04064 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04490  M02S04064.282l826 ---| CMMC     DATA   C*MAGNET.*  CONTROL POINT MESSAGE FOR *MAGNET*
Line S04065 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04491  M02S04065.282l826 ---| CMMCL    EQU    *-CMMC      LENGTH OF MESSAGE
Line S04066 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04492  M02S04066.282l826 ---|          CON    0
Line S04067 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04493  M02S04067.282l826 ---| COS      SPACE  4,15
Line S04068 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04494  M02S04068.282l826 ---|**        COS - CHECK OFF-SITE STATUS.
Line S04069 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04495  M02S04069.282l826 ---|*
Line S04070 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04496  M02S04070.282l826 ---|*         ENTRY  (X1) = VSN TO CHECK.
Line S04071 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04497  M02S04071.282l826 ---|*                     = *NON-TMS* IF NOT A *TMS* TAPE.
Line S04072 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04498  M02S04072.282l826 ---|*                (X2) = FAMILY ORDINAL.
Line S04073 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04499  M02S04073.282l826 ---|*
Line S04074 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04500  M02S04074.282l826 ---|*         EXIT   (X1) = BLANKS IF VSN IS NOT OFF-SITE.
Line S04075 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04501  M02S04075.282l826 ---|*                     = ASTERISKS IF VSN IS OFF-SITE.
Line S04076 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04502  M02S04076.282l826 ---|*
Line S04077 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04503  M02S04077.282l826 ---|*         USES   X - 0, 2, 3, 6.
Line S04078 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04504  M02S04078.282l826 ---|*                A - 1, 2, 3, 6.
Line S04079 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04505  M02S04079.282l826 ---|*
Line S04080 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04506  M02S04080.282l826 ---|*         CALLS  SWP.
Line S04081 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04507  M02S04081.282l826 ---|*
Line S04082 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04508  M02S04082.282l826 ---|*         MACROS SYSTEM.
Line S04083 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
04509  M02S04083.282l826 ---|
Proceed to Part 7
cdc/nos2.source/opl.opl871/deck/ldistap.006.txt ยท Last modified: by 127.0.0.1