cdc:nos2.source:opl.opl871:deck:ldistap.003
Deck LDISTAP Part 003
14 Modifications
Listing Sections
- Deck LDISTAP Start
- Deck LDISTAP Part 1 (Line 1313)
- Deck LDISTAP Part 2 (Line 2802)
- Deck LDISTAP Part 3 (Line 4413)
- Deck LDISTAP Part 4 (Line 6159)
Source
Seq # *Modification Id* Act ----------------------------+
| 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
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/ldistap.003.txt · Last modified: by 127.0.0.1