cdc:nos2.source:opl.opl871:deck:probe.001
Deck PROBE Part 001
11 Modifications
Listing Sections
- Deck PROBE Start
- Deck PROBE Part 1 (Line 1613)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01613 M01S00010.271l716 +++| ARRAY SDX [0:0] S(18); 01614 M00S01262.probe +++| BEGIN
| Line S01263 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01615 M01S01263.v23l617 ---| ITEM SDXL$ZERO1 U(00,24,12); # WORST CASE *MXN* TIME # 01616 M01S01264.v23l617 ---| ITEM SDXL$ZERO2 U(00,36,12); # WORST CASE CYCLE TIME # 01617 M01S01265.v23l617 ---| ITEM SDXL$ONE1 U(01,00,30); # NUMBER OF ECS STORAGE MOVES # 01618 M01S01266.v23l617 ---| ITEM SDXL$ONE2 U(01,30,30); # NUMBER OF CM STORAGE MOVES # 01619 M01S01267.v23l617 ---| ITEM SDXL$TWO1 U(02,00,24); # NUMBER OF ROLLOUTS # 01620 M01S01268.v23l617 ---| ITEM SDXL$TWO2 U(02,24,36); # NUMBER OF SECTORS ROLLED # 01621 M01S01269.v23l617 ---| ITEM SDXL$THRE1 U(03,12,24); # COUNT OF TIME SLICES WITH 01622 M01S01270.v23l617 ---| OUTPUT # 01623 M01S01271.v23l617 ---| ITEM SDXL$THRE2 U(03,36,24); # COUNT OF TIME SLICES # 01624 M01S01272.v23l617 ---| ITEM SDXL$FOUR1 U(04,24,18); # COMMUNICATIONS BUFFER NOT 01625 M01S01273.v23l617 ---| AVAILABLE # 01626 M01S01274.v23l617 ---| ITEM SDXL$FOUR2 U(04,42,18); # PP PRIORITY EXCHANGE REQUEST # 01627 M01S01275.v23l617 ---| ITEM SDXL$SIX1 U(06,12,24); # COUNT OF TIMES RECALL STACK 01628 M01S01276.v23l617 ---| FULL # 01629 M01S01277.v23l617 ---| ITEM SDXL$SIX2 U(06,36,24); # COUNT OF FL INCREASES FOR 01630 M01S01278.v23l617 ---| NEGATIVE FL #
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01631 M01S00073.v23l617 +++| ITEM SDX$1SJEJ U(00,00,24); # EJT SCANS # 01632 M01S00074.v23l617 +++| ITEM SDX$1SJSJ U(00,24,36); # SCHEDULABLE JOBS # 01633 M01S00075.v23l617 +++| ITEM SDX$1SJJP U(01,12,24); # JOBS PREEMPTED # 01634 M01S00076.v23l617 +++| ITEM SDX$1SJJS U(01,36,24); # JOBS SCHEDULED # 01635 M01S00077.v23l617 +++| ITEM SDX$1SJJN U(02,12,24); # JOBS SCHEDULED NO CONSTRAINTS # 01636 M01S00078.v23l617 +++| ITEM SDX$1SJIC U(02,36,24); # EJT SCANS INSUFFICIENT CM # 01637 M01S00079.v23l617 +++| ITEM SDX$1SJIE U(03,12,24); # EJT SCANS INSUFFICIENT EM # 01638 M01S00080.v23l617 +++| ITEM SDX$1SJNC U(03,36,24); # EJT SCANS NO CP # 01639 M01S00081.v23l617 +++| ITEM SDX$1SJRR U(04,12,24); # ROLLOUTS FOR RESOURCE LIMITS # 01640 M01S00082.v23l617 +++| ITEM SDX$1SJTS U(04,36,24); # TIME SLICES # 01641 M01S00083.v23l617 +++| ITEM SDX$MTRMC U(05,12,12); # MTR MISSED CLOCK UPDATES # 01642 M01S00084.v23l617 +++| ITEM SDX$MTRWX U(05,24,12); # WORST CASE *MXN* TIME # 01643 M01S00085.v23l617 +++| ITEM SDX$MTRWC U(05,36,12); # WORST CASE *MTR* CYCLE TIME # 01644 M01S00086.v23l617 +++| ITEM SDX$CMM U(06,00,60); # CM STORAGE MOVES # 01645 M01S00087.v23l617 +++| ITEM SDX$EMM U(07,00,60); # EM STORAGE MOVES #
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01646 M02S00088.271l716 ---| ITEM SDX$CBN U(08,00,60); # COMMUNICATION BUFFER NOT 01647 M02S00089.271l716 ---| AVAILABLE # 01648 M02S00090.271l716 ---| ITEM SDX$PRX U(09,00,60); # PP PRIORITY EXCHANGES # 01649 M02S00091.271l716 ---| ITEM SDX$ROT U(10,00,60); # ROLLOUTS # 01650 M02S00092.271l716 ---| ITEM SDX$ROS U(11,00,60); # SECONDARY ROLLOUTS # 01651 M02S00093.271l716 ---| ITEM SDX$SOT U(12,00,60); # SECTORS ROLLED OUT # 01652 M02S00094.271l716 ---| ITEM SDX$SOS U(13,00,60); # SECONDARY SECTORS ROLLED OUT #
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01653 M01S00011.271l716 +++| ITEM SDX$DMM U(08,00,60); # DIRECT MOVES # 01654 M01S00012.271l716 +++| ITEM SDX$CBN U(09,00,60); # NO COMMUNICATION BUFFER # 01655 M01S00013.271l716 +++| ITEM SDX$PRX U(10,00,60); # PP PRIORITY EXCHANGES # 01656 M01S00014.271l716 +++| ITEM SDX$ROT U(11,00,60); # ROLLOUTS # 01657 M01S00015.271l716 +++| ITEM SDX$POT U(12,00,60); # PSEUDO-ROLLOUTS # 01658 M01S00016.271l716 +++| ITEM SDX$PCT U(13,00,60); # PCP ROLLOUTS # 01659 M01S00017.271l716 +++| ITEM SDX$ROS U(14,00,60); # SECONDARY ROLLOUTS # 01660 M01S00018.271l716 +++| ITEM SDX$SOT U(15,00,60); # SECTORS ROLLED OUT # 01661 M01S00019.271l716 +++| ITEM SDX$SOS U(16,00,60); # SECONDARY SECTORS ROLLED OUT # 01662 M01S00020.271l716 +++| ITEM SDX$PCN U(17,00,60); # NO PSEUDO-CONTROL POINTS #
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01663 M01S00010.283l840 +++| ITEM SDX$DMCBA U(18,00,12); # CURRENT *BRT* ENTRIES ACTIVE # 01664 M01S00011.283l840 +++| ITEM SDX$DMMBA U(18,12,12); # MAXIMUM *BRT* ENTRIES ACTIVE # 01665 M01S00012.283l840 +++| ITEM SDX$DMBER U(18,24,12); # *BRT* ENTRIES REJECTED # 01666 M01S00013.283l840 +++| ITEM SDX$DMTBE U(18,36,24); # TOTAL *BRT* ENTRIES CREATED # 01667 M01S00014.283l840 +++| ITEM SDX$DMCCT U(19,00,12); # CURRENT *MTE* CYCLE TIME # 01668 M01S00015.283l840 +++| ITEM SDX$DMMCT U(19,12,12); # MAXIMUM *MTE* CYCLE TIME # 01669 M01S00016.283l840 +++| ITEM SDX$DMBIA U(19,24,12); # *BATI* INTLK TRIES ABANDONED # 01670 M01S00017.283l840 +++| ITEM SDX$DMTBR U(19,36,24); # TOTAL *BAT* REQUESTS # 01671 M01S00018.283l840 +++| ITEM SDX$DMCS U(20,00,60); # UNUSED ITEM - REMOVE LATER # 01672 M00S01279.probe +++| END 01673 M00S01280.probe +++| 01674 M00S01281.probe +++| CONTROL EJECT; 01675 M00S01282.probe +++| 01676 M00S01283.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",3); # OUTPUT BLANK LINE # 01677 M00S01284.probe +++|
| Line S01285 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01678 M01S01285.v23l617 ---| P<SDXL> = SFM$BUFF[SDAL];
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01679 M01S00095.v23l617 +++| P<SDX> = SFM$BUFF[SDA]; 01680 M00S01286.probe +++| 01681 M00S01287.probe +++| RPLINE(LOC(OUTFET),MPPL0,10,26,END$LN); 01682 M00S01288.probe +++| 01683 M00S01289.probe +++| LINE$LABS[0] = MPPL1;
| Line S01290 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01684 M01S01290.v23l617 ---| TEMP = XCDD(SDXL$ZERO1); 01685 M01S01291.v23l617 ---| LINE$DATA1[0] = TEMP; # SET WORST CASE #
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01686 M01S00096.v23l617 +++| TEMP = XCDD(SDX$MTRWX); 01687 M01S00097.v23l617 +++| LINE$DATA[0] = TEMP; # WORST CASE CYCLE TIME # 01688 M00S01292.probe +++|
| Line S01293 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01689 M01S01293.v23l617 ---| RPLINE(LOC(OUTFET),LINE,15,60,END$LN);
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01690 M01S00098.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01691 M00S01294.probe +++| 01692 M00S01295.probe +++| LINE$LABS[0] = MPPL2;
| Line S01296 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01693 M01S01296.v23l617 ---| TEMP = XCDD(SDXL$ZERO2); 01694 M01S01297.v23l617 ---| LINE$DATA1[0] = TEMP; # SET CYCLE TIME #
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01695 M01S00099.v23l617 +++| TEMP = XCDD(SDX$MTRWC); 01696 M01S00100.v23l617 +++| LINE$DATA[0] = TEMP; # WORST CASE *MXN* TIME # 01697 M00S01298.probe +++|
| Line S01299 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01698 M01S01299.v23l617 ---| RPLINE(LOC(OUTFET),LINE,15,60,END$LN);
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01699 M01S00101.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01700 M01S00102.v23l617 +++| 01701 M01S00103.v23l617 +++| LINE$LABS[0] = MPPL14; 01702 M01S00104.v23l617 +++| TEMP = XCDD(SDX$MTRMC); 01703 M01S00105.v23l617 +++| LINE$DATA[0] = TEMP; # MISSED CLOCK UPDATES # 01704 M01S00106.v23l617 +++| 01705 M01S00107.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01706 M00S01300.probe +++| 01707 M00S01301.probe +++| 01708 M00S01302.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01709 M00S01303.probe +++| 01710 M00S01304.probe +++| 01711 M00S01305.probe +++| RPLINE(LOC(OUTFET),MPPL3,10,29,END$LN); # SECTION HEADER # 01712 M00S01306.probe +++| 01713 M00S01307.probe +++| LINE$LABS[0] = MPPL4;
| Line S01308 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01714 M01S01308.v23l617 ---| TEMP = XCDD(SDXL$ONE1); 01715 M01S01309.v23l617 ---| LINE$DATA1[0] = TEMP; # SET ECS STORAGE MOVES #
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01716 M01S00108.v23l617 +++| TEMP = XCDD(SDX$EMM); 01717 M01S00109.v23l617 +++| LINE$DATA[0] = TEMP; # EM STORAGE MOVES # 01718 M00S01310.probe +++|
| Line S01311 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01719 M01S01311.v23l617 ---| RPLINE(LOC(OUTFET),LINE,15,60,END$LN);
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01720 M01S00110.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01721 M00S01312.probe +++| 01722 M00S01313.probe +++| LINE$LABS[0] = MPPL5;
| Line S01314 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01723 M01S01314.v23l617 ---| TEMP = XCDD(SDXL$ONE2); 01724 M01S01315.v23l617 ---| LINE$DATA1[0] = TEMP; # SET CM STORAGE MOVES #
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01725 M01S00111.v23l617 +++| TEMP = XCDD(SDX$CMM); 01726 M01S00112.v23l617 +++| LINE$DATA[0] = TEMP; # CM STORAGE MOVES # 01727 M00S01316.probe +++|
| Line S01317 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01728 M01S01317.v23l617 ---| RPLINE(LOC(OUTFET),LINE,15,60,END$LN);
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01729 M01S00113.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN);
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01730 M01S00021.271l716 +++| 01731 M01S00022.271l716 +++| LINE$LABS[0] = MPPL27; 01732 M01S00023.271l716 +++| TEMP = XCDD(SDX$DMM); 01733 M01S00024.271l716 +++| LINE$DATA[0] = TEMP; # DIRECT MOVES # 01734 M01S00025.271l716 +++| 01735 M01S00026.271l716 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01736 M00S01318.probe +++| 01737 M00S01319.probe +++| LINE$LABS[0] = MPPL13;
| Line S01320 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01738 M01S01320.v23l617 ---| TEMP = XCDD(SDXL$FOUR1);
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01739 M01S00114.v23l617 +++| TEMP = XCDD(SDX$CBN); 01740 M00S01321.probe +++| LINE$DATA[0] = TEMP; # COMMUNICATIONS BUFFER NOT 01741 M00S01322.probe +++| AVAILABLE COUNT # 01742 M00S01323.probe +++|
| Line S01324 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01743 M01S01324.v23l617 ---| RPLINE(LOC(OUTFET),LINE,10,60,END$LN);
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01744 M01S00115.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01745 M00S01325.probe +++| 01746 M00S01326.probe +++| LINE$LABS[0] = MPPL6;
| Line S01327 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01747 M01S01327.v23l617 ---| TEMP = XCDD(SDXL$FOUR2);
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01748 M01S00116.v23l617 +++| TEMP = XCDD(SDX$PRX); 01749 M00S01328.probe +++| LINE$DATA[0] = TEMP; # SET PP EXCHANGE REQUESTS #
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01750 M01S00027.271l716 +++| 01751 M01S00028.271l716 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01752 M01S00029.271l716 +++| 01753 M01S00030.271l716 +++| LINE$LABS[0] = MPPL28; 01754 M01S00031.271l716 +++| TEMP = XCDD(SDX$PCN); 01755 M01S00032.271l716 +++| LINE$DATA[0] = TEMP; # PSEUDO-CONTROL POINT NOT 01756 M01S00033.271l716 +++| AVAILABLE # 01757 M00S01329.probe +++|
| Line S01330 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01758 M01S01330.v23l617 ---| RPLINE(LOC(OUTFET),LINE,10,60,END$LN); 01759 M01S01331.v23l617 ---| 01760 M01S01332.v23l617 ---| LINE$LABS[0] = MPPL14; 01761 M01S01333.v23l617 ---| TEMP = XCDD(SDXL$SIX1); 01762 M01S01334.v23l617 ---| LINE$DATA[0] = TEMP; # SET RECALL STACK FULL COUNT # 01763 M01S01335.v23l617 ---| 01764 M01S01336.v23l617 ---| RPLINE(LOC(OUTFET),LINE,10,60,END$LN); 01765 M01S01337.v23l617 ---| 01766 M01S01338.v23l617 ---| LINE$LABS[0] = MPPL15; 01767 M01S01339.v23l617 ---| TEMP = XCDD(SDXL$SIX2); 01768 M01S01340.v23l617 ---| LINE$DATA[0] = TEMP; # SET NEGATIVE FL INCREASES # 01769 M01S01341.v23l617 ---| 01770 M01S01342.v23l617 ---| RPLINE(LOC(OUTFET),LINE,10,60,END$LN);
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01771 M01S00117.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01772 M00S01343.probe +++| 01773 M00S01344.probe +++| LINE$DATA[0] = " "; # BLANK FILL # 01774 M00S01345.probe +++| 01775 M00S01346.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01776 M00S01347.probe +++| 01777 M00S01348.probe +++| RPLINE(LOC(OUTFET),MPPL7,10,26,END$LN); # SECTION HEADER # 01778 M00S01349.probe +++| 01779 M00S01350.probe +++| LINE$LABS[0] = MPPL8;
| Line S01351 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01780 M01S01351.v23l617 ---| TEMP = XCDD(SDXL$TWO1); 01781 M01S01352.v23l617 ---| LINE$DATA1[0] = TEMP; # SET ROLLOUTS #
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01782 M01S00118.v23l617 +++| TEMP = XCDD(SDX$ROT); 01783 M01S00119.v23l617 +++| LINE$DATA[0] = TEMP; # ROLLOUTS # 01784 M00S01353.probe +++|
| Line S01354 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01785 M01S01354.v23l617 ---| RPLINE(LOC(OUTFET),LINE,15,60,END$LN);
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01786 M01S00120.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01787 M00S01355.probe +++|
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01788 M01S00034.271l716 +++| LINE$LABS[0] = MPPL25; 01789 M01S00035.271l716 +++| TEMP = XCDD(SDX$POT); 01790 M01S00036.271l716 +++| LINE$DATA[0] = TEMP; # PSEUDO-ROLLOUTS # 01791 M01S00037.271l716 +++| 01792 M01S00038.271l716 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01793 M01S00039.271l716 +++| 01794 M01S00040.271l716 +++| LINE$LABS[0] = MPPL26; 01795 M01S00041.271l716 +++| TEMP = XCDD(SDX$PCT); 01796 M01S00042.271l716 +++| LINE$DATA[0] = TEMP; # PCP ROLLOUTS # 01797 M01S00043.271l716 +++| 01798 M01S00044.271l716 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01799 M01S00045.271l716 +++|
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01800 M01S00121.v23l617 +++| LINE$LABS[0] = MPPL15; 01801 M01S00122.v23l617 +++| TEMP = XCDD(SDX$ROS); 01802 M01S00123.v23l617 +++| LINE$DATA[0] = TEMP; # SECONDARY ROLLOUTS # 01803 M01S00124.v23l617 +++| 01804 M01S00125.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01805 M01S00126.v23l617 +++| 01806 M00S01356.probe +++| LINE$LABS[0] = MPPL9;
| Line S01357 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01807 M01S01357.v23l617 ---| TEMP = XCDD(SDXL$TWO2); 01808 M01S01358.v23l617 ---| LINE$DATA1[0] = TEMP; # SET SECTORS ROLLED #
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01809 M01S00127.v23l617 +++| TEMP = XCDD(SDX$SOT); 01810 M01S00128.v23l617 +++| LINE$DATA[0] = TEMP; # SECTORS ROLLED #
| Line S01359 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01811 M01S01359.v23l617 ---| 01812 M01S01360.v23l617 ---| RPLINE(LOC(OUTFET),LINE,15,60,END$LN); 01813 M01S01361.v23l617 ---|
| Line S00129 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01814 M01S00129.v23l617 +++| 01815 M01S00130.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01816 M01S00131.v23l617 +++| 01817 M01S00132.v23l617 +++| LINE$LABS[0] = MPPL16; 01818 M01S00133.v23l617 +++| TEMP = XCDD(SDX$SOS); 01819 M01S00134.v23l617 +++| LINE$DATA[0] = TEMP; # SECTORS ROLLED TO SECONDARY 01820 M01S00135.v23l617 +++| DEVICES # 01821 M01S00136.v23l617 +++| 01822 M01S00137.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01823 M01S00138.v23l617 +++| 01824 M00S01362.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01825 M00S01363.probe +++| 01826 M00S01364.probe +++| RPLINE(LOC(OUTFET),MPPL10,10,26,END$LN); # SECTION HEADER # 01827 M00S01365.probe +++|
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01828 M01S00139.v23l617 +++| LINE$LABS[0] = MPPL17; 01829 M01S00140.v23l617 +++| TEMP = XCDD(SDX$1SJEJ); 01830 M01S00141.v23l617 +++| LINE$DATA[0] = TEMP; # EJT SCANS # 01831 M01S00142.v23l617 +++| 01832 M01S00143.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01833 M01S00144.v23l617 +++| 01834 M01S00145.v23l617 +++| LINE$LABS[0] = MPPL18; 01835 M01S00146.v23l617 +++| TEMP = XCDD(SDX$1SJSJ); 01836 M01S00147.v23l617 +++| LINE$DATA[0] = TEMP; # SCHEDULABLE JOBS # 01837 M01S00148.v23l617 +++| 01838 M01S00149.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01839 M01S00150.v23l617 +++| 01840 M01S00151.v23l617 +++| LINE$LABS[0] = MPPL19; 01841 M01S00152.v23l617 +++| TEMP = XCDD(SDX$1SJJP); 01842 M01S00153.v23l617 +++| LINE$DATA[0] = TEMP; # JOBS PREEMPTED # 01843 M01S00154.v23l617 +++| 01844 M01S00155.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01845 M01S00156.v23l617 +++| 01846 M01S00157.v23l617 +++| LINE$LABS[0] = MPPL20; 01847 M01S00158.v23l617 +++| TEMP = XCDD(SDX$1SJJS); 01848 M01S00159.v23l617 +++| LINE$DATA[0] = TEMP; # JOBS SCHEDULED # 01849 M01S00160.v23l617 +++| 01850 M01S00161.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01851 M01S00162.v23l617 +++| 01852 M01S00163.v23l617 +++| LINE$LABS[0] = MPPL21; 01853 M01S00164.v23l617 +++| TEMP = XCDD(SDX$1SJJN); 01854 M01S00165.v23l617 +++| LINE$DATA[0] = TEMP; # JOBS SCHEDULED NO CONSTRAINTS # 01855 M01S00166.v23l617 +++| 01856 M01S00167.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01857 M01S00168.v23l617 +++| 01858 M01S00169.v23l617 +++| LINE$LABS[0] = MPPL22; 01859 M01S00170.v23l617 +++| TEMP = XCDD(SDX$1SJIC); 01860 M01S00171.v23l617 +++| LINE$DATA[0] = TEMP; # EJT SCANS INSUFFICIENT CM # 01861 M01S00172.v23l617 +++| 01862 M01S00173.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01863 M01S00174.v23l617 +++| 01864 M01S00175.v23l617 +++| LINE$LABS[0] = MPPL23; 01865 M01S00176.v23l617 +++| TEMP = XCDD(SDX$1SJIE); 01866 M01S00177.v23l617 +++| LINE$DATA[0] = TEMP; # EJT SCANS INSUFFICIENT EM # 01867 M01S00178.v23l617 +++| 01868 M01S00179.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01869 M01S00180.v23l617 +++| 01870 M01S00181.v23l617 +++| LINE$LABS[0] = MPPL24; 01871 M01S00182.v23l617 +++| TEMP = XCDD(SDX$1SJNC); 01872 M01S00183.v23l617 +++| LINE$DATA[0] = TEMP; # EJT SCANS NO CONTROL POINT # 01873 M01S00184.v23l617 +++| 01874 M01S00185.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01875 M01S00186.v23l617 +++| 01876 M00S01366.probe +++| LINE$LABS[0] = MPPL11;
| Line S01367 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01877 M01S01367.v23l617 ---| TEMP = XCDD(SDXL$THRE1); 01878 M01S01368.v23l617 ---| LINE$DATA1[0] = TEMP; # SET TIME SLICES WITH OUTPUT #
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01879 M01S00187.v23l617 +++| TEMP = XCDD(SDX$1SJRR); 01880 M01S00188.v23l617 +++| LINE$DATA[0] = TEMP; # ROLLOUTS FOR RESOURCE LIMITS # 01881 M00S01369.probe +++|
| Line S01370 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01882 M01S01370.v23l617 ---| RPLINE(LOC(OUTFET),LINE,15,60,END$LN);
| Line S00189 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01883 M01S00189.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01884 M00S01371.probe +++| 01885 M00S01372.probe +++| LINE$LABS[0] = MPPL12;
| Line S01373 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01886 M01S01373.v23l617 ---| TEMP = XCDD(SDXL$THRE2); 01887 M01S01374.v23l617 ---| LINE$DATA1[0] = TEMP; # SET TIME SLICES #
| Line S00190 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01888 M01S00190.v23l617 +++| TEMP = XCDD(SDX$1SJTS); 01889 M01S00191.v23l617 +++| LINE$DATA[0] = TEMP; # TIME SLICES # 01890 M00S01375.probe +++|
| Line S01376 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01891 M01S01376.v23l617 ---| RPLINE(LOC(OUTFET),LINE,15,60,END$LN);
| Line S00192 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01892 M01S00192.v23l617 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN); 01893 M00S01377.probe +++|
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act
----------------------------+
01894 M01S00019.283l840 +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE #
01895 M01S00020.283l840 +++|
01896 M01S00021.283l840 +++| RPLINE(LOC(OUTFET),MPPL29,10,30,END$LN); # SECTION HEADER #
01897 M01S00022.283l840 +++|
01898 M01S00023.283l840 +++| LINE$LABS[0] = MPPL30;
01899 M01S00024.283l840 +++| TEMP = XCDD(SDX$DMCBA);
01900 M01S00025.283l840 +++| LINE$DATA[0] = TEMP; # CURRENT *BRT* ENTRIES ACTIVE #
01901 M01S00026.283l840 +++|
01902 M01S00027.283l840 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN);
01903 M01S00028.283l840 +++|
01904 M01S00029.283l840 +++| LINE$LABS[0] = MPPL31;
01905 M01S00030.283l840 +++| TEMP = XCDD(SDX$DMMBA);
01906 M01S00031.283l840 +++| LINE$DATA[0] = TEMP; # WORST CASE *BRT* ENTRIES
01907 M01S00032.283l840 +++| ACTIVE #
01908 M01S00033.283l840 +++|
01909 M01S00034.283l840 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN);
01910 M01S00035.283l840 +++|
01911 M01S00036.283l840 +++| LINE$LABS[0] = MPPL32;
01912 M01S00037.283l840 +++| TEMP = XCDD(SDX$DMBER);
01913 M01S00038.283l840 +++| LINE$DATA[0] = TEMP; # *BRT* ENTRIES REJECTED #
01914 M01S00039.283l840 +++|
01915 M01S00040.283l840 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN);
01916 M01S00041.283l840 +++|
01917 M01S00042.283l840 +++| LINE$LABS[0] = MPPL33;
01918 M01S00043.283l840 +++| TEMP = XCDD(SDX$DMTBE);
01919 M01S00044.283l840 +++| LINE$DATA[0] = TEMP; # TOTAL *BRT* ENTIRES CREATED #
01920 M01S00045.283l840 +++|
01921 M01S00046.283l840 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN);
01922 M01S00047.283l840 +++|
01923 M01S00048.283l840 +++| LINE$LABS[0] = MPPL34;
01924 M01S00049.283l840 +++| TEMP = XCDD(SDX$DMCCT);
01925 M01S00050.283l840 +++| LINE$DATA[0] = TEMP; # CURRENT *MTE* CYCLE TIME #
01926 M01S00051.283l840 +++|
01927 M01S00052.283l840 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN);
01928 M01S00053.283l840 +++|
01929 M01S00054.283l840 +++| LINE$LABS[0] = MPPL35;
01930 M01S00055.283l840 +++| TEMP = XCDD(SDX$DMMCT);
01931 M01S00056.283l840 +++| LINE$DATA[0] = TEMP; # WORST CASE *MTE* CYCLE TIME #
01932 M01S00057.283l840 +++|
01933 M01S00058.283l840 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN);
01934 M01S00059.283l840 +++|
01935 M01S00060.283l840 +++| LINE$LABS[0] = MPPL36;
01936 M01S00061.283l840 +++| TEMP = XCDD(SDX$DMBIA);
01937 M01S00062.283l840 +++| LINE$DATA[0] = TEMP; # *BATI* INTERLOCK ATTEMPTS
01938 M01S00063.283l840 +++| ABANDONED #
01939 M01S00064.283l840 +++|
01940 M01S00065.283l840 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN);
01941 M01S00066.283l840 +++|
01942 M01S00067.283l840 +++| LINE$LABS[0] = MPPL37;
01943 M01S00068.283l840 +++| TEMP = XCDD(SDX$DMTBR);
01944 M01S00069.283l840 +++| LINE$DATA[0] = TEMP; # TOTAL *BAT* REQUESTS #
01945 M01S00070.283l840 +++|
01946 M01S00071.283l840 +++| RPLINE(LOC(OUTFET),LINE,12,60,END$LN);
01947 M01S00072.283l840 +++|
01948 M00S01378.probe +++|
01949 M00S01379.probe +++| END # RPTMPP #
01950 M00S01380.probe +++|
01951 M00S01381.probe +++| TERM
01952 M00S01382.probe +++|PROC RPTMTR;
01953 M00S01383.probe +++|# TITLE RPTMTR - GENERATE *CPUMTR* MONITOR FUNCTION REPORT #
01954 M00S01384.probe +++| BEGIN # RPTMTR #
01955 M00S01385.probe +++|
01956 M00S01386.probe +++|#
01957 M00S01387.probe +++|** RPTMTR - GENERATE *CPUMTR* MONITOR FUNCTION REPORT.
01958 M00S01388.probe +++|*
01959 M00S01389.probe +++|* THE RAW DATA IS PROCESSED THRU MACTCHING WITH THE
01960 M00S01390.probe +++|* APPROPRIATE FUNCTION FOUND IN THE *TFTN* TABLE.
01961 M00S01391.probe +++|*
01962 M00S01392.probe +++|* PROC RPTMTR
01963 M00S01393.probe +++|*
01964 M00S01394.probe +++|* EXIT REPORT PRINTED.
01965 M00S01395.probe +++|#
01966 M00S01396.probe +++|
01967 M00S01397.probe +++|#
01968 M00S01398.probe +++|**** PROC RPTMTR - XREF LIST BEGIN.
01969 M00S01399.probe +++|#
01970 M00S01400.probe +++|
01971 M00S01401.probe +++| XREF
01972 M00S01402.probe +++| BEGIN
01973 M00S01403.probe +++| PROC RPLINE; # OUTPUT LINE #
01974 M00S01404.probe +++| PROC RPSPACE; # OUTPUT BLANK LINE #
01975 M00S01405.probe +++| FUNC XCDD C(10); # CONVERT TO DISPLAY #
01976 M00S01406.probe +++| FUNC XCOD C(10); # CONVERT OCTAL TO DISPLAY #
01977 M00S01407.probe +++| END
01978 M00S01408.probe +++|
01979 M00S01409.probe +++|#
01980 M00S01410.probe +++|**** PROC RPTMTR - XREF LIST END.
01981 M00S01411.probe +++|#
01982 M00S01412.probe +++|
01983 M00S01413.probe +++|#
01984 M00S01414.probe +++|* REPORT HEADERS.
01985 M00S01415.probe +++|#
01986 M00S01416.probe +++|
01987 M00S01417.probe +++| DEF HDRCPU0 #"CPU0"#; # CPU 0 HEADER #
01988 M00S01418.probe +++| DEF HDRCPU1 #"CPU1"#; # CPU 1 HEADER #
01989 M00S01419.probe +++| DEF HDRMONR #"MONITOR REQUESTS"#; # MONITOR REQUESTS #
01990 M00S01420.probe +++| DEF HDRMTRM #"MONITOR MODE"#; # MONITOR MODE #
01991 M00S01421.probe +++| DEF HDRPRGM #"PROGRAM MODE"#; # PROGRAM MODE #
01992 M00S01422.probe +++| DEF HDRSUBTOT #"SUBTOTAL"#; # SUBTOTAL #
01993 M00S01423.probe +++| DEF HDRTOTAL #"TOTAL"#; # TOTAL #
01994 M00S01424.probe +++|
01995 M00S01425.probe +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL #
01996 M00S01426.probe +++|*CALL COMAMSS
01997 M00S01427.probe +++|*CALL COMSPDT
01998 M00S01428.probe +++|*CALL COMUFMT
01999 M00S01429.probe +++|*CALL COMUOUT
02000 M00S01430.probe +++|*CALL COMUPRB
02001 M00S01431.probe +++|
02002 M00S01432.probe +++| ITEM COUNT0 I; # CPU 0 COUNT - PROGRAM MODE #
02003 M00S01433.probe +++| ITEM COUNT1 I; # CPU 0 COUNT - MONITOR MODE #
02004 M00S01434.probe +++| ITEM COUNT2 I; # CPU 1 COUNT - MONITOR MODE #
02005 M00S01435.probe +++| ITEM I I; # LOOP CONTROL #
02006 M00S01436.probe +++| ITEM TEMP C(10); # WORKING STORAGE #
02007 M00S01437.probe +++|
02008 M00S01438.probe +++|#
02009 M00S01439.probe +++|* OUTPUT LINE.
02010 M00S01440.probe +++|#
02011 M00S01441.probe +++|
02012 M00S01442.probe +++| ARRAY HEAD [0:0] S(6);
02013 M00S01443.probe +++| BEGIN
02014 M00S01444.probe +++| ITEM HEAD$TEX0 C(00,00,60); # TOTAL ENTRY #
02015 M00S01445.probe +++| ITEM HEAD$TEX1 C(00,00,20); # SUBTOTAL #
02016 M00S01446.probe +++| ITEM HEAD$TEX2 C(01,12,08); # COUNTER #
02017 M00S01447.probe +++| ITEM HEAD$TEX3 C(01,24,12); # COLUMN HEADER #
02018 M00S01448.probe +++| ITEM HEAD$TEX4 C(01,48,04); # SUBCOLUMN HEADER #
02019 M00S01449.probe +++| ITEM HEAD$TEX5 C(03,30,12); # COLUMN HEADER #
02020 M00S01450.probe +++| ITEM HEAD$TEX6 C(03,30,08); # SUBCOLUMN HEADER #
02021 M00S01451.probe +++| ITEM HEAD$TEX7 C(03,12,08); # COUNT HEADER #
02022 M00S01452.probe +++| ITEM HEAD$TEX8 C(04,30,08); # SUBCOLUMN HEADER #
02023 M00S01453.probe +++| ITEM HEAD$TEX9 C(04,12,08); # COUNTER #
02024 M00S01454.probe +++| END
02025 M00S01455.probe +++|
02026 M00S01456.probe +++|#
02027 M00S01457.probe +++|* OUTPUT LINE.
02028 M00S01458.probe +++|#
02029 M00S01459.probe +++|
02030 M00S01460.probe +++| ARRAY LINE [0:0] S(5);
02031 M00S01461.probe +++| BEGIN
02032 M00S01462.probe +++| ITEM LINE$BLANK C(00,00,50) = [" "]; # BLANK FILL ARRAY #
02033 M00S01463.probe +++| ITEM LINE$NAME C(00,06,04); # FUNCTION NAME #
02034 M00S01464.probe +++| ITEM LINE$LPAR C(00,30,01) = ["("]; # LEFT PARENTHESIS #
02035 M00S01465.probe +++| ITEM LINE$NUM C(00,36,03); # FUNCTION CODE #
02036 M00S01466.probe +++| ITEM LINE$RPAR C(00,54,01) = [")"]; # RIGHT PARENTHESIS #
02037 M00S01467.probe +++| ITEM LINE$PCPU0 C(01,12,08); # PROGRAM MODE - CPU 0 COUNT #
02038 M00S01468.probe +++| ITEM LINE$MCPU0 C(03,12,08); # MONITOR MODE - CPU 0 COUNT #
02039 M00S01469.probe +++| ITEM LINE$MCPU1 C(04,12,08); # MONITOR MODE - CPU 1 COUNT #
02040 M00S01470.probe +++| END
02041 M00S01471.probe +++|
02042 M00S01472.probe +++|#
02043 M00S01473.probe +++|* THE SEGMENT OF THE *PROBE* DATA WHICH CONTAINS THE
02044 M00S01474.probe +++|* NUMBER OF MONITOR REQUESTS FOR CPU 0 AND CPU 1 IN
02045 M00S01475.probe +++|* MONITOR MODE.
02046 M00S01476.probe +++|#
02047 M00S01477.probe +++|
02048 M00S01478.probe +++| BASED
02049 M00S01479.probe +++| ARRAY MTR [0:0] S(1);
02050 M00S01480.probe +++| BEGIN
02051 M00S01481.probe +++| ITEM MTR$CNT1 (00,00,30); # MONITOR MODE - CPU 1 COUNT #
02052 M00S01482.probe +++| ITEM MTR$CNT0 (00,30,30); # MONITOR MODE - CPU 0 COUNT #
02053 M00S01483.probe +++| END
02054 M00S01484.probe +++|
02055 M00S01485.probe +++|#
02056 M00S01486.probe +++|* THE SEGMENT OF THE *PROBE* DATA WHICH CONTAINS THE
02057 M00S01487.probe +++|* NUMBER OF MONITOR REQUESTS FOR CPU 0 IN PROGRAM MODE.
02058 M00S01488.probe +++|#
02059 M00S01489.probe +++|
02060 M00S01490.probe +++| BASED
02061 M00S01491.probe +++| ARRAY PRG [0:0] S(1);
02062 M00S01492.probe +++| BEGIN
02063 M00S01493.probe +++| ITEM PRG$CNT (00,00,60); # PROGRAM MODE - CPU 0 COUNT #
02064 M00S01494.probe +++| END
02065 M00S01495.probe +++|
02066 M00S01496.probe +++| CONTROL EJECT;
02067 M00S01497.probe +++|
02068 M00S01498.probe +++|#
02069 M00S01499.probe +++|* GENERATE MONITOR REQUEST REPORT.
02070 M00S01500.probe +++|#
02071 M00S01501.probe +++|
02072 M00S01502.probe +++| P<MTR> = SFM$BUFF[PROBE]+TPPU;
02073 M00S01503.probe +++| P<PRG> = SFM$BUFF[PROBE]+TPRG;
02074 M00S01504.probe +++|
02075 M00S01505.probe +++|#
02076 M00S01506.probe +++|* OUTPUT REPORT HEADER.
02077 M00S01507.probe +++|#
02078 M00S01508.probe +++|
02079 M00S01509.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE #
02080 M00S01510.probe +++|
02081 M00S01511.probe +++| RPLINE(LOC(OUTFET),HDRMONR,10,16,END$LN);
02082 M00S01512.probe +++|
02083 M00S01513.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE #
02084 M00S01514.probe +++|
02085 M00S01515.probe +++| RPLINE(LOC(OUTFET),HDRPRGM,24,12,CONT$LN);
02086 M00S01516.probe +++| RPLINE(LOC(OUTFET),HDRMTRM,45,12,END$LN);
02087 M00S01517.probe +++|
02088 M00S01518.probe +++| RPLINE(LOC(OUTFET),HDRCPU0,28,4,CONT$LN);
02089 M00S01519.probe +++| RPLINE(LOC(OUTFET),HDRCPU0,45,4,CONT$LN);
02090 M00S01520.probe +++| RPLINE(LOC(OUTFET),HDRCPU1,55,4,END$LN);
02091 M00S01521.probe +++|
02092 M00S01522.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE #
02093 M00S01523.probe +++|
02094 M00S01524.probe +++|
02095 M00S01525.probe +++|#
02096 M00S01526.probe +++|* OUTPUT MONITOR FUNCTION REPORT.
02097 M00S01527.probe +++|#
02098 M00S01528.probe +++|
02099 M00S01529.probe +++| SLOWFOR I = 0 STEP 1 UNTIL TPPUL
02100 M00S01530.probe +++| DO
02101 M00S01531.probe +++| BEGIN # OUTPUT MONITOR REPORT #
02102 M00S01532.probe +++| LINE$NAME[0] = TFTN$TEXT[I+CPUM]; # SET FUNCTION NAME #
02103 M00S01533.probe +++| TEMP = XCOD(I + CPUM); # SET FUNCTION CODE #
02104 M00S01534.probe +++| LINE$NUM[0] = C<7,3>TEMP;
02105 M00S01535.probe +++| COUNT0 = COUNT0 + PRG$CNT[I]; # TOTAL CPU 0 #
02106 M00S01536.probe +++| TEMP = XCDD(PRG$CNT[I]); # SET PROGRAM MODE - CPU 0 COUNT #
02107 M00S01537.probe +++| LINE$PCPU0[0] = C<2,8>TEMP;
02108 M00S01538.probe +++| COUNT1 = COUNT1 + MTR$CNT0[I];
02109 M00S01539.probe +++| TEMP = XCDD(MTR$CNT0[I]); # SET MONITOR MODE - CPU 0 COUNT #
02110 M00S01540.probe +++| LINE$MCPU0[0] = C<2,8>TEMP;
02111 M00S01541.probe +++| COUNT2 = COUNT2 +MTR$CNT1[I];
02112 M00S01542.probe +++| TEMP = XCDD(MTR$CNT1[I]); # SET MONITOR MODE - CPU 1 COUNT #
02113 M00S01543.probe +++| LINE$MCPU1[0] = C<2,8>TEMP;
02114 M00S01544.probe +++|
02115 M00S01545.probe +++| RPLINE(LOC(OUTFET),LINE,10,50,END$LN);
02116 M00S01546.probe +++| END # OUTPUT MONITOR REPORT #
02117 M00S01547.probe +++|
02118 M00S01548.probe +++|#
02119 M00S01549.probe +++|* OUTPUT CUMULATIVE TOTALS.
02120 M00S01550.probe +++|#
02121 M00S01551.probe +++|
02122 M00S01552.probe +++| HEAD$TEX0[0] = " "; # CLEAR LINE #
02123 M00S01553.probe +++| HEAD$TEX1[0] = HDRSUBTOT; # SUBTOTAL #
02124 M00S01554.probe +++| TEMP = XCDD(COUNT1);
02125 M00S01555.probe +++| HEAD$TEX7[0] = C<2,8>TEMP; # SET COUNT TOTAL #
02126 M00S01556.probe +++| TEMP = XCDD(COUNT2);
02127 M00S01557.probe +++| HEAD$TEX9[0] = C<2,8>TEMP; # SET COUNT TOTAL #
02128 M00S01558.probe +++|
02129 M00S01559.probe +++| RPLINE(LOC(OUTFET),HEAD,10,60,END$LN);
02130 M00S01560.probe +++|
02131 M00S01561.probe +++| HEAD$TEX0[0] = " "; # CLEAR LINE #
02132 M00S01562.probe +++| HEAD$TEX1[0] = HDRTOTAL; # TOTAL #
02133 M00S01563.probe +++| TEMP = XCDD(COUNT0);
02134 M00S01564.probe +++| HEAD$TEX2[0] = C<2,8>TEMP; # SET COUNT TOTAL #
02135 M00S01565.probe +++| HEAD$TEX6[0] = " ";
02136 M00S01566.probe +++| TEMP = XCDD(COUNT1 + COUNT2); # TOTAL CPU 0 AND CPU 1 #
02137 M00S01567.probe +++| HEAD$TEX9[0] = C<2,8>TEMP; # SET COUNT TOTAL #
02138 M00S01568.probe +++|
02139 M00S01569.probe +++| RPLINE(LOC(OUTFET),HEAD,10,60,END$LN);
02140 M00S01570.probe +++|
02141 M00S01571.probe +++| END # RPTMTR #
02142 M00S01572.probe +++|
02143 M00S01573.probe +++| TERM
02144 M00S01574.probe +++|PROC RPTPLD;
02145 M00S01575.probe +++|# TITLE RPTPLD - GENERATE *PLD* REPORT. #
02146 M00S01576.probe +++| BEGIN # RPTPLD #
02147 M00S01577.probe +++|
02148 M00S01578.probe +++|#
02149 M00S01579.probe +++|** RPTPLD - GENERATE PROGRAM LIBRARY DIRECTORY REPORT.
02150 M00S01580.probe +++|*
02151 M00S01581.probe +++|* *RPTPLD* SORTS THE RAW DATA IN ONE OF THREE WAYS,
02152 M00S01582.probe +++|* ALPHABETICALLY, FREQUENCY OF LOADS, AND RESIDENCY.
02153 M00S01583.probe +++|* ONCE THE SORT IS DONE THE REPORT IS PRINTED.
02154 M00S01584.probe +++|*
02155 M00S01585.probe +++|* PROC RPTPLD
02156 M00S01586.probe +++|*
02157 M00S01587.probe +++|* EXIT REPORT PRINTED.
02158 M00S01588.probe +++|#
02159 M00S01589.probe +++|
02160 M00S01590.probe +++|
02161 M00S01591.probe +++|#
02162 M00S01592.probe +++|**** PROC RPTPLD - XREF LIST BEGIN.
02163 M00S01593.probe +++|#
02164 M00S01594.probe +++|
02165 M00S01595.probe +++| XREF
02166 M00S01596.probe +++| BEGIN
02167 M00S01597.probe +++| PROC RPLINE; # OUTPUT LINE #
02168 M00S01598.probe +++| PROC RPSPACE; # OUTPUT BLANK LINE #
02169 M00S01599.probe +++| FUNC XCDD C(10); # CONVERT TO DISPLAY CODE #
02170 M00S01600.probe +++| END
02171 M00S01601.probe +++|
02172 M00S01602.probe +++|#
02173 M00S01603.probe +++|**** PROC RPTPLD - XREF LIST END.
02174 M00S01604.probe +++|#
02175 M00S01605.probe +++|
02176 M00S01606.probe +++| DEF HDRCOLUMN #"NAME LOC LOADS"#; # COLUMN HEADER #
02177 M00S01607.probe +++| DEF HDRMAIN #"PPU PROGRAM LOADS"#; # SECTION HEADER #
02178 M00S01608.probe +++|
02179 M00S01609.probe +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL #
02180 M00S01610.probe +++|
02181 M00S01611.probe +++|*CALL COMAMSS
02182 M00S01612.probe +++|*CALL COMSPDT
02183 M00S01613.probe +++|*CALL COMUFMT
02184 M00S01614.probe +++|*CALL COMUOUT
02185 M00S01615.probe +++|*CALL COMUPRB
02186 M00S01616.probe +++|
02187 M00S01617.probe +++| ITEM FLAG I; # PROGRAM RESIDENCE #
02188 M00S01618.probe +++| ITEM I I; # LOOP CONTROL #
02189 M00S01619.probe +++| ITEM J I; # LOOP CONTROL #
02190 M00S01620.probe +++| ITEM NOTDONE B; # SORT COMPLETION CONDITION #
02191 M00S01621.probe +++| ITEM OFFSET I; # OFFSET FOR SECOND COLUMN #
02192 M00S01622.probe +++| ITEM TEMP I; # DO LOOP COUNTER #
02193 M00S01623.probe +++|
02194 M00S01624.probe +++|#
02195 M00S01625.probe +++|* COUNTERS.
02196 M00S01626.probe +++|#
02197 M00S01627.probe +++|
02198 M00S01628.probe +++| ARRAY COUNT [0:3] S(1);
02199 M00S01629.probe +++| BEGIN
02200 M00S01630.probe +++| ITEM COUNT$RES U(00,00,60);
02201 M00S01631.probe +++| END
02202 M00S01632.probe +++|
02203 M00S01633.probe +++|#
02204 M00S01634.probe +++|* REPORT COLUMN HEADERS.
02205 M00S01635.probe +++|#
02206 M00S01636.probe +++|
02207 M00S01637.probe +++| ARRAY HEADER [0:3] S(3);
02208 M00S01638.probe +++| BEGIN
02209 M00S01639.probe +++| ITEM HEADER$TEXT C(00,00,28) = [ ##
02210 M00S01640.probe +++| "NUMBER OF ASR PROGRAMS =", ##
02211 M00S01641.probe +++| "NUMBER OF CMR PROGRAMS =", ##
02212 M00S01642.probe +++| "NUMBER OF DSK PROGRAMS =", ##
02213 M00S01643.probe +++| "NUMBER OF PLD ENTRIES ="]; ##
02214 M00S01644.probe +++| ITEM HEADER$TERM U(02,48,12) = [4(0)]; # MESSAGE TERMINATOR #
02215 M00S01645.probe +++| END
02216 M00S01646.probe +++|
02217 M00S01647.probe +++|#
02218 M00S01648.probe +++|* HEADER LINE OUTPUT.
02219 M00S01649.probe +++|#
02220 M00S01650.probe +++|
02221 M00S01651.probe +++| ARRAY HEAD [0:0] S(6);
02222 M00S01652.probe +++| BEGIN
02223 M00S01653.probe +++| ITEM HEAD$TEXT C(00,00,60); # TOTAL HEADER LINE #
02224 M00S01654.probe +++| ITEM HEAD$TEX1 C(00,00,30); # LEFT HALF OF HEADER LINE #
02225 M00S01655.probe +++| ITEM HEAD$TEX2 C(02,24,08); # CUMULATIVE TOTALS #
02226 M00S01656.probe +++| ITEM HEAD$TEX3 C(03,00,30); # RIGHT HALF OF HEADER LINE #
02227 M00S01657.probe +++| END
02228 M00S01658.probe +++|
02229 M00S01659.probe +++|#
02230 M00S01660.probe +++|* OUTPUT LINE BREAKDOWN.
02231 M00S01661.probe +++|#
02232 M00S01662.probe +++|
02233 M00S01663.probe +++| ARRAY LINE [0:0] S(3);
02234 M00S01664.probe +++| BEGIN
02235 M00S01665.probe +++| ITEM LINE$BLANK C(00,00,30) =[" "]; # BLANK FILL ENTRY #
02236 M00S01666.probe +++| ITEM LINE$NAME C(00,00,03); # PROGRAM NAME #
02237 M00S01667.probe +++| ITEM LINE$LOC C(00,42,03); # PROGRAM RESIDENCE #
02238 M00S01668.probe +++| ITEM LINE$CNT C(01,00,08); # NUMBER OF LOADS #
02239 M00S01669.probe +++| END
02240 M00S01670.probe +++|
02241 M00S01671.probe +++|#
02242 M00S01672.probe +++|* *PLD* TABLE BREAKDOWN.
02243 M00S01673.probe +++|#
02244 M00S01674.probe +++|
02245 M00S01675.probe +++| BASED
02246 M00S01676.probe +++| ARRAY PLD [0:0] S(1);
02247 M00S01677.probe +++| BEGIN
02248 M00S01678.probe +++| ITEM PLD$ENTRY U(00,00,60); # TABLE ENTRY #
02249 M00S01679.probe +++| ITEM PLD$NAME C(00,00,03); # PPU PROGRAM NAME #
02250 M00S01680.probe +++| ITEM PLD$LOC U(00,18,06); # PROGRAM RESIDENCE #
02251 M00S01681.probe +++| ITEM PLD$CNT U(00,30,30); # NUMBER OF LOADS #
02252 M00S01682.probe +++| END
02253 M00S01683.probe +++|
02254 M00S01684.probe +++|#
02255 M00S01685.probe +++|* RESIDENCY DEFINITION.
02256 M00S01686.probe +++|#
02257 M00S01687.probe +++|
02258 M00S01688.probe +++| ARRAY RES [0:2] S(1);
02259 M00S01689.probe +++| BEGIN
02260 M00S01690.probe +++| ITEM RES$TEXT C(00,00,03) = [ ##
02261 M00S01691.probe +++| "ASR", # ALTERNATE SYSTEM LIBRARY #
02262 M00S01692.probe +++| "CMR", # CM RESIDENCE #
02263 M00S01693.probe +++| "DSK" # DISK RESIDENT #
02264 M00S01694.probe +++| ];
02265 M00S01695.probe +++| END
02266 M00S01696.probe +++|
02267 M00S01697.probe +++| CONTROL EJECT;
02268 M00S01698.probe +++|
02269 M00S01699.probe +++|#
02270 M00S01700.probe +++|* SET FWA OF *PLD* TABLE.
02271 M00S01701.probe +++|#
02272 M00S01702.probe +++|
02273 M00S01703.probe +++| P<PLD> = SFM$BUFF[PROBE] + TSPL;
| Line S01704 Modification History | |
|---|---|
M01 (Removed by) | probe1 |
Seq # *Modification Id* Act ----------------------------+ 02274 M01S01704.probe1 ---| TEMP = SFM$LEN[PROBE] - TPRDL;
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | probe1 |
Seq # *Modification Id* Act
----------------------------+
02275 M01S00001.probe1 +++| TEMP = SFM$LEN[PROBE] - TPRDL - 2;
02276 M00S01705.probe +++|
02277 M00S01706.probe +++|#
02278 M00S01707.probe +++|* SORT *PLD* TABLE ALPHABETICALLY.
02279 M00S01708.probe +++|#
02280 M00S01709.probe +++|
02281 M00S01710.probe +++| IF ARG$LO[0] EQ "A"
02282 M00S01711.probe +++| THEN # CHECK FOR ALPHABETIC SORT #
02283 M00S01712.probe +++| BEGIN # ALPHABETIC SORT #
02284 M00S01713.probe +++| NOTDONE = TRUE; # SORT NOT COMPLETE #
02285 M00S01714.probe +++| SLOWFOR J = 0 STEP 1 WHILE NOTDONE
02286 M00S01715.probe +++| DO
02287 M00S01716.probe +++| BEGIN # CONTINUE SORTING #
02288 M00S01717.probe +++| NOTDONE = FALSE; # SORT COMPLETE #
02289 M00S01718.probe +++| SLOWFOR I=0 STEP 1 UNTIL TEMP
02290 M00S01719.probe +++| DO
02291 M00S01720.probe +++| BEGIN
02292 M00S01721.probe +++| IF PLD$ENTRY[I+1] NQ 0 # #
02293 M00S01722.probe +++| AND PLD$NAME[I+1] LS PLD$NAME[I]
02294 M00S01723.probe +++| THEN
02295 M00S01724.probe +++| BEGIN
02296 M00S01725.probe +++| PLD$ENTRY[I+1] == PLD$ENTRY[I];
02297 M00S01726.probe +++| NOTDONE = TRUE; # SORT NOT COMPLETE #
02298 M00S01727.probe +++| END
02299 M00S01728.probe +++|
02300 M00S01729.probe +++| END
02301 M00S01730.probe +++|
02302 M00S01731.probe +++| END # CONTINUE SORTING #
02303 M00S01732.probe +++|
02304 M00S01733.probe +++| END # ALPHABETIC SORT #
02305 M00S01734.probe +++|
02306 M00S01735.probe +++|#
02307 M00S01736.probe +++|* SORT *PLD* TABLE BASED ON NUMBER OF LOADS.
02308 M00S01737.probe +++|#
02309 M00S01738.probe +++|
02310 M00S01739.probe +++| IF ARG$LO[0] EQ "F" ##
02311 M00S01740.probe +++| OR ARG$LO[0] EQ "R"
02312 M00S01741.probe +++| THEN # CHECK FOR NUMBER OF LOADS SORT
02313 M00S01742.probe +++| OPTION #
02314 M00S01743.probe +++| BEGIN # NUMBER OF LOADS SORT #
02315 M00S01744.probe +++| NOTDONE = TRUE; # ASSUME TABLE IS SORTED #
02316 M00S01745.probe +++| SLOWFOR J = 0 STEP 1 WHILE NOTDONE
02317 M00S01746.probe +++| DO
02318 M00S01747.probe +++| BEGIN # CONTINUE SORTING #
02319 M00S01748.probe +++| NOTDONE = FALSE; # SORT COMPLETE #
02320 M00S01749.probe +++| SLOWFOR I=0 STEP 1 UNTIL TEMP
02321 M00S01750.probe +++| DO
02322 M00S01751.probe +++| BEGIN
02323 M00S01752.probe +++| IF PLD$ENTRY[I+1] NQ 0 # #
02324 M00S01753.probe +++| AND PLD$CNT[I+1] GR PLD$CNT[I]
02325 M00S01754.probe +++| THEN
02326 M00S01755.probe +++| BEGIN
02327 M00S01756.probe +++| PLD$ENTRY[I+1] == PLD$ENTRY[I];
02328 M00S01757.probe +++| NOTDONE = TRUE; # INDICATE SORT NOT FINISHED #
02329 M00S01758.probe +++| END
02330 M00S01759.probe +++|
02331 M00S01760.probe +++| END
02332 M00S01761.probe +++|
02333 M00S01762.probe +++| END # CONTINUE SORTING #
02334 M00S01763.probe +++|
02335 M00S01764.probe +++| END # NUMBER OF LOADS SORT #
02336 M00S01765.probe +++|
02337 M00S01766.probe +++|#
02338 M00S01767.probe +++|* SORT *PLD* TABLE BASED ON PROGRAM RESIDENCE.
02339 M00S01768.probe +++|#
02340 M00S01769.probe +++|
02341 M00S01770.probe +++| IF ARG$LO[0] EQ "R"
02342 M00S01771.probe +++| THEN
02343 M00S01772.probe +++| BEGIN # RESIDENCY SORT #
02344 M00S01773.probe +++| NOTDONE = TRUE; # ASSUME FILE SORTED #
02345 M00S01774.probe +++| SLOWFOR J = 0 STEP 1 WHILE NOTDONE
02346 M00S01775.probe +++| DO
02347 M00S01776.probe +++| BEGIN # CONTINUE SORTING #
02348 M00S01777.probe +++| NOTDONE = FALSE; # SORT COMPLETE #
02349 M00S01778.probe +++| SLOWFOR I=0 STEP 1 UNTIL TEMP
02350 M00S01779.probe +++| DO
02351 M00S01780.probe +++| BEGIN
02352 M00S01781.probe +++| IF PLD$ENTRY[I+1] NQ 0 # #
02353 M00S01782.probe +++| AND PLD$LOC[I+1] LS PLD$LOC[I]
02354 M00S01783.probe +++| THEN
02355 M00S01784.probe +++| BEGIN
02356 M00S01785.probe +++| PLD$ENTRY[I+1] == PLD$ENTRY[I];
02357 M00S01786.probe +++| NOTDONE = TRUE; # INDICATE FILE NOT SORTED #
02358 M00S01787.probe +++| END
02359 M00S01788.probe +++|
02360 M00S01789.probe +++| END
02361 M00S01790.probe +++|
02362 M00S01791.probe +++| END # CONTINUE SORTING #
02363 M00S01792.probe +++|
02364 M00S01793.probe +++| END # RESIDENCY SORT #
02365 M00S01794.probe +++|
02366 M00S01795.probe +++|#
02367 M00S01796.probe +++|* GENERATE *PLD* REPORT.
02368 M00S01797.probe +++|#
02369 M00S01798.probe +++|
02370 M00S01799.probe +++| OFFSET = ((SFM$LEN[PROBE] - (TPRDL)) + 1)/2; # TABLE OFFSET #
02371 M00S01800.probe +++|
02372 M00S01801.probe +++|
02373 M00S01802.probe +++|#
02374 M00S01803.probe +++|* OUTPUT THE HEADERS FOR THE *PLD* REPORT.
02375 M00S01804.probe +++|#
02376 M00S01805.probe +++|
02377 M00S01806.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE #
02378 M00S01807.probe +++|
02379 M00S01808.probe +++| RPLINE(LOC(OUTFET),HDRMAIN,10,17,END$LN); # PPU LOADS #
02380 M00S01809.probe +++|
02381 M00S01810.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE #
02382 M00S01811.probe +++|
02383 M00S01812.probe +++| HEAD$TEX1[0] = HDRCOLUMN; # COLUMN HEADERS #
02384 M00S01813.probe +++| HEAD$TEX3[0] = HDRCOLUMN;
02385 M00S01814.probe +++|
02386 M00S01815.probe +++| RPLINE(LOC(OUTFET),HEAD,10,60,END$LN);
02387 M00S01816.probe +++|
02388 M00S01817.probe +++|#
02389 M00S01818.probe +++|* OUTPUT THE DATA IN TWO COLUMNS DETERMINED BY THE OFFSET.
02390 M00S01819.probe +++|#
02391 M00S01820.probe +++|
02392 M00S01821.probe +++| SLOWFOR I=0 STEP 1 UNTIL (OFFSET - 1)
02393 M00S01822.probe +++| DO
02394 M00S01823.probe +++| BEGIN # OUTPUT LINE #
02395 M00S01824.probe +++| LINE$NAME[0] = PLD$NAME[I]; # SET PPU PROGRAM NAME #
02396 M00S01825.probe +++| LINE$LOC[0] = RES$TEXT[PLD$LOC[I]]; # SET PROGRAM RESIDENCE #
02397 M00S01826.probe +++|
02398 M00S01827.probe +++| COUNT$RES[PLD$LOC[I]] = COUNT$RES[PLD$LOC[I]] + 1;
02399 M00S01828.probe +++| COUNT$RES[3] = COUNT$RES[3] + 1;
02400 M00S01829.probe +++|
02401 M00S01830.probe +++| FLAG = XCDD(PLD$CNT[I]); # SET NUMBER OF LOADS #
02402 M00S01831.probe +++| LINE$CNT = C<2,8>FLAG;
02403 M00S01832.probe +++| RPLINE(LOC(OUTFET),LINE,10,30,CONT$LN);
02404 M00S01833.probe +++|
02405 M00S01834.probe +++| IF (I + OFFSET) GQ TEMP
02406 M00S01835.probe +++| OR PLD$ENTRY[I + OFFSET] EQ 0 # #
02407 M00S01836.probe +++| THEN
02408 M00S01837.probe +++| BEGIN # CHECK OUTPUT TERMINATION #
02409 M00S01838.probe +++| RPLINE(LOC(OUTFET),00,00,00,END$LN);
02410 M00S01839.probe +++| END # CHECK OUTPUT TERMINATION #
02411 M00S01840.probe +++|
02412 M00S01841.probe +++| ELSE
02413 M00S01842.probe +++| BEGIN # CONTINUED OUTPUT LINE #
02414 M00S01843.probe +++| LINE$NAME[0] = PLD$NAME[I+OFFSET]; # SET PPU PROGRAM NAME #
02415 M00S01844.probe +++| LINE$LOC[0] = RES$TEXT[PLD$LOC[I+OFFSET]]; # SET PROGRAM
02416 M00S01845.probe +++| RESIDENCE #
02417 M00S01846.probe +++|
02418 M00S01847.probe +++| COUNT$RES[PLD$LOC[I+OFFSET]] = COUNT$RES[PLD$LOC[I+OFFSET]]
02419 M00S01848.probe +++| + 1;
02420 M00S01849.probe +++| COUNT$RES[3] = COUNT$RES[3] + 1;
02421 M00S01850.probe +++|
02422 M00S01851.probe +++| FLAG = XCDD(PLD$CNT[I+OFFSET]); # SET NUMBER OF LOADS #
02423 M00S01852.probe +++| LINE$CNT = C<2,8>FLAG;
02424 M00S01853.probe +++| RPLINE(LOC(OUTFET),LINE,40,30,END$LN);
02425 M00S01854.probe +++| END # CONTINUED OUTPUT LINE #
02426 M00S01855.probe +++|
02427 M00S01856.probe +++| END # OUTPUT LINE #
02428 M00S01857.probe +++|
02429 M00S01858.probe +++|#
02430 M00S01859.probe +++|* CUMULATIVE DATA OUTPUT.
02431 M00S01860.probe +++|#
02432 M00S01861.probe +++|
02433 M00S01862.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE #
02434 M00S01863.probe +++|
02435 M00S01864.probe +++| SLOWFOR I=0 STEP 1 UNTIL 3
02436 M00S01865.probe +++| DO
02437 M00S01866.probe +++| BEGIN # OUTPUT COLUMN COUNT TOTALS #
02438 M00S01867.probe +++| HEAD$TEX1[0] = HEADER$TEXT[I];
02439 M00S01868.probe +++| FLAG = XCDD(COUNT$RES[I]); # OUTPUT RESIDENCY TOTALS #
02440 M00S01869.probe +++| HEAD$TEX3[0] = " "; # BLANK FILL #
02441 M00S01870.probe +++| HEAD$TEX2[0] = C<2,8>FLAG;
02442 M00S01871.probe +++|
02443 M00S01872.probe +++| RPLINE(LOC(OUTFET),HEAD,10,40,END$LN);
02444 M00S01873.probe +++|
02445 M00S01874.probe +++| END # OUTPUT COLUMN COUNT TOTALS #
02446 M00S01875.probe +++|
02447 M00S01876.probe +++| END # RPTPLD #
02448 M00S01877.probe +++|
02449 M00S01878.probe +++| TERM
02450 M00S01879.probe +++|PROC RPTPMD;
02451 M00S01880.probe +++|# TITLE RPTPMD - GENERATE PROGRAM *MTR* REQUESTS REPORT. #
02452 M00S01881.probe +++|
02453 M00S01882.probe +++| BEGIN # RPTPMD #
02454 M00S01883.probe +++|
02455 M00S01884.probe +++|#
02456 M00S01885.probe +++|** RPTPMD - GENERATE PROGRAM *MTR* REQUESTS REPORT.
02457 M00S01886.probe +++|*
02458 M00S01887.probe +++|* BY MATCHING THE RAW DATA WITH THE FUNCTION CODES IN
02459 M00S01888.probe +++|* *PMTR* ARRAY, THIS CODE WILL OUTPUT THE CONVERTED
02460 M00S01889.probe +++|* DATA.
02461 M00S01890.probe +++|*
02462 M00S01891.probe +++|* PROC RPTPMD
02463 M00S01892.probe +++|*
02464 M00S01893.probe +++|* EXIT REPORT PRINTED.
02465 M00S01894.probe +++|#
02466 M00S01895.probe +++|
02467 M00S01896.probe +++|#
02468 M00S01897.probe +++|**** PROC RPTPMD - XREF LIST BEGIN.
02469 M00S01898.probe +++|#
02470 M00S01899.probe +++|
02471 M00S01900.probe +++| XREF
02472 M00S01901.probe +++| BEGIN
02473 M00S01902.probe +++| PROC RPLINE; # OUTPUT LINE #
02474 M00S01903.probe +++| PROC RPSPACE; # OUTPUT BLANK LINE #
02475 M00S01904.probe +++| FUNC XCDD C(10); # CONVERT TO DISPLAY #
02476 M00S01905.probe +++| FUNC XCOD C(10); # CONVERT TO OCTAL DISPLAY #
02477 M00S01906.probe +++| END
02478 M00S01907.probe +++|
02479 M00S01908.probe +++|#
02480 M00S01909.probe +++|**** PROC RPTPMD - XREF LIST END.
02481 M00S01910.probe +++|#
02482 M00S01911.probe +++|
02483 M00S01912.probe +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL #
02484 M00S01913.probe +++|*CALL COMAMSS
02485 M00S01914.probe +++|*CALL COMSPDT
02486 M00S01915.probe +++|*CALL COMUFMT
02487 M00S01916.probe +++|*CALL COMUOUT
02488 M00S01917.probe +++|*CALL COMUPRB
02489 M00S01918.probe +++|
02490 M00S01919.probe +++| ITEM COUNT U; # TOTAL COUNTER #
02491 M00S01920.probe +++| ITEM I I; # LOOP CONTROL #
02492 M00S01921.probe +++| ITEM TEMP C(10); # WORKING STORAGE #
02493 M00S01922.probe +++|
02494 M00S01923.probe +++|
02495 M00S01924.probe +++|#
02496 M00S01925.probe +++|* OUTPUT LINE FORMAT.
02497 M00S01926.probe +++|#
02498 M00S01927.probe +++|
02499 M00S01928.probe +++| ARRAY LINE [0:0] S(2);
02500 M00S01929.probe +++| BEGIN
02501 M00S01930.probe +++| ITEM LINE$BLANK C(00,00,20) = [" "]; # BLANK LINE #
02502 M00S01931.probe +++| ITEM LINE$NAME C(00,12,04); # FUNCTION NAME #
02503 M00S01932.probe +++| ITEM LINE$LPAR C(00,36,01) = ["("]; # LEFT PARENTHESIS #
02504 M00S01933.probe +++| ITEM LINE$NUM C(00,42,02); # FUNCTION CODE #
02505 M00S01934.probe +++| ITEM LINE$RPAR C(00,54,01) = [")"]; # RIGHT PARENTHESIS #
02506 M00S01935.probe +++| ITEM LINE$PCPU0 C(01,12,08); # PROGRAM MODE - CPU 0 COUNT #
02507 M00S01936.probe +++| END
02508 M00S01937.probe +++|
02509 M00S01938.probe +++|#
02510 M00S01939.probe +++|* PROGRAM MODE CONVERSION LIST.
02511 M00S01940.probe +++|#
02512 M00S01941.probe +++|
| Line S01942 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02513 M01S01942.271l750 ---| ARRAY PMTR [1:MXP1] S(1);
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02514 M01S00003.271l750 +++| ARRAY PMTR [0:PMX1] S(1); 02515 M00S01943.probe +++| BEGIN 02516 M00S01944.probe +++| ITEM PMTR$TEXT C(00,00,04) = [ ## 02517 M00S01945.probe +++| "MSTF", # STORAGE MOVE #
| Line S01946 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02518 M01S01946.271l750 ---| "PDMF", # PROCESS DOWN MACHINE # 02519 M00S01947.probe +++| "PMRF", # PROCESS INTER-MACHINE REQUEST #
| Line S01948 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02520 M01S01948.v23l617 ---| "MECF", # MOVE ECS STORAGE #
| Line S00193 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02521 M02S00193.271l750 ---| "MECF", # MOVE EXTENDED MEMORY STORAGE #
| Line S01949 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02522 M01S01949.271l750 ---| "TECF"]; # TRANSFER USER ECS BLOCK #
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02523 M01S00004.271l750 +++| "MECF"]; # MOVE EXTENDED MEMORY STORAGE # 02524 M00S01950.probe +++| END 02525 M00S01951.probe +++| 02526 M00S01952.probe +++|# 02527 M00S01953.probe +++|* THE SEGMENT OF THE *PROBE* DATA WHICH CONTAINS THE 02528 M00S01954.probe +++|* PROGRAM MODE INFORMATION. 02529 M00S01955.probe +++|# 02530 M00S01956.probe +++| 02531 M00S01957.probe +++| BASED
| Line S01958 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02532 M01S01958.271l750 ---| ARRAY PRG [1:1] S(1);
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02533 M01S00005.271l750 +++| ARRAY PRG [0:0] S(1); 02534 M00S01959.probe +++| BEGIN 02535 M00S01960.probe +++| ITEM PRG$CNT U(00,00,60); # PROGRAM MODE - CPU 0 COUNT # 02536 M00S01961.probe +++| END 02537 M00S01962.probe +++| 02538 M00S01963.probe +++| CONTROL EJECT; 02539 M00S01964.probe +++| 02540 M00S01965.probe +++| P<PRG> = SFM$BUFF[PROBE] + TMNR; # LOCATING STATISTICS # 02541 M00S01966.probe +++| 02542 M00S01967.probe +++|# 02543 M00S01968.probe +++|* OUTPUT REPORT HEADER. 02544 M00S01969.probe +++|# 02545 M00S01970.probe +++| 02546 M00S01971.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",3); # OUTPUT BLANK LINE # 02547 M00S01972.probe +++| 02548 M00S01973.probe +++| RPLINE(LOC(OUTFET),"PROGRAM MODE",10,12,END$LN); 02549 M00S01974.probe +++| 02550 M00S01975.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 02551 M00S01976.probe +++| 02552 M00S01977.probe +++| RPLINE(LOC(OUTFET),"CPU0",25,4,END$LN); 02553 M00S01978.probe +++| 02554 M00S01979.probe +++| 02555 M00S01980.probe +++|# 02556 M00S01981.probe +++|* OUTPUT PROGRAM MODE *MTR* REQUESTS. 02557 M00S01982.probe +++|# 02558 M00S01983.probe +++|
| Line S01984 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02559 M01S01984.271l750 ---| FASTFOR I = 1 STEP 1 UNTIL PMXF
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02560 M01S00006.271l750 +++| FASTFOR I = 0 STEP 1 UNTIL PMX1 02561 M00S01985.probe +++| DO 02562 M00S01986.probe +++| BEGIN 02563 M00S01987.probe +++| LINE$NAME[0] = PMTR$TEXT[I]; # SET FUNCTION NAME # 02564 M00S01988.probe +++| TEMP = XCOD(I); 02565 M00S01989.probe +++| LINE$NUM[0] = C<8,2>TEMP; # SET FUNCTION CODE # 02566 M00S01990.probe +++| COUNT = COUNT + PRG$CNT[I]; # TOTAL STATISTICS # 02567 M00S01991.probe +++| TEMP = XCDD(PRG$CNT[I]); 02568 M00S01992.probe +++| LINE$PCPU0[0] = C<2,8>TEMP; # SET COUNT # 02569 M00S01993.probe +++| 02570 M00S01994.probe +++| RPLINE(LOC(OUTFET),LINE,10,20,END$LN); 02571 M00S01995.probe +++| 02572 M00S01996.probe +++| END 02573 M00S01997.probe +++| 02574 M00S01998.probe +++|# 02575 M00S01999.probe +++|* OUTPUT CUMULATIVE TOTALS. 02576 M00S02000.probe +++|# 02577 M00S02001.probe +++| 02578 M00S02002.probe +++| RPLINE(LOC(OUTFET),"TOTAL",15,5,CONT$LN); # TOTAL LABEL OUTPUT # 02579 M00S02003.probe +++| TEMP = XCDD(COUNT); # CONVERTED TOTAL # 02580 M00S02004.probe +++| 02581 M00S02005.probe +++| RPLINE(LOC(OUTFET),C<2,8>TEMP,22,8,END$LN); 02582 M00S02006.probe +++| 02583 M00S02007.probe +++| END # RPTPMD # 02584 M00S02008.probe +++| 02585 M00S02009.probe +++| TERM 02586 M00S02010.probe +++|PROC RPTPST; 02587 M00S02011.probe +++|# TITLE RPTPST - GENERATE VERSION REPORT. # 02588 M00S02012.probe +++| 02589 M00S02013.probe +++| BEGIN # RPTPST # 02590 M00S02014.probe +++| 02591 M00S02015.probe +++|# 02592 M00S02016.probe +++|** RPTPST - GENERATE VERSION REPORT. 02593 M00S02017.probe +++|* 02594 M00S02018.probe +++|* *RPTPST* WILL PRODUCE THE *PROBE* STATISTICS 02595 M00S02019.probe +++|* REPORT. 02596 M00S02020.probe +++|* 02597 M00S02021.probe +++|* PROC RPTPST 02598 M00S02022.probe +++|* 02599 M00S02023.probe +++|* EXIT REPORT PRINTED. 02600 M00S02024.probe +++|# 02601 M00S02025.probe +++| 02602 M00S02026.probe +++|# 02603 M00S02027.probe +++|**** PROC RPTPST - XREF LIST BEGIN. 02604 M00S02028.probe +++|# 02605 M00S02029.probe +++| 02606 M00S02030.probe +++| XREF 02607 M00S02031.probe +++| BEGIN 02608 M00S02032.probe +++| FUNC EDATE C(10); # CONVERT PACKED DATE # 02609 M00S02033.probe +++| FUNC ETIME C(10); # CONVERT PACKED TIME # 02610 M00S02034.probe +++| PROC RPLINE; # OUTPUT LINE # 02611 M00S02035.probe +++| END 02612 M00S02036.probe +++| 02613 M00S02037.probe +++|# 02614 M00S02038.probe +++|**** PROC RPTPST - XREF LIST END. 02615 M00S02039.probe +++|# 02616 M00S02040.probe +++| 02617 M00S02041.probe +++| DEF HDRPST1 #"START OF SAMPLE INTERVAL"#; # LINE LABEL # 02618 M00S02042.probe +++| DEF HDRPST2 #"END OF SAMPLE INTERVAL"#; # LINE LABEL # 02619 M00S02043.probe +++| 02620 M00S02044.probe +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL # 02621 M00S02045.probe +++| 02622 M00S02046.probe +++|*CALL COMAMSS 02623 M00S02047.probe +++|*CALL COMSPDT 02624 M00S02048.probe +++|*CALL COMUFMT 02625 M00S02049.probe +++|*CALL COMUOUT 02626 M00S02050.probe +++|*CALL COMUPRB 02627 M00S02051.probe +++| 02628 M00S02052.probe +++| ITEM TEMP C(10); # WORKING STORAGE # 02629 M00S02053.probe +++| 02630 M00S02054.probe +++| ARRAY LINE [0:0] S(6); 02631 M00S02055.probe +++| BEGIN 02632 M00S02056.probe +++| ITEM LINE$LABS C(00,00,30); # DATA LABELS # 02633 M00S02057.probe +++| ITEM LINE$DATE C(03,00,10); # DATE # 02634 M00S02058.probe +++| ITEM LINE$BLANK C(04,00,10) = [" "]; # BLANK WORD # 02635 M00S02059.probe +++| ITEM LINE$TIME C(05,00,10); # TIME # 02636 M00S02060.probe +++| END 02637 M00S02061.probe +++| 02638 M00S02062.probe +++| BASED 02639 M00S02063.probe +++| ARRAY SAMPLE [0:1] S(1); 02640 M00S02064.probe +++| BEGIN 02641 M00S02065.probe +++| ITEM SAMPLE$DATE U(00,24,18); # PACKED DATE # 02642 M00S02066.probe +++| ITEM SAMPLE$TIME U(00,42,18); # PACKED TIME # 02643 M00S02067.probe +++| END 02644 M00S02068.probe +++| 02645 M00S02069.probe +++| CONTROL EJECT; 02646 M00S02070.probe +++| 02647 M00S02071.probe +++| P<SAMPLE> = SFM$BUFF[PROBE]; # LOCATE DATA ARRAY # 02648 M00S02072.probe +++| 02649 M00S02073.probe +++|# 02650 M00S02074.probe +++|* OUTPUT VERSION DATA. 02651 M00S02075.probe +++|# 02652 M00S02076.probe +++| 02653 M00S02077.probe +++| LINE$LABS[0] = VERS$PVER; # *PROBE* VERSION # 02654 M00S02078.probe +++| LINE$DATE[0] = VERS$DATE; # CURRENT DATE # 02655 M00S02079.probe +++| LINE$TIME[0] = VERS$TIME; # CURRENT TIME # 02656 M00S02080.probe +++| 02657 M00S02081.probe +++| RPLINE(LOC(OUTFET),LINE,10,60,END$LN); 02658 M00S02082.probe +++| 02659 M00S02083.probe +++| LINE$LABS[0] = HDRPST1; # START SAMPLE INTERVAL # 02660 M00S02084.probe +++| TEMP = EDATE(SAMPLE$DATE[1]); 02661 M00S02085.probe +++| LINE$DATE[0] = TEMP; # CONVERTED DATE # 02662 M00S02086.probe +++| TEMP = ETIME(SAMPLE$TIME[1]); 02663 M00S02087.probe +++| LINE$TIME[0] = TEMP; # CONVERTED TIME # 02664 M00S02088.probe +++| 02665 M00S02089.probe +++| RPLINE(LOC(OUTFET),LINE,10,60,END$LN); 02666 M00S02090.probe +++| 02667 M00S02091.probe +++| LINE$LABS[0] = HDRPST2; # END SAMPLE INTERVAL # 02668 M00S02092.probe +++| TEMP = EDATE(SAMPLE$DATE[0]); 02669 M00S02093.probe +++| LINE$DATE[0] = TEMP; # CONVERTED DATE # 02670 M00S02094.probe +++| TEMP = ETIME(SAMPLE$TIME[0]); 02671 M00S02095.probe +++| LINE$TIME[0] = TEMP; # CONVERTED TIME # 02672 M00S02096.probe +++| 02673 M00S02097.probe +++| RPLINE(LOC(OUTFET),LINE,10,60,END$LN); 02674 M00S02098.probe +++| 02675 M00S02099.probe +++|# 02676 M00S02100.probe +++|* ADJUST THE *PROBE* TABLE POINTERS TO ALLOW FOR THE 02677 M00S02101.probe +++|* DIFFERENCE BETWEEN THE SYSTEM AND *SFM* TABLE BUILD. 02678 M00S02102.probe +++|# 02679 M00S02103.probe +++| 02680 M00S02104.probe +++| SFM$BUFF[PROBE] = SFM$BUFF[PROBE] + 1; # ADJUST TABLE POINTER # 02681 M00S02105.probe +++| SFM$LEN[PROBE] = SFM$LEN[PROBE] - 1; # ADJUST TABLE LENGTH # 02682 M00S02106.probe +++| 02683 M00S02107.probe +++| END # RPTPST # 02684 M00S02108.probe +++| 02685 M00S02109.probe +++| TERM 02686 M00S02110.probe +++|*WEOR 02687 M00S02111.probe +++| IDENT PRESET 02688 M00S02112.probe +++| ENTRY PRESET 02689 M00S02113.probe +++| SST 02690 M00S02114.probe +++| SYSCOM B1 02691 M00S02115.probe +++| TITLE PRESET - SET UP *PROBE* ARGUMENT LIST. 02692 M00S02116.probe +++|*COMMENT SET UP *PROBE* ARGUMENT LIST.
| Line S02117 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02693 M01S02117.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02694 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02695 M00S02118.probe +++| 02696 M00S02119.probe +++|*CALL COMCMAC 02697 M00S02120.probe +++| PRESET SPACE 4,15 02698 M00S02121.probe +++|** COMMON DECKS. 02699 M00S02122.probe +++| 02700 M00S02123.probe +++|*CALL COMSMTR 02701 M00S02124.probe +++| PRESET SPACE 4,15
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02702 M01S00007.271l750 +++| LIST X 02703 M00S02125.probe +++|*CALL COMSPDT
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02704 M01S00008.271l750 +++| LIST * 02705 M00S02126.probe +++| PRESET SPACE 4,15 02706 M00S02127.probe +++|*** PRESET - SET UP *PROBE* ARGUMENT LIST. 02707 M00S02128.probe +++|* 02708 M00S02129.probe +++|* PRESET(ARGLIST); (*SYMPL* CALL) 02709 M00S02130.probe +++|* 02710 M00S02131.probe +++|* EXIT (ARGLIST) = ADDRESS OF ARGUMENT LIST. 02711 M00S02132.probe +++|* 02712 M00S02133.probe +++|* USES A - 6. 02713 M00S02134.probe +++|* B - 1. 02714 M00S02135.probe +++|* X - 6. 02715 M00S02136.probe +++|* 02716 M00S02137.probe +++|* MACROS ARG. 02717 M00S02138.probe +++| 02718 M00S02139.probe +++| 02719 M00S02140.probe +++|PRESET SUBR ENTRY/EXIT 02720 M00S02141.probe +++| SB1 1 02721 M00S02142.probe +++| SX6 ARGLIST ADDRESS OF ARGUMENT LIST 02722 M00S02143.probe +++| SA6 X1 02723 M00S02144.probe +++| EQ PRESETX RETURN 02724 M00S02145.probe +++| 02725 M00S02146.probe +++|* ARGUMENT LIST. 02726 M00S02147.probe +++| 02727 M00S02148.probe +++| ARGLIST BSS 0 02728 M00S02149.probe +++| L ARG LASV,L OUTPUT FILE 02729 M00S02150.probe +++| P ARG PASV,P INPUT FILE NAME 02730 M00S02151.probe +++| B ARG BASV,B,400B BINARY FILE NAME 02731 M00S02152.probe +++| R ARG -RASV,R,400B REWIND OPTION 02732 M00S02153.probe +++| OP ARG OPASV,OP,400B PROCESSING OPTION 02733 M00S02154.probe +++| LO ARG LOASV,LO,400B SORT OPTION 02734 M00S02155.probe +++| 02735 M00S02156.probe +++|* DEFAULT VALUES. 02736 M00S02157.probe +++| 02737 M00S02158.probe +++| LASV DATA 0LOUTPUT 02738 M00S02159.probe +++| PASV DATA 0LSTATS 02739 M00S02160.probe +++| BASV DATA 0LSTATS 02740 M00S02161.probe +++| RASV DATA 0LR 02741 M00S02162.probe +++| OPASV DATA 0LP 02742 M00S02163.probe +++| LOASV DATA 0LF 02743 M00S02164.probe +++| 02744 M00S02165.probe +++| USE /TFTNB/ 02745 M00S02166.probe +++| 02746 M00S02167.probe +++|*CALL COMDTFN 02747 M00S02168.probe +++| LIST X 02748 M00S02169.probe +++| 02749 M00S02170.probe +++| USE /VERS/ 02750 M00S02171.probe +++| 02751 M00S02172.probe +++| CON 10H"TIME" 02752 M00S02173.probe +++| CON 10H"DATE" 02753 M00S02174.probe +++| DATA 30H"PVERS" 02754 M00S02175.probe +++|*CALL COMUPRB 02755 M00S02176.probe +++| 02756 M00S02177.probe +++| END
cdc/nos2.source/opl.opl871/deck/probe.001.txt · Last modified: by 127.0.0.1