cdc:nos2.source:opl.opl871:deck:dsdi.013
Deck DSDI Part 013
70 Modifications
Listing Sections
- Deck DSDI Start
- Deck DSDI Part 1 (Line 1418)
- Deck DSDI Part 2 (Line 2568)
- Deck DSDI Part 3 (Line 3960)
- Deck DSDI Part 4 (Line 5655)
- Deck DSDI Part 5 (Line 6926)
- Deck DSDI Part 6 (Line 8515)
- Deck DSDI Part 7 (Line 10149)
- Deck DSDI Part 8 (Line 11633)
- Deck DSDI Part 9 (Line 13348)
- Deck DSDI Part 10 (Line 14720)
- Deck DSDI Part 11 (Line 16256)
- Deck DSDI Part 12 (Line 18013)
- Deck DSDI Part 13 (Line 19591)
- Deck DSDI Part 14 (Line 21366)
- Deck DSDI Part 15 (Line 23194)
- Deck DSDI Part 16 (Line 24786)
- Deck DSDI Part 17 (Line 26291)
Source
Seq # *Modification Id* Act ----------------------------+ 19591 M00S15747.dsdi +++| SA1 GHAA FETCH ASID/SEGMENT 19592 M00S15748.dsdi +++| LX1 32 19593 M00S15749.dsdi +++| PL X2,GHA6 IF NOT A NUMBER OR RMA SYMBOL 19594 M00S15750.dsdi +++| BX6 X1+X6 FORM SVA/PVA 19595 M00S15751.dsdi +++| SA6 A1 19596 M00S15752.dsdi +++| RJ GXA GET EXCHANGE ADDRESS 19597 M00S15753.dsdi +++| ZR B6,GHA4 IF NO SYMBOL SPECIFIED 19598 M00S15754.dsdi +++| SA6 GHAB SAVE SEGMENT TABLE LENGTH/ADDRESS 19599 M00S15755.dsdi +++| NG X2,GHA8 IF EXCHANGE ADDRESS SPECIFIED 19600 M00S15756.dsdi +++| JP ERR6 NOT GOOD AT ALL 19601 M00S15757.dsdi +++| 19602 M00S15758.dsdi +++| GHA3 RJ GAT 19603 M00S15759.dsdi +++| GHA4 NZ B6,ERR6 IF BAD SYNTAX 19604 M00S15760.dsdi +++| SA1 GHAA FETCH SVA 19605 M00S15761.dsdi +++| BX6 X1 19606 M00S15762.dsdi +++| SB6 B1 19607 M00S15763.dsdi +++| GHA5 SA1 CH CHECK DELIMITER 19608 M00S15764.dsdi +++| SA2 X1 19609 M00S15765.dsdi +++| SB2 X2-1R+-100B 19610 M00S15766.dsdi +++| NG B2,GHAX IF NOT A SPECIAL CHARACTER 19611 M00S15767.dsdi +++| SX7 -B2 19612 M00S15768.dsdi +++| AX7 1 19613 M00S15769.dsdi +++| SA7 GHAB 19614 M00S15770.dsdi +++| RJ ASX GET HEX DIGIT 19615 M00S15771.dsdi +++| ZR B6,ERR6 IF NO NUMBER GIVEN 19616 M00S15772.dsdi +++| NZ X4,ERR6 IF NOT A HEX NUMBER 19617 M00S15773.dsdi +++| SA1 GHAA FETCH VALUE TO INCREMENT 19618 M00S15774.dsdi +++| SA2 A1+B1 FETCH SIGN 19619 M00S15775.dsdi +++| ERRNZ GHAA+1-GHAB 19620 M00S15776.dsdi +++| BX6 X2-X6 19621 M00S15777.dsdi +++| IX6 X1+X6 19622 M00S15778.dsdi +++| SA6 A1 19623 M00S15779.dsdi +++| JP GHA5 CHECK FOR END OF ADDRESS 19624 M00S15780.dsdi +++| 19625 M00S15781.dsdi +++| GHA6 LX2 59-P.REG-59+P.RMA 19626 M00S15782.dsdi +++| PL X2,ERR6 IF NOT A REGISTER 19627 M00S15783.dsdi +++| SA6 GHAB SAVE REGISTER POSITION 19628 M00S15784.dsdi +++| RJ GXA GET EXCHANGE ADDRESS 19629 M00S15785.dsdi +++| ZR B6,ERR6 IF NOT SPECIFIED 19630 M00S15786.dsdi +++| PL X2,ERR6 IF NOT AN EXCHANGE ADDRESS 19631 M00S15787.dsdi +++| SA1 GHAB FETCH REGISTER POSITION 19632 M00S15788.dsdi +++| SA2 X1 19633 M00S15789.dsdi +++| SA6 A1 19634 M00S15790.dsdi +++| SB2 X1-BUF 19635 M00S15791.dsdi +++| BX6 X2 19636 M00S15792.dsdi +++| NG B2,GHA7 IF PSEUDO REGISTER 19637 M00S15793.dsdi +++| SA1 A2+B1 19638 M00S15794.dsdi +++| SA3 A1+B1 19639 M00S15795.dsdi +++| LX1 16 19640 M00S15796.dsdi +++| LX2 32 19641 M00S15797.dsdi +++| BX6 X1+X3 19642 M00S15798.dsdi +++| BX6 X2+X6 19643 M00S15799.dsdi +++| GHA7 RJ EVA EXPAND VIRTUAL ADDRESS 19644 M00S15800.dsdi +++| SA1 GHAA GET REPLACEMENT BYTE VALUE 19645 M00S15801.dsdi +++| ZR X2,ERR44 IF NIL POINTER 19646 M00S15802.dsdi +++| SA7 A1 SAVE REGISTER VALUE 19647 M00S15803.dsdi +++| NG X1,GHA8 IF NO BYTE REPLACEMENT 19648 M00S15804.dsdi +++| BX7 X6+X1 19649 M00S15805.dsdi +++| SA7 A1 19650 M00S15806.dsdi +++| GHA8 SB2 GHAA (SEGMENT, EXCHANGE ADDRESS) 19651 M00S15807.dsdi +++| RJ SVA DETERMINE ASID 19652 M00S15808.dsdi +++| SA6 GHAA 19653 M00S15809.dsdi +++| JP GHA3 CHECK FOR PROPER ADDRESS TERMINATION 19654 M00S15810.dsdi +++| 19655 M00S15811.dsdi +++| GHAA DATA 0 BYTE OFFSET 19656 M00S15812.dsdi +++| GHAB DATA 0 EXCHANGE PACKAGE ADDRESS 19657 M00S15813.dsdi +++| GID SPACE 4,10 19658 M00S15814.dsdi +++|** GID - GET ELEMENT IDENTIFIER. 19659 M00S15815.dsdi +++|* 19660 M00S15816.dsdi +++|* ENTRY (X1) = RECORD IDENTIFIER. 19661 M00S15817.dsdi +++|*
| Line S15818 Modification History | |
|---|---|
M01 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 19662 M01S15818.271l739 ---|* EXIT (X6) = ELEMENT ID/10B.
| Line S00352 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 19663 M01S00352.271l739 +++|* EXIT (X6) = ELEMENT ID/0#10. 19664 M01S00353.271l739 +++|* (X7) = ELEMENT ID. 19665 M00S15819.dsdi +++|* 19666 M00S15820.dsdi +++|* USES X - 5, 6, 7. 19667 M00S15821.dsdi +++|* A - 6. 19668 M00S15822.dsdi +++|* 19669 M00S15823.dsdi +++|* CALLS RDR, SFR. 19670 M00S15824.dsdi +++| 19671 M00S15825.dsdi +++| 19672 M00S15826.dsdi +++| GID SUBR ENTRY/EXIT 19673 M00S15827.dsdi +++| RJ RDR READ DUMP RECORD 19674 M00S15828.dsdi +++| ZR X2,ERR14 IF RECORD NOT FOUND 19675 M00S15829.dsdi +++| SX5 /IOU/EIMR ELEMENT ID REGISTER 19676 M00S15830.dsdi +++| RJ SFR SEARCH FOR REGISTER 19677 M00S15831.dsdi +++| NG X1,ERR14 IF REGISTER NOT FOUND
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | ns2620 |
M02 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 19678 M02S00085.271l739 ---| SX5 7777B CHECK FOR *I4C* IOU
| Line S15832 Modification History | |
|---|---|
M01 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 19679 M01S15832.271l739 ---| MX6 -4
| Line S00354 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 19680 M01S00354.271l739 +++| MX5 -8
| Line S15833 Modification History | |
|---|---|
M01 (Removed by) | ns2620 |
Seq # *Modification Id* Act ----------------------------+ 19681 M01S15833.ns2620 ---| AX7 20
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | ns2620 |
Seq # *Modification Id* Act ----------------------------+ 19682 M01S00086.ns2620 +++| AX7 16
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | ns2620 |
M02 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 19683 M02S00087.271l739 ---| BX5 X5*X7 19684 M02S00088.271l739 ---| AX7 4
| Line S15834 Modification History | |
|---|---|
M01 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 19685 M01S15834.271l739 ---| BX6 -X6*X7
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | ns2620 |
M02 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 19686 M02S00089.271l739 ---| SX5 X5-0#0242 19687 M02S00090.271l739 ---| ZR X5,ERR47 IF *I4C* IOU
| Line S00355 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 19688 M01S00355.271l739 +++| BX7 -X5*X7 19689 M01S00356.271l739 +++| BX6 X7 19690 M01S00357.271l739 +++| AX6 4 19691 M00S15835.dsdi +++| EQ GIDX RETURN 19692 M00S15836.dsdi +++| GNF SPACE 4,21 19693 M00S15837.dsdi +++|** GNF - GET NEXT FILE. 19694 M00S15838.dsdi +++|* 19695 M00S15839.dsdi +++|* ENTRY FI = CURRENT FNT INDEX. 19696 M00S15840.dsdi +++|* CN = CONTROL POINT NUMBER. 19697 M00S15841.dsdi +++|* (RC) = RA OF CURRENT CONTROL POINT. 19698 M00S15842.dsdi +++|* 19699 M00S15843.dsdi +++|* EXIT X1 = 0 IF END OF FNT. 19700 M00S15844.dsdi +++|* .NE.0 IF FILE FOUND. 19701 M00S15845.dsdi +++|* FI IS UPDATED. 19702 M00S15846.dsdi +++|* GNFA = FILE INFORMATION AS FOLLOWS - 19703 M00S15847.dsdi +++|* 19704 M00S15848.dsdi +++|* +0 - FNT ORDINAL OF FILE. 19705 M00S15849.dsdi +++|* +1 - FNT. 19706 M00S15850.dsdi +++|* +2 - FST. 19707 M00S15851.dsdi +++|* +3 - FUT. 19708 M00S15852.dsdi +++|* +4 - EST ADDRESS. 19709 M00S15853.dsdi +++|* +5 - EST. 19710 M00S15854.dsdi +++|* 19711 M00S15855.dsdi +++|* SAVES X - 5. 19712 M00S15856.dsdi +++|* B - 1. 19713 M00S15857.dsdi +++|* A - 0,5. 19714 M00S15858.dsdi +++| 19715 M00S15859.dsdi +++| 19716 M00S15860.dsdi +++| GNF SUBR 19717 M00S15861.dsdi +++| SA1 F.TCMT 19718 M00S15862.dsdi +++| SB2 X1 TCMT TABLE BASE ADDRESS 19719 M00S15863.dsdi +++| SA1 F.TNFL FORM ADDRESS OF RA IN TNFL 19720 M00S15864.dsdi +++| SA2 L.TNFL 19721 M00S15865.dsdi +++| IX4 X1+X2 19722 M00S15866.dsdi +++| SA2 CN 19723 M00S15867.dsdi +++| SA1 NC 19724 M00S15868.dsdi +++| SX1 X1+B1 19725 M00S15869.dsdi +++| BX1 X1-X2 19726 M00S15870.dsdi +++| ZR X1,GNFX IF SYSTEM CONTROL POINT 19727 M00S15871.dsdi +++| SA5 FI 19728 M00S15872.dsdi +++| EQ GNF3 ENTER SEARCH LOOP 19729 M00S15873.dsdi +++| 19730 M00S15874.dsdi +++| GNF2 IX2 X4-X5 READ NEXT FNT ENTRY 19731 M00S15875.dsdi +++| SX5 X5+LENF ADVANCE FNT ORDINAL 19732 M00S15876.dsdi +++| SA1 X2 19733 M00S15877.dsdi +++| NZ X1,GNF4 IF ENTRY PRESENT 19734 M00S15878.dsdi +++| GNF3 SA1 L.TNFL 19735 M00S15879.dsdi +++| IX1 X1-X5 19736 M00S15880.dsdi +++| PL X1,GNF2 IF NOT END OF FNT 19737 M00S15881.dsdi +++| SX1 0 19738 M00S15882.dsdi +++| JP GNFX EXIT 19739 M00S15883.dsdi +++| 19740 M00S15884.dsdi +++|* SET FILE INFORMATION IN PARAMETER BLOCK. 19741 M00S15885.dsdi +++| 19742 M00S15886.dsdi +++| GNF4 BX6 X5 SAVE FNT ORDINAL FOR NEXT CALL 19743 M00S15887.dsdi +++| SA6 FI 19744 M00S15888.dsdi +++| IX7 X4-X2 19745 M00S15889.dsdi +++| SA7 GNFA SET FNT ORDINAL 19746 M00S15890.dsdi +++| BX6 X1 SET FNT CONTENTS 19747 M00S15891.dsdi +++| SA6 A7+B1 19748 M00S15892.dsdi +++| SA1 A1+B1 19749 M00S15893.dsdi +++| BX7 X1 SET FST CONTENTS 19750 M00S15894.dsdi +++| SA7 A6+B1 19751 M00S15895.dsdi +++| AX7 48 19752 M00S15896.dsdi +++| SX0 X7 19753 M00S15897.dsdi +++| SA1 A1+B1 READ FUT 19754 M00S15898.dsdi +++| BX6 X1 SET FUT 19755 M00S15899.dsdi +++| SA6 A7+B1 19756 M00S15900.dsdi +++| SA1 B2+ESTP GET EST POINTER WORD 19757 M00S15901.dsdi +++| AX1 36 19758 M00S15902.dsdi +++| SX1 X1+EQDE 19759 M00S15903.dsdi +++| R= X2,ESTE 19760 M00S15904.dsdi +++| IX0 X0*X2 19761 M00S15905.dsdi +++| IX7 X0+X1 19762 M00S15906.dsdi +++| SA7 A6+B1 19763 M00S15907.dsdi +++| SA1 X7+B2 READ EST 19764 M00S15908.dsdi +++| BX6 X1 19765 M00S15909.dsdi +++| SA6 A7+B1 19766 M00S15910.dsdi +++| SX1 B1 SET FILE FOUND 19767 M00S15911.dsdi +++| JP GNFX EXIT 19768 M00S15912.dsdi +++| 19769 M00S15913.dsdi +++| GNFA BSS 0 FILE PARAMETERS 19770 M00S15914.dsdi +++| LOC 0 19771 M00S15915.dsdi +++| 19772 M00S15916.dsdi +++| CON 0 FNT ORDINAL 19773 M00S15917.dsdi +++| CON 0 FNT 19774 M00S15918.dsdi +++| CON 0 FST 19775 M00S15919.dsdi +++| CON 0 FUT 19776 M00S15920.dsdi +++| CON 0 EST ADDRESS 19777 M00S15921.dsdi +++| CON 0 EST 19778 M00S15922.dsdi +++| LOC *O
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 19779 M01S00096.dsdi56 +++| GPS SPACE 4,15 19780 M01S00097.dsdi56 +++|** GPS - GET PP SAVE AREA ENTRY. 19781 M01S00098.dsdi56 +++|* 19782 M01S00099.dsdi56 +++|* EXIT (X5) = 0, IF PP NOT FOUND IN PP SAVE AREA. 19783 M01S00100.dsdi56 +++|* 19784 M01S00101.dsdi56 +++|* USES X - ALL. 19785 M01S00102.dsdi56 +++|* A - ALL. 19786 M01S00103.dsdi56 +++|* B - 2, 3, 4, 5, 6, 7. 19787 M01S00104.dsdi56 +++|*
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
M02 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 19788 M02S00105.ns2647 ---|* CALLS PCM, SCM.
| Line S00225 Modification History | |
|---|---|
M01 (Added by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 19789 M01S00225.ns2647 +++|* CALLS CPN, PCM, SCM.
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 19790 M01S00106.dsdi56 +++|* 19791 M01S00107.dsdi56 +++|* MACROS GETCM. 19792 M01S00108.dsdi56 +++| 19793 M01S00109.dsdi56 +++| 19794 M01S00110.dsdi56 +++| GPS SUBR ENTRY/EXIT 19795 M01S00111.dsdi56 +++| SA1 F.TCMT 19796 M01S00112.dsdi56 +++| SA3 X1+PPSP GET FWA AND NUMBER OF SAVE AREAS POSSIBLE 19797 M01S00113.dsdi56 +++| MX5 -12 19798 M01S00114.dsdi56 +++| BX5 -X5*X3 NUMBER OF SAVE AREA ENTRIES 19799 M01S00115.dsdi56 +++| ZR X5,GPSX IF NO ISHARED DEVICES 19800 M01S00116.dsdi56 +++| SA4 PC FWA OF PP COMMUNICATION AREA
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
M02 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 19801 M02S00117.ns2647 ---| SA1 PP GET PP NUMBER
| Line S00226 Modification History | |
|---|---|
M01 (Added by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 19802 M01S00226.ns2647 +++| SX4 X4+B1 OUTPUT REGISTER ADDRESS FOR PP 0
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 19803 M01S00118.dsdi56 +++| LX3 -12 19804 M01S00119.dsdi56 +++| SX6 X3-PPSA FWA OF SAVE AREAS - *PPSA*
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
M02 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 19805 M02S00120.ns2647 ---| SX4 X4+B1 OUTPUT REGISER ADDRESS FOR PP 0
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 19806 M01S00121.dsdi56 +++| SA6 GPSB
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
M02 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 19807 M02S00122.ns2647 ---| SX2 X1-12B 19808 M02S00123.ns2647 ---| NG X2,GPS1 IF IN LOWER BARREL(S) 19809 M02S00124.ns2647 ---| SX1 X1-6 19810 M02S00125.ns2647 ---| GPS1 LX1 3 19811 M02S00126.ns2647 ---| IX6 X1+X4 OUTPUT REGISTER ADDRESS FOR THIS PP
| Line S00227 Modification History | |
|---|---|
M01 (Added by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 19812 M01S00227.ns2647 +++| RJ CPN GET CONVERTED PP NUMBER 19813 M01S00228.ns2647 +++| LX6 3 19814 M01S00229.ns2647 +++| IX6 X6+X4 OUTPUT REGISTER ADDRESS FOR THIS PP
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 19815 M01S00127.dsdi56 +++| SA6 GPSC 19816 M01S00128.dsdi56 +++| SA4 SBTL1 PRESERVE SUBTITLE 19817 M01S00129.dsdi56 +++| RJ SCM 19818 M01S00130.dsdi56 +++| BX6 X4 RESTORE SUBTITLE 19819 M01S00131.dsdi56 +++| SA7 RI 19820 M01S00132.dsdi56 +++| SA6 A4 19821 M01S00133.dsdi56 +++| 19822 M01S00134.dsdi56 +++|* CHECK NEXT ENTRY. 19823 M01S00135.dsdi56 +++| 19824 M01S00136.dsdi56 +++| GPS2 ZR X5,GPSX IF PP NOT FOUND 19825 M01S00137.dsdi56 +++| SX7 X5-1 19826 M01S00138.dsdi56 +++| SA3 GPSB GET PP SAVE ENTRY FWA 19827 M01S00139.dsdi56 +++| SA7 GPSA STORE INDEX 19828 M01S00140.dsdi56 +++| SX7 X3+PPSA 19829 M01S00141.dsdi56 +++| SA7 A3 19830 M01S00142.dsdi56 +++| SX3 X7 19831 M01S00143.dsdi56 +++| RJ PCM POSITION DUMP FILE 19832 M01S00144.dsdi56 +++| GETCM GET FWA OF THIS PP BUFFER IN X6 19833 M01S00145.dsdi56 +++| SA1 GPSC GET OUTPUT REGISTER ADDRESS FOR THIS PP 19834 M01S00146.dsdi56 +++| SA5 GPSA RESTORE INDEX 19835 M01S00147.dsdi56 +++| MX3 12 19836 M01S00148.dsdi56 +++| BX3 X3*X6 19837 M01S00149.dsdi56 +++| LX3 12 19838 M01S00150.dsdi56 +++| BX1 X1-X3 19839 M01S00151.dsdi56 +++| NZ X1,GPS2 IF PP DATA NOT FOUND IN PP SAVE AREA 19840 M01S00152.dsdi56 +++| SA6 PSAV SAVE THE FIRST WORD 19841 M01S00153.dsdi56 +++| SA6 GPSD 19842 M01S00154.dsdi56 +++| GETCM PSAV+1,PPSA-1 GET REST OF PP SAVE AREA 19843 M01S00155.dsdi56 +++| 19844 M01S00156.dsdi56 +++|* MOVE BLOCKS FROM *PSAV* TO *PBUF*. 19845 M01S00157.dsdi56 +++| 19846 M01S00158.dsdi56 +++| SX6 1S1 2**N-1 NUMBER OF BLOCKS TO MOVE 19847 M01S00159.dsdi56 +++| SA4 PSAV+8 FWA OF PP MEMORY IN SAVE BUFFER 19848 M01S00160.dsdi56 +++| SB6 PBUF+4095/5 LAST WORD OF *PBUF* 19849 M01S00161.dsdi56 +++| SA6 GPSA 19850 M01S00162.dsdi56 +++| GPS3 SA2 GPSA 19851 M01S00163.dsdi56 +++| SA3 GPSD 19852 M01S00164.dsdi56 +++| SA0 60 SET CONSTANT 19853 M01S00165.dsdi56 +++| MX5 -24 INSURE EXIT CONDTION 19854 M01S00166.dsdi56 +++| AX7 X2,B1 19855 M01S00167.dsdi56 +++| ZR X2,GPSX IF COMPLETE 19856 M01S00168.dsdi56 +++| SA7 A2 19857 M01S00169.dsdi56 +++| BX6 X3 19858 M01S00170.dsdi56 +++| BX3 -X5*X3 19859 M01S00171.dsdi56 +++| LX6 12 POSITION NEXT PAIR OF BYTES 19860 M01S00172.dsdi56 +++| AX3 12 FIRST BYTE ADDRESS 19861 M01S00173.dsdi56 +++| SA6 A3 19862 M01S00174.dsdi56 +++| SX7 A0 19863 M01S00175.dsdi56 +++| AX6 48 WORD COUNT OF SAVE BLOCK 19864 M01S00176.dsdi56 +++| IX6 X6*X7 19865 M01S00177.dsdi56 +++| SB5 X6 NUMBER OF BITS TO MOVE IN THIS BLOCK 19866 M01S00178.dsdi56 +++| SX5 5 19867 M01S00179.dsdi56 +++| IX0 X3/X5 19868 M01S00180.dsdi56 +++| SX5 5 19869 M01S00181.dsdi56 +++| SB7 X0+PBUF FIRST *PBUF* WORD TO BE PARTIALLY REPLACED 19870 M01S00182.dsdi56 +++| SX3 X3+ CLEAR PACKING DONE BY *IXX/X* 19871 M01S00183.dsdi56 +++| IX0 X0*X5 19872 M01S00184.dsdi56 +++| IX0 X3-X0 NUMBER OF BYTES TO PRESERVE IN FIRST WORD 19873 M01S00185.dsdi56 +++| SX5 12 19874 M01S00186.dsdi56 +++| IX6 X0*X5 19875 M01S00187.dsdi56 +++| SB4 B0 NUMBER OF BITS MOVED 19876 M01S00188.dsdi56 +++| 19877 M01S00189.dsdi56 +++|* COMPUTE SHIFT COUNTS AND MASKS. 19878 M01S00190.dsdi56 +++| 19879 M01S00191.dsdi56 +++| GPS4 SB2 X6 NUMBER OF BITS TO PRESERVE 19880 M01S00192.dsdi56 +++| SB3 A0 19881 M01S00193.dsdi56 +++| BX7 X4 ALLOW SAVED BLOCK TO START AT 7777B 19882 M01S00194.dsdi56 +++| BX0 X0-X0 SET UP N-BIT MASK FOR BITS TO PRESERVE 19883 M01S00195.dsdi56 +++| ZR B2,GPS5 IF NO OFFSETTING REQUIRED 19884 M01S00196.dsdi56 +++| SA2 B7 GET FIRST *PBUF* WORD TO REPLACE 19885 M01S00197.dsdi56 +++| SB3 B2-B1 19886 M01S00198.dsdi56 +++| MX0 1 SET UP N-BIT MASK FOR BITS TO PRESERVE 19887 M01S00199.dsdi56 +++| AX0 B3 19888 M01S00200.dsdi56 +++| SB3 A0-B2 NUMBER OF BITS TO REPLACE 19889 M01S00201.dsdi56 +++| BX7 X0*X2 BITS TO BE PRESERVED FROM *PBUF* WORD 19890 M01S00202.dsdi56 +++| 19891 M01S00203.dsdi56 +++|* MOVE PP BYTES FROM *PSAV* TO *PBUF*. 19892 M01S00204.dsdi56 +++| 19893 M01S00205.dsdi56 +++| GPS5 LX4 B3 GET REPLACEMENT BITS 19894 M01S00206.dsdi56 +++| BX1 -X0*X4 19895 M01S00207.dsdi56 +++| BX7 X7+X1 19896 M01S00208.dsdi56 +++| SA7 B7 19897 M01S00209.dsdi56 +++| EQ B7,B6,GPS6 IF LAST WORD OF *PBUF* 19898 M01S00210.dsdi56 +++| SB4 B4+A0 INCREMENT BIT COUNTER 19899 M01S00211.dsdi56 +++| BX7 X0*X4 NEXT WORD-S UPPER BITS 19900 M01S00212.dsdi56 +++| SA4 A4+B1 GET NEXT WORD-S LOWER BITS FROM *PSAV* 19901 M01S00213.dsdi56 +++| SB7 B7+B1 INCR *PBUF* POINTER 19902 M01S00214.dsdi56 +++| LT B4,B5,GPS5 IF MORE BITS TO BE MOVED 19903 M01S00215.dsdi56 +++| 19904 M01S00216.dsdi56 +++|* SET THE LAST BYTES FROM *PSAV* IN *PBUF*. 19905 M01S00217.dsdi56 +++| 19906 M01S00218.dsdi56 +++| SA3 B7 GET THE UNREPLACED BITS FROM *PBUF* 19907 M01S00219.dsdi56 +++| BX3 -X0*X3 19908 M01S00220.dsdi56 +++| BX7 X7+X3 19909 M01S00221.dsdi56 +++| SA7 B7 19910 M01S00222.dsdi56 +++| NE B7,B6,GPS3 IF NOT LAST WORD OF *PBUF* 19911 M01S00223.dsdi56 +++| 19912 M01S00224.dsdi56 +++|* MOVE BYTE 7777B INTO *PBUF*. 19913 M01S00225.dsdi56 +++| 19914 M01S00226.dsdi56 +++| GPS6 MX2 12 STORE ONLY BYTE 7777B 19915 M01S00227.dsdi56 +++| BX6 X2*X7 19916 M01S00228.dsdi56 +++| LX7 12 MOVE BYTE 0 TO TOP OF WORD 19917 M01S00229.dsdi56 +++| SA6 B7 19918 M01S00230.dsdi56 +++| SB7 PBUF RESET *PBUF* POINTER 19919 M01S00231.dsdi56 +++| NZ B2,GPS7 IF OFFSETTING WAS REQUIRED 19920 M01S00232.dsdi56 +++| SB2 A0 19921 M01S00233.dsdi56 +++| MX0 60 19922 M01S00234.dsdi56 +++| SA4 A4+B1 19923 M01S00235.dsdi56 +++| SB4 B4+A0 19924 M01S00236.dsdi56 +++| GPS7 SX6 B2-12 19925 M01S00237.dsdi56 +++| SA3 B7 GET ORIGINAL BYTES 0-4 19926 M01S00238.dsdi56 +++| LX4 B2 RESTORE REPLACEMENT BITS 19927 M01S00239.dsdi56 +++| ZR X6,GPS8 IF NO OFFSETTING WILL BE REQUIRED 19928 M01S00240.dsdi56 +++| 19929 M01S00241.dsdi56 +++|* MOVE BYTE 0000 TO *PBUF** 19930 M01S00242.dsdi56 +++| 19931 M01S00243.dsdi56 +++| BX0 -X2*X0 ADJUST MASK 19932 M01S00244.dsdi56 +++| LX0 12 19933 M01S00245.dsdi56 +++| BX7 X0*X7 19934 M01S00246.dsdi56 +++| BX3 -X0*X3 19935 M01S00247.dsdi56 +++| BX7 X7+X3 19936 M01S00248.dsdi56 +++| SA7 B7 19937 M01S00249.dsdi56 +++| GPS8 LT B4,B5,GPS4 IF MORE BYTES IN BLOCK 19938 M01S00250.dsdi56 +++| EQ GPS3 CHECK NEXT BLOCK 19939 M01S00251.dsdi56 +++| 19940 M01S00252.dsdi56 +++| 19941 M01S00253.dsdi56 +++| GPSA BSS 1 COUNTER 19942 M01S00254.dsdi56 +++| GPSB BSS 1 FWA OF PP SAVE AREA BUFFER 19943 M01S00255.dsdi56 +++| GPSC BSS 1 OUTPUT REGISTER ADDRESS FOR THIS PP 19944 M01S00256.dsdi56 +++| GPSD BSS 1 SAVED DATA PARAMETERS 19945 M00S15923.dsdi +++| GRV SPACE 4,10 19946 M00S15924.dsdi +++|** GRV - GET R-REGISTER VALUE. 19947 M00S15925.dsdi +++|* 19948 M00S15926.dsdi +++|* ENTRY (PBUF) = IOU MEMORY RECORD. 19949 M00S15927.dsdi +++|*
| Line S15928 Modification History | |
|---|---|
M01 (Removed by) | dsdi64 |
Seq # *Modification Id* Act ----------------------------+ 19950 M01S15928.dsdi64 ---|* EXIT (X1) = 22/R-REG, 38/0
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dsdi64 |
Seq # *Modification Id* Act ----------------------------+ 19951 M01S00001.dsdi64 +++|* EXIT (X1) = 24/R-REG, 36/0 19952 M00S15929.dsdi +++|* 19953 M00S15930.dsdi +++|* USES A - 1, 2. 19954 M00S15931.dsdi +++|* X - 1, 2, 3, 6. 19955 M00S15932.dsdi +++| 19956 M00S15933.dsdi +++| 19957 M00S15934.dsdi +++| GRV1 SA1 PBUF+819 FIRST PART OF R-REGISTER (C170-865/875) 19958 M00S15935.dsdi +++| SA2 A1+B1 SECOND PART 19959 M00S15936.dsdi +++| MX3 -12 19960 M00S15937.dsdi +++| BX1 -X3*X1 19961 M00S15938.dsdi +++| MX3 12 19962 M00S15939.dsdi +++| BX2 X3*X2 19963 M00S15940.dsdi +++| BX1 X1+X2 19964 M00S15941.dsdi +++| LX1 -12 POSITION R-REGISTER 19965 M00S15942.dsdi +++| 19966 M00S15943.dsdi +++| GRV SUBR ENTRY/EXIT 19967 M00S15944.dsdi +++| SA1 AP 19968 M00S15945.dsdi +++| ZR X1,GRV1 IF NOT 180 CLASS MACHINE
| Line S15946 Modification History | |
|---|---|
M01 (Removed by) | dsdi74 |
Seq # *Modification Id* Act ----------------------------+ 19969 M01S15946.dsdi74 ---| SA1 C4 19970 M01S15947.dsdi74 ---| NZ X1,GRV2 IF I4 IOU
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | dsdi74 |
Seq # *Modification Id* Act ----------------------------+ 19971 M01S00060.dsdi74 +++| SA1 IO
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | dsdi74 |
M02 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 19972 M02S00061.271l739 ---| ZR X1,GRV2 IF I4 IOU
| Line S00358 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 19973 M01S00358.271l739 +++| ZR X1,GRV2 IF I4A OR I4S IOU 19974 M00S15948.dsdi +++| SA1 PBUF+1092 GET R-REGISTER UPPER PART 19975 M00S15949.dsdi +++| SA2 A1+B1 LOWER PART 19976 M00S15950.dsdi +++| MX3 12 PACK INTO 22 BITS 19977 M00S15951.dsdi +++| BX1 -X3*X1 19978 M00S15952.dsdi +++| BX2 X3*X2 19979 M00S15953.dsdi +++| IX6 X1+X2 19980 M00S15954.dsdi +++| LX6 -24 19981 M00S15955.dsdi +++| BX1 X3*X6 19982 M00S15956.dsdi +++| LX3 -16 19983 M00S15957.dsdi +++| BX2 X3*X6 19984 M00S15958.dsdi +++| LX2 4 19985 M00S15959.dsdi +++| BX1 X1+X2 19986 M00S15960.dsdi +++| EQ GRVX RETURN 19987 M00S15961.dsdi +++| 19988 M00S15962.dsdi +++| GRV2 SA1 PBUF+2184 GET R-REGISTER BITS (36-41) 19989 M00S15963.dsdi +++| MX3 -6 19990 M00S15964.dsdi +++| BX2 -X3*X1 19991 M00S15965.dsdi +++| LX2 59-5 19992 M00S15966.dsdi +++| SA1 A1+B1 GET REMAINDER OF R-REGISTER (42-57) 19993 M00S15967.dsdi +++| MX3 4 19994 M00S15968.dsdi +++| BX6 X3*X1 19995 M00S15969.dsdi +++| LX6 -6 19996 M00S15970.dsdi +++| BX2 X2+X6 19997 M00S15971.dsdi +++| MX3 12 19998 M00S15972.dsdi +++| LX3 -8 19999 M00S15973.dsdi +++| BX6 X3*X1 20000 M00S15974.dsdi +++| LX6 -2 20001 M00S15975.dsdi +++| BX1 X2+X6
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | dsdi64 |
Seq # *Modification Id* Act ----------------------------+ 20002 M01S00002.dsdi64 +++| LX1 -2 SHIFT RESULT FOR PROPER FORMAT 20003 M00S15976.dsdi +++| EQ GRVX RETURN 20004 M00S15977.dsdi +++| GSR SPACE 4,12 20005 M00S15978.dsdi +++|** GSR - GET SELECTED RECORD. 20006 M00S15979.dsdi +++|* 20007 M00S15980.dsdi +++|* ENTRY X6 = REQUESTED RECORD NAME. 20008 M00S15981.dsdi +++|* = 0 IF NEXT RECORD REQUESTED. 20009 M00S15982.dsdi +++|* 20010 M00S15983.dsdi +++|* EXIT X7 = 0 IF RECORD NOT FOUND. 20011 M00S15984.dsdi +++|* = 1 IF NAMED RECORD. 20012 M00S15985.dsdi +++|* = 2 IF RECORD NAME = -*-. 20013 M00S15986.dsdi +++|* 20014 M00S15987.dsdi +++|* USES ALL REGISTERS. 20015 M00S15988.dsdi +++|* 20016 M00S15989.dsdi +++|* CALLS CIO=,RDO=,RDW=,WNB=. 20017 M00S15990.dsdi +++| 20018 M00S15991.dsdi +++| 20019 M00S15992.dsdi +++| GSR SUBR 20020 M00S15993.dsdi +++| BX5 X6 SAVE RECORD NAME 20021 M00S15994.dsdi +++| RECALL J 20022 M00S15995.dsdi +++| GSR1 READ J 20023 M00S15996.dsdi +++| READO X2 READ RECORD NAME 20024 M00S15997.dsdi +++| SX7 0 PRESET RECORD NOT FOUND 20025 M00S15998.dsdi +++| NZ X1,GSRX IF EMPTY RECORD OR EOF 20026 M00S15999.dsdi +++| 20027 M00S16000.dsdi +++|* REMOVE BLANKS FROM NAME. 20028 M00S16001.dsdi +++| 20029 M00S16002.dsdi +++| MX0 -6 20030 M00S16003.dsdi +++| SB2 7 20031 M00S16004.dsdi +++| GSR2 LX6 6 20032 M00S16005.dsdi +++| BX3 -X0*X6 20033 M00S16006.dsdi +++| SX2 X3-1R 20034 M00S16007.dsdi +++| SB2 B2-B1 20035 M00S16008.dsdi +++| NZ X2,GSR3 IF NOT BLANK 20036 M00S16009.dsdi +++| BX6 X0*X6 REMOVE BLANK 20037 M00S16010.dsdi +++| GSR3 NZ B2,GSR2 LOOP 20038 M00S16011.dsdi +++| LX6 3*6 20039 M00S16012.dsdi +++| BX4 X6-X5 20040 M00S16013.dsdi +++| SX7 1 20041 M00S16014.dsdi +++| ZR X5,GSRX IF NEXT RECORD REQUESTED 20042 M00S16015.dsdi +++| SA1 =1L* 20043 M00S16016.dsdi +++| SX7 X7+B1 20044 M00S16017.dsdi +++| BX1 X1-X5 20045 M00S16018.dsdi +++| ZR X1,GSRX IF READ TO EOF REQUESTED 20046 M00S16019.dsdi +++| SX7 1 20047 M00S16020.dsdi +++| ZR X4,GSRX IF NAMED RECORD FOUND 20048 M00S16021.dsdi +++| GSR4 READW J,BUF,BUFL SKIP TO NEXT RECORD 20049 M00S16022.dsdi +++| ZR X1,GSR4 IF NOT END OF RECORD 20050 M00S16023.dsdi +++| JP GSR1 CHECK NEXT RECORD 20051 M00S16024.dsdi +++| GTD SPACE 4,12 20052 M00S16025.dsdi +++|** GTD - GENERATE DETAILED TABLE DUMP. 20053 M00S16026.dsdi +++|* 20054 M00S16027.dsdi +++|* ENTRY (X1) = FORMAT TABLE POINTERS. 20055 M00S16028.dsdi +++|* 24/0,18/LEFT COLUMN FWA,18/RIGHT COLUMN FWA 20056 M00S16029.dsdi +++|* (B2) = TABLE ADDRESS IN CORE. 20057 M00S16030.dsdi +++|* (FW) = TABLE ADDRESS IN DUMP FILE. 20058 M00S16031.dsdi +++|* 20059 M00S16032.dsdi +++|* USES X - 1, 2, 6, 7. 20060 M00S16033.dsdi +++|* A - 1, 2, 6, 7. 20061 M00S16034.dsdi +++|* B - 2, 7. 20062 M00S16035.dsdi +++|* 20063 M00S16036.dsdi +++|* CALLS PTL, SSB. 20064 M00S16037.dsdi +++|* 20065 M00S16038.dsdi +++|* MACROS PRINT. 20066 M00S16039.dsdi +++| 20067 M00S16040.dsdi +++| 20068 M00S16041.dsdi +++| GTD SUBR 20069 M00S16042.dsdi +++| SX6 X1 20070 M00S16043.dsdi +++| SA6 GTDA SET RIGHT COLUMN TABLE POINTER 20071 M00S16044.dsdi +++| SX7 B2 20072 M00S16045.dsdi +++| SA7 GTDC SAVE DATA ADDRESS 20073 M00S16046.dsdi +++| AX1 18 20074 M00S16047.dsdi +++| SX6 X1 20075 M00S16048.dsdi +++| SA6 GTDB SET LEFT COLUMN TABLE POINTER 20076 M00S16049.dsdi +++| RJ SSB CLEAR PRINT STRING 20077 M00S16050.dsdi +++| GTD1 SA1 GTDB 20078 M00S16051.dsdi +++| SA2 GTDC 20079 M00S16052.dsdi +++| SB2 X2+ SET DATA ADDRESS 20080 M00S16053.dsdi +++| SB7 PRBF 20081 M00S16054.dsdi +++| RJ PTL FORMAT LEFT COLUMN 20082 M00S16055.dsdi +++| SA1 GTDA 20083 M00S16056.dsdi +++| ZR X1,GTD2 IF ONLY 1 COLUMN TO BE DUMPED 20084 M00S16057.dsdi +++| NG X2,GTDX IF END OF DUMP 20085 M00S16058.dsdi +++| SB7 PRBF+69 20086 M00S16059.dsdi +++| RJ PTL FORMAT RIGHT COLUMN 20087 M00S16060.dsdi +++| PRINT CCCH,B7-CCCH PRINT 2 COLUMNS 20088 M00S16061.dsdi +++| EQ GTD1 CONTINUE 20089 M00S16062.dsdi +++| 20090 M00S16063.dsdi +++| GTD2 PRINT CCCH,B7-CCCH PRINT ONLY 1 COLUMN 20091 M00S16064.dsdi +++| SA1 GTDB 20092 M00S16065.dsdi +++| SA2 X1+ 20093 M00S16066.dsdi +++| ZR X2,GTDX IF END OF DUMP 20094 M00S16067.dsdi +++| PL X2,GTD1 IF NOT AT END OF LEFT COLUMN 20095 M00S16068.dsdi +++| SX6 X1+B1 BEGIN DUMP OF RIGHT COLUMN 20096 M00S16069.dsdi +++| SA6 A1 20097 M00S16070.dsdi +++| EQ GTD1 CONTINUE 20098 M00S16071.dsdi +++| 20099 M00S16072.dsdi +++| GTDA BSS 1 RIGHT COLUMN FORMAT TABLE POINTER 20100 M00S16073.dsdi +++| GTDB BSS 1 LEFT COLUMN FORMAT TABLE POINTER 20101 M00S16074.dsdi +++| GTDC BSS 1 TABLE DATA ADDRESS 20102 M00S16075.dsdi +++| GTE SPACE 4,10 20103 M00S16076.dsdi +++|** GTE - GET TABLE ENTRY. 20104 M00S16077.dsdi +++|* 20105 M00S16078.dsdi +++|* ENTRY (X0) = ENTRY FWA RELATIVE TO TABLE FWA 20106 M00S16079.dsdi +++|* IN DUMP FILE. 20107 M00S16080.dsdi +++|* (X1) = ENTRY LENGTH. 20108 M00S16081.dsdi +++|* (X2) = TABLE LENGTH. 20109 M00S16082.dsdi +++|* (X3) = TABLE FWA IN DUMP FILE. 20110 M00S16083.dsdi +++|* = 0, IF CM BUFFER REQUIRES INITIAL READ. 20111 M00S16084.dsdi +++|* (X4) = ENTRY NUMBER. 20112 M00S16085.dsdi +++|* 20113 M00S16086.dsdi +++|* EXIT (X5) = ABSOLUTE ENTRY FWA IN CM BUFFER. 20114 M00S16087.dsdi +++|* 20115 M00S16088.dsdi +++|* CM BUFFER CONTAINS NEW TABLE DATA, IF DESIRED 20116 M00S16089.dsdi +++|* ENTRY WAS NOT FOUND IN ORIGINAL DATA. 20117 M00S16090.dsdi +++|* 20118 M00S16091.dsdi +++|* USES X - 2, 3, 5, 6. 20119 M00S16092.dsdi +++|* A - 3, 6. 20120 M00S16093.dsdi +++|* B - 2. 20121 M00S16094.dsdi +++|* 20122 M00S16095.dsdi +++|* CALLS POM. 20123 M00S16096.dsdi +++|* 20124 M00S16097.dsdi +++|* MACROS GETCM. 20125 M00S16098.dsdi +++| 20126 M00S16099.dsdi +++| 20127 M00S16100.dsdi +++| GTE SUBR ENTRY/EXIT 20128 M00S16101.dsdi +++| NZ X3,GTE1 IF FIRST ACCESS OF TABLE 20129 M00S16102.dsdi +++| SA3 GTEB GET LAST ENTRY NUMBER 20130 M00S16103.dsdi +++| IX3 X3-X4 20131 M00S16104.dsdi +++| NG X3,GTE2 IF ENTRY NOT IN CM BUFFER 20132 M00S16105.dsdi +++| SA3 GTEA GET FIRST ENTRY NUMBER 20133 M00S16106.dsdi +++| IX3 X4-X3 20134 M00S16107.dsdi +++| NG X3,GTE2 IF ENTRY NOT IN CM BUFFER 20135 M00S16108.dsdi +++| IX3 X3*X1 SET FWA OF ENTRY IN CM BUFFER 20136 M00S16109.dsdi +++| SX5 X3+BUF 20137 M00S16110.dsdi +++| EQ GTEX RETURN 20138 M00S16111.dsdi +++| 20139 M00S16112.dsdi +++|* READ TABLE ENTRIES INTO CM BUFFER. 20140 M00S16113.dsdi +++| 20141 M00S16114.dsdi +++| GTE1 SX6 X3+ 20142 M00S16115.dsdi +++| SA6 GTEC STORE FWA OF TABLE 20143 M00S16116.dsdi +++| GTE2 SX6 X4+ 20144 M00S16117.dsdi +++| SA6 GTEA STORE FIRST ENTRY NUMBER 20145 M00S16118.dsdi +++| IX2 X2-X0 20146 M00S16119.dsdi +++| SX3 X2-BUFL 20147 M00S16120.dsdi +++| NG X3,GTE3 IF CM BUFFER NOT FILLED 20148 M00S16121.dsdi +++| SX2 BUFL SET BUFFER LENGTH = BUFFER SIZE 20149 M00S16122.dsdi +++| GTE3 SX5 X2 SET BUFFER LENGTH = REST OF TABLE 20150 M00S16123.dsdi +++| IX3 X2/X1 NUMBER OF ENTRIES THAT FIT IN CM BUFFER 20151 M00S16124.dsdi +++| IX3 X4+X3 20152 M00S16125.dsdi +++| SX6 X3-1 20153 M00S16126.dsdi +++| SA6 GTEB STORE LAST ENTRY NUMBER 20154 M00S16127.dsdi +++| SA3 GTEC GET FWA OF TABLE 20155 M00S16128.dsdi +++| IX6 X3+X0 FIND FWA OF DESIRED ENTRY 20156 M00S16129.dsdi +++| SA6 CPRA 20157 M00S16130.dsdi +++| SB2 A6 20158 M00S16131.dsdi +++| RJ POM POSITION TO FWA OF ENTRY 20159 M00S16132.dsdi +++| GETCM BUF,X5 READ TABLE ENTRIES 20160 M00S16133.dsdi +++| SX5 BUF SET FWA OF ENTRY IN CM BUFFER 20161 M00S16134.dsdi +++| EQ GTEX RETURN 20162 M00S16135.dsdi +++| 20163 M00S16136.dsdi +++| GTEA BSS 1 FIRST ENTRY NUMBER IN CM BUFFER 20164 M00S16137.dsdi +++| GTEB BSS 1 LAST ENTRY NUMBER IN CM BUFFER 20165 M00S16138.dsdi +++| GTEC BSS 1 FWA OF TABLE BEING ACCESSED
| Line S16139 Modification History | |
|---|---|
M01 (Removed by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 20166 M01S16139.dsdi67 ---| GXA SPACE 4,10
| Line S00210 Modification History | |
|---|---|
M01 (Added by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 20167 M01S00210.dsdi67 +++| GXA SPACE 4,15 20168 M00S16140.dsdi +++|** GXA - GET EXCHANGE PACKAGE ADDRESS. 20169 M00S16141.dsdi +++|* 20170 M00S16142.dsdi +++|* CRACK EXCHANGE PACKAGE ADDRESS PARAMETER. 20171 M00S16143.dsdi +++|* 20172 M00S16144.dsdi +++|* ENTRY DIRECTIVE IN BUFFER. 20173 M00S16145.dsdi +++|* 20174 M00S16146.dsdi +++|* EXIT (B6) = 0, IF NO TOKEN OBTAINED FROM *GAT*. 20175 M00S16147.dsdi +++|* (X2) .LT. 0, IF EXCHANGE PACKAGE ADDRESS FOUND. 20176 M00S16148.dsdi +++|* (X6) = 12/0, 16/STL, 32/STA. 20177 M00S16149.dsdi +++|*
| Line S16150 Modification History | |
|---|---|
M01 (Removed by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 20178 M01S16150.dsdi67 ---|* USES X - 1, 2, 4, 6.
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 20179 M01S00211.dsdi67 +++|* USES X - 1, 2, 3, 4, 6. 20180 M00S16151.dsdi +++|* B - 6. 20181 M00S16152.dsdi +++|* 20182 M00S16153.dsdi +++|* CALLS CSI, GAT, PTX, RMB.
| Line S16154 Modification History | |
|---|---|
M01 (Removed by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 20183 M01S16154.dsdi67 ---|* 20184 M00S16155.dsdi +++| 20185 M00S16156.dsdi +++| 20186 M00S16157.dsdi +++| GXA SUBR ENTRY/EXIT 20187 M00S16158.dsdi +++| RJ GAT GET ADDRESS TOKEN. 20188 M00S16159.dsdi +++| ZR B6,GXAX IF NOT SPECIFIED 20189 M00S16160.dsdi +++| BX4 X2+X4 20190 M00S16161.dsdi +++| SB6 A1 20191 M00S16162.dsdi +++| PL X4,GXAX IF NOT A VALID EXCHANGE PACKAGE SYMBOL
| Line S00212 Modification History | |
|---|---|
M01 (Added by) | dsdi67 |
Seq # *Modification Id* Act ----------------------------+ 20192 M01S00212.dsdi67 +++| SX3 B0+ SET NO RADIAL MCI DISPLAY 20193 M00S16163.dsdi +++| RJ PTX POSITION TO EXCHANGE PACKAGE 20194 M00S16164.dsdi +++| SX6 51 20195 M00S16165.dsdi +++| SX1 0 20196 M00S16166.dsdi +++| RJ RMB READ MEMORY BLOCK 20197 M00S16167.dsdi +++| RJ CSI COLLECT SEGMENT INFORMATION 20198 M00S16168.dsdi +++| SB6 B1 20199 M00S16169.dsdi +++| MX2 1 20200 M00S16170.dsdi +++| JP GXAX RETURN 20201 M00S16171.dsdi +++| HTS SPACE 4,15 20202 M00S16172.dsdi +++|** HTS - HEX TO STRING BUFFER. 20203 M00S16173.dsdi +++|* 20204 M00S16174.dsdi +++|* ENTRY (X1) = HEX DIGITS LEFT JUSTIFIED. 20205 M00S16175.dsdi +++|* (B6) = NUMBER OF DIGITS TO CONVERT. 20206 M00S16176.dsdi +++|* (B7) = ADDRESS OF STRING BUFFER. 20207 M00S16177.dsdi +++|* 20208 M00S16178.dsdi +++|* EXIT (B7) IS UPDATED. 20209 M00S16179.dsdi +++|* (X1) IS LEFT SHIFTED (B6)*4 PLACES. 20210 M00S16180.dsdi +++|* 20211 M00S16181.dsdi +++|* USES X - 0, 1, 2, 3, 7. 20212 M00S16182.dsdi +++|* A - 7. 20213 M00S16183.dsdi +++|* B - 6, 7. 20214 M00S16184.dsdi +++| 20215 M00S16185.dsdi +++| 20216 M00S16186.dsdi +++| HTS SUBR ENTRY/EXIT 20217 M00S16187.dsdi +++| MX0 -4 DIGIT MASK 20218 M00S16188.dsdi +++| HTS1 LX1 4 20219 M00S16189.dsdi +++| BX3 -X0*X1 20220 M00S16190.dsdi +++| SX7 X3+1R0 ASSUME DIGIT .LT. 0#A 20221 M00S16191.dsdi +++| SX3 X3-0#A 20222 M00S16192.dsdi +++| NG X3,HTS2 IF DIGIT .LT. 0#A 20223 M00S16193.dsdi +++| SX7 X3+1RA SET A - F 20224 M00S16194.dsdi +++| HTS2 SA7 B7 20225 M00S16195.dsdi +++| SB7 B7+B1 20226 M00S16196.dsdi +++| SB6 B6-B1 20227 M00S16197.dsdi +++| NZ B6,HTS1 IF MORE DIGITS 20228 M00S16198.dsdi +++| EQ HTSX RETURN 20229 M00S16199.dsdi +++| ICT SPACE 4,8 20230 M00S16200.dsdi +++|** ICT - INITIALIZE CHANNEL TABLE. 20231 M00S16201.dsdi +++|* 20232 M00S16202.dsdi +++|* EXIT (BUF - BUF+CTALL*5) = CHANNEL STATUS TABLE 20233 M00S16203.dsdi +++|* RESERVATION BYTES, LEFT JUSTIFIED. 20234 M00S16204.dsdi +++|* 20235 M00S16205.dsdi +++|* USES X - 0, 1, 2, 6. 20236 M00S16206.dsdi +++|* A - 1, 2, 6. 20237 M00S16207.dsdi +++|* B - 2, 3, 4, 5. 20238 M00S16208.dsdi +++| 20239 M00S16209.dsdi +++| 20240 M00S16210.dsdi +++| ICT SUBR 20241 M00S16211.dsdi +++| SA1 F.TCMT 20242 M00S16212.dsdi +++| SA2 X1+CHTP CHANNEL STATUS TABLE FWA 20243 M00S16213.dsdi +++| AX2 12 20244 M00S16214.dsdi +++| SB2 X2 20245 M00S16215.dsdi +++| SB2 X1+B2 20246 M00S16216.dsdi +++| MX0 12 20247 M00S16217.dsdi +++| SB5 B2+CTALL CHANNEL STATUS TABLE LWA+1 20248 M00S16218.dsdi +++| SB3 BUF 20249 M00S16219.dsdi +++| ICT1 SB4 5 BYTE COUNTER 20250 M00S16220.dsdi +++| SA2 B2+ READ NEXT TABLE WORD 20251 M00S16221.dsdi +++| ICT2 BX6 X0*X2 EXTRACT RESERVATION BYTE 20252 M00S16222.dsdi +++| LX2 12 20253 M00S16223.dsdi +++| SA6 B3 20254 M00S16224.dsdi +++| SB4 B4-B1 COUNT BYTE 20255 M00S16225.dsdi +++| SB3 B3+B1 20256 M00S16226.dsdi +++| NZ B4,ICT2 IF MORE BYTES IN THIS WORD 20257 M00S16227.dsdi +++| SB2 B2+B1 ADVANCE TABLE POINTER 20258 M00S16228.dsdi +++| LT B2,B5,ICT1 IF MORE TABLE ENTRIES 20259 M00S16229.dsdi +++| JP ICTX EXIT 20260 M00S16230.dsdi +++| IMR SPACE 4,15 20261 M00S16231.dsdi +++|** IMR - PROCESS IOU MAINTENANCE REGISTER RECORD. 20262 M00S16232.dsdi +++|* 20263 M00S16233.dsdi +++|* ENTRY VIA UNCONDITIONAL JUMP. 20264 M00S16234.dsdi +++|* 20265 M00S16235.dsdi +++|* EXIT TO *RBI2* IF NORMAL.
| Line S16236 Modification History | |
|---|---|
M01 (Removed by) | dsdi73 |
Seq # *Modification Id* Act ----------------------------+ 20266 M01S16236.dsdi73 ---|* TO *ERR26* IF PREMATURE EOF.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | dsdi73 |
Seq # *Modification Id* Act ----------------------------+ 20267 M01S00015.dsdi73 +++|* TO *PPE1* IF PREMATURE EOF. 20268 M00S16237.dsdi +++|*
| Line S16238 Modification History | |
|---|---|
M01 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20269 M01S16238.271l739 ---|* USES A - 1, 6, 7. 20270 M01S16239.271l739 ---|* X - 1, 6, 7. 20271 M01S16240.271l739 ---|* 20272 M01S16241.271l739 ---|* CALLS CRS, RBF.
| Line S00359 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20273 M01S00359.271l739 +++|* USES X - 0, 1, 2, 5, 6, 7. 20274 M01S00360.271l739 +++|* A - 1, 2, 6, 7. 20275 M01S00361.271l739 +++|* 20276 M01S00362.271l739 +++|* CALLS CRS, RBF, SFR. 20277 M00S16242.dsdi +++| 20278 M00S16243.dsdi +++| 20279 M00S16244.dsdi +++| IMR BSS 0 ENTRY 20280 M00S16245.dsdi +++| SX6 1 20281 M00S16246.dsdi +++| SA6 AP DEFINE ADVANCED PROCESSOR 20282 M00S16247.dsdi +++| SA1 ID 20283 M00S16248.dsdi +++| SA2 =3LDID 20284 M00S16249.dsdi +++| BX6 X1 20285 M00S16250.dsdi +++| LX7 X2 20286 M00S16251.dsdi +++| SA6 XI SAVE IMR RECORD ID 20287 M00S16252.dsdi +++| SA7 A1 SET RECORD ID OF *DID* 20288 M00S16253.dsdi +++| RJ CRS COPY RECORD TO FILE *S* 20289 M00S16254.dsdi +++| RJ RBF READ IOU MAINTENANCE REGISTERS
| Line S16255 Modification History | |
|---|---|
M01 (Removed by) | dsdi73 |
Seq # *Modification Id* Act ----------------------------+ 20290 M01S16255.dsdi73 ---| NZ X1,ERR29 IF PREMATURE EOF
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | dsdi73 |
Seq # *Modification Id* Act ----------------------------+ 20291 M01S00016.dsdi73 +++| NZ X1,PPE1 IF PREMATURE EOF 20292 M00S16256.dsdi +++| SA1 XI IMR RECORD ID 20293 M00S16257.dsdi +++| BX6 X1 20294 M00S16258.dsdi +++| SA6 ID
| Line S00363 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20295 M01S00363.271l739 +++| MX0 -18 20296 M01S00364.271l739 +++| SX5 /IOU/IOSB SEARCH FOR OS BOUNDS REGISTER 20297 M01S00365.271l739 +++| RJ SFR 20298 M01S00366.271l739 +++| NG X1,ERR42 IF NOT IN CURRENT BUFFER 20299 M01S00367.271l739 +++| BX6 -X0*X7 20300 M01S00368.271l739 +++| LX6 10 SET *NOS* MEMORY SIZE 20301 M01S00369.271l739 +++| SA6 MEMB 20302 M00S16259.dsdi +++| RJ CRS COPY MAINTENANCE REGISTERS TO FILE *S* 20303 M00S16260.dsdi +++| EQ RBI2 EXIT TO READ NEXT RECORD FROM FILE *F*
| Line S16261 Modification History | |
|---|---|
M01 (Removed by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20304 M01S16261.dsdi78 ---| IPA SPACE 4,11
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20305 M01S00045.dsdi78 +++| IPA SPACE 4,15 20306 M00S16262.dsdi +++|** IPA - INITIALIZE FOR PPU ANALYSIS. 20307 M00S16263.dsdi +++|*
| Line S16264 Modification History | |
|---|---|
M01 (Removed by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20308 M01S16264.dsdi78 ---|* ENTRY CH = DIRECTIVE CARD STRING POINTER.
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20309 M01S00046.dsdi78 +++|* ENTRY (CH) = DIRECTIVE STRING POINTER. 20310 M00S16265.dsdi +++|*
| Line S16266 Modification History | |
|---|---|
M01 (Removed by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20311 M01S16266.dsdi78 ---|* EXIT PI = 0 IF PPU NUMBERS AND NAMES ON DIRECTIVE CARD.
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20312 M01S00047.dsdi78 +++|* EXIT (IC) = *CPP* PROCESSING FLAG. 20313 M01S00048.dsdi78 +++|* (PI) = 0 IF PP/CPP NUMBERS AND NAMES IN DIRECTIVE. 20314 M00S16267.dsdi +++|* = PP COMMUNICATION AREA INDEX IF DUMPING ALL 20315 M00S16268.dsdi +++|* ACTIVE PPUS. 20316 M00S16269.dsdi +++|*
| Line S16270 Modification History | |
|---|---|
M01 (Removed by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20317 M01S16270.dsdi78 ---|* USES ALL REGISTERS.
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20318 M01S00049.dsdi78 +++|* USES X - 1, 2, 6. 20319 M01S00050.dsdi78 +++|* A - 1, 2, 6. 20320 M00S16271.dsdi +++|* 20321 M00S16272.dsdi +++|* CALLS SRA. 20322 M00S16273.dsdi +++| 20323 M00S16274.dsdi +++| 20324 M00S16275.dsdi +++| IPA1 BX6 X1 20325 M00S16276.dsdi +++| SA6 PI SET SEARCH INDEX 20326 M00S16277.dsdi +++| 20327 M00S16278.dsdi +++| IPA SUBR ENTRY/EXIT
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20328 M01S00051.dsdi78 +++| SA1 IC+1 GET *NPP*/*CPP* FLAG 20329 M01S00052.dsdi78 +++| BX6 X1 20330 M01S00053.dsdi78 +++| SA6 A1-B1 SET *CPP* PROCESSING FLAG 20331 M00S16279.dsdi +++| SX6 0 20332 M00S16280.dsdi +++| SA6 IPDA SET PP FLAG 20333 M00S16281.dsdi +++| SA6 PI PRESET SEARCH INDEX 20334 M00S16282.dsdi +++| SA6 FI PRESET NAMED PPU SEARCH INDEX 20335 M00S16283.dsdi +++| SA6 PP PRESET PP NUMBER 20336 M00S16284.dsdi +++| RJ SRA SET REFERENCE ADDRESS 20337 M00S16285.dsdi +++| SA1 CH 20338 M00S16286.dsdi +++| SA1 X1+ 20339 M00S16287.dsdi +++| SX1 X1-1R. 20340 M00S16288.dsdi +++| NZ X1,IPAX IF NUMBERS AND NAMES ON DIRECTIVE CARD 20341 M00S16289.dsdi +++| SA1 PC GET PP COMMUNICATION AREA POINTER 20342 M00S16290.dsdi +++| SA2 IC 20343 M00S16291.dsdi +++| ZR X2,IPA1 IF NOT PROCESSING CPP-S 20344 M00S16292.dsdi +++| SA2 NP 20345 M00S16293.dsdi +++| LX2 3 20346 M00S16294.dsdi +++| IX1 X2+X1 20347 M00S16295.dsdi +++| EQ IPA1 SET SEARCH INDEX
| Line S16296 Modification History | |
|---|---|
M01 (Removed by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20348 M01S16296.dsdi78 ---| IPD SPACE 4,11
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20349 M01S00054.dsdi78 +++| IPD SPACE 4,20 20350 M00S16297.dsdi +++|** IPD - INITIALIZE FOR PPU/FLPP DUMP. 20351 M00S16298.dsdi +++|* 20352 M00S16299.dsdi +++|* ENTRY (X6) = 0 IF PP OR CPP DUMP. 20353 M00S16300.dsdi +++|* = 1 IF FLPP DUMP. 20354 M00S16301.dsdi +++|* (CH) = CURRENT DIRECTIVE CARD STRING POINTER. 20355 M00S16302.dsdi +++|*
| Line S16303 Modification History | |
|---|---|
M01 (Removed by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20356 M01S16303.dsdi78 ---|* EXIT (PI) = 0 IF PP/CPP/FLPP NUMBERS ON DIRECTIVE CARD.
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20357 M01S00055.dsdi78 +++|* EXIT (IC) = *CPP* PROCESSING FLAG. 20358 M01S00056.dsdi78 +++|* (PI) = 0 IF PP/CPP/FLPP NUMBERS ON DIRECTIVE CARD. 20359 M00S16304.dsdi +++|* = *TDIR* TABLE POINTER FOR FIRST PP/CPP/FLPP 20360 M00S16305.dsdi +++|* IF DUMPING ALL. 20361 M00S16306.dsdi +++|* (PP) = 0. 20362 M00S16307.dsdi +++|* (IPDA) = PPU/FLPP DUMP FLAG. 20363 M00S16308.dsdi +++|*
| Line S16309 Modification History | |
|---|---|
M01 (Removed by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20364 M01S16309.dsdi78 ---|* USES ALL REGISTERS.
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20365 M01S00057.dsdi78 +++|* USES X - 0, 1, 5, 6. 20366 M01S00058.dsdi78 +++|* A - 1, 5, 6. 20367 M00S16310.dsdi +++|* 20368 M00S16311.dsdi +++|* CALLS BPN, SRA.
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20369 M01S00059.dsdi78 +++|* 20370 M01S00060.dsdi78 +++|* MACROS SEARCH. 20371 M00S16312.dsdi +++| 20372 M00S16313.dsdi +++| 20373 M00S16314.dsdi +++| IPD SUBR ENTRY/EXIT 20374 M00S16315.dsdi +++| SA6 IPDA SAVE PPU/FLPP FLAG
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20375 M01S00061.dsdi78 +++| SA1 IC+1 GET *NPP*/*CPP* FLAG 20376 M01S00062.dsdi78 +++| BX6 X1 20377 M01S00063.dsdi78 +++| SA6 A1-B1 SET *CPP* PROCESSING FLAG 20378 M00S16316.dsdi +++| SX6 0 20379 M00S16317.dsdi +++| SA6 PI PRESET INDEX 20380 M00S16318.dsdi +++| SA6 PP 20381 M00S16319.dsdi +++| RJ SRA SET REFERENCE ADDRESS 20382 M00S16320.dsdi +++| SA1 CH 20383 M00S16321.dsdi +++| SA1 X1+ 20384 M00S16322.dsdi +++| SX1 X1-1R. 20385 M00S16323.dsdi +++| NZ X1,IPDX IF NUMBERS ON DIRECTIVE CARD 20386 M00S16324.dsdi +++| SA5 IPDA 20387 M00S16325.dsdi +++| RJ BPN 20388 M00S16326.dsdi +++| ZR X5,IPD1 IF NOT FLPP DUMP 20389 M00S16327.dsdi +++| MX0 15 20390 M00S16328.dsdi +++| IPD1 SEARCH TDIR,X7,X0 FIND PPU/FLPP/CPP TABLE ENTRY 20391 M00S16329.dsdi +++| ZR X2,ERR7 IF NOT FOUND 20392 M00S16330.dsdi +++| SX6 A2 20393 M00S16331.dsdi +++| SA6 PI SET DIRECTORY INDEX FOR FIRST PPU/FLPP 20394 M00S16332.dsdi +++| EQ IPDX EXIT 20395 M00S16333.dsdi +++|
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 20396 M01S00064.dsdi78 +++| 20397 M00S16334.dsdi +++| IPDA CON 0 PPU/FLPP FLAG 20398 M00S16335.dsdi +++| IOQ SPACE 4,20 20399 M00S16336.dsdi +++|** IOQ - DISPLAY IOU IN LINE FORMAT. 20400 M00S16337.dsdi +++|* 20401 M00S16338.dsdi +++|* ENTRY (DSPB ) = FWA OF DUMP. 20402 M00S16339.dsdi +++|* (DSPB+1) = LWA OF DUMP. 20403 M00S16340.dsdi +++|* (DSPC ) = LINE SIZE. 20404 M00S16341.dsdi +++|* (DSPC+1) = HEX/OCTAL, ASCII/DISPLAY FLAGS. 20405 M00S16342.dsdi +++|* 20406 M00S16343.dsdi +++|* EXIT IOU DISPLAYED IN DESIRED LINE FORMAT. 20407 M00S16344.dsdi +++|* 20408 M00S16345.dsdi +++|* USES B - 4, 5, 6, 7. 20409 M00S16346.dsdi +++|* A - 1, 2, 4, 5, 6. 20410 M00S16347.dsdi +++|* X - 0, 1, 2, 3, 4, 5, 6. 20411 M00S16348.dsdi +++|* 20412 M00S16349.dsdi +++|* CALLS CTS, DPB, HTS, NXB, SAI, SDI, SRD. 20413 M00S16350.dsdi +++|* 20414 M00S16351.dsdi +++|* MACROS PRINT. 20415 M00S16352.dsdi +++| 20416 M00S16353.dsdi +++| 20417 M00S16354.dsdi +++| IOQ SUBR ENTRY/EXIT 20418 M00S16355.dsdi +++| SA4 DSPC BYTES PER LINE 20419 M00S16356.dsdi +++| SA5 A4+B1 HEX/OCTAL, ASCII/DISPLAY FLAGS 20420 M00S16357.dsdi +++| IOQ1 SB4 X4 20421 M00S16358.dsdi +++| SB5 X4 20422 M00S16359.dsdi +++| SA1 K4 20423 M00S16360.dsdi +++| SA1 X1+/DIRECT/TCTP 20424 M00S16361.dsdi +++| NG X1,IOQ1.1 IF CONTROLLER TYPE WITH 16 BIT ADDRESSES 20425 M00S16362.dsdi +++| LX4 B1,X4 SHIFT COUNT TO REFLECT BYTE ADDRESSING 20426 M00S16363.dsdi +++| IOQ1.1 SA1 DSPB 20427 M00S16364.dsdi +++| SA2 A1+B1 20428 M00S16365.dsdi +++| IX3 X1-X2 20429 M00S16366.dsdi +++| PL X3,IOQX IF DUMP IS FINISHED 20430 M00S16367.dsdi +++| IX6 X1+X4 20431 M00S16368.dsdi +++| SA6 A1 REPLACE FWA 20432 M00S16369.dsdi +++| IX3 X2-X1 20433 M00S16370.dsdi +++| PL X1,IOQ2 20434 M00S16371.dsdi +++| IX2 X3+X4 20435 M00S16372.dsdi +++| SB4 X2 20436 M00S16373.dsdi +++| IOQ2 LX1 -16 POSITION ADDRESS 20437 M00S16374.dsdi +++| SB6 4 DISPLAY ADDRESS 20438 M00S16375.dsdi +++| SB7 PRBF 20439 M00S16376.dsdi +++| SA2 K4 CONTROLLER TYPE 20440 M00S16377.dsdi +++| SX2 X2-3 20441 M00S16378.dsdi +++| NZ X2,IOQ2.1 IF NOT 63X 20442 M00S16379.dsdi +++| LX1 -4 SHIFT LAST DIGIT OF ADDRESS 20443 M00S16380.dsdi +++| SB6 B6+B1 DIGIT COUNT 20444 M00S16381.dsdi +++| IOQ2.1 SA2 K4 20445 M00S16382.dsdi +++| SX0 B1 20446 M00S16383.dsdi +++| BX2 X2-X0 20447 M00S16384.dsdi +++| NZ X2,IOQ2.2 IF NOT ISD 20448 M00S16385.dsdi +++| LX0 13-16 ADD 2000 (HEX) TO ADDRESS IF ISD 20449 M00S16386.dsdi +++| IX1 X1+X0 20450 M00S16387.dsdi +++| IOQ2.2 RJ HTS 20451 M00S16388.dsdi +++| ZR X5,IOQ2.4 IF HEX DUMP REQUESTED 20452 M00S16389.dsdi +++| SB6 4 20453 M00S16390.dsdi +++| SB7 B7-B6 20454 M00S16391.dsdi +++| SA2 K4 CHECK CONTROLLER SIZE 20455 M00S16392.dsdi +++| ZR X2,IOQ2.3 IF 4K CONTROLLER 20456 M00S16393.dsdi +++| LX1 -3 PROCESS 8K CONTROLLER 20457 M00S16394.dsdi +++| SB6 B6+B1 20458 M00S16395.dsdi +++| SX2 X2-3 20459 M00S16396.dsdi +++| NZ X2,IOQ2.3 IF NOT 63X 20460 M00S16397.dsdi +++| LX1 -3 SHIFT LAST DIGIT OF ADDRESS 20461 M00S16398.dsdi +++| SB6 B6+B1 DIGIT COUNT 20462 M00S16399.dsdi +++| IOQ2.3 LX1 -12 20463 M00S16400.dsdi +++| RJ CTS CONVERT OCTAL ADDRESS 20464 M00S16401.dsdi +++| IOQ2.4 SB7 B4+ 20465 M00S16402.dsdi +++| SB6 B5+ 20466 M00S16403.dsdi +++| IOQ3 RJ NXB COLLECT ONE BYTE 20467 M00S16404.dsdi +++| BX6 X1 20468 M00S16405.dsdi +++| SA6 BUF+B7 20469 M00S16406.dsdi +++| SB7 B7-B1 20470 M00S16407.dsdi +++| NZ B7,IOQ3 IF MORE BYTES TO COLLECT 20471 M00S16408.dsdi +++| SX1 BUF+1 20472 M00S16409.dsdi +++| SB5 B6+ RESTORE B5 20473 M00S16410.dsdi +++| RJ SRD 20474 M00S16411.dsdi +++| SA4 DSPC BYTES PER LINE 20475 M00S16412.dsdi +++| SA5 A4+B1 20476 M00S16413.dsdi +++| NZ X1,IOQ1 IF REPEATED DATA 20477 M00S16414.dsdi +++| SB7 PRBF+6 20478 M00S16415.dsdi +++| SB4 X4 20479 M00S16416.dsdi +++| IOQ4 SA1 B4+BUF DISPLAY BYTES IN HEX OR OCTAL 20480 M00S16417.dsdi +++| RJ DPB 20481 M00S16418.dsdi +++| SB4 B4-B1 20482 M00S16419.dsdi +++| SB7 B7+2 20483 M00S16420.dsdi +++| NZ B4,IOQ4 IF MORE DIGITS TO DISPLAY 20484 M00S16421.dsdi +++| SB4 X4 20485 M00S16422.dsdi +++| SB7 B7+B1 20486 M00S16423.dsdi +++| IOQ5 SA2 BUF+B4 PRINT CHARACTER REPRESENTATION 20487 M00S16424.dsdi +++| SB6 B1+B1 20488 M00S16425.dsdi +++| SB4 B4-B1 20489 M00S16426.dsdi +++| NG B4,IOQ7 IF NO MORE BYTES TO INTERPRET 20490 M00S16427.dsdi +++| NG X5,IOQ6 IF DISPLAY CODE INTERPRETATION 20491 M00S16428.dsdi +++| LX2 -16 20492 M00S16429.dsdi +++| RJ SAI SET ASCII INTERPRETATION 20493 M00S16430.dsdi +++| EQ IOQ5 CHECK FOR MORE BYTES TO CONVERT 20494 M00S16431.dsdi +++| 20495 M00S16432.dsdi +++| IOQ6 SB6 B6+B1 DISPLAY 3 CHARACTERS IN DISPLAY CODE 20496 M00S16433.dsdi +++| LX2 -18 20497 M00S16434.dsdi +++| RJ SDI SET DISPLAY CODE INTERPRETATION 20498 M00S16435.dsdi +++| EQ IOQ5 CHECK FOR MORE BYTES TO CONVERT 20499 M00S16436.dsdi +++| 20500 M00S16437.dsdi +++| IOQ7 PRINT CCCH,B7-CCCH DISPLAY LINE 20501 M00S16438.dsdi +++| SA4 DSPC 20502 M00S16439.dsdi +++| EQ IOQ1 REPEAT UNTIL ALL BYTES DISPLAYED 20503 M00S16440.dsdi +++| IPO SPACE 4,15 20504 M00S16441.dsdi +++|** IPO - INSPECT PPU OCTAL BLOCK FORMAT. 20505 M00S16442.dsdi +++|* 20506 M00S16443.dsdi +++|* ENTRY (DSPB+0) = FWA OF DUMP. 20507 M00S16444.dsdi +++|* (DSPB+1) = LWA OF DUMP. 20508 M00S16445.dsdi +++|* 20509 M00S16446.dsdi +++|* EXIT TO *DSPX*. 20510 M00S16447.dsdi +++|* 20511 M00S16448.dsdi +++|* USES B - 4, 6, 7. 20512 M00S16449.dsdi +++|* A - 1, 2, 6. 20513 M00S16450.dsdi +++|* X - 1, 2, 3, 5, 6. 20514 M00S16451.dsdi +++|* 20515 M00S16452.dsdi +++|* CALLS CPS, CTS, DPB, NXB, UPS. 20516 M00S16453.dsdi +++|* 20517 M00S16454.dsdi +++|* MACROS PRINT. 20518 M00S16455.dsdi +++| 20519 M00S16456.dsdi +++| 20520 M00S16457.dsdi +++| IPO BSS 0 ENTRY 20521 M00S16458.dsdi +++| SX1 10 ENSURE AT LEAST TEN LINES ON THE PAGE 20522 M00S16459.dsdi +++| RJ CPS CHECK PAGE SPACE 20523 M00S16460.dsdi +++| PRINT (=2C ) 20524 M00S16461.dsdi +++| SA2 IPOA 20525 M00S16462.dsdi +++| SB7 PRBF 20526 M00S16463.dsdi +++| SB6 70 20527 M00S16464.dsdi +++| RJ UPS UNPACK HEADER 20528 M00S16465.dsdi +++| SA1 DSPB FWA 20529 M00S16466.dsdi +++| SB6 3 20530 M00S16467.dsdi +++| LX1 60-15 20531 M00S16468.dsdi +++| SB7 PRBF 20532 M00S16469.dsdi +++| RJ CTS 20533 M00S16470.dsdi +++| PRINT CCCH,71 20534 M00S16471.dsdi +++| SX6 1R 20535 M00S16472.dsdi +++| SA6 PRBF 20536 M00S16473.dsdi +++| SA6 A6+B1 20537 M00S16474.dsdi +++| SA6 A6+B1 20538 M00S16475.dsdi +++| SB7 -100B 20539 M00S16476.dsdi +++| IPO2 RJ NXB GET THE NEXT 100 BYTES 20540 M00S16477.dsdi +++| BX6 X1 20541 M00S16478.dsdi +++| SA6 B7+BUF+100B 20542 M00S16479.dsdi +++| SB7 B7+B1 20543 M00S16480.dsdi +++| NZ B7,IPO2 IF MORE BYTES NEEDED 20544 M00S16481.dsdi +++| SX5 -10B 20545 M00S16482.dsdi +++| IPO3 SX6 X5+1R0+10B 20546 M00S16483.dsdi +++| SA6 PRBF+4 20547 M00S16484.dsdi +++| SB7 PRBF+5 20548 M00S16485.dsdi +++| SB4 10B 20549 M00S16486.dsdi +++| SA1 X5+BUF+10B 20550 M00S16487.dsdi +++| IPO4 SB7 B7+2 INCREMENT STRING POINTER 20551 M00S16488.dsdi +++| RJ DPB DISPLAY PPU MEMORY 20552 M00S16489.dsdi +++| SA1 A1+10B 20553 M00S16490.dsdi +++| SB4 B4-B1 20554 M00S16491.dsdi +++| NZ B4,IPO4 IF NOT FINISHED 20555 M00S16492.dsdi +++| PRINT CCCH,71 20556 M00S16493.dsdi +++| SX5 X5+B1 20557 M00S16494.dsdi +++| NZ X5,IPO3 IF NOT FINISHED WITH BLOCK 20558 M00S16495.dsdi +++| SA1 DSPB 20559 M00S16496.dsdi +++| SX6 X1+100B 20560 M00S16497.dsdi +++| SA6 A1 20561 M00S16498.dsdi +++| SA2 A1+B1 20562 M00S16499.dsdi +++| IX3 X6-X2 20563 M00S16500.dsdi +++| NG X3,IPO IF NOT COMPLETE 20564 M00S16501.dsdi +++| EQ DSPX RETURN 20565 M00S16502.dsdi +++| 20566 M00S16503.dsdi +++| 20567 M00S16504.dsdi +++| IPOA DATA 40H 00XX 0X 1X 2X 3X 20568 M00S16505.dsdi +++| DATA 30H 4X 5X 6X 7X 20569 M00S16506.dsdi +++| SPACE 4,15 20570 M00S16507.dsdi +++|** IPX - INSPECT PPU HEX BLOCK FORMAT. 20571 M00S16508.dsdi +++|* 20572 M00S16509.dsdi +++|* ENTRY (DSPB+0) = FWA OF DUMP. 20573 M00S16510.dsdi +++|* (DSPB+1) = LWA OF DUMP. 20574 M00S16511.dsdi +++|* 20575 M00S16512.dsdi +++|* EXIT TO *DSPX*. 20576 M00S16513.dsdi +++|* 20577 M00S16514.dsdi +++|* USES B - 3, 4, 6, 7. 20578 M00S16515.dsdi +++|* A - 1, 2, 6. 20579 M00S16516.dsdi +++|* X - 1, 2, 3, 5, 6. 20580 M00S16517.dsdi +++|* 20581 M00S16518.dsdi +++|* CALLS CPS, DPB, HTS, NXB, UPS. 20582 M00S16519.dsdi +++|* 20583 M00S16520.dsdi +++|* MACROS PRINT. 20584 M00S16521.dsdi +++| 20585 M00S16522.dsdi +++| 20586 M00S16523.dsdi +++| IPX BSS 0 ENTRY 20587 M00S16524.dsdi +++| IPX1 SX1 18 20588 M00S16525.dsdi +++| RJ CPS ENSURE AT LEAST 18 LINES ON PAGE 20589 M00S16526.dsdi +++| PRINT (=2C ) 20590 M00S16527.dsdi +++| SA2 IPXA * NXX 0X 1X ...* 20591 M00S16528.dsdi +++| SB6 102 20592 M00S16529.dsdi +++| SB7 PRBF 20593 M00S16530.dsdi +++| RJ UPS UNPACK STRING 20594 M00S16531.dsdi +++| SA1 DSPB FWA 20595 M00S16532.dsdi +++| LX1 -16 20596 M00S16533.dsdi +++| SB6 B1+B1 20597 M00S16534.dsdi +++| SB7 PRBF+1 20598 M00S16535.dsdi +++| RJ HTS 20599 M00S16536.dsdi +++| PRINT CCCH,102 20600 M00S16537.dsdi +++| SB7 0#100 20601 M00S16538.dsdi +++| SB4 BUF 20602 M00S16539.dsdi +++| IPX3 RJ NXB GET 100(16) BYTES 20603 M00S16540.dsdi +++| BX6 X1 20604 M00S16541.dsdi +++| SA6 B4 20605 M00S16542.dsdi +++| SB4 B4+B1 20606 M00S16543.dsdi +++| SB7 B7-B1 20607 M00S16544.dsdi +++| NZ B7,IPX3 IF MORE BYTES TO GET 20608 M00S16545.dsdi +++| SX1 0 20609 M00S16546.dsdi +++| IPX4 LX1 -4 20610 M00S16547.dsdi +++| SB6 B1 20611 M00S16548.dsdi +++| SB7 PRBF+4 20612 M00S16549.dsdi +++| SX6 1R 20613 M00S16550.dsdi +++| SA6 PRBF+1 20614 M00S16551.dsdi +++| SA6 A6+B1 20615 M00S16552.dsdi +++| RJ HTS 20616 M00S16553.dsdi +++| SB3 0#10 20617 M00S16554.dsdi +++| SX6 X1+B1 20618 M00S16555.dsdi +++| SB4 B3 20619 M00S16556.dsdi +++| SA1 X1+BUF 20620 M00S16557.dsdi +++| SA6 IPXB 20621 M00S16558.dsdi +++| MX5 0 20622 M00S16559.dsdi +++| IPX5 SB7 B7+2 20623 M00S16560.dsdi +++| RJ DPB DISPLAY PPU BYTE 20624 M00S16561.dsdi +++| SA1 A1+B3 20625 M00S16562.dsdi +++| SB4 B4-B1 20626 M00S16563.dsdi +++| NZ B4,IPX5 IF BLOCK NOT COMPLETE 20627 M00S16564.dsdi +++| PRINT CCCH,B7-CCCH 20628 M00S16565.dsdi +++| SA1 IPXB LOOP COUNT 20629 M00S16566.dsdi +++| SX6 X1-0#10 20630 M00S16567.dsdi +++| NZ X6,IPX4 20631 M00S16568.dsdi +++| SA1 DSPB 20632 M00S16569.dsdi +++| SX6 X1+0#100 20633 M00S16570.dsdi +++| SA6 A1 20634 M00S16571.dsdi +++| SA2 A1+B1 20635 M00S16572.dsdi +++| IX3 X6-X2 20636 M00S16573.dsdi +++| NG X3,IPX1 IF MORE PP MEMORY TO DUMP 20637 M00S16574.dsdi +++| EQ DSPX RETURN TO *DSPX* 20638 M00S16575.dsdi +++| 20639 M00S16576.dsdi +++| 20640 M00S16577.dsdi +++| IPXA DATA 50H LXX 0X 1X 2X 3X 4X 5X 6X 20641 M00S16578.dsdi +++| DATA 50H 7X 8X 9X AX BX CX DX EX F 20642 M00S16579.dsdi +++| DATA 2CX 20643 M00S16580.dsdi +++| IPXB DATA 0 20644 M00S16581.dsdi +++| ISD SPACE 4,15 20645 M00S16582.dsdi +++|** ISM - INITIALIZE FOR SIXTY-FOUR BIT MEMORY PROCESSING. 20646 M00S16583.dsdi +++|*
| Line S16584 Modification History | |
|---|---|
M01 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20647 M01S16584.271l739 ---|* EXIT (XI) = *MEM* RANDOM INDEX. 20648 M01S16585.271l739 ---|* (XH) = *MEM* HEADER WORD. 20649 M01S16586.271l739 ---|* (XM) = PAGE SIZE MASK. 20650 M01S16587.271l739 ---|* 20651 M01S16588.271l739 ---|* USES A - 1, 2, 6. 20652 M01S16589.271l739 ---|* X - 0, 1, 2, 3, 6. 20653 M01S16590.271l739 ---|* 20654 M01S16591.271l739 ---|* MACROS SEARCH.
| Line S00370 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20655 M01S00370.271l739 +++|* ENTRY (AO) = ADDRESS OFFSET FOR *EI* ADDRESS. 20656 M01S00371.271l739 +++|* (EI) .NE. 0 IF FORCING *EI* ADDRESSING. 20657 M01S00372.271l739 +++|* 20658 M01S00373.271l739 +++|* EXIT (AO) = 0. 20659 M01S00374.271l739 +++|* (XH) = MEMORY RECORD VALID FWA. 20660 M01S00375.271l739 +++|* (XI) = MEMORY RECORD RANDOM INDEX. 20661 M01S00376.271l739 +++|* (XL) = MEMORY RECORD VALID LWA+1. 20662 M01S00377.271l739 +++|* (XM) = MEMORY RECORD PAGE SIZE MASK. 20663 M01S00378.271l739 +++|* 20664 M01S00379.271l739 +++|* USES X - 1, 2, 3, 6, 7. 20665 M01S00380.271l739 +++|* A - 1, 2, 3, 6, 7. 20666 M00S16592.dsdi +++| 20667 M00S16593.dsdi +++| 20668 M00S16594.dsdi +++| ISM SUBR ENTRY/EXIT
| Line S16595 Modification History | |
|---|---|
M01 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20669 M01S16595.271l739 ---| MX0 18 20670 M01S16596.271l739 ---| SA1 =3LMEM 20671 M01S16597.271l739 ---| SEARCH TDIR,X1,X0 20672 M01S16598.271l739 ---| ZR X2,ISMX IF NOT FOUND
| Line S00381 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20673 M01S00381.271l739 +++| SA3 AO 20674 M01S00382.271l739 +++| SA2 EH 20675 M01S00383.271l739 +++| NZ X3,ISM1 IF *EI* ADDRESS 20676 M01S00384.271l739 +++| SA1 EI 20677 M01S00385.271l739 +++| NZ X1,ISM1 IF FORCED *EI* ADDRESSING 20678 M01S00386.271l739 +++| SA2 MH 20679 M01S00387.271l739 +++| ISM1 ZR X2,ERR14 IF MEMORY RECORD NOT ON DUMP FILE 20680 M00S16599.dsdi +++| SX6 X2 NUMBER OF WORDS DUMPED 20681 M00S16600.dsdi +++| AX2 18 START OF MEMORY 20682 M00S16601.dsdi +++| SX7 X2
| Line S16602 Modification History | |
|---|---|
M01 (Removed by) | dsdi54 |
Seq # *Modification Id* Act ----------------------------+ 20683 M01S16602.dsdi54 ---| IX6 X1+X6 LWA OF MEMORY
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dsdi54 |
Seq # *Modification Id* Act ----------------------------+ 20684 M01S00001.dsdi54 +++| IX6 X7+X6 20685 M00S16603.dsdi +++| LX6 12 CONVERT TO A BYTE ADDRESS
| Line S00388 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20686 M01S00388.271l739 +++| IX6 X3+X6 APPEND ADDRESS OFFSET 20687 M00S16604.dsdi +++| SA6 XL
| Line S16605 Modification History | |
|---|---|
M01 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20688 M01S16605.271l739 ---| LX7 11
| Line S00389 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20689 M01S00389.271l739 +++| LX7 12 20690 M01S00390.271l739 +++| IX7 X3+X7 APPEND ADDRESS OFFSET 20691 M00S16606.dsdi +++| SA7 XH 20692 M00S16607.dsdi +++| SA2 A2+B1 *MEM* RANDOM INDEX 20693 M00S16608.dsdi +++| BX6 X2 20694 M00S16609.dsdi +++| SA6 XI 20695 M00S16610.dsdi +++| SA1 S2PSM GENERATE THE PAGE SIZE MASK 20696 M00S16611.dsdi +++| LX1 9 20697 M00S16612.dsdi +++| SX6 X1-1 20698 M00S16613.dsdi +++| BX6 -X1*X6 20699 M00S16614.dsdi +++| SA6 XM
| Line S00391 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20700 M01S00391.271l739 +++| BX6 X6-X6 CLEAR ADDRESS OFFSET 20701 M01S00392.271l739 +++| SA6 A3 20702 M00S16615.dsdi +++| EQ ISMX RETURN 20703 M00S16616.dsdi +++| ISS SPACE 4,16 20704 M00S16617.dsdi +++|** ISS - INITIALIZE FOR SUB-SYSTEM DUMP. 20705 M00S16618.dsdi +++|* 20706 M00S16619.dsdi +++|* ENTRY (X5) = 24/ ,12/SUBSYSTEM ID,6/ ,18/CP NUMBER 20707 M00S16620.dsdi +++|* CP NUMBER = 0 IF ANY CONTROL POINT ALLOWED. 20708 M00S16621.dsdi +++|* .GT. 0, SUBSYSTEM MUST BE AT GIVEN 20709 M00S16622.dsdi +++|* CONTROL POINT UNLESS 20710 M00S16623.dsdi +++|* SUBSYSTEM ID = 0. 20711 M00S16624.dsdi +++|* (CN) = CONTROL POINT NUMBER. 20712 M00S16625.dsdi +++|* (NC) = NUMBER OF CONTROL POINTS - 1. 20713 M00S16626.dsdi +++|* (RC) = CONTROL POINT REFERENCE ADDRESS. 20714 M00S16627.dsdi +++|* 20715 M00S16628.dsdi +++|* EXIT (RI) = RANDOM ADDRESS OF DUMPED SUBSYSTEM. 20716 M00S16629.dsdi +++|* BINARY DUMP FILE IS POSITIONED AT CONTROL POINT RA. 20717 M00S16630.dsdi +++|* 20718 M00S16631.dsdi +++|* USES X - 1, 2, 3, 4, 6, 7. 20719 M00S16632.dsdi +++|* A - 1, 3, 4, 6, 7. 20720 M00S16633.dsdi +++|* B - 2, 3, 7. 20721 M00S16634.dsdi +++|* 20722 M00S16635.dsdi +++|* CALLS LDC, PCM, RNF, SCM, SRA. 20723 M00S16636.dsdi +++| 20724 M00S16637.dsdi +++| 20725 M00S16638.dsdi +++| ISS SUBR 20726 M00S16639.dsdi +++| RJ LDC LIST DIRECTIVE 20727 M00S16640.dsdi +++| MX7 12 SET SUBSYSTEM ID MASK 20728 M00S16641.dsdi +++| LX7 36 20729 M00S16642.dsdi +++| SX3 X5+ GET CP NUMBER 20730 M00S16643.dsdi +++| SA4 F.TCMT 20731 M00S16644.dsdi +++| SB7 CPLEN INCREMENTAL INDEX 20732 M00S16645.dsdi +++| NZ X3,ISS2 IF SPECIFIC CONTROL POINT REQUIRED 20733 M00S16646.dsdi +++| BX3 X7*X5 20734 M00S16647.dsdi +++| SA1 NC 20735 M00S16648.dsdi +++| SB2 X1+ 20736 M00S16649.dsdi +++| SA1 X4+CPAS+JCIW GET FIRST CP SUBSYSTEM ID 20737 M00S16650.dsdi +++| BX2 X3-X1 COMPARE ENTRIES 20738 M00S16651.dsdi +++| SB3 B0 PRESET CONTROL POINT NUMBER 20739 M00S16652.dsdi +++| ISS1 SB3 B3+B1 20740 M00S16653.dsdi +++| BX6 X7*X2 20741 M00S16654.dsdi +++| GT B3,B2,ERR10 IF CONTROL POINT NUMBER .GT. NCPL 20742 M00S16655.dsdi +++| SA1 A1+B7 GET NEXT CP SUBSYSTEM ID 20743 M00S16656.dsdi +++| BX2 X3-X1 COMPARE ENTRIES 20744 M00S16657.dsdi +++| NZ X6,ISS1 IF NO MATCH 20745 M00S16658.dsdi +++| JP ISS3 20746 M00S16659.dsdi +++| 20747 M00S16660.dsdi +++| ISS2 SX1 CPAS 20748 M00S16661.dsdi +++| IX2 X1*X3 20749 M00S16662.dsdi +++| SB3 X3 SET CONTROL POINT NUMBER 20750 M00S16663.dsdi +++| IX6 X2+X4 20751 M00S16664.dsdi +++| SA1 X6+JCIW GET CP SUBSYSTEM ID 20752 M00S16665.dsdi +++| BX3 X7*X5 GET REQUESTED SUBSYSTEM ID 20753 M00S16666.dsdi +++| BX2 X3-X1 COMPARE ENTRIES 20754 M00S16667.dsdi +++| ZR X3,ISS3 IF ANY SUBSYSTEM ALLOWED 20755 M00S16668.dsdi +++| BX6 X7*X2 20756 M00S16669.dsdi +++| NZ X6,ERR10 IF NO MATCH ON ENTRIES 20757 M00S16670.dsdi +++| ISS3 SX6 B3 20758 M00S16671.dsdi +++| SA6 CN
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | dsdi89 |
Seq # *Modification Id* Act ----------------------------+ 20759 M01S00133.dsdi89 +++| BX2 X6 20760 M01S00134.dsdi89 +++| SA1 OP 20761 M00S16672.dsdi +++| RJ RNF READ NEGATIVE FL FOR SELECTED SUB-SYSTEM 20762 M00S16673.dsdi +++| SA1 L.TNFL GET NFL/100 20763 M00S16674.dsdi +++| SX6 DNFL GET DEFAULT 20764 M00S16675.dsdi +++| IX1 X1-X6 20765 M00S16676.dsdi +++| NG X1,ERR28 IF INSUFFICIENT NFL SPACE 20766 M00S16677.dsdi +++| SA1 RC GET RA 20767 M00S16678.dsdi +++| BX6 X1 20768 M00S16679.dsdi +++| RJ SRA SET REFERENCE ADDRESS 20769 M00S16680.dsdi +++| RJ SCM SET CENTRAL MEMORY 20770 M00S16681.dsdi +++| SA7 RI 20771 M00S16682.dsdi +++| SA3 RC 20772 M00S16683.dsdi +++| RJ PCM 20773 M00S16684.dsdi +++| JP ISSX EXIT 20774 M00S16685.dsdi +++| LDC SPACE 4,10 20775 M00S16686.dsdi +++|** LDC - LIST DIRECTIVE CARD. 20776 M00S16687.dsdi +++|* 20777 M00S16688.dsdi +++|* ENTRY EF = 0 SET PAGE EJECT AND DONT LIST DIRECTIVE. 20778 M00S16689.dsdi +++|* .NE. 0 LIST DIRECTIVE AND CURRENT RECORD NAME. 20779 M00S16690.dsdi +++|* 20780 M00S16691.dsdi +++|* SAVES X - 0,5. 20781 M00S16692.dsdi +++|* B - 1. 20782 M00S16693.dsdi +++|* A - 0. 20783 M00S16694.dsdi +++|* 20784 M00S16695.dsdi +++|* CALLS PKS,WOF. 20785 M00S16696.dsdi +++| 20786 M00S16697.dsdi +++| 20787 M00S16698.dsdi +++| LDC SUBR 20788 M00S16699.dsdi +++| SA1 EF 20789 M00S16700.dsdi +++| NZ X1,LDC1 IF NO EJECT SELECTED 20790 M00S16701.dsdi +++| SX6 100 20791 M00S16702.dsdi +++| SA6 LC FORCE EJECT 20792 M00S16703.dsdi +++| JP LDCX EXIT 20793 M00S16704.dsdi +++| 20794 M00S16705.dsdi +++|* LIST DIRECTIVE AND RECORD NAME. 20795 M00S16706.dsdi +++| 20796 M00S16707.dsdi +++| LDC1 SA1 =10H 20797 M00S16708.dsdi +++| SA2 SBTL1 20798 M00S16709.dsdi +++| BX6 X1 20799 M00S16710.dsdi +++| SA6 BUF LEADING SPACES FOR LIST LINE 20800 M00S16711.dsdi +++| BX7 X2 20801 M00S16712.dsdi +++| SA7 A6+B1 STORE RECORD NAME 20802 M00S16713.dsdi +++| SB2 CHAR 20803 M00S16714.dsdi +++| SB7 A7+B1 20804 M00S16715.dsdi +++| SB6 78 20805 M00S16716.dsdi +++| RJ PKS PACK DIRECTIVE CARD 20806 M00S16717.dsdi +++| PRINT (=2C ) 20807 M00S16718.dsdi +++| PRINT BUF 20808 M00S16719.dsdi +++| PRINT (=2C ) 20809 M00S16720.dsdi +++| JP LDCX EXIT 20810 M00S16721.dsdi +++| LDD SPACE 4,8 20811 M00S16722.dsdi +++|** LDD - LOAD DUMP DIRECTORY. 20812 M00S16723.dsdi +++|* 20813 M00S16724.dsdi +++|* EXIT (X1) .NE. 0 IF FILE NOT IN RANDOM FORMAT. 20814 M00S16725.dsdi +++|* = 0 IF DIRECTORY TABLE LOADED. 20815 M00S16726.dsdi +++|* *S* FILE NAME IS CHANGED TO NAME OF *F* FILE. 20816 M00S16727.dsdi +++|* 20817 M00S16728.dsdi +++|* USES X - 1, 3, 6. 20818 M00S16729.dsdi +++|* A - 1, 3, 6. 20819 M00S16730.dsdi +++| 20820 M00S16731.dsdi +++| 20821 M00S16732.dsdi +++| LDD SUBR ENTRY/EXIT 20822 M00S16733.dsdi +++| OPEN F,READNR,R 20823 M00S16734.dsdi +++| SA1 X2+B1 20824 M00S16735.dsdi +++| NG X1,LDDX IF NOT ON MASS STORAGE 20825 M00S16736.dsdi +++| SA1 RBIA 20826 M00S16737.dsdi +++| NZ X1,LDDX IF NO REWIND SET 20827 M00S16738.dsdi +++| SKIPEI X2 CHECK DIRECTORY RECORD 20828 M00S16739.dsdi +++| SKIPB X2,2 20829 M00S16740.dsdi +++| READ X2 20830 M00S16741.dsdi +++| READO X2 READ FIRST WORD 20831 M00S16742.dsdi +++| LX6 18 20832 M00S16743.dsdi +++| SX1 X6-770000B 20833 M00S16744.dsdi +++| NZ X1,LDDX IF NOT IDENT TABLE 20834 M00S16745.dsdi +++| LX6 6 SET TABLE LENGTH 20835 M00S16746.dsdi +++| READW X2,BUF,X6 DISCARD IDENT TABLE 20836 M00S16747.dsdi +++| READO X2 READ DIRECTORY TABLE LENGTH WORD 20837 M00S16748.dsdi +++| MX1 42D 20838 M00S16749.dsdi +++| SA3 =0LDUMP 20839 M00S16750.dsdi +++| BX3 X3-X6 20840 M00S16751.dsdi +++| BX1 X1*X3 20841 M00S16752.dsdi +++| NZ X1,LDDX IF NOT EDD DUMP DIRECTORY RECORD 20842 M00S16753.dsdi +++| ALLOC TDIR,X6 ALLOCATE TABLE SPACE 20843 M00S16754.dsdi +++| READW F,X2,X3 READ DIRECTORY TABLE TO CORE 20844 M00S16755.dsdi +++| NZ X1,ERR24 IF BAD DIRECTORY TABLE 20845 M00S16756.dsdi +++| RECALL X2 20846 M00S16757.dsdi +++| SA1 X2 20847 M00S16758.dsdi +++| BX6 X1 20848 M00S16759.dsdi +++| SA6 S RESET SCRATCH FILE NAME 20849 M00S16760.dsdi +++| SX1 0 SET DIRECTORY LOADED 20850 M00S16761.dsdi +++| JP LDDX EXIT 20851 M00S16762.dsdi +++| LPW SPACE 4,15 20852 M00S16763.dsdi +++|** LPW - LOAD 12 BIT WORD. 20853 M00S16764.dsdi +++|* 20854 M00S16765.dsdi +++|* ENTRY (LPWA+0) = RELATIVE ADDRESS OF WORD IN LPWB. 20855 M00S16766.dsdi +++|* (LPWA+1) = ADDRESS IN BUFFER TO CONTINUE UNPACKING. 20856 M00S16767.dsdi +++|* 20857 M00S16768.dsdi +++|* EXIT (LPWA) = UPDATED. 20858 M00S16769.dsdi +++|* (X6) = 12 BIT WORD. 20859 M00S16770.dsdi +++|* 20860 M00S16771.dsdi +++|* USES X - 1, 2, 3, 6. 20861 M00S16772.dsdi +++|* A - 1, 2, 6. 20862 M00S16773.dsdi +++|* B - 2. 20863 M00S16774.dsdi +++| 20864 M00S16775.dsdi +++| 20865 M00S16776.dsdi +++| LPW SUBR ENTRY/EXIT 20866 M00S16777.dsdi +++| SA2 LPWA POSITION OF NEXT 12 BIT BYTE 20867 M00S16778.dsdi +++| SA1 X2+LPWB 20868 M00S16779.dsdi +++| SX6 X2-1 UPDATE LPWA 20869 M00S16780.dsdi +++| SA6 A2 20870 M00S16781.dsdi +++| SX6 X1 20871 M00S16782.dsdi +++| PL X2,LPWX IF VALID BYTE 20872 M00S16783.dsdi +++| SB2 4 20873 M00S16784.dsdi +++| SX6 B2-B1 20874 M00S16785.dsdi +++| SA2 A2+B1 POSITION IN BUFFER OF NEXT WORD 20875 M00S16786.dsdi +++| SA6 A6 20876 M00S16787.dsdi +++| MX3 -12 20877 M00S16788.dsdi +++| SX6 X2+B1 20878 M00S16789.dsdi +++| SA1 X2+BUF 20879 M00S16790.dsdi +++| SA6 A2 UPDATE LPWA+1 20880 M00S16791.dsdi +++| LPW1 LX1 12 20881 M00S16792.dsdi +++| BX6 -X3*X1 EXTRACT 12 BIT BYTE 20882 M00S16793.dsdi +++| SA6 LPWB+B2 20883 M00S16794.dsdi +++| SB2 B2-B1 20884 M00S16795.dsdi +++| PL B2,LPW1 IF MORE BYTES TO UNPACK 20885 M00S16796.dsdi +++| SA1 LPWB+4 20886 M00S16797.dsdi +++| SX6 X1 20887 M00S16798.dsdi +++| EQ LPWX RETURN 20888 M00S16799.dsdi +++| 20889 M00S16800.dsdi +++| 20890 M00S16801.dsdi +++| LPWA CON 0 NEXT BYTE IN BUFFER LPWB 20891 M00S16802.dsdi +++| CON 0 NEXT WORD IN BUF 20892 M00S16803.dsdi +++| LPWB BSS 5
| Line S16804 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 20893 M01S16804.dsdi56 ---| LTE SPACE 4,10 20894 M01S16805.dsdi56 ---|** LTE - LOOK FOR TABLE ENTRY. 20895 M01S16806.dsdi56 ---|* 20896 M01S16807.dsdi56 ---|* ENTRY (X1) = LEFT ADJUSTED NAME. 20897 M01S16808.dsdi56 ---|* (A4) = ADDRESS OF TABLE. 20898 M01S16809.dsdi56 ---|* (X4) = FIRST ENTRY IN TABLE. 20899 M01S16810.dsdi56 ---|* 20900 M01S16811.dsdi56 ---|* EXIT (X4) = MATCHING ENTRY FROM TABLE. 20901 M01S16812.dsdi56 ---|* (X6) = LOWER PORTION OF TABLE ENTRY. 20902 M01S16813.dsdi56 ---|* 20903 M01S16814.dsdi56 ---|* USES X - 2, 4, 6. 20904 M01S16815.dsdi56 ---|* A - 4. 20905 M01S16816.dsdi56 ---| 20906 M01S16817.dsdi56 ---| 20907 M01S16818.dsdi56 ---| LTE SUBR ENTRY/EXIT 20908 M01S16819.dsdi56 ---| LTE1 BX2 X1-X4 20909 M01S16820.dsdi56 ---| AX2 18 20910 M01S16821.dsdi56 ---| SX6 X4+ 20911 M01S16822.dsdi56 ---| ZR X2,LTEX IF ENTRY FOUND 20912 M01S16823.dsdi56 ---| SA4 A4+B1 20913 M01S16824.dsdi56 ---| NZ X4,LTE1 IF MORE TO SEARCH 20914 M01S16825.dsdi56 ---| JP ERR6 NOT FOUND 20915 M00S16826.dsdi +++| MEM SPACE 4,15 20916 M00S16827.dsdi +++|** MEM - PROCESS CENTRAL MEMORY RECORD. 20917 M00S16828.dsdi +++|* 20918 M00S16829.dsdi +++|* ENTRY VIA UNCONDITIONAL JUMP. 20919 M00S16830.dsdi +++|* 20920 M00S16831.dsdi +++|* EXIT TO *RBI2* IF NORMAL.
| Line S16832 Modification History | |
|---|---|
M01 (Removed by) | dsdi73 |
Seq # *Modification Id* Act ----------------------------+ 20921 M01S16832.dsdi73 ---|* TO *ERR26* IF PREMATURE EOF.
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | dsdi73 |
Seq # *Modification Id* Act ----------------------------+ 20922 M01S00017.dsdi73 +++|* TO *PPE* IF PREMATURE EOF. 20923 M00S16833.dsdi +++|* 20924 M00S16834.dsdi +++|* USES A - 1, 3, 6. 20925 M00S16835.dsdi +++|* X - 1, 2, 3, 6. 20926 M00S16836.dsdi +++|*
| Line S16837 Modification History | |
|---|---|
M01 (Removed by) | dsdi88 |
Seq # *Modification Id* Act ----------------------------+ 20927 M01S16837.dsdi88 ---|* CALLS ERS, RBF, WBS.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | dsdi88 |
Seq # *Modification Id* Act ----------------------------+ 20928 M01S00012.dsdi88 +++|* CALLS ERS, RBH, WBS. 20929 M00S16838.dsdi +++| 20930 M00S16839.dsdi +++| 20931 M00S16840.dsdi +++| MEM SA1 BUF GET MEMORY SIZE 20932 M00S16841.dsdi +++| MX2 -18 20933 M00S16842.dsdi +++| BX6 -X2*X1
| Line S16843 Modification History | |
|---|---|
M01 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20934 M01S16843.271l739 ---| LX6 9 20935 M01S16844.271l739 ---| SA6 MEMB SAVE MEMORY SIZE
| Line S00393 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20936 M01S00393.271l739 +++| SA3 MEMB 20937 M01S00394.271l739 +++| LX6 9 20938 M01S00395.271l739 +++| SA6 A3 20939 M01S00396.271l739 +++| ZR X3,MEM1 IF NO SIZE FROM OS BOUNDS REGISTER 20940 M01S00397.271l739 +++| IX2 X6-X3 20941 M01S00398.271l739 +++| NO 20942 M01S00399.271l739 +++| NG X2,MEM1 IF SIZE FROM HEADER IS SMALLER 20943 M01S00400.271l739 +++| SA1 VE 20944 M01S00401.271l739 +++| NZ X1,MEM1 IF *NOS V/E* MEMORY SPACE REQUIRED 20945 M01S00402.271l739 +++| BX6 X3 20946 M01S00403.271l739 +++| SA6 A3
| Line S16845 Modification History | |
|---|---|
M01 (Removed by) | dsdi88 |
Seq # *Modification Id* Act ----------------------------+ 20947 M01S16845.dsdi88 ---| MEM1 RJ RBF READ BLOCK FROM FILE *F*
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | dsdi88 |
Seq # *Modification Id* Act ----------------------------+ 20948 M01S00013.dsdi88 +++| MEM1 RJ RBH READ BLOCK OR HEADER FROM FILE *F*
| Line S16846 Modification History | |
|---|---|
M01 (Removed by) | dsdi73 |
Seq # *Modification Id* Act ----------------------------+ 20949 M01S16846.dsdi73 ---| NZ X1,ERR29 IF PREMATURE EOF
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | dsdi73 |
Seq # *Modification Id* Act ----------------------------+ 20950 M01S00018.dsdi73 +++| NZ X1,PPE IF PREMATURE EOF
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | dsdi88 |
Seq # *Modification Id* Act ----------------------------+ 20951 M01S00014.dsdi88 +++| NG X1,PPE IF PREMATURE EOR 20952 M00S16847.dsdi +++| SA1 BWCF SET WORD COUNT FOR FILE *S* 20953 M00S16848.dsdi +++| BX6 X1 20954 M00S16849.dsdi +++| SA6 BWCS 20955 M00S16850.dsdi +++| RJ WBS WRITE BLOCK TO FILE *S* 20956 M00S16851.dsdi +++| SA1 BWCF INCREMENT WORD COUNT 20957 M00S16852.dsdi +++| SX2 15 20958 M00S16853.dsdi +++| IX6 X1*X2 20959 M00S16854.dsdi +++| AX6 4 20960 M00S16855.dsdi +++| SA1 MEMA 20961 M00S16856.dsdi +++| SA3 A1+B1 20962 M00S16857.dsdi +++| IX6 X6+X1 COUNT OF 64 BIT WORDS PROCESSED 20963 M00S16858.dsdi +++| SA6 A1 20964 M00S16859.dsdi +++| IX2 X6-X3 COMPARE WITH CM SIZE 20965 M00S16860.dsdi +++| NG X2,MEM1 IF NOT DONE
| Line S00404 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20966 M01S00404.271l739 +++| AX3 9 20967 M01S00405.271l739 +++| MX2 42 20968 M01S00406.271l739 +++| SA1 ID FETCH RECORD ID 20969 M01S00407.271l739 +++| BX1 X2*X1 20970 M01S00408.271l739 +++| BX6 X1+X3 ENSURE MEMORY SIZE CORRECT IN DIRECTORY 20971 M01S00409.271l739 +++| SA6 A1 20972 M01S00410.271l739 +++| SX2 15 SIZE * 16 / 15 20973 M01S00411.271l739 +++| LX3 9+4 20974 M01S00412.271l739 +++| IX6 X3/X2 FORM RECORD LENGTH 20975 M01S00413.271l739 +++| SA6 RWCS 20976 M00S16861.dsdi +++| RJ ERS END RECORD ON FILE *S*
| Line S00414 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 20977 M01S00414.271l739 +++| SA1 VE 20978 M01S00415.271l739 +++| ZR X1,RBI3 IF *NOS/VE* MEMORY SPACE NOT REQUIRED 20979 M00S16862.dsdi +++| EQ RBI2 EXIT TO READ NEXT RECORD ON FILE *F* 20980 M00S16863.dsdi +++| 20981 M00S16864.dsdi +++| 20982 M00S16865.dsdi +++| MEMA CON 0 COUNT OF 64-BIT WORDS PROCESSED 20983 M00S16866.dsdi +++| MEMB CON 0 64-BIT MEMORY SIZE
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 20984 M01S00127.283l840 +++| MRT SPACE 4,15 20985 M01S00128.283l840 +++|** MRT - DUMP MACHINE RECOVERY TABLE. 20986 M01S00129.283l840 +++|* 20987 M01S00130.283l840 +++|* ENTRY (EQ) = *EQDE* WORD OF EST ENTRY. 20988 M01S00131.283l840 +++|* (BUFF) = MST AND TRT. 20989 M01S00132.283l840 +++|* 20990 M01S00133.283l840 +++|* EXIT MRT DUMPED IF PRESENT. 20991 M01S00134.283l840 +++|* (BUFF) = MST FOLLOWED BY TRT OR MRT. 20992 M01S00135.283l840 +++|* 20993 M01S00136.283l840 +++|* USES X - 1, 2, 6, 7. 20994 M01S00137.283l840 +++|* A - 1, 2, 6, 7. 20995 M01S00138.283l840 +++|* B - 2, 5, 6, 7. 20996 M01S00139.283l840 +++|* 20997 M01S00140.283l840 +++|* CALLS CPS, CTS, GTD, POM, UPS. 20998 M01S00141.283l840 +++|* 20999 M01S00142.283l840 +++|* MACROS GETCM, PRINT. 21000 M01S00143.283l840 +++| 21001 M01S00144.283l840 +++| 21002 M01S00145.283l840 +++| MRT SUBR 21003 M01S00146.283l840 +++| SA1 EQ *EQDE* WORD OF EST 21004 M01S00147.283l840 +++| SX2 1020B SHARED AND ISHARED FLAGS 21005 M01S00148.283l840 +++| LX1 12 21006 M01S00149.283l840 +++| BX2 X1*X2 21007 M01S00150.283l840 +++| ZR X2,MRTX IF NOT A SHARED DEVICE 21008 M01S00151.283l840 +++| PRINT (=2C ) 21009 M01S00152.283l840 +++| PRINT (=C* MACHINE RECOVERY TABLE*) 21010 M01S00153.283l840 +++| PRINT (=2C ) 21011 M01S00154.283l840 +++| SA1 BUF+TRLL SET FWA OF TRT 21012 M01S00155.283l840 +++| SX6 X1 21013 M01S00156.283l840 +++| SA1 BUF+TDGL SET TRT LENGTH 21014 M01S00157.283l840 +++| MX7 -12 21015 M01S00158.283l840 +++| AX1 24 21016 M01S00159.283l840 +++| BX7 -X7*X1 21017 M01S00160.283l840 +++| IX6 X6+X7 MRT ADDRESS 21018 M01S00161.283l840 +++| SA6 CPRA 21019 M01S00162.283l840 +++| SA6 FW 21020 M01S00163.283l840 +++| SX7 X7+7 21021 M01S00164.283l840 +++| AX7 3 MRT LENGTH 21022 M01S00165.283l840 +++| SA7 LW 21023 M01S00166.283l840 +++| SB2 A6 21024 M01S00167.283l840 +++| RJ POM POSITION TO MRT 21025 M01S00168.283l840 +++| SA1 LW MRT LENGTH 21026 M01S00169.283l840 +++| GETCM BUF+MSTXL,X1 READ MRT INTO *BUF* 21027 M01S00170.283l840 +++| MX7 1 21028 M01S00171.283l840 +++| SA7 SRDA PRESET FIRST CALL TO *SRD* 21029 M01S00172.283l840 +++| SX6 B0 21030 M01S00173.283l840 +++| SA6 MRTA CLEAR LINK ORDINAL 21031 M01S00174.283l840 +++| SA6 MRTB CLEAR DATA WORD ORDINAL 21032 M01S00175.283l840 +++| SA6 SRDC+10 STOP DASHES AFTER 80 CHARACTERS 21033 M01S00176.283l840 +++| RJ SSB CLEAR PRINT STRING 21034 M01S00177.283l840 +++| MRT1 SA1 MRTB SET DATA ADDRESS 21035 M01S00178.283l840 +++| SX1 X1+BUF+MSTXL 21036 M01S00179.283l840 +++| SB5 1 SET WORD COUNT 21037 M01S00180.283l840 +++| RJ SRD SENSE REPEAT DATA 21038 M01S00181.283l840 +++| NZ X1,MRT3 IF REPEAT SENSED 21039 M01S00182.283l840 +++| SA1 FW GET MRT ADDRESS 21040 M01S00183.283l840 +++| SA2 MRTB 21041 M01S00184.283l840 +++| IX1 X1+X2 21042 M01S00185.283l840 +++| LX1 -18 21043 M01S00186.283l840 +++| SB6 6 21044 M01S00187.283l840 +++| SB7 PRBF 21045 M01S00188.283l840 +++| RJ CTS CONVERT MRT ADDRESS 21046 M01S00189.283l840 +++| SB7 B7+B1 21047 M01S00190.283l840 +++| SX6 1R+ 21048 M01S00191.283l840 +++| SA6 B7 21049 M01S00192.283l840 +++| SB7 B7+B1 21050 M01S00193.283l840 +++| SA1 MRTA LINK ORDINAL 21051 M01S00194.283l840 +++| LX1 -12 21052 M01S00195.283l840 +++| SB6 4 21053 M01S00196.283l840 +++| RJ CTS CONVERT LINK ORDINAL 21054 M01S00197.283l840 +++| SB7 B7+2 21055 M01S00198.283l840 +++| SA2 =4000005B 21056 M01S00199.283l840 +++| SA1 MRTB READ MRT DATA WORD 21057 M01S00200.283l840 +++| SA1 X1+BUF+MSTXL 21058 M01S00201.283l840 +++| RJ FDW FORMAT DATA WORD 21059 M01S00202.283l840 +++| SB7 B7+B1 21060 M01S00203.283l840 +++| LX1 28 21061 M01S00204.283l840 +++| SB6 8 21062 M01S00205.283l840 +++| MRT2 SB6 B6-1 21063 M01S00206.283l840 +++| RJ P4F LIST TRACK BITS 21064 M01S00207.283l840 +++| SB7 B7+1 21065 M01S00208.283l840 +++| NZ B6,MRT2 21066 M01S00209.283l840 +++| SA2 MRTB RE-READ DATA WORD 21067 M01S00210.283l840 +++| SA2 X2+BUF+MSTXL 21068 M01S00211.283l840 +++| SB7 B7+2 21069 M01S00212.283l840 +++| SB6 10 21070 M01S00213.283l840 +++| RJ SDI SET DISPLAY CODE INTERPRETATION 21071 M01S00214.283l840 +++| PRINT CCCH,B7-CCCH 21072 M01S00215.283l840 +++| MRT3 SA1 MRTA 21073 M01S00216.283l840 +++| SX6 X1+32 21074 M01S00217.283l840 +++| SA6 A1+ UPDATE TRACK ORDINAL 21075 M01S00218.283l840 +++| SA1 MRTB 21076 M01S00219.283l840 +++| SX6 X1+B1 21077 M01S00220.283l840 +++| SA6 A1+ UPDATE MRT ADDRESS 21078 M01S00221.283l840 +++| SA2 LW 21079 M01S00222.283l840 +++| IX3 X6-X2 21080 M01S00223.283l840 +++| NG X3,MRT1 IF MORE TO DUMP 21081 M01S00224.283l840 +++| SA1 SRDC+1 21082 M01S00225.283l840 +++| BX6 X1 21083 M01S00226.283l840 +++| SA6 SRDC+10 RESET DASHES FOR 136 CHARACTERS 21084 M01S00227.283l840 +++| JP MRTX EXIT 21085 M01S00228.283l840 +++| 21086 M01S00229.283l840 +++| MRTA BSS 1 TRACK ORDINAL 21087 M01S00230.283l840 +++| MRTB BSS 1 MRT DATA WORD ORDINAL
| Line S16867 Modification History | |
|---|---|
M01 (Removed by) | dsdi75 |
Seq # *Modification Id* Act ----------------------------+ 21088 M01S16867.dsdi75 ---| MST SPACE 4,10
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dsdi75 |
Seq # *Modification Id* Act ----------------------------+ 21089 M01S00001.dsdi75 +++| MST SPACE 4,15 21090 M00S16868.dsdi +++|** MST - DUMP MASS STORAGE TABLE. 21091 M00S16869.dsdi +++|* 21092 M00S16870.dsdi +++|* ENTRY (X6) = MST ADDRESS. 21093 M00S16871.dsdi +++|* (FI) = EST ORDINAL TO BE DUMPED. 21094 M00S16872.dsdi +++|* 21095 M00S16873.dsdi +++|* EXIT MST DUMPED. 21096 M00S16874.dsdi +++|*
| Line S16875 Modification History | |
|---|---|
M01 (Removed by) | dsdi75 |
Seq # *Modification Id* Act ----------------------------+ 21097 M01S16875.dsdi75 ---|* USES X - 1, 2, 4, 7. 21098 M01S16876.dsdi75 ---|* A - 1, 2, 4, 6.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | dsdi75 |
Seq # *Modification Id* Act ----------------------------+ 21099 M01S00002.dsdi75 +++|* USES X - 1, 2. 21100 M01S00003.dsdi75 +++|* A - 1, 2, 6. 21101 M00S16877.dsdi +++|* B - 2, 5, 6, 7. 21102 M00S16878.dsdi +++|*
| Line S16879 Modification History | |
|---|---|
M01 (Removed by) | dsdi75 |
Seq # *Modification Id* Act ----------------------------+ 21103 M01S16879.dsdi75 ---|* CALLS CTS, GTD, POM, UPS.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dsdi75 |
Seq # *Modification Id* Act ----------------------------+ 21104 M01S00004.dsdi75 +++|* CALLS CPS, CTS, GTD, POM, UPS. 21105 M00S16880.dsdi +++|* 21106 M00S16881.dsdi +++|* MACROS GETCM, PRINT. 21107 M00S16882.dsdi +++| 21108 M00S16883.dsdi +++| 21109 M00S16884.dsdi +++| MST SUBR 21110 M00S16885.dsdi +++| SA6 FW STORE MST ADDRESS 21111 M00S16886.dsdi +++| SA6 CPRA 21112 M00S16887.dsdi +++| SB2 A6 21113 M00S16888.dsdi +++| RJ POM POSITION TO MST 21114 M00S16889.dsdi +++| GETCM BUF,MSTXL READ FULL MST INTO *BUF*
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | dsdi75 |
Seq # *Modification Id* Act ----------------------------+ 21115 M01S00005.dsdi75 +++| SA2 EF 21116 M01S00006.dsdi75 +++| SX1 100 FORCE PAGE EJECT 21117 M01S00007.dsdi75 +++| ZR X2,MST1 IF AUTO EJECT SELECTED 21118 M01S00008.dsdi75 +++| SX1 3 21119 M01S00009.dsdi75 +++| MST1 RJ CPS CHECK PAGE SPACE 21120 M00S16890.dsdi +++| PRINT (=2C ) 21121 M00S16891.dsdi +++| SA2 =40HEQUIPMENT - MASS STORAGE TABLE 21122 M00S16892.dsdi +++| SB6 34 21123 M00S16893.dsdi +++| SB7 PRBF 21124 M00S16894.dsdi +++| RJ UPS SET HEADING 21125 M00S16895.dsdi +++| SB5 B7+ SAVE PRINT STRING ADDRESS 21126 M00S16896.dsdi +++| SA1 FI SET EST ORDINAL 21127 M00S16897.dsdi +++| LX1 -9 21128 M00S16898.dsdi +++| SB6 3 21129 M00S16899.dsdi +++| SB7 PRBF+10 21130 M00S16900.dsdi +++| RJ CTS CONVERT EST ORDINAL 21131 M00S16901.dsdi +++| PRINT CCCH,B5-CCCH 21132 M00S16902.dsdi +++| PRINT (=2C ) 21133 M00S16903.dsdi +++| SA1 FW SET BASE ADDRESS 21134 M00S16904.dsdi +++| SB2 X1-BUF 21135 M00S16905.dsdi +++| SB2 -B2 21136 M00S16906.dsdi +++| SA1 TFMS ASSUME TABLE FOR NON-819 DISK 21137 M00S16907.dsdi +++| RJ GTD GENERATE DETAILED DUMP 21138 M00S16908.dsdi +++| EQ MSTX RETURN 21139 M00S16909.dsdi +++| NPE SPACE 4,10 21140 M00S16910.dsdi +++|** NPE - NEXT PAGE ENTRY. 21141 M00S16911.dsdi +++|* 21142 M00S16912.dsdi +++|* ENTRY (X4) = STARTING OFFSET INTO PAGE TABLE. 21143 M00S16913.dsdi +++|* (X4) < 0 THEN GET NEXT CONSECUTIVE PAGE ENTRY. 21144 M00S16914.dsdi +++|* 21145 M00S16915.dsdi +++|* EXIT (X3) = (PTEVCUM ) = VALID, CONTINUE, USED, 21146 M00S16916.dsdi +++|* MODIFIED BITS. 21147 M00S16917.dsdi +++|* (X5) = (PTEPD ) = REMAINDER OF PAGE DESCRIPTOR. 21148 M00S16918.dsdi +++|* (A3) = *PTEVCUM*. 21149 M00S16919.dsdi +++|* 21150 M00S16920.dsdi +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 21151 M00S16921.dsdi +++|* A - 2, 3, 4, 6. 21152 M00S16922.dsdi +++|* B - 2. 21153 M00S16923.dsdi +++|* 21154 M00S16924.dsdi +++|* CALLS NXB, PSM. 21155 M00S16925.dsdi +++| 21156 M00S16926.dsdi +++| 21157 M00S16927.dsdi +++| NPE SUBR ENTRY/EXIT 21158 M00S16928.dsdi +++| SA3 S2PTL OBTAIN PAGE TABLE LENGTH 21159 M00S16929.dsdi +++| MX2 -12 21160 M00S16930.dsdi +++| LX3 12 21161 M00S16931.dsdi +++| BX3 -X2+X3 FORM BYTE ADDRESS MASK 21162 M00S16932.dsdi +++| SX7 32 DEFAULT PAGE ENTRIES TO SEARCH 21163 M00S16933.dsdi +++| MX5 0 21164 M00S16934.dsdi +++| SA1 NPEA GET CURRENT PAGE ENTRY ADDRESS 21165 M00S16935.dsdi +++| PL X4,NPE1 IF SETTING INITIAL PAGE ENTRY 21166 M00S16936.dsdi +++| SX6 8 21167 M00S16937.dsdi +++| SA2 A1+B1 21168 M00S16938.dsdi +++| IX6 X1+X6 21169 M00S16939.dsdi +++| SA6 A1 21170 M00S16940.dsdi +++| BX4 X6*X3 ISOLATE PAGE TABLE INDEX 21171 M00S16941.dsdi +++| SX6 X2-1 21172 M00S16942.dsdi +++| SA6 PTEVCUM CLEAR VALID CONTINUE BITS 21173 M00S16943.dsdi +++| SA6 NPEA+1 21174 M00S16944.dsdi +++| ZR X6,NPE3 IF SEARCHED TOO MANY ENTRIES 21175 M00S16945.dsdi +++| NZ X4,NPE2 IF WRAP AROUND HAS NOT HAPPENED 21176 M00S16946.dsdi +++| NPE1 SA2 S2PTA PAGE TABLE ADDRESS 21177 M00S16947.dsdi +++| BX4 X3*X4 ISOLATE PAGE TABLE INDEX 21178 M00S16948.dsdi +++| IX6 X2+X4 21179 M00S16949.dsdi +++| SA6 A1 SAVE PAGE ENTRY ADDRESS 21180 M00S16950.dsdi +++| SA7 A1+B1 21181 M00S16951.dsdi +++| SB2 A6 21182 M00S16952.dsdi +++| RJ PSM POSITION TO PAGE ENTRY 21183 M00S16953.dsdi +++| NPE2 RJ NXB GET UPPER 16 BITS OF DESCRIPTOR 21184 M00S16954.dsdi +++| MX2 4-16 21185 M00S16955.dsdi +++| BX5 -X2*X1 21186 M00S16956.dsdi +++| BX6 X2*X1 21187 M00S16957.dsdi +++| LX6 59-15 21188 M00S16958.dsdi +++| SA6 PTEVCUM VALID, CONTINUE, USED, MODIFIED BITS 21189 M00S16959.dsdi +++| RJ NXB GET BITS 16-31 21190 M00S16960.dsdi +++| LX5 16 21191 M00S16961.dsdi +++| BX5 X5+X1 21192 M00S16962.dsdi +++| RJ NXB GET BITS 32-47 21193 M00S16963.dsdi +++| LX5 16 21194 M00S16964.dsdi +++| BX5 X5+X1 21195 M00S16965.dsdi +++| RJ NXB GET BITS 48-63 21196 M00S16966.dsdi +++| LX5 16 21197 M00S16967.dsdi +++| BX5 X5+X1 21198 M00S16968.dsdi +++| BX6 X5 21199 M00S16969.dsdi +++| NPE3 SA6 PTEPD SAVE REMAINDER OF PAGE DESCRIPTOR 21200 M00S16970.dsdi +++| SA3 PTEVCUM FETCH PTE BITS 21201 M00S16971.dsdi +++| JP NPEX RETURN 21202 M00S16972.dsdi +++| 21203 M00S16973.dsdi +++| NPEA DATA 0 PAGE ENTRY BYTE ADDRESS 21204 M00S16974.dsdi +++| DATA 32 PAGE ENTRIES TO SEARCH 21205 M00S16975.dsdi +++| NXB SPACE 4,15 21206 M00S16976.dsdi +++|** NXB - GET NEXT BYTE FROM RECORD. 21207 M00S16977.dsdi +++|* 21208 M00S16978.dsdi +++|* ENTRY (NXBA) = WORDS OF DATA IN PBUF. 21209 M00S16979.dsdi +++|* (NXBB) = OFFSET TO NEXT BYTE IN UBUF. 21210 M00S16980.dsdi +++|* (NXBC) = NEXT WORD TO UNPACK. 21211 M00S16981.dsdi +++|* 21212 M00S16982.dsdi +++|* EXIT (X1) = NEXT 16 BIT BYTE. 21213 M00S16983.dsdi +++|* 21214 M00S16984.dsdi +++|* USES X - 1, 2, 3, 4, 6, 7. 21215 M00S16985.dsdi +++|* A - 1, 2, 3, 6.
| Line S16986 Modification History | |
|---|---|
M01 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 21216 M01S16986.ns2647 ---|* B - 2, 3, 4, 5.
| Line S00230 Modification History | |
|---|---|
M01 (Added by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 21217 M01S00230.ns2647 +++|* B - 2, 3. 21218 M00S16987.dsdi +++|* 21219 M00S16988.dsdi +++|* MACROS READW. 21220 M00S16989.dsdi +++| 21221 M00S16990.dsdi +++| 21222 M00S16991.dsdi +++| NXB SUBR ENTRY/EXIT 21223 M00S16992.dsdi +++| SA2 NXBB 21224 M00S16993.dsdi +++| SA1 X2+UBUF-1 NEXT BYTE FROM BUFFER 21225 M00S16994.dsdi +++| SX6 X2-1 21226 M00S16995.dsdi +++| SA3 A2-B1 21227 M00S16996.dsdi +++| SA6 A2 UPDATE BYTE POINTER 21228 M00S16997.dsdi +++| PL X6,NXBX IF VALID BYTE 21229 M00S16998.dsdi +++| ZR X3,NXB3 IF PBUF IS EMPTY 21230 M00S16999.dsdi +++| SA2 A2+B1 NEXT WORD OF DATA 21231 M00S17000.dsdi +++| SX6 X3-4 21232 M00S17001.dsdi +++| SA6 A3 DECREMENT WORD COUNT
| Line S17002 Modification History | |
|---|---|
M01 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 21233 M01S17002.ns2647 ---| SA1 X2
| Line S00231 Modification History | |
|---|---|
M01 (Added by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 21234 M01S00231.ns2647 +++| NXB0 SA1 X2 21235 M00S17003.dsdi +++| MX2 16 21236 M00S17004.dsdi +++| SB2 60+16 21237 M00S17005.dsdi +++| SB3 14 21238 M00S17006.dsdi +++| NXB1 BX6 X1*X2 EXTRACT BYTE 21239 M00S17007.dsdi +++| PL X2,NXB2 IF BYTE CONTAINED WITHIN THIS WORD 21240 M00S17008.dsdi +++| SA1 A1+B1 GET REMAINING PART OF BYTE 21241 M00S17009.dsdi +++| MX3 30 21242 M00S17010.dsdi +++| SB2 B2-60 21243 M00S17011.dsdi +++| BX6 -X3*X6 21244 M00S17012.dsdi +++| BX4 X3*X1 21245 M00S17013.dsdi +++| IX7 X4+X6 21246 M00S17014.dsdi +++| BX6 X2*X7 21247 M00S17015.dsdi +++| NXB2 LX6 B2 POSITION BYTE TO LOWER 16 BITS OF WORD 21248 M00S17016.dsdi +++| SB2 B2+16 21249 M00S17017.dsdi +++| LX2 -16 21250 M00S17018.dsdi +++| SA6 UBUF+B3 SAVE BYTE 21251 M00S17019.dsdi +++| SB3 B3-B1 21252 M00S17020.dsdi +++| SX6 A1 21253 M00S17021.dsdi +++| PL B3,NXB1 IF UNPACKING NOT COMPLETE 21254 M00S17022.dsdi +++| SA1 UBUF+14 RETURN THIS BYTE 21255 M00S17023.dsdi +++| SA6 A2 UPDATE UBUF 21256 M00S17024.dsdi +++| SX6 14 21257 M00S17025.dsdi +++| SA6 A2-B1 21258 M00S17026.dsdi +++| EQ NXBX RETURN 21259 M00S17027.dsdi +++| 21260 M00S17028.dsdi +++| NXB3 SX6 B7 SAVE B6 AND B7 21261 M00S17029.dsdi +++| SX1 B6 21262 M00S17030.dsdi +++| LX6 18 21263 M00S17031.dsdi +++| BX6 X6+X1 21264 M00S17032.dsdi +++| SA6 A2+B1 21265 M00S17033.dsdi +++| READW S,PBUF,16 21266 M00S17034.dsdi +++| SX6 12 21267 M00S17035.dsdi +++| SA6 NXBA RESET NXBA 21268 M00S17036.dsdi +++| SA2 NXBC 21269 M00S17037.dsdi +++| SB6 X2 RESTORE B6 AND B7 21270 M00S17038.dsdi +++| AX2 18 21271 M00S17039.dsdi +++| SB7 X2
| Line S17040 Modification History | |
|---|---|
M01 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 21272 M01S17040.ns2647 ---| SB7 X2 21273 M01S17041.ns2647 ---| MX2 16 21274 M01S17042.ns2647 ---| SA1 PBUF-1 21275 M01S17043.ns2647 ---| SB2 60+16 21276 M01S17044.ns2647 ---| SB3 14 21277 M01S17045.ns2647 ---| EQ NXB1 UNPACK FIRST 4 WORDS OF BYTES
| Line S00232 Modification History | |
|---|---|
M01 (Added by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 21278 M01S00232.ns2647 +++| SX2 PBUF-1 21279 M01S00233.ns2647 +++| EQ NXB0 UNPACK FIRST 4 WORDS OF BYTES 21280 M00S17046.dsdi +++| 21281 M00S17047.dsdi +++| 21282 M00S17048.dsdi +++| NXBA DATA 0 WORDS OF DATA REMAINING IN PBUF 21283 M00S17049.dsdi +++| NXBB DATA 0 OFFSET INTO BYTE BUFFER 21284 M00S17050.dsdi +++| NXBC CON PBUF-1 ADDRESS-1 OF NEXT DATA WORD IN PBUF 21285 M00S17051.dsdi +++| OTH SPACE 4,10 21286 M00S17052.dsdi +++|** OTH - PROCESS MISCELLANEOUS RECORD. 21287 M00S17053.dsdi +++|* 21288 M00S17054.dsdi +++|* ENTRY VIA UNCONDITIONAL JUMP. 21289 M00S17055.dsdi +++|* 21290 M00S17056.dsdi +++|* EXIT TO *RBI2*. 21291 M00S17057.dsdi +++|* 21292 M00S17058.dsdi +++|* CALLS CRS. 21293 M00S17059.dsdi +++| 21294 M00S17060.dsdi +++| 21295 M00S17061.dsdi +++| OTH BSS 0 21296 M00S17062.dsdi +++| SA1 ID 21297 M00S17063.dsdi +++| LX1 12 21298 M00S17064.dsdi +++| MX0 12 21299 M00S17065.dsdi +++| SA2 OTHA 21300 M00S17066.dsdi +++| BX0 X0*X1 21301 M00S17067.dsdi +++| BX2 X0-X2 21302 M00S17068.dsdi +++| ZR X2,OTH1 IF *PP* RECORD 21303 M00S17069.dsdi +++| SA2 A2+B1 21304 M00S17070.dsdi +++| BX2 X0-X2 21305 M00S17071.dsdi +++| NZ X2,OTH2 IF NOT *FLPP* RECORD 21306 M00S17072.dsdi +++| OTH1 BX7 X1 21307 M00S17073.dsdi +++| SA7 A1 21308 M00S17074.dsdi +++| OTH2 RJ CRS COPY RECORD TO FILE *S* 21309 M00S17075.dsdi +++| EQ RBI2 EXIT TO READ NEXT RECORD 21310 M00S17076.dsdi +++| 21311 M00S17077.dsdi +++| OTHA CON 2LPP 21312 M00S17078.dsdi +++| CON 2LFP
| Line S17079 Modification History | |
|---|---|
M01 (Removed by) | dsdi68 |
Seq # *Modification Id* Act ----------------------------+ 21313 M01S17079.dsdi68 ---| PBB SPACE 4,10
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | dsdi68 |
Seq # *Modification Id* Act ----------------------------+ 21314 M01S00048.dsdi68 +++| PBB SPACE 4,16 21315 M00S17080.dsdi +++|** PBB - PRINT BYTE BUFFER 21316 M00S17081.dsdi +++|* 21317 M00S17082.dsdi +++|* ENTRY (X1) = NUMBER OF WORDS*2 IN BUFFER. 21318 M00S17083.dsdi +++|* (B2) = PARAMETER BLOCK ADDRESS. 21319 M00S17084.dsdi +++|* +0 = FWA OF DUMP. 21320 M00S17085.dsdi +++|* +1 = LWA OF DUMP. 21321 M00S17086.dsdi +++|* 21322 M00S17087.dsdi +++|* EXIT ONE PAGE WRITTEN. 21323 M00S17088.dsdi +++|* 21324 M00S17089.dsdi +++|* USES B - 3, 4, 6, 7. 21325 M00S17090.dsdi +++|* A - 1, 2, 4, 6, 7. 21326 M00S17091.dsdi +++|* X - 1, 2, 4, 6, 7. 21327 M00S17092.dsdi +++|* 21328 M00S17093.dsdi +++|* CALLS HTS, SAI, UPS. 21329 M00S17094.dsdi +++|* 21330 M00S17095.dsdi +++|* MACROS PRINT. 21331 M00S17096.dsdi +++| 21332 M00S17097.dsdi +++| 21333 M00S17098.dsdi +++| PBB SUBR ENTRY/EXIT 21334 M00S17099.dsdi +++| SX6 BUF 21335 M00S17100.dsdi +++| IX7 X6+X1 LWA+1 OF DATA IN BUF 21336 M00S17101.dsdi +++| SA6 PBBA FWA OF DATA IN BUF 21337 M00S17102.dsdi +++| SX2 6 COMPUTE ROW INCREMENT = 2*(WORDS+2)/3 21338 M00S17103.dsdi +++| SX1 X1+4 21339 M00S17104.dsdi +++| IX6 X1/X2 21340 M00S17105.dsdi +++| LX6 1 21341 M00S17106.dsdi +++| SA6 A6+B1 ROW INCREMENT 21342 M00S17107.dsdi +++| SA7 A6+B1 PRINT BUFFER LWA+1 21343 M00S17108.dsdi +++| SA1 TF 21344 M00S17109.dsdi +++| ZR X1,PBB1 IF NOT A TERMINAL FILE 21345 M00S17110.dsdi +++| SX6 X7-BUF 21346 M00S17111.dsdi +++| SA6 A6 SET ROW INCREMENT FOR TERMINAL FILE 21347 M00S17112.dsdi +++| PBB1 SA1 PBBA NEXT DATA WORD TO DUMP 21348 M00S17113.dsdi +++| SA4 A1+B1 ROW INCREMENT 21349 M00S17114.dsdi +++| SA2 A4+B1 DATA LWA+1 21350 M00S17115.dsdi +++| SB3 X1 21351 M00S17116.dsdi +++| SB4 X2 21352 M00S17117.dsdi +++| SB7 PRBF PRINT STRING ADDRESS 21353 M00S17118.dsdi +++| PBB2 GE B3,B4,PBB4 IF NOT BEYOND END OF BUFFER 21354 M00S17119.dsdi +++| SA1 B3+ 21355 M00S17120.dsdi +++| PL X1,PBB3 IF DATA NOT DUPLICATED 21356 M00S17121.dsdi +++| SA2 =40H-----------------------------------
| Line S17122 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 21357 M01S17122.261l700 ---| SB6 39
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 21358 M01S00125.261l700 +++| SB6 40 21359 M00S17123.dsdi +++| RJ UPS STORE REPEAT INDICATOR IN PRINT LINE 21360 M00S17124.dsdi +++| SB3 B3+X4 ADVANCE PAGE BUFFER ADDRESS 21361 M00S17125.dsdi +++| EQ PBB2 PROCESS NEXT WORD 21362 M00S17126.dsdi +++|
| Line S17127 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 21363 M01S17127.261l700 ---| PBB3 SB6 6 HEX DIGITS IN ADDRESS 21364 M01S17128.261l700 ---| LX1 4
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 21365 M01S00126.261l700 +++| PBB3 SB6 7 HEX DIGITS IN ADDRESS
Proceed to Part 14
cdc/nos2.source/opl.opl871/deck/dsdi.013.txt · Last modified: (external edit)