Deck DSDI Part 017

70 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S21611 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26610  M01S21611.dsdi67  ---|          SA1    =3LPRF
26611  M01S21612.dsdi67  ---|          SA3    TPFA        NEXT DIRECTIVE TABLE ENTRY
Line S00318 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26612  M01S00318.dsdi67  +++|          SA5    TPFA        INITIALIZE RECORD TABLE POINTER
26613  M01S00319.dsdi67  +++|          SX6    1           DISPLAY RADIAL MCI
26614  M01S00320.dsdi67  +++|
26615  M01S00321.dsdi67  +++|*         GET NEXT RECORD.
26616  M01S00322.dsdi67  +++|
26617  M01S00323.dsdi67  +++| TPF2     SA1    A5          SET/CLEAR RECORD POINTER
26618  M00S21613.dsdi    +++|          MX0    18
Line S21614 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26619  M01S21614.dsdi67  ---|          SA2    X3
26620  M01S21615.dsdi67  ---|          NZ     X3,TPF2     IF NOT FIRST RECORD
26621  M01S21616.dsdi67  ---|          SEARCH TDIR,X1,X0
Line S00324 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26622  M01S00324.dsdi67  +++|          BX7    X1
26623  M01S00325.dsdi67  +++|          SA7    NR
26624  M01S00326.dsdi67  +++|          SA1    A5+TPFE-TPFA  GET RECORD ID
26625  M01S00327.dsdi67  +++|          BX1    X0*X1
26626  M01S00328.dsdi67  +++|          RJ     FPR         FIND PROCESSOR RECORD
26627  M00S21617.dsdi    +++|          ZR     X2,ERR14    IF RECORD ID NOT IN DIRECTORY
Line S21618 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26628  M01S21618.dsdi67  ---| TPF2     SA3    =3LPRF      RECORD ID
26629  M01S21619.dsdi67  ---|          SB7    C.TDIR      TABLE ENTRY LENGTH
26630  M01S21620.dsdi67  ---|          SB3    TPFA        NEXT TABLE ENTRY
26631  M01S21621.dsdi67  ---|          RJ     CNR         CHECK NEXT RECORD
26632  M01S21622.dsdi67  ---|          MX0    -6          SAVE RADIAL MCI
26633  M01S21623.dsdi67  ---|          AX2    36
26634  M01S21624.dsdi67  ---|          BX6    -X0*X2
26635  M01S21625.dsdi67  ---|          SA6    PRBF+13
26636  M01S21626.dsdi67  ---|          SA2    A2+B1       SET RANDOM INDEX
26637  M01S21627.dsdi67  ---|          BX6    X2
26638  M01S21628.dsdi67  ---|          SA6    RI
26639  M01S21629.dsdi67  ---|
26640  M01S21630.dsdi67  ---|*         POSITION DUMP FILE.
26641  M01S21631.dsdi67  ---|
Line S00329 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26642  M01S00329.dsdi67  +++|          SA1    NR          SAVE POINTER TO SECOND RECORD
26643  M01S00330.dsdi67  +++|          BX6    X1
26644  M01S00331.dsdi67  +++|          SA6    A5
26645  M01S00332.dsdi67  +++|          SA5    A5+B1       ADVANCE RECORD POINTER
26646  M00S21632.dsdi    +++|          SX3    B0
Line S21633 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26647  M01S21633.dsdi67  ---|          RJ     PDF
26648  M01S21634.dsdi67  ---|          MX6    0           INITIALIZE WORD COUNT FOR NXB
26649  M01S21635.dsdi67  ---|          SA6    NXBA
26650  M01S21636.dsdi67  ---|          SA6    A6+B1
26651  M01S21637.dsdi67  ---|
26652  M01S21638.dsdi67  ---|*         PRINT  *RADIAL MCI = N*.
26653  M01S21639.dsdi67  ---|
26654  M01S21640.dsdi67  ---|          PRINT  (=2C  )
26655  M01S21641.dsdi67  ---|          SB7    PRBF
26656  M01S21642.dsdi67  ---|          SA2    =13HRADIAL MCI =
26657  M01S21643.dsdi67  ---|          SB6    13
26658  M01S21644.dsdi67  ---|          RJ     UPS         UNPACK REGISTER
26659  M01S21645.dsdi67  ---|          PRINT  CCCH,15
Line S00333 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26660  M01S00333.dsdi67  +++|          RJ     FBP         POSITION DUMP FILE
26661  M00S21646.dsdi    +++|          PRINT  (=2C  )
Line S21647 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26662  M01S21647.dsdi67  ---|
26663  M01S21648.dsdi67  ---|*         PRINT FIRST HEADER.
26664  M01S21649.dsdi67  ---|
Line S00334 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26665  M01S00334.dsdi67  +++|          SA1    A5+TPFE-1-TPFA
26666  M00S21650.dsdi    +++|          RJ     SSB         SPACE FILL STRING BUFFER
Line S21651 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26667  M01S21651.dsdi67  ---|          PRINT  (=C* IDU CURRENT INSTRUCTION REGISTER*)
Line S00335 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26668  M01S00335.dsdi67  +++|          SB3    X1
26669  M01S00336.dsdi67  +++|          JP     B3          PROCESS RECORD
26670  M00S21652.dsdi    +++|
Line S21653 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26671  M01S21653.dsdi67  ---|*         DISPLAY FIRST 8 WORDS OF PRF RECORD.
Line S00337 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26672  M01S00337.dsdi67  +++|*         PROCESS *PRF* RECORD.
26673  M00S21654.dsdi    +++|
26674  M01S00338.dsdi67  +++| TPF3     PRINT  (=C* IDU CURRENT INSTRUCTION REGISTER*)
26675  M00S21655.dsdi    +++|          SX6    -8
Line S21656 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26676  M01S21656.dsdi67  ---|          SA6    TPFA+1
26677  M01S21657.dsdi67  ---| TPF3     SB7    PRBF+5
26678  M01S21658.dsdi67  ---|          SB6    B1
26679  M01S21659.dsdi67  ---|          SA1    TPFA+1
26680  M01S21660.dsdi67  ---|          SX1    X1+8
26681  M01S21661.dsdi67  ---|          LX1    59-3
26682  M01S21662.dsdi67  ---|          RJ     HTS         DISPLAY REGISTER NUMBER
Line S21663 Modification History
M01 (Removed by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26683  M02S21663.dsdi67  ---|          SX5    4
Line S21664 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26684  M01S21664.dsdi67  ---|          SB7    B7+3
Line S00339 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26685  M01S00339.dsdi67  +++|          SA6    FW
26686  M01S00340.dsdi67  +++| TPF4     SX6    X6+8+1R0    DISPLAY REGISTER NUMBER
26687  M01S00341.dsdi67  +++|          SA6    PRBF+5
26688  M01S00342.dsdi67  +++|          SB7    PRBF+9
Line S21665 Modification History
M01 (Removed by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26689  M01S21665.dsdi62  ---| TPF4     SA0    B7+2
26690  M01S21666.dsdi62  ---|          RJ     NXB         GET NEXT 16 BITS OF REGISTER FILE
26691  M01S21667.dsdi62  ---|          SB7    A0
26692  M01S21668.dsdi62  ---|          SB6    4
26693  M01S21669.dsdi62  ---|          LX1    59-15
26694  M01S21670.dsdi62  ---|          RJ     HTS         DISPLAY FOUR HEX DIGITS
26695  M01S21671.dsdi62  ---|          SX5    X5-1
26696  M01S21672.dsdi62  ---|          NZ     X5,TPF4     IF NOT THROUGH READING WORD
26697  M01S21673.dsdi62  ---|          PRINT  CCCH,B7-CCCH+1
Line S00045 Modification History
M01 (Added by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26698  M01S00045.dsdi62  +++|          RJ     DHR         DISPLAY REGISTER
Line S21674 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26699  M01S21674.dsdi67  ---|          SA1    TPFA+1
26700  M01S21675.dsdi67  ---|          SX6    X1+1
Line S00343 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26701  M01S00343.dsdi67  +++|          SA1    FW          INCREMENT REGISTER NUMBER
26702  M01S00344.dsdi67  +++|          SX6    X1+B1
26703  M00S21676.dsdi    +++|          SA6    A1
Line S21677 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26704  M01S21677.dsdi67  ---|          NG     X6,TPF3     IF NOT THROUGH WITH FIRST SEVEN WORDS
Line S00345 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26705  M01S00345.dsdi67  +++|          NZ     X6,TPF4     IF NOT THROUGH WITH FIRST SEVEN WORDS
26706  M00S21678.dsdi    +++|
26707  M00S21679.dsdi    +++|*         PRINT NEXT HEADER.
26708  M00S21680.dsdi    +++|
26709  M00S21681.dsdi    +++|          RJ     SSB
26710  M00S21682.dsdi    +++|          PRINT  (=2C  )
26711  M00S21683.dsdi    +++|          PRINT  (=C* EXECUTING WORDS OF SOFT CONTROL MEMORIES*)
26712  M00S21684.dsdi    +++|
26713  M00S21685.dsdi    +++|*         PRINT NEXT 13 WORDS FROM PRF FILE.
26714  M00S21686.dsdi    +++|
Line S21687 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26715  M01S21687.dsdi67  ---|          SX6    -13
26716  M01S21688.dsdi67  ---|          SA6    TPFA+1
26717  M01S21689.dsdi67  ---| TPF5     SA1    TPFA+1
26718  M01S21690.dsdi67  ---|          SA2    TPFB+X1+13  GET DESCRIPTOR
26719  M01S21691.dsdi67  ---|          ZR     X2,TPF7     IF AT END OF TABLE
26720  M01S21692.dsdi67  ---|          MX0    -17
26721  M01S21693.dsdi67  ---|          BX2    -X0*X2
26722  M01S21694.dsdi67  ---|          SA2    X2
Line S00346 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26723  M01S00346.dsdi67  +++| TPF5     SA1    FW
26724  M01S00347.dsdi67  +++|          SX6    X1+B1
26725  M01S00348.dsdi67  +++|          SA6    A1
26726  M01S00349.dsdi67  +++|          SA2    TPFB+X1     GET DESCRIPTOR
26727  M01S00350.dsdi67  +++|          ZR     X2,TPF6     IF AT END OF TABLE
26728  M00S21695.dsdi    +++|          SB7    PRBF
Line S21696 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26729  M01S21696.dsdi67  ---|          SB6    7
Line S00351 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26730  M01S00351.dsdi67  +++|          SB6    7+2
26731  M00S21697.dsdi    +++|          RJ     UPS
Line S21698 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26732  M01S21698.dsdi67  ---|          SA1    TPFA+1
26733  M01S21699.dsdi67  ---|          SX6    X1+1
26734  M01S21700.dsdi67  ---|          SA6    A1
Line S21701 Modification History
M01 (Removed by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26735  M02S21701.dsdi67  ---|          SX5    4
Line S21702 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26736  M01S21702.dsdi67  ---|          SB7    B7+2
Line S21703 Modification History
M01 (Removed by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26737  M01S21703.dsdi62  ---| TPF6     SA0    B7+2
26738  M01S21704.dsdi62  ---|          RJ     NXB
26739  M01S21705.dsdi62  ---|          SB7    A0
26740  M01S21706.dsdi62  ---|          SB6    4
26741  M01S21707.dsdi62  ---|          LX1    59-15
26742  M01S21708.dsdi62  ---|          RJ     HTS
26743  M01S21709.dsdi62  ---|          SX5    X5-1
26744  M01S21710.dsdi62  ---|          NZ     X5,TPF6     IF MORE REGISTER DATA TO DISPLAY
26745  M01S21711.dsdi62  ---|          PRINT  CCCH,B7-CCCH+1
Line S00046 Modification History
M01 (Added by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26746  M01S00046.dsdi62  +++|          RJ     DHR         DISPLAY REGISTER
26747  M00S21712.dsdi    +++|          JP     TPF5        CHECK NEXT WORD
26748  M00S21713.dsdi    +++|
26749  M00S21714.dsdi    +++|*         PRINT NEXT HEADER.
26750  M00S21715.dsdi    +++|
Line S21716 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26751  M01S21716.dsdi67  ---| TPF7     RJ     SSB
Line S00352 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26752  M01S00352.dsdi67  +++| TPF6     RJ     SSB
26753  M00S21717.dsdi    +++|          PRINT  (=2C  )
26754  M00S21718.dsdi    +++|          PRINT  (=C* ERROR INFORMATION TABLE *)
26755  M00S21719.dsdi    +++|
26756  M00S21720.dsdi    +++|*         PRINT NEXT 16 WORDS FROM PRF FILE.
26757  M00S21721.dsdi    +++|
Line S21722 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26758  M01S21722.dsdi67  ---|          SX6    -16
26759  M01S21723.dsdi67  ---|          SA6    TPFA+1
Line S00353 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26760  M01S00353.dsdi67  +++|          SA0    16
26761  M01S00354.dsdi67  +++| TPF7     SX6    A0
26762  M01S00355.dsdi67  +++|          BX6    -X6
26763  M01S00356.dsdi67  +++|          SA6    FW
26764  M00S21724.dsdi    +++| TPF8     SB7    PRBF+4
26765  M00S21725.dsdi    +++|          SB6    2
Line S21726 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26766  M01S21726.dsdi67  ---|          SA1    TPFA+1
26767  M01S21727.dsdi67  ---|          SX1    X1+16
Line S00357 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26768  M01S00357.dsdi67  +++|          SX1    A0
26769  M01S00358.dsdi67  +++|          IX1    X1+X6
26770  M00S21728.dsdi    +++|          RJ     CDD
26771  M00S21729.dsdi    +++|          BX2    X6
26772  M00S21730.dsdi    +++|          LX2    59-11
26773  M00S21731.dsdi    +++|          RJ     UPS
Line S21732 Modification History
M01 (Removed by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26774  M01S21732.dsdi62  ---|          SX5    4
26775  M00S21733.dsdi    ---|          SB7    B7+3
26776  M01S21734.dsdi62  ---| TPF9     SA0    B7+2
26777  M01S21735.dsdi62  ---|          RJ     NXB
26778  M01S21736.dsdi62  ---|          SB7    A0
26779  M01S21737.dsdi62  ---|          SB6    4
26780  M01S21738.dsdi62  ---|          LX1    59-15
26781  M01S21739.dsdi62  ---|          RJ     HTS
26782  M01S21740.dsdi62  ---|          SX5    X5-1
26783  M01S21741.dsdi62  ---|          NZ     X5,TPF9     IF MORE REGISTER DATA TO DISPLAY
26784  M01S21742.dsdi62  ---|          PRINT  CCCH,B7-CCCH+1
Line S00047 Modification History
M01 (Added by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26785  M01S00047.dsdi62  +++|          RJ     DHR         DISPLAY REGISTER
Line S21743 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26786  M01S21743.dsdi67  ---|          SA1    TPFA+1
26787  M01S21744.dsdi67  ---|          SX6    X1+1
Line S00359 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26788  M01S00359.dsdi67  +++|          SA1    FW
26789  M01S00360.dsdi67  +++|          SX6    X1+B1
26790  M00S21745.dsdi    +++|          SA6    A1
26791  M00S21746.dsdi    +++|          NG     X6,TPF8     IF MORE WORDS TO DISPLAY
Line S21747 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26792  M01S21747.dsdi67  ---|          SA1    TPFA        NEXT TABLE ENTRY
26793  M01S21748.dsdi67  ---|          NZ     X1,TPF1     IF MORE RECORDS
Line S00361 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26794  M01S00361.dsdi67  +++|          EQ     TPF2        GET NEXT RECORD
26795  M00S21749.dsdi    +++|
Line S21750 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26796  M01S21750.dsdi67  ---|*         LOCATE PROCESSOR INSTRUCTION BUFFER STACK (*PIS*) RECORD.
Line S00362 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26797  M01S00362.dsdi67  +++|*         PROCESS INSTRUCTION BUFFER STACK (*PIS*) RECORD.
26798  M00S21751.dsdi    +++|
Line S21752 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26799  M01S21752.dsdi67  ---| TPF10    SA1    =3LPIS
26800  M01S21753.dsdi67  ---|          SA3    TPFA        NEXT DIRECTORY TABLE ENTRY POINTER
26801  M01S21754.dsdi67  ---|          MX0    18
26802  M01S21755.dsdi67  ---|          SA2    X3
26803  M01S21756.dsdi67  ---|          NZ     X3,TPF11    IF FIRST RECORD
26804  M01S21757.dsdi67  ---|          SEARCH TDIR,X1,X0
26805  M01S21758.dsdi67  ---|          ZR     X2,ERR14    IF RECORD ID NOT IN DIRECTORY
26806  M01S21759.dsdi67  ---| TPF11    SA3    =3LPIS
26807  M01S21760.dsdi67  ---|          SB7    C.TDIR
26808  M01S21761.dsdi67  ---|          SB3    TPFA
26809  M01S21762.dsdi67  ---|          RJ     CNR         CHECK NEXT RECORD
26810  M01S21763.dsdi67  ---|          SA2    A2+B1       SET RANDOM INDEX
26811  M01S21764.dsdi67  ---|          BX6    X2
26812  M01S21765.dsdi67  ---|          SA6    RI
26813  M01S21766.dsdi67  ---|
26814  M01S21767.dsdi67  ---|*         POSITION DUMP FILE AND PRINT HEADER.
26815  M01S21768.dsdi67  ---|
26816  M01S21769.dsdi67  ---|          SX3    B0
26817  M01S21770.dsdi67  ---|          RJ     PDF
26818  M01S21771.dsdi67  ---|          MX6    0
26819  M01S21772.dsdi67  ---|          SA6    NXBA
26820  M01S21773.dsdi67  ---|          SA6    A6+B1
26821  M01S21774.dsdi67  ---|          RJ     SSB
26822  M01S21775.dsdi67  ---|          PRINT  (=2C  )
26823  M01S21776.dsdi67  ---|          PRINT  (=C* INSTRUCTION BUFFER STACK*)
26824  M01S21777.dsdi67  ---|
26825  M01S21778.dsdi67  ---|*         PRINT INSTRUCTION BUFFER STACK
26826  M01S21779.dsdi67  ---|
26827  M01S21780.dsdi67  ---|          SX6    -64
26828  M01S21781.dsdi67  ---|          SA6    TPFA+1
26829  M01S21782.dsdi67  ---| TPF12    SB7    PRBF+4
26830  M01S21783.dsdi67  ---|          SB6    2
26831  M01S21784.dsdi67  ---|          SA1    TPFA+1
26832  M01S21785.dsdi67  ---|          SX1    X1+64
26833  M01S21786.dsdi67  ---|          RJ     CDD
26834  M01S21787.dsdi67  ---|          BX2    X6
26835  M01S21788.dsdi67  ---|          LX2    59-11
26836  M01S21789.dsdi67  ---|          RJ     UPS
Line S21790 Modification History
M01 (Removed by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26837  M02S21790.dsdi67  ---|          SX5    4
Line S21791 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26838  M01S21791.dsdi67  ---|          SB7    B7+3
Line S21792 Modification History
M01 (Removed by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26839  M02S21792.dsdi67  ---| TPF13    SA0    B7+2
26840  M02S21793.dsdi67  ---|          RJ     NXB
26841  M02S21794.dsdi67  ---|          SB7    A0
26842  M02S21795.dsdi67  ---|          SB6    4
26843  M02S21796.dsdi67  ---|          LX1    59-15
26844  M02S21797.dsdi67  ---|          RJ     HTS
26845  M02S21798.dsdi67  ---|          SX5    X5-1
26846  M02S21799.dsdi67  ---|          NZ     X5,TPF13    IF MORE REGISTER DATA TO DISPLAY
26847  M02S21800.dsdi67  ---|          PRINT  CCCH,B7-CCCH+1
Line S00048 Modification History
M01 (Added by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26848  M02S00048.dsdi67  ---|          RJ     DHR         DISPLAY REGISTER
Line S21801 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26849  M01S21801.dsdi67  ---|          SA1    TPFA+1
26850  M01S21802.dsdi67  ---|          SX6    X1+1
26851  M01S21803.dsdi67  ---|          SA6    A1
26852  M01S21804.dsdi67  ---|          NG     X6,TPF12    IF MORE DATA IN INSTRUCTION BUFFER STACK
26853  M01S21805.dsdi67  ---|          SA1    TPFA        NEXT TABLE ENTRY
26854  M01S21806.dsdi67  ---|          NZ     X1,TPF10    IF MORE RECORDS
Line S00363 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26855  M01S00363.dsdi67  +++| TPF9     PRINT  (=C* INSTRUCTION BUFFER STACK*)
26856  M01S00364.dsdi67  +++|          SA0    64
26857  M01S00365.dsdi67  +++|          EQ     TPF7        DISPLAY RECORD
26858  M00S21807.dsdi    +++|
Line S21808 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26859  M01S21808.dsdi67  ---|*         LOCATE PROCESSOR REGISTER UNIT (*PRG*) RECORD.
Line S00366 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26860  M01S00366.dsdi67  +++|*         PROCESS PROCESSOR REGISTER UNIT (*PRG*) RECORD.
26861  M00S21809.dsdi    +++|
Line S21810 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26862  M01S21810.dsdi67  ---| TPF14    SA1    =3LPRG
26863  M01S21811.dsdi67  ---|          SA3    TPFA        NEXT DIRECTORY TABLE ENTRY POINTER
26864  M01S21812.dsdi67  ---|          MX0    18
26865  M01S21813.dsdi67  ---|          SA2    X3
26866  M01S21814.dsdi67  ---|          NZ     X3,TPF15    IF FIRST RECORD
26867  M01S21815.dsdi67  ---|          SEARCH TDIR,X1,X0
26868  M01S21816.dsdi67  ---|          ZR     X2,ERR14    IF RECORD ID NOT IN DIRECTORY
26869  M01S21817.dsdi67  ---| TPF15    SA3    =3LPRG      RECORD ID
26870  M01S21818.dsdi67  ---|          SB7    C.TDIR
26871  M01S21819.dsdi67  ---|          SB3    TPFA        NEXT TABLE ENTRY
26872  M01S21820.dsdi67  ---|          RJ     CNR         CHECK NEXT RECORD
26873  M01S21821.dsdi67  ---|          SA2    A2+B1       SET RANDOM INDEX
26874  M01S21822.dsdi67  ---|          BX6    X2
26875  M01S21823.dsdi67  ---|          SA6    RI
26876  M01S21824.dsdi67  ---|
26877  M01S21825.dsdi67  ---|*         POSITION DUMP FILE AND PRINT HEADER.
26878  M01S21826.dsdi67  ---|
26879  M01S21827.dsdi67  ---|          SX3    B0
26880  M01S21828.dsdi67  ---|          RJ     PDF
26881  M01S21829.dsdi67  ---|          MX6    0           INITIALIZE WORD COUNT FOR BUFFER
26882  M01S21830.dsdi67  ---|          SA6    NXBA
26883  M01S21831.dsdi67  ---|          SA6    A6+B1
26884  M01S21832.dsdi67  ---|          RJ     SSB         SPACE FILL STRING BUFFER
26885  M01S21833.dsdi67  ---|          PRINT  (=2C  )
26886  M01S21834.dsdi67  ---|          PRINT  (=C* REGISTER UNIT*)
26887  M01S21835.dsdi67  ---|
26888  M01S21836.dsdi67  ---|*         PRINT PROCESSOR REGISTER UNIT.
26889  M01S21837.dsdi67  ---|
Line S00367 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26890  M01S00367.dsdi67  +++| TPF10    PRINT  (=C* REGISTER UNIT*)
26891  M00S21838.dsdi    +++|          SX6    B0
Line S21839 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26892  M01S21839.dsdi67  ---|          SA6    TPFA+1      TPFC TABLE POINTER
26893  M01S21840.dsdi67  ---|          SA0    A6+B1       LAST DIGIT OF REGISTER NUMBER (HEX)
26894  M01S21841.dsdi67  ---| TPF16    SA1    TPFA+2      GET LAST DIGIT
26895  M01S21842.dsdi67  ---|          SX1    X1-16
26896  M01S21843.dsdi67  ---|          NZ     X1,TPF17    IF LAST DIGIT .LE. F (HEX)
26897  M01S21844.dsdi67  ---|          SA2    TPFA+1
26898  M01S21845.dsdi67  ---|          SA1    TPFC+X2+1   GET NEXT TABLE ENTRY
26899  M01S21846.dsdi67  ---|          ZR     X1,TPF19    IF END OF TABLE
26900  M01S21847.dsdi67  ---|          SX6    X2+1        INCREMENT TABLE POINTER
26901  M01S21848.dsdi67  ---|          SA6    A2
26902  M01S21849.dsdi67  ---|          SB3    X6
26903  M01S21850.dsdi67  ---|          SX6    8           RESET LAST DIGIT
26904  M01S21851.dsdi67  ---|          SA6    A2+1
26905  M01S21852.dsdi67  ---|          SB6    2
26906  M01S21853.dsdi67  ---|          NE     B3,B6,TPF17  IF TABLE POINTER=2 RESET DIGIT TO 0
26907  M01S21854.dsdi67  ---|          SX6    0
26908  M01S21855.dsdi67  ---|          SA6    TPFA+2
26909  M01S21856.dsdi67  ---| TPF17    SA3    TPFA+1
26910  M01S21857.dsdi67  ---|          SA2    TPFC+X3     GET DESCRIPTOR
26911  M01S21858.dsdi67  ---|          MX0    -17
26912  M01S21859.dsdi67  ---|          BX2    -X0*X2
26913  M01S21860.dsdi67  ---|          SA2    X2
Line S00368 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26914  M01S00368.dsdi67  +++|          SA6    FW          INITIALIZE DIGIT
26915  M01S00369.dsdi67  +++|          SA6    A6+B1       INITIALIZE DESCRIPTOR SHIFT COUNT
Line S00010 Modification History
M01 (Added by) dsdi74a
Seq #  *Modification Id* Act 
----------------------------+
26916  M01S00010.dsdi74a +++|          ERRNZ  LW-FW-1     CODE REQUIRES CONTIGUOUS WORDS
Line S00370 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26917  M01S00370.dsdi67  +++| TPF11    SA1    LW          GET SHIFT COUNT
26918  M01S00371.dsdi67  +++|          SA2    TPFC        GET DESCRIPTOR
26919  M01S00372.dsdi67  +++|          SB3    X1
26920  M01S00373.dsdi67  +++|          LX2    B3          POSITION DESCRIPTOR
26921  M01S00374.dsdi67  +++|          SB6    B1+B1
26922  M01S00375.dsdi67  +++|          SA1    A1-B1       GET DIGIT
26923  M00S21861.dsdi    +++|          SB7    PRBF+3
Line S21862 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26924  M01S21862.dsdi67  ---|          SB6    2
26925  M00S21863.dsdi    ---|          RJ     UPS
26926  M01S21864.dsdi67  ---|          SA1    TPFA+2      LAST DIGIT OF REGISTER NUMBER
26927  M00S21865.dsdi    ---|          LX1    59-3
26928  M00S21866.dsdi    ---|          SB6    B1
26929  M01S21867.dsdi67  ---|          SB7    PRBF+5
26930  M00S21868.dsdi    ---|          RJ     HTS
Line S21869 Modification History
M01 (Removed by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26931  M01S21869.dsdi62  ---|          SX5    4
26932  M00S21870.dsdi    ---|          SB7    B7+3
26933  M01S21871.dsdi62  ---| TPF18    SA0    B7+2
26934  M01S21872.dsdi62  ---|          RJ     NXB
26935  M01S21873.dsdi62  ---|          SB7    A0
26936  M01S21874.dsdi62  ---|          SB6    4
26937  M01S21875.dsdi62  ---|          LX1    59-15
26938  M01S21876.dsdi62  ---|          RJ     HTS
26939  M01S21877.dsdi62  ---|          SX5    X5-1
26940  M01S21878.dsdi62  ---|          NZ     X5,TPF18    IF MORE REGISTER DATA TO DISPLAY
26941  M01S21879.dsdi62  ---|          PRINT  CCCH,B7-CCCH+1
Line S00049 Modification History
M01 (Added by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26942  M01S00049.dsdi62  +++|          RJ     DHR         DISPLAY REGISTER
Line S21880 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26943  M01S21880.dsdi67  ---|          SA1    TPFA+2      INCREMENT LAST DIGIT
26944  M01S21881.dsdi67  ---|          SX6    X1+1
Line S00376 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26945  M01S00376.dsdi67  +++|          SA1    FW          INCREMENT DIGIT
26946  M01S00377.dsdi67  +++|          SX6    X1+B1
26947  M00S21882.dsdi    +++|          SA6    A1
Line S21883 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26948  M01S21883.dsdi67  ---|          JP     TPF16       CHECK NEXT WORD
26949  M01S21884.dsdi67  ---|
26950  M01S21885.dsdi67  ---| TPF19    SA1    TPFA        NEXT DIRECTORY TABLE ENTRY POINTER
26951  M01S21886.dsdi67  ---|          NZ     X1,TPF14    IF MORE RECORDS TO PROCESS
Line S00378 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26952  M01S00378.dsdi67  +++|          SX7    X6-16
26953  M01S00379.dsdi67  +++|          NZ     X7,TPF11    IF LAST DIGIT .LE. F (HEX)
26954  M01S00380.dsdi67  +++|          SA1    A1+B1       INCREMENT SHIFT COUNT
Line S00011 Modification History
M01 (Added by) dsdi74a
Seq #  *Modification Id* Act 
----------------------------+
26955  M01S00011.dsdi74a +++|          ERRNZ  LW-FW-1     CODE REQUIRES CONTIGUOUS WORDS
Line S00381 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26956  M01S00381.dsdi67  +++|          SX6    X1+12
26957  M01S00382.dsdi67  +++|          SA6    A1
26958  M01S00383.dsdi67  +++|          SX6    X6-48
26959  M01S00384.dsdi67  +++|          ZR     X6,TPF2     IF END OF REGISTERS
26960  M01S00385.dsdi67  +++|          SX2    X6+24
26961  M01S00386.dsdi67  +++|          SX6    8           SET FIRST DIGIT FOR *SA* OR *SX* REGISTERS
26962  M01S00387.dsdi67  +++|          SA6    FW
26963  M01S00388.dsdi67  +++|          NZ     X2,TPF11    IF NOT *X* REGISTERS NEXT
26964  M01S00389.dsdi67  +++|          SA7    A6
26965  M01S00390.dsdi67  +++|          JP     TPF11       CHECK NEXT WORD
26966  M00S21887.dsdi    +++|
Line S21888 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26967  M01S21888.dsdi67  ---|*         LOCATE PROCESSOR HISTORY FILE (*PRH*) RECORD.
Line S00391 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26968  M01S00391.dsdi67  +++|*         PROCESS PROCESSOR HISTORY FILE (*PRH*) RECORD.
26969  M00S21889.dsdi    +++|
Line S21890 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26970  M01S21890.dsdi67  ---| TPF20    SA1    =3LPRH
26971  M01S21891.dsdi67  ---|          SA3    TPFA        NEXT DIRECTORY TABLE ENTRY POINTER (PRH)
26972  M01S21892.dsdi67  ---|          MX0    18
26973  M01S21893.dsdi67  ---|          SA2    X3
26974  M01S21894.dsdi67  ---|          NZ     X3,TPF21    IF FIRST RECORD
26975  M01S21895.dsdi67  ---|          SEARCH TDIR,X1,X0
26976  M01S21896.dsdi67  ---|          ZR     X2,ERR14    IF RECORD ID NOT IN DIRECTORY
26977  M01S21897.dsdi67  ---| TPF21    SA3    =3LPRH
26978  M01S21898.dsdi67  ---|          SB7    C.TDIR
26979  M01S21899.dsdi67  ---|          SB3    TPFA
26980  M01S21900.dsdi67  ---|          RJ     CNR         CHECK NEXT RECORD
26981  M01S21901.dsdi67  ---|          SA2    A2+B1       SET RANDOM INDEX
26982  M01S21902.dsdi67  ---|          BX6    X2
26983  M01S21903.dsdi67  ---|          SA6    RI
26984  M01S21904.dsdi67  ---|
26985  M01S21905.dsdi67  ---|*         POSITION DUMP FILE AND PRINT HEADER.
26986  M01S21906.dsdi67  ---|
26987  M01S21907.dsdi67  ---|          SX3    0
26988  M01S21908.dsdi67  ---|          RJ     PDF
26989  M01S21909.dsdi67  ---|          MX6    0           INITIALIZE WORD COUNT FOR BUFFER
26990  M01S21910.dsdi67  ---|          SA6    NXBA
26991  M01S21911.dsdi67  ---|          SA6    A6+B1
26992  M01S21912.dsdi67  ---|          RJ     SSB
26993  M01S21913.dsdi67  ---|          PRINT  (=2C  )
26994  M01S21914.dsdi67  ---|          PRINT  (=C* HISTORY FILE*)
26995  M01S21915.dsdi67  ---|
26996  M01S21916.dsdi67  ---|*         PRINT PROCESSOR HISTORY FILE.
26997  M01S21917.dsdi67  ---|
Line S00392 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26998  M01S00392.dsdi67  +++| TPF12    PRINT  (=C* HISTORY FILE*)
26999  M00S21918.dsdi    +++|          SX6    B0
Line S21919 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27000  M01S21919.dsdi67  ---|          SA6    TPFA+2      REGISTER NUMBER
Line S00393 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27001  M01S00393.dsdi67  +++|          SA6    LW          REGISTER NUMBER
27002  M00S21920.dsdi    +++|          SA6    A6-B1       TABLE POINTER
Line S21921 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27003  M01S21921.dsdi67  ---| TPF22    SA2    A6
27004  M01S21922.dsdi67  ---|          SX3    2
27005  M01S21923.dsdi67  ---|          IX3    X3-X2
27006  M01S21924.dsdi67  ---|          PL     X3,TPF23    IF TABLE POINTER .LE. 2, GO ON
27007  M01S21925.dsdi67  ---|          SA2    TPFA+2      REGISTER NUMBER
Line S00394 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27008  M01S00394.dsdi67  +++| TPF13    SA2    FW
27009  M01S00395.dsdi67  +++|          SX7    X2-3
27010  M01S00396.dsdi67  +++|          NZ     X7,TPF15    IF NOT END OF REGISTER
27011  M01S00397.dsdi67  +++|          SA2    A2+B1       REGISTER NUMBER
Line S00012 Modification History
M01 (Added by) dsdi74a
Seq #  *Modification Id* Act 
----------------------------+
27012  M01S00012.dsdi74a +++|          ERRNZ  LW-FW-1     CODE REQUIRES CONTIGUOUS WORDS
Line S00398 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27013  M01S00398.dsdi67  +++|          SX6    X2+B1       INCREMENT REGISTER NUMBER
27014  M00S21926.dsdi    +++|          SX3    X2-15
Line S21927 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27015  M01S21927.dsdi67  ---|          ZR     X3,TPF26    IF END OF TABLE
27016  M01S21928.dsdi67  ---|          SX6    X2+B1       INCREMENT REGISTER NUMBER
27017  M01S21929.dsdi67  ---|          SA6    TPFA+2
27018  M01S21930.dsdi67  ---|          SX6    B0          RESET TABLE POINTER
27019  M01S21931.dsdi67  ---|          SA6    TPFA+1
Line S00399 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27020  M01S00399.dsdi67  +++|          ZR     X3,TPF17    IF END OF TABLE
27021  M01S00400.dsdi67  +++|          SA6    A2
27022  M01S00401.dsdi67  +++|          SA7    A6-B1       RESET TABLE POINTER
27023  M00S21932.dsdi    +++|          SB6    6
Line S21933 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27024  M01S21933.dsdi67  ---| TPF22.1  RJ     NXB         SKIP 6*16 BITS OF ZEROS
Line S00402 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27025  M01S00402.dsdi67  +++| TPF14    RJ     NXB         SKIP 6*16 BITS OF ZEROS
27026  M00S21934.dsdi    +++|          SB6    B6-B1
Line S21935 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27027  M01S21935.dsdi67  ---|          NZ     B6,TPF22.1  IF NOT THROUGH SKIPPING
27028  M01S21936.dsdi67  ---| TPF23    SA1    TPFA+2      REGISTER NUMBER
Line S00403 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27029  M01S00403.dsdi67  +++|          NZ     B6,TPF14    IF NOT THROUGH SKIPPING
27030  M01S00404.dsdi67  +++| TPF15    SA1    LW          REGISTER NUMBER
27031  M00S21937.dsdi    +++|          SB7    PRBF
27032  M00S21938.dsdi    +++|          SB6    B1
27033  M00S21939.dsdi    +++|          LX1    59-3
27034  M00S21940.dsdi    +++|          RJ     HTS         HEX TO STRING
Line S21941 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27035  M01S21941.dsdi67  ---|          SA1    TPFA+1      TABLE POINTER
Line S00405 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27036  M01S00405.dsdi67  +++|          SA1    FW          TABLE POINTER
27037  M00S21942.dsdi    +++|          SA2    TPFD+X1
Line S21943 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27038  M01S21943.dsdi67  ---|          MX0    -17         GET DESCRIPTOR
27039  M01S21944.dsdi67  ---|          BX2    -X0*X2
27040  M01S21945.dsdi67  ---|          SA2    X2
Line S00406 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27041  M01S00406.dsdi67  +++|          SX6    X1+B1       INCREMENT POINTER
27042  M01S00407.dsdi67  +++|          SA6    A1
27043  M00S21946.dsdi    +++|          SB7    PRBF+3
Line S21947 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27044  M01S21947.dsdi67  ---|          SB6    5
Line S00408 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27045  M01S00408.dsdi67  +++|          SB6    5+2
27046  M00S21948.dsdi    +++|          RJ     UPS
Line S21949 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27047  M01S21949.dsdi67  ---|          SB7    B7+2
27048  M00S21950.dsdi    ---|          SX5    3
27049  M01S21951.dsdi67  ---|          NZ     X1,TPF25    IF *A* OR *P* REGISTER PART OF *HF* ENTRY
Line S00409 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27050  M01S00409.dsdi67  +++|          NZ     X1,TPF16    IF *A* OR *P* REGISTER
27051  M00S21952.dsdi    +++|          SX5    4
Line S21953 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27052  M01S21953.dsdi67  ---| TPF25    SA0    B7+2
Line S00410 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27053  M01S00410.dsdi67  +++| TPF16    SB7    B7+2
27054  M00S21954.dsdi    +++|          RJ     NXB
Line S21955 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27055  M01S21955.dsdi67  ---|          SB7    A0
27056  M00S21956.dsdi    ---|          SB6    4
27057  M00S21957.dsdi    ---|          LX1    59-15
Line S00411 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27058  M01S00411.dsdi67  +++|          SX5    X5-1
27059  M00S21958.dsdi    +++|          RJ     HTS
Line S21959 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27060  M01S21959.dsdi67  ---|          SX5    X5-1
27061  M01S21960.dsdi67  ---|          NZ     X5,TPF25    IF MORE REGISTER DATA TO DISPLAY
Line S00412 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27062  M01S00412.dsdi67  +++|          NZ     X5,TPF16    IF MORE REGISTER DATA TO DISPLAY
27063  M00S21961.dsdi    +++|          PRINT  CCCH,B7-CCCH+1
Line S21962 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27064  M01S21962.dsdi67  ---|          SA1    TPFA+1      INCREMENT TABLE POINTER
27065  M01S21963.dsdi67  ---|          SX6    X1+B1
27066  M01S21964.dsdi67  ---|          SA6    A1
27067  M01S21965.dsdi67  ---|          JP     TPF22       READ NEXT WORD IN TABLE
Line S00413 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27068  M01S00413.dsdi67  +++|          JP     TPF13       READ NEXT WORD IN TABLE
27069  M00S21966.dsdi    +++|
Line S21967 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27070  M01S21967.dsdi67  ---| TPF26    SA1    TPFA        NEXT DIRECTORY TABLE ENTRY POINTER
27071  M01S21968.dsdi67  ---|          NZ     X1,TPF20    IF MORE RECORDS TO DISPLAY
27072  M01S21969.dsdi67  ---|          EQ     TPFX        RETURN
27073  M01S21970.dsdi67  ---|
27074  M01S21971.dsdi67  ---| TPFA     CON    0           NEXT DIRECTORY TABLE ENTRY POINTER (PRF)
27075  M01S21972.dsdi67  ---|          CON    0           LOOP COUNTERS
27076  M01S21973.dsdi67  ---|          CON    0
27077  M01S21974.dsdi67  ---| TPFB     BSS    0
27078  M01S21975.dsdi67  ---|          SXREG     SSMR,(ACU M2 )
27079  M01S21976.dsdi67  ---|          SXREG   SSMR+1,(ACU M3 )
27080  M01S21977.dsdi67  ---|          SXREG   SSMR+2,(ACU M4 )
27081  M01S21978.dsdi67  ---|          SXREG   SSMR+3,(BDP    )
27082  M01S21979.dsdi67  ---|          SXREG   SSMR+4,(       )
27083  M01S21980.dsdi67  ---|          SXREG   SSMR+5,(EPN SCM)
27084  M01S21981.dsdi67  ---|          SXREG   SSMR+6,(EPN ETM)
27085  M01S21982.dsdi67  ---|          SXREG   SSMR+7,(IDU CS )
27086  M01S21983.dsdi67  ---|          SXREG   SSMR+8,(       )
27087  M01S21984.dsdi67  ---|          SXREG   SSMR+9,(INU MAP)
27088  M01S21985.dsdi67  ---|          SXREG  SSMR+10,(INU IBS)
27089  M01S21986.dsdi67  ---|          SXREG  SSMR+11,(LSU    )
27090  M01S21987.dsdi67  ---|          SXREG  SSMR+12,(SVA BN )
Line S00414 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27091  M01S00414.dsdi67  +++|
27092  M01S00415.dsdi67  +++| TPFA     CON    0           SECOND *PRF* POINTER
27093  M01S00416.dsdi67  +++|          CON    0           SECOND *PIS* POINTER
27094  M01S00417.dsdi67  +++|          CON    0           SECOND *PRG* POINTER
27095  M01S00418.dsdi67  +++|          CON    0           SECOND *PRH* POINTER
27096  M01S00419.dsdi67  +++| TPFB     DATA   C*ACU M2 *
27097  M01S00420.dsdi67  +++|          DATA   C*ACU M3 *
27098  M01S00421.dsdi67  +++|          DATA   C*ACU M4 *
27099  M01S00422.dsdi67  +++|          DATA   C*BDP    *
27100  M01S00423.dsdi67  +++|          DATA   C*       *
27101  M01S00424.dsdi67  +++|          DATA   C*EPN SCM*
27102  M01S00425.dsdi67  +++|          DATA   C*EPN ETM*
27103  M01S00426.dsdi67  +++|          DATA   C*IDU CS *
27104  M01S00427.dsdi67  +++|          DATA   C*       *
27105  M01S00428.dsdi67  +++|          DATA   C*INU MAP*
27106  M01S00429.dsdi67  +++|          DATA   C*INU IBS*
27107  M01S00430.dsdi67  +++|          DATA   C*LSU    *
27108  M01S00431.dsdi67  +++|          DATA   C*SVA BN *
27109  M00S21988.dsdi    +++|          CON    0
Line S21989 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27110  M01S21989.dsdi67  ---| TPFC     BSS    0
27111  M01S21990.dsdi67  ---|          SXREG     SSMR,( A)
27112  M01S21991.dsdi67  ---|          SXREG   SSMR+1,(SA)
27113  M01S21992.dsdi67  ---|          SXREG   SSMR+2,( X)
27114  M01S21993.dsdi67  ---|          SXREG   SSMR+3,(SX)
27115  M01S21994.dsdi67  ---|          CON    0
27116  M01S21995.dsdi67  ---| TPFD     BSS    0
27117  M01S21996.dsdi67  ---|          SXREG     SSMR,(X-REG)
27118  M01S21997.dsdi67  ---|          SXREG   SSMR+1,(A-REG)
27119  M01S21998.dsdi67  ---|          SXREG   SSMR+2,(P, N )
Line S00432 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27120  M01S00432.dsdi67  +++| TPFC     DATA   C* ASA XSX*
27121  M01S00433.dsdi67  +++| TPFD     DATA   C*X-REG*
27122  M01S00434.dsdi67  +++|          DATA   C*A-REG*
27123  M01S00435.dsdi67  +++|          DATA   C*P, N *
27124  M00S21999.dsdi    +++|          CON    0
Line S22000 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27125  M01S22000.dsdi67  ---| TRT      SPACE  4,7
Line S00436 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27126  M01S00436.dsdi67  +++| TPFE     VFD    18/3LPRF,24/0,18/TPF3
27127  M01S00437.dsdi67  +++|          VFD    18/3LPIS,24/0,18/TPF9
27128  M01S00438.dsdi67  +++|          VFD    18/3LPRG,24/0,18/TPF10
27129  M01S00439.dsdi67  +++|          VFD    18/3LPRH,24/0,18/TPF12
27130  M01S00440.dsdi67  +++| TRT      SPACE  4,15
27131  M00S22001.dsdi    +++|**        TRT - DUMP TRACK RESERVATION TABLE.
27132  M00S22002.dsdi    +++|*
27133  M00S22003.dsdi    +++|*         ENTRY  (BUF) = MST WORDS.
27134  M00S22004.dsdi    +++|*
27135  M00S22005.dsdi    +++|*         EXIT   BUF CONTAINS MST AND TRT.
27136  M00S22006.dsdi    +++|*
27137  M00S22007.dsdi    +++|*         USES   X - 1, 2, 3, 6, 7.
27138  M00S22008.dsdi    +++|*                A - 1, 2, 6, 7.
27139  M00S22009.dsdi    +++|*                B - 2, 5, 6, 7.
27140  M00S22010.dsdi    +++|*
27141  M00S22011.dsdi    +++|*         CALLS  CTS, FDW, POM, P4F, SDI, SRD, SSB.
27142  M00S22012.dsdi    +++|*
27143  M00S22013.dsdi    +++|*         MACROS GETCM, PRINT.
27144  M00S22014.dsdi    +++|
27145  M00S22015.dsdi    +++|
27146  M00S22016.dsdi    +++| TRT      SUBR
27147  M00S22017.dsdi    +++|          PRINT  (=2C  )
27148  M00S22018.dsdi    +++|          PRINT  (=C*          TRACK RESERVATION TABLE*)
27149  M00S22019.dsdi    +++|          PRINT  (=2C  )
27150  M00S22020.dsdi    +++|          SA1    BUF+TRLL    SET FWA OF TRT
27151  M00S22021.dsdi    +++|          SX6    X1
27152  M00S22022.dsdi    +++|          SA6    CPRA
27153  M00S22023.dsdi    +++|          SA6    FW
27154  M00S22024.dsdi    +++|          SB2    A6
27155  M00S22025.dsdi    +++|          RJ     POM         POSITION TO TRT
27156  M00S22026.dsdi    +++|          SA1    BUF+TDGL    SET TRT LENGTH
27157  M00S22027.dsdi    +++|          MX7    -12
27158  M00S22028.dsdi    +++|          AX1    24
27159  M00S22029.dsdi    +++|          BX7    -X7*X1
27160  M00S22030.dsdi    +++|          SA7    LW          SET TRT LWA+1
27161  M00S22031.dsdi    +++|          GETCM  BUF+MSTXL,X7  READ TRT INTO *BUF*
27162  M00S22032.dsdi    +++|          MX7    1
27163  M00S22033.dsdi    +++|          SA7    SRDA        PRESET FIRST CALL TO *SRD*
27164  M00S22034.dsdi    +++|          SX6    B0
27165  M00S22035.dsdi    +++|          SA6    TRTA        CLEAR LINK ORDINAL
27166  M00S22036.dsdi    +++|          SA6    TRTB        CLEAR DATA WORD ORDINAL
27167  M00S22037.dsdi    +++|          SA6    SRDC+7      STOP DASHES AFTER 70 CHARACTERS
27168  M00S22038.dsdi    +++|          RJ     SSB         CLEAR PRINT STRING
27169  M00S22039.dsdi    +++| TRT1     SA1    TRTB        SET DATA ADDRESS
27170  M00S22040.dsdi    +++|          SX1    X1+BUF+MSTXL
27171  M00S22041.dsdi    +++|          SB5    1           SET WORD COUNT
27172  M00S22042.dsdi    +++|          RJ     SRD         SENSE REPEAT DATA
27173  M00S22043.dsdi    +++|          NZ     X1,TRT2     IF REPEAT SENSED
27174  M00S22044.dsdi    +++|          SA1    FW          GET TRT ADDRESS
27175  M00S22045.dsdi    +++|          SA2    TRTB
27176  M00S22046.dsdi    +++|          IX1    X1+X2
27177  M00S22047.dsdi    +++|          LX1    -18
27178  M00S22048.dsdi    +++|          SB6    6
27179  M00S22049.dsdi    +++|          SB7    PRBF
27180  M00S22050.dsdi    +++|          RJ     CTS         CONVERT TRT ADDRESS
27181  M00S22051.dsdi    +++|          SB7    B7+B1
27182  M00S22052.dsdi    +++|          SX6    1R+
27183  M00S22053.dsdi    +++|          SA6    B7
27184  M00S22054.dsdi    +++|          SB7    B7+B1
27185  M00S22055.dsdi    +++|          SA1    TRTA        LINK ORDINAL
27186  M00S22056.dsdi    +++|          LX1    -12
27187  M00S22057.dsdi    +++|          SB6    4
27188  M00S22058.dsdi    +++|          RJ     CTS         CONVERT LINK ORDINAL
27189  M00S22059.dsdi    +++|          SB7    B7+2
27190  M00S22060.dsdi    +++|          SA2    =4000005B
27191  M00S22061.dsdi    +++|          SA1    TRTB        READ TRT DATA WORD
27192  M00S22062.dsdi    +++|          SA1    X1+BUF+MSTXL
27193  M00S22063.dsdi    +++|          RJ     FDW         FORMAT DATA WORD
27194  M00S22064.dsdi    +++|          SB7    B7+B1
27195  M00S22065.dsdi    +++|          LX1    -12
27196  M00S22066.dsdi    +++|          RJ     P4F         LIST FIRST TRACK DIRECT FILE FLAGS
27197  M00S22067.dsdi    +++|          SB7    B7+1
27198  M00S22068.dsdi    +++|          RJ     P4F         LIST INTERLOCK FLAGS
27199  M00S22069.dsdi    +++|          SB7    B7+1
27200  M00S22070.dsdi    +++|          RJ     P4F         LIST RESERVATION FLAGS
27201  M00S22071.dsdi    +++|          SA2    TRTB        RE-READ DATA WORD
27202  M00S22072.dsdi    +++|          SA2    X2+BUF+MSTXL
27203  M00S22073.dsdi    +++|          SB7    B7+2
27204  M00S22074.dsdi    +++|          SB6    10
27205  M00S22075.dsdi    +++|          RJ     SDI         SET DISPLAY CODE INTERPRETATION
27206  M00S22076.dsdi    +++|          PRINT  CCCH,B7-CCCH
27207  M00S22077.dsdi    +++| TRT2     SA1    TRTA
27208  M00S22078.dsdi    +++|          SX6    X1+4
27209  M00S22079.dsdi    +++|          SA6    A1+         UPDATE TRACK ORDINAL
27210  M00S22080.dsdi    +++|          SA1    TRTB
27211  M00S22081.dsdi    +++|          SX6    X1+B1
27212  M00S22082.dsdi    +++|          SA6    A1+         UPDATE TRT ADDRESS
27213  M00S22083.dsdi    +++|          SA2    LW
27214  M00S22084.dsdi    +++|          IX3    X6-X2
27215  M00S22085.dsdi    +++|          NG     X3,TRT1     IF MORE TO DUMP
27216  M00S22086.dsdi    +++|          SA1    SRDC+1
27217  M00S22087.dsdi    +++|          BX6    X1
27218  M00S22088.dsdi    +++|          SA6    SRDC+7      PRESET DASHES FOR 136 CHARACTERS
27219  M00S22089.dsdi    +++|          JP     TRTX        EXIT
27220  M00S22090.dsdi    +++|
27221  M00S22091.dsdi    +++| TRTA     BSS    1           TRACK LINK ORDINAL
27222  M00S22092.dsdi    +++| TRTB     BSS    1           TRT DATA WORD ORDINAL
27223  M00S22093.dsdi    +++| UCS      SPACE  4,15
27224  M00S22094.dsdi    +++|**        UCS - UNPACK CHARACTER STRING.
27225  M00S22095.dsdi    +++|*         STRING IS DELIMITED BY 00 CHARACTER.
27226  M00S22096.dsdi    +++|*
27227  M00S22097.dsdi    +++|*         ENTRY  (A2) = FWA OF PACKED DATA.
27228  M00S22098.dsdi    +++|*                (X2) = FIRST WORD OF PACKED DATA.
27229  M00S22099.dsdi    +++|*                (B7) = FWA OF STRING BUFFER.
27230  M00S22100.dsdi    +++|*
27231  M00S22101.dsdi    +++|*         EXIT   (A2) = UPDATED.
27232  M00S22102.dsdi    +++|*                (B7) = UPDATED.
27233  M00S22103.dsdi    +++|*
27234  M00S22104.dsdi    +++|*         USES   X - 0, 2, 6.
27235  M00S22105.dsdi    +++|*                B - 5, 7.
27236  M00S22106.dsdi    +++|*                A - 2, 6.
27237  M00S22107.dsdi    +++|
27238  M00S22108.dsdi    +++|
27239  M00S22109.dsdi    +++| UCS      SUBR               ENTRY/EXIT
27240  M00S22110.dsdi    +++| UCS1     SX0    77B         CHARACTER MASK
27241  M00S22111.dsdi    +++|          SB5    10          CHARACTER COUNT
27242  M00S22112.dsdi    +++| UCS2     LX2    6
27243  M00S22113.dsdi    +++|          BX6    X0*X2
27244  M00S22114.dsdi    +++|          ZR     X6,UCSX     IF DELIMITER
27245  M00S22115.dsdi    +++|          SB5    B5-B1
27246  M00S22116.dsdi    +++|          SA6    B7          STORE CHARACTER
27247  M00S22117.dsdi    +++|          SB7    B7+B1       ADVANCE OUTPUT STRING POINTER
27248  M00S22118.dsdi    +++|          NZ     B5,UCS2     IF MORE CHARACTERS IN THIS WORD
27249  M00S22119.dsdi    +++|          SA2    A2+1        READ NEXT WORD OF PACKED DATA
27250  M00S22120.dsdi    +++|          EQ     UCS1        CONTINUE UNPACKING CHARACTER STRING
27251  M00S22121.dsdi    +++| UPS      SPACE  4,13
27252  M00S22122.dsdi    +++|**        UPS - UNPACK CHARACTERS TO STRING BUFFER.
27253  M00S22123.dsdi    +++|*         COLONS ARE REPLACED WITH SPACES.
27254  M00S22124.dsdi    +++|*
27255  M00S22125.dsdi    +++|*         ENTRY  A2 = FWA OF PACKED BUFFER.
27256  M00S22126.dsdi    +++|*                X2 = FIRST WORD OF PACKED DATA.
27257  M00S22127.dsdi    +++|*                B6 = NUMBER OF CHARACTERS TO UNPACK.
27258  M00S22128.dsdi    +++|*                B7 = FWA OF STRING BUFFER.
27259  M00S22129.dsdi    +++|*
27260  M00S22130.dsdi    +++|*         EXIT   A2 AND B7 ARE UPDATED.
27261  M00S22131.dsdi    +++|*
27262  M00S22132.dsdi    +++|*         USES   X - 0,2,6.
27263  M00S22133.dsdi    +++|*                B - 5,6,7.
27264  M00S22134.dsdi    +++|*                A - 2,6.
27265  M00S22135.dsdi    +++|
27266  M00S22136.dsdi    +++|
27267  M00S22137.dsdi    +++| UPS      SUBR
27268  M00S22138.dsdi    +++| UPS1     SX0    77B         CHARACTER MASK
27269  M00S22139.dsdi    +++|          SB5    10          CHARACTER COUNTER
27270  M00S22140.dsdi    +++| UPS2     LX2    6
27271  M00S22141.dsdi    +++|          BX6    X0*X2
27272  M00S22142.dsdi    +++|          SB6    B6-B1       DECREASE COUNT
27273  M00S22143.dsdi    +++|          SB5    B5-B1
27274  M00S22144.dsdi    +++|          NZ     X6,UPS3     IF NOT COLON CODE
27275  M00S22145.dsdi    +++|          SX6    1R          REPLACE COLON WITH SPACE
27276  M00S22146.dsdi    +++| UPS3     SA6    B7          STORE CHARACTER
27277  M00S22147.dsdi    +++|          SB7    B7+B1       ADVANCE OUTPUT STRING POINTER
27278  M00S22148.dsdi    +++|          ZR     B6,UPSX     IF NO MORE CHARACTERS TO UNPACK
27279  M00S22149.dsdi    +++|          NZ     B5,UPS2     IF MORE CHARACTERS IN THIS WORD
27280  M00S22150.dsdi    +++|          SA2    A2+1        READ NEXT WORD OF PACKED DATA
27281  M00S22151.dsdi    +++|          EQ     UPS1        CONTINUE
27282  M00S22152.dsdi    +++| UPW      SPACE  4,15
27283  M00S22153.dsdi    +++|**        UPW - UNPACK 60 BIT WORDS FROM 64 BIT WORDS.
27284  M00S22154.dsdi    +++|*
27285  M00S22155.dsdi    +++|*         ENTRY  FILE POSITIONED AT NEXT 16 WORD BLOCK.
27286  M00S22156.dsdi    +++|*
27287  M00S22157.dsdi    +++|*         EXIT   UBUF FILLED WITH 60 BIT WORDS.
27288  M00S22158.dsdi    +++|*                (X1) = FILE STATUS.
27289  M00S22159.dsdi    +++|*
27290  M00S22160.dsdi    +++|*         USES   X - 2, 3, 6, 7.
27291  M00S22161.dsdi    +++|*                A - 3, 6.
27292  M00S22162.dsdi    +++|*                B - 2.
27293  M00S22163.dsdi    +++|*
27294  M00S22164.dsdi    +++|*         MACROS READW.
27295  M00S22165.dsdi    +++|
27296  M00S22166.dsdi    +++|
27297  M00S22167.dsdi    +++| UPW      SUBR               ENTRY/EXIT
27298  M00S22168.dsdi    +++|          READW  S,UBUF,16
27299  M00S22169.dsdi    +++|          SB2    B0
27300  M00S22170.dsdi    +++|          MX2    4
27301  M00S22171.dsdi    +++|          SA3    UBUF
27302  M00S22172.dsdi    +++| UPW1     BX6    -X2*X3
27303  M00S22173.dsdi    +++|          SA3    A3+B1       GET SECOND PART OF WORD
27304  M00S22174.dsdi    +++|          BX7    X2*X3
27305  M00S22175.dsdi    +++|          BX6    X6+X7       FORM 60-BIT WORD
27306  M00S22176.dsdi    +++|          SB2    B2+4
27307  M00S22177.dsdi    +++|          LX6    B2
27308  M00S22178.dsdi    +++|          SA6    A3
27309  M00S22179.dsdi    +++|          ZR     X2,UPWX     IF BLOCK UNPACKED
27310  M00S22180.dsdi    +++|          AX2    4
27311  M00S22181.dsdi    +++|          EQ     UPW1        EXTRACT NEXT 60-BIT WORD
27312  M00S22182.dsdi    +++| VOL      SPACE  4,10
27313  M00S22183.dsdi    +++|**        VOL - CHECK RECORD FOR TAPE VOLUME HEADER.
27314  M00S22184.dsdi    +++|*
27315  M00S22185.dsdi    +++|*         ENTRY  FROM *DRT*.
27316  M00S22186.dsdi    +++|*
27317  M00S22187.dsdi    +++|*         EXIT   TO *OTH* IF NOT FIRST RECORD.
27318  M00S22188.dsdi    +++|*                TO ERR46 IF FIRST RECORD.
27319  M00S22189.dsdi    +++|
27320  M00S22190.dsdi    +++| VOL      BSS    0
27321  M00S22191.dsdi    +++|          SA1    L.TDIR
27322  M00S22192.dsdi    +++|          NZ     X1,OTH      IF NOT FIRST RECORD
27323  M00S22193.dsdi    +++|          EQ     ERR46       DISPLAY MESSAGE AND ABORT
27324  M00S22194.dsdi    +++| WBS      SPACE  4,15
27325  M00S22195.dsdi    +++|**        WBS - WRITE BLOCK TO FILE *S*.
27326  M00S22196.dsdi    +++|*
27327  M00S22197.dsdi    +++|*         ENTRY  (BWCS) = NUMBER OF WORDS TO WRITE.
27328  M00S22198.dsdi    +++|*
27329  M00S22199.dsdi    +++|*         EXIT   (RWCS) = UPDATED.
27330  M00S22200.dsdi    +++|*
27331  M00S22201.dsdi    +++|*         USES   A - 1, 5, 6.
27332  M00S22202.dsdi    +++|*                X - 1, 5, 6.
27333  M00S22203.dsdi    +++|*
27334  M00S22204.dsdi    +++|*         MACROS WRITEW.
27335  M00S22205.dsdi    +++|
27336  M00S22206.dsdi    +++|
27337  M00S22207.dsdi    +++| WBS      SUBR               ENTRY/EXIT
27338  M00S22208.dsdi    +++|          SA5    BWCS        WORD COUNT
27339  M00S22209.dsdi    +++|          WRITEW S,BUF,X5    WRITE BLOCK
27340  M00S22210.dsdi    +++|          SA1    RWCS        UPDATE RECORD SIZE
27341  M00S22211.dsdi    +++|          IX6    X1+X5
27342  M00S22212.dsdi    +++|          SA6    A1
27343  M00S22213.dsdi    +++|          EQ     WBSX        RETURN
27344  M00S22214.dsdi    +++|
27345  M00S22215.dsdi    +++|
27346  M00S22216.dsdi    +++| BWCS     CON    0           BLOCK WORD COUNT
27347  M00S22217.dsdi    +++| RWCS     CON    0           RECORD WORD COUNT
27348  M00S22218.dsdi    +++| WOF      SPACE  4,12
27349  M00S22219.dsdi    +++|**        WOF - WRITE LINE TO OUTPUT.
27350  M00S22220.dsdi    +++|*
27351  M00S22221.dsdi    +++|*         ENTRY  X1 = FWA OF LINE.
27352  M00S22222.dsdi    +++|*                X2 = WORD COUNT IF LINE IS IN *S* FORMAT.
27353  M00S22223.dsdi    +++|*                   = 0 IF LINE IS IN *C* FORMAT.
27354  M00S22224.dsdi    +++|*                CCCH = CARRIAGE CONTROL CHARACTER RIGHT JUSTIFIED.
27355  M00S22225.dsdi    +++|*
27356  M00S22226.dsdi    +++|*         SAVES  X - 0,5.
27357  M00S22227.dsdi    +++|*                B - NONE.
27358  M00S22228.dsdi    +++|*                A - 0,5.
27359  M00S22229.dsdi    +++|*
27360  M00S22230.dsdi    +++|*         CALLS  CDD.
27361  M00S22231.dsdi    +++|*
27362  M00S22232.dsdi    +++|*         MACROS CLOCK, WRITEC, WRITES, WRITEW.
27363  M00S22233.dsdi    +++|
27364  M00S22234.dsdi    +++|
27365  M00S22235.dsdi    +++| WOF      SUBR
27366  M00S22236.dsdi    +++|          SA3    TF          CHECK FOR TERMINAL OUTPUT
27367  M00S22237.dsdi    +++|          ZR     X3,WOF1     IF NOT TO TERMINAL
27368  M00S22238.dsdi    +++|          ZR     X2,WOF3     IF *C* FORMAT
27369  M00S22239.dsdi    +++|          SB7    X2          CHARACTER COUNT
27370  M00S22240.dsdi    +++|          SA2    OF
27371  M00S22241.dsdi    +++|          WRITES X2,X1,B7
27372  M00S22242.dsdi    +++|          SX6    1R
27373  M00S22243.dsdi    +++|          SA6    CCCH
27374  M00S22244.dsdi    +++|          EQ     WOFX        RETURN
27375  M00S22245.dsdi    +++|
27376  M00S22246.dsdi    +++| WOF1     SA3    LC          ADVANCE LINE COUNT
27377  M00S22247.dsdi    +++|          SX6    X3+B1
27378  M00S22248.dsdi    +++|          SA6    A3
27379  M00S22249.dsdi    +++|          SA4    PD          NUMBER OF LINES PER PAGE
27380  M00S22250.dsdi    +++|          IX7    X3-X4
27381  M00S22251.dsdi    +++|          NG     X7,WOF2     IF BOTTOM OF PAGE NOT REACHED
27382  M00S22252.dsdi    +++|          BX6    X1          SAVE REQUEST
27383  M00S22253.dsdi    +++|          LX7    X2
27384  M00S22254.dsdi    +++|          SA6    WOFA
27385  M00S22255.dsdi    +++|          SA7    A6+1
27386  M00S22256.dsdi    +++|          SA1    PN          ADVANCE PAGE NUMBER
27387  M00S22257.dsdi    +++|          SX6    B1          RESET LINE COUNT
27388  M00S22258.dsdi    +++|          SX7    X1+B1
27389  M00S22259.dsdi    +++|          SA6    A3
27390  M00S22260.dsdi    +++|          SA7    A1
27391  M00S22261.dsdi    +++|          RJ     CDD         CONVERT PAGE NUMBER
27392  M00S22262.dsdi    +++|          MX1    -12
27393  M00S22263.dsdi    +++|          LX6    4*6         STORE PAGE NUMBER
27394  M00S22264.dsdi    +++|          BX6    X1*X6
27395  M00S22265.dsdi    +++|          SA6    PAGE
27396  M00S22266.dsdi    +++|          CLOCK  TIMM
27397  M00S22267.dsdi    +++|          SA2    OF
27398  M00S22268.dsdi    +++|          WRITEW X2,TITL,TITLL
27399  M00S22269.dsdi    +++|          WRITEW X2,SBTL,SBTLL
27400  M00S22270.dsdi    +++|          SA1    WOFA        RESTORE REQUEST
27401  M00S22271.dsdi    +++|          SA2    A1+1
27402  M00S22272.dsdi    +++| WOF2     NZ     X2,WOF4     IF *S* FORMAT
27403  M00S22273.dsdi    +++|          SA2    CCCH        CARRIAGE CONTROL CHARACTER
27404  M00S22274.dsdi    +++|          SA3    X1          READ FIRST WORD OF OUTPUT LINE
27405  M00S22275.dsdi    +++|          MX4    6
27406  M00S22276.dsdi    +++|          BX6    -X4*X3
27407  M00S22277.dsdi    +++|          LX2    -6
27408  M00S22278.dsdi    +++|          BX6    X6+X2       MERGE CARRIAGE CONTROL CHARACTER
27409  M00S22279.dsdi    +++|          SA6    X1+         UPDATE OUTPUT LINE
27410  M00S22280.dsdi    +++| WOF3     SA2    OF
27411  M00S22281.dsdi    +++|          WRITEC X2,X1
27412  M00S22282.dsdi    +++|          JP     WOFX        EXIT
27413  M00S22283.dsdi    +++|
27414  M00S22284.dsdi    +++| WOF4     SB7    X2
27415  M00S22285.dsdi    +++|          SA2    OF
27416  M00S22286.dsdi    +++|          WRITES X2,X1,B7
27417  M00S22287.dsdi    +++|          JP     WOFX        EXIT
27418  M00S22288.dsdi    +++|
27419  M00S22289.dsdi    +++| WOFA     DATA   0,0
27420  M00S22290.dsdi    +++| XPH      SPACE  4,13
27421  M00S22291.dsdi    +++|**        XPH - SET XP DIRECTIVE HEADER.
27422  M00S22292.dsdi    +++|*
27423  M00S22293.dsdi    +++|*         ENTRY  X5 = CURRENT CPU DIRECTORY WORD.
27424  M00S22294.dsdi    +++|*                A5 = ADDRESS OF CURRENT CPU DIRECTORY WORD.
27425  M00S22295.dsdi    +++|*                A0 = ADDRESS OF WHERE TO STORE EXCHANGE PACKAGE.
27426  M00S22296.dsdi    +++|*                B7 = PRINT STRING ADDRESS.
27427  M00S22297.dsdi    +++|*
27428  M00S22298.dsdi    +++|*         EXIT   X6 = CPU ON/OFF FLAG.
27429  M00S22299.dsdi    +++|*                A5 IS UPDATED TO RANDOM INDEX WORD.
27430  M00S22300.dsdi    +++|*
27431  M00S22301.dsdi    +++|*         USES   ALL REGISTERS.
27432  M00S22302.dsdi    +++|*
27433  M00S22303.dsdi    +++|*         CALLS  PDF,RDW=,UPS.
27434  M00S22304.dsdi    +++|
27435  M00S22305.dsdi    +++|
27436  M00S22306.dsdi    +++| XPH      SUBR
27437  M00S22307.dsdi    +++|          SA2    =21HHARDWARE REGISTERS -
27438  M00S22308.dsdi    +++|          SB6    21
27439  M00S22309.dsdi    +++|          RJ     UPS
27440  M00S22310.dsdi    +++|          SX6    X5
27441  M00S22311.dsdi    +++|          SA5    A5+B1
27442  M00S22312.dsdi    +++|          ZR     X6,XPH1     IF CPU IS ON
27443  M00S22313.dsdi    +++|          SA2    =3HOFF
27444  M00S22314.dsdi    +++|          SB6    3
27445  M00S22315.dsdi    +++|          RJ     UPS
27446  M00S22316.dsdi    +++|          JP     XPH2
27447  M00S22317.dsdi    +++|
27448  M00S22318.dsdi    +++| XPH1     SA2    =2HON
27449  M00S22319.dsdi    +++|          SB6    2
27450  M00S22320.dsdi    +++|          RJ     UPS
27451  M00S22321.dsdi    +++|          BX6    X5
27452  M00S22322.dsdi    +++|          SX3    B1
27453  M00S22323.dsdi    +++|          SA6    RI
27454  M00S22324.dsdi    +++|          RJ     PDF         POSITION TO EXCHANGE PACKAGE
27455  M00S22325.dsdi    +++|          READW  S,A0,20B
27456  M00S22326.dsdi    +++| XPH2     SA1    A5-B1
27457  M00S22327.dsdi    +++|          SX6    X1          SET CPU ON/OFF
27458  M00S22328.dsdi    +++|          JP     XPHX        EXIT
27459  M00S22329.dsdi    +++|          TITLE  TABLES.
27460  M00S22330.dsdi    +++| TLPP     SPACE  4,10
27461  M00S22331.dsdi    +++|**        TLPP - TABLE OF LOGICAL PP NUMBERS.
27462  M00S22332.dsdi    +++|*
27463  M00S22333.dsdi    +++|*         ONE WORD ENTRY FOR EACH PP CONTAINING THE CURRENT LOGICAL
27464  M00S22334.dsdi    +++|*         PP NUMBER FOR THAT PP.
27465  M00S22335.dsdi    +++|
27466  M00S22336.dsdi    +++|
27467  M00S22337.dsdi    +++| TLPP     CON    0           PP00
27468  M00S22338.dsdi    +++|          CON    1           PP01
27469  M00S22339.dsdi    +++|          CON    2           PP02
27470  M00S22340.dsdi    +++|          CON    3           PP03
27471  M00S22341.dsdi    +++|          CON    4           PP04
27472  M00S22342.dsdi    +++|          CON    5           PP05
27473  M00S22343.dsdi    +++|          CON    6           PP06
27474  M00S22344.dsdi    +++|          CON    7           PP07
27475  M00S22345.dsdi    +++|          CON    10B         PP10
27476  M00S22346.dsdi    +++|          CON    11B         PP11
27477  M00S22347.dsdi    +++|          CON    20B         PP20
27478  M00S22348.dsdi    +++|          CON    21B         PP21
27479  M00S22349.dsdi    +++|          CON    22B         PP22
27480  M00S22350.dsdi    +++|          CON    23B         PP23
27481  M00S22351.dsdi    +++|          CON    24B         PP24
27482  M00S22352.dsdi    +++|          CON    25B         PP25
27483  M00S22353.dsdi    +++|          CON    26B         PP26
27484  M00S22354.dsdi    +++|          CON    27B         PP27
27485  M00S22355.dsdi    +++|          CON    30B         PP30
27486  M00S22356.dsdi    +++|          CON    31B         PP31
27487  M00S22357.dsdi    +++|          SPACE  4
27488  M00S22358.dsdi    +++|          USE    END         FORCE LITERALS
27489  M00S22359.dsdi    +++|          IDENT
27490  M00S22360.dsdi    +++|          SEG
27491  M00S22361.dsdi    +++| END      BSS    0           END OF PROGRAM BINARY
27492  M00S22362.dsdi    +++|          TITLE  BUFFERS AND TABLE SPACE.
27493  M00S22363.dsdi    +++| BUFFERS  SPACE  4
27494  M00S22364.dsdi    +++|**        MISCELLANEOUS WORKING BUFFERS.
27495  M00S22365.dsdi    +++|
27496  M00S22366.dsdi    +++|
27497  M00S22367.dsdi    +++| BUF      BSS    1002B       BINARY WORKING BUFFER
27498  M00S22368.dsdi    +++| BUFL     EQU    *-BUF
27499  M00S22369.dsdi    +++|
27500  M00S22370.dsdi    +++| USBB     BSS    0           STRING BUFFER
27501  M00S22371.dsdi    +++| CHAR     BSS    81          DIRECTIVE CARD STRING BUFFER
27502  M00S22372.dsdi    +++|
27503  M00S22373.dsdi    +++| PBUF     BSS    10000B/5+1  PPU DATA BUFFER
27504  M00S22374.dsdi    +++| PBUFL    EQU    *-PBUF
27505  M00S22375.dsdi    +++|
27506  M00S22376.dsdi    +++| IUBUFL1  EQU    0#1000*16/60+4  4K PRINT BUFFER LENGTH
27507  M00S22377.dsdi    +++| IUBUFL2  EQU    0#2000*16/60+2  8K PRINT BUFFER LENGTH
27508  M00S22378.dsdi    +++| IUBUFL3  EQU    0#10600*16/60+2
27509  M00S22379.dsdi    +++| IUBUFL4  EQU    0#4000*16/60+2  16K PRINT BUFFER LENGTH
27510  M00S22380.dsdi    +++|
Line S22381 Modification History
M01 (Removed by) dsdi56
Seq #  *Modification Id* Act 
----------------------------+
27511  M01S22381.dsdi56  ---| MRBF     EQU    PBUF        MAINTENANCE REGISTER BUFFER
Line S00309 Modification History
M01 (Added by) dsdi56
M02 (Removed by) dsdi68
Seq #  *Modification Id* Act 
----------------------------+
27512  M02S00309.dsdi68  ---| PSAV     EQU    PBUF+IUBUFL2  PP SAVE AREA BUFFER
27513  M02S00310.dsdi68  ---| MRBF     EQU    PSAV+PPSA   MAINTENANCE REGISTER BUFFER
Line S22382 Modification History
M01 (Removed by) dsdi68
Seq #  *Modification Id* Act 
----------------------------+
27514  M01S22382.dsdi68  ---|          BSS    IUBUFL3-PBUFL
Line S00050 Modification History
M01 (Added by) dsdi68
Seq #  *Modification Id* Act 
----------------------------+
27515  M01S00050.dsdi68  +++|          BSS    IUBUFL2-PBUFL
27516  M01S00051.dsdi68  +++| MRBF     BSS    8
27517  M01S00052.dsdi68  +++| PSAV     BSS    PPSA
27518  M00S22383.dsdi    +++|
27519  M00S22384.dsdi    +++| CCCH     BSS    1           CARRIAGE CONTROL CHARACTER
27520  M00S22385.dsdi    +++| PRBF     BSS    136         OUTPUT PRINT STRING BUFFER
27521  M00S22386.dsdi    +++|
27522  M00S22387.dsdi    +++| SSBF     BSS    0           SUBSYSTEM LOW CORE WORKING BUFFER
Line S22388 Modification History
M01 (Removed by) dsdi55
Seq #  *Modification Id* Act 
----------------------------+
27523  M01S22388.dsdi55  ---| SSBFL    MAX    /BIO/BUFR+1,/MTX/UQUE+1,/REM/TXORG+1
Line S00094 Modification History
M01 (Added by) dsdi55
Seq #  *Modification Id* Act 
----------------------------+
27524  M01S00094.dsdi55  +++| SSBFL    MAX    /BIO/BUFR+1,/MTX/TVSP+1,/REM/TXORG+1
27525  M00S22389.dsdi    +++|          BSS    SSBFL
27526  M00S22390.dsdi    +++|
27527  M00S22391.dsdi    +++| UBUF     BSS    16          UNPACK BUFFER
27528  M00S22392.dsdi    +++|          SPACE  4
27529  M00S22393.dsdi    +++|**        FILE BUFFERS AND TABLE SPACE.
27530  M00S22394.dsdi    +++|
27531  M00S22395.dsdi    +++|
27532  M00S22396.dsdi    +++| IBUF     BSS    IBUFL       DIRECTIVE INPUT FILE BUFFER
27533  M00S22397.dsdi    +++| JBUF     BSS    JBUFL       ALTERNATE INPUT FILE BUFFER
27534  M00S22398.dsdi    +++| OBUF     BSS    OBUFL       LIST OUTPUT FILE BUFFER
27535  M00S22399.dsdi    +++| ABUF     BSS    ABUFL       ALTERNATE OUTPUT FILE BUFFER
27536  M00S22400.dsdi    +++| FBUF     BSS    FBUFL       DUMP INPUT FILE BUFFER
27537  M00S22401.dsdi    +++| SBUF     BSS    SBUFL       BINARY SCRATCH FILE BUFFER
27538  M00S22402.dsdi    +++| BBUF     BSS    BBUFL       BML MAINTENANCE REGISTER FILE BUFFER
27539  M00S22403.dsdi    +++|
27540  M00S22404.dsdi    +++| MEML     BSS    TMIN+10B    MANAGED TABLE SPACE
27541  M00S22405.dsdi    +++| MFL=     BSS    0           MINIMUM FL NEEDED FOR EXECUTION
27542  M00S22406.dsdi    +++|
27543  M00S22407.dsdi    +++|          ORG    END
27544  M00S22408.dsdi    +++|          SPACE  4
27545  M00S22409.dsdi    +++|          END