cdc:nos2.source:opl.opl871:deck:dsdi.009
Deck DSDI Part 009
70 Modifications
Listing Sections
- Deck DSDI Start
- Deck DSDI Part 1 (Line 1558)
- Deck DSDI Part 2 (Line 2598)
- Deck DSDI Part 3 (Line 3881)
- Deck DSDI Part 4 (Line 5540)
- Deck DSDI Part 5 (Line 6734)
- Deck DSDI Part 6 (Line 7901)
- Deck DSDI Part 7 (Line 9074)
- Deck DSDI Part 8 (Line 10431)
- Deck DSDI Part 9 (Line 11513)
- Deck DSDI Part 10 (Line 13137)
- Deck DSDI Part 11 (Line 14354)
- Deck DSDI Part 12 (Line 15316)
- Deck DSDI Part 13 (Line 16446)
- Deck DSDI Part 14 (Line 17804)
- Deck DSDI Part 15 (Line 19078)
- Deck DSDI Part 16 (Line 20802)
- Deck DSDI Part 17 (Line 22524)
- Deck DSDI Part 18 (Line 23646)
- Deck DSDI Part 19 (Line 25086)
- Deck DSDI Part 20 (Line 26414)
- Deck DSDI Part 21 (Line 27098)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S09291 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11513 M02S09291.271l739 ---| SA1 A2+B1
| Line S09292 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11514 M02S09292.271l739 ---| LX7 41-11 POSITION CPP NUMBER FOR HEADER NAME
| Line S09293 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11515 M02S09293.271l739 ---| IX6 X1+X7
| Line S09294 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11516 M02S09294.271l739 ---| LX7 47-11-41+11 POSITION CPP NUMBER FOR RECORD NAME 11517 M01S00211.271l739 +++| SA2 IPDA 11518 M01S00212.271l739 +++| ZR X1,BPN1 IF NOT CPP 11519 M01S00213.271l739 +++| SA1 BPNB 11520 M01S00214.271l739 +++| SA2 .CPP GET CPP RECORD ID 11521 M01S00215.271l739 +++| IX6 X1+X3 11522 M01S00216.271l739 +++| LX6 -6 11523 M01S09295.dsdi +++| JP BPN2 SET IN HEADER 11524 M01S09296.dsdi +++|
| Line S09297 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11525 M02S09297.271l739 ---| BPN1 SA2 IPDA
| Line S09298 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11526 M02S09298.271l739 ---| SA2 BPNB+X2
| Line S09299 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11527 M02S09299.271l739 ---| LX7 47-11 POSITION PP NUMBER
| Line S09300 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11528 M02S09300.271l739 ---| IX6 X7+X2
| Line S09301 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11529 M02S09301.271l739 ---| BPN2 IX7 X7+X2 11530 M01S00217.271l739 +++| BPN1 SA2 .NPP+X2 GET RECORD ID 11531 M01S00218.271l739 +++| NO 11532 M01S00219.271l739 +++| IX6 X3+X2 11533 M01S00220.271l739 +++| BPN2 IX7 X3+X2 11534 M01S00221.271l739 +++| LX3 11-47 11535 M01S09302.dsdi +++| SA6 BPNA+1 SET PP HEADER NAME 11536 M01S09303.dsdi +++| SA7 A6-B1 11537 M01S09304.dsdi +++| MX0 24 11538 M01S09305.dsdi +++| JP BPNX EXIT 11539 M01S09306.dsdi +++| 11540 M01S09307.dsdi +++| BPNA BSS 1 PP RECORD NAME 11541 M01S09308.dsdi +++| BSS 1 PP HEADER NAME
| Line S09309 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11542 M02S09309.271l739 ---| BPNB CON 4LPP00 PP RECORD NAME
| Line S09310 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11543 M02S09310.271l739 ---| CON 4LFP00 FLPP RECORD NAME
| Line S09311 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11544 M02S09311.271l739 ---| BPNC VFD 6/0,18/3LD00,36/0 CPP RECORD NAME
| Line S09312 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11545 M02S09312.271l739 ---| CON 5LCPP00 CPP HEADER NAME 11546 M01S00222.271l739 +++| BPNB VFD 60/4LPP00+1RC CPP HEADER NAME 11547 M01S00042.283l840 +++| BST SPACE 4,15 11548 M01S00043.283l840 +++|** BST - DUMP BUFFER STATUS TABLE. 11549 M01S00044.283l840 +++|* 11550 M01S00045.283l840 +++|* ENTRY (BUF) = MST FOLLOWED BY TRT OR MRT. 11551 M01S00046.283l840 +++|* 11552 M01S00047.283l840 +++|* EXIT (BUF) = MST AND BST, IF BST PRESENT. 11553 M01S00048.283l840 +++|* 11554 M01S00049.283l840 +++|* USES X - 1, 2, 3, 6, 7. 11555 M01S00050.283l840 +++|* A - 1, 2, 6, 7. 11556 M01S00051.283l840 +++|* B - 2, 5, 6, 7. 11557 M01S00052.283l840 +++|* 11558 M01S00053.283l840 +++|* CALLS CTS, FDW, POM, P4F, SDI, SRD, SSB. 11559 M01S00054.283l840 +++|* 11560 M01S00055.283l840 +++|* MACROS GETCM, PRINT. 11561 M01S00056.283l840 +++| 11562 M01S00057.283l840 +++| 11563 M01S00058.283l840 +++| BST SUBR 11564 M01S00059.283l840 +++| SA1 BUF+BDLL FWA OF BST 11565 M01S00060.283l840 +++| LX1 -24 11566 M01S00061.283l840 +++| SX6 X1 11567 M01S00062.283l840 +++| ZR X6,BSTX IF NO BUFFER STATUS TABLE 11568 M01S00063.283l840 +++| SA6 CPRA 11569 M01S00064.283l840 +++| SA6 FW 11570 M01S00065.283l840 +++| SB2 A6 11571 M01S00066.283l840 +++| RJ POM POSITION TO BST 11572 M01S00067.283l840 +++| SX7 BSTL SET BST LENGTH 11573 M01S00068.283l840 +++| SA7 LW SET BST LWA+1 11574 M01S00069.283l840 +++| GETCM BUF+MSTXL,X7 READ BST INTO *BUF* 11575 M01S00070.283l840 +++| PRINT (=2C ) 11576 M01S00071.283l840 +++| PRINT (=C* BUFFER STATUS TABLE*) 11577 M01S00072.283l840 +++| PRINT (=2C ) 11578 M01S00073.283l840 +++| MX7 1 11579 M01S00074.283l840 +++| SA7 SRDA PRESET FIRST CALL TO *SRD* 11580 M01S00075.283l840 +++| SX6 B0 11581 M01S00076.283l840 +++| SA6 BSTA CLEAR LINK ORDINAL 11582 M01S00077.283l840 +++| SA6 BSTB CLEAR DATA WORD ORDINAL 11583 M01S00078.283l840 +++| SA6 SRDC+5 STOP DASHES AFTER 50 CHARACTERS 11584 M01S00079.283l840 +++| RJ SSB CLEAR PRINT STRING 11585 M01S00080.283l840 +++| BST1 SA1 BSTB SET DATA ADDRESS 11586 M01S00081.283l840 +++| SX1 X1+BUF+MSTXL 11587 M01S00082.283l840 +++| SB5 1 SET WORD COUNT 11588 M01S00083.283l840 +++| RJ SRD SENSE REPEAT DATA 11589 M01S00084.283l840 +++| NZ X1,BST2 IF REPEAT SENSED 11590 M01S00085.283l840 +++| SA1 FW GET BST ADDRESS 11591 M01S00086.283l840 +++| SA2 BSTB 11592 M01S00087.283l840 +++| IX1 X1+X2 11593 M01S00088.283l840 +++| LX1 -18 11594 M01S00089.283l840 +++| SB6 6 11595 M01S00090.283l840 +++| SB7 PRBF 11596 M01S00091.283l840 +++| RJ CTS CONVERT BST ADDRESS 11597 M01S00092.283l840 +++| SB7 B7+B1 11598 M01S00093.283l840 +++| SX6 1R+ 11599 M01S00094.283l840 +++| SA6 B7 11600 M01S00095.283l840 +++| SB7 B7+B1 11601 M01S00096.283l840 +++| SA1 BSTA BUFFER ORDINAL 11602 M01S00097.283l840 +++| LX1 -12 11603 M01S00098.283l840 +++| SB6 4 11604 M01S00099.283l840 +++| RJ CTS CONVERT BUFFER ORDINAL 11605 M01S00100.283l840 +++| SB7 B7+2 11606 M01S00101.283l840 +++| SA2 =4000005B 11607 M01S00102.283l840 +++| SA1 BSTB READ BST DATA WORD 11608 M01S00103.283l840 +++| SA1 X1+BUF+MSTXL 11609 M01S00104.283l840 +++| RJ FDW FORMAT DATA WORD 11610 M01S00105.283l840 +++| SA2 BSTB RE-READ DATA WORD 11611 M01S00106.283l840 +++| SA2 X2+BUF+MSTXL 11612 M01S00107.283l840 +++| SB7 B7+2 11613 M01S00108.283l840 +++| SB6 10 11614 M01S00109.283l840 +++| RJ SDI SET DISPLAY CODE INTERPRETATION 11615 M01S00110.283l840 +++| PRINT CCCH,B7-CCCH 11616 M01S00111.283l840 +++| BST2 SA1 BSTA 11617 M01S00112.283l840 +++| SX6 X1+20B 11618 M01S00113.283l840 +++| SA6 A1+ UPDATE BUFFER ORDINAL 11619 M01S00114.283l840 +++| SA1 BSTB 11620 M01S00115.283l840 +++| SX6 X1+B1 11621 M01S00116.283l840 +++| SA6 A1+ UPDATE BST ADDRESS 11622 M01S00117.283l840 +++| SA2 LW 11623 M01S00118.283l840 +++| IX3 X6-X2 11624 M01S00119.283l840 +++| NG X3,BST1 IF MORE TO DUMP 11625 M01S00120.283l840 +++| SA1 SRDC+1 11626 M01S00121.283l840 +++| BX6 X1 11627 M01S00122.283l840 +++| SA6 SRDC+5 RESET DASHES FOR 136 CHARACTERS 11628 M01S00123.283l840 +++| JP BSTX EXIT 11629 M01S00124.283l840 +++| 11630 M01S00125.283l840 +++| BSTA BSS 1 TRACK LINK ORDINAL 11631 M01S00126.283l840 +++| BSTB BSS 1 BST DATA WORD ORDINAL 11632 M01S00001.dsdi79 +++| CCM SPACE 4,5 11633 M01S00002.dsdi79 +++|** CCM - PROCESS *CCM* (CRITICAL *NOS/VE* MEMORY) RECORDS. 11634 M01S00003.dsdi79 +++|* 11635 M01S00004.dsdi79 +++|* ENTRY VIA UNCONDITIONAL JUMP. 11636 M01S00005.dsdi79 +++|* 11637 M01S00006.dsdi79 +++|* CALLS ERF, RBF. 11638 M01S00007.dsdi79 +++| 11639 M01S00008.dsdi79 +++| 11640 M01S00009.dsdi79 +++| CCM BSS 0 ENTRY 11641 M01S00010.dsdi79 +++| RJ ERF POSITION TO EOR OF HEADER RECORD 11642 M01S00011.dsdi79 +++| RJ RBF INITIATE READ OF *CCM* DATA RECORD 11643 M01S00012.dsdi79 +++| RJ ERF SKIP TO EOR 11644 M01S00013.dsdi79 +++| EQ RBI2 READ NEXT RECORD 11645 M01S09313.dsdi +++| CCQ SPACE 4,10 11646 M01S09314.dsdi +++|** CCQ - CHECK FOR CIRCULAR QUEUE. 11647 M01S09315.dsdi +++|* 11648 M01S09316.dsdi +++|* EXIT (X5) .LT. 0, IF CIRCULAR QUEUE FOUND. 11649 M01S09317.dsdi +++|* ELSE, QUEUE ENTRY COUNT IS INCREMENTED. 11650 M01S09318.dsdi +++|* 11651 M01S09319.dsdi +++|* USES X - 5, 6. 11652 M01S09320.dsdi +++|* A - 5, 6. 11653 M01S09321.dsdi +++|* 11654 M01S09322.dsdi +++|* MACROS PRINT. 11655 M01S09323.dsdi +++| 11656 M01S09324.dsdi +++| 11657 M01S09325.dsdi +++| CCQ SUBR 11658 M01S09326.dsdi +++| SA5 CCQB INCREMENT QUEUE ENTRY COUNT 11659 M01S09327.dsdi +++| SX6 X5+1 11660 M01S09328.dsdi +++| SA6 CCQB 11661 M01S09329.dsdi +++| SA5 CCQA CHECK IF QUEUE ENTRY LIMIT EXCEEDED 11662 M01S09330.dsdi +++| IX5 X5-X6 11663 M01S09331.dsdi +++| PL X5,CCQX IF QUEUE ENTRY LIMIT NOT REACHED 11664 M01S09332.dsdi +++| PRINT (=2C ) 11665 M01S09333.dsdi +++| PRINT (=C+ *********WARNING - QUEUE ENTRY LIMIT EXCEEDED+) 11666 M01S09334.dsdi +++| PRINT (=2C ) 11667 M01S09335.dsdi +++| EQ CCQX RETURN 11668 M01S09336.dsdi +++| 11669 M01S09337.dsdi +++| CCQA CON 0 QUEUE ENTRY LIMIT 11670 M01S09338.dsdi +++| CCQB CON 0 QUEUE ENTRY COUNT 11671 M01S00223.271l739 +++| CEA SPACE 4,10 11672 M01S00224.271l739 +++|** CEA - CHECK *EI* ADDRESS. 11673 M01S00225.271l739 +++|* 11674 M01S00226.271l739 +++|* ENTRY (X3) = BYTE ADDRESS. 11675 M01S00227.271l739 +++|* 11676 M01S00228.271l739 +++|* USES X - 1, 2, 3, 7. 11677 M01S00229.271l739 +++|* A - 1, 2, 7. 11678 M01S00230.271l739 +++|* 11679 M01S00231.271l739 +++|* CALLS PCM. 11680 M01S00232.271l739 +++| 11681 M01S00233.271l739 +++| 11682 M01S00234.271l739 +++| CEA1 BX7 X1 SET RANDOM ADDRESS 11683 M01S00235.271l739 +++| AX3 3 11684 M01S00236.271l739 +++| SA7 RI 11685 M01S00237.271l739 +++| RJ PCM POSITION CM RECORD 11686 M01S00238.271l739 +++| 11687 M01S00239.271l739 +++| CEA SUBR ENTRY/EXIT 11688 M01S00240.271l739 +++| SA2 XB 11689 M01S00241.271l739 +++| SA1 MH+1 MEMORY RECORD RANDOM ADDRESS 11690 M01S00242.271l739 +++| IX7 X3-X2 11691 M01S00243.271l739 +++| NG X7,CEA1 IF NOT *EI* ADDRESS 11692 M01S00244.271l739 +++| BX3 X7 11693 M01S00245.271l739 +++| SA1 EH+1 11694 M01S00246.271l739 +++| EQ CEA1 PROCESS ENVIRONMENTAL INTERFACE ADDRESS 11695 M01S09339.dsdi +++| CEP SPACE 4,10 11696 M01S09340.dsdi +++|** CEP - CHECK FOR EXTRANEOUS PARAMETERS. 11697 M01S09341.dsdi +++|* 11698 M01S09342.dsdi +++|* ENTRY (CH) = DIRECTIVE CARD STRING POINTER. 11699 M01S09343.dsdi +++|* 11700 M01S09344.dsdi +++|* EXIT TO *ERR40* IF EXTRA PARAMETER DETECTED. 11701 M01S09345.dsdi +++|* 11702 M01S09346.dsdi +++|* USES X - 1. 11703 M01S09347.dsdi +++|* A - 1. 11704 M01S09348.dsdi +++| 11705 M01S09349.dsdi +++| 11706 M01S09350.dsdi +++| CEP SUBR ENTRY/EXIT 11707 M01S09351.dsdi +++| SA1 CH GET NEXT CHARACTER 11708 M01S09352.dsdi +++| SA1 X1+ 11709 M01S09353.dsdi +++| SX1 X1-1R. 11710 M01S09354.dsdi +++| NG X1,ERR40 IF NOT END OF DIRECTIVE 11711 M01S09355.dsdi +++| EQ CEPX RETURN 11712 M01S09356.dsdi +++| CKC SPACE 4,12 11713 M01S09357.dsdi +++|** CKC - CRACK AND PROCESS DIRECTIVE CARD. 11714 M01S09358.dsdi +++|* 11715 M01S09359.dsdi +++|* ENTRY (B2) = DIRECTIVE PROCESSOR TABLE ADDRESS. 11716 M01S09360.dsdi +++|* DIRECTIVE BEGINS AT ADDRESS *CHAR* IN 11717 M01S09361.dsdi +++|* *S* FORMAT. 11718 M01S09362.dsdi +++|* (TF) = 0, IF OUTPUT NOT TO TERMINAL. 11719 M01S09363.dsdi +++|* 11720 M01S09364.dsdi +++|* EXIT (CH) = DIRECTIVE STRING POINTS TO FIRST ARGUMENT. 11721 M01S09365.dsdi +++|* TO DIRECTIVE PROCESSOR, IF FOUND IN TABLE AND VALID. 11722 M01S09366.dsdi +++|* TO CALLER, IF DIRECTIVE NOT FOUND IN TABLE. 11723 M01S09367.dsdi +++|* TO *ERR16*, IF PRINTER DIRECTIVE AND TERMINAL OUTPUT. 11724 M01S09368.dsdi +++|* TO *ERR17*, IF TERMINAL DIRECTIVE AND PRINTER OUTPUT. 11725 M01S09369.dsdi +++|* 11726 M01S09370.dsdi +++|* USES X - 1, 2, 3, 6. 11727 M01S09371.dsdi +++|* A - 1, 2, 6. 11728 M01S09372.dsdi +++|* B - 2, 3. 11729 M01S09373.dsdi +++|* 11730 M01S09374.dsdi +++|* CALLS ASN, DIRECTIVE PROCESSORS. 11731 M01S09375.dsdi +++| 11732 M01S09376.dsdi +++| 11733 M01S09377.dsdi +++| CKC SUBR 11734 M01S09378.dsdi +++| SX6 CHAR 11735 M01S09379.dsdi +++| SA6 CH SET DIRECTIVE STRING POINTER 11736 M01S09380.dsdi +++| RJ ASN ASSEMBLE DIRECTIVE NAME 11737 M01S09381.dsdi +++| CKC1 SA1 B2 READ PROCESSOR TABLE 11738 M01S09382.dsdi +++| SB2 B2+B1 ADVANCE TABLE POINTER 11739 M01S09383.dsdi +++| ZR X1,CKCX IF END OF TABLE 11740 M01S09384.dsdi +++| SA2 X1 READ PROCESSOR NAME 11741 M01S09385.dsdi +++| BX3 X2-X6 11742 M01S09386.dsdi +++| NZ X3,CKC1 IF NO MATCH 11743 M01S09387.dsdi +++| SB3 X1+B1 SET EXECUTION ADDRESS 11744 M01S09388.dsdi +++| LX3 X1,B1 11745 M01S09389.dsdi +++| SA2 TF CHECK TERMINAL FLAG 11746 M01S09390.dsdi +++| ZR X2,CKC2 IF OUTPUT NOT TO TERMINAL 11747 M01S09391.dsdi +++| NG X1,ERR16 IF DIRECTIVE RESTRICTED TO PRINTER 11748 M01S09392.dsdi +++| CKC2 NZ X2,CKC3 IF OUTPUT TO TERMINAL 11749 M01S09393.dsdi +++| NG X3,ERR17 IF DIRECTIVE RESTRICTED TO TERMINAL
| Line S09394 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi69 |
Seq # *Modification Id* Act ----------------------------+ 11750 M02S09394.dsdi69 ---| CKC3 JP B3 EXECUTE SELECTED PROCESSOR 11751 M01S00046.dsdi69 +++| CKC3 LX1 -18 SET/CLEAR ERROR RETURN ADDRESS 11752 M01S00047.dsdi69 +++| SX6 X1 11753 M01S00048.dsdi69 +++| SA6 ERRC+1 11754 M01S00049.dsdi69 +++| JP B3 EXECUTE SELECTED PROCESSOR 11755 M01S09395.dsdi +++| CLE SPACE 4,10 11756 M01S09396.dsdi +++|** CLE - CHECK FOR LAST TABLE ENTRY. 11757 M01S09397.dsdi +++|* 11758 M01S09398.dsdi +++|* ENTRY (X4) = TABLE ENTRY NUMBER. 11759 M01S09399.dsdi +++|* (BE) = BUFFERED DEVICE TABLE ENTRY. 11760 M01S09400.dsdi +++|* 11761 M01S09401.dsdi +++|* EXIT (X0) = ENTRY ADDRESS RELATIVE TO TABLE FWA. 11762 M01S09402.dsdi +++|* (X1) = ENTRY LENGTH. 11763 M01S09403.dsdi +++|* (X2) = TABLE LENGTH. 11764 M01S09404.dsdi +++|* (X3).LT.0, IF ENTRY WITHIN TABLE. 11765 M01S09405.dsdi +++|* 11766 M01S09406.dsdi +++|* USES X - 0, 1, 2, 3. 11767 M01S09407.dsdi +++|* A - 2. 11768 M01S09408.dsdi +++| 11769 M01S09409.dsdi +++| 11770 M01S09410.dsdi +++| CLE SUBR ENTRY/EXIT 11771 M01S09411.dsdi +++| SA2 BE GET TABLE *BDT* ENTRY 11772 M01S09412.dsdi +++| LX2 18 11773 M01S09413.dsdi +++| MX0 -6 11774 M01S09414.dsdi +++| BX1 -X0*X2 ENTRY LENGTH 11775 M01S09415.dsdi +++| IX0 X1*X4 ENTRY ADDRESS RELATIVE TO TABLE FWA 11776 M01S09416.dsdi +++| AX2 42 TABLE LENGTH 11777 M01S09417.dsdi +++| IX3 X0-X2 CHECK IF ENTRY NUMBER WITHIN TABLE 11778 M01S09418.dsdi +++| EQ CLEX RETURN 11779 M01S09419.dsdi +++| CMB SPACE 4,15 11780 M01S09420.dsdi +++|** CMB - CHECK MEMORY BOUNDS. 11781 M01S09421.dsdi +++|* 11782 M01S09422.dsdi +++|* ENTRY (B2) = DUMP PARAMETER BLOCK ADDRESS. 11783 M01S09423.dsdi +++|* (AM) = *ALLMEM* FLAG. 11784 M01S09424.dsdi +++|* (AP) = ADVANCED PROCESSOR FLAG. 11785 M01S09425.dsdi +++|* 11786 M01S09426.dsdi +++|* EXIT TO CALLER IF DUMP PARAMETERS OKAY. 11787 M01S09427.dsdi +++|* TO *ERR32* IF PARAMETERS ARE BAD. 11788 M01S09428.dsdi +++|* 11789 M01S09429.dsdi +++|* USES X - 1, 2. 11790 M01S09430.dsdi +++|* A - 1, 2. 11791 M01S09431.dsdi +++| 11792 M01S09432.dsdi +++| 11793 M01S09433.dsdi +++| CMB SUBR ENTRY/EXIT 11794 M01S09434.dsdi +++| SA1 CE 11795 M01S09435.dsdi +++| ZR X1,CMBX IF BOUNDS CHECKING NOT REQUIRED 11796 M01S09436.dsdi +++| SA1 AM 11797 M01S09437.dsdi +++| NZ X1,CMBX IF *ALLMEM* ENABLED 11798 M01S09438.dsdi +++| SA1 SBTL1 11799 M01S09439.dsdi +++| SA2 =10HCM 11800 M01S09440.dsdi +++| BX1 X1-X2 11801 M01S09441.dsdi +++| NZ X1,CMBX IF NOT DUMPING CM 11802 M01S09442.dsdi +++| SA2 F.TCMT GET CM SIZE 11803 M01S09443.dsdi +++| SA1 X2+MABL 11804 M01S09444.dsdi +++| MX2 -24 11805 M01S09445.dsdi +++| LX1 -12 11806 M01S09446.dsdi +++| BX1 -X2*X1 11807 M01S09447.dsdi +++| SA2 B2+B1 GET LWA+1 OF DUMP 11808 M01S09448.dsdi +++| LX1 6 11809 M01S09449.dsdi +++| IX1 X2-X1 11810 M01S09450.dsdi +++| NG X1,CMBX IF LWA+1 WITHIN CM BOUNDARY 11811 M01S09451.dsdi +++| EQ ERR32 PROCESS BOUNDARY ERROR 11812 M01S09452.dsdi +++| CMP SPACE 4,15 11813 M01S09453.dsdi +++|** CMP - PROCESS *CM* RECORD. 11814 M01S09454.dsdi +++|* 11815 M01S09455.dsdi +++|* ENTRY VIA UNCONDITIONAL JUMP. 11816 M01S09456.dsdi +++|* 11817 M01S09457.dsdi +++|* EXIT TO *RBI2* IF NORMAL.
| Line S09458 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi73 |
Seq # *Modification Id* Act ----------------------------+ 11818 M02S09458.dsdi73 ---|* TO *ERR29* IF PREMATURE EOF. 11819 M01S00006.dsdi73 +++|* TO *PPE* IF PREMATURE EOF. 11820 M01S09459.dsdi +++|* 11821 M01S09460.dsdi +++|* USES A - 1, 2, 3, 6, 7. 11822 M01S09461.dsdi +++|* X - 1, 2, 3, 6, 7. 11823 M01S09462.dsdi +++|*
| Line S09463 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi88 |
Seq # *Modification Id* Act ----------------------------+ 11824 M02S09463.dsdi88 ---|* CALLS CRS, ERS, RBF, WBS. 11825 M01S00001.dsdi88 +++|* CALLS CRS, ERS, RBH, WBS. 11826 M01S09464.dsdi +++| 11827 M01S09465.dsdi +++| 11828 M01S09466.dsdi +++| CMP BSS 0 ENTRY 11829 M01S09467.dsdi +++| SA1 BUF DETERMINE NUMBER OF WORDS TO COPY 11830 M01S09468.dsdi +++| SX6 X1 GET CM SIZE 11831 M01S09469.dsdi +++| PL X6,CMP1 IF NEW CM FORMAT 11832 M01S09470.dsdi +++| SX6 X6-1L DELETE UPPER SPACE 11833 M01S09471.dsdi +++| CMP1 LX6 9 CONVERT TO WORDS 11834 M01S09472.dsdi +++| SA6 CMPA 11835 M01S09473.dsdi +++| RJ CRS COPY RECORD TO S 11836 M01S09474.dsdi +++| SX7 B0 CLEAR NUMBER OF WORDS COPIED 11837 M01S09475.dsdi +++| SA7 CMPB 11838 M01S09476.dsdi +++| SA7 ID CLEAR RECORD ID
| Line S09477 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi88 |
Seq # *Modification Id* Act ----------------------------+ 11839 M02S09477.dsdi88 ---| CMP2 RJ RBF READ BLOCK FROM F 11840 M01S00002.dsdi88 +++| CMP2 RJ RBH READ BLOCK OR HEADER FROM FILE *F*
| Line S09478 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi73 |
Seq # *Modification Id* Act ----------------------------+ 11841 M02S09478.dsdi73 ---| NZ X1,ERR29 IF PREMATURE EOF 11842 M01S00007.dsdi73 +++| NZ X1,PPE IF PREMATURE EOF 11843 M01S00003.dsdi88 +++| NG X1,PPE IF EOR WITH DEFERRED HEADER 11844 M01S09479.dsdi +++| SA1 BWCF SET NUMBER OF WORDS TO WRITE 11845 M01S09480.dsdi +++| BX6 X1 11846 M01S09481.dsdi +++| SA6 BWCS 11847 M01S09482.dsdi +++| RJ WBS WRITE BLOCK TO FILE *S* 11848 M01S09483.dsdi +++| SA1 CMPB UPDATE COUNT OF WORDS COPIED 11849 M01S09484.dsdi +++| SA2 BWCS 11850 M01S09485.dsdi +++| IX6 X1+X2 11851 M01S09486.dsdi +++| SA6 A1 11852 M01S09487.dsdi +++| SA3 CMPA TEST ALL WORDS COPIED 11853 M01S09488.dsdi +++| IX6 X6-X3 11854 M01S09489.dsdi +++| NG X6,CMP2 IF NOT DONE 11855 M01S09490.dsdi +++| RJ ERS END RECORD ON S 11856 M01S09491.dsdi +++| SX6 -1 FORCE EOR ON F 11857 M01S09492.dsdi +++| SA6 EORF 11858 M01S09493.dsdi +++| EQ RBI2 EXIT TO READ NEXT RECORD FROM F 11859 M01S09494.dsdi +++| 11860 M01S09495.dsdi +++| 11861 M01S09496.dsdi +++| CMPA BSS 1 NUMBER OF WORDS TO COPY 11862 M01S09497.dsdi +++| CMPB BSS 1 NUMBER OF WORDS COPIED 11863 M01S09498.dsdi +++| CNL SPACE 4,10 11864 M01S09499.dsdi +++|** CNL - CHECK NFL LENGTH. 11865 M01S09500.dsdi +++|* 11866 M01S09501.dsdi +++|* ENTRY (L.TNFL) = NFL/100 OF CURRENT CP. 11867 M01S09502.dsdi +++|* 11868 M01S09503.dsdi +++|* EXIT (X1) .GE. 0 IF SUFFICIENT NFL SPACE. 11869 M01S09504.dsdi +++|* (X1) .LT. 0 IF INSUFFICIENT NFL SPACE. 11870 M01S09505.dsdi +++|* WARNING MESSAGE PRINTED. 11871 M01S09506.dsdi +++|* 11872 M01S09507.dsdi +++|* USES X - 1, 6. 11873 M01S09508.dsdi +++|* A - 1. 11874 M01S09509.dsdi +++|* 11875 M01S09510.dsdi +++|* MACROS PRINT. 11876 M01S09511.dsdi +++| 11877 M01S09512.dsdi +++| 11878 M01S09513.dsdi +++| CNL SUBR ENTRY/EXIT 11879 M01S09514.dsdi +++| SA1 L.TNFL GET NFL/100 11880 M01S09515.dsdi +++| SX6 DNFL GET DEFAULT 11881 M01S09516.dsdi +++| IX1 X1-X6 11882 M01S09517.dsdi +++| PL X1,CNLX IF SUFFICIENT SPACE 11883 M01S09518.dsdi +++| PRINT (=2C ) 11884 M01S09519.dsdi +++| PRINT (=C* INSUFFICIENT NFL SPACE.*) 11885 M01S09520.dsdi +++| PRINT (=2C ) 11886 M01S09521.dsdi +++| MX1 1 SET ERROR STATUS 11887 M01S09522.dsdi +++| EQ CNLX RETURN
| Line S09523 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11888 M02S09523.dsdi67 ---| SPACE 4,10
| Line S09524 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11889 M02S09524.dsdi67 ---|** CNR - CHECK NEXT RECORD.
| Line S09525 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11890 M02S09525.dsdi67 ---|*
| Line S09526 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11891 M02S09526.dsdi67 ---|* ENTRY (A2) = POINTER TO CURRENT DIRECTORY TABLE ENTRY.
| Line S09527 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11892 M02S09527.dsdi67 ---|* (X2) = CONTENTS OF CURRENT DIRECTORY TABLE ENTRY
| Line S09528 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11893 M02S09528.dsdi67 ---|* (FIRST WORD).
| Line S09529 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11894 M02S09529.dsdi67 ---|* (X3) = 3 CHARACTER DUMP RECORD ID, LEFT JUSTIFIED,
| Line S09530 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11895 M02S09530.dsdi67 ---|* ZERO FILLED.
| Line S09531 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11896 M02S09531.dsdi67 ---|* (B7) = C.TDIR (LENGTH OF TDIR TABLE ENTRY)
| Line S09532 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11897 M02S09532.dsdi67 ---|* ((B3)) = ADDRESS OF LAST DUMP RECORD PROCESSED
| Line S09533 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11898 M02S09533.dsdi67 ---|* DIRECTORY TABLE ENTRY,
| Line S09534 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11899 M02S09534.dsdi67 ---|* = 0 IF FIRST RECORD WITH PARTICULAR
| Line S09535 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11900 M02S09535.dsdi67 ---|* DUMP RECORD ID TO BE PROCESSED.
| Line S09536 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11901 M02S09536.dsdi67 ---|*
| Line S09537 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11902 M02S09537.dsdi67 ---|* EXIT (A2) = SAME AS ENTRY.
| Line S09538 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11903 M02S09538.dsdi67 ---|* (X2) = SAME AS ENTRY.
| Line S09539 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11904 M02S09539.dsdi67 ---|* ((B3)) = ADDRESS OF THE NEXT DUMP RECORD-S
| Line S09540 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11905 M02S09540.dsdi67 ---|* DIRECTORY TABLE ENTRY IF THE NEXT
| Line S09541 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11906 M02S09541.dsdi67 ---|* RECORD HAS THE SAME RECORD ID,
| Line S09542 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11907 M02S09542.dsdi67 ---|* = 0 IF THE NEXT DUMP RECORD DOES NOT
| Line S09543 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11908 M02S09543.dsdi67 ---|* HAVE THE SAME RECORD ID.
| Line S09544 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11909 M02S09544.dsdi67 ---|*
| Line S09545 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11910 M02S09545.dsdi67 ---|* USES X - 1, 6.
| Line S09546 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11911 M02S09546.dsdi67 ---|* A - 0, 1, 6.
| Line S09547 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11912 M02S09547.dsdi67 ---|*
| Line S09548 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11913 M02S09548.dsdi67 ---|
| Line S09549 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11914 M02S09549.dsdi67 ---|
| Line S09550 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11915 M02S09550.dsdi67 ---| CNR SUBR
| Line S09551 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11916 M02S09551.dsdi67 ---| SA1 A2+B7 NEXT TDIR ENTRY
| Line S09552 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11917 M02S09552.dsdi67 ---| MX0 18
| Line S09553 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11918 M02S09553.dsdi67 ---| BX6 X0*X1
| Line S09554 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11919 M02S09554.dsdi67 ---| BX6 X6-X3
| Line S09555 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11920 M02S09555.dsdi67 ---| ZR X6,CNR1 IF MATCH
| Line S09556 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11921 M02S09556.dsdi67 ---| SX6 B0
| Line S09557 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11922 M02S09557.dsdi67 ---| SA6 B3
| Line S09558 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11923 M02S09558.dsdi67 ---| JP CNRX RETURN IF NO MATCH
| Line S09559 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11924 M02S09559.dsdi67 ---|
| Line S09560 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11925 M02S09560.dsdi67 ---| CNR1 SX6 A1
| Line S09561 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11926 M02S09561.dsdi67 ---| SA6 B3
| Line S09562 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 11927 M02S09562.dsdi67 ---| JP CNRX RETURN 11928 M01S09563.dsdi +++| COF SPACE 4,10 11929 M01S09564.dsdi +++|** COF - COMPLETE OUTPUT FILES. 11930 M01S09565.dsdi +++|* RESET FIELD LENGTH TO ORIGINAL VALUE IF CHANGED. 11931 M01S09566.dsdi +++|* 11932 M01S09567.dsdi +++|* ENTRY OF = CURRENT OUTPUT FILE FET ADDRESS. 11933 M01S09568.dsdi +++|* FN = INITIAL FIELD LENGTH. 11934 M01S09569.dsdi +++|* FM = CURRENT FIELD LENGTH. 11935 M01S09570.dsdi +++|* BD = BINARY DUMP FLAG. 11936 M01S09571.dsdi +++|* 11937 M01S09572.dsdi +++|* USES X - 0, 1, 2, 6, 7. 11938 M01S09573.dsdi +++|* A - 1, 2, 6, 7. 11939 M01S09574.dsdi +++|* 11940 M01S09575.dsdi +++|* CALLS COD. 11941 M01S09576.dsdi +++|* 11942 M01S09577.dsdi +++|* MACROS MEMORY, RECALL, RETURN, SETFS, WRITER. 11943 M01S09578.dsdi +++| 11944 M01S09579.dsdi +++| 11945 M01S09580.dsdi +++| COF SUBR 11946 M01S09581.dsdi +++| RECALL L 11947 M01S09582.dsdi +++| WRITER X2,R 11948 M01S09583.dsdi +++| SETFS X2,0 CLEAR OUTPUT FILE ID 11949 M01S09584.dsdi +++| SA1 OF 11950 M01S09585.dsdi +++| IX2 X1-X2 11951 M01S09586.dsdi +++| ZR X2,COF1 IF NO ALTERNATE FILE ACTIVE 11952 M01S09587.dsdi +++| RECALL X1 11953 M01S09588.dsdi +++| WRITER X2,R 11954 M01S09589.dsdi +++| SETFS X2,0 CLEAR ALTERNATE FILE ID 11955 M01S09590.dsdi +++| COF1 SA1 BD 11956 M01S09591.dsdi +++| ZR X1,COF2 IF NOT BINARY DUMP 11957 M01S09592.dsdi +++| RETURN F1 DROP SCRATCH FILE 11958 M01S09593.dsdi +++| COF2 SA1 FM CURRENT FIELD LENGTH 11959 M01S09594.dsdi +++| RJ COD CONVERT TO DISPLAY CODE 11960 M01S09595.dsdi +++| MX0 -36 11961 M01S09596.dsdi +++| BX6 -X0*X6 11962 M01S09597.dsdi +++| LX6 12 11963 M01S09598.dsdi +++| SA2 MSG2A STORE FL USED INTO MESSAGE 11964 M01S09599.dsdi +++| BX7 X2+X6 11965 M01S09600.dsdi +++| SA7 A2 11966 M01S09601.dsdi +++| SA1 FN INITIAL FIELD LENGTH 11967 M01S09602.dsdi +++| SA2 FM CURRENT FIELD LENGTH 11968 M01S09603.dsdi +++| IX2 X2-X1 11969 M01S09604.dsdi +++| ZR X2,COFX IF NO FL CHANGE 11970 M01S09605.dsdi +++| LX1 30 11971 M01S09606.dsdi +++| BX6 X1 11972 M01S09607.dsdi +++| SA6 A1 SET RFL PARAMETER 11973 M01S09608.dsdi +++| MEMORY CM,FN,R 11974 M01S09609.dsdi +++| JP COFX EXIT 11975 M01S09610.dsdi +++| CPC SPACE 4,10 11976 M01S09611.dsdi +++|** CPC - CHECK PAGE CHANGE. 11977 M01S09612.dsdi +++|* 11978 M01S09613.dsdi +++|* CHECK IF THE FWA HAS ENTERED A NEW CM PAGE AND 11979 M01S09614.dsdi +++|* IF NECESSARY, POSITION TO THAT NEW PAGE. 11980 M01S09615.dsdi +++|* 11981 M01S09616.dsdi +++|* ENTRY (B2+0) - SVA TO DUMP NEXT. 11982 M01S09617.dsdi +++|* 11983 M01S09618.dsdi +++|* EXIT *NXB* - POSITIONED TO CORRECT ADDRESS. 11984 M01S09619.dsdi +++|* (X2) = 0, IF PAGE IS PRESENT. 11985 M01S09620.dsdi +++|* (X3) < 0, IF PAGE IS VALID. 11986 M01S09621.dsdi +++|* (A3) = *PTEVCUM* 11987 M01S09622.dsdi +++|* 11988 M01S09623.dsdi +++|* USES X - 1, 2, 6. 11989 M01S09624.dsdi +++|* A - 1, 2, 6. 11990 M01S09625.dsdi +++|* 11991 M01S09626.dsdi +++|* SAVES X - 5. 11992 M01S09627.dsdi +++|* 11993 M01S09628.dsdi +++|* CALLS PSM, SPT. 11994 M01S09629.dsdi +++| 11995 M01S09630.dsdi +++| 11996 M01S09631.dsdi +++| CPC SUBR ENTRY/EXIT 11997 M01S09632.dsdi +++| MX3 1 11998 M01S09633.dsdi +++| SA4 B2 ADDRESS TO BE DUMPED 11999 M01S09634.dsdi +++| SA1 XM PAGE SIZE MASK 12000 M01S09635.dsdi +++| BX6 X4*X1 12001 M01S09636.dsdi +++| SX2 B0 12002 M01S09637.dsdi +++| AX4 32 12003 M01S09638.dsdi +++| BX7 X5 SAVE X5 12004 M01S09639.dsdi +++| NZ X6,CPCX IF NO PAGE CHANGE 12005 M01S09640.dsdi +++| ZR X4,CPCX IF NOT VIRTUAL MEMORY DUMP 12006 M01S09641.dsdi +++| SA7 CPCA SAVE X5 12007 M01S09642.dsdi +++| RJ SPT SEARCH PAGE TABLE 12008 M01S09643.dsdi +++| NZ X2,CPCX IF PAGE MISSING 12009 M01S09644.dsdi +++| SB2 BRMA BYTE REAL MEMORY ADDRESS OF PAGE 12010 M01S09645.dsdi +++| RJ PSM POSITION TO THE RMA 12011 M01S09646.dsdi +++| SA1 CPCA RESTORE X5 12012 M01S09647.dsdi +++| SA3 PTEVCUM 12013 M01S09648.dsdi +++| BX5 X1 12014 M01S09649.dsdi +++| SX2 B0 DEFINE PAGE AS PRESENT 12015 M01S09650.dsdi +++| EQ CPCX RETURN 12016 M01S09651.dsdi +++| 12017 M01S09652.dsdi +++| CPCA CON 0 12018 M01S09653.dsdi +++| CPD SPACE 4,10 12019 M01S09654.dsdi +++|** CPD - COPY PP DATA TO BUFFER. 12020 M01S09655.dsdi +++|* 12021 M01S09656.dsdi +++|* ENTRY DUMP FILE POSITIONED TO PROPER PP RECORD. 12022 M01S09657.dsdi +++|* 12023 M01S09658.dsdi +++|* EXIT PP MEMORY COPIED TO BUFFER *PBUF*. 12024 M01S09659.dsdi +++|* 12025 M01S09660.dsdi +++|* USES X - 1, 6. 12026 M01S09661.dsdi +++|* A - 1, 6. 12027 M01S09662.dsdi +++|* 12028 M01S09663.dsdi +++|* MACROS READW. 12029 M01S09664.dsdi +++| 12030 M01S09665.dsdi +++| 12031 M01S09666.dsdi +++| CPD1 READW S,PBUF,IUBUFL1 12032 M01S09667.dsdi +++| SX6 IUBUFL1 12033 M01S09668.dsdi +++| CPD2 SA6 NXBA 12034 M01S09669.dsdi +++| BX6 X6-X6 12035 M01S09670.dsdi +++| SA6 A6+B1 12036 M01S09671.dsdi +++| SX6 PBUF-1 12037 M01S09672.dsdi +++| SA6 A6+1 12038 M01S09673.dsdi +++| 12039 M01S09674.dsdi +++| CPD SUBR ENTRY/EXIT
| Line S09675 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi74 |
Seq # *Modification Id* Act ----------------------------+ 12040 M02S09675.dsdi74 ---| SA1 C4
| Line S09676 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi74 |
Seq # *Modification Id* Act ----------------------------+ 12041 M02S09676.dsdi74 ---| ZR X1,CPD1 IF NOT I4 IOU 12042 M01S00027.dsdi74 +++| SA1 IO
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | dsdi74 |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 12043 M02S00028.271l739 ---| NZ X1,CPD1 IF NOT I4 IOU 12044 M01S00247.271l739 +++| NZ X1,CPD1 IF NOT I4A OR I4S IOU 12045 M01S09677.dsdi +++| READW S,PBUF,IUBUFL2 12046 M01S09678.dsdi +++| SX6 IUBUFL2 12047 M01S09679.dsdi +++| EQ CPD2 SET POINTERS FOR *NXB* 12048 M01S00080.ns2647 +++| CPN SPACE 4,10 12049 M01S00081.ns2647 +++|** CPN - CONVERT PP/CPP NUMBER. 12050 M01S00082.ns2647 +++|* 12051 M01S00083.ns2647 +++|* ENTRY (PP) = PP/CPP NUMBER FROM DUMP. 12052 M01S00084.ns2647 +++|* 12053 M01S00085.ns2647 +++|* EXIT (X2) = (PP). 12054 M01S00086.ns2647 +++|* (X3) .NE. 0 IF DUMPING A CPP. 12055 M01S00087.ns2647 +++|* (X6) = LOGICAL PP/CPP NUMBER. 12056 M01S00088.ns2647 +++|* 12057 M01S00089.ns2647 +++|* USES X - 2, 3, 6. 12058 M01S00090.ns2647 +++|* A - 2, 3. 12059 M01S00091.ns2647 +++| 12060 M01S00092.ns2647 +++| 12061 M01S00093.ns2647 +++| CPN SUBR ENTRY/EXIT 12062 M01S00094.ns2647 +++| SA2 PP GET PP/CPP NUMBER 12063 M01S00095.ns2647 +++| BX6 X2 12064 M01S00096.ns2647 +++| SX3 X2-20B 12065 M01S00097.ns2647 +++| NG X3,CPN1 IF NOT UPPER BANK 12066 M01S00098.ns2647 +++| SX6 X2-20B+12B CONVERT UPPER BANK PP NUMBER 12067 M01S00099.ns2647 +++| CPN1 SA3 IC 12068 M01S00100.ns2647 +++| ZR X3,CPNX IF NOT PROCESSING CPP-S 12069 M01S00101.ns2647 +++| SA3 NP CONVERT CPP NUMBER 12070 M01S00102.ns2647 +++| IX6 X2+X3 12071 M01S00103.ns2647 +++| EQ CPNX RETURN 12072 M01S09680.dsdi +++| CPS SPACE 4,12 12073 M01S09681.dsdi +++|** CPS - CHECK PAGE SPACE REMAINING. 12074 M01S09682.dsdi +++|* 12075 M01S09683.dsdi +++|* ENTRY X1 = NUMBER OF LINES DESIRED. 12076 M01S09684.dsdi +++|* LC = CURRENT LINE NUMBER. 12077 M01S09685.dsdi +++|* PD = NUMBER OF LINES PER FULL PAGE. 12078 M01S09686.dsdi +++|* 12079 M01S09687.dsdi +++|* EXIT X6 = NUMBER OF LINES AVAILABLE. 12080 M01S09688.dsdi +++|* A NEW PAGE IS FORCED IF THERE ARE .LT. (X1) 12081 M01S09689.dsdi +++|* LINES LEFT ON THE CURRENT PAGE. 12082 M01S09690.dsdi +++|* 12083 M01S09691.dsdi +++|* USES X - 2,3,6. 12084 M01S09692.dsdi +++|* A - 2,3,6. 12085 M01S09693.dsdi +++| 12086 M01S09694.dsdi +++| 12087 M01S09695.dsdi +++| CPS SUBR 12088 M01S09696.dsdi +++| SA2 LC CURRENT LINE COUNT 12089 M01S09697.dsdi +++| SA3 PD 12090 M01S09698.dsdi +++| IX6 X3-X2 NUMBER OF LINES LEFT ON THIS PAGE 12091 M01S09699.dsdi +++| IX2 X6-X1 12092 M01S09700.dsdi +++| PL X2,CPSX IF ENOUGH ROOM REMAINING 12093 M01S09701.dsdi +++| BX6 X3 12094 M01S09702.dsdi +++| SA6 A2 FORCE NEW PAGE 12095 M01S09703.dsdi +++| JP CPSX EXIT
| Line S09704 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12096 M02S09704.dsdi71a ---| CRA SPACE 4,9 12097 M01S00008.dsdi71a +++| CRA SPACE 4,10 12098 M01S09705.dsdi +++|** CRA - COMPUTE CONTROL POINT REFERENCE ADDRESS. 12099 M01S09706.dsdi +++|*
| Line S09707 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi89 |
Seq # *Modification Id* Act ----------------------------+ 12100 M02S09707.dsdi89 ---|* ENTRY X6 = CONTROL POINT NUMBER. 12101 M01S00020.dsdi89 +++|* ENTRY (X6) = CONTROL POINT NUMBER. 12102 M01S09708.dsdi +++|*
| Line S09709 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi89 |
Seq # *Modification Id* Act ----------------------------+ 12103 M02S09709.dsdi89 ---|* EXIT X6 = CONTROL POINT ADDRESS. 12104 M01S00021.dsdi89 +++|* EXIT (X6) = CONTROL POINT RA. 12105 M01S00022.dsdi89 +++|* (X7) = CONTROL POINT FL. 12106 M01S09710.dsdi +++|*
| Line S09711 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12107 M02S09711.dsdi71a ---|* SAVES X - 5,7.
| Line S09712 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12108 M02S09712.dsdi71a ---|* B - 1.
| Line S09713 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12109 M02S09713.dsdi71a ---|* A - 0. 12110 M01S00009.dsdi71a +++|* USES X - 1, 2. 12111 M01S00010.dsdi71a +++|* A - 2. 12112 M01S00011.dsdi71a +++|* 12113 M01S00012.dsdi71a +++|* CALLS GFL. 12114 M01S09714.dsdi +++| 12115 M01S09715.dsdi +++| 12116 M01S09716.dsdi +++| CRA SUBR
| Line S09717 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12117 M02S09717.dsdi71a ---| SA1 F.TCMT 12118 M01S09718.dsdi +++| SA2 NC
| Line S09719 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12119 M02S09719.dsdi71a ---| MX0 -15 12120 M01S09720.dsdi +++| SX2 X2+B1 ALLOW FOR SYSTEM CONTROL POINT 12121 M01S09721.dsdi +++| IX2 X2-X6 12122 M01S09722.dsdi +++| NG X2,ERR8 IF INCORRECT CONTROL POINT NUMBER 12123 M01S09723.dsdi +++| SX2 CPLEN
| Line S09724 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12124 M02S09724.dsdi71a ---| IX2 X2*X6
| Line S09725 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12125 M02S09725.dsdi71a ---| IX3 X2+X1
| Line S09726 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12126 M02S09726.dsdi71a ---| SA4 X3+FLSW GET RA/100
| Line S09727 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12127 M02S09727.dsdi71a ---| LX4 -12
| Line S09728 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12128 M02S09728.dsdi71a ---| BX6 -X0*X4
| Line S09729 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12129 M02S09729.dsdi71a ---| LX6 6 FORM CONTROL POINT RA 12130 M01S00013.dsdi71a +++| IX1 X2*X6 12131 M01S00014.dsdi71a +++| RJ GFL GET RA 12132 M01S09730.dsdi +++| JP CRAX EXIT 12133 M01S09731.dsdi +++| CRS SPACE 4,10 12134 M01S09732.dsdi +++|** CRS - COPY RECORD TO S. 12135 M01S09733.dsdi +++|* 12136 M01S09734.dsdi +++|* ENTRY (BWCF) = NUMBER OF WORDS TO WRITE IN 1ST BLOCK. 12137 M01S09735.dsdi +++|* 12138 M01S09736.dsdi +++|* USES A - 1, 6. 12139 M01S09737.dsdi +++|* X - 1, 6. 12140 M01S09738.dsdi +++|*
| Line S09739 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi88 |
Seq # *Modification Id* Act ----------------------------+ 12141 M02S09739.dsdi88 ---|* CALLS ERS, RBF, WBS. 12142 M01S00004.dsdi88 +++|* CALLS ERS, RBH, WBS. 12143 M01S09740.dsdi +++| 12144 M01S09741.dsdi +++| 12145 M01S00021.ns2706 +++| CRS2 RJ ERS END RECORD ON S 12146 M01S00022.ns2706 +++| 12147 M01S09742.dsdi +++| CRS SUBR ENTRY/EXIT 12148 M01S09743.dsdi +++| CRS1 SA1 BWCF SET NUMBER OF WORDS TO WRITE 12149 M01S09744.dsdi +++| BX6 X1 12150 M01S09745.dsdi +++| SA6 BWCS 12151 M01S09746.dsdi +++| RJ WBS WRITE BLOCK TO S 12152 M01S09747.dsdi +++| SA1 EORF 12153 M01S09748.dsdi +++| NG X1,CRS2 IF EOR
| Line S09749 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi88 |
Seq # *Modification Id* Act ----------------------------+ 12154 M02S09749.dsdi88 ---| RJ RBF READ BLOCK FROM F 12155 M01S00005.dsdi88 +++| RJ RBH READ BLOCK OR HEADER
| Line S09750 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi73 |
Seq # *Modification Id* Act ----------------------------+ 12156 M02S09750.dsdi73 ---| NZ X1,ERR29 IF PREMATURE EOF 12157 M01S00008.dsdi73 +++| NZ X1,PPE IF PREMATURE EOF 12158 M01S00006.dsdi88 +++| NG X1,CRS2 IF EOR WITH DEFERRED HEADER 12159 M01S09751.dsdi +++| EQ CRS1 CONTINUE COPY OF RECORD
| Line S09752 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | ns2706 |
Seq # *Modification Id* Act ----------------------------+ 12160 M02S09752.ns2706 ---|
| Line S09753 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | ns2706 |
Seq # *Modification Id* Act ----------------------------+ 12161 M02S09753.ns2706 ---| CRS2 RJ ERS END RECORD ON S
| Line S09754 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | ns2706 |
Seq # *Modification Id* Act ----------------------------+ 12162 M02S09754.ns2706 ---| EQ CRSX RETURN 12163 M01S09755.dsdi +++| CSI SPACE 4,10 12164 M01S09756.dsdi +++|** CSI - COLLECT SEGMENT INFORMATION. 12165 M01S09757.dsdi +++|* 12166 M01S09758.dsdi +++|* ENTRY (BUF - BUF+53*4) = C170-8X5 EXCHANGE PACKAGE. 12167 M01S09759.dsdi +++|* 12168 M01S09760.dsdi +++|* EXIT X6 = 12/0, 16/STL, 32/STA. 12169 M01S09761.dsdi +++|* 12170 M01S09762.dsdi +++|* USES A - 1, 2, 3. 12171 M01S09763.dsdi +++|* X - 1, 2, 3, 6. 12172 M01S09764.dsdi +++| 12173 M01S09765.dsdi +++| 12174 M01S09766.dsdi +++| CSI SUBR ENTRY/EXIT 12175 M01S09767.dsdi +++| SA1 BUF+128/2 SEGMENT TABLE LENGTH 12176 M01S09768.dsdi +++| SA2 BUF+272/2 SEGMENT TABLE ADDRESS 12177 M01S09769.dsdi +++| SA3 BUF+280/2 12178 M01S09770.dsdi +++| LX1 32 12179 M01S09771.dsdi +++| LX2 16 12180 M01S09772.dsdi +++| BX3 X1+X3 12181 M01S09773.dsdi +++| BX6 X3+X2 12182 M01S09774.dsdi +++| JP CSIX RETURN
| Line S09775 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 12183 M02S09775.271l739 ---| CST SPACE 4,6 12184 M01S00248.271l739 +++| CST SPACE 4,10 12185 M01S09776.dsdi +++|** CST - CREATE SUBTITLE LINE. 12186 M01S09777.dsdi +++|* READS SYSTEM DATE LINE FROM CM RECORD TO LISTING SUBTITLE. 12187 M01S09778.dsdi +++|* 12188 M01S00001.dsdi87 +++|* EXIT (ED) = 0 IF *EDD* DUMP. 12189 M01S00002.dsdi87 +++|* = 1 IF *DROPVE* DUMP. 12190 M01S00003.dsdi87 +++|* = 2 IF NO *CM* RECORD FOUND. 12191 M01S00004.dsdi87 +++|* 12192 M01S09779.dsdi +++|* USES X - 0, 1, 2, 3, 6. 12193 M01S09780.dsdi +++|* A - 1, 2, 3, 6. 12194 M01S09781.dsdi +++|* B - 2, 6, 7. 12195 M01S09782.dsdi +++|* 12196 M01S09783.dsdi +++|* CALLS PCM, PKS, UPS. 12197 M01S09784.dsdi +++|* 12198 M01S09785.dsdi +++|* MACROS GETCM, SEARCH. 12199 M01S09786.dsdi +++| 12200 M01S09787.dsdi +++| 12201 M01S00005.dsdi87 +++| CST2 SX6 2 12202 M01S00006.dsdi87 +++| SA6 ED ED = 2 IF NO CM RECORD FOUND 12203 M01S00007.dsdi87 +++| 12204 M01S09788.dsdi +++| CST SUBR 12205 M01S09789.dsdi +++| MX0 18
| Line S09790 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 12206 M02S09790.271l739 ---| SA1 =10HCM 12207 M01S00249.271l739 +++| SA1 .CMM 12208 M01S09791.dsdi +++| SEARCH TDIR,X1,X0 LOCATE CM RECORD 12209 M01S09792.dsdi +++| SA3 A2+3 12210 M01S09793.dsdi +++| NZ X2,CST1 IF *CM* RECORD PRESET
| Line S09794 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 12211 M02S09794.271l739 ---| SA1 =3LMEM
| Line S09795 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 12212 M02S09795.271l739 ---| SEARCH TDIR,X1,X0 LOCATE *MEM* RECORD 12213 M01S00250.271l739 +++| SA2 MH
| Line S09796 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi87 |
Seq # *Modification Id* Act ----------------------------+ 12214 M02S09796.dsdi87 ---| ZR X2,ERR4 IF NO CENTRAL MEMORY 12215 M01S00008.dsdi87 +++| ZR X2,CST2 IF NO CENTRAL MEMORY
| Line S09797 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | ns2706 |
Seq # *Modification Id* Act ----------------------------+ 12216 M02S09797.ns2706 ---| SX6 B1+ 12217 M01S00023.ns2706 +++| LX2 -18
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns2706 |
M02 (Updated by) | dsdi87 |
Seq # *Modification Id* Act ----------------------------+ 12218 M02S00024.dsdi87 ---| SX6 X2 0 IF *EDD* DUMP, NON-ZERO IF *DROPVE* DUMP
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2706 |
M02 (Updated by) | dsdi87 |
Seq # *Modification Id* Act ----------------------------+ 12219 M02S00025.dsdi87 ---| SA6 ED 12220 M01S00009.dsdi87 +++| SX6 X2 12221 M01S00010.dsdi87 +++| ZR X6,CST0 IF *EDD* DUMP 12222 M01S00011.dsdi87 +++| SX6 B1+ 12223 M01S00012.dsdi87 +++| CST0 SA6 ED ED = 0 IF *EDD* DUMP, = 1 IF *DROPVE* DUMP 12224 M01S00026.ns2706 +++| SX6 B1 12225 M01S00027.ns2706 +++| SA3 A2+B1 12226 M01S09798.dsdi +++| SA6 AP SET ADVANCED PROCESSOR FLAG 12227 M01S09799.dsdi +++| SA6 CE SET CM EXTENSION FLAG
| Line S09800 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | ns2706 |
Seq # *Modification Id* Act ----------------------------+ 12228 M02S09800.ns2706 ---| SA3 A2+B1 12229 M01S09801.dsdi +++| CST1 BX6 X3 12230 M01S09802.dsdi +++| ZR X6,ERR4 IF NO CENTRAL MEMORY 12231 M01S09803.dsdi +++| SA6 UI 12232 M01S09804.dsdi +++| SA6 RI 12233 M01S09805.dsdi +++| SA6 CI 12234 M01S09806.dsdi +++| SX3 TIML 12235 M01S09807.dsdi +++| RJ PCM POSITION DUMP FILE 12236 M01S09808.dsdi +++| GETCM CSTA,8 READ SYSTEM DATE/NAME LINE 12237 M01S09809.dsdi +++| SA2 CSTA 12238 M01S09810.dsdi +++| SB6 80 12239 M01S09811.dsdi +++| SB7 PRBF 12240 M01S09812.dsdi +++| RJ UPS UNPACK LINE 12241 M01S09813.dsdi +++| SB2 PRBF 12242 M01S09814.dsdi +++| SB6 80 12243 M01S09815.dsdi +++| SB7 SBTL2 12244 M01S09816.dsdi +++| RJ PKS REPACK LINE IN SUBTITLE 12245 M01S09817.dsdi +++| JP CSTX EXIT 12246 M01S09818.dsdi +++| 12247 M01S09819.dsdi +++| CSTA BSS 8 12248 M01S09820.dsdi +++| CTS SPACE 4,12 12249 M01S09821.dsdi +++|** CTS - CONVERT TO STRING BUFFER. 12250 M01S09822.dsdi +++|* 12251 M01S09823.dsdi +++|* ENTRY X1 = BINARY DIGITS LEFT JUSTIFIED. 12252 M01S09824.dsdi +++|* B6 = NUMBER OF DIGITS TO CONVERT. 12253 M01S09825.dsdi +++|* B7 = ADDRESS OF STRING BUFFER. 12254 M01S09826.dsdi +++|* 12255 M01S09827.dsdi +++|* EXIT B7 IS UPDATED. 12256 M01S09828.dsdi +++|* X1 IS LEFT SHIFTED (B6)*3 PLACES. 12257 M01S09829.dsdi +++|* 12258 M01S09830.dsdi +++|* SAVES X - 2,3,4,5,6. 12259 M01S09831.dsdi +++|* B - 1,2,3,4,5. 12260 M01S09832.dsdi +++|* A - 0,1. 12261 M01S09833.dsdi +++| 12262 M01S09834.dsdi +++| 12263 M01S09835.dsdi +++| CTS SUBR 12264 M01S09836.dsdi +++| SX0 7 DIGIT MASK 12265 M01S09837.dsdi +++| CTS1 LX1 3 SHIFT ASSEMBLY 12266 M01S09838.dsdi +++| BX7 X0*X1 12267 M01S09839.dsdi +++| SX7 X7+1R0 CONVERT DIGIT 12268 M01S09840.dsdi +++| SA7 B7 SET IN STRING BUFFER 12269 M01S09841.dsdi +++| SB7 B7+B1 ADVANCE INDEX 12270 M01S09842.dsdi +++| SB6 B6-1 DECREASE COUNT 12271 M01S09843.dsdi +++| NZ B6,CTS1 IF MORE DIGITS 12272 M01S09844.dsdi +++| JP CTSX EXIT 12273 M01S00028.ns2706 +++| CVB SPACE 4,10 12274 M01S00029.ns2706 +++|** CVB - CONVERT *NOS/VE* BUFFER. 12275 M01S00030.ns2706 +++|* 12276 M01S00031.ns2706 +++|* CONVERT 64-BIT WORDS IN *FBB* FORMAT TO 60-BIT FORMAT (BYTE 0 12277 M01S00032.ns2706 +++|* IS TRUNCATED) FOR PROCESSING *DROPVE* DUMPS. 12278 M01S00033.ns2706 +++|* 12279 M01S00034.ns2706 +++|* ENTRY (X3) = NUMBER OF WORDS TO CONVERT. MUST BE .GT. 0. 12280 M01S00035.ns2706 +++|* (CVBA) = CONVERTED BUFFER POINTER. 12281 M01S00036.ns2706 +++|* 12282 M01S00037.ns2706 +++|* EXIT (CVBA) UPDATED. 12283 M01S00038.ns2706 +++|* 12284 M01S00039.ns2706 +++|* USES X - 0, 1, 2, 3, 6. 12285 M01S00040.ns2706 +++|* A - 1, 2, 6. 12286 M01S00041.ns2706 +++| 12287 M01S00042.ns2706 +++| 12288 M01S00043.ns2706 +++| CVB SUBR ENTRY/EXIT 12289 M01S00044.ns2706 +++| SA1 ED
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns2706 |
M02 (Updated by) | dsdi87 |
Seq # *Modification Id* Act ----------------------------+ 12290 M02S00045.dsdi87 ---| ZR X1,CVBX IF NOT *DROPVE* DUMP 12291 M01S00013.dsdi87 +++| ZR X1,CVBX IF USING *CM* RECORD 12292 M01S00046.ns2706 +++| SA1 BUF-1 12293 M01S00047.ns2706 +++| SA2 CVBA GET POINTER 12294 M01S00048.ns2706 +++| CVB1 MX0 -28 12295 M01S00049.ns2706 +++| SA1 A1+B1 GET BYTES 0, 1 12296 M01S00050.ns2706 +++| BX6 -X0*X1 TRUNCATE BYTE 0 12297 M01S00051.ns2706 +++| LX6 32 12298 M01S00052.ns2706 +++| SA1 A1+B1 GET BYTES 3, 4 12299 M01S00053.ns2706 +++| BX6 X6+X1 12300 M01S00054.ns2706 +++| SA6 X2 STORE CONVERTED WORD 12301 M01S00055.ns2706 +++| SX2 X2+B1 UPDATE POINTER 12302 M01S00056.ns2706 +++| SX3 X3-1 12303 M01S00057.ns2706 +++| NZ X3,CVB1 IF MORE TO CONVERT 12304 M01S00058.ns2706 +++| BX6 X2 STORE UPDATED POINTER 12305 M01S00059.ns2706 +++| SA6 A2 12306 M01S00060.ns2706 +++| EQ CVBX RETURN 12307 M01S00061.ns2706 +++| 12308 M01S00062.ns2706 +++| 12309 M01S00063.ns2706 +++| CVBA CON 0 STORAGE ADDRESS 12310 M01S09845.dsdi +++| CVE SPACE 4,15 12311 M01S09846.dsdi +++|** CVE - CHECK CONTROLLER DATA VERIFICATION ERROR. 12312 M01S09847.dsdi +++|* 12313 M01S09848.dsdi +++|* ENTRY (B5) = LEFT SHIFT FOR LOGICAL DIFFERENCE. 12314 M01S09849.dsdi +++|* (X6) = VERIFICATION ERROR FLAG. 12315 M01S09850.dsdi +++|* 0 = NO ERROR. 12316 M01S09851.dsdi +++|* 10B = BIT 0 IN ERROR. 12317 M01S09852.dsdi +++|* 1-7 = CORRESPONDING BIT IN ERROR. 12318 M01S09853.dsdi +++|* 17B = MULTIPLE BIT FAILURE. 12319 M01S09854.dsdi +++|* 12320 M01S09855.dsdi +++|* EXIT (X6) = 0 IF NO VERIFICATION ERROR. 12321 M01S09856.dsdi +++|* (X6) .LT. 0 IF MULTIPLE BIT FAILURE. 12322 M01S09857.dsdi +++|* (X6) = SHIFTED LOGICAL DIFFERENCE FOR BIT IN ERROR. 12323 M01S09858.dsdi +++|* 12324 M01S09859.dsdi +++|* USES X - 6. 12325 M01S09860.dsdi +++|* B - 4. 12326 M01S09861.dsdi +++| 12327 M01S09862.dsdi +++| 12328 M01S09863.dsdi +++| CVE SUBR ENTRY/EXIT 12329 M01S09864.dsdi +++| ZR X6,CVEX IF NO ERROR 12330 M01S09865.dsdi +++| SB4 X6-10B 12331 M01S09866.dsdi +++| MX6 1 12332 M01S09867.dsdi +++| GT B4,CVEX IF MULTIPLE BIT FAILURE 12333 M01S09868.dsdi +++| SX6 B1 12334 M01S09869.dsdi +++| ZR B4,CVE1 IF BIT 0 IN ERROR 12335 M01S09870.dsdi +++| SB4 B4+10B VERIFICATION ERROR BIT NUMBER 12336 M01S09871.dsdi +++| CVE1 LX6 B4 12337 M01S09872.dsdi +++| LX6 B5 12338 M01S09873.dsdi +++| EQ CVEX RETURN 12339 M01S09874.dsdi +++| DBB SPACE 4,9 12340 M01S09875.dsdi +++|** DBB - DUMP BATCHIO BUFFER POINTS. 12341 M01S09876.dsdi +++|* 12342 M01S09877.dsdi +++|* ENTRY (A0) = RETURN ADDRESS. 12343 M01S09878.dsdi +++|* (CN) = CONTROL POINT NUMBER. 12344 M01S09879.dsdi +++|* (RC) = CONTROL POINT REFERENCE ADDRESS. 12345 M01S09880.dsdi +++|* 12346 M01S09881.dsdi +++|* USES X - ALL. 12347 M01S09882.dsdi +++|* A - 1, 2, 3, 4, 5, 6, 7. 12348 M01S09883.dsdi +++|* B - 2, 3, 4, 5, 6, 7. 12349 M01S09884.dsdi +++|* 12350 M01S09885.dsdi +++|* CALLS CTS, DFI, FDW, PCM, SDI, SSB, UPS. 12351 M01S09886.dsdi +++|* 12352 M01S09887.dsdi +++|* MACROS GETCM, PRINT. 12353 M01S09888.dsdi +++| 12354 M01S09889.dsdi +++| 12355 M01S09890.dsdi +++| DBB PRINT (=2C ) 12356 M01S09891.dsdi +++| PRINT (=C* BATCHIO BUFFER POINTS*) 12357 M01S09892.dsdi +++| 12358 M01S09893.dsdi +++|* PROCESS AVAILABLE EQUIPMENT TABLE. 12359 M01S09894.dsdi +++| 12360 M01S09895.dsdi +++| SA2 SSBF+/BIO/TEQR 12361 M01S09896.dsdi +++| SB6 5*7+4 MAXIMUM NUMBER OF EQUIPMENTS AVAILABLE 12362 M01S09897.dsdi +++| SB7 DBBA 12363 M01S09898.dsdi +++| LX2 12 SKIP COUNT FIELD 12364 M01S09899.dsdi +++| MX0 -12 12365 M01S09900.dsdi +++| SB5 4 BYTE COUNT FIRST WORD 12366 M01S09901.dsdi +++| JP DBB2 ENTER LOOP 12367 M01S09902.dsdi +++| 12368 M01S09903.dsdi +++| DBB1 SB5 5 BYTE COUNT REMAINING WORDS 12369 M01S09904.dsdi +++| DBB2 LX2 12 12370 M01S09905.dsdi +++| BX1 -X0*X2 NEXT BYTE 12371 M01S09906.dsdi +++| SB5 B5-B1 12372 M01S09907.dsdi +++| SB6 B6-B1 12373 M01S09908.dsdi +++| ZR X1,DBB3 IF END OF TABLE 12374 M01S09909.dsdi +++| NG B6,DBB3 IF MAXIMUM REACHED 12375 M01S09910.dsdi +++| AX1 3 12376 M01S09911.dsdi +++| BX6 -X0*X2 12377 M01S09912.dsdi +++| LX6 9 12378 M01S09913.dsdi +++| BX6 -X0*X6 12379 M01S09914.dsdi +++| LX6 54-9 12380 M01S09915.dsdi +++| BX6 X6+X1 12381 M01S09916.dsdi +++| SA6 B7+ STORE ENTRY INTO EQUIPMENT TYPE TABLE 12382 M01S09917.dsdi +++| SB7 B7+1 12383 M01S09918.dsdi +++| NZ B5,DBB2 IF MORE BYTES IN THIS WORD 12384 M01S09919.dsdi +++| SA2 A2+1 READ NEXT WORD 12385 M01S09920.dsdi +++| JP DBB1 CONTINUE 12386 M01S09921.dsdi +++| 12387 M01S09922.dsdi +++| DBB3 SX6 B0 12388 M01S09923.dsdi +++| SA6 B7 INDICATE END 12389 M01S09924.dsdi +++| 12390 M01S09925.dsdi +++|* CHECK FOR TWO EQUIPMENTS AT SAME ORDINAL. 12391 M01S09926.dsdi +++| 12392 M01S09927.dsdi +++| SB5 DBBA 12393 M01S09928.dsdi +++| DBB4 SB7 B7-1 12394 M01S09929.dsdi +++| SB6 B7+ 12395 M01S09930.dsdi +++| LE B7,B5,DBB6 IF NO EQUIPMENTS MATCH 12396 M01S09931.dsdi +++| SA1 B7+ 12397 M01S09932.dsdi +++| DBB5 SB6 B6-B1 12398 M01S09933.dsdi +++| SA2 B6 12399 M01S09934.dsdi +++| LT B6,B5,DBB4 IF NO MATCH YET 12400 M01S09935.dsdi +++| BX3 X1-X2 COMPARE ORDINALS 12401 M01S09936.dsdi +++| BX4 -X0*X3 12402 M01S09937.dsdi +++| NZ X4,DBB5 IF NO MATCH 12403 M01S09938.dsdi +++| PRINT (=2C ) 12404 M01S09939.dsdi +++| PRINT (=C+ *********WARNING - BATCHIO AVAILABLE EQUIPMENT TA 12405 M01S09940.dsdi +++|,BLE ERROR, TWO MATCHING ORDINALS+) 12406 M01S09941.dsdi +++| 12407 M01S09942.dsdi +++|* CLEAR FET ADDRESS TABLE. 12408 M01S09943.dsdi +++| 12409 M01S09944.dsdi +++| DBB6 SB5 DBBB 12410 M01S09945.dsdi +++| MX6 1 12411 M01S09946.dsdi +++| SB6 DBBB+/BIO/MXEQ 12412 M01S09947.dsdi +++| DBB7 SB6 B6-1 12413 M01S09948.dsdi +++| LT B6,B5,DBB8 IF FINISHED 12414 M01S09949.dsdi +++| SA6 B6+ 12415 M01S09950.dsdi +++| JP DBB7 12416 M01S09951.dsdi +++| 12417 M01S09952.dsdi +++|* SET ACTIVE BUFFER POINT COUNT. 12418 M01S09953.dsdi +++| 12419 M01S09954.dsdi +++| DBB8 SA2 =3L1CD SET PP NAME MASK 12420 M01S09955.dsdi +++| BX0 X2 12421 M01S09956.dsdi +++| SX5 0 SET INITIAL COUNT 12422 M01S09957.dsdi +++| SB3 /BIO/D1AR SET 1ST DRIVER ASSIGNMENT WORD ADDRESS 12423 M01S09958.dsdi +++| DBB9 SA2 RC SET DRIVER WORD ADDRESS 12424 M01S09959.dsdi +++| SX7 B3 SAVE ADDRESS 12425 M01S09960.dsdi +++| IX3 X2+X7 12426 M01S09961.dsdi +++| SA7 DBBI 12427 M01S09962.dsdi +++| RJ PCM POSITION TO DRIVER ASSIGNMENT WORD 12428 M01S09963.dsdi +++| GETCM 12429 M01S09964.dsdi +++| BX3 X0-X6 12430 M01S09965.dsdi +++| AX3 42 12431 M01S09966.dsdi +++| NZ X3,DBB10 IF *1CD* NOT RUNNING 12432 M01S09967.dsdi +++| LX6 36 12433 M01S09968.dsdi +++| AX6 48 12434 M01S09969.dsdi +++| IX5 X5+X6 ADD INTO COUNT 12435 M01S09970.dsdi +++| DBB10 SA2 DBBI CHECK NEXT ASSIGNMENT WORD 12436 M01S09971.dsdi +++| SB3 X2+B1 12437 M01S09972.dsdi +++| SB6 /BIO/DRQR 12438 M01S09973.dsdi +++| NE B3,B6,DBB11 IF THREE WORDS NOT PROCESSED 12439 M01S09974.dsdi +++| MX0 -12 SET BUFFER POINT NUMBER MASK 12440 M01S09975.dsdi +++| SX7 X5 SAVE COUNT 12441 M01S09976.dsdi +++| SA7 DBBH 12442 M01S09977.dsdi +++| 12443 M01S09978.dsdi +++|* SET FET ADDRESS TABLE. 12444 M01S09979.dsdi +++| 12445 M01S09980.dsdi +++| SX5 /BIO/BUFR ADDRESS OF FIRST FET 12446 M01S09981.dsdi +++| SX7 /BIO/MXEQ 12447 M01S09982.dsdi +++| SA7 DBBC SET MAXIMUM NUMBER OF FETS TO PROCESS 12448 M01S09983.dsdi +++| DBB11 SA3 DBBH 12449 M01S09984.dsdi +++| ZR X3,DBB16 IF OUT OF FETS 12450 M01S09985.dsdi +++| SA2 RC 12451 M01S09986.dsdi +++| IX3 X2+X5 12452 M01S09987.dsdi +++| SX6 X5 12453 M01S09988.dsdi +++| SA6 DBBD SAVE CURRENT FET ADDRESS 12454 M01S09989.dsdi +++| RJ PCM 12455 M01S09990.dsdi +++| GETCM DBBE,6 12456 M01S09991.dsdi +++| SA2 DBBE+5 12457 M01S09992.dsdi +++| LX2 12 12458 M01S09993.dsdi +++| BX3 -X0*X2 BUFFER POINT INDEX 12459 M01S09994.dsdi +++| ZR X3,DBB13 IF NO BUFFER POINT 12460 M01S09995.dsdi +++| SX3 X3-/BIO/BFCW+2 12461 M01S09996.dsdi +++| AX3 1 BUFFER POINT 12462 M01S09997.dsdi +++| SX4 X3-/BIO/MXEQ-1 12463 M01S09998.dsdi +++| SB3 X3 12464 M01S09999.dsdi +++| NG X4,DBB12 IF VALID BUFFER POINT 12465 M01S10000.dsdi +++| PRINT (=2C ) 12466 M01S10001.dsdi +++| PRINT (=C+ *********WARNING - INVALID BATCHIO FET BUFFER POI 12467 M01S10002.dsdi +++|,NT+) 12468 M01S10003.dsdi +++| SX7 X5 ADDRESS OF FET 12469 M01S10004.dsdi +++| SA1 CN 12470 M01S10005.dsdi +++| BX6 X1 CONTROL POINT NUMBER 12471 M01S10006.dsdi +++| SX5 -1 12472 M01S10007.dsdi +++| RJ DFI DUMP FILE INFORMATION 12473 M01S10008.dsdi +++| JP DBB13 ADVANCE FET ADDRESS 12474 M01S10009.dsdi +++| 12475 M01S10010.dsdi +++| DBB12 SX6 X5+ 12476 M01S10011.dsdi +++| SA6 B3+DBBB SET FET ADDRESS INTO TABLE 12477 M01S10012.dsdi +++| DBB13 SA3 DBBE+4 12478 M01S10013.dsdi +++| SA5 DBBD CURRENT FET ADDRESS 12479 M01S10014.dsdi +++| SX4 X3 NEXT FET ADDRESS 12480 M01S10015.dsdi +++| IX1 X5-X4 12481 M01S10016.dsdi +++| NG X1,DBB14 IF CORRECT LINKAGE 12482 M01S10017.dsdi +++| PRINT (=2C ) 12483 M01S10018.dsdi +++| PRINT (=C+ *********WARNING - BATCHIO FET LINKAGE ERROR+) 12484 M01S10019.dsdi +++| SX7 X5 ADDRESS OF FET 12485 M01S10020.dsdi +++| SA1 CN 12486 M01S10021.dsdi +++| BX6 X1 CONTROL POINT NUMBER 12487 M01S10022.dsdi +++| SX5 -1 12488 M01S10023.dsdi +++| RJ DFI DUMP FILE INFORMATION 12489 M01S10024.dsdi +++| JP DBB30 TERMINATE DIRECTIVE 12490 M01S10025.dsdi +++| 12491 M01S10026.dsdi +++| DBB14 SX5 X4+ SET FET ADDRESS 12492 M01S10027.dsdi +++| SA3 DBBE 12493 M01S10028.dsdi +++| MX6 24 CHECK FOR JSN 12494 M01S10029.dsdi +++| BX6 X6*X3 12495 M01S10030.dsdi +++| ZR X6,DBB15 IF NO JSN IN FET 12496 M01S10031.dsdi +++| SA3 DBBH DECREMENT BUFFER POINT COUNT 12497 M01S10032.dsdi +++| SX6 X3-1 12498 M01S10033.dsdi +++| SA6 A3+ 12499 M01S10034.dsdi +++| DBB15 SA1 DBBC 12500 M01S10035.dsdi +++| SX6 X1-1 12501 M01S10036.dsdi +++| SA6 A1+ DECREMENT MAXIMUM NUMBER OF FETS 12502 M01S10037.dsdi +++| NZ X6,DBB11 IF MAXIMUM NOT PROCESSED 12503 M01S10038.dsdi +++| 12504 M01S10039.dsdi +++|* FIND LOCATION OF BUFFER POINTS IN NEGATIVE FL. 12505 M01S10040.dsdi +++| 12506 M01S10041.dsdi +++| DBB16 SX6 B0+ 12507 M01S10042.dsdi +++| SA6 DBBG PRESET BUFFER POINT NUMBER 12508 M01S10043.dsdi +++| DBB17 SA1 F.TNFL FORM ADDRESS OF BUFFER POINTS IN *TNFL* 12509 M01S10044.dsdi +++| SA2 L.TNFL 12510 M01S10045.dsdi +++| SX5 /BIO/BFCW+2 12511 M01S10046.dsdi +++| IX1 X1+X2 12512 M01S10047.dsdi +++| IX6 X1-X5 12513 M01S10048.dsdi +++| SA6 DBBF LOCATION-2 OF BUFFER POINTS 12514 M01S10049.dsdi +++| 12515 M01S10050.dsdi +++|* DUMP BUFFER POINTS. 12516 M01S10051.dsdi +++| 12517 M01S10052.dsdi +++| SA1 DBBG 12518 M01S10053.dsdi +++| SX6 X1+1 12519 M01S10054.dsdi +++| SA6 A1+ 12520 M01S10055.dsdi +++| SX2 X6-/BIO/MXEQ-1 12521 M01S10056.dsdi +++| SX5 X6+ BUFFER POINT NUMBER 12522 M01S10057.dsdi +++| ZR X2,DBB30 IF ALL BUFFER POINTS DUMPED 12523 M01S10058.dsdi +++| PRINT (=2C ) 12524 M01S10059.dsdi +++| RJ SSB CLEAR PRINT STRING 12525 M01S10060.dsdi +++| 12526 M01S10061.dsdi +++|* SET BUFFER POINT, FIRST WORD. 12527 M01S10062.dsdi +++| 12528 M01S10063.dsdi +++| SA2 DBBF 12529 M01S10064.dsdi +++| LX0 X5,B1 12530 M01S10065.dsdi +++| IX4 X0+X2 12531 M01S10066.dsdi +++| SA1 X4 12532 M01S10067.dsdi +++| ZR X1,DBB30 IF ALL ACTIVE BUFFER POINTS DUMPED 12533 M01S10068.dsdi +++| BX6 X1 SAVE FIRST WORD 12534 M01S10069.dsdi +++| SA6 DBBJ 12535 M01S10070.dsdi +++| SB7 PRBF+36 12536 M01S10071.dsdi +++| SA2 =4000005B FORMAT CONTROL 12537 M01S10072.dsdi +++| RJ FDW 12538 M01S10073.dsdi +++| BX2 X1 12539 M01S10074.dsdi +++| SB6 10 12540 M01S10075.dsdi +++| RJ SDI 12541 M01S10076.dsdi +++| 12542 M01S10077.dsdi +++|* SET BUFFER POINT NUMBER. 12543 M01S10078.dsdi +++| 12544 M01S10079.dsdi +++| SB7 PRBF 12545 M01S10080.dsdi +++| SA2 =13HBUFFER POINT 12546 M01S10081.dsdi +++| SB6 13 12547 M01S10082.dsdi +++| RJ UPS 12548 M01S10083.dsdi +++| BX1 X5 12549 M01S10084.dsdi +++| LX1 -6 12550 M01S10085.dsdi +++| SB6 2 12551 M01S10086.dsdi +++| RJ CTS CONVERT BUFFER POINT NUMBER 12552 M01S10087.dsdi +++| 12553 M01S10088.dsdi +++|* SET EQUIPMENT TYPE. 12554 M01S10089.dsdi +++| 12555 M01S10090.dsdi +++| SA2 =17HEQUIPMENT TYPE = 12556 M01S10091.dsdi +++| SB6 17 12557 M01S10092.dsdi +++| SB7 PRBF+74 12558 M01S10093.dsdi +++| RJ UPS 12559 M01S10094.dsdi +++| 12560 M01S10095.dsdi +++|* FIND EQUIPMENT TYPE. 12561 M01S10096.dsdi +++| 12562 M01S10097.dsdi +++| MX6 -12 12563 M01S10098.dsdi +++| SA3 DBBJ GET FIRST WORD OF BUFFER POINT AREA 12564 M01S10099.dsdi +++| AX3 12 12565 M01S10100.dsdi +++| BX1 -X6*X3 12566 M01S10101.dsdi +++| ZR X1,DBB24 IF EST NOT SPECIFIED 12567 M01S10102.dsdi +++| SB4 DBBA-1 12568 M01S10103.dsdi +++| DBB18 SB4 B4+B1 12569 M01S10104.dsdi +++| SA2 B4 12570 M01S10105.dsdi +++| ZR X2,DBB23 IF NOT FOUND 12571 M01S10106.dsdi +++| BX3 X1-X2 COMPARE ENTRIES 12572 M01S10107.dsdi +++| BX4 -X6*X3 12573 M01S10108.dsdi +++| NZ X4,DBB18 IF MATCH NOT FOUND YET 12574 M01S10109.dsdi +++| AX2 54 12575 M01S10110.dsdi +++| BX3 -X6*X2 12576 M01S10111.dsdi +++| SX2 X3-/BIO/LPDT 12577 M01S10112.dsdi +++| ZR X2,DBB19 IF PRINTER 12578 M01S10113.dsdi +++| SX2 X3-/BIO/CPDT 12579 M01S10114.dsdi +++| ZR X2,DBB20 IF CARD PUNCH 12580 M01S10115.dsdi +++| SX2 X3-/BIO/CRDT 12581 M01S10116.dsdi +++| ZR X2,DBB21 IF CARD READER 12582 M01S10117.dsdi +++| SX2 X3-/BIO/NPDT 12583 M01S10118.dsdi +++| ZR X2,DBB22 IF NON-IMPACT PRINTER 12584 M01S10119.dsdi +++| SA2 =13HINCORRECT 12585 M01S10120.dsdi +++| JP DBB25 MOVE NAME TO BUFFER 12586 M01S10121.dsdi +++| 12587 M01S10122.dsdi +++| DBB19 SA2 =13HPRINTER 12588 M01S10123.dsdi +++| JP DBB25 MOVE NAME TO BUFFER 12589 M01S10124.dsdi +++| 12590 M01S10125.dsdi +++| DBB20 SA2 =13HCARD PUNCH 12591 M01S10126.dsdi +++| JP DBB25 MOVE NAME TO BUFFER 12592 M01S10127.dsdi +++| 12593 M01S10128.dsdi +++| DBB21 SA2 =13HCARD READER 12594 M01S10129.dsdi +++| JP DBB25 MOVE NAME TO BUFFER 12595 M01S10130.dsdi +++| 12596 M01S10131.dsdi +++| DBB22 SA2 =13HNIP PRINTER 12597 M01S10132.dsdi +++| JP DBB25 MOVE NAME TO BUFFER 12598 M01S10133.dsdi +++| 12599 M01S10134.dsdi +++| DBB23 SA2 =13HNOT FOUND 12600 M01S10135.dsdi +++| JP DBB25 MOVE NAME TO BUFFER 12601 M01S10136.dsdi +++| 12602 M01S10137.dsdi +++| DBB24 SA2 =13HNOT SPECIFIED 12603 M01S10138.dsdi +++| DBB25 SB6 13 12604 M01S10139.dsdi +++| RJ UPS 12605 M01S10140.dsdi +++| BX0 X1 12606 M01S10141.dsdi +++| PRINT CCCH,B7-CCCH 12607 M01S10142.dsdi +++| 12608 M01S10143.dsdi +++|* SET BUFFER POINT, SECOND WORD. 12609 M01S10144.dsdi +++| 12610 M01S10145.dsdi +++| RJ SSB CLEAR PRINT STRING 12611 M01S10146.dsdi +++| BX3 X0 12612 M01S10147.dsdi +++| SA2 DBBF 12613 M01S10148.dsdi +++| LX0 X5,B1 12614 M01S10149.dsdi +++| IX4 X0+X2 12615 M01S10150.dsdi +++| SA1 X4+B1 12616 M01S10151.dsdi +++| SB7 PRBF+36 12617 M01S10152.dsdi +++| SA2 =4000005B FORMAT CONTROL 12618 M01S10153.dsdi +++| RJ FDW 12619 M01S10154.dsdi +++| BX2 X1 12620 M01S10155.dsdi +++| SB6 10 12621 M01S10156.dsdi +++| RJ SDI 12622 M01S10157.dsdi +++| ZR X3,DBB26 IF NO EST SPECIFIED 12623 M01S10158.dsdi +++| 12624 M01S10159.dsdi +++|* SET EST. 12625 M01S10160.dsdi +++| 12626 M01S10161.dsdi +++| SA2 =6HEST - 12627 M01S10162.dsdi +++| SB6 6 12628 M01S10163.dsdi +++| SB7 PRBF+74 12629 M01S10164.dsdi +++| RJ UPS 12630 M01S10165.dsdi +++| SA1 F.TCMT 12631 M01S10166.dsdi +++| SB2 X1+ 12632 M01S10167.dsdi +++| SA2 B2+ESTP 12633 M01S10168.dsdi +++| AX2 36 12634 M01S10169.dsdi +++| R= X4,ESTE 12635 M01S10170.dsdi +++| IX3 X3*X4 12636 M01S10171.dsdi +++| IX1 X2+X3 EST ADDRESS 12637 M01S10172.dsdi +++| SX1 X1+EQDE 12638 M01S10173.dsdi +++| SA3 B2+X1 EST 12639 M01S10174.dsdi +++| LX1 -18 12640 M01S10175.dsdi +++| SB6 6 12641 M01S10176.dsdi +++| RJ CTS 12642 M01S10177.dsdi +++| BX1 X3 12643 M01S10178.dsdi +++| SB7 B7+2 12644 M01S10179.dsdi +++| SA2 =4000005B FORMAT CONTROL 12645 M01S10180.dsdi +++| RJ FDW 12646 M01S10181.dsdi +++| BX2 X1 12647 M01S10182.dsdi +++| SB6 10 12648 M01S10183.dsdi +++| RJ SDI 12649 M01S10184.dsdi +++| DBB26 PRINT CCCH,B7-CCCH 12650 M01S10185.dsdi +++| PRINT (=2C ) 12651 M01S10186.dsdi +++| 12652 M01S10187.dsdi +++|* DUMP FET. 12653 M01S10188.dsdi +++| 12654 M01S10189.dsdi +++| MX0 24 12655 M01S10190.dsdi +++| SA4 DBBJ GET BUFFER POINT JSN 12656 M01S10191.dsdi +++| BX4 X0*X4 12657 M01S10192.dsdi +++| ZR X4,DBB17 IF NO ASSOCIATED FET 12658 M01S10193.dsdi +++| SX0 /BIO/MXEQ 12659 M01S10194.dsdi +++| DBB27 SX0 X0-1 GET JSN OF FET 12660 M01S10195.dsdi +++| NG X0,DBB28 IF END OF TABLE 12661 M01S10196.dsdi +++| SA5 DBBB+X0 12662 M01S10197.dsdi +++| NG X5,DBB27 IF NULL ENTRY PROCESS NEXT ENTRY 12663 M01S10198.dsdi +++| NZ X5,DBB29 IF STILL SEARCHING FET ADDRESS TABLE 12664 M01S10199.dsdi +++| DBB28 PRINT (=2C ) 12665 M01S10200.dsdi +++| PRINT (=C+ *********WARNING - EXPECTED FET ADDRESS NOT FOUND 12666 M01S10201.dsdi +++|,+) 12667 M01S10202.dsdi +++| EQ DBB17 CHECK NEXT BUFFER POINT 12668 M01S10203.dsdi +++| 12669 M01S10204.dsdi +++| DBB29 SA3 RC READ FIRST WORD OF FET 12670 M01S10205.dsdi +++| IX3 X5+X3 12671 M01S10206.dsdi +++| RJ PCM 12672 M01S10207.dsdi +++| GETCM 12673 M01S10208.dsdi +++| SA4 DBBJ 12674 M01S10209.dsdi +++| BX1 X6-X4 12675 M01S10210.dsdi +++| AX1 36 12676 M01S10211.dsdi +++| NZ X1,DBB27 IF NO MATCHING JSN 12677 M01S10212.dsdi +++| SX7 X5+ SET FET ADDRESS 12678 M01S10213.dsdi +++| SA1 CN 12679 M01S10214.dsdi +++| BX6 X1 CONTROL POINT NUMBER 12680 M01S10215.dsdi +++| SX5 -1 12681 M01S10216.dsdi +++| RJ DFI DUMP FILE INFORMATION 12682 M01S10217.dsdi +++| JP DBB17 CONTINUE 12683 M01S10218.dsdi +++| 12684 M01S10219.dsdi +++| DBB30 SB2 A0 12685 M01S10220.dsdi +++| JP B2 RETURN 12686 M01S10221.dsdi +++| 12687 M01S10222.dsdi +++| DBBA BSS 5*10B EQUIPMENT TYPE TABLE 12688 M01S10223.dsdi +++|*T DBBA 6/ TYPE, 42/, 12/ ORD
Figure DBBA
12689 M01S10224.dsdi +++|* TYPE = DEVICE TYPE, SEE *COMSBIO*. 12690 M01S10225.dsdi +++|* ORD = EST ORDINAL. 12691 M01S10226.dsdi +++| DBBB BSS /BIO/MXEQ FET ADDRESS TABLE 12692 M01S10227.dsdi +++| DBBC BSS 1 MAXIMUM NUMBER OF FETS REMAINING 12693 M01S10228.dsdi +++| DBBD BSS 1 CURRENT FET ADDRESS 12694 M01S10229.dsdi +++| DBBE BSS 6 FET 12695 M01S10230.dsdi +++| DBBF BSS 1 LOCATION-2 OF BUFFER POINTS 12696 M01S10231.dsdi +++| DBBG BSS 1 CURRENT BUFFER POINT NUMBER 12697 M01S10232.dsdi +++| DBBH BSS 1 NUMBER OF ACTIVE BUFFER POINTS 12698 M01S10233.dsdi +++| DBBI BSS 1 CURRENT DRIVER ASSIGNMENT WORD ADDRESS 12699 M01S10234.dsdi +++| DBBJ BSS 1 FIRST WORD OF CURRENT BUFFER POINT AREA 12700 M01S10235.dsdi +++| DBP SPACE 4,7 12701 M01S10236.dsdi +++|** DBP - DUMP BATCHIO PPUS. 12702 M01S10237.dsdi +++|* 12703 M01S10238.dsdi +++|* ENTRY A0 = RETURN ADDRESS. 12704 M01S10239.dsdi +++|* 12705 M01S10240.dsdi +++|* USES ALL REGISTERS. 12706 M01S10241.dsdi +++|* 12707 M01S10242.dsdi +++|* CALLS ASP. 12708 M01S10243.dsdi +++| 12709 M01S10244.dsdi +++| 12710 M01S10245.dsdi +++| DBP SX6 DBPA 12711 M01S10246.dsdi +++| JP ASP 12712 M01S10247.dsdi +++| 12713 M01S10248.dsdi +++| DBPA VFD 18/3L1CD,42/0 12714 M01S10249.dsdi +++| VFD 18/3L1IO,42/0 12715 M01S10250.dsdi +++| VFD 18/3LDSP,42/0 12716 M01S10251.dsdi +++| VFD 18/3LQAC,42/0 12717 M01S10252.dsdi +++| VFD 18/3LQAP,42/0 12718 M01S10253.dsdi +++| VFD 60/-1 END OF PARAMETER BLOCK
| Line S10254 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi91 |
Seq # *Modification Id* Act ----------------------------+ 12719 M02S10254.dsdi91 ---| DBT SPACE 4,10 12720 M01S00001.dsdi91 +++| DBT SPACE 4,25 12721 M01S10255.dsdi +++|** DBT - DUMP BUFFERED DEVICE TABLE. 12722 M01S10256.dsdi +++|* 12723 M01S10257.dsdi +++|* ENTRY (X5) = TABLE DESCRIPTION ADDRESS. 12724 M01S10258.dsdi +++|* (X6) = ADDRESS OF PRINTER FORMAT TABLE POINTERS. 12725 M01S10259.dsdi +++|* (X6)+1 = ADDRESS OF TERMINAL FORMAT TABLE POINTERS. 12726 M01S10260.dsdi +++|* (X7) = TABLE NAME ADDRESS. 12727 M01S10261.dsdi +++|* (B2) = TABLE ENTRY INDEX IN BUFFERED DEVICE TABLE. 12728 M01S10262.dsdi +++|* 12729 M01S10263.dsdi +++|* ERROR TO *ERR6*, IF CONVERSION ERROR ON SELECTED 12730 M01S10264.dsdi +++|* ENTRY NUMBER. 12731 M01S10265.dsdi +++|* TO *ERR16*, IF PROCESSING FULL TABLE DUMP WITH 12732 M01S10266.dsdi +++|* TERMINAL OUTPUT. 12733 M01S10267.dsdi +++|* TO *ERR34*, IF NO BUFFERED DEVICE TABLE ON 12734 M01S10268.dsdi +++|* DUMP FILE. 12735 M01S10269.dsdi +++|* TO *ERR35*, IF SELECTED ENTRY BEYOND TABLE BOUNDARY. 12736 M01S10270.dsdi +++|* 12737 M01S10271.dsdi +++|* USES X - 1, 2, 3, 4, 6. 12738 M01S10272.dsdi +++|* A - 1, 2, 3, 4, 6, 7. 12739 M01S10273.dsdi +++|* B - 2, 6, 7. 12740 M01S10274.dsdi +++|* 12741 M01S10275.dsdi +++|* CALLS ASD, CLE, GTD, GTE, LDC, PEN, POM, SCM, SRA. 12742 M01S10276.dsdi +++|* 12743 M01S10277.dsdi +++|* MACROS GETCM, PRINT. 12744 M01S10278.dsdi +++| 12745 M01S10279.dsdi +++| 12746 M01S10280.dsdi +++| DBT SUBR ENTRY/EXIT 12747 M01S10281.dsdi +++| SA6 DBTA STORE FORMAT TABLE POINTERS ADDRESS 12748 M01S10282.dsdi +++| SA7 DBTB STORE TABLE NAME ADDRESS 12749 M01S00002.dsdi91 +++| RJ SCM SET CENTRAL MEMORY 12750 M01S00003.dsdi91 +++| SX1 B2 SAVE (B2) ACROSS *LDC* CALL 12751 M01S00004.dsdi91 +++| LX5 18 12752 M01S00005.dsdi91 +++| BX5 X5+X1 12753 M01S10283.dsdi +++| RJ LDC LIST DIRECTIVE 12754 M01S10284.dsdi +++| SA2 F.TCMT 12755 M01S00006.dsdi91 +++| SB2 X5 RESTORE (B2), (X5) 12756 M01S00007.dsdi91 +++| AX5 18 12757 M01S10285.dsdi +++| SA1 X2+BIOL 12758 M01S10286.dsdi +++| AX1 24 12759 M01S10287.dsdi +++| SX1 X1 12760 M01S10288.dsdi +++| ZR X1,ERR34 IF TABLE NOT ON DUMP FILE 12761 M01S10289.dsdi +++| SX6 X1+B2 12762 M01S10290.dsdi +++| SA6 CPRA 12763 M01S10291.dsdi +++| PRINT (=2C ) 12764 M01S10292.dsdi +++| PRINT X5 PRINT TABLE DESCRIPTION 12765 M01S10293.dsdi +++| PRINT (=2C ) 12766 M01S10294.dsdi +++| PRINT (=2C ) 12767 M01S10295.dsdi +++| SX6 B0 12768 M01S10296.dsdi +++| RJ SRA SET REFERENCE ADDRESS 12769 M01S10297.dsdi +++| SB2 CPRA 12770 M01S10298.dsdi +++| RJ POM POSITION TO *BDT* ENTRY 12771 M01S10299.dsdi +++| GETCM 12772 M01S10300.dsdi +++| SA6 BE STORE *BDT* ENTRY FOR TABLE
| Line S10301 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi91 |
Seq # *Modification Id* Act ----------------------------+ 12773 M02S10301.dsdi91 ---| RJ SCM SET CENTRAL MEMORY 12774 M01S10302.dsdi +++| SB7 B0 ASSUME OCTAL BASE 12775 M01S10303.dsdi +++| RJ ASD GET NEXT ENTRY NUMBER 12776 M01S10304.dsdi +++| NZ X4,ERR6 IF CONVERSION ERROR 12777 M01S10305.dsdi +++| NZ B6,DBT5 IF PROCESSING SELECTED ENTRIES 12778 M01S10306.dsdi +++| 12779 M01S10307.dsdi +++|* PROCESS FULL TABLE DUMP. 12780 M01S10308.dsdi +++| 12781 M01S10309.dsdi +++| SA1 TF 12782 M01S10310.dsdi +++| NZ X1,ERR16 IF OUTPUT TO TERMINAL 12783 M01S10311.dsdi +++| SX6 -1 PRESET ENTRY NUMBER 12784 M01S10312.dsdi +++| SA6 DBTC 12785 M01S10313.dsdi +++| DBT1 SA4 DBTC 12786 M01S10314.dsdi +++| SX4 X4+1 INCREMENT ENTRY NUMBER 12787 M01S10315.dsdi +++| RJ CLE CHECK FOR LAST ENTRY 12788 M01S10316.dsdi +++| PL X3,DBTX IF ALL TABLE ENTRIES DUMPED 12789 M01S10317.dsdi +++| SX6 X1+ STORE ENTRY LENGTH 12790 M01S10318.dsdi +++| SA6 DBTD 12791 M01S10319.dsdi +++| SA3 BE GET TABLE FWA 12792 M01S10320.dsdi +++| SX3 X3 12793 M01S10321.dsdi +++| IX6 X0+X3 12794 M01S10322.dsdi +++| SA6 FW SET ENTRY ADDRESS IN DUMP FILE 12795 M01S10323.dsdi +++| SX6 X4+ 12796 M01S10324.dsdi +++| SA6 DBTC STORE ENTRY NUMBER 12797 M01S10325.dsdi +++| ZR X4,DBT2 IF DUMPING FIRST ENTRY 12798 M01S10326.dsdi +++| SX3 0 CLEAR IF NOT FIRST CALL 12799 M01S10327.dsdi +++| DBT2 RJ GTE GET TABLE ENTRY FWA IN CORE 12800 M01S10328.dsdi +++| SB2 B0 12801 M01S10329.dsdi +++| SA1 DBTD GET ENTRY LENGTH 12802 M01S10330.dsdi +++| SB3 X1 12803 M01S10331.dsdi +++| DBT3 SA1 X5+B2 GET ENTRY WORD 12804 M01S10332.dsdi +++| NZ X1,DBT4 IF NONZERO ENTRY 12805 M01S10333.dsdi +++| SB2 B2+B1 12806 M01S10334.dsdi +++| LT B2,B3,DBT3 IF MORE WORDS TO CHECK 12807 M01S10335.dsdi +++| EQ DBT1 CHECK NEXT ENTRY 12808 M01S10336.dsdi +++| 12809 M01S10337.dsdi +++| DBT4 SB6 4 12810 M01S10338.dsdi +++| SA1 DBTC GET ENTRY NUMBER 12811 M01S10339.dsdi +++| LX1 -12 12812 M01S10340.dsdi +++| SA2 DBTB SET TABLE NAME ADDRESS 12813 M01S10341.dsdi +++| SA2 X2 12814 M01S10342.dsdi +++| RJ PEN PRINT ENTRY NUMBER 12815 M01S10343.dsdi +++| SA1 FW 12816 M01S10344.dsdi +++| IX6 X5-X1 12817 M01S10345.dsdi +++| SB2 X6 SET DATA ADDRESS IN CORE BUFFER 12818 M01S10346.dsdi +++| SA1 DBTA SET FORMAT TABLE POINTERS 12819 M01S10347.dsdi +++| SA1 X1+ 12820 M01S10348.dsdi +++| RJ GTD GENERATE DETAILED TABLE ENTRY DUMP 12821 M01S10349.dsdi +++| PRINT (=2C ) 12822 M01S10350.dsdi +++| EQ DBT1 DUMP NEXT ENTRY 12823 M01S10351.dsdi +++| 12824 M01S10352.dsdi +++|* PROCESS DUMP OF SELECTED TABLE ENTRIES. 12825 M01S10353.dsdi +++| 12826 M01S10354.dsdi +++| DBT5 SX4 X6+ 12827 M01S10355.dsdi +++| SA6 DBTC SAVE ENTRY NUMBER 12828 M01S10356.dsdi +++| RJ CLE CHECK FOR VALID ENTRY NUMBER 12829 M01S10357.dsdi +++| PL X3,ERR35 IF ENTRY BEYOND END OF TABLE 12830 M01S10358.dsdi +++| SA3 BE 12831 M01S10359.dsdi +++| SX3 X3 12832 M01S10360.dsdi +++| IX6 X0+X3 12833 M01S10361.dsdi +++| SA6 FW SET ENTRY ADDRESS IN DUMP FILE 12834 M01S10362.dsdi +++| NZ B6,DBT6 IF FIRST ENTRY TO BE DUMPED 12835 M01S10363.dsdi +++| SX3 0 CLEAR IF NOT FIRST ENTRY 12836 M01S10364.dsdi +++| DBT6 RJ GTE GET TABLE ENTRY FWA IN CORE 12837 M01S10365.dsdi +++| SB6 4 12838 M01S10366.dsdi +++| SA1 DBTC GET ENTRY NUMBER 12839 M01S10367.dsdi +++| LX1 -12 12840 M01S10368.dsdi +++| SA2 DBTB SET TABLE NAME ADDRESS 12841 M01S10369.dsdi +++| SA2 X2+ 12842 M01S10370.dsdi +++| RJ PEN PRINT ENTRY NUMBER 12843 M01S10371.dsdi +++| SA1 DBTA GET FORMAT TABLE POINTERS 12844 M01S10372.dsdi +++| SA3 TF 12845 M01S10373.dsdi +++| ZR X3,DBT7 IF PRINTER OUTPUT 12846 M01S10374.dsdi +++| SX1 X1+1 SET FOR TERMINAL OUTPUT 12847 M01S10375.dsdi +++| DBT7 SA1 X1 12848 M01S10376.dsdi +++| SA3 FW 12849 M01S10377.dsdi +++| IX6 X5-X3 12850 M01S10378.dsdi +++| SB2 X6 SET DATA ADDRESS IN CORE BUFFER 12851 M01S10379.dsdi +++| RJ GTD GENERATE DETAILED TABLE ENTRY DUMP 12852 M01S10380.dsdi +++| PRINT (=2C ) 12853 M01S10381.dsdi +++| SB7 B0 ASSUME OCTAL BASE 12854 M01S10382.dsdi +++| RJ ASD GET NEXT ENTRY NUMBER 12855 M01S10383.dsdi +++| NZ X4,ERR6 IF CONVERSION ERROR 12856 M01S10384.dsdi +++| ZR B6,DBTX IF NO MORE ENTRIES TO DUMP 12857 M01S10385.dsdi +++| SB6 B0 SET AS NOT FIRST ENTRY DUMPED 12858 M01S10386.dsdi +++| EQ DBT5 DUMP NEXT ENTRY 12859 M01S10387.dsdi +++| 12860 M01S10388.dsdi +++| DBTA BSS 1 FORMAT TABLE POINTERS ADDRESS 12861 M01S10389.dsdi +++| DBTB BSS 1 TABLE NAME ADDRESS 12862 M01S10390.dsdi +++| DBTC BSS 1 ENTRY NUMBER 12863 M01S10391.dsdi +++| DBTD BSS 1 ENTRY LENGTH 12864 M01S10392.dsdi +++| DCA SPACE 4,9 12865 M01S10393.dsdi +++|** DCA - DUMP JOB DAYFILE POINTERS AND BUFFER. 12866 M01S10394.dsdi +++|* 12867 M01S10395.dsdi +++|* ENTRY (A0) = RETURN ADDRESS. 12868 M01S10396.dsdi +++|* (CN) = CONTROL POINT NUMBER. 12869 M01S10397.dsdi +++|* (NC) = NUMBER OF CONTROL POINTS - 1. 12870 M01S10398.dsdi +++|* 12871 M01S10399.dsdi +++|* USES X - 1, 2. 12872 M01S10400.dsdi +++|* A - 1, 2. 12873 M01S10401.dsdi +++|* B - 2. 12874 M01S10402.dsdi +++|* 12875 M01S10403.dsdi +++|* CALLS GDB, PDB, PDP. 12876 M01S10404.dsdi +++|* 12877 M01S10405.dsdi +++|* MACROS PRINT. 12878 M01S10406.dsdi +++| 12879 M01S10407.dsdi +++| 12880 M01S10408.dsdi +++| DCA SA1 CN 12881 M01S10409.dsdi +++| SA2 NC 12882 M01S00335.271l716 +++| SX2 X2+B1 12883 M01S10410.dsdi +++| IX1 X2-X1
| Line S10411 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 12884 M02S10411.271l716 ---| NG X1,DCA2 IF SYSTEM CONTROL POINT 12885 M01S00336.271l716 +++| ZR X1,DCA2 IF SYSTEM CONTROL POINT 12886 M01S10412.dsdi +++| PRINT (=2C ) 12887 M01S10413.dsdi +++| PRINT (=C* DAYFILE POINTERS AND BUFFER*) 12888 M01S10414.dsdi +++| PRINT (=2C ) 12889 M01S10415.dsdi +++| RJ GDB GET DAYFILE BUFFERS 12890 M01S10416.dsdi +++| NG X1,DCA2 IF INSUFFICIENT NFL SPACE 12891 M01S10417.dsdi +++| RJ PDP PRINT DAYFILE POINTERS 12892 M01S10418.dsdi +++| PRINT (=2C ) 12893 M01S10419.dsdi +++| RJ PDB PRINT DAYFILE BUFFER 12894 M01S10420.dsdi +++| DCA2 SB2 A0 GET RETURN ADDRESS 12895 M01S10421.dsdi +++| JP B2 RETURN
| Line S10422 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12896 M02S10422.dsdi71a ---| DCC SPACE 4,10 12897 M01S00015.dsdi71a +++| DCC SPACE 4,15 12898 M01S10423.dsdi +++|** DCC - DUMP FIELD LENGTH IN *C* FORMAT. 12899 M01S10424.dsdi +++|* 12900 M01S10425.dsdi +++|* ENTRY (A0) = RETURN ADDRESS. 12901 M01S10426.dsdi +++|* (CN) = CONTROL POINT NUMBER. 12902 M01S10427.dsdi +++|* (FW) = CONTROL POINT AREA ADDRESS. 12903 M01S10428.dsdi +++|* (NC) = NUMBER OF CONTROL POINTS - 1. 12904 M01S10429.dsdi +++|* 12905 M01S10430.dsdi +++|* USES X - 1, 2, 3, 6, 7.
| Line S10431 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12906 M02S10431.dsdi71a ---|* A - 1, 2, 6, 7. 12907 M01S00016.dsdi71a +++|* USES X - 1, 2, 6, 7. 12908 M01S10432.dsdi +++|* B - 2. 12909 M01S10433.dsdi +++|*
| Line S10434 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12910 M02S10434.dsdi71a ---|* CALLS PMD, POM, SCM, SRA. 12911 M01S00017.dsdi71a +++|* CALLS GFL, PMD, POM, SCM, SRA. 12912 M01S10435.dsdi +++|* 12913 M01S10436.dsdi +++|* MACROS PRINT. 12914 M01S10437.dsdi +++| 12915 M01S10438.dsdi +++| 12916 M01S10439.dsdi +++| DCC SX6 0 12917 M01S10440.dsdi +++| DCC1 SA1 CN 12918 M01S10441.dsdi +++| SA2 NC 12919 M01S00337.271l716 +++| SX2 X2+B1 12920 M01S10442.dsdi +++| IX1 X2-X1
| Line S10443 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 12921 M02S10443.271l716 ---| NG X1,DCC2 IF SYSTEM CONTROL POINT 12922 M01S00338.271l716 +++| ZR X1,DCC2 IF SYSTEM CONTROL POINT 12923 M01S10444.dsdi +++| SA6 CPRA+4 SET FORMAT CODE IN PARAMETER BLOCK 12924 M01S10445.dsdi +++| PRINT (=2C ) 12925 M01S10446.dsdi +++| PRINT (=C* FIELD LENGTH*) 12926 M01S10447.dsdi +++| PRINT (=2C ) 12927 M01S00018.dsdi71a +++| SA1 FW CP AREA ADDRESS 12928 M01S00019.dsdi71a +++| RJ GFL GET FL, RA 12929 M01S10448.dsdi +++| SB2 CPRA SET PARAMETER BLOCK ADDRESS
| Line S10449 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12930 M02S10449.dsdi71a ---| SA1 FW CP AREA ADDRESS
| Line S10450 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12931 M02S10450.dsdi71a ---| SA2 F.TCMT
| Line S10451 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12932 M02S10451.dsdi71a ---| IX1 X1+X2
| Line S10452 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12933 M02S10452.dsdi71a ---| MX3 -12
| Line S10453 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12934 M02S10453.dsdi71a ---| SA2 X1+FLSW
| Line S10454 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12935 M02S10454.dsdi71a ---| BX7 -X3*X2
| Line S10455 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12936 M02S10455.dsdi71a ---| AX2 12
| Line S10456 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12937 M02S10456.dsdi71a ---| MX3 -15
| Line S10457 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12938 M02S10457.dsdi71a ---| BX6 -X3*X2
| Line S10458 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12939 M02S10458.dsdi71a ---| LX6 6 RA
| Line S10459 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12940 M02S10459.dsdi71a ---| LX7 6 FL 12941 M01S10460.dsdi +++| SA7 B2+B1 SET LWA+1 OF DUMP
| Line S10461 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act ----------------------------+ 12942 M02S10461.dsdi71a ---| SX7 0 12943 M01S00020.dsdi71a +++| BX7 X7-X7 12944 M01S10462.dsdi +++| SA7 B2+ SET FWA 12945 M01S10463.dsdi +++| RJ SRA SET REFERENCE ADDRESS 12946 M01S10464.dsdi +++| RJ SCM SELECT CM DUMP 12947 M01S10465.dsdi +++| DCC1.1 SB2 CPRA 12948 M01S10466.dsdi +++| RJ POM POSITION DUMP FILE 12949 M01S10467.dsdi +++| SB2 CPRA 12950 M01S10468.dsdi +++| RJ PMD PROCESS DUMP 12951 M01S10469.dsdi +++| DCC2 SB2 A0 12952 M01S10470.dsdi +++| JP B2 RETURN 12953 M01S10471.dsdi +++| DCD SPACE 4 12954 M01S10472.dsdi +++|** DCD - DUMP FIELD LENGTH IN *D* FORMAT. 12955 M01S10473.dsdi +++| 12956 M01S10474.dsdi +++| 12957 M01S10475.dsdi +++| DCD SX6 1 FORMAT CODE 12958 M01S10476.dsdi +++| JP DCC1 PROCESS DUMP 12959 M01S10477.dsdi +++| DCE SPACE 4 12960 M01S10478.dsdi +++|** DCE - DUMP FIELD LENGTH IN *E* FORMAT. 12961 M01S10479.dsdi +++| 12962 M01S10480.dsdi +++| 12963 M01S10481.dsdi +++| DCE SX6 2 FORMAT CODE 12964 M01S10482.dsdi +++| JP DCC1 PROCESS DUMP 12965 M01S10483.dsdi +++| DCF SPACE 4,10 12966 M01S10484.dsdi +++|** DCF - DUMP ATTACHED FILES. 12967 M01S10485.dsdi +++|* 12968 M01S10486.dsdi +++|* ENTRY (A0) = RETURN ADDRESS. 12969 M01S10487.dsdi +++|* (CN) = CONTROL POINT NUMBER. 12970 M01S10488.dsdi +++|* (NC) = NUMBER OF CONTROL POINTS - 1. 12971 M01S10489.dsdi +++|* 12972 M01S10490.dsdi +++|* USES X - 1, 2, 6. 12973 M01S10491.dsdi +++|* A - 1, 2, 6. 12974 M01S10492.dsdi +++|* B - 2. 12975 M01S10493.dsdi +++|* 12976 M01S10494.dsdi +++|* CALLS CNL, GNF, PFS. 12977 M01S10495.dsdi +++|* 12978 M01S10496.dsdi +++|* MACROS PRINT. 12979 M01S10497.dsdi +++| 12980 M01S10498.dsdi +++| 12981 M01S10499.dsdi +++| DCF SA1 CN 12982 M01S10500.dsdi +++| SA2 NC 12983 M01S00339.271l716 +++| SX2 X2+B1 12984 M01S10501.dsdi +++| IX1 X2-X1
| Line S10502 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 12985 M02S10502.271l716 ---| NG X1,DCF1.1 IF SYSTEM CONTROL POINT 12986 M01S00340.271l716 +++| ZR X1,DCF1.1 IF SYSTEM CONTROL POINT 12987 M01S10503.dsdi +++| SX6 FNTN 12988 M01S10504.dsdi +++| SA6 FI PRESET SEARCH INDEX 12989 M01S10505.dsdi +++| PRINT (=2C ) 12990 M01S10506.dsdi +++| PRINT (=C* ATTACHED FILES*) 12991 M01S10507.dsdi +++| PRINT (=2C ) 12992 M01S10508.dsdi +++| RJ CNL CHECK NFL LENGTH 12993 M01S10509.dsdi +++| NG X1,DCF1.1 IF INSUFFICIENT NFL SPACE 12994 M01S10510.dsdi +++| DCF1 RJ GNF GET NEXT FILE 12995 M01S10511.dsdi +++| NZ X1,DCF2 IF FILE FOUND 12996 M01S10512.dsdi +++| DCF1.1 SB2 A0 GET RETURN ADDRESS 12997 M01S10513.dsdi +++| JP B2 RETURN 12998 M01S10514.dsdi +++| 12999 M01S10515.dsdi +++| DCF2 RJ PFS PRINT FILE SUMMARY 13000 M01S10516.dsdi +++| JP DCF1 CONTINUE 13001 M01S10517.dsdi +++| DCG SPACE 4,10 13002 M01S10518.dsdi +++|** DCG - DUMP CONTROL POINT AREA IN *C* FORMAT. 13003 M01S10519.dsdi +++|* 13004 M01S10520.dsdi +++|* ENTRY FW = CONTROL POINT AREA ADDRESS. 13005 M01S10521.dsdi +++|* A0 = RETURN ADDRESS. 13006 M01S10522.dsdi +++|* 13007 M01S10523.dsdi +++|* SAVES X - NONE. 13008 M01S10524.dsdi +++|* B - 1. 13009 M01S10525.dsdi +++|* A - 0. 13010 M01S10526.dsdi +++|* 13011 M01S10527.dsdi +++|* CALLS PMD,SCM,SRA,WOF. 13012 M01S10528.dsdi +++| 13013 M01S10529.dsdi +++| 13014 M01S10530.dsdi +++| DCG SX6 0 13015 M01S10531.dsdi +++| DCG1 SA6 DCGA+4 SET FORMAT CODE 13016 M01S10532.dsdi +++| PRINT (=2C ) 13017 M01S10533.dsdi +++| PRINT (=C* CONTROL POINT AREA*) 13018 M01S10534.dsdi +++| PRINT (=2C ) 13019 M01S10535.dsdi +++| SA1 FW 13020 M01S10536.dsdi +++| SA2 F.TCMT 13021 M01S10537.dsdi +++| IX6 X1+X2 13022 M01S10538.dsdi +++| BX7 X1 13023 M01S10539.dsdi +++| SA6 DCGA+2 CORE ADDRESS OF CP AREA DATA 13024 M01S10540.dsdi +++| SA7 DCGA DUMP FWA 13025 M01S10541.dsdi +++| SX6 X7+CPLEN 13026 M01S10542.dsdi +++| SA6 DCGA+1 DUMP LWA+1 13027 M01S10543.dsdi +++| SX6 0 13028 M01S10544.dsdi +++| RJ SRA RESET REFERENCE ADDRESS 13029 M01S10545.dsdi +++| SB2 DCGA DUMP PARAMETER BLOCK ADDRESS 13030 M01S10546.dsdi +++| RJ SCM SELECT CM 13031 M01S10547.dsdi +++| RJ PMD PROCESS DUMP 13032 M01S10548.dsdi +++| SB2 A0 13033 M01S10549.dsdi +++| JP B2 RETURN 13034 M01S10550.dsdi +++| 13035 M01S10551.dsdi +++| DCGA BSS 0 DUMP PARAMETER BLOCK 13036 M01S10552.dsdi +++| CON 0 FWA 13037 M01S10553.dsdi +++| CON 0 LWA+1 13038 M01S10554.dsdi +++| CON 0 CORE ADDRESS 13039 M01S10555.dsdi +++| CON 0 NO SUPPRESS FLAG 13040 M01S10556.dsdi +++| CON 0 FORMAT CODE 13041 M01S10557.dsdi +++| CON 0 COLUMN LENGTH 13042 M01S10558.dsdi +++| CON 0 INVERTED ADDRESS 13043 M01S10559.dsdi +++| DCI SPACE 4 13044 M01S10560.dsdi +++|** DCI - DUMP CONTROL POINT AREA IN *E* FORMAT. 13045 M01S10561.dsdi +++| 13046 M01S10562.dsdi +++| 13047 M01S10563.dsdi +++| DCI SX6 2 FORMAT CODE 13048 M01S10564.dsdi +++| JP DCG1 PROCESS DUMP 13049 M01S10565.dsdi +++| DCJ SPACE 4 13050 M01S10566.dsdi +++|** DCJ - DUMP CONTROL POINT AREA IN *D* FORMAT. 13051 M01S10567.dsdi +++| 13052 M01S10568.dsdi +++| 13053 M01S10569.dsdi +++| DCJ SX6 1 FORMAT CODE 13054 M01S10570.dsdi +++| JP DCG1 PROCESS DUMP 13055 M01S10571.dsdi +++| DCM SPACE 4,20 13056 M01S10572.dsdi +++|** DCM - DUMP CONTROL POINT EXTENDED MEMORY (USER ECS) 13057 M01S10573.dsdi +++|* IN *D* FORMAT. 13058 M01S10574.dsdi +++|* 13059 M01S10575.dsdi +++|* ENTRY (A0) = RETURN ADDRESS. 13060 M01S10576.dsdi +++|* (CN) = CONTROL POINT NUMBER. 13061 M01S10577.dsdi +++|* (FW) = CONTROL POINT AREA ADDRESS. 13062 M01S10578.dsdi +++|* (NC) = NUMBER OF CONTROL POINTS - 1. 13063 M01S10579.dsdi +++|* (UE) = USER EXTENDED MEMORY SHIFT COUNT. 13064 M01S10580.dsdi +++|* 13065 M01S10581.dsdi +++|* EXIT (A0) = RETURN ADDRESS. 13066 M01S10582.dsdi +++|* TO *DCC1.1* TO PROCESS USER EXTENDED MEMORY FL DUMP. 13067 M01S10583.dsdi +++|* TO *DCC2* IF NO USER EXTENDED MEMORY FL TO DUMP. 13068 M01S10584.dsdi +++|* 13069 M01S10585.dsdi +++|* USES X - 1, 2, 3, 6, 7.
| Line S10586 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 13070 M02S10586.271l716 ---|* A - 0, 1, 2, 6, 7. 13071 M01S00341.271l716 +++|* A - 0, 1, 2, 3, 6, 7. 13072 M01S10587.dsdi +++|* B - 2. 13073 M01S10588.dsdi +++|*
| Line S10589 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 13074 M02S10589.271l716 ---|* CALLS SEM, SRA. 13075 M01S00342.271l716 +++|* CALLS SEC, SEM, SRA. 13076 M01S10590.dsdi +++|* 13077 M01S10591.dsdi +++|* MACROS PRINT. 13078 M01S10592.dsdi +++| 13079 M01S10593.dsdi +++| 13080 M01S10594.dsdi +++| DCM SA1 CN 13081 M01S10595.dsdi +++| SA2 NC 13082 M01S10596.dsdi +++| SA3 UE 13083 M01S00343.271l716 +++| SX2 X2+B1 13084 M01S10597.dsdi +++| IX1 X2-X1
| Line S10598 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 13085 M02S10598.271l716 ---| NG X1,DCC2 IF SYSTEM CONTROL POINT 13086 M01S00344.271l716 +++| ZR X1,DCC2 IF SYSTEM CONTROL POINT 13087 M01S10599.dsdi +++| SX6 B1 SELECT *D* FORMAT DUMP 13088 M01S10600.dsdi +++| SB2 X3+9 13089 M01S10601.dsdi +++| SA6 CPRA+4 13090 M01S10602.dsdi +++| SA1 F.TCMT 13091 M01S10603.dsdi +++| SA2 FW CP AREA ADDRESS 13092 M01S10604.dsdi +++| IX2 X1+X2 13093 M01S10605.dsdi +++| MX3 -12 13094 M01S10606.dsdi +++| SA2 X2+ECSW GET CONTROL POINT RAE AND FLE 13095 M01S10607.dsdi +++| BX7 -X3*X2 13096 M01S10608.dsdi +++| LX2 -12 13097 M01S10609.dsdi +++| ZR X7,DCC2 IF NO USER EXTENDED MEMORY FL 13098 M01S10610.dsdi +++| MX6 -24 13099 M01S10611.dsdi +++| BX6 -X6*X2 EXTENDED MEMORY RA 13100 M01S10612.dsdi +++| LX7 B2 13101 M01S10613.dsdi +++| SA7 CPRA+1 SET LWA+1 OF DUMP 13102 M01S10614.dsdi +++| BX7 X7-X7 13103 M01S10615.dsdi +++| LX6 B2 13104 M01S10616.dsdi +++| SA7 A7-B1 SET FWA OF DUMP 13105 M01S10617.dsdi +++| SX7 A0+ SAVE RETURN ADDRESS 13106 M01S10618.dsdi +++| SA7 DCMA 13107 M01S10619.dsdi +++| RJ SRA SET REFERENCE ADDRESS 13108 M01S10620.dsdi +++| PRINT (=2C ) 13109 M01S10621.dsdi +++| PRINT (=C* USER EXTENDED MEMORY FIELD LENGTH*) 13110 M01S10622.dsdi +++| PRINT (=2C ) 13111 M01S00122.dsdi71 +++| SA1 SBTL1 SAVE SUBTITLE 13112 M01S00123.dsdi71 +++| BX6 X1 13113 M01S00124.dsdi71 +++| SA6 DCMB 13114 M01S10623.dsdi +++| RJ SEM SET UNIFIED EXTENDED MEMORY (UEM) 13115 M01S10624.dsdi +++| NG X3,DCM1 IF UEM DEFINED 13116 M01S10625.dsdi +++| RJ SEC SET EXTENDED CORE STORAGE
| Line S10626 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act ----------------------------+ 13117 M02S10626.dsdi71 ---| DCM1 SA2 =10HUEC SET USER EXTENDED MEMORY SUBTITLE
| Line S10627 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act ----------------------------+ 13118 M02S10627.dsdi71 ---| BX7 X2
| Line S10628 Modification History | |
|---|---|
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act ----------------------------+ 13119 M02S10628.dsdi71 ---| SA7 SBTL1 13120 M01S00125.dsdi71 +++| DCM1 SA2 =3RUEC SET USER EXTENDED MEMORY SUBTITLE 13121 M01S00126.dsdi71 +++| SA1 DCMB 13122 M01S00127.dsdi71 +++| LX1 -6 13123 M01S00128.dsdi71 +++| MX7 -18 13124 M01S00129.dsdi71 +++| BX1 X7*X1 13125 M01S00130.dsdi71 +++| BX7 X1+X2 13126 M01S00131.dsdi71 +++| LX7 6 13127 M01S10629.dsdi +++| SA1 DCMA RESTORE RETURN ADDRESS 13128 M01S10630.dsdi +++| SA0 X1 13129 M01S00132.dsdi71 +++| SA7 SBTL1 13130 M01S10631.dsdi +++| EQ DCC1.1 PROCESS DUMP 13131 M01S10632.dsdi +++| 13132 M01S10633.dsdi +++| 13133 M01S10634.dsdi +++| DCMA CON 0 RETURN ADDRESS 13134 M01S00133.dsdi71 +++| DCMB CON 0 CONTROL POINT SUBTITLE 13135 M01S10635.dsdi +++| DCN SPACE 4,10 13136 M01S10636.dsdi +++|** DCN - DUMP NEGATIVE FIELD LENGTH IN *D* FORMAT.
Proceed to Part 10
cdc/nos2.source/opl.opl871/deck/dsdi.009.txt · Last modified: by 127.0.0.1