Seq # *Modification Id* Act
----------------------------+
| Line S00063 Modification History |
M01 (Added by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04413 M02S00063.282l826 ---|* EXIT *ENTER *TMSDIS,PRE.** MESSAGE CLEARED AT CONTROL
| Line S03988 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04414 M01S03988.282l826 ---|* POINT OF *MAGNET* IF NO PREVIEW DISPLAY ENTRIES.
04415 M01S03989.282l826 ---|*
04416 M01S03990.282l826 ---|* USES X - 0, 1, 2, 6.
04417 M01S03991.282l826 ---|* A - 1, 2, 6.
04418 M01S03992.282l826 ---|*
04419 M01S03993.282l826 ---|* MACROS MBSATA, SYSTEM.
04420 M01S03994.282l826 ---|
04421 M01S03995.282l826 ---|
04422 M01S03996.282l826 ---| CMM SUBR ENTRY/EXIT
04423 M01S03997.282l826 ---| SA1 CPE
04424 M01S03998.282l826 ---| NZ X1,CMMX IF NO PREVIEW ENTRIES
04425 M01S03999.282l826 ---| SA1 OPT CHECK INPUT/OUTPUT MODE
04426 M01S04000.282l826 ---| SX1 X1-OPTLD
04427 M01S04001.282l826 ---| NZ X1,CMMX IF NOT L-DISPLAY MODE
04428 M01S04002.282l826 ---| SX6 GBUF CHECK MESSAGE IN *MS2W*
04429 M01S04003.282l826 ---| SA6 CMMA+2
04430 M01S04004.282l826 ---| SA6 A6+B1
04431 M01S04005.282l826 ---| MBSATA ZEROES,CMMA+0,1,59,0
04432 M01S04006.282l826 ---| SYSTEM QAC,R,CMMA
04433 M01S04007.282l826 ---| MX0 6 CHECK FOR FLASHING MESSAGE
04434 M01S04008.282l826 ---| SA1 GBUF+1
04435 M01S04009.282l826 ---| SA2 =1L$
04436 M01S04010.282l826 ---| BX1 X1-X2
04437 M01S04011.282l826 ---| BX1 X0*X1
04438 M01S04012.282l826 ---| NZ X1,CMMX IF NOT FLASHING MESSAGE
04439 M01S04013.282l826 ---| MBSATA ZEROES,CMMB+0,1,59,0
04440 M01S04014.282l826 ---| SX6 CMMC+CMMCL
04441 M01S04015.282l826 ---| SA6 CMMB+2
04442 M01S04016.282l826 ---| SX6 CMMC
04443 M01S04017.282l826 ---| SA6 A6+B1
04444 M01S04018.282l826 ---| SYSTEM QAC,R,CMMB CLEAR FLASHING MESSAGE
04445 M01S04019.282l826 ---| EQ CMMX RETURN
04446 M01S04020.282l826 ---|
04447 M01S04021.282l826 ---| CMMA BSS 0 *QAC* PEEK BLOCK
04448 M01S04022.282l826 ---| LOC 0
04449 M01S04023.282l826 ---| VFD 42/0,8/0,9/3,1/0 *PEEK* FUNCTION
04450 M01S04024.282l826 ---| VFD 30/0,12/13B,18/GBUF BLOCK LENGTH
04451 M01S04025.282l826 ---| VFD 42/0,18/GBUF
04452 M01S04026.282l826 ---| VFD 42/0,18/GBUF
04453 M01S04027.282l826 ---| VFD 42/0,18/GBUF+GBUFL
04454 M01S04028.282l826 ---| VFD 42/0,6/0,12/0
04455 M01S04029.282l826 ---| VFD 42/0,18/0
04456 M01S04030.282l826 ---| VFD 24/4LMAG ,36/104B SELECT BY JSN
04457 M01S04031.282l826 ---| VFD 12/2B,12/0,12/0,3/0,3/0,18/0 EXECUTING JOB
04458 M01S04032.282l826 ---| VFD 18/0,18/0,3/0,3/0,18/0
04459 M01S04033.282l826 ---| VFD 60/0
04460 M01S04034.282l826 ---| VFD 60/0
04461 M01S04035.282l826 ---| VFD 60/-0
04462 M01S04036.282l826 ---| VFD 12/7777B,48/0
04463 M01S04037.282l826 ---| VFD 60/100000B GET *MS2W* BLOCK
04464 M01S04038.282l826 ---| VFD 60/0
04465 M01S04039.282l826 ---| ERRNZ 13B+5B-* INCORRECT *QAC* BLOCK LENGTH
04466 M01S04040.282l826 ---| LOC *O
04467 M01S04041.282l826 ---|
04468 M01S04042.282l826 ---| CMMB BSS 0 *QAC* ALTER BLOCK
04469 M01S04043.282l826 ---| LOC 0
04470 M01S04044.282l826 ---| VFD 42/0,8/0,9/1,1/0 *ALTER* FUNCTION
04471 M01S04045.282l826 ---| VFD 30/0,12/14B,18/CMMC BLOCK LENGTH
04472 M01S04046.282l826 ---| VFD 42/0,18/CMMC+CMMCL
04473 M01S04047.282l826 ---| VFD 42/0,18/CMMC
04474 M01S04048.282l826 ---| VFD 42/0,18/CMMC+CMMCL+1
04475 M01S04049.282l826 ---| VFD 42/0,6/0,12/0
04476 M01S04050.282l826 ---| VFD 42/0,18/0
04477 M01S04051.282l826 ---| VFD 24/4LMAG ,36/104B SELECT BY JSN
04478 M01S04052.282l826 ---| VFD 12/2B,12/0,12/0,3/0,3/0,18/0 EXECUTING JOB
04479 M01S04053.282l826 ---| VFD 18/0,18/0,3/0,3/0,18/0
04480 M01S04054.282l826 ---| VFD 60/0
04481 M01S04055.282l826 ---| VFD 60/0
04482 M01S04056.282l826 ---| VFD 6/0,24/0,30/30000B CLEAR PAUSE BIT, SEND MESSAGE
04483 M01S04057.282l826 ---| VFD 42/0,18/0
04484 M01S04058.282l826 ---| VFD 42/0,6/0,6/0,6/0
04485 M01S04059.282l826 ---| VFD 12/0,12/0,12/0,3/0,3/0,6/0,6/0,6/0
04486 M01S04060.282l826 ---| VFD 60/0
04487 M01S04061.282l826 ---| ERRNZ 14B+5B-* INCORRECT *QAC* BLOCK LENGTH
04488 M01S04062.282l826 ---| LOC *O
04489 M01S04063.282l826 ---|
04490 M01S04064.282l826 ---| CMMC DATA C*MAGNET.* CONTROL POINT MESSAGE FOR *MAGNET*
04491 M01S04065.282l826 ---| CMMCL EQU *-CMMC LENGTH OF MESSAGE
04492 M01S04066.282l826 ---| CON 0
04493 M01S04067.282l826 ---| COS SPACE 4,15
04494 M01S04068.282l826 ---|** COS - CHECK OFF-SITE STATUS.
04495 M01S04069.282l826 ---|*
04496 M01S04070.282l826 ---|* ENTRY (X1) = VSN TO CHECK.
04497 M01S04071.282l826 ---|* = *NON-TMS* IF NOT A *TMS* TAPE.
04498 M01S04072.282l826 ---|* (X2) = FAMILY ORDINAL.
04499 M01S04073.282l826 ---|*
04500 M01S04074.282l826 ---|* EXIT (X1) = BLANKS IF VSN IS NOT OFF-SITE.
04501 M01S04075.282l826 ---|* = ASTERISKS IF VSN IS OFF-SITE.
04502 M01S04076.282l826 ---|*
04503 M01S04077.282l826 ---|* USES X - 0, 2, 3, 6.
04504 M01S04078.282l826 ---|* A - 1, 2, 3, 6.
04505 M01S04079.282l826 ---|*
04506 M01S04080.282l826 ---|* CALLS SWP.
04507 M01S04081.282l826 ---|*
04508 M01S04082.282l826 ---|* MACROS SYSTEM.
04509 M01S04083.282l826 ---|
04510 M01S04084.282l826 ---|
04511 M01S04085.282l826 ---| COS1 SA1 OFM GET ORIGINAL FAMILY NAME
04512 M01S04086.282l826 ---| SA2 OUI
04513 M01S04087.282l826 ---| RJ SWP SWAP TO FAMILY NAME AND USER INDEX
04514 M01S04088.282l826 ---| COS2 SA1 BLANKS FLAG NOT OFF-SITE
04515 M01S04089.282l826 ---|
04516 M01S04090.282l826 ---| COS SUBR ENTRY/EXIT
04517 M01S04091.282l826 ---| MX0 42 GET VSN
04518 M01S04092.282l826 ---| BX6 X0*X1
04519 M01S04093.282l826 ---| SA3 =7LNON-TMS CHECK IF A *TMS* VSN
04520 M01S04094.282l826 ---| BX3 X6-X3
04521 M01S04095.282l826 ---| ZR X3,COS2 IF NOT A *TMS* VSN
04522 M01S04096.282l826 ---| SA6 COSC+/TFM/VEES
04523 M01S04097.282l826 ---| SA1 X2+FBUF GET FAMILY NAME
04524 M01S04098.282l826 ---| SA2 OUI
04525 M01S04099.282l826 ---| RJ SWP SWAP TO FAMILY NAME AND USER INDEX
04526 M01S04100.282l826 ---| NZ X4,COS1 IF FAMILY NOT FOUND
04527 M01S04101.282l826 ---| SX6 /TFM/LVES*10B SET SUBFUNCTION
04528 M01S04102.282l826 ---| SA6 COSA+0
04529 M01S04103.282l826 ---| SX6 COSC+/TFM/TSVL
04530 M01S04104.282l826 ---| SA6 COSA+2
04531 M01S04105.282l826 ---| SX6 COSC
04532 M01S04106.282l826 ---| SA6 A6+B1
04533 M01S04107.282l826 ---| SYSTEM TFM,R,COSA,/TFM/SSJF*100B CALL *TFM*
04534 M01S04108.282l826 ---| SA1 OFM GET ORIGINAL FAMILY NAME
04535 M01S04109.282l826 ---| SA2 OUI
04536 M01S04110.282l826 ---| RJ SWP SWAP TO FAMILY NAME AND USER INDEX
04537 M01S04111.282l826 ---| MX0 -8 CHECK FOR ERROR
04538 M01S04112.282l826 ---| SA1 COSA+0
04539 M01S04113.282l826 ---| AX1 9
04540 M01S04114.282l826 ---| BX1 -X0*X1
04541 M01S04115.282l826 ---| NZ X1,COS2 IF TAPE CATALOG ERROR
04542 M01S04116.282l826 ---| SX0 /TFM/TVVS CHECK SITE FLAG
04543 M01S04117.282l826 ---| SA1 COSC+/TFM/VEVS
04544 M01S04118.282l826 ---| BX1 X0*X1
04545 M01S04119.282l826 ---| ZR X1,COS2 IF VSN IS ON-SITE
04546 M01S04120.282l826 ---| SA1 =10H********** FLAG OFF-SITE
04547 M01S04121.282l826 ---| EQ COSX RETURN
04548 M01S04122.282l826 ---|
04549 M01S04123.282l826 ---|
04550 M01S04124.282l826 ---| COSA BSS 0 *TFM* FET
04551 M01S04125.282l826 ---| TFM FILEB COSC,/TFM/TSVL+1,(FET=16),EPR
04552 M01S04126.282l826 ---| COSB BSS 0
04553 M01S04127.282l826 ---| ORG COSA+5
04554 M01S04128.282l826 ---| VFD 42/0,18/COSD *TFM* ERROR MESSAGE ADDRESS
04555 M01S04129.282l826 ---| ORG COSB
04556 M01S04130.282l826 ---|
04557 M01S04131.282l826 ---| COSC BSS /TFM/TSVL+1 VSN ENTRY BUFFER
04558 M01S04132.282l826 ---|
04559 M01S04133.282l826 ---| COSD BSS 4 *TFM* ERROR MESSAGE BUFFER
04560 M01S04134.282l826 ---| CSC SPACE 4,10
04561 M01S04135.282l826 ---|** CSC - CHECK FOR SPECIAL CHARACTERS.
04562 M01S04136.282l826 ---|*
04563 M01S04137.282l826 ---|* ENTRY (X1) = WORD TO CHECK.
04564 M01S04138.282l826 ---|*
04565 M01S04139.282l826 ---|* EXIT (X6) = WORD WITH SPECIAL CHARACTERS SET TO BLANKS.
04566 M01S04140.282l826 ---|*
04567 M01S04141.282l826 ---|* USES X - 3.
04568 M01S04142.282l826 ---|* A - 3.
04569 M01S04143.282l826 ---|*
04570 M01S04144.282l826 ---|* CALLS ZTB.
04571 M01S04145.282l826 ---|
04572 M01S04146.282l826 ---|
04573 M01S04147.282l826 ---| CSC1 RJ ZTB CONVERT ZEROES TO BLANKS
04574 M01S04148.282l826 ---|
04575 M01S04149.282l826 ---| CSC SUBR ENTRY/EXIT
04576 M01S04150.282l826 ---| SA3 OPT CHECK OPTION
04577 M01S04151.282l826 ---| SX3 X3-OPTLD
04578 M01S04152.282l826 ---| NZ X3,CSC1 IF NOT L-DISPLAY MODE
04579 M01S04153.282l826 ---| SA3 CSCA *01010101010101010101B*
04580 M01S04154.282l826 ---| BX6 -X3*X1 CLEAR LOWEST CHARACTER BIT
04581 M01S04155.282l826 ---| LX6 -1
04582 M01S04156.282l826 ---| LX3 3 *10101010101010101010B*
04583 M01S04157.282l826 ---| IX6 X3+X6
04584 M01S04158.282l826 ---| LX3 2 *40404040404040404040B*
04585 M01S04159.282l826 ---| BX6 X3*X6 SET HIGHEST CHARACTER BIT IF SPECIAL
04586 M01S04160.282l826 ---| BX3 X6 GENERATE MASK OF SPECIAL CHARACTERS
04587 M01S04161.282l826 ---| LX3 -5
04588 M01S04162.282l826 ---| IX3 X6-X3
04589 M01S04163.282l826 ---| BX6 X6+X3
04590 M01S04164.282l826 ---| BX1 -X6*X1 CLEAR SPECIAL CHARACTERS
04591 M01S04165.282l826 ---| EQ CSC1 CONVERT ZEROES TO BLANKS
04592 M01S04166.282l826 ---|
04593 M01S04167.282l826 ---| CSCA CON 01010101010101010101B
04594 M00S04168.ldistap +++| CUP SPACE 4,15
04595 M00S04169.ldistap +++|** CUP - CLEAN UP PROGRAM.
04596 M00S04170.ldistap +++|*
04597 M00S04171.ldistap +++|* EXIT TAPE CATALOG FILE RETURNED.
04598 M00S04172.ldistap +++|* INPUT AND OUTPUT FILES RETURNED IF SCREEN MODE.
04599 M00S04173.ldistap +++|* SWAPPED BACK TO ORIGINAL FAMILY NAME AND USER INDEX.
04600 M00S04174.ldistap +++|* L-DISPLAY CLEARED IF L-DISPLAY MODE.
04601 M00S04175.ldistap +++|*
04602 M00S04176.ldistap +++|* USES X - 0, 1, 2, 6.
04603 M00S04177.ldistap +++|* A - 1, 2, 6.
04604 M00S04178.ldistap +++|*
04605 M00S04179.ldistap +++|* CALLS IDO, SWP.
04606 M00S04180.ldistap +++|*
04607 M00S04181.ldistap +++|* MACROS DSDINP, MBSATA, RETURN, WRITER.
04608 M00S04182.ldistap +++|
04609 M00S04183.ldistap +++|
04610 M00S04184.ldistap +++| CUP SUBR ENTRY/EXIT
04611 M00S04185.ldistap +++| MBSATA (=1),P,1,0,0 RETURN TAPE CATALOG FILE
04612 M00S04186.ldistap +++| RETURN P,R
04613 M00S04187.ldistap +++| SA1 OPT CHECK FOR SCREEN MODE
04614 M00S04188.ldistap +++| SX1 X1-OPTSC
04615 M00S04189.ldistap +++| NZ X1,CUP1 IF NOT SCREEN MODE
04616 M00S04190.ldistap +++| MBSATA (=1),I,1,0,0 RETURN TERMINAL INPUT
04617 M00S04191.ldistap +++| RETURN I
04618 M00S04192.ldistap +++| MBSATA (=1),L,1,0,0 RESET CURSOR POSITIONING
04619 M00S04193.ldistap +++| WRITEC L,CPY
04620 M00S04194.ldistap +++| WRITEC L,CSL CLEAR SCREEN
04621 M00S04195.ldistap +++| WRITER L,R
04622 M00S04196.ldistap +++| RETURN L RETURN TERMINAL OUTPUT
04623 M00S04197.ldistap +++| EQ CUP2 RETURN TO ORIGINAL FAMILY/USER INDEX
04624 M00S04198.ldistap +++|
04625 M00S04199.ldistap +++| CUP1 WRITER L,R FLUSH OUTPUT BUFFER
04626 M00S04200.ldistap +++| CUP2 SA1 OFM GET ORIGINAL FAMILY NAME
04627 M00S04201.ldistap +++| SA2 OUI
04628 M00S04202.ldistap +++| RJ SWP SWAP TO FAMILY NAME AND USER INDEX
04629 M00S04203.ldistap +++| SA1 OPT CHECK FOR L-DISPLAY
04630 M00S04204.ldistap +++| SX1 X1-OPTLD
04631 M00S04205.ldistap +++| NZ X1,CUPX IF NOT L-DISPLAY MODE
04632 M00S04206.ldistap +++| SA1 LDE
04633 M00S04207.ldistap +++| NZ X1,CUPX IF L-DISPLAY ERROR
04634 M00S04208.ldistap +++| SX6 B0 CLEAR L-DISPLAY BUFFER
04635 M00S04209.ldistap +++| SA6 DBUF+1
04636 M00S04210.ldistap +++| RJ IDO ISSUE L-DISPLAY OUTPUT
04637 M00S04211.ldistap +++| SA1 LDE
04638 M00S04212.ldistap +++| NZ X1,CUPX IF L-DISPLAY ERROR
04639 M00S04213.ldistap +++| SX6 CBUFL SET BUFFER LENGTH
04640 M00S04214.ldistap +++| LX6 48
04641 M00S04215.ldistap +++| SA6 CBUF
04642 M00S04216.ldistap +++| DSDINP A6,C CLEAR L-DISPLAY INTERLOCK
04643 M00S04217.ldistap +++| SA1 CBUF CHECK FOR ERROR
04644 M00S04218.ldistap +++| SX6 X1-2*NERR-1
04645 M00S04219.ldistap +++| ZR X6,CUPX IF NO ERROR
04646 M00S04220.ldistap +++| SA6 LDE FLAG L-DISPLAY ERROR
04647 M00S04221.ldistap +++| EQ CUPX RETURN
| Line S04222 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04648 M01S04222.282l826 ---| GEJ SPACE 4,15
04649 M01S04223.282l826 ---|** GEJ - GET EJT ENTRY.
04650 M01S04224.282l826 ---|*
04651 M01S04225.282l826 ---|* ENTRY (X1) = EJT ORDINAL.
04652 M01S04226.282l826 ---|* (EJA) = FWA OF EJT TABLE.
04653 M01S04227.282l826 ---|*
04654 M01S04228.282l826 ---|* EXIT (EBUF) = EJT ENTRY.
04655 M01S04229.282l826 ---|*
04656 M01S04230.282l826 ---|* USES X - 1, 2.
04657 M01S04231.282l826 ---|* A - 2.
04658 M01S04232.282l826 ---|*
04659 M01S04233.282l826 ---|* MACROS RDMEM.
04660 M01S04234.282l826 ---|
04661 M01S04235.282l826 ---|
04662 M01S04236.282l826 ---| GEJ SUBR ENTRY/EXIT
04663 M01S04237.282l826 ---| SX2 EJTE GET ADDRESS WITHIN EJT TABLE
04664 M01S04238.282l826 ---| IX1 X2*X1
04665 M01S04239.282l826 ---| SA2 EJA GET FWA OF EJT TABLE
04666 M01S04240.282l826 ---| IX1 X1+X2
04667 M01S04241.282l826 ---| RDMEM ABS,X1,EJTE,EBUF GET EJT ENTRY
04668 M01S04242.282l826 ---| EQ GEJX RETURN
04669 M01S04243.282l826 ---| GES SPACE 4,15
04670 M01S04244.282l826 ---|** GES - GET EST ENTRY.
04671 M01S04245.282l826 ---|*
04672 M01S04246.282l826 ---|* ENTRY (X1) = EST ORDINAL.
04673 M01S04247.282l826 ---|* (ESA) = FWA OF EJT TABLE.
04674 M01S04248.282l826 ---|*
04675 M01S04249.282l826 ---|* EXIT (QBUF) = EST ENTRY.
04676 M01S04250.282l826 ---|*
04677 M01S04251.282l826 ---|* USES X - 1, 2.
04678 M01S04252.282l826 ---|* A - 2.
04679 M01S04253.282l826 ---|*
04680 M01S04254.282l826 ---|* MACROS RDMEM.
04681 M01S04255.282l826 ---|
04682 M01S04256.282l826 ---|
04683 M01S04257.282l826 ---| GES SUBR ENTRY/EXIT
04684 M01S04258.282l826 ---| SX2 ESTE GET ADDRESS OF EST ENTRY
04685 M01S04259.282l826 ---| IX1 X1*X2
04686 M01S04260.282l826 ---| SA2 ESA
04687 M01S04261.282l826 ---| IX1 X1+X2
04688 M01S04262.282l826 ---| RDMEM ABS,X1,ESTE,QBUF GET EST ENTRY
04689 M01S04263.282l826 ---| EQ GESX RETURN
04690 M01S04264.282l826 ---| GMT SPACE 4,15
04691 M01S04265.282l826 ---|** GMT - GET MST ENTRY.
04692 M01S04266.282l826 ---|*
04693 M01S04267.282l826 ---|* ENTRY (X1) = FAMILY EST ORDINAL.
04694 M01S04268.282l826 ---|*
04695 M01S04269.282l826 ---|* EXIT (MBUF) = MST ENTRY.
04696 M01S04270.282l826 ---|*
04697 M01S04271.282l826 ---|* USES X - 0, 1.
04698 M01S04272.282l826 ---|* A - 1.
04699 M01S04273.282l826 ---|*
04700 M01S04274.282l826 ---|* CALLS GES.
04701 M01S04275.282l826 ---|*
04702 M01S04276.282l826 ---|* MACROS RDMEM.
04703 M01S04277.282l826 ---|
04704 M01S04278.282l826 ---|
04705 M01S04279.282l826 ---| GMT SUBR ENTRY/EXIT
04706 M01S04280.282l826 ---| RJ GES GET EST ENTRY
04707 M01S04281.282l826 ---| MX0 -12 GET MST ADDRESS
04708 M01S04282.282l826 ---| SA1 QBUF+EQDE
04709 M01S04283.282l826 ---| BX1 -X0*X1
04710 M01S04284.282l826 ---| LX1 3
04711 M01S04285.282l826 ---| RDMEM ABS,X1,MSTL,MBUF GET MST ENTRY
04712 M01S04286.282l826 ---| EQ GMTX RETURN
04713 M01S04287.282l826 ---| IXR SPACE 4,15
04714 M01S04288.282l826 ---|** IXR - ISSUE EXTERNAL *MAGNET* REQUEST.
04715 M01S04289.282l826 ---|*
04716 M01S04290.282l826 ---|* ENTRY (UDT) = *UDT* ADDRESS.
04717 M01S04291.282l826 ---|* (VSN) = VSN.
04718 M01S04292.282l826 ---|* (X1) = EXTERNAL *MAGNET* REQUEST CODE.
04719 M01S04293.282l826 ---|*
04720 M01S04294.282l826 ---|* EXIT REQUEST ISSUED.
04721 M01S04295.282l826 ---|* (X5) = 0 IF REQUEST ACCEPTED.
04722 M01S04296.282l826 ---|* = *CSMN* IF *MAGNET* NOT ACTIVE.
04723 M01S04297.282l826 ---|* = *CSUP* IF REQUEST NOT ACCEPTED.
04724 M01S04298.282l826 ---|*
04725 M01S04299.282l826 ---|* USES X - 1.
04726 M01S04300.282l826 ---|* A - 1.
04727 M01S04301.282l826 ---|*
04728 M01S04302.282l826 ---|* MACROS MBSATA, MBSXTA, SYSTEM.
04729 M01S04303.282l826 ---|
04730 M01S04304.282l826 ---|
04731 M01S04305.282l826 ---| IXR SUBR ENTRY/EXIT
04732 M01S04306.282l826 ---| MBSXTA X1,IXRA,6,5,53 SET REQUEST CODE
04733 M01S04307.282l826 ---| MBSATA UDT,IXRA,12,11,47 SET *UDT* ADDRESS
04734 M01S04308.282l826 ---| MBSATA VSN,IXRA,36,59,35 SET VSN
04735 M01S04309.282l826 ---| SYSTEM TFU,,IXRA,/TFU/IXMF*100B CALL *TFU*
04736 M01S04310.282l826 ---| SA1 IXRA GET RETURN CODE
04737 M01S04311.282l826 ---| AX1 48
04738 M01S04312.282l826 ---| SX5 B0
04739 M01S04313.282l826 ---| ZR X1,IXRX IF REQUEST ACCEPTED
04740 M01S04314.282l826 ---| SX1 X1-1
04741 M01S04315.282l826 ---| SX5 CSMN *MAGNET NOT ACTIVE*
04742 M01S04316.282l826 ---| ZR X1,IXRX IF *MAGNET* NOT ACTIVE
04743 M01S04317.282l826 ---| SX5 CSUP *UNABLE TO PROCESS REQUEST*
04744 M01S04318.282l826 ---| EQ IXRX RETURN
04745 M01S04319.282l826 ---|
04746 M01S04320.282l826 ---| IXRA BSS 0 EXTERNAL REQUEST WORD
04747 M01S04321.282l826 ---| VFD 6/0
04748 M01S04322.282l826 ---| VFD 6/ REQUEST CODE
04749 M01S04323.282l826 ---| VFD 12/ *UDT* ADDRESS
04750 M01S04324.282l826 ---| VFD 36/ VSN
04751 M00S04325.ldistap +++| RDM SPACE 4,20
04752 M00S04326.ldistap +++|** RDM - READ MEMORY INTO BUFFER.
04753 M00S04327.ldistap +++|*
04754 M00S04328.ldistap +++|* ENTRY (X1) = ADDRESS OF BUFFER TO RECEIVE DATA.
04755 M00S04329.ldistap +++|* (X2) = ADDRESS TO READ DATA FROM.
04756 M00S04330.ldistap +++|* (X3) = NUMBER OF WORDS TO READ.
04757 M00S04331.ldistap +++|* (X4) = 0 IF READ FROM ABSOLUTE ADDRESS.
04758 M00S04332.ldistap +++|* .LT. 0 IF READ FROM CONTROL POINT ADDRESS.
04759 M00S04333.ldistap +++|* = SUBSYSTEM IDENTIFIER IF READ FROM SUBSYSTEM
04760 M00S04334.ldistap +++|* FIELD LENGTH.
04761 M00S04335.ldistap +++|*
04762 M00S04336.ldistap +++|* EXIT (X1) .LT. 0 IF TRANSFER COMPLETE.
04763 M00S04337.ldistap +++|* .GE. 0 IF ERROR.
04764 M00S04338.ldistap +++|* (X2) = CONTENTS OF FIRST WORD OF DATA.
04765 M00S04339.ldistap +++|*
04766 M00S04340.ldistap +++|* USES X - 4, 6.
04767 M00S04341.ldistap +++|* A - 2, 6.
04768 M00S04342.ldistap +++|*
04769 M00S04343.ldistap +++|* CALLS RSB=.
04770 M00S04344.ldistap +++|
04771 M00S04345.ldistap +++|
04772 M00S04346.ldistap +++| RDM SUBR ENTRY/EXIT
04773 M00S04347.ldistap +++| SX6 X1 SAVE BUFFER ADDRESS
04774 M00S04348.ldistap +++| SA6 RDMA
04775 M00S04349.ldistap +++| MX6 1 PRESET ABSOLUTE READ PARAMETERS
04776 M00S04350.ldistap +++| PL X4,RDM1 IF NOT CONTROL POINT READ
04777 M00S04351.ldistap +++| SX4 B0 SET CONTROL POINT READ PARAMETERS
04778 M00S04352.ldistap +++| SX6 X2
04779 M00S04353.ldistap +++| RDM1 SA6 X1 SET READ TYPE
04780 M00S04354.ldistap +++| RJ RSB= READ SUBSYSTEM BLOCK
04781 M00S04355.ldistap +++| PL X1,RDMX IF TRANSFER ERROR
04782 M00S04356.ldistap +++| SA2 RDMA GET FIRST WORD OF DATA
04783 M00S04357.ldistap +++| SA2 X2
04784 M00S04358.ldistap +++| EQ RDMX RETURN
04785 M00S04359.ldistap +++|
04786 M00S04360.ldistap +++| RDMA BSS 1 ADDRESS OF BUFFER
04787 M00S04361.ldistap +++| STL SPACE 4,15
04788 M00S04362.ldistap +++|** STL - SEARCH TABLE WITH DEFINED LENGTH.
04789 M00S04363.ldistap +++|*
04790 M00S04364.ldistap +++|* ENTRY (B2) = FWA OF TABLE TO SEARCH.
04791 M00S04365.ldistap +++|* (B3) = LENGTH OF TABLE TO SEARCH.
04792 M00S04366.ldistap +++|* (B6) = RELATIVE ADDRESS OF VALUE IN TABLE ENTRY.
04793 M00S04367.ldistap +++|* (B7) = LENGTH OF TABLE ENTRY.
04794 M00S04368.ldistap +++|* (X0) = SEARCH MASK.
04795 M00S04369.ldistap +++|* (X1) = VALUE TO SEARCH FOR.
04796 M00S04370.ldistap +++|*
04797 M00S04371.ldistap +++|* EXIT (X6) = 0 IF VALUE FOUND.
04798 M00S04372.ldistap +++|* (A2) = ADDRESS OF WORD WITH VALUE.
04799 M00S04373.ldistap +++|* (X2) = IMAGE OF WORD WITH VALUE.
04800 M00S04374.ldistap +++|*
04801 M00S04375.ldistap +++|* USES B - 2, 3.
04802 M00S04376.ldistap +++|
04803 M00S04377.ldistap +++|
04804 M00S04378.ldistap +++| STL SUBR ENTRY/EXIT
04805 M00S04379.ldistap +++| SB3 B2+B3 SET LWA+1 OF TABLE
04806 M00S04380.ldistap +++| SX6 B1
04807 M00S04381.ldistap +++| STL1 GE B2,B3,STLX IF ENTRY NOT FOUND
04808 M00S04382.ldistap +++| SA2 B2+B6 COMPARE ENTRY WITH VALUE
04809 M00S04383.ldistap +++| BX6 X1-X2
04810 M00S04384.ldistap +++| BX6 X0*X6
04811 M00S04385.ldistap +++| ZR X6,STLX IF ENTRY FOUND
04812 M00S04386.ldistap +++| SB2 B2+B7
04813 M00S04387.ldistap +++| EQ STL1 CHECK NEXT ENTRY
04814 M00S04388.ldistap +++| STZ SPACE 4,15
04815 M00S04389.ldistap +++|** STZ - SEARCH TABLE TERMINATED BY A ZERO WORD.
04816 M00S04390.ldistap +++|*
04817 M00S04391.ldistap +++|* ENTRY (B2) = FWA OF TABLE TO SEARCH.
04818 M00S04392.ldistap +++|* (B6) = RELATIVE ADDRESS OF VALUE IN TABLE ENTRY.
04819 M00S04393.ldistap +++|* (B7) = LENGTH OF TABLE ENTRY.
04820 M00S04394.ldistap +++|* (X0) = SEARCH MASK.
04821 M00S04395.ldistap +++|* (X1) = VALUE TO SEARCH FOR.
04822 M00S04396.ldistap +++|*
04823 M00S04397.ldistap +++|* EXIT (X6) = 0 IF VALUE FOUND.
04824 M00S04398.ldistap +++|* (A2) = ADDRESS OF WORD WITH VALUE.
04825 M00S04399.ldistap +++|* (X2) = IMAGE OF WORD WITH VALUE.
04826 M00S04400.ldistap +++|*
04827 M00S04401.ldistap +++|* USES B - 2.
04828 M00S04402.ldistap +++|
04829 M00S04403.ldistap +++|
04830 M00S04404.ldistap +++| STZ SUBR ENTRY/EXIT
04831 M00S04405.ldistap +++| SA2 B2 GET FIRST ENTRY
04832 M00S04406.ldistap +++| SB2 B7-B6
04833 M00S04407.ldistap +++| SX6 B1
04834 M00S04408.ldistap +++| STZ1 ZR X2,STZX IF ENTRY NOT FOUND
04835 M00S04409.ldistap +++| SA2 A2+B6 COMPARE ENTRY WITH VALUE
04836 M00S04410.ldistap +++| BX6 X1-X2
04837 M00S04411.ldistap +++| BX6 X0*X6
04838 M00S04412.ldistap +++| ZR X6,STZX IF ENTRY FOUND
04839 M00S04413.ldistap +++| SA2 A2+B2
04840 M00S04414.ldistap +++| EQ STZ1 CHECK NEXT ENTRY
04841 M00S04415.ldistap +++| SWP SPACE 4,15
04842 M00S04416.ldistap +++|** SWP - SWAP FAMILY AND USER INDEX.
04843 M00S04417.ldistap +++|*
04844 M00S04418.ldistap +++|* ENTRY (X1) = FAMILY NAME TO SWAP TO.
04845 M00S04419.ldistap +++|* (X2) = USER INDEX TO SWAP TO.
04846 M00S04420.ldistap +++|*
04847 M00S04421.ldistap +++|* EXIT (X4) = 0 IF FAMILY FOUND.
04848 M00S04422.ldistap +++|* = CSFNF IF FAMILY NOT FOUND.
04849 M00S04423.ldistap +++|*
04850 M00S04424.ldistap +++|* USES X - 0, 1, 6.
04851 M00S04425.ldistap +++|* A - 1, 6.
04852 M00S04426.ldistap +++|*
04853 M00S04427.ldistap +++|* MACROS SETPFP
04854 M00S04428.ldistap +++|
04855 M00S04429.ldistap +++|
04856 M00S04430.ldistap +++| SWP SUBR ENTRY/EXIT
04857 M00S04431.ldistap +++| MX0 42 SET FAMILY NAME IN *SETPFP* BLOCK
04858 M00S04432.ldistap +++| SX6 11B
04859 M00S04433.ldistap +++| BX1 X0*X1
04860 M00S04434.ldistap +++| BX6 X1+X6
04861 M00S04435.ldistap +++| SA6 SWPA+0
04862 M00S04436.ldistap +++| BX6 -X0*X2 SET USER INDEX IN *SETPFP* BLOCK
04863 M00S04437.ldistap +++| SA6 SWPA+2
04864 M00S04438.ldistap +++| SETPFP SWPA CHANGE FAMILY NAME AND USER INDEX
04865 M00S04439.ldistap +++| MX0 -6 GET STATUS
04866 M00S04440.ldistap +++| SA1 SWPA+0
04867 M00S04441.ldistap +++| AX1 12
04868 M00S04442.ldistap +++| BX4 -X0*X1
04869 M00S04443.ldistap +++| ZR X4,SWPX IF SWAP COMPLETE
04870 M00S04444.ldistap +++| SX4 CSFNF
04871 M00S04445.ldistap +++| EQ SWPX RETURN
04872 M00S04446.ldistap +++|
04873 M00S04447.ldistap +++| SWPA BSS 3 *SETPFP* BLOCK
| Line S04448 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04874 M01S04448.282l826 ---| VEP SPACE 4,20
04875 M01S04449.282l826 ---|** VEP - VERIFY EST PARAMETER.
04876 M01S04450.282l826 ---|*
04877 M01S04451.282l826 ---|* ENTRY (PAR) = ADDRESS OF EST PARAMETER IN STRING BUFFER.
04878 M01S04452.282l826 ---|*
04879 M01S04453.282l826 ---|* EXIT (PAR) = ADDRESS OF NEXT PARAMETER IN STRING BUFFER.
04880 M01S04454.282l826 ---|* (EST) = EST ORDINAL IF VALID.
04881 M01S04455.282l826 ---|* (UDT) = *UDT* ADDRESS IF TAPE EQUIPMENT.
04882 M01S04456.282l826 ---|* = 0 IF NULL EQUIPMENT.
04883 M01S04457.282l826 ---|* (X5) = 0 IF VALID EST PARAMETER.
| Line S04458 Modification History |
M01 (Removed by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04884 M02S04458.282l826 ---|* = *CSIE* IF INVALID EST PARAMETER.
| Line S00064 Modification History |
M01 (Added by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04885 M02S00064.282l826 ---|* = *CSIE* IF INCORRECT EST PARAMETER.
| Line S04459 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04886 M01S04459.282l826 ---|*
04887 M01S04460.282l826 ---|* USES X - 0, 1, 2, 6, 7.
04888 M01S04461.282l826 ---|* A - 1, 2, 6, 7.
04889 M01S04462.282l826 ---|* B - 5, 6, 7.
04890 M01S04463.282l826 ---|*
04891 M01S04464.282l826 ---|* CALLS DXB, POP.
04892 M01S04465.282l826 ---|*
04893 M01S04466.282l826 ---|* MACROS SRCHTAB.
04894 M01S04467.282l826 ---|
04895 M01S04468.282l826 ---|
04896 M01S04469.282l826 ---| VEP SUBR ENTRY/EXIT
04897 M01S04470.282l826 ---| SA1 PAR CHECK NEXT PARAMETER
04898 M01S04471.282l826 ---| SX5 CSIE *INCORRECT EST PARAMETER*
04899 M01S04472.282l826 ---| ZR X1,VEPX IF NO PARAMETER
04900 M01S04473.282l826 ---| SB6 X1
04901 M01S04474.282l826 ---| RJ POP PICK OUT PARAMETER
04902 M01S04475.282l826 ---| SX7 B6 SAVE ADDRESS OF NEXT PARAMETER
04903 M01S04476.282l826 ---| SA7 PAR
04904 M01S04477.282l826 ---| SX5 CSIE *INCORRECT EST PARAMETER*
04905 M01S04478.282l826 ---| NG B5,VEPX IF BUFFER EXHAUSTED
| Line S00065 Modification History |
M01 (Added by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04906 M02S00065.282l826 ---| ZR X6,VEPX IF NO PARAMETER SPECIFIED
| Line S04479 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04907 M01S04479.282l826 ---| SB5 B5-B1
04908 M01S04480.282l826 ---| GE B5,VEPX IF PARAMETER TOO LARGE
04909 M01S04481.282l826 ---| BX5 X6
04910 M01S04482.282l826 ---| SB7 B0
04911 M01S04483.282l826 ---| RJ DXB CONVERT DISPLAY TO BINARY
04912 M01S04484.282l826 ---| SX5 CSIE *INCORRECT EST PARAMETER*
04913 M01S04485.282l826 ---| NZ X4,VEPX IF CONVERSION ERROR
04914 M01S04486.282l826 ---| SA6 VEPA SAVE EST ORDINAL
04915 M01S04487.282l826 ---| SX1 X6
04916 M01S04488.282l826 ---| SX6 X6-NEEQ
04917 M01S04489.282l826 ---| ZR X6,VEP1 IF NULL EQUIPMENT
04918 M01S04490.282l826 ---| SX0 7777B CHECK IF TAPE EQUIPMENT
04919 M01S04491.282l826 ---| LX0 24
04920 M01S04492.282l826 ---| SA2 UDL
04921 M01S04493.282l826 ---| LX1 24
04922 M01S04494.282l826 ---| SRCHTAB X1,UBUF,/MTX/UST4,/MTX/UNITL,X2
04923 M01S04495.282l826 ---| NZ X6,VEPX IF NOT TAPE EQUIPMENT
04924 M01S04496.282l826 ---| SX6 A2-/MTX/UST4-UBUF GET *UDT* ADDRESS
04925 M01S04497.282l826 ---| SA1 UDA
04926 M01S04498.282l826 ---| IX6 X1+X6 SAVE *UDT* ADDRESS
04927 M01S04499.282l826 ---| VEP1 SA6 UDT
04928 M01S04500.282l826 ---| SA1 VEPA SAVE EST
04929 M01S04501.282l826 ---| BX6 X1
04930 M01S04502.282l826 ---| SA6 EST
04931 M01S04503.282l826 ---| SX5 B0 FLAG VALID PARAMETER
04932 M01S04504.282l826 ---| EQ VEPX RETURN
04933 M01S04505.282l826 ---|
04934 M01S04506.282l826 ---| VEPA BSS 1 EST ORDINAL
04935 M00S04507.ldistap +++| VIP SPACE 4,15
04936 M00S04508.ldistap +++|** VIP - VERIFY INCREMENT PARAMETER.
04937 M00S04509.ldistap +++|*
04938 M00S04510.ldistap +++|* ENTRY (PAR) = ADDRESS OF INCREMENT PARAMETER IN STRING
04939 M00S04511.ldistap +++|* BUFFER.
04940 M00S04512.ldistap +++|*
04941 M00S04513.ldistap +++|* EXIT (PAR) = ADDRESS OF NEXT PARAMETER IN STRING BUFFER.
04942 M00S04514.ldistap +++|* (X6) = INCREMENT IF VALID.
04943 M00S04515.ldistap +++|* (X5) = 0 IF VALID INCREMENT.
| Line S04516 Modification History |
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
04944 M01S04516.nos252 ---|* = *CSII* IF INVALID INCREMENT.
| Line S00066 Modification History |
M01 (Added by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
04945 M01S00066.nos252 +++|* = *CSII* IF INCORRECT INCREMENT.
04946 M00S04517.ldistap +++|*
04947 M00S04518.ldistap +++|* USES X - 1, 7.
04948 M00S04519.ldistap +++|* A - 1, 6, 7.
04949 M00S04520.ldistap +++|* B - 5, 6, 7.
04950 M00S04521.ldistap +++|*
04951 M00S04522.ldistap +++|* CALLS DXB, POP.
04952 M00S04523.ldistap +++|
04953 M00S04524.ldistap +++|
04954 M00S04525.ldistap +++| VIP1 SX5 B0 FLAG VALID PARAMETER
04955 M00S04526.ldistap +++| NZ X6,VIPX IF NON-ZERO INCREMENT
04956 M00S04527.ldistap +++| SX6 B1 RESET INCREMENT
04957 M00S04528.ldistap +++|
04958 M00S04529.ldistap +++| VIP SUBR ENTRY/EXIT
04959 M00S04530.ldistap +++| SA1 PAR
04960 M00S04531.ldistap +++| SX5 CSII *INCORRECT INCREMENT*
04961 M00S04532.ldistap +++| ZR X1,VIPX IF NO NEXT PARAMETER
04962 M00S04533.ldistap +++| SB6 X1
04963 M00S04534.ldistap +++| RJ POP PICK OUT PARAMETER
04964 M00S04535.ldistap +++| SX7 B6 SAVE NEXT PARAMETER ADDRESS
04965 M00S04536.ldistap +++| SA7 PAR
04966 M00S04537.ldistap +++| SX5 CSII *INCORRECT INCREMENT*
04967 M00S04538.ldistap +++| NG B5,VIPX IF BUFFER EXHAUSTED
04968 M00S04539.ldistap +++| SB5 B5-B1
04969 M00S04540.ldistap +++| GE B5,VIPX IF PARAMETER TOO LARGE
04970 M00S04541.ldistap +++| ZR X6,VIP1 IF NO INCREMENT
04971 M00S04542.ldistap +++| BX5 X6
04972 M00S04543.ldistap +++| SB7 B1
04973 M00S04544.ldistap +++| RJ DXB CONVERT DISPLAY TO BINARY
04974 M00S04545.ldistap +++| SX5 CSII *INCORRECT INCREMENT*
04975 M00S04546.ldistap +++| NZ X4,VIPX IF CONVERSION ERROR
04976 M00S04547.ldistap +++| EQ VIP1 FLAG VALID PARAMETER
| Line S04548 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04977 M01S04548.282l826 ---| VJP SPACE 4,15
04978 M01S04549.282l826 ---|** VJP - VERIFY JSN PARAMETER.
04979 M01S04550.282l826 ---|*
04980 M01S04551.282l826 ---|* ENTRY (PAR) = ADDRESS OF JSN PARAMETER IN STRING BUFFER.
04981 M01S04552.282l826 ---|*
04982 M01S04553.282l826 ---|* EXIT (PAR) = ADDRESS OF NEXT PARAMETER IN STRING BUFFER.
04983 M01S04554.282l826 ---|* (VSN) = JSN IF VALID.
04984 M01S04555.282l826 ---|* (X5) = 0 IF VALID JSN PARAMETER.
| Line S04556 Modification History |
M01 (Removed by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04985 M02S04556.282l826 ---|* = *CSIJ* IF INVALID JSN PARAMETER.
| Line S00067 Modification History |
M01 (Added by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04986 M02S00067.282l826 ---|* = *CSIJ* IF INCORRECT JSN PARAMETER.
| Line S04557 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
04987 M01S04557.282l826 ---|*
04988 M01S04558.282l826 ---|* USES X - 0, 1, 6, 7.
04989 M01S04559.282l826 ---|* A - 1, 6, 7.
04990 M01S04560.282l826 ---|* B - 5, 6.
04991 M01S04561.282l826 ---|*
04992 M01S04562.282l826 ---|* CALLS POP, ZTB.
04993 M01S04563.282l826 ---|
04994 M01S04564.282l826 ---|
04995 M01S04565.282l826 ---| VJP SUBR ENTRY/EXIT
04996 M01S04566.282l826 ---| SA1 PAR CHECK NEXT PARAMETER
04997 M01S04567.282l826 ---| SX5 CSIJ *INCORRECT JSN PARAMETER*
04998 M01S04568.282l826 ---| ZR X1,VJPX IF NO PARAMETER
04999 M01S04569.282l826 ---| SB6 X1
05000 M01S04570.282l826 ---| RJ POP PICK OUT PARAMETER
05001 M01S04571.282l826 ---| SX7 B6 SAVE ADDRESS OF NEXT PARAMETER
05002 M01S04572.282l826 ---| SA7 PAR
05003 M01S04573.282l826 ---| SX5 CSIJ *INCORRECT JSN PARAMETER*
05004 M01S04574.282l826 ---| NG B5,VJPX IF BUFFER EXHAUSTED
05005 M01S04575.282l826 ---| SB5 B5-B1
05006 M01S04576.282l826 ---| GE B5,VJPX IF PARAMETER TOO LARGE
05007 M01S04577.282l826 ---| MX0 24 CHECK NUMBER OF CHARACTERS
05008 M01S04578.282l826 ---| BX1 -X0*X6
05009 M01S04579.282l826 ---| NZ X1,VJPX IF TOO MANY CHARACTERS
05010 M01S04580.282l826 ---| MX0 12
05011 M01S04581.282l826 ---| BX1 -X0*X6
05012 M01S04582.282l826 ---| ZR X1,VJPX IF TOO FEW CHARACTERS
05013 M01S04583.282l826 ---| BX1 X6
05014 M01S04584.282l826 ---| RJ ZTB COVERT ZEROES TO BLANKS
05015 M01S04585.282l826 ---| MX0 24 SAVE JSN
05016 M01S04586.282l826 ---| BX6 X0*X6
05017 M01S04587.282l826 ---| SA6 JSN
05018 M01S04588.282l826 ---| SX5 B0 FLAG VALID PARAMETER
05019 M01S04589.282l826 ---| EQ VJPX RETURN
05020 M00S04590.ldistap +++| VNP SPACE 4,10
05021 M00S04591.ldistap +++|** VNP - VERIFY NO MORE PARAMETERS.
05022 M00S04592.ldistap +++|*
05023 M00S04593.ldistap +++|* ENTRY (PAR) = ADDRESS OF NEXT PARAMETER IN STRING BUFFER.
05024 M00S04594.ldistap +++|*
05025 M00S04595.ldistap +++|* EXIT (X5) = 0 IF NO MORE PARAMETERS.
05026 M00S04596.ldistap +++|* = *CSTM* IF MORE PARAMETERS.
05027 M00S04597.ldistap +++|*
05028 M00S04598.ldistap +++|* USES X - 1.
05029 M00S04599.ldistap +++|* A - 1.
05030 M00S04600.ldistap +++|
05031 M00S04601.ldistap +++|
05032 M00S04602.ldistap +++| VNP SUBR ENTRY/EXIT
05033 M00S04603.ldistap +++| SA1 PAR CHECK NEXT PARAMETER
05034 M00S04604.ldistap +++| SX5 CSTM *TOO MANY PARAMETERS*
05035 M00S04605.ldistap +++| NZ X1,VNPX IF MORE PARAMETERS
05036 M00S04606.ldistap +++| SX5 B0 FLAG NO PARAMETERS
05037 M00S04607.ldistap +++| EQ VNPX RETURN
| Line S04608 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05038 M01S04608.282l826 ---| VTP SPACE 4,15
05039 M01S04609.282l826 ---|** VTP - VERIFY TAPE EST PARAMETER.
05040 M01S04610.282l826 ---|*
05041 M01S04611.282l826 ---|* ENTRY (PAR) = ADDRESS OF EST PARAMETER IN STRING BUFFER.
05042 M01S04612.282l826 ---|*
05043 M01S04613.282l826 ---|* EXIT (PAR) = ADDRESS OF NEXT PARAMETER IN STRING BUFFER.
05044 M01S04614.282l826 ---|* (EST) = EST ORDINAL IF VALID.
05045 M01S04615.282l826 ---|* (UDT) = *UDT* ADDRESS IF TAPE EQUIPMENT.
05046 M01S04616.282l826 ---|* (X5) = 0 IF VALID EST PARAMETER.
| Line S04617 Modification History |
M01 (Removed by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05047 M02S04617.282l826 ---|* = *CSIT* IF INVALID TAPE EST PARAMETER.
| Line S00068 Modification History |
M01 (Added by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05048 M02S00068.282l826 ---|* = *CSIT* IF INCORRECT TAPE EST PARAMETER.
| Line S04618 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05049 M01S04618.282l826 ---|*
05050 M01S04619.282l826 ---|* USES X - 1.
05051 M01S04620.282l826 ---|* A - 1.
05052 M01S04621.282l826 ---|*
05053 M01S04622.282l826 ---|* CALLS VEP.
05054 M01S04623.282l826 ---|
05055 M01S04624.282l826 ---|
05056 M01S04625.282l826 ---| VTP SUBR ENTRY/EXIT
05057 M01S04626.282l826 ---| RJ VEP VERIFY EST PARAMETER
| Line S04627 Modification History |
M01 (Removed by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05058 M02S04627.282l826 ---| NZ X5,VTP1 IF INVALID EST PARAMETER
| Line S00069 Modification History |
M01 (Added by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05059 M02S00069.282l826 ---| NZ X5,VTP1 IF INCORRECT EST PARAMETER
| Line S04628 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05060 M01S04628.282l826 ---| SA1 UDT
05061 M01S04629.282l826 ---| NZ X1,VTPX IF TAPE EQUIPMENT
05062 M01S04630.282l826 ---| VTP1 SX5 CSIT *INCORRECT TAPE EST PARAMETER*
05063 M01S04631.282l826 ---| EQ VTPX RETURN
05064 M01S04632.282l826 ---| VVP SPACE 4,15
05065 M01S04633.282l826 ---|** VVP - VERIFY VSN PARAMETER.
05066 M01S04634.282l826 ---|*
05067 M01S04635.282l826 ---|* ENTRY (PAR) = ADDRESS OF VSN PARAMETER IN STRING BUFFER.
05068 M01S04636.282l826 ---|*
05069 M01S04637.282l826 ---|* EXIT (PAR) = ADDRESS OF NEXT PARAMETER IN STRING BUFFER.
05070 M01S04638.282l826 ---|* (VSN) = VSN IF VALID.
05071 M01S04639.282l826 ---|* (X5) = 0 IF VALID VSN PARAMETER.
| Line S04640 Modification History |
M01 (Removed by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05072 M02S04640.282l826 ---|* = *CSIV* IF INVALID VSN PARAMETER.
| Line S00070 Modification History |
M01 (Added by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05073 M02S00070.282l826 ---|* = *CSIV* IF INCORRECT VSN PARAMETER.
| Line S04641 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05074 M01S04641.282l826 ---|*
05075 M01S04642.282l826 ---|* USES X - 0, 1, 6, 7.
05076 M01S04643.282l826 ---|* A - 1, 6, 7.
05077 M01S04644.282l826 ---|* B - 5, 6.
05078 M01S04645.282l826 ---|*
05079 M01S04646.282l826 ---|* CALLS POP.
05080 M01S04647.282l826 ---|
05081 M01S04648.282l826 ---|
05082 M01S04649.282l826 ---| VVP SUBR ENTRY/EXIT
05083 M01S04650.282l826 ---| SA1 PAR CHECK NEXT PARAMETER
05084 M01S04651.282l826 ---| SX5 CSIJ *INCORRECT VSN PARAMETER*
05085 M01S04652.282l826 ---| ZR X1,VVPX IF NO PARAMETER
05086 M01S04653.282l826 ---| SB6 X1
05087 M01S04654.282l826 ---| SX6 B1 FLAG LITERAL PROCESSING
05088 M01S04655.282l826 ---| SA6 LIT
05089 M01S04656.282l826 ---| RJ POP PICK OUT PARAMETER
05090 M01S04657.282l826 ---| SX7 B6 SAVE ADDRESS OF NEXT PARAMETER
05091 M01S04658.282l826 ---| SA7 PAR
05092 M01S04659.282l826 ---| SX7 B0 CLEAR LITERAL PROCESSING
05093 M01S04660.282l826 ---| SA7 LIT
05094 M01S04661.282l826 ---| SX5 CSIV *INCORRECT VSN PARAMETER*
05095 M01S04662.282l826 ---| NG B5,VVPX IF BUFFER EXHAUSTED
05096 M01S04663.282l826 ---| SB5 B5-B1
05097 M01S04664.282l826 ---| GE B5,VVPX IF PARAMETER TOO LARGE
05098 M01S04665.282l826 ---| MX0 36 CHECK NUMBER OF CHARACTERS
05099 M01S04666.282l826 ---| BX1 -X0*X6
05100 M01S04667.282l826 ---| NZ X1,VVPX IF TOO MANY CHARACTERS
05101 M01S04668.282l826 ---| SA6 VSN SAVE VSN
05102 M01S04669.282l826 ---| SX5 B0 FLAG VALID PARAMETER
05103 M01S04670.282l826 ---| EQ VVPX RETURN
05104 M00S04671.ldistap +++| COMMON SPACE 4,10
05105 M00S04672.ldistap +++|** COMMON DECKS.
05106 M00S04673.ldistap +++|
05107 M00S04674.ldistap +++|
05108 M00S04675.ldistap +++|*CALL COMCCOD
05109 M00S04676.ldistap +++|*CALL COMCCDD
05110 M00S04677.ldistap +++|*CALL COMCCIO
05111 M00S04678.ldistap +++| CCKD BSS 0 STARTING ADDRESS OF *COMCCKD*
05112 M00S04679.ldistap +++| CKDL$ EQU NLPDS MAXIMUM NUMBER OF LINES IN DISPLAY
05113 M00S04680.ldistap +++| CKDY$ EQU 7672B DEFINE INITIAL Y-COORDINATE
05114 M00S04681.ldistap +++|*CALL COMCCKD
05115 M00S04682.ldistap +++| CCKDL EQU *-CCKD LENGTH OF *COMCCKD
05116 M00S04683.ldistap +++|*CALL COMCCPM
05117 M00S04684.ldistap +++|*CALL COMCDXB
05118 M00S04685.ldistap +++|*CALL COMCMBS
05119 M00S04686.ldistap +++|*CALL COMCMVE
05120 M00S04687.ldistap +++|*CALL COMCPFM
05121 M00S04688.ldistap +++|*CALL COMCPOP
05122 M00S04689.ldistap +++|*CALL COMCRDC
05123 M00S04690.ldistap +++|*CALL COMCRDW
05124 M00S04691.ldistap +++|*CALL COMCRSB
05125 M00S04692.ldistap +++|*CALL COMCSFN
05126 M00S04693.ldistap +++|*CALL COMCUSB
05127 M00S04694.ldistap +++|*CALL COMCSYS
05128 M00S04695.ldistap +++|*CALL COMCWTC
05129 M00S04696.ldistap +++|*CALL COMCWTH
05130 M00S04697.ldistap +++|*CALL COMCWTW
05131 M00S04698.ldistap +++|*CALL COMCZTB
05132 M00S04699.ldistap +++| TITLE BUFFER AREA.
05133 M00S04700.ldistap +++| BUFFERS SPACE 4,10
05134 M00S04701.ldistap +++|** BUFFERS THAT CANNOT OVERWRITE *PRESET*.
05135 M00S04702.ldistap +++|
05136 M00S04703.ldistap +++|
05137 M00S04704.ldistap +++| USE BUFFERS DEFINE LITERALS
05138 M00S04705.ldistap +++|
05139 M00S04706.ldistap +++| ZBUF BSS ZBUFL TAPE CATALOG FILE BUFFER
05140 M00S04707.ldistap +++| DBUF BSS 0 L-DISPLAY OUTPUT BUFFER
05141 M00S04708.ldistap +++| VFD 12/DBUFL BUFFER LENGTH
05142 M00S04709.ldistap +++| VFD 1/0 SMALL CHARACTERS
05143 M00S04710.ldistap +++| VFD 1/0 PROGRAM FORMAT
05144 M00S04711.ldistap +++| VFD 1/0 SINGLE SPACING
05145 M00S04712.ldistap +++| VFD 45/0
05146 M00S04713.ldistap +++| LDISS 1,1 FIRST LINE OF TITLE
| Line S04714 Modification History |
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
05147 M01S04714.nos252 ---| LDIS 9,(LDISTAP. )
| Line S00071 Modification History |
M01 (Added by) | nos252 |
M02 (Removed by) | ldista5 |
Seq # *Modification Id* Act
----------------------------+
05148 M02S00071.ldista5 ---| LDIS 9,(TMSDIS. )
| Line S04715 Modification History |
M01 (Removed by) | ldista5 |
Seq # *Modification Id* Act
----------------------------+
05149 M01S04715.ldista5 ---| DTMS LDIS 16,( MAG ACTIVE. ) *MAGNET* STATUS
| Line S00010 Modification History |
M01 (Added by) | ldista5 |
Seq # *Modification Id* Act
----------------------------+
05150 M01S00010.ldista5 +++| LDIS 25,(TMSDIS. )
05151 M00S04716.ldistap +++| DTTS LDIS 14,( TMS ENABLED. ) *TMS* STATUS
05152 M00S04717.ldistap +++| DTDS LDIS 4,(HELP) CURRENT DISPLAY
05153 M00S04718.ldistap +++| LDIS 14,( DISPLAY PAGE )
05154 M00S04719.ldistap +++| DTPN LDIS 1,(1) CURRENT PAGE NUMBER
05155 M00S04720.ldistap +++| LDIS 4,( OF )
05156 M00S04721.ldistap +++| DTPC LDIS 1,(1) PAGE COUNT
| Line S04722 Modification History |
M01 (Removed by) | ldista5 |
Seq # *Modification Id* Act
----------------------------+
05157 M01S04722.ldista5 ---| LDIS 1,(.)
05158 M01S04723.ldista5 ---| LDISE
05159 M01S04724.ldista5 ---| LDISS 1,K SECOND LINE OF TITLE
05160 M01S04725.ldista5 ---| LDIS 16,(PREVIEW ENTRIES=)
05161 M01S04726.ldista5 ---| DTPE LDIS 2,( 0) NUMBER OF PREVIEW DISPLAY ENTRIES
05162 M01S04727.ldista5 ---| LDIS 25,(. JOBS REQUIRING ACTION=)
05163 M01S04728.ldista5 ---| DTJA LDIS 2,( 0) NUMBER OF JOBS REQUIRING ACTION
05164 M00S04729.ldistap +++| LDIS 1,(.)
05165 M00S04730.ldistap +++| LDISE
05166 M00S04731.ldistap +++| LDISS 1,K THIRD LINE OF TITLE
05167 M00S04732.ldistap +++| LDIS 21,(CATALOGS WITH ERRORS=)
05168 M00S04733.ldistap +++| DTCE LDIS 2,( 0) NUMBER OF CATALOGS WITH ERRORS
| Line S04734 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
05169 M01S04734.274l797 ---| LDIS 28,(. CATALOGS WITH NO SCRATCH=)
05170 M01S04735.274l797 ---| DTNS LDIS 2,( 0) NUMBER OF CATALOGS WITH NO SCRATCH
| Line S00294 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
05171 M01S00294.274l797 +++| LDIS 34,(. CATALOGS WITH NO MT/NT SCRATCH=)
05172 M01S00295.274l797 +++| DTNM LDIS 2,( 0) NUMBER OF CATALOGS WITH NO *MT/NT* SCRATCH
05173 M01S00296.274l797 +++| LDIS 1,(.)
05174 M01S00297.274l797 +++| LDISE
05175 M01S00298.274l797 +++| LDISS 1,K FOURTH LINE OF TITLE
05176 M01S00299.274l797 +++| LDIS 28,(CATALOGS WITH NO CT SCRATCH=)
05177 M01S00300.274l797 +++| DTNC LDIS 2,( 0) NUMBER OF CATALOGS WITH NO *CT* SCRATCH
05178 M01S00301.274l797 +++| LDIS 31,(. CATALOGS WITH NO AT SCRATCH=)
05179 M01S00302.274l797 +++| DTNA LDIS 2,( 0) NUMBER OF CATALOGS WITH NO *AT* SCRATCH
05180 M00S04736.ldistap +++| LDIS 1,(.)
05181 M00S04737.ldistap +++| LDISE
05182 M00S04738.ldistap +++| LDISS 1,NLPDS+1-NLPMS FIRST LINE OF MESSAGE
| Line S04739 Modification History |
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
05183 M01S04739.nos252 ---| DMIN LDIS 50,(ENTER *HELP* FOR HELP. ENTER *DROP* TO TERMINATE.)
| Line S00072 Modification History |
M01 (Added by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
05184 M01S00072.nos252 +++| DMIN LDIS 49,(ENTER *HELP* FOR HELP. ENTER *END* TO TERMINATE.)
05185 M00S04740.ldistap +++| LDISE
05186 M00S04741.ldistap +++| LDISS 1,K SECOND LINE OF MESSAGE
| Line S04742 Modification History |
M01 (Removed by) | ldista4 |
Seq # *Modification Id* Act
----------------------------+
05187 M01S04742.ldista4 ---| DMMS LDIS 30,( LAST COMMAND)
| Line S00005 Modification History |
M01 (Added by) | ldista4 |
Seq # *Modification Id* Act
----------------------------+
05188 M01S00005.ldista4 +++| DMMA LDIS 30,( LAST COMMAND)
05189 M00S04743.ldistap +++| LDIS 3,( - )
05190 M00S04744.ldistap +++| DMCM LDIS 30,( )
05191 M00S04745.ldistap +++| LDISE
05192 M00S04746.ldistap +++| DBUFS EQU *-DBUF LENGTH OF START OF DISPLAY BUFFER
05193 M00S04747.ldistap +++|
| Line S04748 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05194 M01S04748.282l826 ---| ERRNG DBUFL-DBUFS-NWIED *EQU* DISPLAY OVERFLOW
05195 M00S04749.ldistap +++| ERRNG DBUFL-DBUFS-NWIFD *FAM* DISPLAY OVERFLOW
05196 M00S04750.ldistap +++| ERRNG DBUFL-DBUFS-NWIHD *HELP* DISPLAY OVERFLOW
| Line S04751 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05197 M01S04751.282l826 ---| ERRNG DBUFL-DBUFS-NWIJD *JOB* DISPLAY OVERFLOW
05198 M01S04752.282l826 ---| ERRNG DBUFL-DBUFS-NWIPD *PRE* DISPLAY OVERFLOW
05199 M00S04753.ldistap +++|
05200 M00S04754.ldistap +++| BUFF BSS 0 FWA OF OVERWRITTEN BUFFER AREA
05201 M00S04755.ldistap +++| BSS DBUFL-DBUFS REMAINDER OF DISPLAY BUFFER
05202 M00S04756.ldistap +++|
05203 M00S04757.ldistap +++| ERRNZ *-DBUF-DBUFL DISPLAY BUFFER MISMATCH
05204 M00S04758.ldistap +++|
05205 M00S04759.ldistap +++| CON 0 END OF DISPLAY BUFFER
05206 M00S04760.ldistap +++| BUFFERS SPACE 4,10
05207 M00S04761.ldistap +++|** BUFFERS THAT CAN OVERWRITE *PRESET*.
05208 M00S04762.ldistap +++|
05209 M00S04763.ldistap +++|
05210 M00S04764.ldistap +++| CBUF BSS 1 COMMAND BUFFER
05211 M00S04765.ldistap +++| BSS CBUFL
| Line S04766 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05212 M01S04766.282l826 ---| EBUF BSS EBUFL EJT ENTRY BUFFER
05213 M00S04767.ldistap +++| FBUF BSS FBUFL FAMILY ORDINAL TABLE BUFFER
05214 M00S04768.ldistap +++| IBUF BSS IBUFL INPUT FILE BUFFER
| Line S04769 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05215 M01S04769.282l826 ---| GBUF BSS GBUFL *QAC* BUFFER
05216 M01S04770.282l826 ---| JBUF BSS JBUFL EXECUTING JOB BUFFER
05217 M00S04771.ldistap +++| LBUF BSS LBUFL OUTPUT FILE BUFFER
| Line S04772 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05218 M01S04772.282l826 ---| MBUF BSS MBUFL MST ENTRY BUFFER
05219 M01S04773.282l826 ---| PBUF BSS PBUFL PREVIEW BUFFER
05220 M01S04774.282l826 ---| QBUF BSS QBUFL EST ENTRY BUFFER
05221 M00S04775.ldistap +++| SBUF BSS SBUFL CATALOG SYSTEM BLOCKS BUFFER
| Line S04776 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05222 M01S04776.282l826 ---| UBUF BSS UBUFL *UDT* BUFFER
05223 M00S04777.ldistap +++| TFCF BSS NFCST TABLE OF FAMILY CATALOG FIRST ENTRIES
05224 M00S04778.ldistap +++| TFCL BSS NFCST TABLE OF FAMILY CATALOG LAST ENTRIES
| Line S04779 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05225 M01S04779.282l826 ---| TEDP BSS NPGED TABLE OF EQUIPMENT DISPLAY PAGES
05226 M00S04780.ldistap +++| TFDP BSS NPGFD TABLE OF FAMILY CATALOG DISPLAY PAGES
| Line S04781 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05227 M01S04781.282l826 ---| TJDP BSS NPGJD TABLE OF EXECUTING JOB DISPLAY PAGES
05228 M01S04782.282l826 ---| TPDP BSS NPGPD TABLE OF PREVIEW DISPLAY PAGES
05229 M00S04783.ldistap +++| BUFFL EQU *-BUFF LENGTH OF BUFFER AREA
05230 M00S04784.ldistap +++| TITLE PRESET AREA.
05231 M00S04785.ldistap +++| SPACE 4
05232 M00S04786.ldistap +++| ORG BUFF
05233 M00S04787.ldistap +++| FETS SPACE 4,10
05234 M00S04788.ldistap +++|** *STATUS* FET.
05235 M00S04789.ldistap +++|
05236 M00S04790.ldistap +++|
05237 M00S04791.ldistap +++| Z BSS 0 *STATUS* FET
05238 M00S04792.ldistap +++| Z555555 FILEB 0,0,(FET=5)
05239 M00S04793.ldistap +++| TARG SPACE 4,10
05240 M00S04794.ldistap +++|** TARG - TABLE OF COMMAND ARGUMENTS.
05241 M00S04795.ldistap +++|
05242 M00S04796.ldistap +++|
05243 M00S04797.ldistap +++| TARG BSS 0 TABLE OF COMMAND ARGUMENTS
05244 M00S04798.ldistap +++| ID ARG ID,ID,400B INITIAL DISPLAY
05245 M00S04799.ldistap +++| OP ARG OP,OP,400B INPUT/OUTPUT MODE
05246 M00S04800.ldistap +++| I ARG I,I,400B INPUT FILE
05247 M00S04801.ldistap +++| L ARG L,L,400B OUTPUT FILE
05248 M00S04802.ldistap +++| NOBELL ARG (-=2R ),BEL NO BELL OPTION
05249 M00S04803.ldistap +++| WT ARG WT,WT,400B WAITING TIME
05250 M00S04804.ldistap +++| CON 0 END OF TABLE
05251 M00S04805.ldistap +++| TOPT SPACE 4,10
05252 M00S04806.ldistap +++|** TOPT - TABLE OF VALID INPUT/OUTPUT OPTIONS.
05253 M00S04807.ldistap +++|
05254 M00S04808.ldistap +++|
05255 M00S04809.ldistap +++| TOPT BSS 0 TABLE OF VALID INPUT/OUTPUT OPTIONS
05256 M00S04810.ldistap +++| LOC 0
05257 M00S04811.ldistap +++| OPTLD VFD 42/0LL,18/OPTLD L-DISPLAY MODE
05258 M00S04812.ldistap +++| OPTLN VFD 42/0LLINE,18/OPTLN LINE MODE
05259 M00S04813.ldistap +++| OPTSC VFD 42/0LSCREEN,18/OPTSC SCREEN MODE
05260 M00S04814.ldistap +++| LOC *O
05261 M00S04815.ldistap +++| TOPTL EQU *-TOPT LENGTH OF TABLE
05262 M00S04816.ldistap +++| TDIS SPACE 4,10
05263 M00S04817.ldistap +++|** TDIS - TABLE OF VALID DISPLAY DIRECTIVES.
05264 M00S04818.ldistap +++|
05265 M00S04819.ldistap +++|
05266 M00S04820.ldistap +++| TDIS BSS 0 TABLE OF VALID DISPLAY DIRECTIVES.
| Line S04821 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05267 M01S04821.282l826 ---| VFD 42/0LEQU,18/DISEQ EQUIPMENT DISPLAY
05268 M00S04822.ldistap +++| VFD 42/0LFAM,18/DISFC FAMILY CATALOG DISPLAY
05269 M00S04823.ldistap +++| VFD 42/0LHELP,18/DISHP HELP DISPLAY
| Line S04824 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05270 M01S04824.282l826 ---| VFD 42/0LJOB,18/DISJB EXECUTING JOB DISPLAY
05271 M01S04825.282l826 ---| VFD 42/0LPRE,18/DISPR PREVIEW DISPLAY
05272 M00S04826.ldistap +++| TDISL EQU *-TDIS LENGTH OF TABLE
05273 M00S04827.ldistap +++| TTSC SPACE 4,10
05274 M00S04828.ldistap +++|** TTSC - TABLE OF TERMINAL SCREEN CHARACTERS.
05275 M00S04829.ldistap +++|*
05276 M00S04830.ldistap +++|* ENTRY ONE WORD PER TERMINAL TYPE.
05277 M00S04831.ldistap +++|*T, VFD 24/ , 12/ BCHAR, 12/ CCHAR, 12/ TCHAR
Figure
Bitfield Rendering Failure
======== ========= =======
The field description
[
{ "name": " TCHAR", "bits": 12, "type": 4 },
{ "name": " CCHAR", "bits": 12, "type": 3 },
{ "name": " BCHAR", "bits": 12, "type": 2 },
{ "name": " ", "bits": VFD 24, "type": 1 }
]
is invalid.
Please check your syntax and try again.
05278 M00S04832.ldistap +++|*
05279 M00S04833.ldistap +++|* BCHAR = BELL CHARACTER
05280 M00S04834.ldistap +++|* CCHAR = CLEAR SCREEN CHARACTER.
05281 M00S04835.ldistap +++|* TCHAR = TOP OF SCREEN CHARACTER.
05282 M00S04836.ldistap +++|
05283 M00S04837.ldistap +++|
05284 M00S04838.ldistap +++| TTSC BSS 0 TABLE OF TOP OF SCREEN CHARACTERS
05285 M00S04839.ldistap +++| LOC 0
05286 M00S04840.ldistap +++| VFD 24/,12/2R;,12/2R ,12/2R NO SCREEN MODE
05287 M00S04841.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R RESERVED
05288 M00S04842.ldistap +++| VFD 24/,12/2R;,12/2R;,12/2R; CDC 721
05289 M00S04843.ldistap +++| VFD 24/,12/2R;,12/2R;,12/2R CDC 722
05290 M00S04844.ldistap +++| VFD 24/,12/2R;,12/2R ,12/2R DEC VT100
05291 M00S04845.ldistap +++| VFD 24/,12/2R;,12/2R ,12/2R Z19 OR H19
05292 M00S04846.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05293 M00S04847.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05294 M00S04848.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05295 M00S04849.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05296 M00S04850.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05297 M00S04851.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05298 M00S04852.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05299 M00S04853.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05300 M00S04854.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05301 M00S04855.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05302 M00S04856.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05303 M00S04857.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05304 M00S04858.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05305 M00S04859.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05306 M00S04860.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05307 M00S04861.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05308 M00S04862.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05309 M00S04863.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05310 M00S04864.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05311 M00S04865.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05312 M00S04866.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05313 M00S04867.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05314 M00S04868.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05315 M00S04869.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05316 M00S04870.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05317 M00S04871.ldistap +++| VFD 24/,12/2R ,12/2R ,12/2R UNDEFINED
05318 M00S04872.ldistap +++| ERRNZ *-40B INCORRECT TABLE SIZE
05319 M00S04873.ldistap +++| LOC *O
05320 M00S04874.ldistap +++| WORKING SPACE 4,10
05321 M00S04875.ldistap +++|** PRESET WORKING STORAGE.
05322 M00S04876.ldistap +++|
05323 M00S04877.ldistap +++|
05324 M00S04878.ldistap +++| DF DATA C*"DEFRN"* DEFAULT WAITING TIME NON-SYSTEM ORIGIN
05325 M00S04879.ldistap +++| GP BSS 3 *GETPFP* BLOCK
05326 M00S04880.ldistap +++| ID DATA C*HELP* INITIAL DISPLAY
05327 M00S04881.ldistap +++| OP DATA C*L* INPUT/OUTPUT MODE
05328 M00S04882.ldistap +++| PI BSS 1 PARAMETER IMAGE
05329 M00S04883.ldistap +++| RT CON 10 CATALOG ATTACH RETRY COUNT
05330 M00S04884.ldistap +++| WT DATA C*"DEFRS"* WAITING TIME
05331 M00S04885.ldistap +++| PRS SPACE 4,10
05332 M00S04886.ldistap +++|** PRS - PRESET PROGRAM.
05333 M00S04887.ldistap +++|
05334 M00S04888.ldistap +++|
05335 M00S04889.ldistap +++| PRS SUBR ENTRY/EXIT
| Line S00013 Modification History |
M01 (Added by) | t5497 |
Seq # *Modification Id* Act
----------------------------+
05336 M01S00013.t5497 +++| MX0 1 SET THE REAL-TIME BIT IN TAPE CATALOG FET
05337 M01S00014.t5497 +++| SA1 P+1
05338 M01S00015.t5497 +++| LX0 43-59+60
05339 M01S00016.t5497 +++| BX6 X0+X1
05340 M01S00017.t5497 +++| SA6 A1
05341 M00S04890.ldistap +++| GETPFP GP GET FAMILY NAME, USER NAME, AND USER INDEX
05342 M00S04891.ldistap +++| MX0 42 SAVE ORIGINAL FAMILY NAME
05343 M00S04892.ldistap +++| SA1 GP+0
05344 M00S04893.ldistap +++| BX6 X0*X1
05345 M00S04894.ldistap +++| SA6 OFM
05346 M00S04895.ldistap +++| SA1 GP+2 SAVE ORIGINAL USER INDEX
05347 M00S04896.ldistap +++| BX6 -X0*X1
05348 M00S04897.ldistap +++| SA6 OUI
05349 M00S04898.ldistap +++| RJ GSF GET SCRATCH FILE NAME
05350 M00S04899.ldistap +++| SX1 3 SET LOCAL FILE NAME FOR CATALOG FILE
05351 M00S04900.ldistap +++| BX6 X6+X1
05352 M00S04901.ldistap +++| SA6 P
05353 M00S04902.ldistap +++| REPRIEVE RPVA,SET,237B SET EXTENDED REPRIEVE
05354 M00S04903.ldistap +++| MX0 -12 CHECK ORIGIN TYPE
05355 M00S04904.ldistap +++| SA1 JOPR
05356 M00S04905.ldistap +++| AX1 24
05357 M00S04906.ldistap +++| BX6 -X0*X1
05358 M00S04907.ldistap +++| SA6 JOT
05359 M00S04908.ldistap +++| SX6 X6-SYOT
05360 M00S04909.ldistap +++| ZR X6,PRS5 IF SYSTEM ORIGIN
| Line S00001 Modification History |
M01 (Added by) | t5210 |
Seq # *Modification Id* Act
----------------------------+
05361 M01S00001.t5210 +++| SX6 X6+SYOT-IAOT
05362 M01S00002.t5210 +++| SX5 X6
05363 M00S04910.ldistap +++| PRS1 RJ ACF ATTACH CATALOG FILE
05364 M00S04911.ldistap +++| SX4 X4-CSCFA
05365 M00S04912.ldistap +++| ZR X4,PRS2 IF FILE ATTACHED
05366 M00S04913.ldistap +++| SX4 X4-CSCFB+CSCFA
05367 M00S04914.ldistap +++| NZ X4,PRS3 IF NOT FILE BUSY
| Line S00003 Modification History |
M01 (Added by) | t5210 |
Seq # *Modification Id* Act
----------------------------+
05368 M01S00003.t5210 +++| NZ X5,PRS1.1 IF NOT INTERACTIVE ORIGIN
05369 M00S04915.ldistap +++| SA1 RT DECREMENT RETRY COUNT
05370 M00S04916.ldistap +++| SX6 X1-1
05371 M00S04917.ldistap +++| SA6 A1
05372 M00S04918.ldistap +++| NG X6,PRS3 IF RETRY COUNT EXHAUSTED
| Line S04919 Modification History |
M01 (Removed by) | t5210 |
Seq # *Modification Id* Act
----------------------------+
05373 M01S04919.t5210 ---| ROLLOUT
| Line S00004 Modification History |
M01 (Added by) | t5210 |
Seq # *Modification Id* Act
----------------------------+
05374 M01S00004.t5210 +++| PRS1.1 ROLLOUT =1
05375 M00S04920.ldistap +++| EQ PRS1 RETRY ATTACH
05376 M00S04921.ldistap +++|
05377 M00S04922.ldistap +++| PRS2 REWIND P,R GET SYSTEM BLOCK
| Line S04923 Modification History |
M01 (Removed by) | t5497 |
Seq # *Modification Id* Act
----------------------------+
05378 M01S04923.t5497 ---| READ P
| Line S00018 Modification History |
M01 (Added by) | t5497 |
Seq # *Modification Id* Act
----------------------------+
05379 M01S00018.t5497 +++| READ P,R
05380 M01S00019.t5497 +++| MX0 -5 CHECK FOR ERROR
05381 M01S00020.t5497 +++| SA1 P
05382 M01S00021.t5497 +++| AX1 9
05383 M01S00022.t5497 +++| BX1 -X0*X1
05384 M01S00023.t5497 +++| NZ X1,PRS3 IF ERROR ON READ
05385 M00S04924.ldistap +++| READW P,PRSA,SBCWL+/TFM/TMUN+/TFM/UNCL
05386 M00S04925.ldistap +++| RETURN P,R
05387 M00S04926.ldistap +++| MX0 42 CHECK FOR VALID USER NAME
05388 M00S04927.ldistap +++| SA1 GP+2
05389 M00S04928.ldistap +++| SRCHTAB X1,PRSA+SBCWL+/TFM/TMUN,0,1,/TFM/UNCL
05390 M00S04929.ldistap +++| ZR X6,PRS4 IF VALID USER NAME
05391 M00S04930.ldistap +++| PRS3 RETURN P,R
05392 M00S04931.ldistap +++| ABTMSG DFIC *INCORRECT COMMAND.*
05393 M00S04932.ldistap +++|
05394 M00S04933.ldistap +++| PRS4 SX6 -1 DISABLE L-DISPLAY MODE
05395 M00S04934.ldistap +++| SA6 TOPT+OPTLD
05396 M00S04935.ldistap +++| SA1 TOPT+OPTLN SWITCH TO LINE MODE DEFAULT
05397 M00S04936.ldistap +++| BX6 X1
05398 M00S04937.ldistap +++| SA6 OP
05399 M00S04938.ldistap +++| SA1 DF RESET DEFAULT WAITING TIME
05400 M00S04939.ldistap +++| BX6 X1
05401 M00S04940.ldistap +++| SA6 WT
05402 M00S04941.ldistap +++| SA1 JOT CHECK ORIGIN TYPE
05403 M00S04942.ldistap +++| SX1 X1-IAOT
05404 M00S04943.ldistap +++| ZR X1,PRS6 IF INTERACTIVE ORIGIN
05405 M00S04944.ldistap +++| PRS5 SX6 -1 DISABLE SCREEN MODE
05406 M00S04945.ldistap +++| SA6 TOPT+OPTSC
05407 M00S04946.ldistap +++| PRS6 RJ GTC GET TERMINAL CHARACTERISTICS
05408 M00S04947.ldistap +++| MX0 -12 GET ORDER DEPENDENT ARGUMENTS
05409 M00S04948.ldistap +++| SA1 ACTR GET ARGUMENT COUNT
05410 M00S04949.ldistap +++| SB4 X1
05411 M00S04950.ldistap +++| SA4 ARGR GET FIRST ARGUMENT
05412 M00S04951.ldistap +++| SB5 TARG GET FWA OF ARGUMENT TABLE
05413 M00S04952.ldistap +++| PRS7 ZR B4,PRS14 IF END OF ARGUMENTS
05414 M00S04953.ldistap +++| SA2 B5 CHECK FOR EQUIVALENCED ARGUMENTS
05415 M00S04954.ldistap +++| LX2 59-47
05416 M00S04955.ldistap +++| NG X2,PRS12 IF END OF EQUIVALENCED ARGUMENTS
05417 M00S04956.ldistap +++| SX2 X4 CHECK FOR EQUIVALENCED ARGUMENT
05418 M00S04957.ldistap +++| SX2 X2-1R=
05419 M00S04958.ldistap +++| ZR X2,PRS12 IF END OF ORDER DEPENDENT ARGUMENTS
05420 M00S04959.ldistap +++| SB4 B4-B1 DECREMENT ARGUMENT COUNT
05421 M00S04960.ldistap +++| SA2 B5 GET TABLE ENTRY
05422 M00S04961.ldistap +++| ZR X2,PRS13 IF END OF TABLE
05423 M00S04962.ldistap +++| BX6 X0*X4 SAVE ARGUMENT
05424 M00S04963.ldistap +++| SA4 A4+B1
05425 M00S04964.ldistap +++| SB2 X2 GET ADDRESS TO RECEIVE ARGUMENT
05426 M00S04965.ldistap +++| LX2 12 GET OPTION POINTER
05427 M00S04966.ldistap +++| BX3 -X0*X2
05428 M00S04967.ldistap +++| LX2 18 GET ASSUMED VALUE
05429 M00S04968.ldistap +++| SB3 X2
05430 M00S04969.ldistap +++| LX2 12 GET *0* STATUS
05431 M00S04970.ldistap +++| BX2 -X0*X2
05432 M00S04971.ldistap +++| SX3 X3-77B CHECK FOR TWO CHARACTER ARGUMENT
05433 M00S04972.ldistap +++| SB5 B5+B1
05434 M00S04973.ldistap +++| NZ X3,PRS8 IF TWO CHARACTER ARGUMENT
05435 M00S04974.ldistap +++| SB5 B5+B1
05436 M00S04975.ldistap +++| PRS8 NZ X6,PRS9 IF ARGUMENT SPECIFIED
05437 M00S04976.ldistap +++| SA1 B3 GET DEFAULT ARGUMENT
05438 M00S04977.ldistap +++| BX6 X1
05439 M00S04978.ldistap +++| PRS9 SX2 X2-4000B
05440 M00S04979.ldistap +++| ZR X2,PRS10 IF DISPLAY *0* ALLOWED
05441 M00S04980.ldistap +++| SX1 1R0
05442 M00S04981.ldistap +++| LX1 54
05443 M00S04982.ldistap +++| BX1 X6-X1
05444 M00S04983.ldistap +++| NZ X1,PRS10 IF NOT DISPLAY *0*
05445 M00S04984.ldistap +++| SX6 B0
05446 M00S04985.ldistap +++| PRS10 MX2 42
05447 M00S04986.ldistap +++| NZ X6,PRS11 IF NON-ZERO ARGUMENT
05448 M00S04987.ldistap +++| MX2 60
05449 M00S04988.ldistap +++| PRS11 SA1 B2 SET VALUE FOR ARGUMENT
05450 M00S04989.ldistap +++| BX1 -X2*X1
05451 M00S04990.ldistap +++| BX6 X6+X1
05452 M00S04991.ldistap +++| SA6 A1
05453 M00S04992.ldistap +++| EQ PRS7 CHECK NEXT ARGUMENT
05454 M00S04993.ldistap +++|
05455 M00S04994.ldistap +++| PRS12 RJ ARG PROCESS ORDER INDENPENDENT ARGUMENTS
05456 M00S04995.ldistap +++| ZR X1,PRS14 IF VALID ARGUMENTS
| Line S04996 Modification History |
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
05457 M01S04996.nos252 ---| PRS13 MX0 42 SET INVALID PARAMETER IN MESSAGE
| Line S00073 Modification History |
M01 (Added by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
05458 M01S00073.nos252 +++| PRS13 MX0 42 SET INCORRECT PARAMETER IN MESSAGE
05459 M00S04997.ldistap +++| BX1 X0*X4
05460 M00S04998.ldistap +++| SB2 1R$
05461 M00S04999.ldistap +++| SB3 DFUP
05462 M00S05000.ldistap +++| SB5 -B3
05463 M00S05001.ldistap +++| RJ SNM SET NAME IN MESSAGE
05464 M00S05002.ldistap +++| ABTMSG DFUP *UNKNOWN PARAMETER - PPPPPPP.*
05465 M00S05003.ldistap +++|
05466 M00S05004.ldistap +++| PRS14 MX0 42 CHECK INITIAL DISPLAY PARAMETER
05467 M00S05005.ldistap +++| SA1 ID
05468 M00S05006.ldistap +++| SRCHTAB X1,TDIS,0,1,TDISL
05469 M00S05007.ldistap +++| SX7 2RID
05470 M00S05008.ldistap +++| LX7 48
05471 M00S05009.ldistap +++| NZ X6,PRS18 IF VALUE NOT FOUND
05472 M00S05010.ldistap +++| BX6 -X0*X2
05473 M00S05011.ldistap +++| SA6 DIS SET INITIAL DISPLAY VALUE
05474 M00S05012.ldistap +++| MX0 42 CHECK INPUT/OUTPUT MODE
05475 M00S05013.ldistap +++| SA1 OP
05476 M00S05014.ldistap +++| SRCHTAB X1,TOPT,0,1,TOPTL
05477 M00S05015.ldistap +++| SX7 2ROP
05478 M00S05016.ldistap +++| LX7 48
05479 M00S05017.ldistap +++| NZ X6,PRS18 IF VALUE NOT FOUND
05480 M00S05018.ldistap +++| BX6 -X0*X2
05481 M00S05019.ldistap +++| SA6 OPT SET INPUT/OUTPUT MODE
05482 M00S05020.ldistap +++| SA5 WT CHECK WAITING TIME
05483 M00S05021.ldistap +++| SB7 -B1
05484 M00S05022.ldistap +++| RJ DXB CONVERT DISPLAY TO BINARY
05485 M00S05023.ldistap +++| SA1 WT
05486 M00S05024.ldistap +++| SX7 2RWT
05487 M00S05025.ldistap +++| LX7 48
| Line S05026 Modification History |
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
05488 M01S05026.nos252 ---| NZ X4,PRS18 IF INVALID WAITING TIME
| Line S00074 Modification History |
M01 (Added by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
05489 M01S00074.nos252 +++| NZ X4,PRS18 IF INCORRECT WAITING TIME
05490 M00S05027.ldistap +++| SX1 X6-10000B
05491 M00S05028.ldistap +++| NG X1,PRS16 IF LESS THAN THE MAXIMUM
05492 M00S05029.ldistap +++| SX6 7777B
05493 M00S05030.ldistap +++| PRS16 SA1 OPT CHECK FOR LINE MODE
05494 M00S05031.ldistap +++| SX1 X1-OPTLN
05495 M00S05032.ldistap +++| NZ X1,PRS17 IF NOT LINE MODE
05496 M00S05033.ldistap +++| SX6 B0
05497 M00S05034.ldistap +++| PRS17 SA6 ROT SET ROLLOUT TIME
05498 M00S05035.ldistap +++| ZR X6,PRS19 IF NO ROLLOUT TIME
05499 M00S05036.ldistap +++| SA1 OPT
05500 M00S05037.ldistap +++| SX1 X1-OPTLD
05501 M00S05038.ldistap +++| NZ X1,PRS19 IF NOT DISPLAY MODE
05502 M00S05039.ldistap +++| SX1 LINE SET EVENT DESCRIPTOR FOR ROLLOUT
05503 M00S05040.ldistap +++| MBSXTA X1,ROT,12,11,23
05504 M00S05041.ldistap +++| EQ PRS20 CHECK FOR TERMINAL INPUT
05505 M00S05042.ldistap +++|
05506 M00S05043.ldistap +++| PRS18 SA7 PI SAVE PARAMETER IMAGE
05507 M00S05044.ldistap +++| SB2 1R$ SET VALUE IMAGE IN MESSAGE
05508 M00S05045.ldistap +++| SB3 DFIV
05509 M00S05046.ldistap +++| SB5 -B3
05510 M00S05047.ldistap +++| RJ SNM SET NAME IN MESSAGE
05511 M00S05048.ldistap +++| SA1 PI SET PARAMETER IMAGE IN MESSAGE
05512 M00S05049.ldistap +++| SB2 1R#
05513 M00S05050.ldistap +++| SB3 DFIV
05514 M00S05051.ldistap +++| SB5 -B3
05515 M00S05052.ldistap +++| RJ SNM SET NAME IN MESSAGE
05516 M00S05053.ldistap +++| ABTMSG DFIV *INCORRECT VALUE FOR PP PARAMETER - VVVV.*
05517 M00S05054.ldistap +++|
05518 M00S05055.ldistap +++| PRS19 SA1 OPT CHECK FOR SCREEN MODE
05519 M00S05056.ldistap +++| SX1 X1-OPTSC
05520 M00S05057.ldistap +++| NZ X1,PRS20 IF NOT SCREEN MODE
05521 M00S05058.ldistap +++| SX4 2RTT SET DEVICE TYPE
05522 M00S05059.ldistap +++| SETFET I,(DTY=X4)
05523 M00S05060.ldistap +++| RJ GSF GET SCRATCH FILE NAME
05524 M00S05061.ldistap +++| SX1 B1 SET SCRATCH FILE NAME INTO INPUT FET
05525 M00S05062.ldistap +++| BX6 X6+X1
05526 M00S05063.ldistap +++| SA6 I
05527 M00S05064.ldistap +++| REQUEST A6,TT,NOMSG ASSIGN INPUT FILE TO TERMINAL
05528 M00S05065.ldistap +++| SX4 2RTT SET DEVICE TYPE
05529 M00S05066.ldistap +++| SETFET L,(DTY=X4)
05530 M00S05067.ldistap +++| RJ GSF GET SCRATCH FILE NAME
05531 M00S05068.ldistap +++| SX1 B1 SET SCRATCH FILE NAME INTO OUTPUT FET
05532 M00S05069.ldistap +++| BX6 X6+X1
05533 M00S05070.ldistap +++| SA6 L
05534 M00S05071.ldistap +++| REQUEST A6,TT,NOMSG ASSIGN OUTPUT FILE TO TERMINAL
05535 M00S05072.ldistap +++| PRS20 SX2 I
05536 M00S05073.ldistap +++| RJ STF SET TERMINAL FILE
05537 M00S05074.ldistap +++| SA6 TIN SAVE TERMINAL INPUT STATUS
05538 M00S05075.ldistap +++| SX2 L
05539 M00S05076.ldistap +++| RJ STF SET TERMINAL FILE
05540 M00S05077.ldistap +++| SA6 TOU SAVE TERMINAL OUTPUT STATUS
05541 M00S05078.ldistap +++| CSET NORMAL SET 6-BIT CHARACTER SET
| Line S05079 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05542 M01S05079.282l826 ---| GETSSM SSS GET SYSTEM SECURITY STATUS
05543 M01S05080.282l826 ---| SA1 SSS
05544 M01S05081.282l826 ---| NZ X1,PRS21 IF SECURED
05545 M01S05082.282l826 ---| MBSATA BLANKS,DPLH,DPLHC,59,DPLHU CLEAR ACCESS LEVEL HEADER
05546 M01S05083.282l826 ---| PRS21 RDMEM ABS,FOTP,1,FFO GET FAMILY ORDINAL TABLE ADDRESS
| Line S00021 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05547 M01S00021.282l826 +++| RDMEM ABS,FOTP,1,FFO GET FAMILY ORDINAL TABLE ADDRESS
05548 M00S05084.ldistap +++| MX0 -24
05549 M00S05085.ldistap +++| LX2 24
05550 M00S05086.ldistap +++| BX6 -X0*X2
05551 M00S05087.ldistap +++| SA6 FFO
05552 M00S05088.ldistap +++| MX0 -12 GET MAXIMUM FOT ENTRIES
05553 M00S05089.ldistap +++| LX2 12
05554 M00S05090.ldistap +++| BX6 -X0*X2
05555 M00S05091.ldistap +++| SA6 MXF
| Line S05092 Modification History |
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
05556 M01S05092.282l826 ---| RDMEM ABS,ESTP,1,ESA GET EST TABLE ADDRESS
05557 M01S05093.282l826 ---| LX2 24
05558 M01S05094.282l826 ---| SX6 X2
05559 M01S05095.282l826 ---| SA6 ESA
05560 M01S05096.282l826 ---| RDMEM ABS,EJTP,1,EJA GET EJT TABLE ADDRESS
05561 M01S05097.282l826 ---| LX2 24
05562 M01S05098.282l826 ---| SX6 X2
05563 M01S05099.282l826 ---| SA6 EJA
05564 M01S05100.282l826 ---| RDMEM ABS,NCPL,1,NCP GET NUMBER OF CONTROL POINTS
05565 M01S05101.282l826 ---| MX0 -12
05566 M01S05102.282l826 ---| LX2 24
05567 M01S05103.282l826 ---| BX6 -X0*X2
05568 M01S05104.282l826 ---| SA6 NCP
05569 M00S05105.ldistap +++| SA1 OPT CHECK INPUT/OUTPUT MODE
05570 M00S05106.ldistap +++| SX1 X1-OPTLD
05571 M00S05107.ldistap +++| NZ X1,PRSX IF NOT L-DISPLAY
05572 M00S05108.ldistap +++| CSTATUS CON GET CONSOLE TYPE
05573 M00S05109.ldistap +++| SA1 CON
05574 M00S05110.ldistap +++| ZR X1,PRSX IF NOT 721 CONSOLE
05575 M00S05111.ldistap +++| MOVE PRSBL,PRSB,CCKD REWRITE COMMON DECK *COMCCKD*
| Line S00021 Modification History |
M01 (Added by) | t2807 |
Seq # *Modification Id* Act
----------------------------+
05576 M01S00021.t2807 +++| SX3 KDL
05577 M00S05112.ldistap +++| RJ PRK PROCESS K-DISPLAY
05578 M00S05113.ldistap +++| EQ PRSX RETURN
05579 M00S05114.ldistap +++|
05580 M00S05115.ldistap +++| PRSA BSS SBCWL+/TFM/TMUN+/TFM/UNCL CATALOG WORKING BUFFER
05581 M00S05116.ldistap +++| PRSB BSS 0 IMAGE OF *COMCCKD* FOR 721 CONSOLE
05582 M00S05117.ldistap +++| LOC CCKD
05583 M00S05118.ldistap +++| QUAL PRSB
05584 M00S05119.ldistap +++| QUAL$ EQU 1 QUALIFY COMMON DECK
05585 M00S05120.ldistap +++| CKDI$ EQU 10 DEFINE Y-COORDINATE INCREMENT
05586 M00S05121.ldistap +++| CKDY$ EQU 7714B DEFINE INITIAL Y-COORDINATE
05587 M00S05122.ldistap +++|*CALL COMCCKD
05588 M00S05123.ldistap +++| QUAL *
05589 M00S05124.ldistap +++| PRSBL EQU *-CCKD LENGTH OF *COMCCKD*
05590 M00S05125.ldistap +++| LOC *O
05591 M00S05126.ldistap +++| ERRNZ CKD-/PRSB/CKD COMMON DECK ENTRY MISMATCH
05592 M00S05127.ldistap +++| ERRNZ CCKDL-PRSBL COMMON DECK LENGTH MISMATCH
05593 M00S05128.ldistap +++| GSF SPACE 4,10
05594 M00S05129.ldistap +++|** GSF - GET SCRATCH FILE NAME.
05595 M00S05130.ldistap +++|*
05596 M00S05131.ldistap +++|* EXIT (X6) = UNASSIGNED SCRATCH FILE NAME.
05597 M00S05132.ldistap +++|*
05598 M00S05133.ldistap +++|* USES X - 1, 4, 6.
05599 M00S05134.ldistap +++|* A - 1, 6.
05600 M00S05135.ldistap +++|*
05601 M00S05136.ldistap +++|* MACROS PDATE, STATUS.
05602 M00S05137.ldistap +++|
05603 M00S05138.ldistap +++|
05604 M00S05139.ldistap +++| GSF4 SX1 B1 SET FILE NAME IN FET
05605 M00S05140.ldistap +++| BX6 X6+X1
05606 M00S05141.ldistap +++| SA6 Z
05607 M00S05142.ldistap +++| STATUS Z CHECK FILE STATUS
05608 M00S05143.ldistap +++| SX6 7776B
05609 M00S05144.ldistap +++| SA1 Z
05610 M00S05145.ldistap +++| BX6 X6*X1
05611 M00S05146.ldistap +++| NZ X6,GSF1 IF FILE EXISTS
05612 M00S05147.ldistap +++| MX6 42 GET FILE NAME
05613 M00S05148.ldistap +++| BX6 X6*X1
05614 M00S05149.ldistap +++|
05615 M00S05150.ldistap +++| GSF SUBR ENTRY/EXIT
05616 M00S05151.ldistap +++| GSF1 SA1 GSFA
05617 M00S05152.ldistap +++| NZ X1,GSF2 IF BINARY NUMBER EXISTS
05618 M00S05153.ldistap +++| SA1 GSFC SET INITIAL BINARY
05619 M00S05154.ldistap +++| BX6 X1
05620 M00S05155.ldistap +++| SA6 GSFA
05621 M00S05156.ldistap +++| PDATE GSFB GET PACKED DATE AND TIME
05622 M00S05157.ldistap +++| MX6 -6 RANDOMIZE BINARY
05623 M00S05158.ldistap +++| SA1 GSFB
05624 M00S05159.ldistap +++| BX6 -X6*X1
05625 M00S05160.ldistap +++| LX6 15
05626 M00S05161.ldistap +++| SA1 GSFA
05627 M00S05162.ldistap +++| BX6 X1-X6
05628 M00S05163.ldistap +++| SA6 A1
05629 M00S05164.ldistap +++| BX1 X6
05630 M00S05165.ldistap +++| GSF2 SX6 B1 RESET BINARY
05631 M00S05166.ldistap +++| IX6 X1-X6
05632 M00S05167.ldistap +++| SA6 A1
05633 M00S05168.ldistap +++|
05634 M00S05169.ldistap +++|* CONVERT BINARY TO FILE NAME.
05635 M00S05170.ldistap +++|
05636 M00S05171.ldistap +++| SX6 B0
05637 M00S05172.ldistap +++| GSF3 ZR X1,GSF4 IF END OF BINARY
05638 M00S05173.ldistap +++| MX4 -5 CONVERT 5 BINARY BITS TO 6 BIT CHARACTER
05639 M00S05174.ldistap +++| BX4 -X4*X1
05640 M00S05175.ldistap +++| SX4 X4+B1
05641 M00S05176.ldistap +++| BX6 X6+X4
05642 M00S05177.ldistap +++| LX6 -6+60
05643 M00S05178.ldistap +++| AX1 5
05644 M00S05179.ldistap +++| EQ GSF3 GET NEXT CHARACTER CODE
05645 M00S05180.ldistap +++|
05646 M00S05181.ldistap +++| GSFA CON 0 BINARY NUMBER
05647 M00S05182.ldistap +++| GSFB CON 0 PACKED DATE AND TIME
05648 M00S05183.ldistap +++| GSFC CON 317777777777B
05649 M00S05184.ldistap +++| GTC SPACE 4,10
05650 M00S05185.ldistap +++|** GTC - GET TERMINAL CHARACTERISTICS.
05651 M00S05186.ldistap +++|*
05652 M00S05187.ldistap +++|* EXIT (BEL) = BELL CHARACTER IN BITS 11 - 0.
05653 M00S05188.ldistap +++|* (CSL) = CLEAR SCREEN CHARACTER IN BITS 47 - 36.
05654 M00S05189.ldistap +++|* (TOP) = TOP OF SCREEN CHARACTER IN BITS 35 - 24.
05655 M00S05190.ldistap +++|*
05656 M00S05191.ldistap +++|* USES X - 0, 1, 4.
05657 M00S05192.ldistap +++|* A - 1.
05658 M00S05193.ldistap +++|*
05659 M00S05194.ldistap +++|* MACROS MBSATA, SETSLM.
05660 M00S05195.ldistap +++|
05661 M00S05196.ldistap +++|
05662 M00S05197.ldistap +++| GTC SUBR ENTRY/EXIT
05663 M00S05198.ldistap +++| SA1 JOT CHECK IF INTERACTIVE
05664 M00S05199.ldistap +++| SX1 X1-IAOT
05665 M00S05200.ldistap +++| ZR X1,GTCX IF NOT INTERACTIVE ORIGIN TYPE
05666 M00S05201.ldistap +++| SETSLM GTCA GET TERMINAL MODEL
05667 M00S05202.ldistap +++| MX0 -5
05668 M00S05203.ldistap +++| SA1 GTCA
05669 M00S05204.ldistap +++| BX4 -X0*X1
05670 M00S05205.ldistap +++| MBSATA X4+TTSC,BEL,12,35,11 SET BELL CHARACTER
05671 M00S05206.ldistap +++| MBSATA X4+TTSC,CSL,12,23,47 SET CLEAR SCREEN CHARACTER
05672 M00S05207.ldistap +++| MBSATA X4+TTSC,TOP,12,11,35 SET TOP OF SCREEN CHARACTER
05673 M00S05208.ldistap +++| EQ GTCX RETURN
05674 M00S05209.ldistap +++|
05675 M00S05210.ldistap +++| GTCA BSS 1 TERMINAL MODEL WORD
05676 M00S05211.ldistap +++| COMMON SPACE 4,10
05677 M00S05212.ldistap +++|** PRESET COMMON DECKS.
05678 M00S05213.ldistap +++|
05679 M00S05214.ldistap +++|
05680 M00S05215.ldistap +++|*CALL COMCARG
05681 M00S05216.ldistap +++|*CALL COMCDCP
| Line S00022 Modification History |
M01 (Added by) | t2807 |
Seq # *Modification Id* Act
----------------------------+
05682 M01S00022.t2807 +++| KDL BSS 0 TABLE OF L-DISPLAY LINES
05683 M00S05217.ldistap +++| KDL HERE
05684 M00S05218.ldistap +++| PRK HERE
05685 M00S05219.ldistap +++|*CALL COMCLFM
05686 M00S05220.ldistap +++|*CALL COMCSFM
05687 M00S05221.ldistap +++|*CALL COMCSNM
05688 M00S05222.ldistap +++|*CALL COMCSTF
05689 M00S05223.ldistap +++| TITLE *TMSON* AND *TMSOFF* PROGRAM AREA.
05690 M00S05224.ldistap +++| SPACE 4,10
05691 M00S05225.ldistap +++| QUAL TMSON
05692 M00S05226.ldistap +++| FBUF IFLT *,FBUF+FBUFL
05693 M00S05227.ldistap +++| BSS FBUF+FBUFL-* PREVENT OVERWRITE BY FAMILY TABLE BUFFER
05694 M00S05228.ldistap +++| FBUF ENDIF
05695 M00S05229.ldistap +++| FETS SPACE 4,10
05696 M00S05230.ldistap +++|** FETS.
05697 M00S05231.ldistap +++|
05698 M00S05232.ldistap +++|
05699 M00S05233.ldistap +++| TF BSS 0 *TMS* CATALOG FET FOR *TFM*
05700 M00S05234.ldistap +++| "TMFC" FILEB 0,0,(FET=16),EPR
05701 M00S05235.ldistap +++| TARG SPACE 4,10
05702 M00S05236.ldistap +++|** TARG - TABLE OF COMMAND ARGUMENTS.
05703 M00S05237.ldistap +++|
05704 M00S05238.ldistap +++|
05705 M00S05239.ldistap +++| TARG BSS 0 TABLE OF COMMAND ARGUMENTS
05706 M00S05240.ldistap +++| FM ARG FM,FM,400B FAMILY NAME
05707 M00S05241.ldistap +++| TARGN BSS 0
05708 M00S05242.ldistap +++|* CON 0 END OF TABLE FOR *TMSOFF*
05709 M00S05243.ldistap +++| DEFTO ARG DT,DT,400B DEFAULT *TO* FOR NON-*SYOT*
05710 M00S05244.ldistap +++| DEFTOS ARG DS,DS,400B DEFAULT *TO* FOR *SYOT*
05711 M00S05245.ldistap +++| CON 0 END OF TABLE
05712 M00S05246.ldistap +++| TDEF SPACE 4,10
05713 M00S05247.ldistap +++|** TDEF - TABLE OF *TO* ARGUMENT OPTIONS.
05714 M00S05248.ldistap +++|
05715 M00S05249.ldistap +++|
05716 M00S05250.ldistap +++| TDEF BSS 0 TABLE OF *TO* ARGUMENT OPTIONS
| Line S05251 Modification History |
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act
----------------------------+
05717 M01S05251.t2807 ---| VFD 42/0LF,18/0 *TO=F*
05718 M01S05252.t2807 ---| VFD 42/0LT,18/1 *TO=T*
05719 M01S05253.t2807 ---| TDEFL EQU *-TDEF LENGTH OF TABLE
| Line S00023 Modification History |
M01 (Added by) | t2807 |
Seq # *Modification Id* Act
----------------------------+
05720 M01S00023.t2807 +++| VFD 18/58,12/0,30/1RF BIT POSITION 0, CLEAR BIT, *TO=F*
05721 M01S00024.t2807 +++| VFD 18/58,12/1,30/1RT BIT POSITION 0, SET BIT, *TO=T*
05722 M01S00025.t2807 +++| VFD 18/56,12/0,30/1RE BIT POSITION 1, CLEAR BIT, *TO=E*
05723 M01S00026.t2807 +++| VFD 18/56,12/1,30/1RC BIT POSITION 1, SET BIT, *TO=C*
05724 M01S00027.t2807 +++| CON 0 END OF TABLE
05725 M01S00028.t2807 +++| TDES SPACE 4,10
05726 M01S00029.t2807 +++|** TDES - TABLE OF *TO* ARGUMENT OPTIONS FOR SYOT JOBS.
05727 M01S00030.t2807 +++|
05728 M01S00031.t2807 +++|
05729 M01S00032.t2807 +++| TDES BSS 0 TABLE OF *TO* ARGUMENT OPTIONS
05730 M01S00033.t2807 +++| VFD 18/57,12/0,30/1RF BIT POSITION 0, CLEAR BIT, *TO=F*
05731 M01S00034.t2807 +++| VFD 18/57,12/1,30/1RT BIT POSITION 0, SET BIT, *TO=T*
05732 M01S00035.t2807 +++| VFD 18/55,12/0,30/1RE BIT POSITION 1, CLEAR BIT, *TO=E*
05733 M01S00036.t2807 +++| VFD 18/55,12/1,30/1RC BIT POSITION 1, SET BIT, *TO=C*
05734 M01S00037.t2807 +++| CON 0 END OF TABLE
05735 M00S05254.ldistap +++| WORKING SPACE 4,10
05736 M00S05255.ldistap +++|** WORKING STORAGE.
05737 M00S05256.ldistap +++|
05738 M00S05257.ldistap +++|
| Line S05258 Modification History |
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act
----------------------------+
05739 M01S05258.t2807 ---| DFS CON 0 DEFAULT *TO* FOR SYSTEM ORIGIN
05740 M01S05259.t2807 ---| DFT CON 0 DEFAULT *TO* FOR NON-SYSTEM ORIGIN
05741 M00S05260.ldistap +++| DS CON 0 *TO* FOR SYSTEM ORIGIN
05742 M00S05261.ldistap +++| DT CON 0 *TO* FOR NON-SYSTEM ORIGIN
05743 M00S05262.ldistap +++| FM CON 0 FAMILY NAME
05744 M00S05263.ldistap +++| PPC CON 0 PP CHECK FLAG FET ADDRESS
05745 M00S05264.ldistap +++| PPS CON 0 PP ERROR FLAG
05746 M00S05265.ldistap +++| SSI CON 0 SUBSYSTEM ID
05747 M00S05266.ldistap +++| TM CON 0 *TMSON* FLAG
05748 M00S05267.ldistap +++| TMSOFF SPACE 4,10
05749 M00S05268.ldistap +++|** TMSOFF - MAIN PROGRAM.
05750 M00S05269.ldistap +++|
05751 M00S05270.ldistap +++|
05752 M00S05271.ldistap +++| TMSOFF SB1 1 ENTRY
05753 M00S05272.ldistap +++| SX6 B0 CLEAR *DEFTO* AND *DEFTOS* ARGUMENTS
05754 M00S05273.ldistap +++| SA6 TARGN
05755 M00S05274.ldistap +++| RJ PRS PRESET PROGRAM
05756 M00S05275.ldistap +++| SA1 FM
05757 M00S05276.ldistap +++| ZR X1,END IF NO FAMILY CATALOGS TO DELETE
05758 M00S05277.ldistap +++| SX6 X1-1
05759 M00S05278.ldistap +++| ZR X6,TMF1 IF DELETE ALL FAMILY CATALOGS
05760 M00S05279.ldistap +++| MX0 42 FIND FAMILY IN TABLE
05761 M00S05280.ldistap +++| SA5 MXF
05762 M00S05281.ldistap +++| SRCHTAB X1,FBUF,0,1,X5
05763 M00S05282.ldistap +++| RJ DCF DELETE FAMILY CATALOG
05764 M00S05283.ldistap +++| ZR X3,END IF CATALOG DELETED
05765 M00S05284.ldistap +++| SX3 X3-2
05766 M00S05285.ldistap +++| SX5 DFFN *FAMILY NOT FOUND.*
05767 M00S05286.ldistap +++| ZR X3,ABT IF FAMILY NOT FOUND
05768 M00S05287.ldistap +++| SX5 B0
05769 M00S05288.ldistap +++| EQ ABT ABORT PROGRAM
05770 M00S05289.ldistap +++|
05771 M00S05290.ldistap +++| TMF1 SA5 MXF GET CATALOG SYSTEM BLOCKS
05772 M00S05291.ldistap +++| TMF2 SX5 X5-1
05773 M00S05292.ldistap +++| NG X5,END IF END OF FAMILIES
05774 M00S05293.ldistap +++| MX0 42 GET FAMILY NAME
05775 M00S05294.ldistap +++| SA1 X5+FBUF
05776 M00S05295.ldistap +++| RJ DCF DELETE FAMILY CATALOG FILE
05777 M00S05296.ldistap +++| EQ TMF2 CHECK NEXT FAMILY
05778 M00S05297.ldistap +++| TMSON SPACE 4,10
05779 M00S05298.ldistap +++|** TMSON - MAIN ROUTINE.
05780 M00S05299.ldistap +++|
05781 M00S05300.ldistap +++|
05782 M00S05301.ldistap +++| TMSON SB1 1 ENTRY
05783 M00S05302.ldistap +++| SX6 B1 FLAG *TMSON*
05784 M00S05303.ldistap +++| SA6 TM
05785 M00S05304.ldistap +++| RJ PRS PRESET PROGRAM
05786 M00S05305.ldistap +++| SA1 FM
05787 M00S05306.ldistap +++| ZR X1,TMN3 IF NO FAMILY CATALOGS TO INITIALIZE
05788 M00S05307.ldistap +++| SX6 X1-1
05789 M00S05308.ldistap +++| ZR X6,TMN1 IF INITIALIZE ALL FAMILY CATALOGS
05790 M00S05309.ldistap +++| MX0 42 FIND FAMILY IN TABLE
05791 M00S05310.ldistap +++| SA5 MXF
05792 M00S05311.ldistap +++| SRCHTAB X1,FBUF,0,1,X5
05793 M00S05312.ldistap +++| RJ ICF INITIALIZE FAMILY CATALOG FILE
05794 M00S05313.ldistap +++| ZR X3,TMN3 IF CATALOG INITIALIZED
05795 M00S05314.ldistap +++| SX1 X3-2
05796 M00S05315.ldistap +++| SX5 DFFN *FAMILY NOT FOUND.*
05797 M00S05316.ldistap +++| ZR X3,ABT IF FAMILY NOT FOUND
05798 M00S05317.ldistap +++| SX5 B0
05799 M00S05318.ldistap +++| EQ ABT ABORT PROGRAM
05800 M00S05319.ldistap +++|
05801 M00S05320.ldistap +++| TMN1 SA5 MXF GET CATALOG SYSTEM BLOCKS
05802 M00S05321.ldistap +++| TMN2 SX5 X5-1
05803 M00S05322.ldistap +++| NG X5,TMN3 IF END OF FAMILIES
05804 M00S05323.ldistap +++| MX0 42 GET FAMILY NAME
05805 M00S05324.ldistap +++| SA1 X5+FBUF
05806 M00S05325.ldistap +++| RJ ICF INITIALIZE FAMILY CATALOG FILE
05807 M00S05326.ldistap +++| EQ TMN2 CHECK NEXT FAMILY
05808 M00S05327.ldistap +++|
05809 M00S05328.ldistap +++| TMN3 SA1 SSI CHECK SUBSYSTEM ID
05810 M00S05329.ldistap +++| SX1 X1-MTSI
05811 M00S05330.ldistap +++| NZ X1,END IF NOT *MAGNET* SUBSYSTEM
05812 M00S05331.ldistap +++| MX6 1 SET *TMS* SYSTEM STATUS BITS
| Line S05332 Modification History |
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act
----------------------------+
05813 M01S05332.t2807 ---| SA1 DFT
05814 M01S05333.t2807 ---| LX1 58-0
05815 M01S05334.t2807 ---| BX6 X6+X1
05816 M01S05335.t2807 ---| SA1 DFS
05817 M01S05336.t2807 ---| LX1 57-0
| Line S00038 Modification History |
M01 (Added by) | t2807 |
Seq # *Modification Id* Act
----------------------------+
05818 M01S00038.t2807 +++| SA1 TMS
05819 M00S05337.ldistap +++| BX6 X6+X1
05820 M00S05338.ldistap +++| SA6 TMS
05821 M00S05339.ldistap +++| SYSTEM TFU,R,TMS,/TFU/STSF*100B CALL *TFU*
05822 M00S05340.ldistap +++| EQ END TERMINATE PROGRAM
05823 M00S05341.ldistap +++| ABT SPACE 4,15
05824 M00S05342.ldistap +++|** ABT - ABORT PROGRAM.
05825 M00S05343.ldistap +++|*
05826 M00S05344.ldistap +++|* ENTRY (X5) = ADDRESS OF DAYFILE MESSAGE.
05827 M00S05345.ldistap +++|*
05828 M00S05346.ldistap +++|* EXIT MESSAGE ISSUED TO USER AND SYSTEM DAYFILES.
05829 M00S05347.ldistap +++|* PROGRAM ABORTED.
05830 M00S05348.ldistap +++|*
05831 M00S05349.ldistap +++|* USES X - 1, 2.
05832 M00S05350.ldistap +++|* A - 1, 2.
05833 M00S05351.ldistap +++|*
05834 M00S05352.ldistap +++|* CALLS SWP.
05835 M00S05353.ldistap +++|*
05836 M00S05354.ldistap +++|* MACROS ABORT, MESSAGE, RETURN.
05837 M00S05355.ldistap +++|
05838 M00S05356.ldistap +++|
05839 M00S05357.ldistap +++| ABT BSS 0 ENTRY
05840 M00S05358.ldistap +++| MBSATA (=3),P,18,17,17 SET FET COMPLETION BIT
05841 M00S05359.ldistap +++| RETURN P,R RETURN CATALOG FILE
05842 M00S05360.ldistap +++| SA1 OFM GET ORIGINAL FAMILY NAME/USER INDEX
05843 M00S05361.ldistap +++| SA2 OUI
05844 M00S05362.ldistap +++| RJ SWP SWAP TO FAMILY NAME/USER INDEX
05845 M00S05363.ldistap +++| ZR X5,ABT1 IF NO DAYFILE MESSAGE
05846 M00S05364.ldistap +++| MESSAGE X5,0,R ISSUE DAYFILE MESSAGE
05847 M00S05365.ldistap +++| ABT1 ABORT ABORT PROGRAM
05848 M00S05366.ldistap +++| DCF SPACE 4,20
05849 M00S05367.ldistap +++|** DCF - DELETE FAMILY CATALOG FILE.
05850 M00S05368.ldistap +++|*
05851 M00S05369.ldistap +++|* ENTRY (X1) = FAMILY NAME.
05852 M00S05370.ldistap +++|*
05853 M00S05371.ldistap +++|* EXIT (X3) = 0 IF FILE IS DELETED.
05854 M00S05372.ldistap +++|* = 1 IF FILE CANNOT BE DELETED.
05855 M00S05373.ldistap +++|* = 2 IF FAMILY NOT FOUND.
05856 M00S05374.ldistap +++|* MESSAGE *DFUF* ISSUED TO DAYFILE IF (X3) = 1.
05857 M00S05375.ldistap +++|*
05858 M00S05376.ldistap +++|* USES X - 0, 1, 2, 6, 7.
05859 M00S05377.ldistap +++|* A - 1, 3, 6, 7.
05860 M00S05378.ldistap +++|* B - 2, 3, 5.
05861 M00S05379.ldistap +++|*
05862 M00S05380.ldistap +++|* CALLS SWP.
05863 M00S05381.ldistap +++|*
| Line S05382 Modification History |
M01 (Removed by) | m1664 |
Seq # *Modification Id* Act
----------------------------+
05864 M01S05382.m1664 ---|* MACROS ATTACH, DFAT, MBSATA, RETURN, SETFET.
| Line S00003 Modification History |
M01 (Added by) | m1664 |
Seq # *Modification Id* Act
----------------------------+
05865 M01S00003.m1664 +++|* MACROS ATTACH, DFAT, MBSATA, MBSXTA, RETURN, SETFET.
05866 M00S05383.ldistap +++|
05867 M00S05384.ldistap +++|
05868 M00S05385.ldistap +++| DCF2 RETURN P,R RETURN FILE
05869 M00S05386.ldistap +++| SA3 DCFB GET STATUS
05870 M00S05387.ldistap +++|
05871 M00S05388.ldistap +++| DCF SUBR ENTRY/EXIT
05872 M00S05389.ldistap +++| MX0 42 SAVE FAMILY NAME
05873 M00S05390.ldistap +++| BX6 X0*X1
05874 M00S05391.ldistap +++| SA6 DCFA
05875 M00S05392.ldistap +++| SX3 B1+B1
05876 M00S05393.ldistap +++| ZR X6,DCFX IF NO FAMILY NAME
05877 M00S05394.ldistap +++| SX2 377777B
05878 M00S05395.ldistap +++| RJ SWP SWAP TO FAMILY NAME AND USER INDEX
05879 M00S05396.ldistap +++| SX3 B1+B1
05880 M00S05397.ldistap +++| NZ X4,DCFX IF FAMILY NOT FOUND
05881 M00S05398.ldistap +++| SX6 B0 PRESET FILE STATUS
05882 M00S05399.ldistap +++| SA6 DCFB
05883 M00S05400.ldistap +++| MBSATA ZEROES,P,16,17,17 CLEAR ERROR CODE
05884 M00S05401.ldistap +++| SETFET P,(DTY=B0),(ERA=ACFB)
05885 M00S05402.ldistap +++| ATTACH P,,,,W,,,IP,FA ATTACH SYSTEM FILE
05886 M00S05403.ldistap +++| MX0 -8 CHECK ERROR CODE
05887 M00S05404.ldistap +++| SA1 P
05888 M00S05405.ldistap +++| AX1 10
05889 M00S05406.ldistap +++| BX1 -X0*X1
05890 M00S05407.ldistap +++| NZ X1,DCF1 IF ERROR IN ACCESS
05891 M00S05408.ldistap +++| SX6 B0 CLEAR PP ERROR FLAG
05892 M00S05409.ldistap +++| SA6 PPS
05893 M00S05410.ldistap +++| SX6 P SET PP CHECK FLAG
05894 M00S05411.ldistap +++| SA6 PPC
| Line S00004 Modification History |
M01 (Added by) | m1664 |
Seq # *Modification Id* Act
----------------------------+
05895 M01S00004.m1664 +++| SX1 B1 SET IGNORE FAMILY ACTIVITY
05896 M01S00005.m1664 +++| MBSXTA X1,P,1,0,9
05897 M00S05412.ldistap +++| DFAT P DELETE FAST-ATTACHED STATUS
05898 M00S05413.ldistap +++| SA3 PPS
05899 M00S05414.ldistap +++| NZ X3,DCF1 IF UNABLE TO DELETE FILE
05900 M00S05415.ldistap +++| EQ DCF2 RETURN FILE
05901 M00S05416.ldistap +++|
05902 M00S05417.ldistap +++| DCF1 SX6 B1 FLAG UNABLE TO DELETE FILE
05903 M00S05418.ldistap +++| SA6 DCFB
05904 M00S05419.ldistap +++| SA1 DCFA SET FAMILY NAME IN MESSAGE
05905 M00S05420.ldistap +++| SB2 1R#
05906 M00S05421.ldistap +++| SB3 DCFC
05907 M00S05422.ldistap +++| SB5 -DFUF
05908 M00S05423.ldistap +++| RJ SNM SET NAME IN MESSAGE
05909 M00S05424.ldistap +++| MESSAGE DCFC,0,R *UNABLE TO TURN OFF *TMS* CATALOG*
05910 M00S05425.ldistap +++| EQ DCF2 RETURN FILE
05911 M00S05426.ldistap +++|
05912 M00S05427.ldistap +++| DCFA BSS 1 FAMILY NAME
05913 M00S05428.ldistap +++| DCFB CON 0 FILE STATUS
05914 M00S05429.ldistap +++| DCFC DATA C$ UNABLE TO TURN OFF *TMS* CATALOG FOR #######.$
05915 M00S05430.ldistap +++| END SPACE 4,10
05916 M00S05431.ldistap +++|** END - TERMINATE PROGRAM.
05917 M00S05432.ldistap +++|*
05918 M00S05433.ldistap +++|* EXIT PROGRAM TERMINATED.
05919 M00S05434.ldistap +++|*
05920 M00S05435.ldistap +++|* USES X - 1, 2.
05921 M00S05436.ldistap +++|* A - 1, 2.
05922 M00S05437.ldistap +++|*
05923 M00S05438.ldistap +++|* CALLS SWP.
05924 M00S05439.ldistap +++|*
05925 M00S05440.ldistap +++|* MACROS ENDRUN, RETURN.
05926 M00S05441.ldistap +++|
05927 M00S05442.ldistap +++|
05928 M00S05443.ldistap +++| END BSS 0 ENTRY
05929 M00S05444.ldistap +++| RETURN P,R RETURN CATALOG FILE
05930 M00S05445.ldistap +++| SA1 OFM GET ORIGINAL FAMILY NAME/USER INDEX
05931 M00S05446.ldistap +++| SA2 OUI
05932 M00S05447.ldistap +++| RJ SWP SWAP TO FAMILY NAME/USER INDEX
05933 M00S05448.ldistap +++| ENDRUN TERMINATE PROGRAM
05934 M00S05449.ldistap +++| ICF SPACE 4,20
05935 M00S05450.ldistap +++|** ICF - INITIALIZE FAMILY CATALOG FILE.
05936 M00S05451.ldistap +++|*
05937 M00S05452.ldistap +++|* ENTRY (X1) = FAMILY NAME.
05938 M00S05453.ldistap +++|*
05939 M00S05454.ldistap +++|* EXIT (X3) = 0 IF FILE IS INITIALIZED.
05940 M00S05455.ldistap +++|* = 1 IF FILE CANNOT BE INITIALIZED.
05941 M00S05456.ldistap +++|* = 2 IF FAMILY NOT FOUND.
05942 M00S05457.ldistap +++|* MESSAGE *DFUN* ISSUED IF (X3) = 1.
05943 M00S05458.ldistap +++|*
05944 M00S05459.ldistap +++|* USES X - 0, 1, 2, 6, 7.
05945 M00S05460.ldistap +++|* A - 1, 3, 6, 7.
05946 M00S05461.ldistap +++|* B - 2, 3, 5.
05947 M00S05462.ldistap +++|*
05948 M00S05463.ldistap +++|* CALLS SWP.
05949 M00S05464.ldistap +++|*
05950 M00S05465.ldistap +++|* MACROS ATTACH, DFAT, ENFA, MBSATA, RETURN, SETFET, SYSTEM.
05951 M00S05466.ldistap +++|
05952 M00S05467.ldistap +++|
05953 M00S05468.ldistap +++| ICF4 RETURN P,R RETURN FILE
05954 M00S05469.ldistap +++| SA3 ICFB GET STATUS
05955 M00S05470.ldistap +++|
05956 M00S05471.ldistap +++| ICF SUBR ENTRY/EXIT
05957 M00S05472.ldistap +++| MX0 42 SAVE FAMILY NAME
05958 M00S05473.ldistap +++| BX6 X0*X1
05959 M00S05474.ldistap +++| SA6 ICFA
05960 M00S05475.ldistap +++| SX3 B1+B1
05961 M00S05476.ldistap +++| ZR X6,ICFX IF NO FAMILY NAME
05962 M00S05477.ldistap +++| SX2 377777B
05963 M00S05478.ldistap +++| RJ SWP SWAP TO FAMILY NAME AND USER INDEX
05964 M00S05479.ldistap +++| SX3 B1+B1
05965 M00S05480.ldistap +++| NZ X4,ICFX IF FAMILY NOT FOUND
| Line S00001 Modification History |
M01 (Added by) | ldista3 |
Seq # *Modification Id* Act
----------------------------+
05966 M01S00001.ldista3 +++| ICF0.1 BSS 0
05967 M00S05481.ldistap +++| SX6 B0 PRESET FILE STATUS
05968 M00S05482.ldistap +++| SA6 ICFB
05969 M00S05483.ldistap +++| SX6 ICFC SET *TFM* ERROR MESSAGE ADDRESS
05970 M00S05484.ldistap +++| SA6 TF+/TFM/TFEA
05971 M00S05485.ldistap +++| MBSATA ZEROES,P,16,17,17 CLEAR ERROR CODE
05972 M00S05486.ldistap +++| SETFET P,(DTY=B0),(ERA=ACFB)
05973 M00S05487.ldistap +++| ATTACH P,,,,W,,,IP,NF ATTACH SYSTEM FILE
05974 M00S05488.ldistap +++| MX0 -8 CHECK ERROR CODE
05975 M00S05489.ldistap +++| SA1 P
05976 M00S05490.ldistap +++| AX1 10
05977 M00S05491.ldistap +++| BX1 -X0*X1
| Line S05492 Modification History |
M01 (Removed by) | ldista3 |
Seq # *Modification Id* Act
----------------------------+
05978 M01S05492.ldista3 ---| NZ X1,ICF1 IF ERROR IN ACCESS
| Line S00002 Modification History |
M01 (Added by) | ldista3 |
Seq # *Modification Id* Act
----------------------------+
05979 M01S00002.ldista3 +++| ZR X1,ICF0.2 IF NO ERROR
05980 M01S00003.ldista3 +++| SX0 X1-/ERRMSG/PFA
05981 M01S00004.ldista3 +++| NZ X0,ICF1 IF NOT UTILITY ACTIVE
05982 M01S00005.ldista3 +++| ROLLOUT =10 WAIT 10 SECONDS
05983 M01S00006.ldista3 +++| EQ ICF0.1 RETRY ATTACH
05984 M01S00007.ldista3 +++|
05985 M01S00008.ldista3 +++| ICF0.2 BSS 0
05986 M00S05493.ldistap +++| SX1 /TFM/ISFS*10B+4 SET *TFM* SUBFUNCTION
05987 M00S05494.ldistap +++| MBSXTA X1,TF,9,8,8
05988 M00S05495.ldistap +++| SX7 10000B SET INITIALIZE VSNS
05989 M00S05496.ldistap +++| SA7 TF+/TFM/TFES
05990 M00S05497.ldistap +++| SX6 B0 CLEAR PP ERROR FLAG
05991 M00S05498.ldistap +++| SA6 PPS
05992 M00S05499.ldistap +++| SX6 TF SET PP CHECK FLAG
05993 M00S05500.ldistap +++| SA6 PPC
05994 M00S05501.ldistap +++| SYSTEM TFM,R,TF,/TFM/SSJF*100B CALL *TFM* TO INTIALIZE FILE
05995 M00S05502.ldistap +++| SA3 PPS
05996 M00S05503.ldistap +++| NZ X3,ICF3 IF ERROR FROM *TFM*
05997 M00S05504.ldistap +++| MX0 -9 CHECK *TFM* ERROR CODE
05998 M00S05505.ldistap +++| SA1 TF
05999 M00S05506.ldistap +++| AX1 9
06000 M00S05507.ldistap +++| BX1 -X0*X1
06001 M00S05508.ldistap +++| NZ X1,ICF3 IF ERROR FROM *TFM*
06002 M00S05509.ldistap +++| SX6 B0 CLEAR PP ERROR FLAG
06003 M00S05510.ldistap +++| SA6 PPS
06004 M00S05511.ldistap +++| SX6 P SET PP CHECK FLAG
06005 M00S05512.ldistap +++| SA6 PPC
06006 M00S05513.ldistap +++| ENFA P,GLOBAL ENTER GLOBAL FAST ATTACH FILE
06007 M00S05514.ldistap +++| SA3 PPS
06008 M00S05515.ldistap +++| NZ X3,ICF3 IF UNABLE TO ENTER FAST ATTACH FILE
06009 M00S05516.ldistap +++| EQ ICF4 RETURN FILE
06010 M00S05517.ldistap +++|
06011 M00S05518.ldistap +++| ICF1 SX1 X1-/ERRMSG/FBS
06012 M00S05519.ldistap +++| NZ X1,ICF3 IF NOT *FILE BUSY*
06013 M00S05520.ldistap +++| ATTACH P,,,,W,,,IP,FA ATTEMPT FAST ATTACH
06014 M00S05521.ldistap +++| MX0 -8 CHECK ERROR CODE
06015 M00S05522.ldistap +++| SA1 P
06016 M00S05523.ldistap +++| AX1 10
06017 M00S05524.ldistap +++| BX1 -X0*X1
06018 M00S05525.ldistap +++| ZR X1,ICF4 IF ALREADY FAST ATTACHED ON THIS MACHINE
06019 M00S05526.ldistap +++| SX6 B0 CLEAR PP ERROR FLAG
06020 M00S05527.ldistap +++| SA6 PPS
06021 M00S05528.ldistap +++| SX6 P SET PP CHECK FLAG
06022 M00S05529.ldistap +++| SA6 PPC
06023 M00S05530.ldistap +++| ENFA P,LINK LINK TO EXISTING FAST ATTACH
06024 M00S05531.ldistap +++| SA3 PPS
06025 M00S05532.ldistap +++| NZ X3,ICF3 IF UNABLE TO ENTER FAST ATTACH FILE
06026 M00S05533.ldistap +++| ATTACH P,,,,W,,,IP,FA ATTACH FILE
06027 M00S05534.ldistap +++| MX0 -8 CHECK ERROR CODE
06028 M00S05535.ldistap +++| SA1 P
06029 M00S05536.ldistap +++| AX1 10
06030 M00S05537.ldistap +++| BX1 -X0*X1
06031 M00S05538.ldistap +++| NZ X1,ICF3 IF ERROR IN ACCESS
06032 M00S05539.ldistap +++| SX1 /TFM/ISFS*10B SET FUNCTION CODE
| Line S05540 Modification History |
M01 (Removed by) | ldista6 |
Seq # *Modification Id* Act
----------------------------+
06033 M01S05540.ldista6 ---| MBSATA X1,TF,9,8,8
| Line S00001 Modification History |
M01 (Added by) | ldista6 |
Seq # *Modification Id* Act
----------------------------+
06034 M01S00001.ldista6 +++| MBSXTA X1,TF,9,8,8
06035 M00S05541.ldistap +++| SX7 20000B SET TO CLEAR CURRENT AND DOWN MACHINES
06036 M00S05542.ldistap +++| SA7 TF+/TFM/TFES
06037 M00S05543.ldistap +++| SX6 B0 CLEAR PP ERROR FLAG
06038 M00S05544.ldistap +++| SA6 PPS
06039 M00S05545.ldistap +++| SX6 TF SET PP CHECK FLAG
06040 M00S05546.ldistap +++| SA6 PPC
06041 M00S05547.ldistap +++| SYSTEM TFM,R,TF,/TFM/SSJF*100B CLEAN UP CATALOG
06042 M00S05548.ldistap +++| SA3 PPS
06043 M00S05549.ldistap +++| NZ X3,ICF2 IF ERROR FROM *TFM*
06044 M00S05550.ldistap +++| MX0 -9 CHECK *TFM* ERROR CODE
06045 M00S05551.ldistap +++| SA1 TF
06046 M00S05552.ldistap +++| AX1 9
06047 M00S05553.ldistap +++| BX1 -X0*X1
06048 M00S05554.ldistap +++| ZR X1,ICF4 IF NO ERROR FROM *TFM*
06049 M00S05555.ldistap +++| ICF2 SX6 P SET PP CHECK FLAG
06050 M00S05556.ldistap +++| SA6 PPC
06051 M00S05557.ldistap +++| DFAT P DELETE FAST ATTACH CATALOG FILE
06052 M00S05558.ldistap +++| ICF3 SX6 B1 FLAG UNABLE TO ATTACH FILE
06053 M00S05559.ldistap +++| SA6 ICFB
06054 M00S05560.ldistap +++| SA1 ICFA SET FAMILY NAME IN MESSAGE
06055 M00S05561.ldistap +++| SB2 1R#
06056 M00S05562.ldistap +++| SB3 ICFD
06057 M00S05563.ldistap +++| SB5 -DFUN
06058 M00S05564.ldistap +++| RJ SNM SET NAME IN MESSAGE
06059 M00S05565.ldistap +++| MESSAGE ICFD,0,R *UNABLE TO TURN ON *TMS* CATALOG*
06060 M00S05566.ldistap +++| EQ ICF4 RETURN FILE
06061 M00S05567.ldistap +++|
06062 M00S05568.ldistap +++| ICFA BSS 1 FAMILY NAME
06063 M00S05569.ldistap +++| ICFB CON 0 FILE STATUS
06064 M00S05570.ldistap +++| ICFC BSS 4 *TFM* ERROR MESSAGE BUFFER
06065 M00S05571.ldistap +++| ICFD DATA C$ UNABLE TO TURN ON *TMS* CATALOG FOR #######.$
06066 M00S05572.ldistap +++| PRS SPACE 4,10
06067 M00S05573.ldistap +++|** PRS - PRESET PROGRAM.
06068 M00S05574.ldistap +++|
06069 M00S05575.ldistap +++|
06070 M00S05576.ldistap +++| PRS SUBR ENTRY/EXIT
| Line S00024 Modification History |
M01 (Added by) | t5497 |
Seq # *Modification Id* Act
----------------------------+
06071 M01S00024.t5497 +++| MX0 1 SET THE REAL-TIME BIT IN TAPE CATALOG FET
06072 M01S00025.t5497 +++| SA1 P+1
06073 M01S00026.t5497 +++| LX0 43-59+60
06074 M01S00027.t5497 +++| BX6 X0+X1
06075 M01S00028.t5497 +++| SA6 A1
06076 M00S05577.ldistap +++| GETPFP GP GET FAMILY NAME, USER NAME, AND USER INDEX
06077 M00S05578.ldistap +++| MX0 42 SAVE ORIGINAL FAMILY NAME
06078 M00S05579.ldistap +++| SA1 GP+0
06079 M00S05580.ldistap +++| BX6 X0*X1
06080 M00S05581.ldistap +++| SA6 OFM
06081 M00S05582.ldistap +++| SA1 GP+2 SAVE ORIGINAL USER INDEX
06082 M00S05583.ldistap +++| BX6 -X0*X1
06083 M00S05584.ldistap +++| SA6 OUI
06084 M00S05585.ldistap +++| SA1 TF SET FILE NAME
06085 M00S05586.ldistap +++| BX6 X1
06086 M00S05587.ldistap +++| SA6 P
06087 M00S05588.ldistap +++| MX0 -12 CHECK ORIGIN TYPE
06088 M00S05589.ldistap +++| SA1 JOPR
06089 M00S05590.ldistap +++| AX1 24
06090 M00S05591.ldistap +++| BX6 -X0*X1
06091 M00S05592.ldistap +++| SX6 X6-SYOT
06092 M00S05593.ldistap +++| SX5 DFIC *INCORRECT COMMAND.*
06093 M00S05594.ldistap +++| NZ X6,ABT IF NOT SYSTEM ORIGIN
| Line S05595 Modification History |
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
06094 M01S05595.nos252 ---| SYSTEM TFU,R,TMS,/TFU/RTSF*100B GET *TMS* STATUS
| Line S00075 Modification History |
M01 (Added by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
06095 M01S00075.nos252 +++| SYSTEM SFM,R,TMS,GTSF*100B GET *TMS* STATUS
| Line S05596 Modification History |
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act
----------------------------+
06096 M01S05596.t2807 ---| SX0 B1 PRESET NEW *DEFTO*
06097 M01S05597.t2807 ---| SA1 TMS
06098 M01S05598.t2807 ---| LX1 0-58
06099 M01S05599.t2807 ---| BX6 X0*X1
06100 M01S05600.t2807 ---| SA6 DFT
06101 M01S05601.t2807 ---| LX1 0-57-0+58 PRESET NEW *DEFTOS*
06102 M01S05602.t2807 ---| BX6 X0*X1
06103 M01S05603.t2807 ---| SA6 DFS
06104 M00S05604.ldistap +++| GETSSID SSI GET SUBSYSTEM ID
06105 M00S05605.ldistap +++| SA1 SSI CHECK FOR MAGNET SUBSYSTEM
06106 M00S05606.ldistap +++| SX1 X1-MTSI
06107 M00S05607.ldistap +++| ZR X1,PRS1 IF *MAGNET* SUBSYSTEM
06108 M00S05608.ldistap +++| SA1 TM
06109 M00S05609.ldistap +++| ZR X1,PRS1 IF *TMSOFF*
06110 M00S05610.ldistap +++| SA1 TMS CHECK IF *TMS* IS ENABLED
06111 M00S05611.ldistap +++| SX5 DFIC *INCORRECT COMMAND.*
06112 M00S05612.ldistap +++| PL X1,ABT IF *TMS* IS DISABLED
06113 M00S05613.ldistap +++| SX6 B0 CLEAR *DEFTO* AND *DEFTOS* ARGUMENTS
06114 M00S05614.ldistap +++| SA6 TARGN
06115 M00S05615.ldistap +++| PRS1 SA1 ACTR GET ARGUMENT COUNT
06116 M00S05616.ldistap +++| SB4 X1
06117 M00S05617.ldistap +++| ZR B4,PRS5 IF NO ARGUMENTS
06118 M00S05618.ldistap +++| SA4 ARGR GET FIRST ARGUMENT
06119 M00S05619.ldistap +++| SB5 TARG
06120 M00S05620.ldistap +++| RJ ARG PROCESS ARGUMENTS
06121 M00S05621.ldistap +++| ZR X1,PRS2 IF VALID ARGUMENTS
| Line S05622 Modification History |
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
06122 M01S05622.nos252 ---| MX0 42 SET INVALID PARAMETER IN MESSAGE
| Line S00076 Modification History |
M01 (Added by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
06123 M01S00076.nos252 +++| MX0 42 SET INCORRECT PARAMETER IN MESSAGE
06124 M00S05623.ldistap +++| BX1 X0*X4
06125 M00S05624.ldistap +++| SB2 1R$
06126 M00S05625.ldistap +++| SB3 DFUP
06127 M00S05626.ldistap +++| SB5 -B3
06128 M00S05627.ldistap +++| RJ SNM SET NAME IN MESSAGE
06129 M00S05628.ldistap +++| SX5 DFUP *UNKNOWN PARAMETER - PPPPPPP.*
06130 M00S05629.ldistap +++| EQ ABT ABORT PROGRAM
06131 M00S05630.ldistap +++|
| Line S05631 Modification History |
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
06132 M01S05631.nos252 ---| PRS2 MX0 42 CHECK *DEFTO*
| Line S00077 Modification History |
M01 (Added by) | nos252 |
Seq # *Modification Id* Act
----------------------------+
06133 M01S00077.nos252 +++| PRS2 SX6 B0 RESET *DEFTO* AND *DEFTOS* ARGUEMENTS
06134 M01S00078.nos252 +++| SA6 TMS
06135 M01S00079.nos252 +++| MX0 42 CHECK *DEFTO*
06136 M00S05632.ldistap +++| SA1 DT
06137 M00S05633.ldistap +++| ZR X1,PRS3 IF *DEFTO* NOT SPECIFIED
| Line S05634 Modification History |
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act
----------------------------+
06138 M01S05634.t2807 ---| SRCHTAB X1,TDEF,0,1,TDEFL
06139 M01S05635.t2807 ---| SA1 =0LDEFTO
06140 M01S05636.t2807 ---| BX7 X1
06141 M01S05637.t2807 ---| NZ X6,PRS4 IF VALUE NOT FOUND
06142 M01S05638.t2807 ---| BX6 -X0*X2 SAVE VALUE FOR *DEFTO*
06143 M01S05639.t2807 ---| SA6 DFT
| Line S00039 Modification History |
M01 (Added by) | t2807 |
Seq # *Modification Id* Act
----------------------------+
06144 M01S00039.t2807 +++| SB2 DT
06145 M01S00040.t2807 +++| RJ USB UNPACK STRING BUFFER
06146 M01S00041.t2807 +++| SX6 B0 FLAG LAST OPTION
06147 M01S00042.t2807 +++| SA6 B7+B1
06148 M01S00043.t2807 +++| SA1 B6 GET FIRST COMMAND OPTION
06149 M01S00044.t2807 +++| MX0 -12
06150 M01S00045.t2807 +++| SA3 TMS GET DEFAULT OPTIONS
06151 M01S00046.t2807 +++| BX7 X3
06152 M01S00047.t2807 +++| PRS2.1 ZR X1,PRS2.4 IF NO MORE OPTIONS
06153 M01S00048.t2807 +++| SA2 TDEF GET FIRST OPTION IN TABLE
06154 M01S00049.t2807 +++| PRS2.2 ZR X2,PRS2.5 IF UNKNOWN OPTION
06155 M01S00050.t2807 +++| BX6 -X0*X2
06156 M01S00051.t2807 +++| BX6 X6-X1
06157 M01S00052.t2807 +++| ZR X6,PRS2.3 IF OPTIONS MATCH
06158 M01S00053.t2807 +++| SA2 A2+B1