User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:dsdi.014

Deck DSDI Part 014

70 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
21366  M00S17129.dsdi    +++|          SX6    1R
21367  M00S17130.dsdi    +++|          RJ     HTS         CONVERT ADDRESS
21368  M00S17131.dsdi    +++|          SA6    B7
21369  M00S17132.dsdi    +++|          SA6    A6+B1
21370  M00S17133.dsdi    +++|          SB7    A6+B1       SPACE ONE
21371  M00S17134.dsdi    +++|          SB6    4           UNPACK 4 DIGITS
21372  M00S17135.dsdi    +++|          RJ     HTS         UNPACK FIRST BYTE
21373  M00S17136.dsdi    +++|          SA6    B7          INSERT SPACE
21374  M00S17137.dsdi    +++|          SB7    B7+B1
21375  M00S17138.dsdi    +++|          SB6    4
21376  M00S17139.dsdi    +++|          RJ     HTS         UNPACK SECOND BYTE
21377  M00S17140.dsdi    +++|          SA1    A1+B1
21378  M00S17141.dsdi    +++|          SB6    4
21379  M00S17142.dsdi    +++|          SA6    B7
21380  M00S17143.dsdi    +++|          SB7    B7+B1
21381  M00S17144.dsdi    +++|          LX1    28
21382  M00S17145.dsdi    +++|          RJ     HTS         UNPACK THIRD BYTE
21383  M00S17146.dsdi    +++|          SA6    B7
21384  M00S17147.dsdi    +++|          SB7    B7+B1
21385  M00S17148.dsdi    +++|          SB6    4
21386  M00S17149.dsdi    +++|          RJ     HTS         UNPACK FOURTH BYTE
21387  M00S17150.dsdi    +++|          SB6    4
21388  M00S17151.dsdi    +++|          SA6    B7
21389  M00S17152.dsdi    +++|          SB7    B7+B1
21390  M00S17153.dsdi    +++|          SA2    A1-B1
21391  M00S17154.dsdi    +++|          LX2    28
21392  M00S17155.dsdi    +++|          RJ     SAI         SET ASCII INTERPRETATION
21393  M00S17156.dsdi    +++|          SA2    A2+B1
21394  M00S17157.dsdi    +++|          SB6    4
21395  M00S17158.dsdi    +++|          LX2    28
21396  M00S17159.dsdi    +++|          RJ     SAI         SET ASCII INTERPRETATION
21397  M00S17160.dsdi    +++|          SB7    B7+3
21398  M00S17161.dsdi    +++|          SB3    B3+X4       ADVANCE PAGE BUFFER ADDRESS
21399  M00S17162.dsdi    +++|          EQ     PBB2        CONTINUE PROCESSING THIS LINE
21400  M00S17163.dsdi    +++|
21401  M00S17164.dsdi    +++| PBB4     PRINT  CCCH,B7-CCCH-2
21402  M00S17165.dsdi    +++|          SA1    PBBA        ADVANCE POSITION IN DATA BUFFER
21403  M00S17166.dsdi    +++|          SA2    A1+1
21404  M00S17167.dsdi    +++|          SX2    X2+BUF
21405  M00S17168.dsdi    +++|          SX6    X1+2
21406  M00S17169.dsdi    +++|          SA6    A1
21407  M00S17170.dsdi    +++|          IX6    X6-X2
21408  M00S17171.dsdi    +++|          NG     X6,PBB1     IF ROOM FOR ANOTHER LINE ON PAGE
21409  M00S17172.dsdi    +++|          EQ     PBBX        RETURN
21410  M00S17173.dsdi    +++|
21411  M00S17174.dsdi    +++|
21412  M00S17175.dsdi    +++| PBBA     DATA   0           CURRENT BUFFER POSITION
21413  M00S17176.dsdi    +++|          DATA   0           ROW INCREMENT
21414  M00S17177.dsdi    +++|          DATA   0           LWA+1 OF DATA IN BUFFER
21415  M00S17178.dsdi    +++| PBC      SPACE  4,15
21416  M00S17179.dsdi    +++|**        PBC - PACK BUFFER CONTROLLER.
21417  M00S17180.dsdi    +++|*
21418  M00S17181.dsdi    +++|*         ENTRY  DUMP FILE POSITIONED TO BEGINNING OF RECORD.
21419  M00S17182.dsdi    +++|*
21420  M00S17183.dsdi    +++|*         EXIT   (PBUF) CONTAINS CONTROLLER MEMORY.
21421  M00S17184.dsdi    +++|*
21422  M00S17185.dsdi    +++|*         USES   X - 0, 1, 2, 5, 6, 7.
21423  M00S17186.dsdi    +++|*                A - 1, 2, 6, 7.
21424  M00S17187.dsdi    +++|*
21425  M00S17188.dsdi    +++|*         CALLS  RBC.
21426  M00S17189.dsdi    +++|*
21427  M00S17190.dsdi    +++|*         DEFINE (X5) = PBUF INDEX.
21428  M00S17191.dsdi    +++|
21429  M00S17192.dsdi    +++|
21430  M00S17193.dsdi    +++| PBC      SUBR               ENTRY/EXIT
21431  M00S17194.dsdi    +++|          SX5    0           INITIALIZE PBUF INDEX
21432  M00S17195.dsdi    +++|
21433  M00S17196.dsdi    +++|*         READ 3 CM WORDS OF THE FORM- 20/0,8/B1,8/B2,8/B3,8/B4,8/B5
21434  M00S17197.dsdi    +++|
21435  M00S17198.dsdi    +++| PBC1     RJ     RBC
21436  M00S17199.dsdi    +++|          NZ     X1,PBCX     IF TRANSFER NOT COMPLETE
21437  M00S17200.dsdi    +++|          SA7    PBUF+X5     SAVE WORD 1
21438  M00S17201.dsdi    +++|          RJ     RBC
21439  M00S17202.dsdi    +++|          NZ     X1,PBCX     IF TRANSFER NOT COMPLETE
21440  M00S17203.dsdi    +++|          SA7    PBUF+1+X5   SAVE WORD 2
21441  M00S17204.dsdi    +++|          RJ     RBC
21442  M00S17205.dsdi    +++|          NZ     X1,PBCX     IF TRANSFER NOT COMPLETE
21443  M00S17206.dsdi    +++|          SA1    PBUF+X5     GET WORD 1
21444  M00S17207.dsdi    +++|          SA2    A1+B1       GET WORD 2
21445  M00S17208.dsdi    +++|
21446  M00S17209.dsdi    +++|*         CONVERT 3 CM WORDS TO 2 CM WORDS WITH THE FORMAT-
21447  M00S17210.dsdi    +++|*         8/B1,8/B2,8/B3,8/B4,8/B5,8/B6,8/B7,4/B8
21448  M00S17211.dsdi    +++|*         4/B8,8/B9,8/B10,8/B11,8/B12,8/B13,8/B14,8/B15
21449  M00S17212.dsdi    +++|
21450  M00S17213.dsdi    +++|          MX0    -20         FORM WORD 1
21451  M00S17214.dsdi    +++|          BX0    -X0*X2      SAVE BITS FOR WORD 2
21452  M00S17215.dsdi    +++|          LX1    20
21453  M00S17216.dsdi    +++|          AX2    20
21454  M00S17217.dsdi    +++|          BX6    X1+X2
21455  M00S17218.dsdi    +++|          LX0    40          FORM WORD 2
21456  M00S17219.dsdi    +++|          BX7    X0+X7
21457  M00S17220.dsdi    +++|          SA6    PBUF+X5     SAVE WORD 1
21458  M00S17221.dsdi    +++|          SA7    A6+1        SAVE WORD 2
21459  M00S17222.dsdi    +++|          SX5    X5+2        UPDATE INDEX
Line S17223 Modification History
M01 (Removed by) dsdi68
Seq #  *Modification Id* Act 
----------------------------+
21460  M01S17223.dsdi68  ---|          SX6    X5-IUBUFL3
Line S00049 Modification History
M01 (Added by) dsdi68
Seq #  *Modification Id* Act 
----------------------------+
21461  M01S00049.dsdi68  +++|          SX6    X5-IUBUFL1-4
21462  M00S17224.dsdi    +++|          NG     X6,PBC1     IF MORE MEMORY TO PACK
21463  M00S17225.dsdi    +++|          EQ     PBCX        RETURN
21464  M00S17226.dsdi    +++| PBD      SPACE  4,25
21465  M00S17227.dsdi    +++|***       PBD - PREPROCESS BINARY DUMP FILE.
21466  M00S17228.dsdi    +++|*
21467  M00S17229.dsdi    +++|*         THIS SUBROUTINE IS USED WHEN THE *DMB* PARAMETER
21468  M00S17230.dsdi    +++|*         IS PRESENT.  THE FILE PRODUCED BY THE *DMB* OR
21469  M00S17231.dsdi    +++|*         *LOADBC* UTILITY IS CONVERTED TO A FORMAT THAT
21470  M00S17232.dsdi    +++|*         CAN BE PROCESSED BY *DSDI*.  FOR THE FILE FROM
21471  M00S17233.dsdi    +++|*         *DMB*, THE FIELD LENGTH DUMPED IS MADE TO
21472  M00S17234.dsdi    +++|*         APPEAR AS THOUGH IT RESIDED AT CONTROL POINT ONE.
21473  M00S17235.dsdi    +++|*         ONLY THE PORTION OF *CMR* NEEDED BY *DSDI*
21474  M00S17236.dsdi    +++|*         IS SET UP.
21475  M00S17237.dsdi    +++|*
21476  M00S17238.dsdi    +++|*         ENTRY  (BD) = BINARY DUMP FLAG.
21477  M00S17239.dsdi    +++|*                (RBIA) = REWIND FLAG.
21478  M00S17240.dsdi    +++|*
21479  M00S17241.dsdi    +++|*         EXIT   (BD) = DUMP NUMBER IF IN *BD* MODE.
21480  M00S17242.dsdi    +++|*
21481  M00S17243.dsdi    +++|*         USES   X - ALL.
21482  M00S17244.dsdi    +++|*                A - 1, 2, 3, 4, 5, 6, 7.
21483  M00S17245.dsdi    +++|*                B - 2, 7.
21484  M00S17246.dsdi    +++|*
21485  M00S17247.dsdi    +++|*         CALLS  SFN.
21486  M00S17248.dsdi    +++|*
21487  M00S17249.dsdi    +++|*         MACROS ALLOC, MESSAGE, READ, READO, READW, RECALL,
21488  M00S17250.dsdi    +++|*                RETURN, REWIND, WRITEF, WRITEO, WRITER,
21489  M00S17251.dsdi    +++|*                WRITEW.
21490  M00S17252.dsdi    +++|
21491  M00S17253.dsdi    +++|
21492  M00S17254.dsdi    +++| PBD      SUBR               ENTRY/EXIT
21493  M00S17255.dsdi    +++|          SA1    BD
21494  M00S17256.dsdi    +++|          ZR     X1,PBDX     IF NOT BINARY DUMP MODE
21495  M00S17257.dsdi    +++|          RECALL F
21496  M00S17258.dsdi    +++|          RETURN F1,R        DROP SCRATCH FILE
21497  M00S17259.dsdi    +++|          MESSAGE  (=C* REFORMATTING FILE.*),1
21498  M00S17260.dsdi    +++|          SA1    RBIA
21499  M00S17261.dsdi    +++|          NZ     X1,PBD1     IF NO REWIND REQUESTED
21500  M00S17262.dsdi    +++|          REWIND F,R
21501  M00S17263.dsdi    +++| PBD1     READ   F
21502  M00S17264.dsdi    +++|          ALLOC  TCMT,DMBCM  LENGTH OF *CMR* (MULTIPLE OF 100)
21503  M00S17265.dsdi    +++|          SA2    L.TCMT      CLEAR WORKING SPACE
21504  M00S17266.dsdi    +++|          SA1    F.TCMT
21505  M00S17267.dsdi    +++|          SB2    X2-1
21506  M00S17268.dsdi    +++|          SX7    0
21507  M00S17269.dsdi    +++| PBD2     SA7    X1+B2
21508  M00S17270.dsdi    +++|          SB2    B2-B1
21509  M00S17271.dsdi    +++|          PL     B2,PBD2     IF MORE TO CLEAR
21510  M00S17272.dsdi    +++|          READO  F
21511  M00S17273.dsdi    +++|          NZ     X1,ERR39    IF FORMAT ERROR
21512  M00S17274.dsdi    +++|          SA3    RBIB
21513  M00S17275.dsdi    +++|          BX1    X6          SAVE POSSIBLE DUMP NUMBER
21514  M00S17276.dsdi    +++|          BX3    X6-X3
21515  M00S17277.dsdi    +++|          NZ     X3,PBD3     IF NOT 7700 TABLE
21516  M00S17278.dsdi    +++|          LX6    -36         SKIP 7700 TABLE
21517  M00S17279.dsdi    +++|          SB7    X6
21518  M00S17280.dsdi    +++|          READW  X2,BUF,B7
21519  M00S17281.dsdi    +++|          NZ     X1,ERR39    IF FORMAT ERROR
21520  M00S17282.dsdi    +++|          READO  X2
21521  M00S17283.dsdi    +++|          NZ     X1,ERR39    IF FORMAT ERROR
21522  M00S17284.dsdi    +++|          BX1    X6          DUMP NUMBER
21523  M00S17285.dsdi    +++| PBD3     RJ     SFN
21524  M00S17286.dsdi    +++|          SA6    BD
21525  M00S17287.dsdi    +++|          READO  F
21526  M00S17288.dsdi    +++|          NZ     X1,ERR39    IF FORMAT ERROR
21527  M00S17289.dsdi    +++|          BX1    X6
21528  M00S17290.dsdi    +++|          SB7    X6
21529  M00S17291.dsdi    +++|          AX1    48
21530  M00S17292.dsdi    +++|          SX1    X1-2RID
21531  M00S17293.dsdi    +++|          NZ     X1,ERR39    IF NOT *ID* TABLE
21532  M00S17294.dsdi    +++|          READW  X2,BUF,B7
21533  M00S17295.dsdi    +++|          NZ     X1,ERR39    IF FORMAT ERROR
21534  M00S17296.dsdi    +++|
21535  M00S17297.dsdi    +++|*         BUILD NEEDED *CMR* INFORMATION.
21536  M00S17298.dsdi    +++|
21537  M00S17299.dsdi    +++|          SA5    F.TCMT
21538  M00S17300.dsdi    +++|          SA3    BUF         GET SYSTEM VERSION
21539  M00S17301.dsdi    +++|          SA4    A3+B1
21540  M00S17302.dsdi    +++|          BX6    X3
21541  M00S17303.dsdi    +++|          BX7    X4
21542  M00S17304.dsdi    +++|          SA6    X5+SVNL
21543  M00S17305.dsdi    +++|          SA7    A6+B1
21544  M00S17306.dsdi    +++|          SA3    A4+B1       DATE
21545  M00S17307.dsdi    +++|          SA4    A3+B1       TIME
21546  M00S17308.dsdi    +++|          BX6    X3
21547  M00S17309.dsdi    +++|          BX7    X4
21548  M00S17310.dsdi    +++|          SA6    X5+DTEL
21549  M00S17311.dsdi    +++|          SA7    X5+TIML
21550  M00S17312.dsdi    +++|          SX6    B1+B1       NUMBER OF CONTROL POINTS
21551  M00S17313.dsdi    +++|          LX6    47-11
21552  M00S17314.dsdi    +++|          SA6    X5+CFGL
21553  M00S17315.dsdi    +++|          SX7    DMBCM/100B  SET CMR SIZE
21554  M00S17316.dsdi    +++|          SA7    X5+CMRL
21555  M00S17317.dsdi    +++|          LX7    6           SET FWA OF JCA
21556  M00S17318.dsdi    +++|          SX7    X7-100B
21557  M00S17319.dsdi    +++|          LX7    59-23
21558  M00S17320.dsdi    +++|          SA7    X5+JBCP
21559  M00S17321.dsdi    +++|          READO  X2
21560  M00S17322.dsdi    +++|          NZ     X1,ERR39    IF FORMAT ERROR
21561  M00S17323.dsdi    +++|          BX1    X6
21562  M00S17324.dsdi    +++|          AX6    48
21563  M00S17325.dsdi    +++|          SX0    X6-2RBC
21564  M00S17326.dsdi    +++|          ZR     X0,PBD3.1   IF FILE FROM *LOADBC*
21565  M00S17327.dsdi    +++|          SX7    3RDMM       SET HEADER LABEL
21566  M00S17328.dsdi    +++|          SX0    X1          SAVE WORD COUNT
21567  M00S17329.dsdi    +++|          LX7    -18
21568  M00S17330.dsdi    +++|          SA7    PBDA
21569  M00S17331.dsdi    +++|          SX6    X6-2RXP
21570  M00S17332.dsdi    +++|          NZ     X6,ERR39    IF FORMAT ERROR
21571  M00S17333.dsdi    +++|          READW  X2,X5+CPAS,20B  READ EXCHANGE PACKAGE
21572  M00S17334.dsdi    +++|          SX0    X0-20B
21573  M00S17335.dsdi    +++|          NG     X0,ERR39    IF FORMAT ERROR
21574  M00S17336.dsdi    +++|          NZ     X1,ERR39    IF FORMAT ERROR
21575  M00S17337.dsdi    +++|          MX6    6           MARK CONTROL POINT ACTIVE
21576  M00S17338.dsdi    +++|          LX6    -6
21577  M00S17339.dsdi    +++|          SA6    X5+CPAS+TFSW
21578  M00S17340.dsdi    +++|          READW  X2,BUF,X0   SKIP UNUSED WORDS
21579  M00S17341.dsdi    +++|          NZ     X1,ERR39    IF FORMAT ERROR
21580  M00S17342.dsdi    +++|
21581  M00S17343.dsdi    +++|*         SET RA AND FL IN CP 1 *FLSW* WORD.
21582  M00S17344.dsdi    +++|
21583  M00S17345.dsdi    +++|          READO  X2
21584  M00S17346.dsdi    +++|          SX0    X6          SAVE CMFL / 100B
21585  M00S17347.dsdi    +++|          AX6    48
21586  M00S17348.dsdi    +++|          SX6    X6-2RCM
21587  M00S17349.dsdi    +++|          NZ     X1,ERR39    IF FORMAT ERROR
21588  M00S17350.dsdi    +++|          NZ     X6,ERR39    IF FORMAT ERROR
21589  M00S17351.dsdi    +++|          SA3    L.TCMT      SET RA / 100 OF CP 1
21590  M00S17352.dsdi    +++|          LX3    12-6
21591  M00S17353.dsdi    +++|          BX7    X3+X0       COMBINE RA / 100 AND FL / 100
21592  M00S17354.dsdi    +++|          SA7    X5+CPAS+FLSW
21593  M00S17355.dsdi    +++|
21594  M00S17356.dsdi    +++|*         WRITE REFORMATTED FILE.
21595  M00S17357.dsdi    +++|
21596  M00S17358.dsdi    +++| PBD3.1   WRITEW F1,PBDA,B1  WRITE HEADER ONE
21597  M00S17359.dsdi    +++|          WRITEW X2,X5+DTEL,B1
21598  M00S17360.dsdi    +++|          WRITEW X2,X5+TIML,B1
21599  M00S17361.dsdi    +++|          WRITEW X2,BD,B1
21600  M00S17362.dsdi    +++|          WRITER X2,R
21601  M00S17363.dsdi    +++|          SA3    L.TCMT      *CMR* LENGTH
21602  M00S17364.dsdi    +++|          LX0    6           CONVERT CM / 100B TO WORDS
21603  M00S17365.dsdi    +++|          IX1    X0+X3       MEMORY SIZE
21604  M00S17366.dsdi    +++|          SX1    X1+777B     ROUND UP TO 1000B BLOCKS
21605  M00S17367.dsdi    +++|          AX1    9
21606  M00S17368.dsdi    +++|          SX3    3RCM
21607  M00S17369.dsdi    +++|          LX3    59-17
21608  M00S17370.dsdi    +++|          BX6    X3+X1
21609  M00S17371.dsdi    +++|          LX1    9           SAVE ROUNDED FL
21610  M00S17372.dsdi    +++|          BX7    X1          SET MACHINE CHARACTERISTICS
21611  M00S17373.dsdi    +++|          SX3    4372B       SET 170-700 MAINFRAME
21612  M00S17374.dsdi    +++|          LX7    12-6        CM SIZE / 100
21613  M00S17375.dsdi    +++|          LX3    47-11
21614  M00S17376.dsdi    +++|          BX7    X7+X3
21615  M00S17377.dsdi    +++|          SA7    X5+MABL
21616  M00S17378.dsdi    +++|          BX5    X1
21617  M00S17379.dsdi    +++|          WRITEO X2          WRITE HEADER TWO
21618  M00S17380.dsdi    +++|          SB2    77B         CLEAR BUFFER SPACE
21619  M00S17381.dsdi    +++|          SX6    0
21620  M00S17382.dsdi    +++| PBD4     SA6    BUF+B2
21621  M00S17383.dsdi    +++|          SB2    B2-1
21622  M00S17384.dsdi    +++|          PL     B2,PBD4     IF MORE TO CLEAR
21623  M00S17385.dsdi    +++|          WRITEW X2,BUF,3
21624  M00S17386.dsdi    +++|          WRITER X2,R
21625  M00S17387.dsdi    +++|          SA3    L.TCMT
21626  M00S17388.dsdi    +++|          SA1    F.TCMT
21627  M00S17389.dsdi    +++|          IX5    X5-X3       SUBTRACT *CMR* WORDS
21628  M00S17390.dsdi    +++|          WRITEW X2,X1,X3    WRITE CMR PORTION
21629  M00S17391.dsdi    +++|          NZ     X5,PBD5     IF CONTROL POINT FL TO COPY
21630  M00S17392.dsdi    +++|          SA1    PBDA
21631  M00S17393.dsdi    +++|          AX1    42
21632  M00S17394.dsdi    +++|          SX1    X1-3RLBC
21633  M00S17395.dsdi    +++|          NZ     X1,PBD7     IF NOT FILE FROM *LOADBC*
21634  M00S17396.dsdi    +++|
21635  M00S17397.dsdi    +++|*         COPY CONTROLLER MEMORY FOR FILE FROM *LOADBC*.
21636  M00S17398.dsdi    +++|
21637  M00S17399.dsdi    +++|          WRITER F1,R        WRITE EOR FOR CMR PORTION
21638  M00S17400.dsdi    +++|          READW  F,BUF,100B
21639  M00S17401.dsdi    +++|          SA2    BD          ENTER CHANNEL DISPLAY IN CONTROLLER DUMP
21640  M00S17402.dsdi    +++|          MX6    24
21641  M00S17403.dsdi    +++|          BX2    X6*X2
21642  M00S17404.dsdi    +++|          SA3    BUF
21643  M00S17405.dsdi    +++|          LX6    -12
21644  M00S17406.dsdi    +++|          BX6    -X6*X3
21645  M00S17407.dsdi    +++|          LX2    -12
21646  M00S17408.dsdi    +++|          BX6    X6+X2
21647  M00S17409.dsdi    +++|          SA6    A3
21648  M00S17410.dsdi    +++|          SX0    X1          SAVE READ STATUS
21649  M00S17411.dsdi    +++| PBD4.1   SB7    B6-BUF
21650  M00S17412.dsdi    +++|          WRITEW F1,BUF,B7
21651  M00S17413.dsdi    +++|          NZ     X0,PBD9     IF COPY COMPLETE
21652  M00S17414.dsdi    +++|          READW  F,BUF,100B
21653  M00S17415.dsdi    +++|          SX0    X1          SAVE READ STATUS
21654  M00S17416.dsdi    +++|          EQ     PBD4.1      CONTINUE CONTROLLER DATA TRANSFER
21655  M00S17417.dsdi    +++|
21656  M00S17418.dsdi    +++|*         COPY CM DUMP FROM FILE.
21657  M00S17419.dsdi    +++|
21658  M00S17420.dsdi    +++| PBD5     READW  F,BUF+100B,100B
21659  M00S17421.dsdi    +++|          NZ     X1,ERR39    IF FORMAT ERROR
21660  M00S17422.dsdi    +++|          WRITEW F1,BUF+100B,100B
21661  M00S17423.dsdi    +++|          SX0    X0-100B
21662  M00S17424.dsdi    +++|          SX5    X5-100B
21663  M00S17425.dsdi    +++|          NZ     X0,PBD5     IF MORE TO COPY
21664  M00S17426.dsdi    +++| PBD6     ZR     X5,PBD7     IF PAD WORDS WRITTEN
21665  M00S17427.dsdi    +++|          WRITEW F1,BUF,100B
21666  M00S17428.dsdi    +++|          SX5    X5-100B
21667  M00S17429.dsdi    +++|          EQ     PBD6        WRITE MORE PAD WORDS
21668  M00S17430.dsdi    +++|
21669  M00S17431.dsdi    +++|*         COPY EXTENDED MEMORY DUMP FROM FILE.
21670  M00S17432.dsdi    +++|
21671  M00S17433.dsdi    +++| PBD7     READO  F           CHECK FOR ECS DUMP RECORD
21672  M00S17434.dsdi    +++|          NZ     X1,PBD9     IF NOT ECS
21673  M00S17435.dsdi    +++|          SA6    BUF
21674  M00S17436.dsdi    +++|          SX1    3RECS
21675  M00S17437.dsdi    +++|          SX0    X6          ECS LENGTH
21676  M00S17438.dsdi    +++|          AX6    42
21677  M00S17439.dsdi    +++|          LX0    9
21678  M00S17440.dsdi    +++|          BX1    X1-X6
21679  M00S17441.dsdi    +++|          NZ     X1,PBD9     IF NOT EXTENDED MEMORY
Line S00001 Modification History
M01 (Added by) dsdi65
Seq #  *Modification Id* Act 
----------------------------+
21680  M01S00001.dsdi65  +++|          ZR     X0,PBD9     IF NOTHING TO TRANSFER
21681  M00S17442.dsdi    +++|          WRITER F1,R
21682  M00S17443.dsdi    +++|          WRITEW X2,BUF,4    EXTENDED MEMORY DUMP HEADER
21683  M00S17444.dsdi    +++|          WRITER X2,R
21684  M00S17445.dsdi    +++| PBD8     ZR     X0,PBD9     IF COPY COMPLETE
21685  M00S17446.dsdi    +++|          READW  F,BUF+100B,100B  COPY DUMP RECORD
21686  M00S17447.dsdi    +++|          NZ     X1,ERR39    IF END OF RECORD
21687  M00S17448.dsdi    +++|          WRITEW F1,BUF+100B,100B
21688  M00S17449.dsdi    +++|          SX0    X0-100B
21689  M00S17450.dsdi    +++|          EQ     PBD8        GET NEXT BLOCK
21690  M00S17451.dsdi    +++|
21691  M00S17452.dsdi    +++| PBD9     WRITEF F1,R        TERMINATE FILE
21692  M00S17453.dsdi    +++|          RECALL F
21693  M00S17454.dsdi    +++|          SA1    F1          SWAP FILE NAMES
21694  M00S17455.dsdi    +++|          MX3    42
21695  M00S17456.dsdi    +++|          MX6    -2
21696  M00S17457.dsdi    +++|          BX1    X3*X1
21697  M00S17458.dsdi    +++|          BX6    -X6+X1
21698  M00S17459.dsdi    +++|          SA6    F
21699  M00S17460.dsdi    +++|          REWIND A6,R
21700  M00S17461.dsdi    +++|          SA1    L.TCMT      DROP TABLE SPACE
21701  M00S17462.dsdi    +++|          BX1    -X1
21702  M00S17463.dsdi    +++|          ALLOC  TCMT,X1
21703  M00S17464.dsdi    +++|          EQ     PBDX        RETURN
21704  M00S17465.dsdi    +++|
21705  M00S17466.dsdi    +++|
21706  M00S17467.dsdi    +++| PBDA     CON    3LLBC
21707  M00S17468.dsdi    +++| PCH      SPACE  4,12
21708  M00S17469.dsdi    +++|**        PCH - PRINT CONTROL POINT DUMP HEADING.
21709  M00S17470.dsdi    +++|*
Line S17471 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21710  M01S17471.271l716 ---|*         ENTRY  CN = CONTROL POINT NUMBER.
Line S00369 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21711  M01S00369.271l716 +++|*         ENTRY  (CN) = CONTROL POINT NUMBER.
21712  M01S00370.271l716 +++|*                (OP) = PCPA FWA OFFSET (0 IF DUMPING CONTROL POINTS).
21713  M00S17472.dsdi    +++|*
Line S17473 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21714  M01S17473.271l716 ---|*         EXIT   FW = CONTROL POINT AREA ADDRESS.
21715  M01S17474.271l716 ---|*                LW = CONTROL POINT AREA LWA+1.
Line S00371 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21716  M01S00371.271l716 +++|*         EXIT   (FW) = CONTROL POINT AREA ADDRESS.
21717  M01S00372.271l716 +++|*                (LW) = CONTROL POINT AREA LWA+1.
21718  M00S17475.dsdi    +++|*
Line S17476 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21719  M01S17476.271l716 ---|*         SAVES  X - 5.
21720  M01S17477.271l716 ---|*                B - 1.
21721  M01S17478.271l716 ---|*                A - 0,5.
Line S00373 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21722  M01S00373.271l716 +++|*         USES   X - 1, 2, 6, 7.
21723  M01S00374.271l716 +++|*                A - 1, 2, 6, 7.
21724  M01S00375.271l716 +++|*                B - 6, 7.
21725  M00S17479.dsdi    +++|*
Line S17480 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21726  M01S17480.271l716 ---|*         CALLS  CPS,CTS,UPS,WOF.
Line S00376 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21727  M01S00376.271l716 +++|*         CALLS  CPS, CTS, UPS.
21728  M01S00377.271l716 +++|*
21729  M01S00378.271l716 +++|*         MACROS PRINT.
21730  M00S17481.dsdi    +++|
21731  M00S17482.dsdi    +++|
21732  M00S17483.dsdi    +++| PCH      SUBR
21733  M00S17484.dsdi    +++|          SA2    EF          CHECK AUTO EJECT FLAG
21734  M00S17485.dsdi    +++|          SX1    100         PRESET FOR EJECT
21735  M00S17486.dsdi    +++|          ZR     X2,PCH1     IF AUTO EJECT SELECTED
21736  M00S17487.dsdi    +++|          SX1    3
21737  M00S17488.dsdi    +++| PCH1     RJ     CPS         CHECK PAGE SPACE
21738  M00S17489.dsdi    +++|          PRINT  (=2C  )
21739  M00S17490.dsdi    +++|          SA1    CN          CONTROL POINT NUMBER
Line S17491 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21740  M01S17491.271l716 ---|          SX1    X1-1
21741  M01S17492.271l716 ---|          LX1    7
21742  M01S17493.271l716 ---|          SX1    X1+CPAS     COMPUTE CONTROL POINT AREA ADDRESS
21743  M01S17494.271l716 ---|          BX6    X1
Line S00379 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21744  M01S00379.271l716 +++|          SA2    OP          ADD PCPA OFFSET
21745  M01S00380.271l716 +++|          LX1    7
21746  M01S00381.271l716 +++|          IX6    X1+X2
21747  M00S17495.dsdi    +++|          SA6    FW          SAVE ADDRESS
Line S17496 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21748  M01S17496.271l716 ---|          SX6    X6+CPLEN
21749  M01S17497.271l716 ---|          SA6    LW          SET LWA+1
Line S00382 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21750  M01S00382.271l716 +++|          SX7    X6+CPLEN
21751  M01S00383.271l716 +++|          SA7    LW          SET LWA+1
21752  M01S00384.271l716 +++|          BX1    X6
21753  M00S17498.dsdi    +++|          LX1    -12
21754  M00S17499.dsdi    +++|          SB6    4
21755  M00S17500.dsdi    +++|          SB7    PRBF
21756  M00S17501.dsdi    +++|          RJ     CTS         CONVERT ADDRESS
21757  M00S17502.dsdi    +++|          SA2    =18H - CONTROL POINT
21758  M00S17503.dsdi    +++|          SB6    17
Line S17504 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21759  M01S17504.271l716 ---|          RJ     UPS
Line S00385 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21760  M01S00385.271l716 +++|          SA1    OP
21761  M01S00386.271l716 +++|          ZR     X1,PCH2     IF NOT DUMPING PCP-S
21762  M01S00387.271l716 +++|          SA2    =25H - PSEUDO-CONTROL POINT
21763  M01S00388.271l716 +++|          SB6    24
21764  M01S00389.271l716 +++| PCH2     RJ     UPS         UNPACK STRING
21765  M00S17505.dsdi    +++|          SA1    CN
21766  M00S17506.dsdi    +++|          LX1    -6
21767  M00S17507.dsdi    +++|          SB6    B1+B1
21768  M00S17508.dsdi    +++|          RJ     CTS         CONVERT CONTROL POINT NUMBER
21769  M00S17509.dsdi    +++|          PRINT  CCCH,B7-CCCH
21770  M00S17510.dsdi    +++|          PRINT  (=2C  )
21771  M00S17511.dsdi    +++|          JP     PCHX        EXIT
21772  M00S17512.dsdi    +++| PCM      SPACE  4,10
21773  M00S17513.dsdi    +++|**        PCM - POSITION CYBER MEMORY.
21774  M00S17514.dsdi    +++|*
21775  M00S17515.dsdi    +++|*         ENTRY  X3 - CM ADDRESS.
21776  M00S17516.dsdi    +++|*
21777  M00S17517.dsdi    +++|*         EXIT   DUMP FILE POSITIONED FOR *GETCM*
21778  M00S17518.dsdi    +++|*
21779  M00S17519.dsdi    +++|*         USES   A - 1, 6.
21780  M00S17520.dsdi    +++|*                X - 1, 2, 3, 6.
21781  M00S17521.dsdi    +++|*
21782  M00S17522.dsdi    +++|*         CALLS  PDF, UPW.
21783  M00S17523.dsdi    +++|
21784  M00S17524.dsdi    +++|
21785  M00S17525.dsdi    +++| PCM      SUBR               ENTRY/EXIT
21786  M00S17526.dsdi    +++|          SA1    MT
21787  M00S17527.dsdi    +++|          NZ     X1,PCM1     IF MEMORY TYPE IS ESM
21788  M00S17528.dsdi    +++|          SA1    AP
21789  M00S17529.dsdi    +++|          NZ     X1,PCM2     IF ADVANCED PROCESSOR PRESENT
21790  M00S17530.dsdi    +++| PCM1     RJ     PDF         POSITION DUMP FILE
21791  M00S17531.dsdi    +++|          EQ     PCMX        RETURN
21792  M00S17532.dsdi    +++|
21793  M00S17533.dsdi    +++| PCM2     BX1    X3
21794  M00S17534.dsdi    +++|          SX2    15
21795  M00S17535.dsdi    +++|          IX3    X3/X2
21796  M00S17536.dsdi    +++|          SX2    15
21797  M00S17537.dsdi    +++|          IX6    X2*X3
21798  M00S17538.dsdi    +++|          IX2    X1-X6
21799  M00S17539.dsdi    +++|          SX6    X2-15
21800  M00S17540.dsdi    +++|          LX3    4
21801  M00S17541.dsdi    +++|          SA6    BI          DESIRED POSITION WITHIN 15 WORD BLOCK
21802  M00S17542.dsdi    +++|          RJ     PDF         POSITION DUMP FILE
21803  M00S17543.dsdi    +++|          RJ     UPW         UNPACK 64-60 BIT WORDS
21804  M00S17544.dsdi    +++|          EQ     PCMX        RETURN
21805  M00S17545.dsdi    +++| PCS      SPACE  4,10
21806  M00S17546.dsdi    +++|**        PCS - PROCESSOR CONTROL STORE.
21807  M00S17547.dsdi    +++|*
21808  M00S17548.dsdi    +++|*         ENTRY  VIA UNCONDITIONAL JUMP.
21809  M00S17549.dsdi    +++|*
21810  M00S17550.dsdi    +++|*         EXIT   TO *RBI2* IF NORMAL.
Line S17551 Modification History
M01 (Removed by) dsdi73
Seq #  *Modification Id* Act 
----------------------------+
21811  M01S17551.dsdi73  ---|*                TO *ERR26* IF PREMATURE EOF.
Line S00019 Modification History
M01 (Added by) dsdi73
Seq #  *Modification Id* Act 
----------------------------+
21812  M01S00019.dsdi73  +++|*                TO *PPE1* IF PREMATURE EOF.
21813  M00S17552.dsdi    +++|*
21814  M00S17553.dsdi    +++|*         CALLS  CRS, ERF, RBF.
21815  M00S17554.dsdi    +++|
21816  M00S17555.dsdi    +++|
21817  M00S17556.dsdi    +++| PCS      BSS    0           ENTRY
21818  M00S17557.dsdi    +++|          RJ     ERF         POSITION TO EOR ON FILE *F*
21819  M00S17558.dsdi    +++|          RJ     RBF         READ FIRST PART OF CONTROL STORE
Line S17559 Modification History
M01 (Removed by) dsdi73
Seq #  *Modification Id* Act 
----------------------------+
21820  M01S17559.dsdi73  ---|          NZ     X1,ERR29    IF PREMATURE EOF
Line S00020 Modification History
M01 (Added by) dsdi73
Seq #  *Modification Id* Act 
----------------------------+
21821  M01S00020.dsdi73  +++|          NZ     X1,PPE1     IF PREMATURE EOF
21822  M00S17560.dsdi    +++|          RJ     CRS         COPY CONTROL STORE TO FILE *S*
21823  M00S17561.dsdi    +++|          EQ     RBI2        EXIT TO READ NEXT RECORD FROM FILE *F*
21824  M00S17562.dsdi    +++|
Line S00416 Modification History
M01 (Added by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
21825  M01S00416.271l739 +++| EIC      EQU    PCS         PROCESS ENVIRONMENTAL INTERFACE RECORD
21826  M00S17563.dsdi    +++| PMR      EQU    PCS         PROCESS PROCESSOR MAINTENANCE REGISTERS
21827  M00S17564.dsdi    +++| PRF      EQU    PCS         PROCESS PROCESSOR REGISTER FILE
21828  M00S17565.dsdi    +++| MMR      EQU    PCS         PROCESS MEMORY MAINTENANCE REGISTERS
21829  M00S17566.dsdi    +++| INN      EQU    PCS         PROCESS IOU MAINTENANCE REGISTERS
21830  M00S17567.dsdi    +++| CCR      EQU    PCS         PROCESS CCH CHANNEL REGISTER RECORD
21831  M00S17568.dsdi    +++| PRX      EQU    PCS         PROCESS PROCESSOR EXCHANGE PACKAGES.
21832  M00S17569.dsdi    +++| PCV      SPACE  4,15
21833  M00S17570.dsdi    +++|**        PCV - PROCESS CONTROLLER DATA VERIFICATION.
21834  M00S17571.dsdi    +++|*
21835  M00S17572.dsdi    +++|*         ENTRY  (X1) = OCTAL/HEX DUMP FORMAT FLAG.
21836  M00S17573.dsdi    +++|*                (X2) = DIRECTORY ENTRY ADDRESS FOR CONTROLLER DATA.
21837  M00S17574.dsdi    +++|*
21838  M00S17575.dsdi    +++|*         EXIT   CONTROLLER DUMP VERIFICATION ERROR DATA WRITTEN.
21839  M00S17576.dsdi    +++|*
21840  M00S17577.dsdi    +++|*         USES   X - ALL.
21841  M00S17578.dsdi    +++|*                A - ALL.
21842  M00S17579.dsdi    +++|*                B - 2, 3, 4, 5, 6, 7.
21843  M00S17580.dsdi    +++|*
21844  M00S17581.dsdi    +++|*         CALLS  CTS, CVE, HTS, PDF, SSB, UPS.
21845  M00S17582.dsdi    +++|*
21846  M00S17583.dsdi    +++|*         MACROS PRINT, READO.
21847  M00S17584.dsdi    +++|
21848  M00S17585.dsdi    +++|
21849  M00S17586.dsdi    +++| PCV      SUBR               ENTRY/EXIT
21850  M00S17587.dsdi    +++|          SA4    X2+B1       GET RANDOM INDEX OF CONTROLLER RECORD
21851  M00S17588.dsdi    +++|          BX7    X1          SAVE OCTAL/HEX FORMAT FLAG
21852  M00S17589.dsdi    +++|          SA7    PCVA
21853  M00S17590.dsdi    +++|          BX6    X4
21854  M00S17591.dsdi    +++|          SA6    RI
21855  M00S17592.dsdi    +++|          BX7    X7-X7
21856  M00S17593.dsdi    +++|          SA7    A7+B1
21857  M00S17594.dsdi    +++|          ERRNZ  PCVB-PCVA-1 CODE DEPENDS ON CONSECUTIVE LOCATIONS
21858  M00S17595.dsdi    +++|          SX3    B1+B1       POSITION TO THIRD WORD OF RECORD
21859  M00S17596.dsdi    +++|          RJ     PDF
21860  M00S17597.dsdi    +++|          PRINT  (=2C  )
21861  M00S17598.dsdi    +++|          PRINT  CDVH1       WRITE CONTROLLER DATA VERIFICATION HEADERS
21862  M00S17599.dsdi    +++|          PRINT  CDVH2
21863  M00S17600.dsdi    +++|          PRINT  (=2C  )
21864  M00S17601.dsdi    +++|          RJ     SSB         SPACE FILL LINE BUFFER
21865  M00S17602.dsdi    +++| PCV1     SA1    PCVB        ADVANCE CONTROLLER MEMORY ADDRESS
21866  M00S17603.dsdi    +++|          SX6    X1+5
21867  M00S17604.dsdi    +++|          SA6    A1
21868  M00S17605.dsdi    +++|          READO  S
21869  M00S17606.dsdi    +++|          NZ     X1,PCVX     IF END OF RECORD
21870  M00S17607.dsdi    +++|          SA6    PCVC        SAVE FIRST WORD OF PAIR
21871  M00S17608.dsdi    +++|          READO  S
21872  M00S17609.dsdi    +++|          ZR     X1,PCV2     IF SECOND WORD TRANSFERRED
21873  M00S17610.dsdi    +++|          BX6    X6-X6
21874  M00S17611.dsdi    +++| PCV2     SA5    PCVC        GET FIRST WORD OF PAIR
21875  M00S17612.dsdi    +++|          SA3    PCVD        GET VERIFICATION ERROR MASK
21876  M00S17613.dsdi    +++|          SA6    A5          SAVE SECOND WORD OF PAIR
21877  M00S17614.dsdi    +++|          BX1    X3*X6
21878  M00S17615.dsdi    +++|          BX4    X3*X5
21879  M00S17616.dsdi    +++|          BX1    X1+X4
21880  M00S17617.dsdi    +++|          ZR     X1,PCV1     IF NO ERROR
21881  M00S17618.dsdi    +++|          SA1    PCVB        GET CONTROLLER MEMORY ADDRESS
21882  M00S17619.dsdi    +++|          SB7    PRBF        PRINT STRING BUFFER
21883  M00S17620.dsdi    +++|          SB6    4
21884  M00S17621.dsdi    +++|          LX1    -16
21885  M00S17622.dsdi    +++|          RJ     HTS         CONVERT ADDRESS TO HEX DISPLAY
21886  M00S17623.dsdi    +++|          SA2    PCVA
21887  M00S17624.dsdi    +++|          SA0    PRBF+10
21888  M00S17625.dsdi    +++|          SB2    10
21889  M00S17626.dsdi    +++|          NZ     X2,PCV3     IF NOT OCTAL DUMP
21890  M00S17627.dsdi    +++|          SB7    PRBF
21891  M00S17628.dsdi    +++|          SB6    5
21892  M00S17629.dsdi    +++|          LX1    -15
21893  M00S17630.dsdi    +++|          RJ     CTS         CONVERT ADDRESS TO DISPLAY
21894  M00S17631.dsdi    +++| PCV3     MX0    -4
21895  M00S17632.dsdi    +++|          SB3    4
21896  M00S17633.dsdi    +++|          MX3    8
21897  M00S17634.dsdi    +++|          LX5    4
21898  M00S17635.dsdi    +++|          BX6    -X0*X5      VERIFICATION ERROR FLAG
21899  M00S17636.dsdi    +++|          BX1    X3*X5       CONTROLLER DATA (FIRST HALF OF BYTE)
21900  M00S17637.dsdi    +++|          LX5    12
21901  M00S17638.dsdi    +++|          SB5    B3+B3
21902  M00S17639.dsdi    +++|          RJ     CVE         CHECK FOR VERIFICATION ERROR
21903  M00S17640.dsdi    +++|          BX4    X6          SAVE FIRST HALF BYTE VERIFICATION STATUS
21904  M00S17641.dsdi    +++|          SB2    B2-2
21905  M00S17642.dsdi    +++|          NE     B2,B3,PCV4  IF NOT AT END OF FIRST WORD OF PAIR
21906  M00S17643.dsdi    +++|          SA5    A5          GET SECOND WORD OF PAIR
21907  M00S17644.dsdi    +++|          LX5    4
21908  M00S17645.dsdi    +++| PCV4     BX6    -X0*X5      VERIFICATION ERROR FLAG
21909  M00S17646.dsdi    +++|          SB5    B0
21910  M00S17647.dsdi    +++|          RJ     CVE         CHECK FOR VERIFICATION ERROR
21911  M00S17648.dsdi    +++|          BX3    X3*X5       CONTROLLER DATA (SECOND HALF OF BYTE)
21912  M00S17649.dsdi    +++|          LX3    -8
21913  M00S17650.dsdi    +++|          BX1    X1+X3
21914  M00S17651.dsdi    +++|          LX5    8
21915  M00S17652.dsdi    +++|          SB7    A0
21916  M00S17653.dsdi    +++|          SA2    PCVA        GET OCTAL/HEX DUMP FORMAT FLAG
21917  M00S17654.dsdi    +++|          SB6    B3
21918  M00S17655.dsdi    +++|          ZR     X2,PCV5     IF OCTAL DUMP
21919  M00S17656.dsdi    +++|          RJ     HTS         CONVERT ACTUAL VALUE TO HEX DIGITS
21920  M00S17657.dsdi    +++|          SB6    B3
21921  M00S17658.dsdi    +++|          SB7    A0+52-10
21922  M00S17659.dsdi    +++|          BX2    X6*X4
21923  M00S17660.dsdi    +++|          SB4    B3
21924  M00S17661.dsdi    +++|          NG     X2,PCV7     IF MULTIPLE BIT FAILURE IN BOTH HALVES
21925  M00S17662.dsdi    +++|          BX1    X1-X6       CALCULATE EXPECTED VALUE
21926  M00S17663.dsdi    +++|          BX1    X1-X4
21927  M00S17664.dsdi    +++|          LX1    -16
21928  M00S17665.dsdi    +++|          RJ     HTS         CONVERT EXPECTED VALUE TO HEX DIGITS
21929  M00S17666.dsdi    +++|          BX1    X4+X6       CALCULATE LOGICAL DIFFERENCE
21930  M00S17667.dsdi    +++|          LX1    -16
21931  M00S17668.dsdi    +++|          SB7    A0+94-10
21932  M00S17669.dsdi    +++|          SB6    B3
21933  M00S17670.dsdi    +++|          RJ     HTS         CONVERT DIFFERENCE TO HEX DIGITS
21934  M00S17671.dsdi    +++|          SB4    B1+B1
21935  M00S17672.dsdi    +++|          SB3    B1+B1
21936  M00S17673.dsdi    +++|          EQ     PCV6        PROCESS MULTIPLE BIT FAILURE
21937  M00S17674.dsdi    +++|
21938  M00S17675.dsdi    +++| PCV5     SB3    B3-1
21939  M00S17676.dsdi    +++|          SB6    B3+B3
21940  M00S17677.dsdi    +++|          LX1    -2
21941  M00S17678.dsdi    +++|          RJ     CTS         CONVERT ACTUAL VALUE TO OCTAL DIGITS
21942  M00S17679.dsdi    +++|          SB7    A0+52-10
21943  M00S17680.dsdi    +++|          SB6    B3+B3
21944  M00S17681.dsdi    +++|          BX2    X4*X6
21945  M00S17682.dsdi    +++|          SB4    B6
21946  M00S17683.dsdi    +++|          NG     X2,PCV7     IF MULTIPLE BIT FAILURE IN BOTH HALVES
21947  M00S17684.dsdi    +++|          BX1    X1-X6       CALCULATE EXPECTED VALUE
21948  M00S17685.dsdi    +++|          BX1    X1-X4
21949  M00S17686.dsdi    +++|          LX1    -18
21950  M00S17687.dsdi    +++|          RJ     CTS         CONVERT EXPECTED VALUE TO OCTAL DIGITS
21951  M00S17688.dsdi    +++|          SB6    B3+B3
21952  M00S17689.dsdi    +++|          BX1    X4+X6       CALCULATE LOGICAL DIFFERENCE
21953  M00S17690.dsdi    +++|          SB4    B3+B1
21954  M00S17691.dsdi    +++|          LX1    -18
21955  M00S17692.dsdi    +++|          SB7    A0+94-10
21956  M00S17693.dsdi    +++|          RJ     CTS         CONVERT DIFFERENCE TO OCTAL DIGITS
21957  M00S17694.dsdi    +++| PCV6     PL     X1,PCV9     IF NO MULTIPLE BIT ERROR
21958  M00S17695.dsdi    +++|          SB7    A0+52-10
21959  M00S17696.dsdi    +++|          SB6    B4+
21960  M00S17697.dsdi    +++|          NG     X4,PCV7     IF MULTIPLE BIT ERROR IN FIRST HALF
21961  M00S17698.dsdi    +++|          SB6    B3
21962  M00S17699.dsdi    +++|          SB7    B7+B6
21963  M00S17700.dsdi    +++| PCV7     SA2    =6L******
21964  M00S17701.dsdi    +++|          RJ     UPS         UNPACK CHARACTERS TO PRINT LINE
21965  M00S17702.dsdi    +++|          SB7    A0+94-10
21966  M00S17703.dsdi    +++|          SB6    B4+
21967  M00S17704.dsdi    +++|          NG     X4,PCV8     IF MULTIPLE BIT ERROR IN FIRST HALF
21968  M00S17705.dsdi    +++|          SB6    B3
21969  M00S17706.dsdi    +++|          SB7    B7+B6
21970  M00S17707.dsdi    +++| PCV8     SA2    =6L******
21971  M00S17708.dsdi    +++|          RJ     UPS         UNPACK CHARACTERS TO PRINT LINE
21972  M00S17709.dsdi    +++| PCV9     SA0    A0+8
21973  M00S17710.dsdi    +++|          NZ     B2,PCV3     IF MORE BYTES IN WORD PAIR
21974  M00S17711.dsdi    +++|          PRINT  CCCH,136    PRINT VERIFICATION ERROR LINE
21975  M00S17712.dsdi    +++|          EQ     PCV1        CONTINUE DUMP VERIFICATION
21976  M00S17713.dsdi    +++|
21977  M00S17714.dsdi    +++|
21978  M00S17715.dsdi    +++| PCVA     CON    0           0 = OCTAL DUMP, 1 = HEX DUMP FORMAT
21979  M00S17716.dsdi    +++| PCVB     CON    0           CONTROLLER MEMORY ADDRESS
21980  M00S17717.dsdi    +++| PCVC     CON    0           CONTROLLER DATA WORD
21981  M00S17718.dsdi    +++| PCVD     VFD    4/17B,8/0,4/17B,8/0,4/17B,8/0,4/17B,8/0,4/17B,8/0
21982  M00S17719.dsdi    +++|
21983  M00S17720.dsdi    +++|
21984  M00S17721.dsdi    +++| CDVH1    BSS    0           CONTROLLER DATA VERIFICATION HEADER LINE 1
21985  M00S17722.dsdi    +++|          DATA   50H           ACTUAL VALUE
21986  M00S17723.dsdi    +++|          DATA   40H   EXPECTED VALUE
21987  M00S17724.dsdi    +++|          DATA   C*     LOGICAL DIFFERENCE*
21988  M00S17725.dsdi    +++|
21989  M00S17726.dsdi    +++| CDVH2    BSS    0           CONTROLLER DATA VERIFICATION HEADER LINE 2
21990  M00S17727.dsdi    +++|          DATA   50H ADDRESS    +0      +1      +2      +3      +4
21991  M00S17728.dsdi    +++|          DATA   40H    +0      +1      +2      +3      +4
21992  M00S17729.dsdi    +++|          DATA   C*      +0      +1      +2      +3      +4*
21993  M00S17730.dsdi    +++| PCW      SPACE  4,17
21994  M00S17731.dsdi    +++|**        PCW - PRINT CONTENTS OF SUB-SYSTEM WORDS.
21995  M00S17732.dsdi    +++|*
21996  M00S17733.dsdi    +++|*         ENTRY  A5 = ADDRESS OF DESCRIPTOR BLOCK.
21997  M00S17734.dsdi    +++|*T        24/ FIRST WORD LABEL,6/ ,18/ REL WORD ADD
Figure

01718232429 REL WORD ADD FIRST WORD LABEL3047 FIRST WORD LABEL

21998  M00S17735.dsdi    +++|*         240/ 40 CHARACTER DESCRIPTION OF WORD
21999  M00S17736.dsdi    +++|*T        24/ SECOND WORD LABEL,6/ ,18/ REL WORD ADD
Figure

01718232429 REL WORD ADD SECOND WORD LABEL3047 SECOND WORD LABEL

22000  M00S17737.dsdi    +++|*         240/ 40 CHARACTER DESCRIPTION OF WORD
22001  M00S17738.dsdi    +++|*          .         .           .         .
22002  M00S17739.dsdi    +++|*          .         .           .         .
22003  M00S17740.dsdi    +++|*          .         .           .         .
22004  M00S17741.dsdi    +++|*T        60/ ZERO WORD TERMINATES BLOCK
Figure

029 ZERO WORD TERMINATES BLOCK3059 ZERO WORD TERMINATES BLOCK

22005  M00S17742.dsdi    +++|*
22006  M00S17743.dsdi    +++|*         SAVES  X - NONE.
22007  M00S17744.dsdi    +++|*                B - 1.
22008  M00S17745.dsdi    +++|*                A - 0.
22009  M00S17746.dsdi    +++|*
22010  M00S17747.dsdi    +++|*         CALLS  FDW,UPS,WOF.
22011  M00S17748.dsdi    +++|
22012  M00S17749.dsdi    +++|
22013  M00S17750.dsdi    +++| PCW      SUBR
22014  M00S17751.dsdi    +++|          PRINT  (=2C  )
22015  M00S17752.dsdi    +++|          SA5    A5-5
22016  M00S17753.dsdi    +++| PCW1     SA5    A5+5
22017  M00S17754.dsdi    +++|          ZR     X5,PCW2     IF THROUGH DESCRIPTOR BLOCK
22018  M00S17755.dsdi    +++|          SB7    PRBF
22019  M00S17756.dsdi    +++|          SA2    =12HCONTENTS OF
22020  M00S17757.dsdi    +++|          SB6    12
22021  M00S17758.dsdi    +++|          RJ     UPS
22022  M00S17759.dsdi    +++|          SA2    A5+
22023  M00S17760.dsdi    +++|          SB6    6
22024  M00S17761.dsdi    +++|          RJ     UPS         STORE WORD LABEL
22025  M00S17762.dsdi    +++|          SA2    =3H =
22026  M00S17763.dsdi    +++|          SB6    3
22027  M00S17764.dsdi    +++|          RJ     UPS
22028  M00S17765.dsdi    +++|          SA1    SSBF+X5     GET WORD TO DUMP
22029  M00S17766.dsdi    +++|          SA2    =4000005B   FORMAT CONTROL
22030  M00S17767.dsdi    +++|          RJ     FDW         FORMAT DATA WORD
22031  M00S17768.dsdi    +++|          SX6    1R-
22032  M00S17769.dsdi    +++|          SX7    1R
22033  M00S17770.dsdi    +++|          SA6    B7
22034  M00S17771.dsdi    +++|          SA7    B7+B1
22035  M00S17772.dsdi    +++|          SB7    B7+2
22036  M00S17773.dsdi    +++|          SA2    A5+1
22037  M00S17774.dsdi    +++|          SB6    40
22038  M00S17775.dsdi    +++|          RJ     UPS
22039  M00S17776.dsdi    +++|          PRINT  CCCH,B7-CCCH
22040  M00S17777.dsdi    +++|          JP     PCW1
22041  M00S17778.dsdi    +++|
22042  M00S17779.dsdi    +++| PCW2     PRINT  (=2C  )
22043  M00S17780.dsdi    +++|          JP     PCWX        EXIT
22044  M00S17781.dsdi    +++| PDB      SPACE  4,10
22045  M00S17782.dsdi    +++|**        PDB - PRINT DAYFILE BUFFER.
22046  M00S17783.dsdi    +++|*
Line S17784 Modification History
M01 (Removed by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
22047  M01S17784.dsdi70  ---|*         ENTRY  (GDBA) = ADDRESS OF DAYFILE BUFFER POINTERS.
22048  M01S17785.dsdi70  ---|*                (GDBB) = DAYFILE BUFFER LENGTH.
Line S00006 Modification History
M01 (Added by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
22049  M01S00006.dsdi70  +++|*         ENTRY  (GDBB) = DAYFILE BUFFER LENGTH.
22050  M00S17786.dsdi    +++|*                (GDBD) = INACCURATE DAYFILE BUFFER POINTERS FLAG.
Line S17787 Modification History
M01 (Removed by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
22051  M01S17787.dsdi70  ---|*                DAYFILE BUFFER STORED IN TABLE *TSCR*.
22052  M00S17788.dsdi    +++|*                (NC) = NUMBER OF CONTROL POINTS.
22053  M00S17789.dsdi    +++|*                (CN) = CONTROL POINT NUMBER.
22054  M00S17790.dsdi    +++|*                     = 0 OR (NC)+1 IF SYSTEM DAYFILE.
22055  M00S17791.dsdi    +++|*                     = -1 IF ACCOUNT DAYFILE.
22056  M00S17792.dsdi    +++|*                     = -2 IF ERRLOG DAYFILE.
22057  M00S17793.dsdi    +++|*                     = -3 IF BML DAYFILE.
Line S00007 Modification History
M01 (Added by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
22058  M01S00007.dsdi70  +++|*                DAYFILE BUFFER STORED IN TABLE *TSCR*.
22059  M01S00008.dsdi70  +++|*                DAYFILE BUFFER POINTERS STORED IN TABLE *TSC1*.
22060  M00S17794.dsdi    +++|*
22061  M00S17795.dsdi    +++|*         USES   X - ALL.
22062  M00S17796.dsdi    +++|*                A - 1, 2, 3, 4, 5, 6, 7.
22063  M00S17797.dsdi    +++|*                B - 2, 6, 7.
22064  M00S17798.dsdi    +++|*
22065  M00S17799.dsdi    +++|*         CALLS  PMD, SDI.
22066  M00S17800.dsdi    +++|*
22067  M00S17801.dsdi    +++|*         MACROS PRINT.
22068  M00S17802.dsdi    +++|
22069  M00S17803.dsdi    +++|
22070  M00S17804.dsdi    +++| PDB8     PRINT  (=2C  )
22071  M00S17805.dsdi    +++|          PRINT  (=C*  DAYFILE NOT DEFINED.*)
22072  M00S17806.dsdi    +++|          PRINT  (=2C  )
22073  M00S17807.dsdi    +++|
22074  M00S17808.dsdi    +++| PDB      SUBR
22075  M00S17809.dsdi    +++|          SA1    GDBD
22076  M00S17810.dsdi    +++|          NZ     X1,PDBX     IF INACCURATE DAYFILE BUFFER POINTERS
Line S17811 Modification History
M01 (Removed by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
22077  M01S17811.dsdi70  ---|          SA1    GDBA        READ POINTERS ADDRESS
Line S00009 Modification History
M01 (Added by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
22078  M01S00009.dsdi70  +++|          SA1    F.TSC1      READ POINTERS ADDRESS
22079  M00S17812.dsdi    +++|          SA2    GDBB        GET BUFFER LENGTH
22080  M00S17813.dsdi    +++|          BX0    X2
22081  M00S17814.dsdi    +++|          ZR     X2,PDB8     IF DAYFILE NOT DEFINED
22082  M00S17815.dsdi    +++|          SA1    X1          ACCESS *FIRST* AND *IN*
22083  M00S17816.dsdi    +++|          MX2    -12
22084  M00S17817.dsdi    +++|          SA4    F.TSCR      FIRST OF DAYFILE BUFFER
22085  M00S17818.dsdi    +++|          BX6    -X2*X1      *IN*
22086  M00S17819.dsdi    +++|
22087  M00S17820.dsdi    +++|*         SET POINTERS AND LENGTH FOR THE DAYFILE MESSAGE LIST.
22088  M00S17821.dsdi    +++|
22089  M00S17822.dsdi    +++|          IX6    X4+X6       SET CURRENT POINTER AS *IN*
22090  M00S17823.dsdi    +++|          SA6    PDBB
22091  M00S17824.dsdi    +++|          IX7    X4+X0       BUFFER LWA+1 IN MANAGED TABLE
22092  M00S17825.dsdi    +++|          SA7    A6+B1
22093  M00S17826.dsdi    +++|          SX7    X0          WORDS REMAINING = BUFFER LENGTH
22094  M00S17827.dsdi    +++|          SA7    A7+B1
22095  M00S17828.dsdi    +++|
22096  M00S17829.dsdi    +++|*         RESET POINTERS AND LENGTH IF BUFFER HAS NOT BEEN USED.
22097  M00S17830.dsdi    +++|
22098  M00S17831.dsdi    +++|          SA3    A1+B1       ACCESS *OUT*
22099  M00S17832.dsdi    +++|          BX7    -X2*X3
22100  M00S17833.dsdi    +++|          IX7    X7+X4       BIAS *OUT*
22101  M00S17834.dsdi    +++|          BX3    X6-X7
22102  M00S17835.dsdi    +++|          SA5    A3+B1       CHECK DEVICE ASSIGNMENT
22103  M00S17836.dsdi    +++|          BX7    X5
22104  M00S17837.dsdi    +++|          MX2    12
22105  M00S17838.dsdi    +++|          AX7    36
22106  M00S17839.dsdi    +++|          NZ     X7,PDB1     IF EQUIPMENT ASSIGNED
22107  M00S17840.dsdi    +++|          NZ     X3,PDB1.1   IF DAYFILE USED
22108  M00S17841.dsdi    +++|          SX6    B0          SET ZERO WORDS TO LIST
22109  M00S17842.dsdi    +++|          SA6    A7
22110  M00S17843.dsdi    +++|          EQ     PDB2        CONTINUE FOR BUFFER DUMP
22111  M00S17844.dsdi    +++|
22112  M00S17845.dsdi    +++| PDB1     LX2    -12
22113  M00S17846.dsdi    +++|          BX6    X2*X5
22114  M00S17847.dsdi    +++|          LX2    -12
22115  M00S17848.dsdi    +++|          AX6    12
22116  M00S17849.dsdi    +++|          BX7    X2*X5
22117  M00S17850.dsdi    +++|          BX6    X6-X7
22118  M00S17851.dsdi    +++|          NZ     X6,PDB2     IF BUFFER HAS BEEN FLUSHED
22119  M00S17852.dsdi    +++|          LX2    -12
22120  M00S17853.dsdi    +++|          BX6    X2*X5
22121  M00S17854.dsdi    +++|          SX6    X6-10000B
22122  M00S17855.dsdi    +++|          NZ     X6,PDB2     IF BUFFER HAS BEEN FLUSHED
22123  M00S17856.dsdi    +++| PDB1.1   BX7    X4          SET CURRENT WORD POINTER AT BASE
22124  M00S17857.dsdi    +++|          MX2    -12
22125  M00S17858.dsdi    +++|          SA7    PDBB
22126  M00S17859.dsdi    +++|          BX6    -X2*X1      SET LWA+1 AS *IN*
22127  M00S17860.dsdi    +++|          IX7    X7+X6
22128  M00S17861.dsdi    +++|          SA7    A7+B1
22129  M00S17862.dsdi    +++|          SA6    A7+B1       SET WORDS REMAINING = *IN*
22130  M00S17863.dsdi    +++|
22131  M00S17864.dsdi    +++|*         SET BUFFER MANAGE TABLE, *PDBA*, FOR MEMORY DUMP.
22132  M00S17865.dsdi    +++|
Line S17866 Modification History
M01 (Removed by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
22133  M01S17866.dsdi70  ---| PDB2     MX2    -18         CALCULATE FWA OF DAYFILE BUFFER
Line S00010 Modification History
M01 (Added by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
22134  M01S00010.dsdi70  +++| PDB2     MX2    -24         CALCULATE FWA OF DAYFILE BUFFER
22135  M00S17867.dsdi    +++|          AX1    36
22136  M00S17868.dsdi    +++|          BX7    -X2*X1
22137  M00S17869.dsdi    +++|          IX6    X0+X7
22138  M00S17870.dsdi    +++|          SA7    PDBA        SET DAYFILE BUFFER FWA
22139  M00S17871.dsdi    +++|          SA6    A7+B1       SET DAYFILE BUFFER LWA+1
22140  M00S17872.dsdi    +++|          SB2    A7
22141  M00S17873.dsdi    +++|          BX6    X4
22142  M00S17874.dsdi    +++|          SA2    CN
22143  M00S17875.dsdi    +++|          SA6    A6+B1       SET FWA DAYFILE BUFFER IN MANAGED TABLE
22144  M00S17876.dsdi    +++| PDB3     RJ     PMD         PROCESS MEMORY DUMP
22145  M00S17877.dsdi    +++|          SA1    CN          CHECK FOR BINARY MAINTANENCE LOG (BML)
22146  M00S17878.dsdi    +++|          SX1    X1+3
22147  M00S17879.dsdi    +++|          ZR     X1,PDBX     IF BML DAYFILE
22148  M00S17880.dsdi    +++|          SA1    PDBB+2
22149  M00S17881.dsdi    +++|          ZR     X1,PDBX     IF NO LINES IN BUFFER
22150  M00S17882.dsdi    +++|          PRINT  (=2C  )
22151  M00S17883.dsdi    +++|          PRINT  (=C*          DAYFILE LINES IN BUFFER*)
22152  M00S17884.dsdi    +++|          PRINT  (=2C  )
22153  M00S17885.dsdi    +++| PDB4     SA4    PDBB        GET CURRENT WORD POINTER
22154  M00S17886.dsdi    +++|          SA3    A4+B1       GET LWA+1 DAYFILE BUFFER IN MANAGED TABLE
22155  M00S17887.dsdi    +++|          BX2    X2-X2
22156  M00S17888.dsdi    +++|          SA5    A3+B1       GET NUMBER OF WORDS REMAINING
22157  M00S17889.dsdi    +++|          MX0    -12
22158  M00S17890.dsdi    +++|          ZR     X5,PDBX     IF END OF WORDS IN BUFFER
22159  M00S17891.dsdi    +++| PDB5     IX6    X4-X3
22160  M00S17892.dsdi    +++|          NZ     X6,PDB6     IF NO WRAP REQUIRED
22161  M00S17893.dsdi    +++|          SA4    F.TSCR
22162  M00S17894.dsdi    +++| PDB6     SA1    X4          GET NEXT WORD IN DAYFILE BUFFER
22163  M00S17895.dsdi    +++|          LX7    X1
22164  M00S17896.dsdi    +++|          SX5    X5-1
22165  M00S17897.dsdi    +++|          BX6    -X0*X1
22166  M00S17898.dsdi    +++|          SA7    BUF+X2      BUILD LINE
22167  M00S17899.dsdi    +++|          SX2    X2+B1
22168  M00S17900.dsdi    +++|          ZR     X5,PDB7     IF LAST WORD PROCESSED
22169  M00S17901.dsdi    +++|          SX4    X4+B1
22170  M00S17902.dsdi    +++|          NZ     X6,PDB5     IF NOT END OF LINE
22171  M00S17903.dsdi    +++| PDB7     SX1    10          CALCULATE CHARACTERS IN LINE
22172  M00S17904.dsdi    +++|          BX6    X4
22173  M00S17905.dsdi    +++|          IX1    X2*X1
22174  M00S17906.dsdi    +++|          SA6    PDBB        SAVE CURRENT WORD POINTER
22175  M00S17907.dsdi    +++|          BX7    X5
22176  M00S17908.dsdi    +++|          SB6    X1
22177  M00S17909.dsdi    +++|          SA7    PDBB+2      SAVE WORDS REMAINING
22178  M00S17910.dsdi    +++|          SA2    BUF         SET LINE BUFFER ADDRESS
22179  M00S17911.dsdi    +++|          SB7    PRBF        SET STRING BUFFER ADDRESS
22180  M00S17912.dsdi    +++|          RJ     SDI         SET DISPLAY CODE INTERPRETATION
22181  M00S17913.dsdi    +++|          PRINT  CCCH,B7-CCCH
22182  M00S17914.dsdi    +++|          EQ     PDB4        CONTINUE PRINTING DAYFILE LINES
22183  M00S17915.dsdi    +++|
22184  M00S17916.dsdi    +++|
22185  M00S17917.dsdi    +++| PDBA     BSS    0           DUMP PARAMETERS
22186  M00S17918.dsdi    +++|
22187  M00S17919.dsdi    +++|          LOC    0
22188  M00S17920.dsdi    +++|          CON    0           FWA
22189  M00S17921.dsdi    +++|          CON    0           LWA+1
22190  M00S17922.dsdi    +++|          CON    0           CORE ADDRESS
22191  M00S17923.dsdi    +++|          CON    0           NO SUPPRESS FLAG
22192  M00S17924.dsdi    +++|          CON    2           *E* FORMAT CODE
22193  M00S17925.dsdi    +++|          CON    0           COLUMN LENGTH
22194  M00S17926.dsdi    +++|          CON    0           INVERTED ADDRESS
22195  M00S17927.dsdi    +++|
22196  M00S17928.dsdi    +++|          LOC    *O
22197  M00S17929.dsdi    +++|
22198  M00S17930.dsdi    +++| PDBB     BSS    0           MESSAGE PROCESSING PARAMETERS
22199  M00S17931.dsdi    +++|
22200  M00S17932.dsdi    +++|          LOC    0
22201  M00S17933.dsdi    +++|          CON    0           CURRENT WORD POINTER IN MANAGED TABLE
22202  M00S17934.dsdi    +++|          CON    0           LWA+1 DAYFILE BUFFER IN MANAGED TABLE
22203  M00S17935.dsdi    +++|          CON    0           WORDS REMAINING IN DAYFILE BUFFER
22204  M00S17936.dsdi    +++|
22205  M00S17937.dsdi    +++|          LOC    *O
22206  M00S17938.dsdi    +++| PDF      SPACE  4,12
22207  M00S17939.dsdi    +++|**        PDF - POSITION DUMP FILE.
22208  M00S17940.dsdi    +++|*
22209  M00S17941.dsdi    +++|*         ENTRY  RI = RANDOM ADDRESS OF CURRENT RECORD.
22210  M00S17942.dsdi    +++|*                X3 = DESIRED WORD ADDRESS.
22211  M00S17943.dsdi    +++|*
22212  M00S17944.dsdi    +++|*         EXIT   BINARY DUMP FILE IS POSITIONED AT DESIRED WORD.
22213  M00S17945.dsdi    +++|*
22214  M00S17946.dsdi    +++|*         SAVES  X - 0,5.
22215  M00S17947.dsdi    +++|*                B - 1.
22216  M00S17948.dsdi    +++|*                A - 0,5.
22217  M00S17949.dsdi    +++|*
22218  M00S17950.dsdi    +++|*         CALLS  CIO=,RDW=,WNB=.
22219  M00S17951.dsdi    +++|
22220  M00S17952.dsdi    +++|
22221  M00S17953.dsdi    +++| PDF      SUBR
22222  M00S17954.dsdi    +++|          NG     X3,ERR18    IF WORD ADDRESS INCORRECT
22223  M00S17955.dsdi    +++|          RECALL S
22224  M00S17956.dsdi    +++|          SA1    RI
22225  M00S17957.dsdi    +++|          BX6    X1
22226  M00S17958.dsdi    +++|          AX6    30          RECORD WORD COUNT
22227  M00S17959.dsdi    +++|          IX4    X3-X6
22228  M00S17960.dsdi    +++|          PL     X4,ERR18    IF WORD ADDRESS NOT IN RECORD
22229  M00S17961.dsdi    +++|          BX6    X3
22230  M00S17962.dsdi    +++|          MX3    -6
22231  M00S17963.dsdi    +++|          BX3    -X3*X6      WORD OFFSET
22232  M00S17964.dsdi    +++|          AX6    6           RELATIVE PRU NUMBER
22233  M00S17965.dsdi    +++|          MX4    -30
22234  M00S17966.dsdi    +++|          BX1    -X4*X1      RECORD RANDOM ADDRESS
22235  M00S17967.dsdi    +++|          IX6    X1+X6
22236  M00S17968.dsdi    +++|          SA6    S+6         SET RANDOM ADDRESS FOR READ
22237  M00S17969.dsdi    +++|          SA1    X2+B1       READ FIRST
22238  M00S17970.dsdi    +++|          SX6    X1
22239  M00S17971.dsdi    +++|          SA6    A1+B1       IN = FIRST
22240  M00S17972.dsdi    +++|          SA6    A6+B1       OUT = FIRST
22241  M00S17973.dsdi    +++|          READ   X2          BEGIN READ
22242  M00S17974.dsdi    +++|          ZR     X3,PDFX     IF READ BEGINS ON PRU BOUNDARY
22243  M00S17975.dsdi    +++|          READW  X2,PDFA,X3  READ TO DESIRED WORD
22244  M00S17976.dsdi    +++|          JP     PDFX        EXIT
22245  M00S17977.dsdi    +++|
22246  M00S17978.dsdi    +++| PDFA     BSS    64          GARBAGE BUFFER
22247  M00S17979.dsdi    +++| PDP      SPACE  4,9
22248  M00S17980.dsdi    +++|**        PDP - PRINT DAYFILE POINTERS.
22249  M00S17981.dsdi    +++|*
Line S17982 Modification History
M01 (Removed by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
22250  M01S17982.dsdi70  ---|*         ENTRY  GDBA = ADDRESS OF DAYFILE BUFFER POINTERS.
22251  M01S17983.dsdi70  ---|*                GDBC = MEMORY ADDRESS OF POINTERS.
Line S00011 Modification History
M01 (Added by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
22252  M01S00011.dsdi70  +++|*         ENTRY  (GDBC) = MEMORY ADDRESS OF POINTERS.
22253  M01S00012.dsdi70  +++|*                DAYFILE BUFFER POINTERS STORED IN TABLE *TSC1*.
22254  M00S17984.dsdi    +++|*
22255  M00S17985.dsdi    +++|*         SAVES  X - NONE.
22256  M00S17986.dsdi    +++|*                B - 1.
22257  M00S17987.dsdi    +++|*                A - 0.
22258  M00S17988.dsdi    +++|*
22259  M00S17989.dsdi    +++|*         CALLS  PMD.
22260  M00S17990.dsdi    +++|
22261  M00S17991.dsdi    +++|
22262  M00S17992.dsdi    +++| PDP      SUBR
Line S17993 Modification History
M01 (Removed by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
22263  M01S17993.dsdi70  ---|          SA1    GDBA
Line S00013 Modification History
M01 (Added by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
22264  M01S00013.dsdi70  +++|          SA1    F.TSC1
22265  M00S17994.dsdi    +++|          SA2    F.TCMT
22266  M00S17995.dsdi    +++|          BX6    X1
22267  M00S17996.dsdi    +++|          SA6    PDPA+2      SET CORE ADDRESS OF POINTERS
22268  M00S17997.dsdi    +++|          SA1    GDBC        GET ADDRESS OF POINTERS
22269  M00S17998.dsdi    +++|          BX6    X1
22270  M00S17999.dsdi    +++|          SX2    3
22271  M00S18000.dsdi    +++|          SA6    PDPA        SET FWA
22272  M00S18001.dsdi    +++|          IX6    X6+X2       FORM LWA+1
22273  M00S18002.dsdi    +++|          SA6    A6+B1
22274  M00S18003.dsdi    +++|          SB2    A6-B1
22275  M00S18004.dsdi    +++|          RJ     PMD         PROCESS MEMORY DUMP
22276  M00S18005.dsdi    +++|          JP     PDPX        EXIT
22277  M00S18006.dsdi    +++|
22278  M00S18007.dsdi    +++| PDPA     BSS    0           DUMP PARAMETERS
22279  M00S18008.dsdi    +++|
22280  M00S18009.dsdi    +++|          CON    0           FWA
22281  M00S18010.dsdi    +++|          CON    0           LWA+1
22282  M00S18011.dsdi    +++|          CON    0           CORE ADDRESS
22283  M00S18012.dsdi    +++|          CON    1           NO SUPPRESS FLAG
22284  M00S18013.dsdi    +++|          CON    1           *D* FORMAT CODE
22285  M00S18014.dsdi    +++|          CON    3           COLUMN LENGTH
22286  M00S18015.dsdi    +++|          CON    0           INVERTED ADDRESS
22287  M00S18016.dsdi    +++| PEC      SPACE  4,10
22288  M00S18017.dsdi    +++|**        PEC - PRINT EIGHT CONTROL POINTS.
22289  M00S18018.dsdi    +++|*
22290  M00S18019.dsdi    +++|*         ENTRY  (X5) = CONTROL POINT AREA POINTER.
Line S18020 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22291  M01S18020.271l716 ---|*                (NC) = NUMBER OF CONTROL POINTS - 1.
Line S00390 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22292  M01S00390.271l716 +++|*                (LW) = LWA+1 OF CPA/PCPA.
22293  M01S00391.271l716 +++|*                (OP) = PCPA FWA OFFSET (0 IF DUMPING CONTROL POINTS).
22294  M00S18021.dsdi    +++|*
22295  M00S18022.dsdi    +++|*         EXIT   (X5) = UPDATED CONTROL POINT AREA POINTER.
22296  M00S18023.dsdi    +++|*
22297  M00S18024.dsdi    +++|*         USES   X - ALL.
22298  M00S18025.dsdi    +++|*                A - 1, 2, 4, 6.
22299  M00S18026.dsdi    +++|*                B - 2, 3, 4, 5, 6, 7.
22300  M00S18027.dsdi    +++|*
22301  M00S18028.dsdi    +++|*         CALLS  CTS, POM, SBL, UPS.
22302  M00S18029.dsdi    +++|*
22303  M00S18030.dsdi    +++|*         MACROS GETCM, PRINT.
22304  M00S18031.dsdi    +++|
22305  M00S18032.dsdi    +++|
22306  M00S18033.dsdi    +++| PEC      SUBR
22307  M00S18034.dsdi    +++|          SB2    X5          CONTROL POINT AREA ADDRESS
22308  M00S18035.dsdi    +++|          SB7    PRBF        PRINT STRING ADDRESS
22309  M00S18036.dsdi    +++|          SB3    B2+8*CPLEN  LIMIT ADDRESS
Line S18037 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22310  M01S18037.271l716 ---|          SA1    NC
22311  M01S18038.271l716 ---|          SX1    X1+2        ALLOW FOR SYSTEM CONTROL POINT
22312  M01S18039.271l716 ---|          LX1    7
Line S00392 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22313  M01S00392.271l716 +++|          SA1    LW
22314  M00S18040.dsdi    +++|          SB4    X1          LWA+1 OF CONTROL POINT AREA
22315  M00S18041.dsdi    +++|
22316  M00S18042.dsdi    +++|*         PRINT CONTROL POINT NUMBERS.
22317  M00S18043.dsdi    +++|
22318  M00S18044.dsdi    +++| PEC1     SA2    =10HCP
22319  M00S18045.dsdi    +++|          SB6    3
Line S18046 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22320  M01S18046.271l716 ---|          RJ     UPS
Line S00393 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22321  M01S00393.271l716 +++|          SA1    OP
22322  M01S00394.271l716 +++|          ZR     X1,PEC1.1   IF NOT DUMPING PCPA-S
22323  M01S00395.271l716 +++|          SA2    =10HPCP
22324  M01S00396.271l716 +++| PEC1.1   RJ     UPS         UNPACK STRING
22325  M00S18047.dsdi    +++|          SX1    B2
Line S00397 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22326  M01S00397.271l716 +++|          SA2    OP
22327  M01S00398.271l716 +++|          IX1    X1-X2       SUBTRACT OFF PCPA OFFSET
22328  M00S18048.dsdi    +++|          LX1    -13
22329  M00S18049.dsdi    +++|          SB6    2
22330  M00S18050.dsdi    +++|          RJ     CTS         SET CONTROL POINT NUMBER
22331  M00S18051.dsdi    +++|          SB6    4
22332  M00S18052.dsdi    +++|          RJ     SBL         SPACE 4
22333  M00S18053.dsdi    +++|          SB2    B2+CPLEN    ADVANCE CONTROL POINT ADDRESS
22334  M00S18054.dsdi    +++|          GE,B2,B3,PEC2      IF END OF LINE
22335  M00S18055.dsdi    +++|          LT     B2,B4,PEC1  IF MORE CONTROL POINTS TO PROCESS
22336  M00S18056.dsdi    +++| PEC2     PRINT  PRBF,B7-PRBF
22337  M00S18057.dsdi    +++|
22338  M00S18058.dsdi    +++|*         PRINT JOB SEQUENCE NUMBERS.
22339  M00S18059.dsdi    +++|
22340  M00S18060.dsdi    +++|          SB7    PRBF        PRESET PRINT STRING ADDRESS
22341  M00S18061.dsdi    +++|          SB2    X5+         SET CONTROL POINT AREA ADDRESS
22342  M00S18062.dsdi    +++|          SX6    B2+8*CPLEN  SET CONTROL POINT AREA LIMIT ADDRESS
22343  M00S18063.dsdi    +++|          SA6    PECB
Line S18064 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22344  M01S18064.271l716 ---|          SA1    NC          SET CONTROL POINT AREA LWA+1
22345  M01S18065.271l716 ---|          SX6    X1+2
22346  M01S18066.271l716 ---|          LX6    7
Line S00399 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22347  M01S00399.271l716 +++|          SA1    LW          SET CONTROL POINT AREA LWA+1
22348  M01S00400.271l716 +++|          BX6    X1
22349  M00S18067.dsdi    +++|          SA6    PECA
22350  M00S18068.dsdi    +++|          SB4    X6
22351  M00S18069.dsdi    +++| PEC3     SA4    F.TCMT      READ EJT ORDINAL
22352  M00S18070.dsdi    +++|          SX2    X4+B2
22353  M00S18071.dsdi    +++|          SA2    X2+TFSW
22354  M00S18072.dsdi    +++|          MX3    12          SET EJT ORDINAL MASK
22355  M00S18073.dsdi    +++|          BX2    X3*X2
22356  M00S18074.dsdi    +++|          NZ     X2,PEC3.1   IF CONTROL POINT ACTIVE
22357  M00S18075.dsdi    +++|          SB6    9           SPACE 9 IF CONTROL POINT NOT ACTIVE
22358  M00S18076.dsdi    +++|          SB5    B2+CPLEN
22359  M00S18077.dsdi    +++|          LT     B5,B4,PEC4  IF NOT SYSTEM CONTROL POINT
22360  M00S18078.dsdi    +++| PEC3.1   SA1    X4+EJTP     GET FWA EJT
22361  M00S18079.dsdi    +++|          MX0    24
22362  M00S18080.dsdi    +++|          BX1    X0*X1
22363  M00S18081.dsdi    +++|          LX1    24
22364  M00S18082.dsdi    +++|          LX2    12          FIND EJT ENTRY ADDRESS
22365  M00S18083.dsdi    +++|          SX6    EJTE
22366  M00S18084.dsdi    +++|          IX2    X2*X6
22367  M00S18085.dsdi    +++|          IX6    X2+X1       SET ADDRESS INTO DUMP FILE
22368  M00S18086.dsdi    +++|          SA6    CPRA
22369  M00S18087.dsdi    +++|          SA0    B2+         SAVE CONTROL POINT AREA ADDRESS
22370  M00S18088.dsdi    +++|          SX0    B7          SAVE PRINT STRING ADDRESS
22371  M00S18089.dsdi    +++|          SB2    A6
22372  M00S18090.dsdi    +++|          RJ     POM
22373  M00S18091.dsdi    +++|          GETCM              READ FIRST WORD OF EJT ENTRY
22374  M00S18092.dsdi    +++|          SB7    X0+         RESTORE PRINT STRING ADDRESS
22375  M00S18093.dsdi    +++|          MX0    24
22376  M00S18094.dsdi    +++|          BX2    X0*X6       SET JOB SEQUENCE NUMBER
22377  M00S18095.dsdi    +++|          SB6    4
22378  M00S18096.dsdi    +++|          RJ     UPS
22379  M00S18097.dsdi    +++|          SB2    A0+         RESTORE CONTROL POINT AREA ADDRESS
22380  M00S18098.dsdi    +++|          SB6    5           SPACE 5
22381  M00S18099.dsdi    +++| PEC4     RJ     SBL
22382  M00S18100.dsdi    +++|          SB2    B2+CPLEN
22383  M00S18101.dsdi    +++|          SA4    PECB        GET CONTROL POINT AREA LIMIT ADDRESS
22384  M00S18102.dsdi    +++|          SA2    PECA        GET CONTROL POINT AREA LWA+1
22385  M00S18103.dsdi    +++|          SB4    X2
22386  M00S18104.dsdi    +++|          SB3    X4
22387  M00S18105.dsdi    +++|          GE     B2,B3,PEC5  IF END OF LINE
22388  M00S18106.dsdi    +++|          LT     B2,B4,PEC3  IF MORE CONTROL POINTS
22389  M00S18107.dsdi    +++| PEC5     PRINT  PRBF,B7-PRBF
22390  M00S18108.dsdi    +++|
22391  M00S18109.dsdi    +++|*         PRINT CONTROL POINT AREA ADDRESS.
22392  M00S18110.dsdi    +++|
22393  M00S18111.dsdi    +++|          SB7    PRBF        RESET PRINT STRING ADDRESS
Line S18112 Modification History
M01 (Removed by) dsdi82
Seq #  *Modification Id* Act 
----------------------------+
22394  M01S18112.dsdi82  ---|          SB2    X5+         CONTROL POINT AREA ADDRESS
Line S00001 Modification History
M01 (Added by) dsdi82
Seq #  *Modification Id* Act 
----------------------------+
22395  M01S00001.dsdi82  +++|          SA1    LW
22396  M01S00002.dsdi82  +++|          SB2    X5          CONTROL POINT AREA ADDRESS
22397  M00S18113.dsdi    +++|          SB3    B2+8*CPLEN  LIMIT ADDRESS FOR THIS LINE
Line S18114 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
22398  M01S18114.271l716 ---|          SA1    NC
22399  M01S18115.271l716 ---|          SX1    X1+2
22400  M01S18116.271l716 ---|          LX1    7
Line S00401 Modification History
M01 (Added by) 271l716
M02 (Removed by) dsdi82
Seq #  *Modification Id* Act 
----------------------------+
22401  M02S00401.dsdi82  ---|          SA1    LW
22402  M00S18117.dsdi    +++|          SB4    X1          CONTROL POINT AREA LWA+1
Line S00003 Modification History
M01 (Added by) dsdi82
Seq #  *Modification Id* Act 
----------------------------+
22403  M01S00003.dsdi82  +++|          SB5    -4          -(ADDRESS DIGIT COUNT)
22404  M01S00004.dsdi82  +++|          SA2    OP
22405  M01S00005.dsdi82  +++|          ZR     X2,PEC6     IF NOT DUMPING PCPA-S
22406  M01S00006.dsdi82  +++|          SB5    -5
22407  M00S18118.dsdi    +++| PEC6     SX1    B2
Line S18119 Modification History
M01 (Removed by) dsdi82
Seq #  *Modification Id* Act 
----------------------------+
22408  M01S18119.dsdi82  ---|          LX1    -12
22409  M01S18120.dsdi82  ---|          SB6    4
Line S00007 Modification History
M01 (Added by) dsdi82
Seq #  *Modification Id* Act 
----------------------------+
22410  M01S00007.dsdi82  +++|          SB6    B5+60
22411  M01S00008.dsdi82  +++|          LX1    B6          SHIFT ADDRESS
22412  M01S00009.dsdi82  +++|          SB2    B2+CPLEN    ADVANCE CPA/PCPA ADDRESS
22413  M01S00010.dsdi82  +++|          LX1    B6
22414  M01S00011.dsdi82  +++|          LX1    B6
22415  M01S00012.dsdi82  +++|          SB6    -B5
22416  M00S18121.dsdi    +++|          RJ     CTS         CONVERT ADDRESS
Line S18122 Modification History
M01 (Removed by) dsdi82
Seq #  *Modification Id* Act 
----------------------------+
22417  M01S18122.dsdi82  ---|          SB6    5
22418  M01S18123.dsdi82  ---|          RJ     SBL         SPACE 5
22419  M01S18124.dsdi82  ---|          SB2    B2+CPLEN    ADVANCE CONTROL POINT AREA ADDRESS
Line S00013 Modification History
M01 (Added by) dsdi82
Seq #  *Modification Id* Act 
----------------------------+
22420  M01S00013.dsdi82  +++|          SB6    B5+9
22421  M01S00014.dsdi82  +++|          RJ     SBL         SPACE TO NEXT CPA/PCPA
22422  M00S18125.dsdi    +++|          GE     B2,B3,PEC7  IF END OF LINE
22423  M00S18126.dsdi    +++|          LT     B2,B4,PEC6  IF MORE CONTROL POINTS
22424  M00S18127.dsdi    +++| PEC7     SX5    B2+         UPDATE CONTROL POINT AREA ADDRESS
22425  M00S18128.dsdi    +++|          PRINT  PRBF,B7-PRBF
22426  M00S18129.dsdi    +++|          JP     PECX        EXIT
22427  M00S18130.dsdi    +++|
22428  M00S18131.dsdi    +++| PECA     BSS    1           SAVED CONTROL POINT AREA ADDRESS
22429  M00S18132.dsdi    +++| PECB     BSS    1           SAVED CONTROL POINT AREA LIMIT ADDRESS
Line S18133 Modification History
M01 (Removed by) dsdi69
Seq #  *Modification Id* Act 
----------------------------+
22430  M01S18133.dsdi69  ---| PEN      SPACE  4,10
Line S00050 Modification History
M01 (Added by) dsdi69
Seq #  *Modification Id* Act 
----------------------------+
22431  M01S00050.dsdi69  +++| PEN      SPACE  4,12
22432  M00S18134.dsdi    +++|**        PEN - PRINT BUFFERED DEVICE TABLE ENTRY NUMBER.
22433  M00S18135.dsdi    +++|*
22434  M00S18136.dsdi    +++|*         ENTRY  (X1) = ENTRY NUMBER, LEFT-JUSTIFIED.
22435  M00S18137.dsdi    +++|*                (X2) = TABLE NAME IN DISPLAY CODE, LEFT-JUSTIFIED
22436  M00S18138.dsdi    +++|*                         AND SPACE-FILLED.
22437  M00S18139.dsdi    +++|*                (B6) = TABLE NAME CHARACTER COUNT.
22438  M00S18140.dsdi    +++|*
22439  M00S18141.dsdi    +++|*         USES   B - 6, 7.
22440  M00S18142.dsdi    +++|*
22441  M00S18143.dsdi    +++|*         CALLS  CTS, UPS.
22442  M00S18144.dsdi    +++|*
22443  M00S18145.dsdi    +++|*         MACROS PRINT.
22444  M00S18146.dsdi    +++|
22445  M00S18147.dsdi    +++|
22446  M00S18148.dsdi    +++| PEN      SUBR               ENTRY/EXIT
22447  M00S18149.dsdi    +++|          SB7    PRBF
22448  M00S18150.dsdi    +++|          RJ     UPS         STORE TABLE NAME IN STRING BUFFER
22449  M00S18151.dsdi    +++|          SB6    4
22450  M00S18152.dsdi    +++|          RJ     CTS         STORE ENTRY NUMBER IN STRING BUFFER
22451  M00S18153.dsdi    +++|          PRINT  CCCH,B7-CCCH
22452  M00S18154.dsdi    +++|          PRINT  (=2C  )
22453  M00S18155.dsdi    +++|          EQ     PENX        RETURN
22454  M00S18156.dsdi    +++| PER      SPACE  4,7
22455  M00S18157.dsdi    +++|**        PER - PROCESS ERROR EXIT.
22456  M00S18158.dsdi    +++|*
22457  M00S18159.dsdi    +++|*         ENTRY  (RPVB+7) = ERROR EXIT INFORMATION.
22458  M00S18160.dsdi    +++|*
22459  M00S18161.dsdi    +++|*         EXIT   IF AN ARITHMETIC ERROR IS ENCOUNTERED,
Line S18162 Modification History
M01 (Removed by) dsdi69
Seq #  *Modification Id* Act 
----------------------------+
22460  M01S18162.dsdi69  ---|*                PROCESSING IS RESUMED AT *ERR19*.  IF
Line S00051 Modification History
M01 (Added by) dsdi69
Seq #  *Modification Id* Act 
----------------------------+
22461  M01S00051.dsdi69  +++|*                PROCESSING IS RESUMED AT *ERR19.1*.  IF
22462  M00S18163.dsdi    +++|*                ANY OTHER ERROR IS ENCOUNTERED *DSDI*
22463  M00S18164.dsdi    +++|*                IS ABORTED AND THE ERROR IS REPORTED.
22464  M00S18165.dsdi    +++|*
22465  M00S18166.dsdi    +++|*         USES   X - 0, 1, 2, 3, 6, 7.
22466  M00S18167.dsdi    +++|*                A - 1, 2, 6, 7.
22467  M00S18168.dsdi    +++|*
22468  M00S18169.dsdi    +++|*         MACROS REPRIEVE.
22469  M00S18170.dsdi    +++|
22470  M00S18171.dsdi    +++|
22471  M00S18172.dsdi    +++| PER      SA2    RPVB+7      ERROR FLAG
22472  M00S18173.dsdi    +++|          MX0    -12
22473  M00S18174.dsdi    +++|          BX3    -X0*X2      EXTRACT ERROR FLAG
22474  M00S18175.dsdi    +++|          SX3    X3-ARET
22475  M00S18176.dsdi    +++|          ZR     X3,PER1     IF ARITHMETIC ERROR
22476  M00S18177.dsdi    +++|          REPRIEVE RPVB,RESET,001
22477  M00S18178.dsdi    +++|
22478  M00S18179.dsdi    +++| PER1     SA1    PERA        RESTORE REPRIEVE BLOCK
22479  M00S18180.dsdi    +++|          SA2    A1+B1
22480  M00S18181.dsdi    +++|          BX6    X1
22481  M00S18182.dsdi    +++|          BX7    X2
22482  M00S18183.dsdi    +++|          SA6    RPVB
22483  M00S18184.dsdi    +++|          SA7    A6+B1
22484  M00S18185.dsdi    +++|          REPRIEVE  RPVB,SET,001
Line S18186 Modification History
M01 (Removed by) dsdi69
Seq #  *Modification Id* Act 
----------------------------+
22485  M01S18186.dsdi69  ---|          EQ     ERR19       * BAD SYSTEM POINTER.*
Line S00052 Modification History
M01 (Added by) dsdi69
Seq #  *Modification Id* Act 
----------------------------+
22486  M01S00052.dsdi69  +++|          EQ     ERR19.1     * BAD SYSTEM POINTER.*
22487  M00S18187.dsdi    +++|
22488  M00S18188.dsdi    +++| PERA     VFD    36/0,12/31B,12/0
22489  M00S18189.dsdi    +++|          VFD    30/0,30/PER
22490  M00S18190.dsdi    +++| PFS      SPACE  4,9
22491  M00S18191.dsdi    +++|**        PFS - PRINT FILE SUMMARY.
22492  M00S18192.dsdi    +++|*
22493  M00S18193.dsdi    +++|*         ENTRY  FILE INFORMATION IS AT *GNFA*.
22494  M00S18194.dsdi    +++|*
22495  M00S18195.dsdi    +++|*         SAVES  X - NONE.
22496  M00S18196.dsdi    +++|*                B - 1.
22497  M00S18197.dsdi    +++|*                A - 0.
22498  M00S18198.dsdi    +++|*
22499  M00S18199.dsdi    +++|*         CALLS  ATC,CTS,FDW,PTC,SDI,SSB,UPS,WOF.
22500  M00S18200.dsdi    +++|
22501  M00S18201.dsdi    +++|
22502  M00S18202.dsdi    +++| PFS      SUBR
22503  M00S18203.dsdi    +++|          RJ     SSB         CLEAR PRINT STRING
22504  M00S18204.dsdi    +++|          SA2    =10HFNT -FUT -
22505  M00S18205.dsdi    +++|          SB6    5
22506  M00S18206.dsdi    +++|          SB7    PRBF+24
22507  M00S18207.dsdi    +++|          RJ     UPS         SET HEADER INFORMATION
22508  M00S18208.dsdi    +++|          SB6    5
22509  M00S18209.dsdi    +++|          SB7    PRBF+74
22510  M00S18210.dsdi    +++|          RJ     UPS
22511  M00S18211.dsdi    +++|
22512  M00S18212.dsdi    +++|*         SET FILE ORDINAL.
22513  M00S18213.dsdi    +++|
22514  M00S18214.dsdi    +++|          SA1    GNFA
22515  M00S18215.dsdi    +++|          SB6    4
22516  M00S18216.dsdi    +++|          SB7    PRBF+3
22517  M00S18217.dsdi    +++|          LX1    -12
22518  M00S18218.dsdi    +++|          RJ     CTS
22519  M00S18219.dsdi    +++|
22520  M00S18220.dsdi    +++|*         SET FILE NAME.
22521  M00S18221.dsdi    +++|
22522  M00S18222.dsdi    +++|          SA2    GNFA+1
22523  M00S18223.dsdi    +++|          SB6    7
22524  M00S18224.dsdi    +++|          SB7    PRBF+9
22525  M00S18225.dsdi    +++|          RJ     UPS
22526  M00S18226.dsdi    +++|
22527  M00S18227.dsdi    +++|*         SET FILE TYPE.
22528  M00S18228.dsdi    +++|
22529  M00S18229.dsdi    +++|          LX2    6
22530  M00S18230.dsdi    +++|          MX1    6
22531  M00S18231.dsdi    +++|          BX2    X1*X2
22532  M00S18232.dsdi    +++|          LX2    6           TYPE CODE
22533  M00S18233.dsdi    +++|          SX3    5           CALCULATE WORD ORDINAL
22534  M00S18234.dsdi    +++|          BX4    X2
22535  M00S18235.dsdi    +++|          SX7    X3
22536  M00S18236.dsdi    +++|          IX0    X2/X3
22537  M00S18237.dsdi    +++|          IX3    X0*X7
22538  M00S18238.dsdi    +++|          SA1    PFSA+X0     GET WORD IN FILE TYPE MICRO
22539  M00S18239.dsdi    +++|          IX4    X4-X3       CALCULATE SHIFT COUNT
22540  M00S18240.dsdi    +++|          SX3    12
22541  M00S18241.dsdi    +++|          MX0    12
22542  M00S18242.dsdi    +++|          IX4    X3*X4
22543  M00S18243.dsdi    +++|          SB2    X4+
22544  M00S18244.dsdi    +++|          LX1    X1,B2
22545  M00S18245.dsdi    +++|          BX2    X0*X1
22546  M00S18246.dsdi    +++|          SB6    2
22547  M00S18247.dsdi    +++|          SB7    PRBF+18
22548  M00S18248.dsdi    +++|          RJ     UPS
22549  M00S18249.dsdi    +++|
22550  M00S18250.dsdi    +++|*         SET FNT.
22551  M00S18251.dsdi    +++|
22552  M00S18252.dsdi    +++|          SA1    GNFA+1
22553  M00S18253.dsdi    +++|          SB7    PRBF+30
22554  M00S18254.dsdi    +++|          SA2    =4000005B   FORMAT CONTROL
22555  M00S18255.dsdi    +++|          RJ     FDW
22556  M00S18256.dsdi    +++|          BX2    X1
22557  M00S18257.dsdi    +++|          SB6    10
22558  M00S18258.dsdi    +++|          RJ     SDI
22559  M00S18259.dsdi    +++|
22560  M00S18260.dsdi    +++|*         SET FUT.
22561  M00S18261.dsdi    +++|
22562  M00S18262.dsdi    +++|          SA1    GNFA+3
22563  M00S18263.dsdi    +++|          SB7    PRBF+80
22564  M00S18264.dsdi    +++|          SA2    =4000005B   FORMAT CONTROL
22565  M00S18265.dsdi    +++|          RJ     FDW
22566  M00S18266.dsdi    +++|          BX2    X1
22567  M00S18267.dsdi    +++|          SB6    10
22568  M00S18268.dsdi    +++|          RJ     SDI
22569  M00S18269.dsdi    +++|          PRINT  CCCH,B7-CCCH
22570  M00S18270.dsdi    +++|
22571  M00S18271.dsdi    +++|*         LINE 2.
22572  M00S18272.dsdi    +++|
22573  M00S18273.dsdi    +++|          RJ     SSB         CLEAR PRINT STRING
22574  M00S18274.dsdi    +++|          SA2    =10HFST -EST -
22575  M00S18275.dsdi    +++|          SB6    5
22576  M00S18276.dsdi    +++|          SB7    PRBF+24
22577  M00S18277.dsdi    +++|          RJ     UPS
22578  M00S18278.dsdi    +++|          SB6    5
22579  M00S18279.dsdi    +++|          SB7    PRBF+74
22580  M00S18280.dsdi    +++|          RJ     UPS
22581  M00S18281.dsdi    +++|
22582  M00S18282.dsdi    +++|*         SET FST.
22583  M00S18283.dsdi    +++|
22584  M00S18284.dsdi    +++|          SA1    GNFA+2
22585  M00S18285.dsdi    +++|          SB7    PRBF+30
22586  M00S18286.dsdi    +++|          SA2    =4000005B   FORMAT CONTROL
22587  M00S18287.dsdi    +++|          RJ     FDW
22588  M00S18288.dsdi    +++|          BX2    X1
22589  M00S18289.dsdi    +++|          SB6    10
22590  M00S18290.dsdi    +++|          RJ     SDI
22591  M00S18291.dsdi    +++|
22592  M00S18292.dsdi    +++|*         SET EST ADDRESS.
22593  M00S18293.dsdi    +++|
22594  M00S18294.dsdi    +++|          SA1    GNFA+4
22595  M00S18295.dsdi    +++|          LX1    -18
22596  M00S18296.dsdi    +++|          SB6    6
22597  M00S18297.dsdi    +++|          SB7    PRBF+80
22598  M00S18298.dsdi    +++|          RJ     CTS
22599  M00S18299.dsdi    +++|
22600  M00S18300.dsdi    +++|*         SET EST.
22601  M00S18301.dsdi    +++|
22602  M00S18302.dsdi    +++|          SA1    GNFA+5
22603  M00S18303.dsdi    +++|          SB7    B7+2
22604  M00S18304.dsdi    +++|          SA2    =4000005B   FORMAT CONTROL
22605  M00S18305.dsdi    +++|          RJ     FDW
22606  M00S18306.dsdi    +++|          BX2    X1
22607  M00S18307.dsdi    +++|          SB6    10
22608  M00S18308.dsdi    +++|          RJ     SDI
22609  M00S18309.dsdi    +++|          PRINT  CCCH,B7-CCCH
22610  M00S18310.dsdi    +++|          SA1    GNFA+5
22611  M00S18311.dsdi    +++|          PL     X1,PFS1     IF NOT MASS STORAGE
22612  M00S18312.dsdi    +++|          PRINT  (=C*                         TRACK CHAIN -*)
22613  M00S18313.dsdi    +++|          RJ     ATC         ASSEMBLE TRACK CHAIN
22614  M00S18314.dsdi    +++|          RJ     PTC         PRINT TRACK CHAIN
22615  M00S18315.dsdi    +++| PFS1     PRINT  (=2C  )
22616  M00S18316.dsdi    +++|          JP     PFSX        EXIT
22617  M00S18317.dsdi    +++|
22618  M00S18318.dsdi    +++| PFSA     DATA   H*"NMFT"*   FILE TYPE NAMES
22619  M00S18319.dsdi    +++| PIO      SPACE  4,5
22620  M00S18320.dsdi    +++|**        PIO - PRESET INPUT AND OUTPUT FILES.
22621  M00S18321.dsdi    +++|*
22622  M00S18322.dsdi    +++|*         USES   ALL REGISTERS.
22623  M00S18323.dsdi    +++|*
22624  M00S18324.dsdi    +++|*         CALLS  CIO=,RSP,STF,WNB=.
22625  M00S18325.dsdi    +++|
22626  M00S18326.dsdi    +++|
22627  M00S18327.dsdi    +++| PIO      SUBR
22628  M00S18328.dsdi    +++|
22629  M00S18329.dsdi    +++|*         CHECK OUTPUT FILE.
22630  M00S18330.dsdi    +++|
22631  M00S18331.dsdi    +++|          SX2    L
22632  M00S18332.dsdi    +++|          RJ     STF         CHECK IF TERMINAL
22633  M00S18333.dsdi    +++|          NZ     X6,PIO1         IF NOT A TERMINAL
22634  M00S18334.dsdi    +++|          SA1    =0LOUTPUT
22635  M00S18335.dsdi    +++|          BX6    X1+X2
22636  M00S18336.dsdi    +++|          SA6    B1+B1       SET OUTPUT FILE FET POINTER
22637  M00S18337.dsdi    +++|          SX6    15B
22638  M00S18338.dsdi    +++|          BX6    X1+X6
22639  M00S18339.dsdi    +++|          SA6    X2          SET NON-BUSY WRITE CODE IN FET
22640  M00S18340.dsdi    +++|          SX6    1R
22641  M00S18341.dsdi    +++|          SA6    CCCH        SET CARRIAGE CONTROL CHARACTER
22642  M00S18342.dsdi    +++|          SX6    1
22643  M00S18343.dsdi    +++|          SA6    TF          SET TERMINAL OUTPUT FLAG
22644  M00S18344.dsdi    +++|          JP     PIO2        PROCESS INPUT FILE
22645  M00S18345.dsdi    +++| PIO1     SA1    PRSB
22646  M00S18346.dsdi    +++|          RJ     RSP         RESET PRINT DENSITY
22647  M00S18347.dsdi    +++|
22648  M00S18348.dsdi    +++|*         PRESET INPUT FILE.
22649  M00S18349.dsdi    +++|
22650  M00S18350.dsdi    +++| PIO2     SA1    ZF
22651  M00S18351.dsdi    +++|          NZ     X1,PIOX     IF DIRECTIVES ON COMMAND
22652  M00S18352.dsdi    +++|          SA4    I
22653  M00S18353.dsdi    +++|          ZR     X4,PIOX     IF ZERO FET
22654  M00S18354.dsdi    +++|          SX2    A4
22655  M00S18355.dsdi    +++|          RJ     STF         CHECK IF TERMINAL
22656  M00S18356.dsdi    +++|          NZ     X6,PIO3     IF NOT A TERMINAL
22657  M00S18357.dsdi    +++|          SA1    TF
22658  M00S18358.dsdi    +++|          ZR     X1,PIO3     IF OUTPUT NOT TO A TERMINAL
22659  M00S18359.dsdi    +++|          PRINT  (=C*ENTER DIRECTIVES--*)
22660  M00S18360.dsdi    +++| PIO3     RECALL I
22661  M00S18361.dsdi    +++|          READ   X2          BEGIN INPUT READ
22662  M00S18362.dsdi    +++|          JP     PIOX        EXIT
22663  M00S18363.dsdi    +++| PKS      SPACE  4,11
22664  M00S18364.dsdi    +++|**        PKS - PACK CHARACTERS FROM STRING BUFFER.
22665  M00S18365.dsdi    +++|*
22666  M00S18366.dsdi    +++|*         ENTRY  B2 = FWA OF STRING BUFFER.
22667  M00S18367.dsdi    +++|*                B6 = NUMBER OF CHARACTERS TO PACK.
22668  M00S18368.dsdi    +++|*                B7 = FWA OF PACKED BUFFER.
22669  M00S18369.dsdi    +++|*
22670  M00S18370.dsdi    +++|*         EXIT   B2 AND B7 ARE UPDATED.
22671  M00S18371.dsdi    +++|*
22672  M00S18372.dsdi    +++|*         USES   X - 1,6.
22673  M00S18373.dsdi    +++|*                B - 2,5,6,7.
22674  M00S18374.dsdi    +++|*                A - 1,6.
22675  M00S18375.dsdi    +++|
22676  M00S18376.dsdi    +++|
22677  M00S18377.dsdi    +++| PKS      SUBR
22678  M00S18378.dsdi    +++| PKS1     SX6    0           CLEAR ASSEMBLY
22679  M00S18379.dsdi    +++|          SB5    60          LEFT JUSTIFICATION SHIFT COUNT
22680  M00S18380.dsdi    +++| PKS2     SA1    B2          READ STRING
22681  M00S18381.dsdi    +++|          LX6    6
22682  M00S18382.dsdi    +++|          SB6    B6-1        COUNT CHARACTER
22683  M00S18383.dsdi    +++|          SB2    B2+B1       ADVANCE STRING POINTER
22684  M00S18384.dsdi    +++|          SB5    B5-6        DECREASE SHIFT COUNT
22685  M00S18385.dsdi    +++|          BX6    X6+X1       MERGE NEW CHARACTER
22686  M00S18386.dsdi    +++|          ZR     B5,PKS3     IF FULL WORD ASSEMBLED
22687  M00S18387.dsdi    +++|          NZ     B6,PKS2     IF MORE CHARACTERS TO PACK
22688  M00S18388.dsdi    +++| PKS3     LX6    X6,B5       LEFT JUSTIFY LAST WORD
22689  M00S18389.dsdi    +++|          SA6    B7          STORE PACKED DATA
22690  M00S18390.dsdi    +++|          SB7    B7+1        ADVANCE OUTPUT POINTER
22691  M00S18391.dsdi    +++|          NZ     B6,PKS1     IF MORE CHARACTERS TO PACK
22692  M00S18392.dsdi    +++|          JP     PKSX        EXIT
22693  M00S18393.dsdi    +++| PMD      SPACE  4,36
22694  M00S18394.dsdi    +++|**        PMD - PROCESS MEMORY DUMP.
22695  M00S18395.dsdi    +++|*
22696  M00S18396.dsdi    +++|*         ENTRY  B2 = DUMP PARAMETER BLOCK ADDRESS.
22697  M00S18397.dsdi    +++|*
22698  M00S18398.dsdi    +++|*         PARAMETER BLOCK FORMAT -
22699  M00S18399.dsdi    +++|*
22700  M00S18400.dsdi    +++|*T WORD0  60/FWA OF DUMP
Figure WORD0

029FWA OF DUMP3059FWA OF DUMP

22701  M00S18401.dsdi    +++|*T WORD1  60/LWA+1 OF DUMP
Figure WORD1

029LWA+1 OF DUMP3059LWA+1 OF DUMP

22702  M00S18402.dsdi    +++|*T WORD2  60/CORE ADDRESS
Figure WORD2

029CORE ADDRESS3059CORE ADDRESS

22703  M00S18403.dsdi    +++|*T WORD3  60/NO SUPPRESS FLAG
Figure WORD3

029NO SUPPRESS FLAG3059NO SUPPRESS FLAG

22704  M00S18404.dsdi    +++|*T WORD4  60/FORMAT CODE
Figure WORD4

029FORMAT CODE3059FORMAT CODE

22705  M00S18405.dsdi    +++|*T WORD5  60/COLUMN LENGTH
Figure WORD5

029COLUMN LENGTH3059COLUMN LENGTH

22706  M00S18406.dsdi    +++|*T WORD6  60/INVERTED ADDRESS
Figure WORD6

029INVERTED ADDRESS3059INVERTED ADDRESS

22707  M00S18407.dsdi    +++|*
22708  M00S18408.dsdi    +++|*         WHERE -
22709  M00S18409.dsdi    +++|*
22710  M00S18410.dsdi    +++|*         CORE ADDRESS     = ADDRESS OF DATA IF DUMPING FROM MEMORY.
22711  M00S18411.dsdi    +++|*                          = 0 IF DUMPING FROM DUMP FILE.
22712  M00S18412.dsdi    +++|*
22713  M00S18413.dsdi    +++|*         NO SUPPRESS FLAG = 0 TO SUPPRESS REPEAT DATA.
22714  M00S18414.dsdi    +++|*                        .NE.0 IF NO SUPPRESSION REQUESTED.
22715  M00S18415.dsdi    +++|*
22716  M00S18416.dsdi    +++|*         FORMAT CODE      = 0 FOR *C* FORMAT.
22717  M00S18417.dsdi    +++|*                          = 1 FOR *D* FORMAT.
22718  M00S18418.dsdi    +++|*                          = 2 FOR *E* FORMAT.
22719  M00S18419.dsdi    +++|*
22720  M00S18420.dsdi    +++|*         COLUMN LENGTH    = 0 - COMPUTE COLUMN LENGTH.
22721  M00S18421.dsdi    +++|*                          = L - FORCE COLUMNS TO BE L WORDS LONG.
22722  M00S18422.dsdi    +++|*         INVERTED ADDRESS   USED TO INDICATE ADDRESS ON
22723  M00S18423.dsdi    +++|*                            THE DUMP SHOULD DECREMENT.
22724  M00S18424.dsdi    +++|*
22725  M00S18425.dsdi    +++|*         EXIT   INPUT PARAMETER BLOCK NOT UPDATED.
22726  M00S18426.dsdi    +++|*                B2 = ADDRESS OF UPDATED PARAMETER BLOCK.
22727  M00S18427.dsdi    +++|*
22728  M00S18428.dsdi    +++|*         SAVES  X - NONE.
22729  M00S18429.dsdi    +++|*                B - 1.
22730  M00S18430.dsdi    +++|*                A - 0.
22731  M00S18431.dsdi    +++|*
22732  M00S18432.dsdi    +++|*         CALLS  CTS, FPB, PPB, SDI, SRD, SSB.
22733  M00S18433.dsdi    +++|*
22734  M00S18434.dsdi    +++|*         MACROS GETCM, MOVE, PRINT.
22735  M00S18435.dsdi    +++|
22736  M00S18436.dsdi    +++|
22737  M00S18437.dsdi    +++| PMD      SUBR
22738  M00S18438.dsdi    +++|          MOVE   7,B2,PMDB   MOVE PARAMETER BLOCK
22739  M00S18439.dsdi    +++|          RJ     SSB         SPACEFILL STRING BUFFER
22740  M00S18440.dsdi    +++|          MX6    1
22741  M00S18441.dsdi    +++|          SA6    SRDA        PRESET FIRST CALL TO *SRD*
22742  M00S18442.dsdi    +++|          SA1    PMDB+4      FORMAT CODE
22743  M00S18443.dsdi    +++|          SB2    X1+
22744  M00S18444.dsdi    +++|          JP     B2+PMDA     EXECUTE SELECTED PROCESSOR
22745  M00S18445.dsdi    +++|
22746  M00S18446.dsdi    +++| PMDA     BSS    0
22747  M00S18447.dsdi    +++|          LOC    0
22748  M00S18448.dsdi    +++|+         JP     PMD1        *C* FORMAT
22749  M00S18449.dsdi    +++|+         JP     PMD1        *D* FORMAT
22750  M00S18450.dsdi    +++|+         JP     PMD2        *E* FORMAT
22751  M00S18451.dsdi    +++|          LOC    *O
22752  M00S18452.dsdi    +++|
22753  M00S18453.dsdi    +++|*         PROCESS C AND D FORMAT.
22754  M00S18454.dsdi    +++|
22755  M00S18455.dsdi    +++| PMD1     SB2    PMDB
22756  M00S18456.dsdi    +++|          RJ     FPB         FILL PAGE BUFFER
22757  M00S18457.dsdi    +++|          SB2    PMDB
22758  M00S18458.dsdi    +++|          RJ     PPB         PRINT PAGE BUFFER
22759  M00S18459.dsdi    +++|          SA1    PMDB        FWA
22760  M00S18460.dsdi    +++|          SA2    A1+B1       LWA+1
22761  M00S18461.dsdi    +++|          IX2    X1-X2
22762  M00S18462.dsdi    +++|          NG     X2,PMD1     IF MORE TO DUMP
22763  M00S18463.dsdi    +++|          SB2    PMDB
22764  M00S18464.dsdi    +++|          JP     PMDX        EXIT
22765  M00S18465.dsdi    +++|
22766  M00S18466.dsdi    +++|*         PROCESS E FORMAT.
22767  M00S18467.dsdi    +++|
22768  M00S18468.dsdi    +++| PMD2     SA1    PMDB+2
22769  M00S18469.dsdi    +++|          NZ     X1,PMD3     IF DUMPING FROM CORE
22770  M00S18470.dsdi    +++|          GETCM  BUF,4
22771  M00S18471.dsdi    +++|          SX1    BUF         SET DATA ADDRESS
22772  M00S18472.dsdi    +++| PMD3     SA2    PMDB+3
22773  M00S18473.dsdi    +++|          NZ     X2,PMD4     IF NO SUPPRESS REQUESTED
22774  M00S18474.dsdi    +++|          SB5    4           WORD COUNT
22775  M00S18475.dsdi    +++|          RJ     SRD         SENSE REPEAT DATA
22776  M00S18476.dsdi    +++|          NZ     X1,PMD7     IF REPEAT SENSED
22777  M00S18477.dsdi    +++| PMD4     SA1    PMDB+6
22778  M00S18478.dsdi    +++|          NZ     X1,PMD4.1   IF INVERTED ADDRESS TO BE USED
22779  M00S18479.dsdi    +++|          SA1    PMDB        GET NORMAL ADDRESS
22780  M00S18480.dsdi    +++| PMD4.1   LX1    -24         LEFT JUSTIFY BINARY DIGITS
22781  M00S18481.dsdi    +++|          SB6    8           NUMBER OF DIGITS
22782  M00S18482.dsdi    +++|          SB7    PRBF
22783  M00S18483.dsdi    +++|          RJ     CTS         CONVERT ADDRESS
22784  M00S18484.dsdi    +++|          SA1    PMDB+2
22785  M00S18485.dsdi    +++|          SB7    B7+1
22786  M00S18486.dsdi    +++|          NZ     X1,PMD5     IF DUMPING FROM CORE
22787  M00S18487.dsdi    +++|          SX1    BUF
22788  M00S18488.dsdi    +++| PMD5     SA1    X1+         READ FIRST DATA WORD
22789  M00S18489.dsdi    +++|          SB2    4           WORD COUNT
22790  M00S18490.dsdi    +++| PMD6     SB6    20
22791  M00S18491.dsdi    +++|          RJ     CTS         CONVERT DATA WORD
22792  M00S18492.dsdi    +++|          SB7    B7+1
22793  M00S18493.dsdi    +++|          SA1    A1+B1
22794  M00S18494.dsdi    +++|          SB2    B2-B1
22795  M00S18495.dsdi    +++|          NZ     B2,PMD6     IF MORE TO DUMP
22796  M00S18496.dsdi    +++|          SA2    A1-4
22797  M00S18497.dsdi    +++|          SB6    40
22798  M00S18498.dsdi    +++|          RJ     SDI         SET DISPLAY CODE INTERPRETATION
22799  M00S18499.dsdi    +++|          PRINT  CCCH,B7-CCCH
22800  M00S18500.dsdi    +++| PMD7     SA1    PMDB+2
22801  M00S18501.dsdi    +++|          ZR     X1,PMD8     IF DUMPING FROM FILE
22802  M00S18502.dsdi    +++|          SX6    X1+4
22803  M00S18503.dsdi    +++|          SA6    A1+         UPDATE CORE ADDRESS
22804  M00S18504.dsdi    +++| PMD8     SA1    PMDB+6
22805  M00S18505.dsdi    +++|          SX6    4
22806  M00S18506.dsdi    +++|          ZR     X1,PMD9     IF NO INVERTED ADDRESS
22807  M00S18507.dsdi    +++|          IX7    X1-X6
22808  M00S18508.dsdi    +++|          SA7    A1
22809  M00S18509.dsdi    +++| PMD9     SA1    PMDB
22810  M00S18510.dsdi    +++|          IX6    X1+X6
22811  M00S18511.dsdi    +++|          SA6    A1          UPDATE ADDRESS
22812  M00S18512.dsdi    +++|          SA2    A1+B1       LWA+1
22813  M00S18513.dsdi    +++|          IX6    X6-X2
22814  M00S18514.dsdi    +++|          NG     X6,PMD2     IF MORE TO DUMP
22815  M00S18515.dsdi    +++|          SB2    PMDB        UPDATED PARAMETER BLOCK ADDRESS
22816  M00S18516.dsdi    +++|          JP     PMDX        EXIT
22817  M00S18517.dsdi    +++|
22818  M00S18518.dsdi    +++| PMDB     BSS    7           DUMP PARAMETER BLOCK
22819  M00S18519.dsdi    +++| PNF      SPACE  4,15
22820  M00S18520.dsdi    +++|**        PNF - PRINT NEGATIVE FL AREA.
22821  M00S18521.dsdi    +++|*
22822  M00S18522.dsdi    +++|*         ENTRY  (X3) = NEGATIVE FIELD LENGTH ORDINAL OF LWA+1.
22823  M00S18523.dsdi    +++|*                (X0) = NEGATIVE FIELD LENGTH ORDINAL OF FWA.
22824  M00S18524.dsdi    +++|*                (RC) = RA OF CONTROL POINT.
22825  M00S18525.dsdi    +++|*                (L.TNFL) = NFL OF CONTROL POINT.
22826  M00S18526.dsdi    +++|*                TABLE *TNFL* CONTAINS NFL MEMORY.
22827  M00S18527.dsdi    +++|*
22828  M00S18528.dsdi    +++|*         USES   DCGA - DCGA+6.
22829  M00S18529.dsdi    +++|*                X - 1, 2, 6, 7.
22830  M00S18530.dsdi    +++|*                A - 1, 2, 6, 7.
22831  M00S18531.dsdi    +++|*                B - 2.
22832  M00S18532.dsdi    +++|*
22833  M00S18533.dsdi    +++|*         CALLS  PMD.
22834  M00S18534.dsdi    +++|
22835  M00S18535.dsdi    +++|
22836  M00S18536.dsdi    +++| PNF      SUBR               ENTRY/EXIT
22837  M00S18537.dsdi    +++|          SA1    RC          GET RA
22838  M00S18538.dsdi    +++|          SA2    L.TNFL      GET NFL
22839  M00S18539.dsdi    +++|          IX7    X1-X0       FORM ABSOLUTE FWA
22840  M00S18540.dsdi    +++|          IX6    X1-X3       FORM ABSOLUTE LWA+1.
22841  M00S18541.dsdi    +++|          SA7    DCGA
22842  M00S18542.dsdi    +++|          SA6    A7+B1
22843  M00S18543.dsdi    +++|          SA1    F.TNFL      GET BASE ADDRESS OF DATA
22844  M00S18544.dsdi    +++|          IX7    X2-X0       FORM INDEX
22845  M00S18545.dsdi    +++|          IX7    X1+X7       FORM ADDRESS OF DATA IN CORE
22846  M00S18546.dsdi    +++|          SA7    A6+B1
22847  M00S18547.dsdi    +++|          SB2    A6-B1       SET BASE ADDRESS OF DUMP PARAMETERS
22848  M00S18548.dsdi    +++|          BX7    X0          SAVE INVERTED ADDRESS
22849  M00S18549.dsdi    +++|          SA7    DCGA+6
22850  M00S18550.dsdi    +++|          RJ     PMD         PROCESS DUMP
22851  M00S18551.dsdi    +++|          JP     PNFX        RETURN
22852  M00S18552.dsdi    +++| POM      SPACE  4,10
22853  M00S18553.dsdi    +++|**        POM - POSITION CM/EXTENDED MEMORY.
22854  M00S18554.dsdi    +++|*
22855  M00S18555.dsdi    +++|*         ENTRY  MI = MEMORY BLOCK RANDOM INDEX.
22856  M00S18556.dsdi    +++|*                B2 = ADDRESS OF DUMP PARAMETER BLOCK.
22857  M00S18557.dsdi    +++|*
22858  M00S18558.dsdi    +++|*         SAVES  X - 0,5.
22859  M00S18559.dsdi    +++|*                B - 1.
22860  M00S18560.dsdi    +++|*                A - 0,5.
22861  M00S18561.dsdi    +++|*
22862  M00S18562.dsdi    +++|*         CALLS  PCM.
22863  M00S18563.dsdi    +++|
22864  M00S18564.dsdi    +++|
22865  M00S18565.dsdi    +++| POM      SUBR
22866  M00S18566.dsdi    +++|          SA1    MI
22867  M00S18567.dsdi    +++|          BX6    X1
22868  M00S18568.dsdi    +++|          SA1    B2          FWA OF DUMP
22869  M00S18569.dsdi    +++|          SA6    RI          SET RANDOM INDEX FOR CURRENT MEMORY BLOCK
22870  M00S18570.dsdi    +++|          SA2    MB          MEMORY BASE ADDRESS
22871  M00S18571.dsdi    +++|          IX3    X1+X2
22872  M00S18572.dsdi    +++|          SA2    BA          RA OF DUMP
22873  M00S18573.dsdi    +++|          IX3    X3+X2
22874  M00S18574.dsdi    +++|          RJ     PCM         POSITION DUMP FILE
22875  M00S18575.dsdi    +++|          JP     POMX        EXIT
22876  M00S18576.dsdi    +++| PPB      SPACE  4,11
22877  M00S18577.dsdi    +++|**        PPB - PRINT PAGE BUFFER.
22878  M00S18578.dsdi    +++|*
22879  M00S18579.dsdi    +++|*         ENTRY  X1 = BUFFER LENGTH.
22880  M00S18580.dsdi    +++|*                B2 = DUMP PARAMETER BLOCK ADDRESS.
22881  M00S18581.dsdi    +++|*                PAGE BUFFER IS AT *BUF*.
22882  M00S18582.dsdi    +++|*
22883  M00S18583.dsdi    +++|*         SAVES  X - NONE.
22884  M00S18584.dsdi    +++|*                B - 1.
22885  M00S18585.dsdi    +++|*                A - 0.
22886  M00S18586.dsdi    +++|*
22887  M00S18587.dsdi    +++|*         CALLS  CTS,FDW,SDI,UPS,WOF.
22888  M00S18588.dsdi    +++|
22889  M00S18589.dsdi    +++| PPB      SUBR
22890  M00S18590.dsdi    +++|          SX6    BUF
22891  M00S18591.dsdi    +++|          IX7    X6+X1
22892  M00S18592.dsdi    +++|          SA6    PPBA        SAVE PAGE BUFFER FWA
22893  M00S18593.dsdi    +++|          SA4    B2+5        COLUMN LENGTH
22894  M00S18594.dsdi    +++|          ZR     X4,PPB1     IF COLUMN LENGTH NOT SPECIFIED
22895  M00S18595.dsdi    +++|          LX6    X4,B1
22896  M00S18596.dsdi    +++|          JP     PPB2        SET ROW INCREMENT
22897  M00S18597.dsdi    +++| PPB1     SX2    6           COMPUTE ROW INCREMENT = 2*(WORDS+2)/3
22898  M00S18598.dsdi    +++|          SX1    X1+4
22899  M00S18599.dsdi    +++|          IX6    X1/X2
22900  M00S18600.dsdi    +++|          LX6    1
22901  M00S18601.dsdi    +++| PPB2     SA6    A6+B1       SAVE PRINT ROW INCREMENT
22902  M00S18602.dsdi    +++|          SA7    A6+B1       SAVE PRINT BUFFER LWA+1
22903  M00S18603.dsdi    +++|          SA5    B2+4        FORMAT CODE
22904  M00S18604.dsdi    +++|          SA5    X5+PPBB     FORMAT CONTROL PARAMETERS
22905  M00S18605.dsdi    +++|
22906  M00S18606.dsdi    +++|*         FORMAT ONE ROW.
22907  M00S18607.dsdi    +++|
22908  M00S18608.dsdi    +++| PPB3     SA1    PPBA
22909  M00S18609.dsdi    +++|          SA3    A1+B1       ROW INCREMENT
22910  M00S18610.dsdi    +++|          SA2    A3+B1
22911  M00S18611.dsdi    +++|          SB3    X1          SET BUFFER POINTER
22912  M00S18612.dsdi    +++|          SB4    X2          BUFFER LWA+1
22913  M00S18613.dsdi    +++|          SX4    3           LOOP COUNT
22914  M00S18614.dsdi    +++|          SB7    PRBF        PRINT STRING ADDRESS
22915  M00S18615.dsdi    +++|
22916  M00S18616.dsdi    +++|*         PROCESS ONE WORD.
22917  M00S18617.dsdi    +++|
22918  M00S18618.dsdi    +++| PPB4     LT     B3,B4,PPB5  IF NOT BEYOND END OF BUFFER
22919  M00S18619.dsdi    +++|          SA2    =50H
22920  M00S18620.dsdi    +++|          JP     PPB6        BLANK THIS PORTION OF PRINT LINE
22921  M00S18621.dsdi    +++|
22922  M00S18622.dsdi    +++| PPB5     SA1    B3+         READ PAGE BUFFER ENTRY
22923  M00S18623.dsdi    +++|          PL     X1,PPB7     IF VALID DATA
22924  M00S18624.dsdi    +++|          SA2    =50H-------------------------------------------
22925  M00S18625.dsdi    +++| PPB6     SB6    X5+39       NUMBER OF CHARACTERS
22926  M00S18626.dsdi    +++|          RJ     UPS         STORE REPEAT DATA INDICATOR IN PRINT LINE
22927  M00S18627.dsdi    +++|          JP     PPB8        PROCESS NEXT WORD
22928  M00S18628.dsdi    +++|
22929  M00S18629.dsdi    +++|*         FORMAT DATA WORD.
22930  M00S18630.dsdi    +++|
22931  M00S18631.dsdi    +++| PPB7     SB6    8           NUMBER OF DIGITS
22932  M00S18632.dsdi    +++|          LX1    -24         LEFT JUSTIFY BINARY DIGITS
22933  M00S18633.dsdi    +++|          RJ     CTS         CONVERT ADDRESS TO PRINT STRING
22934  M00S18634.dsdi    +++|          SX6    1R
22935  M00S18635.dsdi    +++|          SA6    B7
22936  M00S18636.dsdi    +++|          SB7    B7+B1       SPACE ONE
22937  M00S18637.dsdi    +++|          SA1    A1+B1       READ DATA WORD
22938  M00S18638.dsdi    +++|          BX2    X5          SET FORMAT CONTROL
22939  M00S18639.dsdi    +++|          RJ     FDW         FORMAT DATA WORD
22940  M00S18640.dsdi    +++|          SB6    10
22941  M00S18641.dsdi    +++|          BX2    X1          SET DATA WORD FOR *SDI*
22942  M00S18642.dsdi    +++|          RJ     SDI         SET DISPLAY CODE INTERPRETATION
22943  M00S18643.dsdi    +++| PPB8     SB3    B3+X3       ADVANCE PAGE BUFFER ADDRESS
22944  M00S18644.dsdi    +++|          SB7    B7+2        SPACE 2
22945  M00S18645.dsdi    +++|          SX4    X4-1
22946  M00S18646.dsdi    +++|          NZ     X4,PPB4     IF MORE TO FORMAT IN THIS ROW
22947  M00S18647.dsdi    +++|          PRINT  CCCH,B7-CCCH-2
22948  M00S18648.dsdi    +++|          SA1    PPBA        ADVANCE PAGE BUFFER POINTER
22949  M00S18649.dsdi    +++|          SA2    A1+1
22950  M00S18650.dsdi    +++|          SX2    X2+BUF      LWA+1 OF END OF FIRST COLUMN
22951  M00S18651.dsdi    +++|          SX6    X1+2
22952  M00S18652.dsdi    +++|          SA6    A1          UPDATE POINTER
22953  M00S18653.dsdi    +++|          IX7    X6-X2
22954  M00S18654.dsdi    +++|          NG     X7,PPB3     IF MORE TO DUMP
22955  M00S18655.dsdi    +++|          JP     PPBX        EXIT
22956  M00S18656.dsdi    +++|
22957  M00S18657.dsdi    +++| PPBA     BSS    1           PAGE BUFFER POINTER
22958  M00S18658.dsdi    +++|          BSS    1           PAGE ROW INCREMENT
22959  M00S18659.dsdi    +++|          BSS    1           PAGE BUFFER LWA+1
22960  M00S18660.dsdi    +++|
22961  M00S18661.dsdi    +++| PPBB     BSS    0           FORMAT CONTROL PARAMETERS
22962  M00S18662.dsdi    +++|          VFD    24/0,18/5,18/4    *C* FORMAT
22963  M00S18663.dsdi    +++|          VFD    24/0,18/4,18/5    *D* FORMAT
Line S00021 Modification History
M01 (Added by) dsdi73
Seq #  *Modification Id* Act 
----------------------------+
22964  M01S00021.dsdi73  +++| PPE      SPACE  4,10
22965  M01S00022.dsdi73  +++|**        PPE - PROCESS PREMATURE EOF.
22966  M01S00023.dsdi73  +++|*
22967  M01S00024.dsdi73  +++|*         ENTRY  TO *PPE* TO END CURRENT RECORD AND ISSUE MESSAGE.
22968  M01S00025.dsdi73  +++|*                TO *PPE1* TO ISSUE MESSAGE ONLY.
22969  M01S00026.dsdi73  +++|*
22970  M01S00027.dsdi73  +++|*         EXIT   TO *RBI2*.
22971  M01S00028.dsdi73  +++|*
22972  M01S00029.dsdi73  +++|*         CALLS  ERS.
22973  M01S00030.dsdi73  +++|*
22974  M01S00031.dsdi73  +++|*         MACROS MESSAGE.
22975  M01S00032.dsdi73  +++|
22976  M01S00033.dsdi73  +++|
22977  M01S00034.dsdi73  +++| PPE      BSS    0           ENTRY
22978  M01S00035.dsdi73  +++|          RJ     ERS         END RECORD ON FILE *S*
22979  M01S00036.dsdi73  +++| PPE1     MESSAGE  MSG5,,R   * WARNING - INCOMPLETE DUMP FILE.*
22980  M01S00037.dsdi73  +++|          EQ     RBI2        READ NEXT RECORD
22981  M00S18664.dsdi    +++| PPO      SPACE  4,20
Line S18665 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
22982  M01S18665.ns2647  ---|**        PPO - PRINT PP OPERATING REGISTERS (I4 IOU ONLY)
Line S00234 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
22983  M01S00234.ns2647  +++|**        PPO - PACK PP OPERATING REGISTERS.
22984  M00S18666.dsdi    +++|*
22985  M00S18667.dsdi    +++|*         ENTRY  (PP) = PP NUMBER.
Line S18668 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
22986  M01S18668.ns2647  ---|*                (PPOC) = HEX/OCTAL PRINT FORMAT FLAG.
22987  M01S18669.ns2647  ---|*                (RI) = RANDOM ADDRESS OF PP BEING DUMPED.
22988  M01S18670.ns2647  ---|*                (IC) = PP/CPP FLAG.
22989  M01S18671.ns2647  ---|*
22990  M01S18672.ns2647  ---|*         EXIT   PP OPERATING REGISTERS PRINTED, WITH A MESSAGE
22991  M01S18673.ns2647  ---|*                INDICATING WHETHER THE PP WAS HUNG OR IDLED AT THE
22992  M01S18674.ns2647  ---|*                TIME THE DEADSTART BUTTON WAS PUSHED.
22993  M01S18675.ns2647  ---|*                (RI) = SAME AS ENTRY.
22994  M01S18676.ns2647  ---|*
22995  M01S18677.ns2647  ---|*         USES   X - 0, 1, 2, 3, 6, 7.
22996  M01S18678.ns2647  ---|*                A - 1, 2, 3, 6, 7.
22997  M01S18679.ns2647  ---|*                B - 2, 6, 7.
22998  M01S18680.ns2647  ---|*
22999  M01S18681.ns2647  ---|*         CALLS  CTS, GID, HTS, RDR, SSB, UPS.
23000  M01S18682.ns2647  ---|*
23001  M01S18683.ns2647  ---|*         MACROS PRINT.
Line S00235 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23002  M01S00235.ns2647  +++|*
23003  M01S00236.ns2647  +++|*         EXIT   (X6) = 0 IF NO REGISTERS FOUND.
23004  M01S00237.ns2647  +++|*                (PPOB - PPOB+7) = REGISTERS CAPTURED AT TIME OF DUMP,
23005  M01S00238.ns2647  +++|*                BEFORE AND AFTER AN *IDLE* WAS ISSUED TO THE PP/CPP
Line S00239 Modification History
M01 (Added by) ns2647
M02 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
23006  M02S00239.271l739 ---|*                (I4 IOU ONLY).
Line S00417 Modification History
M01 (Added by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
23007  M01S00417.271l739 +++|*                (I4A OR I4S IOU ONLY).
Line S00240 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23008  M01S00240.ns2647  +++|*                (PPOB+8 - PPOB+15) = REGISTERS CAPTURED BY *DFT*.
23009  M01S00241.ns2647  +++|*
23010  M01S00242.ns2647  +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
23011  M01S00243.ns2647  +++|*                A - 1, 2, 3, 6, 7.
23012  M01S00244.ns2647  +++|*                B - 6, 7.
23013  M01S00245.ns2647  +++|*
23014  M01S00246.ns2647  +++|*         CALLS  CPN, DRA, FBP, GDA, NXB, RDR, RPB.
23015  M01S00247.ns2647  +++|*
23016  M01S00248.ns2647  +++|*         MACROS MOVE.
23017  M00S18684.dsdi    +++|
23018  M00S18685.dsdi    +++|
Line S18686 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23019  M01S18686.ns2647  ---| PPO11    PRINT  (=2C )
23020  M01S18687.ns2647  ---|          PRINT  (=C*   PP OPERATING REGISTERS RECORD NOT FOUND*)
23021  M01S18688.ns2647  ---|          PRINT  (=2C )
23022  M01S18689.ns2647  ---| PPO12    SA1    PPOD        RESTORE RANDOM ADDRESS
23023  M01S18690.ns2647  ---|          BX6    X1
23024  M01S18691.ns2647  ---|          SA6    RI
Line S00249 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23025  M01S00249.ns2647  +++| PPO3     RJ     GDA         GET DFT/OS BUFFER FWA
23026  M01S00250.ns2647  +++|          BX6    X5
23027  M01S00251.ns2647  +++|          ZR     X3,PPOX     IF NO DFT/OS BUFFER
23028  M01S00252.ns2647  +++|          SA2    X3          GET DFT CONTROL WORD
23029  M01S00253.ns2647  +++|          MX0    4
23030  M01S00254.ns2647  +++|          BX2    X0*X2       GET NUMBER OF POINTER WORDS
23031  M01S00255.ns2647  +++|          SA1    CI          SET RANDOM INDEX OF CM RECORD
23032  M01S00256.ns2647  +++|          BX7    X1
23033  M01S00257.ns2647  +++|          LX2    4
23034  M01S00258.ns2647  +++|          SX2    X2-/DFT/DFPR-1
23035  M01S00259.ns2647  +++|          NG     X2,PPOX     IF NO PP REGISTERS POINTER WORD
23036  M01S00260.ns2647  +++|          SA7    RI
23037  M01S00261.ns2647  +++|          SA3    X3+/DFT/DFPR
23038  M01S00262.ns2647  +++|          RJ     DRA         GET PP REGISTER DATA POINTER
Line S00063 Modification History
M01 (Added by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
23039  M01S00063.ns2647a +++|          SX6    X6+B1       SKIP HEADER WORD
Line S00263 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23040  M01S00263.ns2647  +++|          SA2    PPOA        GET PP/CPP NUMBER
23041  M01S00264.ns2647  +++|          LX2    2
23042  M01S00265.ns2647  +++|          IX3    X6+X2       PP REGISTER DATA FWA
23043  M01S00266.ns2647  +++|          LX3    2           CONVERT TO BYTE NUMBER
23044  M01S00267.ns2647  +++|          RJ     FBP         FIND BYTE POSITION
23045  M01S00268.ns2647  +++|          SB6    PPOB+8-1
23046  M01S00269.ns2647  +++|          SB7    7
23047  M01S00270.ns2647  +++| PPO4     RJ     NXB         GET NEXT REGISTER
23048  M01S00271.ns2647  +++|          LX1    16
23049  M01S00272.ns2647  +++|          BX5    X1
23050  M01S00273.ns2647  +++|          RJ     NXB
23051  M01S00274.ns2647  +++|          BX7    X5+X1
23052  M01S00275.ns2647  +++|          SB6    B6+B1
23053  M01S00276.ns2647  +++|          SA7    B6
23054  M01S00277.ns2647  +++|          SB7    B7-B1
23055  M01S00278.ns2647  +++|          PL     B7,PPO4     IF NOT THROUGH GETTING REGISTERS
23056  M01S00279.ns2647  +++|          SX6    1           SET REGISTER DATA FOUND
23057  M00S18692.dsdi    +++|
23058  M00S18693.dsdi    +++| PPO      SUBR               ENTRY/EXIT
Line S18694 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23059  M01S18694.ns2647  ---|          SA1    AP
23060  M01S18695.ns2647  ---|          ZR     X1,PPOX     IF NON-C180 MACHINE
23061  M01S18696.ns2647  ---|          SA1    RI          PRESERVE RANDOM ADDRESS
23062  M01S18697.ns2647  ---|          BX6    X1
23063  M01S18698.ns2647  ---|          SA6    PPOD
23064  M01S18699.ns2647  ---|          SA1    =3LIMR
23065  M01S18700.ns2647  ---|          RJ     GID         GET ELEMENT ID
23066  M01S18701.ns2647  ---|          SX6    X6-4
23067  M01S18702.ns2647  ---|          NZ     X6,PPO12    IF NOT I4 IOU
23068  M01S18703.ns2647  ---|          SA1    PP
23069  M01S18704.ns2647  ---|          SA3    IC
23070  M01S18705.ns2647  ---|          BX7    X1
23071  M01S18706.ns2647  ---|          SX2    X7-12B
Line S00280 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23072  M01S00280.ns2647  +++|          SX5    0           SET NO REGISTER DATA FOUND
23073  M01S00281.ns2647  +++|          RJ     CPN         CONVERT PP/CPP NUMBER
Line S18707 Modification History
M01 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
23074  M01S18707.271l739 ---|          SA1    =3LPSR
Line S00418 Modification History
M01 (Added by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
23075  M01S00418.271l739 +++|          SA1    .PSR
Line S18708 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23076  M01S18708.ns2647  ---|          NG     X2,PPO1     IF LOWER BANK
23077  M01S18709.ns2647  ---|          SX7    X7-6
23078  M01S18710.ns2647  ---| PPO1     ZR     X3,PPO2     IF NIO PP
23079  M01S18711.ns2647  ---|          SX7    X7+20D
23080  M01S18712.ns2647  ---| PPO2     SA7    PPOA        SAVE LOGICAL PP NUMBER
Line S00282 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23081  M01S00282.ns2647  +++|          NZ     X3,PPO1     IF DUMPING A CPP
23082  M01S00283.ns2647  +++|          SA3    TLPP+X6     CHECK FOR PP SWITCH
23083  M01S00284.ns2647  +++|          SX7    X3-20B
23084  M01S00285.ns2647  +++|          BX2    X3-X2
23085  M01S00286.ns2647  +++|          ZR     X2,PPO1     IF NO SWITCH
23086  M01S00287.ns2647  +++|          BX6    X3
23087  M01S00288.ns2647  +++|          NG     X7,PPO1     IF NOT UPPER BANK
23088  M01S00289.ns2647  +++|          SX6    X3-20B+12B
23089  M01S00290.ns2647  +++| PPO1     SA6    PPOA        SAVE LOGICAL PP NUMBER
23090  M00S18713.dsdi    +++|          RJ     RDR         READ DUMP RECORD
Line S18714 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23091  M01S18714.ns2647  ---|          ZR     X2,PPO11    IF RECORD NOT FOUND
23092  M01S18715.ns2647  ---|          SA1    PPOA
Line S00291 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23093  M01S00291.ns2647  +++|          ZR     X2,PPO3     IF RECORD NOT FOUND
23094  M01S00292.ns2647  +++|          SA1    RI          MOVE DATA TO *PBUF*
23095  M01S00293.ns2647  +++|          AX1    30
23096  M01S00294.ns2647  +++|          MOVE   X1,BUF,PBUF
23097  M01S00295.ns2647  +++|          SA1    PPOA        CALCULATE STARTING BYTE IN RECORD
23098  M00S18716.dsdi    +++|          SX2    18D
Line S18717 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23099  M01S18717.ns2647  ---|          SX3    5
23100  M01S18718.ns2647  ---|          IX1    X1*X2
23101  M01S18719.ns2647  ---|          BX0    X1
23102  M01S18720.ns2647  ---|          IX2    X0/X3       STARTING WORD NUMBER
23103  M01S18721.ns2647  ---|          SX3    5           RESTORE DENOMINATOR
23104  M01S18722.ns2647  ---|          IX0    X2*X3
23105  M01S18723.ns2647  ---|          IX0    X1-X0       REMAINDER OF INTEGER DIVIDE
23106  M01S18724.ns2647  ---|          IX3    X3-X0       SET NUMBER OF BYTES TO SHIFT BYTE MASK
23107  M01S18725.ns2647  ---|          SX6    12D
23108  M01S18726.ns2647  ---|          IX6    X3*X6
23109  M01S18727.ns2647  ---|          SB7    X6+
23110  M01S18728.ns2647  ---|          MX0    12
23111  M01S18729.ns2647  ---|          LX0    B7          POSITION BYTE MASK
23112  M01S18730.ns2647  ---|          SA1    BUF+X2      GET STARTING WORD
23113  M01S18731.ns2647  ---|          SX2    -452452B    BIT MASK FOR NUMBER OF BYTES TO READ
23114  M01S18732.ns2647  ---|          SA7    PPOA
Line S00296 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23115  M01S00296.ns2647  +++|          IX5    X1*X2
23116  M01S00297.ns2647  +++|          SX0    -452452B    BIT MASK FOR NUMBER OF BYTES TO READ
23117  M01S00298.ns2647  +++|          SB6    A1
23118  M00S18733.dsdi    +++|          ERRNZ  PPOB-1-PPOA  *PPOA* AND *PPOB* MUST BE CONTIGUOUS
Line S18734 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23119  M01S18734.ns2647  ---| PPO3     BX7    X7-X7
23120  M01S18735.ns2647  ---| PPO4     BX6    X0*X1
23121  M01S18736.ns2647  ---|          LX0    -12
23122  M01S18737.ns2647  ---|          PX3    X0
23123  M01S18738.ns2647  ---|          NX3,B7 X3
23124  M01S18739.ns2647  ---|          PL     X0,PPO5     IF NOT END OF WORD
23125  M01S18740.ns2647  ---|          SA1    A1+1        GET NEXT WORD
23126  M01S18741.ns2647  ---|          SB7    48          RESET SHIFT COUNT
23127  M01S18742.ns2647  ---| PPO5     LX6    B7
Line S00299 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23128  M01S00299.ns2647  +++|          SX7    B0+         CLEAR ASSEMBLY REGISTER
23129  M01S00300.ns2647  +++| PPO2     BX1    X5
23130  M01S00301.ns2647  +++|          RJ     RPB         READ REGISTER BYTE
23131  M00S18743.dsdi    +++|          LX6    4
23132  M00S18744.dsdi    +++|          BX7    X7+X6
23133  M00S18745.dsdi    +++|          LX7    8
Line S18746 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
23134  M01S18746.ns2647  ---|          LX2    -1
23135  M01S18747.ns2647  ---|          NG     X2,PPO4     IF NOT THROUGH READING A REGISTER
23136  M01S18748.ns2647  ---|          SA7    A7+B1
23137  M01S18749.ns2647  ---|          SX2    X2+
23138  M01S18750.ns2647  ---|          NZ     X2,PPO3     IF NOT THROUGH READING ALL REGISTERS
23139  M01S18751.ns2647  ---|          RJ     SSB         SET STRING BUFFER
23140  M01S18752.ns2647  ---|          PRINT  (=2C )
23141  M01S18753.ns2647  ---|          SA2    =49H P =         Q =         K =          A =
23142  M01S18754.ns2647  ---|          SB6    48
23143  M01S18755.ns2647  ---|          SB7    PRBF
23144  M01S18756.ns2647  ---|          RJ     UPS
23145  M01S18757.ns2647  ---|          SA1    PPOB+4      GET P-REGISTER
23146  M01S18758.ns2647  ---|          LX1    59-14
23147  M01S18759.ns2647  ---|          SB6    5
23148  M01S18760.ns2647  ---|          SB7    PRBF+5
23149  M01S18761.ns2647  ---|          SA2    PPOC        HEX/OCTAL FLAG
23150  M01S18762.ns2647  ---|          ZR     X2,PPO6     IF OCTAL
23151  M01S18763.ns2647  ---|          LX2    -2
23152  M01S18764.ns2647  ---|          NG     X2,PPO6     IF OCTAL
23153  M01S18765.ns2647  ---|          LX1    59-15-59+14
23154  M01S18766.ns2647  ---|          SB6    4
23155  M01S18767.ns2647  ---|          RJ     HTS
23156  M01S18768.ns2647  ---|          SA1    A1+B1       GET Q-REGISTER
23157  M01S18769.ns2647  ---|          LX1    59-15
23158  M01S18770.ns2647  ---|          SB6    4
23159  M01S18771.ns2647  ---|          SB7    PRBF+17
23160  M01S18772.ns2647  ---|          RJ     HTS
23161  M01S18773.ns2647  ---|          SA1    A1+B1       GET K-REGISTER
23162  M01S18774.ns2647  ---|          LX1    59-15
23163  M01S18775.ns2647  ---|          SB6    4
23164  M01S18776.ns2647  ---|          SB7    PRBF+29
23165  M01S18777.ns2647  ---|          RJ     HTS
23166  M01S18778.ns2647  ---|          SA1    A1+B1       GET A-REGISTER
23167  M01S18779.ns2647  ---|          LX1    59-19
23168  M01S18780.ns2647  ---|          SB6    5
23169  M01S18781.ns2647  ---|          SB7    PRBF+42
23170  M01S18782.ns2647  ---|          RJ     HTS
23171  M01S18783.ns2647  ---|          EQ     PPO7        PRINT MESSAGE
23172  M01S18784.ns2647  ---|
23173  M01S18785.ns2647  ---| PPO6     RJ     CTS
23174  M01S18786.ns2647  ---|          SA1    A1+B1       GET Q-REGISTER
23175  M01S18787.ns2647  ---|          LX1    59-14
23176  M01S18788.ns2647  ---|          SB6    5
23177  M01S18789.ns2647  ---|          SB7    PRBF+17
23178  M01S18790.ns2647  ---|          RJ     CTS
23179  M01S18791.ns2647  ---|          SA1    A1+B1       GET K-REGISTER
23180  M01S18792.ns2647  ---|          LX1    59-17
23181  M01S18793.ns2647  ---|          SB6    6
23182  M01S18794.ns2647  ---|          SB7    PRBF+29
23183  M01S18795.ns2647  ---|          RJ     CTS
23184  M01S18796.ns2647  ---|          SA1    A1+B1       GET A-REGISTER
23185  M01S18797.ns2647  ---|          LX1    59-17
23186  M01S18798.ns2647  ---|          SB6    6
23187  M01S18799.ns2647  ---|          SB7    PRBF+42
23188  M01S18800.ns2647  ---|          RJ     CTS
23189  M01S18801.ns2647  ---| PPO7     SB6    4
23190  M01S18802.ns2647  ---|          SB2    0
23191  M01S18803.ns2647  ---| PPO8     SA1    PPOB+B2
23192  M01S18804.ns2647  ---|          SA2    PPOB+B2+4
23193  M01S18805.ns2647  ---|          IX1    X1-X2
Proceed to Part 15
cdc/nos2.source/opl.opl871/deck/dsdi.014.txt ยท Last modified: by 127.0.0.1