User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:dsdi.011

Deck DSDI Part 011

70 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
16256  M01S00024.dsdi71a +++|          RJ     SCM         SET CENTRAL MEMORY
16257  M01S00025.dsdi71a +++|          SX1    CPAS        GET IAF FL, RA
16258  M01S00026.dsdi71a +++|          RJ     GFL
16259  M00S12919.dsdi    +++|          SA7    DTLA        SAVE LWA+1 OF IAF FIELD LENGTH
16260  M00S12920.dsdi    +++|          RJ     SRA         SET IAF CONTROL POINT RA
16261  M00S12921.dsdi    +++|          RJ     SSB         CLEAR PRINT STRING BUFFER
16262  M00S12922.dsdi    +++|          RJ     LDC         FORCE PAGE EJECT
16263  M00S12923.dsdi    +++|
16264  M00S12924.dsdi    +++|*         DUMP POT LINK TABLE.
16265  M00S12925.dsdi    +++|
16266  M00S12926.dsdi    +++|          PRINT  (=2C  )
16267  M00S12927.dsdi    +++|          PRINT  (=C*          POT LINK TABLE*)
16268  M00S12928.dsdi    +++|          PRINT  (=2C  )
16269  M00S12929.dsdi    +++|          MX6    1           PRESET FIRST CALL TO *SRD*
16270  M00S12930.dsdi    +++|          SA6    SRDA
16271  M00S12931.dsdi    +++|          SX6    B0
16272  M00S12932.dsdi    +++|          SA6    DTLB        CLEAR PLT LINK ORDINAL
16273  M00S12933.dsdi    +++|          SA6    SRDC+4      SET DASHED LINE TO 40 CHARACTERS
16274  M00S12934.dsdi    +++|          SA5    SSBF+/REM/VPLP  GET PLT POINTER WORD
16275  M00S12935.dsdi    +++|          SA2    RC          GET IAF REFERENCE ADDRESS
16276  M00S12936.dsdi    +++|          SX6    X5          SAVE LWA+1 PLT
16277  M00S12937.dsdi    +++|          SA6    LW
16278  M00S12938.dsdi    +++|          AX5    24          SAVE FWA PLT
16279  M00S12939.dsdi    +++|          SX6    X5
16280  M00S12940.dsdi    +++|          SA6    FW
16281  M00S12941.dsdi    +++|          SX3    X5
16282  M00S12942.dsdi    +++|          IX3    X2+X3
16283  M00S12943.dsdi    +++|          AX5    24
16284  M00S12944.dsdi    +++|          RJ     PCM         READ PLT INTO CORE
16285  M00S12945.dsdi    +++|          GETCM  BUF,X5
16286  M00S12946.dsdi    +++| DTL1     SA1    DTLB        CHECK FOR REPEATED DATA
16287  M00S12947.dsdi    +++|          SX1    X1+BUF
16288  M00S12948.dsdi    +++|          SB5    1
16289  M00S12949.dsdi    +++|          RJ     SRD
16290  M00S12950.dsdi    +++|          NZ     X1,DTL2     IF REPEAT SENSED
16291  M00S12951.dsdi    +++|          SB6    6           FORMAT PLT WORD ADDRESS
16292  M00S12952.dsdi    +++|          SB7    PRBF
16293  M00S12953.dsdi    +++|          SA1    FW
16294  M00S12954.dsdi    +++|          LX1    -18
16295  M00S12955.dsdi    +++|          RJ     CTS
16296  M00S12956.dsdi    +++|          SB7    B7+B1       FORMAT PLT LINK ORDINAL
16297  M00S12957.dsdi    +++|          SX6    1R+
16298  M00S12958.dsdi    +++|          SA6    B7
16299  M00S12959.dsdi    +++|          SB7    B7+B1
16300  M00S12960.dsdi    +++|          SA1    DTLB
16301  M00S12961.dsdi    +++|          LX1    -10
16302  M00S12962.dsdi    +++|          SB6    4
16303  M00S12963.dsdi    +++|          RJ     CTS
16304  M00S12964.dsdi    +++|          SB7    B7+2        FORMAT PLT WORD
16305  M00S12965.dsdi    +++|          SA2    =4000005B
16306  M00S12966.dsdi    +++|          AX1    2
16307  M00S12967.dsdi    +++|          SA1    X1+BUF
16308  M00S12968.dsdi    +++|          RJ     FDW
16309  M00S12969.dsdi    +++|          PRINT  CCCH,B7-CCCH
16310  M00S12970.dsdi    +++| DTL2     SA1    DTLB        INCREMENT PLT INDEX
16311  M00S12971.dsdi    +++|          SX7    X1+B1
16312  M00S12972.dsdi    +++|          SA7    A1
16313  M00S12973.dsdi    +++|          SA1    FW          INCREMENT PLT WORD ADDRESS
16314  M00S12974.dsdi    +++|          SX6    X1+1
16315  M00S12975.dsdi    +++|          SA6    A1
16316  M00S12976.dsdi    +++|          SA1    LW          CHECK IF ALL OF PLT DUMPED
16317  M00S12977.dsdi    +++|          IX7    X6-X1
16318  M00S12978.dsdi    +++|          NG     X7,DTL1     IF MORE TO DUMP
16319  M00S12979.dsdi    +++|          SA1    SRDC+3      RESET DASHED LINE TO 136 CHARACTERS
16320  M00S12980.dsdi    +++|          BX6    X1
16321  M00S12981.dsdi    +++|          SA6    A1+B1
16322  M00S12982.dsdi    +++|
16323  M00S12983.dsdi    +++|*         DUMP POTS IN *E* FORMAT.
16324  M00S12984.dsdi    +++|
16325  M00S12985.dsdi    +++|          PRINT  (=2C  )
16326  M00S12986.dsdi    +++|          PRINT  (=C*          POTS*)
16327  M00S12987.dsdi    +++|          PRINT  (=2C  )
16328  M00S12988.dsdi    +++|          SA3    SSBF+/REM/VBMP  GET POT STORAGE FWA
16329  M00S12989.dsdi    +++|          SA2    RC          GET IAF REFERENCE ADDRESS
16330  M00S12990.dsdi    +++|          SX6    X3
16331  M00S12991.dsdi    +++|          SA6    CPRA+1
16332  M00S12992.dsdi    +++|          IX3    X2+X3
16333  M00S12993.dsdi    +++|          RJ     PCM         POSITION TO POT STORAGE
16334  M00S12994.dsdi    +++|          SX6    2
16335  M00S12995.dsdi    +++|          SA6    CPRA+3      SET NO SUPPRESSION OF REPEATED DATA
16336  M00S12996.dsdi    +++|          SA6    A6+B1       SET *E* FORMAT
16337  M00S12997.dsdi    +++|          SX6    B0
16338  M00S12998.dsdi    +++|          SA6    CPRA+5      COMPUTE COLUMN LENGTH
16339  M00S12999.dsdi    +++|          SA6    CPRA+6      SET NO INVERTED ADDRESS
16340  M00S13000.dsdi    +++|          SA6    CPRA+2      SET TO DUMP FROM DUMP FILE
16341  M00S13001.dsdi    +++|          SX6    -1
16342  M00S13002.dsdi    +++|          SA6    DTLB        PRESET POT NUMBER
16343  M00S13003.dsdi    +++| DTL3     SB7    PRBF        PRINT POT NUMBER
16344  M00S13004.dsdi    +++|          SA2    =4LPOT
16345  M00S13005.dsdi    +++|          SB6    4
16346  M00S13006.dsdi    +++|          RJ     UPS
16347  M00S13007.dsdi    +++|          SB6    4
16348  M00S13008.dsdi    +++|          SA1    DTLB        INCREMENT POT NUMBER
16349  M00S13009.dsdi    +++|          SX6    X1+B1
16350  M00S13010.dsdi    +++|          SA6    A1
16351  M00S13011.dsdi    +++|          SX1    X6
16352  M00S13012.dsdi    +++|          LX1    -12
16353  M00S13013.dsdi    +++|          RJ     CTS
16354  M00S13014.dsdi    +++|          PRINT  CCCH,B7-CCCH
16355  M00S13015.dsdi    +++|          SA1    CPRA+1      SET POT FWA
16356  M00S13016.dsdi    +++|          SX7    X1
16357  M00S13017.dsdi    +++|          SA7    A1-B1
16358  M00S13018.dsdi    +++|          SX6    X1+8        SET POT LWA+1
16359  M00S13019.dsdi    +++|          SA6    A1
16360  M00S13020.dsdi    +++|          SB2    A7
16361  M00S13021.dsdi    +++|          RJ     PMD         PROCESS MEMORY DUMP
16362  M00S13022.dsdi    +++|          SA2    DTLA        LWA+1 OF IAF FL
16363  M00S13023.dsdi    +++|          SA1    CPRA+1      LWA+1 OF LAST DUMPED POT
16364  M00S13024.dsdi    +++|          IX5    X1-X2
16365  M00S13025.dsdi    +++|          ZR     X5,DTL4     IF ALL POTS DUMPED
16366  M00S13026.dsdi    +++|          NG     X5,DTL3     IF MORE TO DUMP
16367  M00S13027.dsdi    +++|          PRINT  (=2C  )
16368  M00S13028.dsdi    +++|          SB7    PRBF
16369  M00S13029.dsdi    +++|          SB6    49
16370  M00S13030.dsdi    +++|          SA2    =49L*********WARNING -  LAST POT OVERFLOWS IAF FL BY
16371  M00S13031.dsdi    +++|          RJ     UPS
16372  M00S13032.dsdi    +++|          SB6    1           PRINT POT OVERFLOW
16373  M00S13033.dsdi    +++|          SX1    X5
16374  M00S13034.dsdi    +++|          LX1    -3
16375  M00S13035.dsdi    +++|          RJ     CTS
16376  M00S13036.dsdi    +++|          SA2    =5LWORDS
16377  M00S13037.dsdi    +++|          SB6    5
16378  M00S13038.dsdi    +++|          SB7    B7+B1
16379  M00S13039.dsdi    +++|          RJ     UPS
16380  M00S13040.dsdi    +++| DTL4     SB2    A0
16381  M00S13041.dsdi    +++|          JP     B2          RETURN
16382  M00S13042.dsdi    +++|
16383  M00S13043.dsdi    +++| DTLA     BSS    1           LWA+1 OF POT MEMORY  (LWA+1 IAF FL)
16384  M00S13044.dsdi    +++| DTLB     BSS    1           PLT INDEX AND LINK ORDINAL/POT NUMBER
Line S13045 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16385  M01S13045.dsdi67  ---| DTM      SPACE  4,10
16386  M01S13046.dsdi67  ---|**        DTM - DUMP CYBER 180-990 MAP.
16387  M01S13047.dsdi67  ---|*
16388  M01S13048.dsdi67  ---|*         ENTRY  (X2) = RECORD ID.
16389  M01S13049.dsdi67  ---|*                (X7) = MAXIMUM SET NUMBER.
16390  M01S13050.dsdi67  ---|*
Line S13051 Modification History
M01 (Removed by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16391  M02S13051.dsdi67  ---|*         SAVES  A - 4, 5.
16392  M02S13052.dsdi67  ---|*                B - 1.
16393  M02S13053.dsdi67  ---|*                X - 4.
Line S00028 Modification History
M01 (Added by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16394  M02S00028.dsdi67  ---|*         USES   X - 0, 1, 2, 3, 6, 7.
16395  M02S00029.dsdi67  ---|*                A - 1, 2, 3, 6, 7.
16396  M02S00030.dsdi67  ---|*                B - 3, 6, 7.
Line S13054 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16397  M01S13054.dsdi67  ---|*
Line S13055 Modification History
M01 (Removed by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16398  M02S13055.dsdi67  ---|*         CALLS  CDD, CEP, CNR, HTS, LDC, NXB, PDF, SSB, UPS.
Line S00031 Modification History
M01 (Added by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16399  M02S00031.dsdi67  ---|*         CALLS  CDD, CEP, CNR, DHR, HTS, LDC, PDF, SSB, UPS.
Line S13056 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16400  M01S13056.dsdi67  ---|*
16401  M01S13057.dsdi67  ---|*         MACROS PRINT, SEARCH.
16402  M01S13058.dsdi67  ---|
16403  M01S13059.dsdi67  ---|
16404  M01S13060.dsdi67  ---| DTM5     SA2    DTMA        NEXT TABLE ENTRY
Line S13061 Modification History
M01 (Removed by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16405  M02S13061.dsdi67  ---|          NZ     X2,DTM1     IF MORE RECORDS TO PROCESS
Line S00032 Modification History
M01 (Added by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16406  M02S00032.dsdi67  ---|          ZR     X2,DTMX     IF NO MORE RECORDS TO PROCESS
16407  M02S00033.dsdi67  ---|          SA2    X2+
16408  M02S00034.dsdi67  ---|          EQ     DTM1        PROCESS NEXT RECORD
Line S13062 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16409  M01S13062.dsdi67  ---|
16410  M01S13063.dsdi67  ---| DTM      SUBR               ENTRY/EXIT
16411  M01S13064.dsdi67  ---|          SA7    DTMD        SAVE SET NUMBER
16412  M01S13065.dsdi67  ---|          RJ     CEP         CHECK FOR EXTRANEOUS PARAMETERS
16413  M01S13066.dsdi67  ---|          BX6    X2          SAVE RECORD ID
16414  M01S13067.dsdi67  ---|          SA6    A7+B1
16415  M01S13068.dsdi67  ---|          ERRNZ  DTMD+1-DTME  CODE ASSUMES CONTIGUOUS CELLS
16416  M01S13069.dsdi67  ---|          BX7    X7-X7
16417  M01S13070.dsdi67  ---|          MX0    18
16418  M01S13071.dsdi67  ---|          BX1    X2
16419  M01S13072.dsdi67  ---|          SA7    DTMA        INITIALIZE DIRECTORY TABLE POINTER
16420  M01S13073.dsdi67  ---|          SEARCH TDIR,X1,X0
16421  M01S13074.dsdi67  ---|          ZR     X2,ERR14    IF RECORD ID NOT IN DIRECTORY
16422  M01S13075.dsdi67  ---| DTM1     SB7    C.TDIR
16423  M01S13076.dsdi67  ---|          SB3    DTMA        NEXT TABLE ENTRY
16424  M01S13077.dsdi67  ---|          SA3    DTME
16425  M01S13078.dsdi67  ---|          RJ     CNR         CHECK NEXT RECORD
16426  M01S13079.dsdi67  ---|          MX0    -6          SAVE RADIAL MCI
16427  M01S13080.dsdi67  ---|          AX2    36
16428  M01S13081.dsdi67  ---|          BX6    -X0*X2
16429  M01S13082.dsdi67  ---|          BX7    X7-X7
16430  M01S13083.dsdi67  ---|          SA6    PRBF+13
16431  M01S13084.dsdi67  ---|          SA2    A2+B1       SET RANDOM INDEX
16432  M01S13085.dsdi67  ---|          BX6    X2
16433  M01S13086.dsdi67  ---|          SA6    RI
16434  M01S13087.dsdi67  ---|          SA7    B3+B1       INITIALIZE RUNNING COUNTERS
16435  M01S13088.dsdi67  ---|          ERRNZ  DTMA+1-DTMB  CODE ASSUMES CONTIGUOUS CELLS
16436  M01S13089.dsdi67  ---|          SA7    A7+B1
16437  M01S13090.dsdi67  ---|          ERRNZ  DTMB+1-DTMC  CODE ASSUMES CONTIGUOUS CELLS
16438  M01S13091.dsdi67  ---|          SA7    NXBA
16439  M01S13092.dsdi67  ---|          SA7    A7+B1
16440  M01S13093.dsdi67  ---|          SX3    B0
16441  M01S13094.dsdi67  ---|          RJ     PDF         POSITION DUMP FILE
16442  M01S13095.dsdi67  ---|          RJ     LDC         LIST DIRECTIVE CARD
16443  M01S13096.dsdi67  ---|
16444  M01S13097.dsdi67  ---|*         PRINT  *RADIAL MCI = N*.
16445  M01S13098.dsdi67  ---|
16446  M01S13099.dsdi67  ---|          PRINT  (=2C  )
16447  M01S13100.dsdi67  ---|          SB7    PRBF
16448  M01S13101.dsdi67  ---|          SA2    =13HRADIAL MCI =
16449  M01S13102.dsdi67  ---|          SB6    13
16450  M01S13103.dsdi67  ---|          RJ     UPS         UNPACK MESSAGE
16451  M01S13104.dsdi67  ---|          PRINT  CCCH,15
16452  M01S13105.dsdi67  ---|          PRINT  (=2C  )
16453  M01S13106.dsdi67  ---|
16454  M01S13107.dsdi67  ---|*         PRINT COLUMN HEADERS.
16455  M01S13108.dsdi67  ---|
16456  M01S13109.dsdi67  ---|          RJ     SSB         SPACE FILL STRING BUFFER
16457  M01S13110.dsdi67  ---|          PRINT  (=C* SET  ENTRY   CONTENTS *)
16458  M01S13111.dsdi67  ---|          PRINT  (=2C  )
16459  M01S13112.dsdi67  ---|
16460  M01S13113.dsdi67  ---|*         TEST END CONDITIONS, INCREMENT CURRENT SET NUMBER IF NEEDED.
16461  M01S13114.dsdi67  ---|
16462  M01S13115.dsdi67  ---| DTM2     SA3    DTMB        CURRENT ENTRY NUMBER
16463  M01S13116.dsdi67  ---|          SX3    X3-32D
16464  M01S13117.dsdi67  ---|          NG     X3,DTM3     IF NOT FINISHED WITH SET
16465  M01S13118.dsdi67  ---|          SA2    A3+B1       GET CURRENT SET NUMBER
16466  M01S13119.dsdi67  ---|          SA1    A2+B1       GET MAXIMUM SET NUMBER
16467  M01S13120.dsdi67  ---|          ERRNZ  DTMC+1-DTMD  CODE ASSUMES CONTIGUOUS CELLS
16468  M01S13121.dsdi67  ---|          IX1    X1-X2
16469  M01S13122.dsdi67  ---|          ZR     X1,DTM5     IF MAXIMUM .EQ. CURRENT
16470  M01S13123.dsdi67  ---|          SX7    X2+B1       INCREMENT CURRENT SET NUMBER
16471  M01S13124.dsdi67  ---|          SA7    A2
16472  M01S13125.dsdi67  ---|          BX7    X7-X7       RESET CURRENT ENTRY NUMBER
16473  M01S13126.dsdi67  ---|          SA7    A3+
16474  M01S13127.dsdi67  ---|
16475  M01S13128.dsdi67  ---|*         PRINT SET AND ENTRY NUMBERS.
16476  M01S13129.dsdi67  ---|
16477  M01S13130.dsdi67  ---| DTM3     SA1    DTMC        DISPLAY SET NUMBER
16478  M01S13131.dsdi67  ---|          LX1    59-3
16479  M01S13132.dsdi67  ---|          SB6    B1
16480  M01S13133.dsdi67  ---|          SB7    PRBF+1
16481  M01S13134.dsdi67  ---|          RJ     HTS
16482  M01S13135.dsdi67  ---|          SA1    DTMB        DISPLAY ENTRY NUMBER
16483  M01S13136.dsdi67  ---|          RJ     CDD
16484  M01S13137.dsdi67  ---|          BX2    X6
16485  M01S13138.dsdi67  ---|          LX2    59-11
16486  M01S13139.dsdi67  ---|          SB7    PRBF+6
16487  M01S13140.dsdi67  ---|          SB6    2
16488  M01S13141.dsdi67  ---|          RJ     UPS
Line S13142 Modification History
M01 (Removed by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16489  M02S13142.dsdi67  ---|          SX5    4
16490  M02S13143.dsdi67  ---| DTM4     SA0    B7+2        SAVE CURRENT POSITION IN DISPLAY LINE
16491  M02S13144.dsdi67  ---|          RJ     NXB         GET NEXT 16 BITS OF REGISTER
16492  M02S13145.dsdi67  ---|          SB7    A0
16493  M02S13146.dsdi67  ---|          SB6    4
16494  M02S13147.dsdi67  ---|          LX1    59-15
16495  M02S13148.dsdi67  ---|          RJ     HTS         DISPLAY 4 HEX DIGITS
16496  M02S13149.dsdi67  ---|          SX5    X5-1
16497  M02S13150.dsdi67  ---|          NZ     X5,DTM4     IF MORE DATA TO DISPLAY
16498  M02S13151.dsdi67  ---|          PRINT  CCCH,B7-CCCH+1
Line S00035 Modification History
M01 (Added by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16499  M02S00035.dsdi67  ---|          RJ     DHR         DISPLAY REGISTER
Line S13152 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16500  M01S13152.dsdi67  ---|          SA1    DTMB        INCREMENT CURRENT ENTRY NUMBER
16501  M01S13153.dsdi67  ---|          SX7    X1+B1
16502  M01S13154.dsdi67  ---|          SA7    A1
16503  M01S13155.dsdi67  ---|          EQ     DTM2        DISPLAY NEXT REGISTER
16504  M01S13156.dsdi67  ---|
16505  M01S13157.dsdi67  ---| DTMA     CON    0           NEXT DIRECTORY TABLE ENTRY POINTER
16506  M01S13158.dsdi67  ---| DTMB     CON    0           CURRENT ENTRY NUMBER
16507  M01S13159.dsdi67  ---| DTMC     CON    0           CURRENT SET NUMBER
16508  M01S13160.dsdi67  ---| DTMD     CON    0           MAXIMUM SET NUMBER
16509  M01S13161.dsdi67  ---| DTME     CON    0           RECORD ID
16510  M00S13162.dsdi    +++| DTP      SPACE  4,7
16511  M00S13163.dsdi    +++|**        DTP - DUMP IAF PPUS.
16512  M00S13164.dsdi    +++|*
16513  M00S13165.dsdi    +++|*         ENTRY  A0 = RETURN ADDRESS.
16514  M00S13166.dsdi    +++|*
16515  M00S13167.dsdi    +++|*         USES   ALL REGISTERS.
16516  M00S13168.dsdi    +++|*
16517  M00S13169.dsdi    +++|*         CALLS  ASP.
16518  M00S13170.dsdi    +++|
16519  M00S13171.dsdi    +++|
16520  M00S13172.dsdi    +++| DTP      SX6    DTPA
16521  M00S13173.dsdi    +++|          JP     ASP
16522  M00S13174.dsdi    +++|
16523  M00S13175.dsdi    +++| DTPA     VFD    18/3LTLX,42/0
16524  M00S13176.dsdi    +++|          VFD    18/3L1TA,42/0
16525  M00S13177.dsdi    +++|          VFD    18/3L1TN,42/0
16526  M00S13178.dsdi    +++|          VFD    18/3L1TO,42/0
16527  M00S13179.dsdi    +++|          VFD    18/3L1RO,6/0,1/1,18/0,5/TXOT,12/0
16528  M00S13180.dsdi    +++|          VFD    18/3L1RI,6/0,1/1,18/0,5/TXOT,12/0
16529  M00S13181.dsdi    +++|          VFD    60/-1       END OF PARAMETER BLOCK
16530  M00S13182.dsdi    +++| DTQ      SPACE  4,13
16531  M00S13183.dsdi    +++|**        DTQ - DUMP TEN BYTES IN *Q* FORMAT.
16532  M00S13184.dsdi    +++|*
16533  M00S13185.dsdi    +++|*         ENTRY  B2 = BYTE BUFFER ADDRESS.
16534  M00S13186.dsdi    +++|*                B7 = PRINT STRING ADDRESS.
16535  M00S13187.dsdi    +++|*                X4 = CURRENT PPU ADDRESS.
16536  M00S13188.dsdi    +++|*
16537  M00S13189.dsdi    +++|*         EXIT   B2 AND B7 ARE UPDATED.
16538  M00S13190.dsdi    +++|*
16539  M00S13191.dsdi    +++|*         SAVES  X - 3,4,5.
16540  M00S13192.dsdi    +++|*                B - NONE.
16541  M00S13193.dsdi    +++|*                A - 0,3,4,5.
16542  M00S13194.dsdi    +++|*
16543  M00S13195.dsdi    +++|*         CALLS  CTS,UPS.
16544  M00S13196.dsdi    +++|
16545  M00S13197.dsdi    +++|
16546  M00S13198.dsdi    +++| DTQ      SUBR
16547  M00S13199.dsdi    +++|          BX1    X4
16548  M00S13200.dsdi    +++|          LX1    -15
16549  M00S13201.dsdi    +++|          SB6    5
16550  M00S13202.dsdi    +++|          RJ     CTS         CONVERT ADDRESS
16551  M00S13203.dsdi    +++|          SB7    B7+2        SPACE 2
16552  M00S13204.dsdi    +++|          SB4    10B         BYTE COUNTER
16553  M00S13205.dsdi    +++| DTQ1     SA1    B2+         READ BYTE
16554  M00S13206.dsdi    +++|          SB6    4
16555  M00S13207.dsdi    +++|          NZ     X1,DTQ2     IF NOT A ZERO BYTE
16556  M00S13208.dsdi    +++|          SA2    =4L----
16557  M00S13209.dsdi    +++|          RJ     UPS         STORE ZERO INDICATOR
16558  M00S13210.dsdi    +++|          JP     DTQ3
16559  M00S13211.dsdi    +++|
16560  M00S13212.dsdi    +++| DTQ2     RJ     CTS         CONVERT BYTE
16561  M00S13213.dsdi    +++| DTQ3     SB7    B7+B1
16562  M00S13214.dsdi    +++|          SB2    B2+B1
16563  M00S13215.dsdi    +++|          SB4    B4-1        COUNT BYTE
16564  M00S13216.dsdi    +++|          NZ     B4,DTQ1     IF MORE TO DUMP
16565  M00S13217.dsdi    +++|
16566  M00S13218.dsdi    +++|*         SET INTERPRETATION.
16567  M00S13219.dsdi    +++|
16568  M00S13220.dsdi    +++|          SB5    B2
16569  M00S13221.dsdi    +++|          MX0    -6
16570  M00S13222.dsdi    +++|          SB2    B2-10B
16571  M00S13223.dsdi    +++|          SB7    B7+1
16572  M00S13224.dsdi    +++| DTQ4     SA1    B2+
16573  M00S13225.dsdi    +++|          SB3    2
16574  M00S13226.dsdi    +++| DTQ5     LX1    6
16575  M00S13227.dsdi    +++|          BX6    -X0*X1
16576  M00S13228.dsdi    +++|          ZR     X6,DTQ6     IF COLON
16577  M00S13229.dsdi    +++|          SX7    X6-60B
16578  M00S13230.dsdi    +++|          NG     X7,DTQ7     IF NOT A PRINTER SLOWER DOWNER
16579  M00S13231.dsdi    +++| DTQ6     SX6    1R
16580  M00S13232.dsdi    +++| DTQ7     SA6    B7          STORE CHARACTER
16581  M00S13233.dsdi    +++|          SB7    B7+B1
16582  M00S13234.dsdi    +++|          SB3    B3-1
16583  M00S13235.dsdi    +++|          NZ     B3,DTQ5     IF ONE MORE CHARACTER
16584  M00S13236.dsdi    +++|          SB2    B2+1
16585  M00S13237.dsdi    +++|          LT     B2,B5,DTQ4  IF MORE TO INTERPRET
16586  M00S13238.dsdi    +++|          JP     DTQX        EXIT
16587  M00S13239.dsdi    +++| DTT      SPACE  4,10
16588  M00S13240.dsdi    +++|**        DTT - DUMP IAF TERMINAL TABLES.
16589  M00S13241.dsdi    +++|*
16590  M00S13242.dsdi    +++|*         ENTRY  (A0) = RETURN ADDRESS.
16591  M00S13243.dsdi    +++|*                (RC) = CONTROL POINT REFERENCE ADDRESS.
16592  M00S13244.dsdi    +++|*                (TFMT) = MESSAGE STATUS TABLE FORMAT POINTERS.
16593  M00S13245.dsdi    +++|*                (TFTT) = TERMINAL TABLE FORMAT POINTERS.
16594  M00S13246.dsdi    +++|*
16595  M00S13247.dsdi    +++|*         USES   X - ALL.
16596  M00S13248.dsdi    +++|*                A - 1, 2, 5, 6, 7.
16597  M00S13249.dsdi    +++|*                B - 2, 6, 7.
16598  M00S13250.dsdi    +++|*
16599  M00S13251.dsdi    +++|*         CALLS  CTS, GTD, PCM, PCW, UPS.
16600  M00S13252.dsdi    +++|*
16601  M00S13253.dsdi    +++|*         MACROS ALLOC, GETCM, PRINT.
16602  M00S13254.dsdi    +++|
16603  M00S13255.dsdi    +++|
16604  M00S13256.dsdi    +++| DTT      SX6    A0          SAVE RETURN ADDRESS
16605  M00S13257.dsdi    +++|          SA6    DTTF
16606  M00S13258.dsdi    +++|          PRINT  (=2C  )
16607  M00S13259.dsdi    +++|          PRINT  (=C*          IAF TERMINAL TABLES*)
16608  M00S13260.dsdi    +++|
16609  M00S13261.dsdi    +++|*         READ MESSAGE STATUS TABLE INTO CORE.
16610  M00S13262.dsdi    +++|
16611  M00S13263.dsdi    +++|          SA2    RC          GET FWA MSG STATUS TABLE
16612  M00S13264.dsdi    +++|          SA1    SSBF+/REM/VMST
16613  M00S13265.dsdi    +++|          AX1    24
16614  M00S13266.dsdi    +++|          IX3    X1+X2
16615  M00S13267.dsdi    +++|          SA5    SSBF+/REM/VNTP  GET FWA NETWORK ENTRIES
16616  M00S13268.dsdi    +++|          SB2    24D
16617  M00S13269.dsdi    +++|          AX0    X5,B2
16618  M00S13270.dsdi    +++|          SX6    X3+         PRESET FWA NETWORK ENTRIES
16619  M00S13271.dsdi    +++|          SA6    DTTE+1
16620  M00S13272.dsdi    +++|          SX6    X6-1
16621  M00S13273.dsdi    +++|          SA6    A6-B1
16622  M00S13274.dsdi    +++|          RJ     PCM         POSITION TO FIRST MST NETWORK ENTRY
16623  M00S13275.dsdi    +++|          IX2    X5-X0       SET NETWORK TERMINAL TABLE ENTRY COUNT
16624  M00S13276.dsdi    +++|          SX2    X2+B1
16625  M00S13277.dsdi    +++|          GETCM  BUF+/REM/VTTL,X2
16626  M00S13278.dsdi    +++|
16627  M00S13279.dsdi    +++|*         INITIALIZE DUMP OF TERMINAL TABLES.
16628  M00S13280.dsdi    +++|
16629  M00S13281.dsdi    +++|          SA1    SSBF+/REM/VTTP
16630  M00S13282.dsdi    +++|          SX2    X1          LWA+1
16631  M00S13283.dsdi    +++|          AX1    24
16632  M00S13284.dsdi    +++|          SX6    X1          FWA
16633  M00S13285.dsdi    +++|          IX4    X2-X6
16634  M00S13286.dsdi    +++|          NG     X4,DTT2     IF (LWA+1) .LT. (FWA)
16635  M00S13287.dsdi    +++|          SX6    X6-/REM/VTTL
16636  M00S13288.dsdi    +++|          SA6    DTTA        PRESET FWA OF FIRST TABLE
16637  M00S13289.dsdi    +++|          SX5    /REM/VTTL
16638  M00S13290.dsdi    +++|          IX7    X4/X5
16639  M00S13291.dsdi    +++|          SX6    -1
16640  M00S13292.dsdi    +++|          SA7    DTTB        TOTAL TERMINAL TABLES TO DUMP
16641  M00S13293.dsdi    +++|          SA6    DTTC        PRESET TERMINAL NUMBER
16642  M00S13294.dsdi    +++|          SA2    RC
16643  M00S13295.dsdi    +++|          IX3    X1+X2
16644  M00S13296.dsdi    +++|          RJ     PCM         POSITION TO FIRST TERMINAL TABLE
16645  M00S13297.dsdi    +++|
16646  M00S13298.dsdi    +++|*         DUMP ONLY THOSE TERMINAL TABLES WITH IMPORTANT INFORMATION.
16647  M00S13299.dsdi    +++|
16648  M00S13300.dsdi    +++| DTT1     SA2    DTTC        UPDATE TERMINAL NUMBER
16649  M00S13301.dsdi    +++|          SX6    X2+1
16650  M00S13302.dsdi    +++|          SA6    A2
16651  M00S13303.dsdi    +++|          SA1    DTTB
16652  M00S13304.dsdi    +++|          IX3    X6-X1
16653  M00S13305.dsdi    +++|          ZR     X3,DTT3     IF ALL TABLES DUMPED
16654  M00S13306.dsdi    +++|          SA1    DTTA        SET NEXT TERMINAL FWA
16655  M00S13307.dsdi    +++|          SX6    X1+/REM/VTTL
16656  M00S13308.dsdi    +++|          SA6    DTTA
16657  M00S13309.dsdi    +++|          SA1    DTTE        INCREMENT MSG STATUS TABLE INDEX
16658  M00S13310.dsdi    +++|          SX6    X1+B1
16659  M00S13311.dsdi    +++|          SA6    A1
16660  M00S13312.dsdi    +++|          GETCM  BUF,/REM/VTTL  READ TERMINAL TABLE
16661  M00S13313.dsdi    +++|          SB7    /REM/VTTL   CHECK FOR EMPTY TERMINAL TABLE
16662  M00S13314.dsdi    +++|          SB6    -1
16663  M00S13315.dsdi    +++| DTT1.1   SB6    B6+1
16664  M00S13316.dsdi    +++|          EQ     B6,B7,DTT1  IF EMPTY TABLE FOUND
16665  M00S13317.dsdi    +++|          SA1    BUF+B6      READ TABLE ENTRY
16666  M00S13318.dsdi    +++|          SB2    B6-/REM/VROT
16667  M00S13319.dsdi    +++|          NZ     B2,DTT1.2   IF NOT STATUS WORD
16668  M00S13320.dsdi    +++|          SX1    X1-1        ALLOW FOR STATUS BIT
16669  M00S13321.dsdi    +++| DTT1.2   ZR     X1,DTT1.1   IF ONLY STATUS BIT SET
16670  M00S13322.dsdi    +++|          PRINT  (=2C  )
16671  M00S13323.dsdi    +++|          SB7    PRBF
16672  M00S13324.dsdi    +++|          SA2    =5HTERM
16673  M00S13325.dsdi    +++|          SB6    5
16674  M00S13326.dsdi    +++|          RJ     UPS         STORE IN PRINT STRING
16675  M00S13327.dsdi    +++|          SB6    4
16676  M00S13328.dsdi    +++|          SA1    DTTC
16677  M00S13329.dsdi    +++|          LX1    -12
16678  M00S13330.dsdi    +++|          RJ     CTS         CONVERT TERMINAL NUMBER
16679  M00S13331.dsdi    +++|          PRINT  CCCH,B7-CCCH
16680  M00S13332.dsdi    +++|          PRINT  (=2C  )
16681  M00S13333.dsdi    +++|          SA1    DTTA
16682  M00S13334.dsdi    +++|          BX6    X1
16683  M00S13335.dsdi    +++|          BX2    -X1
16684  M00S13336.dsdi    +++|          SB2    X2+BUF      SET CORE ADDRESS OF TABLE DATA
16685  M00S13337.dsdi    +++|          SA6    FW          SET PRINT ADDRESS
16686  M00S13338.dsdi    +++|          SA1    TFTT        FORMAT TABLE POINTERS
16687  M00S13339.dsdi    +++|          RJ     GTD         GENERATE DETAILED TABLE DUMP
16688  M00S13340.dsdi    +++|
16689  M00S13341.dsdi    +++|*         DUMP MESSAGE STATUS TABLE ENTRY, IF NETWORK TERMINAL TABLE.
16690  M00S13342.dsdi    +++|
16691  M00S13343.dsdi    +++|          SA1    SSBF+/REM/VNTP  GET FIRST NETWORK TERMINAL NUMBER
16692  M00S13344.dsdi    +++|          SA2    DTTC
16693  M00S13345.dsdi    +++|          AX1    24
16694  M00S13346.dsdi    +++|          SX1    X1+
16695  M00S13347.dsdi    +++|          IX1    X2-X1
16696  M00S13348.dsdi    +++|          NG     X1,DTT1     IF MUX TERMINAL TABLE
16697  M00S13349.dsdi    +++|          PRINT  (=2C  )
16698  M00S13350.dsdi    +++|          SA1    DTTE        SET MSG STATUS TABLE ENTRY ADDRESS
16699  M00S13351.dsdi    +++|          SX6    X1+
16700  M00S13352.dsdi    +++|          SA6    FW
16701  M00S13353.dsdi    +++|          SX1    BUF+/REM/VTTL  SET CORE ADDRESS OF TABLE DATA
16702  M00S13354.dsdi    +++|          SA2    DTTE+1
16703  M00S13355.dsdi    +++|          IX1    X1-X2
16704  M00S13356.dsdi    +++|          SB2    X1+
16705  M00S13357.dsdi    +++|          SA1    TFMT        SET NETWORK FORMAT TABLE POINTERS
16706  M00S13358.dsdi    +++|          RJ     GTD         GENERATE DETAILED DUMP OF MST WORD
16707  M00S13359.dsdi    +++|          EQ     DTT1        DUMP NEXT TERMINAL TABLE
16708  M00S13360.dsdi    +++|
16709  M00S13361.dsdi    +++|*         PRINT TERMINAL TABLE BOUNDARY ADDRESSES, IF NO TABLES FOUND.
16710  M00S13362.dsdi    +++|
16711  M00S13363.dsdi    +++| DTT2     SA5    DTTD
16712  M00S13364.dsdi    +++|          RJ     PCW         PRINT CONTENTS OF *VTTP* WORD
16713  M00S13365.dsdi    +++| DTT3     SA1    DTTF        RESTORE RETURN ADDRESS
16714  M00S13366.dsdi    +++|          SB2    X1+
16715  M00S13367.dsdi    +++|          JP     B2          RETURN
16716  M00S13368.dsdi    +++|
16717  M00S13369.dsdi    +++| DTTA     BSS    1           FWA OF TERMINAL TABLE
16718  M00S13370.dsdi    +++| DTTB     BSS    1           NUMBER OF TERMINALS TO DUMP
16719  M00S13371.dsdi    +++| DTTC     BSS    1           NUMBER OF TERMINALS DUMPED
16720  M00S13372.dsdi    +++| DTTD     VFD    36/6L*VTTP*,6/0,18//REM/VTTP  PARAMETER LIST FOR PCW
16721  M00S13373.dsdi    +++|          DATA   40HIAF TERMINAL TABLE FWA, LWA+1
16722  M00S13374.dsdi    +++|          VFD    60/0
16723  M00S13375.dsdi    +++| DTTE     BSS    1           MSG STATUS TABLE ENTRY ADDRESS
16724  M00S13376.dsdi    +++|          BSS    1           FWA MSG STATUS TABLE
16725  M00S13377.dsdi    +++| DTTF     BSS    1           SAVED RETURN ADDRESS
16726  M00S13378.dsdi    +++| ECS      SPACE  4,10
16727  M00S13379.dsdi    +++|**        ECS - PROCESS *ECS* RECORD.
16728  M00S13380.dsdi    +++|*
16729  M00S13381.dsdi    +++|*         ENTRY  VIA UNCONDITIONAL JUMP.
16730  M00S13382.dsdi    +++|*
16731  M00S13383.dsdi    +++|*         EXIT   TO *CMP1* TO READ THE *ECS* RECORD.
16732  M00S13384.dsdi    +++|*
16733  M00S13385.dsdi    +++|*         USES   X - 1, 6.
16734  M00S13386.dsdi    +++|*                A - 1, 6.
16735  M00S13387.dsdi    +++|
16736  M00S13388.dsdi    +++|
16737  M00S13389.dsdi    +++| ECS      SA1    BUF+1       TRANSFER TITLE
16738  M00S13390.dsdi    +++|          BX6    X1
16739  M00S13391.dsdi    +++|          SA6    TITL2
16740  M00S13392.dsdi    +++|          SA1    BUF         GET WORD COUNT
16741  M00S13393.dsdi    +++|          MX6    -12
16742  M00S13394.dsdi    +++|          BX6    -X6*X1      WORD COUNT/1000B
16743  M00S13395.dsdi    +++|          SA2    ECSA        3LESM = ESM RECORD HDR
16744  M00S13396.dsdi    +++|          BX2    X2-X1       COMPARE WITH EDD RECORD HDR
16745  M00S13397.dsdi    +++|          MX0    18D         MASK 3 CHARACTERS
16746  M00S13398.dsdi    +++|          BX2    X2*X0       RELEVANT PART OF COMPARE
16747  M00S13399.dsdi    +++|          NZ     X2,CMP1     IF NOT *ESM* RECORD
16748  M00S13400.dsdi    +++|          LX6    3           CONVERT WORD COUNT
16749  M00S13401.dsdi    +++|          EQ     CMP1        READ *ESM* RECORD
16750  M00S13402.dsdi    +++|
16751  M00S13403.dsdi    +++| ECSA     DATA   3LESM       *ESM* RECORD HEADER
16752  M00S13404.dsdi    +++| ESM      EQU    ECS
Line S13405 Modification History
M01 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16753  M01S13405.271l739 ---| EIC      SPACE  4,15
16754  M01S13406.271l739 ---|**        EIC - SKIP *EIC* BLOCK.
16755  M01S13407.271l739 ---|*
16756  M01S13408.271l739 ---|*         ENTRY  VIA UNCONDITIONAL JUMP.
16757  M01S13409.271l739 ---|*
16758  M01S13410.271l739 ---|*         EXIT   TO *RBI2* IF BLOCK READ COMPLETE.
16759  M01S13411.271l739 ---|*                TO *RBI2.1* IF *MEM* HEADER RECORD READ.
16760  M01S13412.271l739 ---|*
Line S13413 Modification History
M01 (Removed by) dsdi73
M02 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16761  M02S13413.271l739 ---|*         ERROR  TO *ERR29* IF PREMATURE END OF FILE DETECTED.
Line S00011 Modification History
M01 (Added by) dsdi73
M02 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16762  M02S00011.271l739 ---|*         ERROR  TO *PPE1* IF PREMATURE EOF DETECTED.
Line S13414 Modification History
M01 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16763  M01S13414.271l739 ---|*
16764  M01S13415.271l739 ---|*         USES   X - 1, 2, 3, 5.
16765  M01S13416.271l739 ---|*                A - 1, 3.
16766  M01S13417.271l739 ---|*                B - NONE.
16767  M01S13418.271l739 ---|*
16768  M01S13419.271l739 ---|*         CALLS  RBF.
16769  M01S13420.271l739 ---|
16770  M01S13421.271l739 ---|
16771  M01S13422.271l739 ---| EIC      BSS    0           ENTRY
16772  M01S13423.271l739 ---| EIC1     RJ     RBF         READ BLOCK FROM FILE *F*
Line S13424 Modification History
M01 (Removed by) dsdi73
M02 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16773  M02S13424.271l739 ---|          NZ     X1,ERR29    IF PREMATURE EOF
Line S00012 Modification History
M01 (Added by) dsdi73
M02 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16774  M02S00012.271l739 ---|          NZ     X1,PPE1     IF PREMATURE EOF
Line S13425 Modification History
M01 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16775  M01S13425.271l739 ---|          SA1    BWCF
16776  M01S13426.271l739 ---|          SX2    X1-512
16777  M01S13427.271l739 ---|          ZR     X2,EIC1     IF COMPLETE BLOCK READ
16778  M01S13428.271l739 ---|          SX2    X1-4
16779  M01S13429.271l739 ---|          NZ     X2,RBI2     IF *EIC* BLOCK READ COMPLETE
16780  M01S13430.271l739 ---|          SA3    BUF
16781  M01S13431.271l739 ---|          LX3    18
16782  M01S13432.271l739 ---|          SX5    X3-3RMEM
16783  M01S13433.271l739 ---|          NZ     X5,RBI2     IF *EIC* BLOCK READ COMPLETE
16784  M01S13434.271l739 ---|          EQ     RBI2.1      PROCESS *MEM* BLOCK
16785  M00S13435.dsdi    +++| ERF      SPACE  4,15
16786  M00S13436.dsdi    +++|**        ERF - POSITION TO EOR ON FILE F.
16787  M00S13437.dsdi    +++|*
Line S13438 Modification History
M01 (Removed by) dsdi73
Seq #  *Modification Id* Act 
----------------------------+
16788  M01S13438.dsdi73  ---|*         EXIT   TO *ERR26* IF PREMATURE EOF.
Line S00013 Modification History
M01 (Added by) dsdi73
Seq #  *Modification Id* Act 
----------------------------+
16789  M01S00013.dsdi73  +++|*         EXIT   TO *PPE1* IF PREMATURE EOF.
16790  M00S13439.dsdi    +++|*
16791  M00S13440.dsdi    +++|*         USES   A - 1.
16792  M00S13441.dsdi    +++|*                X - 1.
16793  M00S13442.dsdi    +++|*
Line S13443 Modification History
M01 (Removed by) dsdi88
Seq #  *Modification Id* Act 
----------------------------+
16794  M01S13443.dsdi88  ---|*         CALLS  RBF.
Line S00010 Modification History
M01 (Added by) dsdi88
Seq #  *Modification Id* Act 
----------------------------+
16795  M01S00010.dsdi88  +++|*         CALLS  RBH.
16796  M00S13444.dsdi    +++|
16797  M00S13445.dsdi    +++|
16798  M00S13446.dsdi    +++| ERF      SUBR               ENTRY/EXIT
16799  M00S13447.dsdi    +++| ERF1     SA1    EORF
16800  M00S13448.dsdi    +++|          NG     X1,ERFX     IF AT EOR
Line S13449 Modification History
M01 (Removed by) dsdi88
Seq #  *Modification Id* Act 
----------------------------+
16801  M01S13449.dsdi88  ---|          RJ     RBF         READ 512 WORDS
Line S00011 Modification History
M01 (Added by) dsdi88
Seq #  *Modification Id* Act 
----------------------------+
16802  M01S00011.dsdi88  +++|          RJ     RBH         READ BLOCK OR HEADER
16803  M00S13450.dsdi    +++|          ZR     X1,ERF1     IF NOT EOF
Line S13451 Modification History
M01 (Removed by) dsdi73
Seq #  *Modification Id* Act 
----------------------------+
16804  M01S13451.dsdi73  ---|          EQ     ERR29       PREMATURE EOF
Line S00014 Modification History
M01 (Added by) dsdi73
Seq #  *Modification Id* Act 
----------------------------+
16805  M01S00014.dsdi73  +++|          EQ     PPE1        PREMATURE EOF
16806  M00S13452.dsdi    +++| ERS      SPACE  4,15
16807  M00S13453.dsdi    +++|**        ERS - END RECORD ON S-FILE.
16808  M00S13454.dsdi    +++|*
16809  M00S13455.dsdi    +++|*         ENTRY  (ID)   = RECORD ID.
16810  M00S13456.dsdi    +++|*                (RWCS) = RECORD LENGTH.
16811  M00S13457.dsdi    +++|*
16812  M00S13458.dsdi    +++|*         EXIT   BUFFER WRITTEN TO *S*.
16813  M00S13459.dsdi    +++|*                *TDIR* DIRECTORY ENTRY MADE.
16814  M00S13460.dsdi    +++|*                (RWCS) = 0.
16815  M00S13461.dsdi    +++|*
16816  M00S13462.dsdi    +++|*         USES   A - 1, 2, 5, 6, 7.
16817  M00S13463.dsdi    +++|*                X - 1, 2, 5, 6, 7.
16818  M00S13464.dsdi    +++|*
16819  M00S13465.dsdi    +++|*         MACROS ADDWORD, WRITER.
16820  M00S13466.dsdi    +++|
16821  M00S13467.dsdi    +++|
16822  M00S13468.dsdi    +++| ERS      SUBR               ENTRY/EXIT
16823  M00S13469.dsdi    +++|          WRITER S,R         WRITE BUFFER TO FILE
16824  M00S13470.dsdi    +++|          SA1    ID
16825  M00S13471.dsdi    +++|          ADDWRD TDIR,X1     PUT RECORD ID IN DIRECTORY ENTRY
16826  M00S13472.dsdi    +++|          ADDWRD A0,X1-X1    CLEAR DIRECTORY ENTRY WORD 2
16827  M00S13473.dsdi    +++|          SA5    ERSA        RANDOM INDEX OF RECORD
16828  M00S13474.dsdi    +++|          SA2    RWCS
16829  M00S13475.dsdi    +++|          LX2    30
16830  M00S13476.dsdi    +++|          BX6    X2+X5
16831  M00S13477.dsdi    +++|          SA6    A6
16832  M00S13478.dsdi    +++|          SX7    B0          RESET RECORD LENGTH
16833  M00S13479.dsdi    +++|          SA7    RWCS
16834  M00S13480.dsdi    +++|          SX6    ERSA
16835  M00S13481.dsdi    +++|          SA6    S+6         GET RANDOM INDEX OF NEXT RECORD
16836  M00S13482.dsdi    +++|          EQ     ERSX        RETURN
16837  M00S13483.dsdi    +++|
16838  M00S13484.dsdi    +++|
16839  M00S13485.dsdi    +++| ERSA     DATA   1           CURRENT RANDOM INDEX
16840  M00S13486.dsdi    +++| EVA      SPACE  4,10
16841  M00S13487.dsdi    +++|**        EVA - EXPAND VIRTUAL ADDRESS.
16842  M00S13488.dsdi    +++|*
16843  M00S13489.dsdi    +++|*         ENTRY  (X6) = PROCESS VIRTUAL ADDRESS.
16844  M00S13490.dsdi    +++|*
16845  M00S13491.dsdi    +++|*         EXIT   (X6) = SEGMENT NUMBER.
16846  M00S13492.dsdi    +++|*                (X7) = BYTE OFFSET.
16847  M00S13493.dsdi    +++|*                (X2) = 0, IF THE ADDRESS IN X6 IS THE NIL POINTER.
16848  M00S13494.dsdi    +++|*
16849  M00S13495.dsdi    +++|*         USES   X - 1, 2, 6, 7.
16850  M00S13496.dsdi    +++|*                A - 1.
16851  M00S13497.dsdi    +++|
16852  M00S13498.dsdi    +++|
16853  M00S13499.dsdi    +++| EVA      SUBR               ENTRY/EXIT
16854  M00S13500.dsdi    +++|          SA1    EVAA
16855  M00S13501.dsdi    +++|          BX2    X6*X1
16856  M00S13502.dsdi    +++|          BX2    X2-X1
16857  M00S13503.dsdi    +++|          ZR     X2,EVAX     IF NIL POINTER
16858  M00S13504.dsdi    +++|          MX2    -32-12
16859  M00S13505.dsdi    +++|          BX7    -X2*X6      ISOLATE BYTE OFFSET
16860  M00S13506.dsdi    +++|          BX2    X2*X6       ISOLATE RING NUMBER
16861  M00S13507.dsdi    +++|          BX6    X1*X7       ISOLATE SEGMENT NUMBER
16862  M00S13508.dsdi    +++|          BX2    X1*X2
16863  M00S13509.dsdi    +++|          ZR     X2,ERR45    IF RING ZERO
16864  M00S13510.dsdi    +++|          JP     EVAX        RETURN
16865  M00S13511.dsdi    +++|
16866  M00S13512.dsdi    +++| EVAA     DATA   0#FFFF80000000  NIL POINTER
16867  M00S13513.dsdi    +++| FAC      SPACE  4,13
16868  M00S13514.dsdi    +++|**        FAC - FIND ASSIGNED CHANNEL.
16869  M00S13515.dsdi    +++|*
16870  M00S13516.dsdi    +++|*         ENTRY  (B2) = PPU NUMBER.
16871  M00S13517.dsdi    +++|*                (BUF - BUF+MXCH) = CHANNEL RESERVATION BYTES
16872  M00S13518.dsdi    +++|*                  FROM CHANNEL STATUS TABLE, ONE BYTE PER WORD,
16873  M00S13519.dsdi    +++|*                  LEFT JUSTIFIED.
16874  M00S13520.dsdi    +++|*
16875  M00S13521.dsdi    +++|*         EXIT   (X1) = NUMBER OF ASSIGNED CHANNEL.
16876  M00S13522.dsdi    +++|*                     .LT. 0, IF NO MORE CHANNELS ASSIGNED.
16877  M00S13523.dsdi    +++|*
16878  M00S13524.dsdi    +++|*         USES   X - 0, 1, 2, 3, 6.
16879  M00S13525.dsdi    +++|*                A - 1, 3, 6.
16880  M00S13526.dsdi    +++|*                B - 3, 5.
16881  M00S13527.dsdi    +++|
16882  M00S13528.dsdi    +++|
Line S00021 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
16883  M01S00021.dsdi78  +++| FAC3     MX6    0           CLEAR RESERVATION ENTRY
16884  M01S00022.dsdi78  +++|          SA6    B3
16885  M01S00023.dsdi78  +++|          SX1    B3-BUF      SET ASSIGNED CHANNEL NUMBER
16886  M01S00024.dsdi78  +++|
16887  M00S13529.dsdi    +++| FAC      SUBR
16888  M00S13530.dsdi    +++|          SX2    B2          CHANNEL NUMBER
16889  M00S13531.dsdi    +++|          MX0    -6
16890  M00S13532.dsdi    +++|          SX3    X2-20B
16891  M00S13533.dsdi    +++|          SB3    BUF         CHANNEL TABLE ADDRESS
16892  M00S13534.dsdi    +++|          SB5    B3+MXCH     CHANNEL STATUS TABLE LWA+1
Line S13535 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
16893  M01S13535.dsdi78  ---|          SA1    FPLB
Line S00025 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
16894  M01S00025.dsdi78  +++|          SA1    IC
16895  M00S13536.dsdi    +++|          ZR     X1,FAC0     IF NOT CPP
16896  M00S13537.dsdi    +++|          SX2    X2+24B
16897  M00S13538.dsdi    +++|          JP     FAC1        PROCESS CHANNELS FOR CPP-S
16898  M00S13539.dsdi    +++|
16899  M00S13540.dsdi    +++| FAC0     NG     X3,FAC1     IF NOT PP 20 - 31
16900  M00S13541.dsdi    +++|          SX2    X2-20B+12B  CORRECT PPU INDEX
16901  M00S13542.dsdi    +++| FAC1     SA3    B3+         READ TABLE
16902  M00S13543.dsdi    +++|          LX3    12
16903  M00S13544.dsdi    +++|          BX3    -X0*X3
16904  M00S13545.dsdi    +++|          ZR     X3,FAC2     IF CHANNEL NOT ASSIGNED
16905  M00S13546.dsdi    +++|          BX3    X2-X3
16906  M00S13547.dsdi    +++|          ZR     X3,FAC3     IF ASSIGNED TO THIS PPU
16907  M00S13548.dsdi    +++| FAC2     SB3    B3+B1
16908  M00S13549.dsdi    +++|          LE     B3,B5,FAC1  IF MORE TABLE ENTRIES
16909  M00S13550.dsdi    +++|          SX1    -B1         SET NO MORE CHANNELS ASSIGNED
16910  M00S13551.dsdi    +++|          JP     FACX        EXIT
Line S13552 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
16911  M01S13552.dsdi78  ---|
16912  M01S13553.dsdi78  ---| FAC3     MX6    0
16913  M01S13554.dsdi78  ---|          SA6    B3          CLEAR RESERVATION ENTRY
16914  M01S13555.dsdi78  ---|          SX1    B3-BUF      SET ASSIGNED CHANNEL NUMBER
16915  M01S13556.dsdi78  ---|          JP     FACX        EXIT
16916  M00S13557.dsdi    +++| FBB      SPACE  4,25
16917  M00S13558.dsdi    +++|**        FBB - FILL BYTE BUFFER.
16918  M00S13559.dsdi    +++|*
16919  M00S13560.dsdi    +++|*         ENTRY  (B2) = PARAMETER BLOCK ADDRESS.
16920  M00S13561.dsdi    +++|*                     +0 = FWA OF DUMP.
16921  M00S13562.dsdi    +++|*                     +1 = LWA OF DUMP.
16922  M00S13563.dsdi    +++|*
16923  M00S13564.dsdi    +++|*         BUFFER CONSISTS OF TWO WORD ENTRIES.
16924  M00S13565.dsdi    +++|*
16925  M00S13566.dsdi    +++|*         EITHER -
16926  M00S13567.dsdi    +++|*         28/ADDRESS,16/BYTE1,16/BYTE2
16927  M00S13568.dsdi    +++|*         28/0      ,16/BYTE3,16/BYTE4
16928  M00S13569.dsdi    +++|*
16929  M00S13570.dsdi    +++|*         OR FOR REPEATED WORDS -
16930  M00S13571.dsdi    +++|*         60/-0
16931  M00S13572.dsdi    +++|*         60/
16932  M00S13573.dsdi    +++|*
16933  M00S13574.dsdi    +++|*         EXIT   (X1) = 2* WORDS IN BUFFER.
16934  M00S13575.dsdi    +++|*                (PARAMETER BLOCK+0) = NEW FWA.
16935  M00S13576.dsdi    +++|*
16936  M00S13577.dsdi    +++|*         USES   X - ALL.
16937  M00S13578.dsdi    +++|*                A - ALL.
16938  M00S13579.dsdi    +++|*
16939  M00S13580.dsdi    +++|*         CALLS  CPC, CPS, NXB.
16940  M00S13581.dsdi    +++|
16941  M00S13582.dsdi    +++|
16942  M00S13583.dsdi    +++| FBB      SUBR               ENTRY/EXIT
16943  M00S13584.dsdi    +++|          SX1    10          CHECK FOR MINIMUM OF 10 WORDS
16944  M00S13585.dsdi    +++|          RJ     CPS         CHECK PAGE SPACE
16945  M00S13586.dsdi    +++|          SX3    6
16946  M00S13587.dsdi    +++|          IX2    X6*X3       MAXIMUM SIZE OF BUFFER FOR SIZE OF PAGE
16947  M00S13588.dsdi    +++|          SA1    B2+B1       LWA+1 OF DUMP
16948  M00S13589.dsdi    +++|          BX6    X1
16949  M00S13590.dsdi    +++|          SA6    FBBA
16950  M00S13591.dsdi    +++|          SA0    B2          SAVE PARAMETER ADDRESS
16951  M00S13592.dsdi    +++|          SX6    BUF         BUFFER POINTER
16952  M00S13593.dsdi    +++|          SA6    A6+B1
16953  M00S13594.dsdi    +++|          IX7    X6+X2       MAXIMUM LWA+1 OF BUFFER
16954  M00S13595.dsdi    +++|          SA7    A6+B1
16955  M00S13596.dsdi    +++| FBB1     RJ     NXB         GET UPPER PARCEL OF WORD
16956  M00S13597.dsdi    +++|          SA5    A0          CURRENT ADDRESS
16957  M00S13598.dsdi    +++|          SX3    8
16958  M00S13599.dsdi    +++|          MX2    -32
16959  M00S13600.dsdi    +++|          IX6    X3+X5       INCREMENT ADDRESS
16960  M00S13601.dsdi    +++|          BX5    -X2*X5
16961  M00S13602.dsdi    +++|          LX5    16
16962  M00S13603.dsdi    +++|          SA6    A0
16963  M00S13604.dsdi    +++|          IX5    X1+X5       COMBINE ADDRESS WITH DATA
16964  M00S13605.dsdi    +++|          RJ     NXB         READ SECOND PARCEL OF WORD
16965  M00S13606.dsdi    +++|          LX5    16
16966  M00S13607.dsdi    +++|          BX0    X5+X1
16967  M00S13608.dsdi    +++|          RJ     NXB         READ THIRD PARCEL OF WORD
16968  M00S13609.dsdi    +++|          BX5    X1
16969  M00S13610.dsdi    +++|          RJ     NXB         READ LAST PARCEL OF WORD
16970  M00S13611.dsdi    +++|          LX5    16
16971  M00S13612.dsdi    +++|          BX7    X5+X1
16972  M00S13613.dsdi    +++|          SA1    FBBD        DATA FROM LAST WORD
16973  M00S13614.dsdi    +++|          SA2    A1+B1
16974  M00S13615.dsdi    +++|          BX6    X0
16975  M00S13616.dsdi    +++|          MX3    -32
16976  M00S13617.dsdi    +++|          SA6    A1          REFRESH FBBD
16977  M00S13618.dsdi    +++|          SA7    A2
16978  M00S13619.dsdi    +++|          BX1    X6-X1
16979  M00S13620.dsdi    +++|          SA4    FBBB        BUFFER POINTER
16980  M00S13621.dsdi    +++|          BX2    X7-X2
16981  M00S13622.dsdi    +++|          SA6    X4
16982  M00S13623.dsdi    +++|          SA7    A6+B1
16983  M00S13624.dsdi    +++|          BX1    -X3*X1      DO NOT COMPARE ADDRESSES
16984  M00S13625.dsdi    +++|          IX3    X1+X2
16985  M00S13626.dsdi    +++|          SX6    A7+B1       NEW BUFFER POINTER
16986  M00S13627.dsdi    +++|          SA6    A4
16987  M00S13628.dsdi    +++|          NZ     X3,FBB2     IF DATA NOT REPEATED
16988  M00S13629.dsdi    +++|          SX2    X4-BUF
16989  M00S13630.dsdi    +++|          ZR     X2,FBB2     IF FIRST DATA IN BUFFER
16990  M00S13631.dsdi    +++|          MX7    1
16991  M00S13632.dsdi    +++|          SA7    X4          STORE FLAG IN BUFFER
16992  M00S13633.dsdi    +++|          SA1    X4-2        CHECK IF FLAG ALREADY SAVED
16993  M00S13634.dsdi    +++|          PL     X1,FBB3     IF NO FLAG PRESENT YET
16994  M00S13635.dsdi    +++|          SX6    A7
16995  M00S13636.dsdi    +++|          SA6    A4          RESTORE NEW BUFFER POINTER
16996  M00S13637.dsdi    +++| FBB2     SA2    A4+B1       MAXIMUM LWA OF BUFFER
16997  M00S13638.dsdi    +++|          IX3    X6-X2
16998  M00S13639.dsdi    +++|          PL     X3,FBB4     IF BUFFER FULL
16999  M00S13640.dsdi    +++| FBB3     SB2    A0
17000  M00S13641.dsdi    +++|          RJ     CPC         CHECK PAGE CHANGE
17001  M00S13642.dsdi    +++|          PL     X3,FBB4     IF PAGE NOT VALID
17002  M00S13643.dsdi    +++|          SA1    FBBA        LWA+1 OF DUMP
17003  M00S13644.dsdi    +++|          SA5    A0          CURRENT BYTE ADDRESS
17004  M00S13645.dsdi    +++|          IX6    X5-X1
Line S13646 Modification History
M01 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
17005  M01S13646.271l739 ---|          NZ     X6,FBB1     IF END OF DATA NOT YET ENCOUNTERED
Line S00348 Modification History
M01 (Added by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
17006  M01S00348.271l739 +++|          NG     X6,FBB1     IF NOT END OF DATA
17007  M00S13647.dsdi    +++| FBB4     SA1    FBBB
17008  M00S13648.dsdi    +++|          SA2    A1+B1
17009  M00S13649.dsdi    +++|          SX1    X1-BUF      COMPUTE AMOUNT DATA IN BUFFER
17010  M00S13650.dsdi    +++|          EQ     FBBX        RETURN
17011  M00S13651.dsdi    +++|
17012  M00S13652.dsdi    +++|
17013  M00S13653.dsdi    +++| FBBA     DATA   0           LWA+1 OF DUMP
17014  M00S13654.dsdi    +++| FBBB     DATA   0           BUFFER POINTER
17015  M00S13655.dsdi    +++| FBBC     DATA   0           MAXIMUM LWA+1 OF BUFFER
17016  M00S13656.dsdi    +++| FBBD     BSS    2           PREVIOUS WORD PRINTED
17017  M00S13657.dsdi    +++| FBP      SPACE  4,11
17018  M00S13658.dsdi    +++|**        FBP - FIND BYTE POSITION.
17019  M00S13659.dsdi    +++|*
17020  M00S13660.dsdi    +++|*         ENTRY  (RI) = RANDOM ADDRESS OF CURRENT RECORD.
17021  M00S13661.dsdi    +++|*                (X3) = DESIRED BYTE NUMBER.
17022  M00S13662.dsdi    +++|*
17023  M00S13663.dsdi    +++|*         EXIT   BUFFER POSITIONED AT DESIRED 16 BIT BYTE.
17024  M00S13664.dsdi    +++|*
17025  M00S13665.dsdi    +++|*         USES   X - 2, 3, 4, 5, 6.
17026  M00S13666.dsdi    +++|*                A - 6.
17027  M00S13667.dsdi    +++|*                B - 7.
17028  M00S13668.dsdi    +++|*
17029  M00S13669.dsdi    +++|*         CALLS  PDF, NXB.
17030  M00S13670.dsdi    +++|
17031  M00S13671.dsdi    +++|
17032  M00S13672.dsdi    +++| FBP      SUBR               ENTRY/EXIT
17033  M00S13673.dsdi    +++|          SX4    15
17034  M00S13674.dsdi    +++|          BX2    X3
17035  M00S13675.dsdi    +++|          IX3    X3/X4
17036  M00S13676.dsdi    +++|          SX4    15
17037  M00S13677.dsdi    +++|          IX5    X3*X4
17038  M00S13678.dsdi    +++|          IX5    X2-X5       BYTE POSITION WITHIN FOUR WORD GROUP
17039  M00S13679.dsdi    +++|          IX5    X4-X5
17040  M00S13680.dsdi    +++|          LX3    2           WORD OFFSET OF FOUR WORD GROUP
17041  M00S13681.dsdi    +++|          RJ     PDF         POSITION DUMP FILE
17042  M00S13682.dsdi    +++|          SX6    B0
17043  M00S13683.dsdi    +++|          SA6    NXBA
17044  M00S13684.dsdi    +++|          SA6    A6+B1
17045  M00S13685.dsdi    +++|          RJ     NXB
17046  M00S13686.dsdi    +++|          BX6    X5          SAVE BYTE OFFSET INTO FOUR WORD STACK
17047  M00S13687.dsdi    +++|          SA6    NXBB
17048  M00S13688.dsdi    +++|          EQ     FBPX        RETURN
17049  M00S13689.dsdi    +++| FDW      SPACE  4,11
17050  M00S13690.dsdi    +++|**        FDW - FORMAT DATA WORD.
17051  M00S13691.dsdi    +++|*
17052  M00S13692.dsdi    +++|*         ENTRY  X1 = DATA WORD.
17053  M00S13693.dsdi    +++|*                B7 = PRINT STRING ADDRESS.
17054  M00S13694.dsdi    +++|*                X2 = 24/0,18/DIGITS PER BYTE,18/BYTES PER WORD.
17055  M00S13695.dsdi    +++|*
17056  M00S13696.dsdi    +++|*         USES   X - 0,1,2,6,7.
17057  M00S13697.dsdi    +++|*                B - 5,6,7.
17058  M00S13698.dsdi    +++|*                A - 6,7.
17059  M00S13699.dsdi    +++|*
17060  M00S13700.dsdi    +++|*         CALLS  CTS.
17061  M00S13701.dsdi    +++|
17062  M00S13702.dsdi    +++|
17063  M00S13703.dsdi    +++| FDW      SUBR
17064  M00S13704.dsdi    +++|          SB5    X2          NUMBER OF BYTES
17065  M00S13705.dsdi    +++|          AX2    18
17066  M00S13706.dsdi    +++|          SX6    1R          PRESET SPACE
17067  M00S13707.dsdi    +++| FDW1     SB6    X2+         DIGIT COUNT
17068  M00S13708.dsdi    +++|          RJ     CTS         CONVERT ONE BYTE
17069  M00S13709.dsdi    +++|          SA6    B7          SPACE 1
17070  M00S13710.dsdi    +++|          SB7    B7+B1
17071  M00S13711.dsdi    +++|          SB5    B5-1
17072  M00S13712.dsdi    +++|          NZ     B5,FDW1     IF MORE BYTES
17073  M00S13713.dsdi    +++|          JP     FDWX        EXIT
17074  M00S13714.dsdi    +++| FEM      SPACE  4,10
17075  M00S13715.dsdi    +++|**        FEM - FORMAT ENTRY POINT MAP LINE.
17076  M00S13716.dsdi    +++|*
17077  M00S13717.dsdi    +++|*         ENTRY  X5 = LINE INDEX.
17078  M00S13718.dsdi    +++|*                PPU DATA IS AT *PBUF*.
17079  M00S13719.dsdi    +++|*
17080  M00S13720.dsdi    +++|*         SAVES  X - 5.
17081  M00S13721.dsdi    +++|*                B - 1.
17082  M00S13722.dsdi    +++|*                A - 0,5.
17083  M00S13723.dsdi    +++|*
17084  M00S13724.dsdi    +++|*         CALLS  CTS,RPB,UPS.
17085  M00S13725.dsdi    +++|
17086  M00S13726.dsdi    +++|
Line S00080 Modification History
M01 (Added by) dsdi56
Seq #  *Modification Id* Act 
----------------------------+
17087  M01S00080.dsdi56  +++| FEM1     ZR     X2,FEMX     IF NO MESSAGE
17088  M01S00081.dsdi56  +++|          SB6    X2-3
17089  M01S00082.dsdi56  +++|          PL     B6,FEMX     IF NO MESSAGE
17090  M01S00083.dsdi56  +++|          SA3    APPF
17091  M01S00084.dsdi56  +++|          LX7    X2,B1
17092  M01S00085.dsdi56  +++|          IX2    X2+X7
17093  M01S00086.dsdi56  +++|          ZR     X3,FEMX     IF NOT DUMPING PP SAVE AREA DATA
17094  M01S00087.dsdi56  +++|          SA2    FEMB-3+X2   READ MESSAGE
17095  M01S00088.dsdi56  +++|          SB6    28
17096  M01S00089.dsdi56  +++|          SB7    PRBF+4
17097  M01S00090.dsdi56  +++|          RJ     UPS         SET NAME IN PRINT STRING
17098  M01S00091.dsdi56  +++|
17099  M00S13727.dsdi    +++| FEM      SUBR
17100  M00S13728.dsdi    +++|          SX2    X5-7
Line S13729 Modification History
M01 (Removed by) dsdi56
Seq #  *Modification Id* Act 
----------------------------+
17101  M01S13729.dsdi56  ---|          PL     X2,FEMX     IF END OF ENTRY POINTS.
Line S00092 Modification History
M01 (Added by) dsdi56
Seq #  *Modification Id* Act 
----------------------------+
17102  M01S00092.dsdi56  +++|          PL     X2,FEM1     IF END OF ENTRY POINTS.
17103  M00S13730.dsdi    +++|          SA2    X5+FEMA     READ ENTRY POINT NAME,ADDRESS
17104  M00S13731.dsdi    +++|          SB6    3
17105  M00S13732.dsdi    +++|          SB7    PRBF+10
17106  M00S13733.dsdi    +++|          RJ     UPS         SET NAME IN PRINT STRING
17107  M00S13734.dsdi    +++|          BX1    X2
17108  M00S13735.dsdi    +++|          SB6    4
17109  M00S13736.dsdi    +++|          SB7    B7+2
17110  M00S13737.dsdi    +++|          RJ     CTS         CONVERT LOCATION
17111  M00S13738.dsdi    +++|          MX2    -12
17112  M00S13739.dsdi    +++|          BX1    -X2*X1
17113  M00S13740.dsdi    +++|          SB6    B7          SAVE B7
17114  M00S13741.dsdi    +++|          RJ     RPB         READ RETURN ADDRESS FROM PPU
17115  M00S13742.dsdi    +++|          SB7    B6+2
17116  M00S13743.dsdi    +++|          SB6    4
17117  M00S13744.dsdi    +++|          BX1    X6
17118  M00S13745.dsdi    +++|          RJ     CTS         CONVERT RETURN ADDRESS
17119  M00S13746.dsdi    +++|          JP     FEMX        EXIT
17120  M00S13747.dsdi    +++|
17121  M00S13748.dsdi    +++| FEMA     BSS    0           RESIDENT ENTRY POINT TABLE
17122  M00S13749.dsdi    +++|          LOC    0
17123  M00S13750.dsdi    +++|
17124  M00S13751.dsdi    +++|          VFD    18/3LFTN,12/FTN,30/0
17125  M00S13752.dsdi    +++|          VFD    18/3LDFM,12/DFM,30/0
17126  M00S13753.dsdi    +++|          VFD    18/3LEXR,12/EXR,30/0
17127  M00S13754.dsdi    +++|          VFD    18/3LSMS,12/.SMS,30/0
17128  M00S13755.dsdi    +++|          VFD    18/3LRDS,12/RDS,30/0
17129  M00S13756.dsdi    +++|          VFD    18/3LWDS,12/WDS,30/0
17130  M00S13757.dsdi    +++|          VFD    18/3LEMS,12/.EMS,30/0
17131  M00S13758.dsdi    +++|          LOC    *O
Line S00093 Modification History
M01 (Added by) dsdi56
Seq #  *Modification Id* Act 
----------------------------+
17132  M01S00093.dsdi56  +++|
17133  M01S00094.dsdi56  +++| FEMB     DATA   28H* ENTRY POINTS AND CONSTANTS
17134  M01S00095.dsdi56  +++|          DATA   28H  MAY NOT HAVE BEEN SAVED.
17135  M00S13759.dsdi    +++| FFD      SPACE  4,10
17136  M00S13760.dsdi    +++|**        FFD - FIND FWA OF DISK BUFFER AREA IN EXTENDED MEMORY.
17137  M00S13761.dsdi    +++|*
17138  M00S13762.dsdi    +++|*         ENTRY  (X5) = MACHINE ID, LEFT-JUSTIFIED AND ZERO-FILLED.
17139  M00S13763.dsdi    +++|*
17140  M00S13764.dsdi    +++|*         EXIT   (DA) = (X6) = FWA OF DISK BUFFER AREA.
17141  M00S13765.dsdi    +++|*
17142  M00S13766.dsdi    +++|*         ERROR  TO *ERR36*, IF INCORRECT MACHINE ID.
17143  M00S13767.dsdi    +++|*
17144  M00S13768.dsdi    +++|*         USES   X - 1, 2, 6.
17145  M00S13769.dsdi    +++|*                A - 1, 6.
17146  M00S13770.dsdi    +++|*                B - 2.
17147  M00S13771.dsdi    +++|*
17148  M00S13772.dsdi    +++|*         CALLS  POM, SEC.
17149  M00S13773.dsdi    +++|*
17150  M00S13774.dsdi    +++|*         MACROS GETCM.
17151  M00S13775.dsdi    +++|
17152  M00S13776.dsdi    +++|
17153  M00S13777.dsdi    +++| FFD      SUBR               ENTRY/EXIT
17154  M00S13778.dsdi    +++|          RJ     SEC         SET EXTENDED MEMORY
17155  M00S13779.dsdi    +++|          SX6    20B         SET EM SECTOR LIMIT
17156  M00S13780.dsdi    +++|          SA1    EM
17157  M00S13781.dsdi    +++|          SB2    X1
17158  M00S13782.dsdi    +++|          LX6    B2
17159  M00S13783.dsdi    +++|          SX6    X6+ETLT*100B+IBDT
17160  M00S13784.dsdi    +++|          SA6    CPRA
17161  M00S13785.dsdi    +++|          SB2    A6
17162  M00S13786.dsdi    +++|          RJ     POM         POSITION TO FWA *IBDT*
17163  M00S13787.dsdi    +++|          GETCM  FFDA,MXMF   READ *IBDT* INTO CORE
17164  M00S13788.dsdi    +++|          SB2    MXMF        PRESET *IBDT* INDEX
17165  M00S13789.dsdi    +++| FFD1     SB2    B2-1
17166  M00S13790.dsdi    +++|          NG     B2,ERR36    IF AT END OF *IBDT*
17167  M00S13791.dsdi    +++|          SA1    B2+FFDA
17168  M00S13792.dsdi    +++|          BX2    X1-X5
17169  M00S13793.dsdi    +++|          AX2    48
17170  M00S13794.dsdi    +++|          NZ     X2,FFD1     IF MACHINE ID NOT FOUND
17171  M00S13795.dsdi    +++|          AX1    12
17172  M00S13796.dsdi    +++|          MX6    -12
17173  M00S13797.dsdi    +++|          BX6    -X6*X1
17174  M00S13798.dsdi    +++|          LX6    9
17175  M00S13799.dsdi    +++|          SA6    DA          STORE FWA OF DISK BUFFER AREA
17176  M00S13800.dsdi    +++|          EQ     FFDX        RETURN
17177  M00S13801.dsdi    +++|
17178  M00S13802.dsdi    +++| FFDA     BSS    MXMF        CORE BUFFER FOR *IBDT*
17179  M00S13803.dsdi    +++| FLC      SPACE  4,9
17180  M00S13804.dsdi    +++|**        FLC - FORMAT PPU LOW CORE ANALYSIS LINE.
17181  M00S13805.dsdi    +++|*
Line S13806 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17182  M01S13806.ns2647  ---|*         ENTRY  X5 = LINE NUMBER.
17183  M01S13807.ns2647  ---|*
17184  M01S13808.ns2647  ---|*         SAVES  X - 5.
17185  M01S13809.ns2647  ---|*                B - 1.
17186  M01S13810.ns2647  ---|*                A - 0,5.
17187  M01S13811.ns2647  ---|*
17188  M01S13812.ns2647  ---|*         CALLS  CTS,RPB,UPS.
Line S00109 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17189  M01S00109.ns2647  +++|*         ENTRY  (X5) = LINE NUMBER.
17190  M01S00110.ns2647  +++|*
17191  M01S00111.ns2647  +++|*         USES   X - 1, 2, 3, 4, 6, 7.
17192  M01S00112.ns2647  +++|*                A - 1, 2, 3, 4, 6, 7.
17193  M01S00113.ns2647  +++|*                B - 2, 6, 7.
17194  M01S00114.ns2647  +++|*
17195  M01S00115.ns2647  +++|*         CALLS  CPN, CTS, GRV, RPB, UPS.
17196  M00S13813.dsdi    +++|
17197  M00S13814.dsdi    +++|
17198  M00S13815.dsdi    +++| FLC7     RJ     GRV         GET R-REGISTER VALUE
Line S13816 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17199  M01S13816.ns2647  ---|          SB7    PRBF+45     STORE ACTUAL VALUE
Line S00116 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17200  M01S00116.ns2647  +++|          SB7    B7+3
17201  M00S13817.dsdi    +++|          SB6    8
Line S13818 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17202  M01S13818.ns2647  ---|          BX6    X1
17203  M01S13819.ns2647  ---|          SA6    FLCB+5      SAVE ACTUAL
17204  M00S13820.dsdi    +++|          RJ     CTS         CONVERT AND STORE IN PRINT LINE
Line S00117 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17205  M01S00117.ns2647  +++|          BX3    X1          SAVE ACTUAL
17206  M00S13821.dsdi    +++|          SA1    FLCB+3      GET CP ADDRESS
Line S13822 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17207  M01S13822.ns2647  ---|          SA2    F.TCMT
17208  M01S13823.ns2647  ---|          IX2    X1+X2
17209  M01S13824.ns2647  ---|          SA1    X2+FLSW+1   GET EXPECTED R-REGISTER
Line S00118 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17210  M01S00118.ns2647  +++|          ZR     X1,FLC4     IF PPU NOT ATTACHED
17211  M01S00119.ns2647  +++|          SA1    FLCB+5      GET EXPECTED R-REGISTER
17212  M00S13825.dsdi    +++|          MX2    24
17213  M00S13826.dsdi    +++|          LX1    12
Line S13827 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17214  M01S13827.ns2647  ---|          BX6    X2*X1
17215  M01S13828.ns2647  ---|          SA6    FLCB+6      SAVE EXPECTED
17216  M01S13829.ns2647  ---|          SB7    PRBF+55
Line S00120 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17217  M01S00120.ns2647  +++|          BX1    X2*X1
17218  M00S13830.dsdi    +++|          SB6    8
Line S13831 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17219  M01S13831.ns2647  ---|          RJ     CTS         CONVERT AND STORE EXPECTED
17220  M01S13832.ns2647  ---|          SA1    FLCB+5
17221  M01S13833.ns2647  ---|          SA2    A1+B1
17222  M01S13834.ns2647  ---|          BX2    X1-X2
17223  M01S13835.ns2647  ---|          ZR     X2,FLCX     IF ACTUAL = EXPECTED
17224  M01S13836.ns2647  ---|          SA2    =27H  *** WARNING ***
17225  M01S13837.ns2647  ---|          SB7    PRBF+65
17226  M01S13838.ns2647  ---|          SB6    27
17227  M01S13839.ns2647  ---|          RJ     UPS         STORE WARNING MESSAGE
Line S00121 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17228  M01S00121.ns2647  +++|          EQ     FLC3.1      COMPARE VALUES
17229  M00S13840.dsdi    +++|
Line S13841 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17230  M01S13841.ns2647  ---| FLC      SUBR
Line S00122 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17231  M01S00122.ns2647  +++| FLC      SUBR               ENTRY/EXIT
17232  M00S13842.dsdi    +++|          SA2    X5+FLCA
17233  M00S13843.dsdi    +++|          SB6    7
17234  M00S13844.dsdi    +++|          SB7    PRBF+35
17235  M00S13845.dsdi    +++|          RJ     UPS         SET NAME AND LOCATION
17236  M00S13846.dsdi    +++|          LX2    18
17237  M00S13847.dsdi    +++|          SX1    X2          PPU ADDRESS
Line S00123 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17238  M01S00123.ns2647  +++|          ZR     X1,FLC7     IF R-REGISTER
17239  M00S13848.dsdi    +++|          SB6    B7          SAVE PRINT STRING ADDRESS
17240  M00S13849.dsdi    +++|          RJ     RPB         READ LOCATION CONTENTS
17241  M00S13850.dsdi    +++|          SB7    B6+3
17242  M00S13851.dsdi    +++|          SB6    4
17243  M00S13852.dsdi    +++|          BX1    X6
17244  M00S13853.dsdi    +++|          RJ     CTS         CONVERT CONTENTS
17245  M00S13854.dsdi    +++|          ZR     X5,FLC1     IF LINE 0
17246  M00S13855.dsdi    +++|          SB2    X5+FLC6-1
17247  M00S13856.dsdi    +++|          JP     B2          VERIFY WORD FOR LINES 1 - 9
17248  M00S13857.dsdi    +++|
17249  M00S13858.dsdi    +++|*         COMPUTE EXPECTED LOW CORE VALUES.
17250  M00S13859.dsdi    +++|
Line S13860 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17251  M01S13860.ns2647  ---| FLC1     SA3    F.TCMT
17252  M01S13861.ns2647  ---|          SA4    PC          GET PP COMMUNICATION AREA POINTER
17253  M01S13862.ns2647  ---|          SA2    PP          PPU NUMBER
17254  M01S13863.ns2647  ---|          SX7    X2-12B
17255  M01S13864.ns2647  ---|          NG     X7,FLC2     IF NOT UPPER PPU BANK
17256  M01S13865.ns2647  ---|          SX2    X2+12B-20B  CORRECT FOR UPPER PPUS
17257  M01S13866.ns2647  ---| FLC2     LX2    3
17258  M01S13867.ns2647  ---|          IX6    X2+X4       PP INPUT REGISTER ADDRESS
Line S00124 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17259  M01S00124.ns2647  +++| FLC1     SA4    PC          GET PP COMMUNICATION AREA POINTER
17260  M01S00125.ns2647  +++|          RJ     CPN         CONVERT PP NUMBER
17261  M01S00126.ns2647  +++|          LX6    3
17262  M01S00127.ns2647  +++|          IX6    X6+X4       PP INPUT REGISTER ADDRESS
17263  M01S00128.ns2647  +++|          SA3    F.TCMT
17264  M00S13868.dsdi    +++|          IX4    X6+X3
17265  M00S13869.dsdi    +++|          SA6    FLCB        SAVE
17266  M00S13870.dsdi    +++|          SX7    X6+B1
17267  M00S13871.dsdi    +++|          SA7    A6+B1       SAVE OUTPUT REGISTER ADDRESS
17268  M00S13872.dsdi    +++|          SX6    X7+B1
17269  M00S13873.dsdi    +++|          SA6    A7+B1       SAVE MESSAGE AREA ADDRESS
17270  M00S13874.dsdi    +++|          SA4    X4          READ INPUT REGISTER
17271  M00S13875.dsdi    +++|          MX2    -5
17272  M00S13876.dsdi    +++|          AX4    36
17273  M00S13877.dsdi    +++|          BX6    -X2*X4      CONTROL POINT NUMBER
17274  M00S13878.dsdi    +++|          LX6    7           CONTROL POINT AREA ADDRESS
17275  M00S13879.dsdi    +++|          SA6    A6+B1       SAVE
17276  M00S13880.dsdi    +++|          ZR     X6,FLC4     IF PPU NOT ASSIGNED TO CONTROL POINT
17277  M00S13881.dsdi    +++|          IX4    X6+X3
Line S00129 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17278  M01S00129.ns2647  +++|          SA2    OP          ADD PCPA OFFSET
17279  M01S00130.ns2647  +++|          IX4    X2+X4
17280  M00S13882.dsdi    +++|          SA2    X4+FLSW     GET RA/100 AND FL/100
17281  M00S13883.dsdi    +++|          BX6    X2
17282  M00S13884.dsdi    +++|          SA6    A6+B1       SAVE RA/100 AND FL/100
17283  M00S13885.dsdi    +++|          SA3    CE
Line S00131 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17284  M01S00131.ns2647  +++|          SA4    A2+B1       GET R-REGISTER
17285  M00S13886.dsdi    +++|          ZR     X3,FLC2.1   IF NO CM EXTENSION
Line S13887 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17286  M01S13887.ns2647  ---|          SA2    X4+FLSW+1
Line S00132 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17287  M01S00132.ns2647  +++|          SA2    A2+1
17288  M00S13888.dsdi    +++| FLC2.1   LX2    -12
Line S00133 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17289  M01S00133.ns2647  +++|          BX6    X4
17290  M01S00134.ns2647  +++|          SA6    A6+1        SAVE R-REGISTER
17291  M00S13889.dsdi    +++|
17292  M00S13890.dsdi    +++|*         COMPARE ACTUAL AND EXPECTED VALUES.
17293  M00S13891.dsdi    +++|
17294  M00S13892.dsdi    +++| FLC3     BX3    X1          SAVE ACTUAL DATA
17295  M00S13893.dsdi    +++|          MX1    -12
17296  M00S13894.dsdi    +++|          BX1    -X1*X2      EXPECTED DATA
Line S00135 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17297  M01S00135.ns2647  +++|          LX1    -12
17298  M00S13895.dsdi    +++|          SB6    4
Line S13896 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17299  M01S13896.ns2647  ---|          SB7    B7+2
17300  M01S13897.ns2647  ---|          LX1    -12
Line S00136 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17301  M01S00136.ns2647  +++| FLC3.1   SB7    B7+2
17302  M00S13898.dsdi    +++|          RJ     CTS         FORMAT EXPECTED DATA
17303  M00S13899.dsdi    +++|          BX1    X1-X3
17304  M00S13900.dsdi    +++|          ZR     X1,FLCX     IF ACTUAL = EXPECTED
17305  M00S13901.dsdi    +++|          SA2    =27H  *** WARNING ***
17306  M00S13902.dsdi    +++|          SB6    27
Line S13903 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17307  M01S13903.ns2647  ---|          RJ     UPS         SET ERROR FLAG
Line S00137 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17308  M01S00137.ns2647  +++| FLC3.2   RJ     UPS         SET MESSAGE
17309  M00S13904.dsdi    +++|          JP     FLCX        EXIT
17310  M00S13905.dsdi    +++|
17311  M00S13906.dsdi    +++|*         PPU NOT ATTACHED - IGNORE CL, RA AND FL.
17312  M00S13907.dsdi    +++|
17313  M00S13908.dsdi    +++| FLC4     SA2    =4L----
17314  M00S13909.dsdi    +++|          SB6    4
17315  M00S13910.dsdi    +++|          SB7    B7+2
Line S13911 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17316  M01S13911.ns2647  ---|          RJ     UPS
17317  M01S13912.ns2647  ---|          JP     FLCX        EXIT
Line S00138 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17318  M01S00138.ns2647  +++|          JP     FLC3.2      SET MESSAGE
17319  M00S13913.dsdi    +++|
17320  M00S13914.dsdi    +++|*         CHECK CONTROL POINT RELATED DATA.
17321  M00S13915.dsdi    +++|
17322  M00S13916.dsdi    +++| FLC5     SA3    FLCB+3      READ CONTROL POINT AREA ADDRESS
17323  M00S13917.dsdi    +++|          ZR     X3,FLC4     IF PPU NOT ATTACHED
17324  M00S13918.dsdi    +++|          JP     FLC3        CHECK VALUE
17325  M00S13919.dsdi    +++|
17326  M00S13920.dsdi    +++|*         SET EXPECTED VALUES.
17327  M00S13921.dsdi    +++|
17328  M00S13922.dsdi    +++| FLC6     BSS    0
17329  M00S13923.dsdi    +++|
17330  M00S13924.dsdi    +++|+         SA2    FLCB+4      FL
17331  M00S13925.dsdi    +++|          JP     FLC5
17332  M00S13926.dsdi    +++|
17333  M00S13927.dsdi    +++|+         SX2    1           ON
17334  M00S13928.dsdi    +++|          JP     FLC3
17335  M00S13929.dsdi    +++|
17336  M00S13930.dsdi    +++|+         SX2    100B        HN
17337  M00S13931.dsdi    +++|          JP     FLC3
17338  M00S13932.dsdi    +++|
17339  M00S13933.dsdi    +++|+         SX2    1000B       TH
17340  M00S13934.dsdi    +++|          JP     FLC3
17341  M00S13935.dsdi    +++|
17342  M00S13936.dsdi    +++|+         SX2    3           TR
17343  M00S13937.dsdi    +++|          JP     FLC3
17344  M00S13938.dsdi    +++|
17345  M00S13939.dsdi    +++|+         SA2    FLCB+3      CP
17346  M00S13940.dsdi    +++|          JP     FLC5
17347  M00S13941.dsdi    +++|
17348  M00S13942.dsdi    +++|+         SA2    FLCB+0      IA
17349  M00S13943.dsdi    +++|          JP     FLC5
17350  M00S13944.dsdi    +++|
17351  M00S13945.dsdi    +++|+         SA2    FLCB+1      OA
17352  M00S13946.dsdi    +++|          JP     FLC5
17353  M00S13947.dsdi    +++|
17354  M00S13948.dsdi    +++|+         SA2    FLCB+2      MA
17355  M00S13949.dsdi    +++|          JP     FLC5
Line S13950 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17356  M01S13950.ns2647  ---|
17357  M01S13951.ns2647  ---|+         JP     FLC7        PROCESS R-REGISTER LINE
17358  M00S13952.dsdi    +++|
17359  M00S13953.dsdi    +++|
17360  M00S13954.dsdi    +++| FLCA     BSS    0
17361  M00S13955.dsdi    +++|          VFD    42/7LRA  55 ,18/RA
17362  M00S13956.dsdi    +++|          VFD    42/7LFL  56 ,18/FL
17363  M00S13957.dsdi    +++|          VFD    42/7LON  70 ,18/ON
17364  M00S13958.dsdi    +++|          VFD    42/7LHN  71 ,18/HN
17365  M00S13959.dsdi    +++|          VFD    42/7LTH  72 ,18/TH
17366  M00S13960.dsdi    +++|          VFD    42/7LTR  73 ,18/TR
17367  M00S13961.dsdi    +++|          VFD    42/7LCP  74 ,18/CP
17368  M00S13962.dsdi    +++|          VFD    42/7LIA  75 ,18/IA
17369  M00S13963.dsdi    +++|          VFD    42/7LOA  76 ,18/OA
17370  M00S13964.dsdi    +++|          VFD    42/7LMA  77 ,18/MA
17371  M00S13965.dsdi    +++|          VFD    42/7LR-REG  ,18/0
17372  M00S13966.dsdi    +++|
17373  M00S13967.dsdi    +++| FLCB     BSS    0           EXPECTED LOW CORE DATA
17374  M00S13968.dsdi    +++|          LOC    0
17375  M00S13969.dsdi    +++|
17376  M00S13970.dsdi    +++|          BSS    1           IA
17377  M00S13971.dsdi    +++|          BSS    1           OA
17378  M00S13972.dsdi    +++|          BSS    1           MA
17379  M00S13973.dsdi    +++|          BSS    1           CP
17380  M00S13974.dsdi    +++|          BSS    1           RA/100, FL/100
Line S13975 Modification History
M01 (Removed by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17381  M01S13975.ns2647  ---|          BSS    1           ACTUAL R-REGISTER
17382  M01S13976.ns2647  ---|          BSS    1           EXPECTED R-REGISTER
Line S00139 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17383  M01S00139.ns2647  +++|          BSS    1           R-REGISTER
17384  M00S13977.dsdi    +++|          LOC    *O
17385  M00S13978.dsdi    +++| FOL      SPACE  4,9
17386  M00S13979.dsdi    +++|**        FOL - FORMAT ONE LINE OF *P* DUMP.
17387  M00S13980.dsdi    +++|*
17388  M00S13981.dsdi    +++|*         ENTRY  X5 = ROW NUMBER.
17389  M00S13982.dsdi    +++|*
17390  M00S13983.dsdi    +++|*         SAVES  X - 5.
17391  M00S13984.dsdi    +++|*                B - NONE.
17392  M00S13985.dsdi    +++|*                A - 5.
17393  M00S13986.dsdi    +++|*
17394  M00S13987.dsdi    +++|*         CALLS  CTS,UPS,WOF.
17395  M00S13988.dsdi    +++|
17396  M00S13989.dsdi    +++|
17397  M00S13990.dsdi    +++| FOL      SUBR
17398  M00S13991.dsdi    +++|          BX1    X5
17399  M00S13992.dsdi    +++|          SB6    2
17400  M00S13993.dsdi    +++|          LX1    -6
17401  M00S13994.dsdi    +++|          SB7    PRBF+7
17402  M00S13995.dsdi    +++|          RJ     CTS         SET ROW ADDRESS IN LEFT BLOCK
17403  M00S13996.dsdi    +++|          LX1    -6
17404  M00S13997.dsdi    +++|          SB6    B1+B1
17405  M00S13998.dsdi    +++|          SB7    PRBF+71
17406  M00S13999.dsdi    +++|          RJ     CTS         CONVERT FOR RIGHT BLOCK
17407  M00S14000.dsdi    +++|          SB2    X5+BUF
17408  M00S14001.dsdi    +++|          SB7    PRBF+11
17409  M00S14002.dsdi    +++|          SB3    2
17410  M00S14003.dsdi    +++| FOL1     SB4    10B
17411  M00S14004.dsdi    +++| FOL2     SB6    4           DIGIT COUNT
17412  M00S14005.dsdi    +++|          SA1    B2+         READ BYTE
17413  M00S14006.dsdi    +++|          NZ     X1,FOL3     IF NOT ZERO
17414  M00S14007.dsdi    +++|          SA2    =4L----
17415  M00S14008.dsdi    +++|          RJ     UPS         SET ZERO INDICATOR
17416  M00S14009.dsdi    +++|          JP     FOL4
17417  M00S14010.dsdi    +++|
17418  M00S14011.dsdi    +++| FOL3     RJ     CTS         CONVERT BYTE
17419  M00S14012.dsdi    +++| FOL4     SB2    B2+10B      ADVANCE ADDRESS
17420  M00S14013.dsdi    +++|          SB7    B7+2        SPACE 2
17421  M00S14014.dsdi    +++|          SB4    B4-1        COUNT BYTE
17422  M00S14015.dsdi    +++|          NZ     B4,FOL2     IF MORE BYTES IN THIS BLOCK
17423  M00S14016.dsdi    +++|          SB7    B7+16       SPACE TO RIGHT BLOCK
17424  M00S14017.dsdi    +++|          SB3    B3-1
17425  M00S14018.dsdi    +++|          NZ     B3,FOL1     IF NOT DONE WITH RIGHT BLOCK
17426  M00S14019.dsdi    +++|          PRINT  CCCH,B7-CCCH-18
17427  M00S14020.dsdi    +++|          JP     FOLX        EXIT
17428  M00S14021.dsdi    +++| FON      SPACE  4,15
17429  M00S14022.dsdi    +++|**        FON - FORMAT PPU OVERLAY NAME LINE.
17430  M00S14023.dsdi    +++|*
17431  M00S14024.dsdi    +++|*         ENTRY  B4 = LINE INDEX.
17432  M00S14025.dsdi    +++|*                PPU DATA IS AT *PBUF*.
17433  M00S14026.dsdi    +++|*
17434  M00S14027.dsdi    +++|*         USES   X - 1, 2, 6, 7.
17435  M00S14028.dsdi    +++|*                A - 1, 2.
17436  M00S14029.dsdi    +++|*                B - 3, 6, 7.
17437  M00S14030.dsdi    +++|*
17438  M00S14031.dsdi    +++|*         SAVES  X - 5.
17439  M00S14032.dsdi    +++|*                A - 0, 5.
17440  M00S14033.dsdi    +++|*                B - 1.
17441  M00S14034.dsdi    +++|*
17442  M00S14035.dsdi    +++|*         CALLS  RPB, UPS.
17443  M00S14036.dsdi    +++|
17444  M00S14037.dsdi    +++|
17445  M00S14038.dsdi    +++| FON      SUBR               ENTRY/EXIT
17446  M00S14039.dsdi    +++|          SB3    3
17447  M00S14040.dsdi    +++|          GE     B4,B3,FONX  IF NO MORE NAMES TO FORMAT
17448  M00S14041.dsdi    +++|          SB7    B7+6        SET PRINT STRING ADDRESS
17449  M00S14042.dsdi    +++|          JP     FONA+B4     PROCESS APPROPRIATE LINE
17450  M00S14043.dsdi    +++|
17451  M00S14044.dsdi    +++|*         LIST LAST MAIN PROGRAM LOADED.
17452  M00S14045.dsdi    +++|
17453  M00S14046.dsdi    +++| FON1     SA2    =27HLAST MAIN PROGRAM LOADED -
17454  M00S14047.dsdi    +++|          SB6    27
17455  M00S14048.dsdi    +++|          RJ     UPS
17456  M00S14049.dsdi    +++|          SX1    IR
17457  M00S14050.dsdi    +++|          SB6    B7+         SAVE PRINT STRING ADDRESS
17458  M00S14051.dsdi    +++|          RJ     RPB         READ INPUT REGISTER BYTE
17459  M00S14052.dsdi    +++|          SX1    IR+1
17460  M00S14053.dsdi    +++|          BX7    X6          SAVE (IR)
17461  M00S14054.dsdi    +++|          RJ     RPB
17462  M00S14055.dsdi    +++|          LX6    -12
17463  M00S14056.dsdi    +++| FON2     BX2    X6+X7       SET PROGRAM NAME
17464  M00S14057.dsdi    +++|          SB7    B6          PRINT STRING ADDRESS
17465  M00S14058.dsdi    +++|          SB6    3
17466  M00S14059.dsdi    +++|          RJ     UPS         SET NAME IN PRINT STRING
17467  M00S14060.dsdi    +++|          JP     FONX        EXIT
17468  M00S14061.dsdi    +++|
17469  M00S14062.dsdi    +++|*         LIST LAST OVERLAY LOADED.
17470  M00S14063.dsdi    +++|
17471  M00S14064.dsdi    +++| FON3     SA2    =27HLAST OVERLAY LOADED      -
17472  M00S14065.dsdi    +++|          SB6    27
17473  M00S14066.dsdi    +++|          RJ     UPS
17474  M00S14067.dsdi    +++|          SB6    B7+         SAVE B7
17475  M00S14068.dsdi    +++|          SX1    PLLA
17476  M00S14069.dsdi    +++|          RJ     RPB         READ OVERLAY NAME
17477  M00S14070.dsdi    +++|          SX1    PLLB
17478  M00S14071.dsdi    +++|          BX7    X6
17479  M00S14072.dsdi    +++|          RJ     RPB
17480  M00S14073.dsdi    +++|          MX2    6
17481  M00S14074.dsdi    +++|          BX7    -X2*X7
17482  M00S14075.dsdi    +++|          LX7    6
17483  M00S14076.dsdi    +++|          LX6    -6
17484  M00S14077.dsdi    +++|          JP     FON2        SET NAME IN PRINT STRING
17485  M00S14078.dsdi    +++|
17486  M00S14079.dsdi    +++|*         LIST LAST MASS STORAGE DRIVER LOADED.
17487  M00S14080.dsdi    +++|
17488  M00S14081.dsdi    +++| FON4     SA2    =27HLAST MASS STORAGE DRIVER -
17489  M00S14082.dsdi    +++|          SB6    27
17490  M00S14083.dsdi    +++|          RJ     UPS
17491  M00S14084.dsdi    +++|          SB6    B7+
17492  M00S14085.dsdi    +++|          SX1    MSD
17493  M00S14086.dsdi    +++|          RJ     RPB         READ DRIVER IDENTIFICATION BYTE
17494  M00S14087.dsdi    +++|          SX7    B0          ASSUME NO DRIVER
17495  M00S14088.dsdi    +++|          LX6    6           POSITION MASS STORAGE DRIVER INDEX
17496  M00S14089.dsdi    +++|          BX6    X1*X6
17497  M00S14090.dsdi    +++|          LX6    6
17498  M00S14091.dsdi    +++|          ZR     X6,FON2     IF NO DRIVER
17499  M00S14092.dsdi    +++|          SA1    TFON-1+X6   INDEX INTO DRIVER DESIGNATOR TABLE
17500  M00S14093.dsdi    +++|          BX6    X1
17501  M00S14094.dsdi    +++|          SX7    1R6
17502  M00S14095.dsdi    +++|          LX7    -6
17503  M00S14096.dsdi    +++|          JP     FON2        PROCESS DRIVER NAME
17504  M00S14097.dsdi    +++|
17505  M00S14098.dsdi    +++| FONA     BSS    0           LINE PROCESSOR JUMP TABLE
17506  M00S14099.dsdi    +++|+         JP     FON1        PRINT LINE 0
17507  M00S14100.dsdi    +++|+         JP     FON3        PRINT LINE 1
17508  M00S14101.dsdi    +++|+         JP     FON4        PRINT LINE 2
17509  M00S14102.dsdi    +++|
17510  M00S14103.dsdi    +++| TFON     BSS    0           TABLE OF MASS STORAGE DRIVER DESIGNATORS
17511  M00S14104.dsdi    +++|          LOC    1
17512  M00S14105.dsdi    +++|          ERRNZ  /MSP/LA6DI-*  ADJUST TABLE IF VALUE CHANGES
17513  M00S14106.dsdi    +++|          VFD    6/0,12/2RDI,42/0  *6DI*
17514  M00S14107.dsdi    +++|          ERRNZ  /MSP/LA6DJ-*  ADJUST TABLE IF VALUE CHANGES
17515  M00S14108.dsdi    +++|          VFD    6/0,12/2RDJ,42/0  *6DJ*
17516  M00S14109.dsdi    +++|          ERRNZ  /MSP/LA6DP-*  ADJUST TABLE IF VALUE CHANGES
17517  M00S14110.dsdi    +++|          VFD    6/0,12/2RDP,42/0  *6DP*
17518  M00S14111.dsdi    +++|          ERRNZ  /MSP/LA6DE-*  ADJUST TABLE IF VALUE CHANGES
17519  M00S14112.dsdi    +++|          VFD    6/0,12/2RDE,42/0  *6DE*
17520  M00S14113.dsdi    +++|          ERRNZ  /MSP/LA6DX-*  ADJUST TABLE IF VALUE CHANGES
17521  M00S14114.dsdi    +++|          VFD    6/0,12/2RDX,42/0  *6DX*
17522  M00S14115.dsdi    +++|          LOC    *O
17523  M00S14116.dsdi    +++| FPB      SPACE  4,22
17524  M00S14117.dsdi    +++|**        FPB - FILL PAGE BUFFER.
17525  M00S14118.dsdi    +++|*
17526  M00S14119.dsdi    +++|*         ENTRY  (B2) = ADDRESS OF DUMP PARAMETERS.  PARAMETER BLOCK
17527  M00S14120.dsdi    +++|*                         IS DOCUMENTED IN *PMD*.
17528  M00S14121.dsdi    +++|*                (LC) = CURRENT LINE COUNTER.
17529  M00S14122.dsdi    +++|*                (PD) = NUMBER OF LINES PER PAGE.
17530  M00S14123.dsdi    +++|*
17531  M00S14124.dsdi    +++|*         EXIT   (X1) = PAGE BUFFER LENGTH.
17532  M00S14125.dsdi    +++|*                PARAMETER BLOCK IS UPDATED.  FOR EACH WORD DUMPED,
17533  M00S14126.dsdi    +++|*                *BUF* CONTAINS A TWO WORD ENTRY -
17534  M00S14127.dsdi    +++|*
17535  M00S14128.dsdi    +++|*                36/0,24/ADDRESS
17536  M00S14129.dsdi    +++|*                60/DATA           FOR DATA, OR
17537  M00S14130.dsdi    +++|*
17538  M00S14131.dsdi    +++|*                60/MINUS
17539  M00S14132.dsdi    +++|*                60/GARBAGE        FOR REPEAT INDICATOR.
17540  M00S14133.dsdi    +++|*
17541  M00S14134.dsdi    +++|*         USES   X - 1, 2, 3, 5, 6, 7.
17542  M00S14135.dsdi    +++|*                A - 1, 2, 3, 5, 6, 7.
17543  M00S14136.dsdi    +++|*                B - 5, 7.
17544  M00S14137.dsdi    +++|*
17545  M00S14138.dsdi    +++|*         CALLS  CPS.
17546  M00S14139.dsdi    +++|*
17547  M00S14140.dsdi    +++|*         MACROS GETCM.
17548  M00S14141.dsdi    +++|
17549  M00S14142.dsdi    +++|
17550  M00S14143.dsdi    +++| FPB      SUBR
17551  M00S14144.dsdi    +++|          SA5    B2+6        SAVE INVERTED ADDRESS FLAG
17552  M00S14145.dsdi    +++|          BX6    X5
17553  M00S14146.dsdi    +++|          SA5    B2
17554  M00S14147.dsdi    +++|          SA6    FPBA
17555  M00S14148.dsdi    +++|          SX1    1
17556  M00S14149.dsdi    +++|          RJ     CPS         CHECK PAGE SPACE
17557  M00S14150.dsdi    +++|          SX7    -1          SET SKIP FLAG
17558  M00S14151.dsdi    +++|          SX3    6
17559  M00S14152.dsdi    +++|          IX3    X3*X6       PAGE BUFFER LENGTH = 6*LINES
17560  M00S14153.dsdi    +++|          SB5    BUF         SET BUFFER POINTER
17561  M00S14154.dsdi    +++|          SB7    B5+X3       SET LWA+1
17562  M00S14155.dsdi    +++|          SA7    FPBA+1
17563  M00S14156.dsdi    +++| FPB1     SA1    A5+2
17564  M00S14157.dsdi    +++|          ZR     X1,FPB2     IF DATA NOT IN CORE
17565  M00S14158.dsdi    +++|          SA2    X1          READ DATA WORD
17566  M00S14159.dsdi    +++|          SX6    X1+B1
17567  M00S14160.dsdi    +++|          SA6    A1          UPDATE CORE ADDRESS
17568  M00S14161.dsdi    +++|          BX6    X2          SET DATA WORD
17569  M00S14162.dsdi    +++|          EQ     FPB3        PROCESS WORD
17570  M00S14163.dsdi    +++|
17571  M00S14164.dsdi    +++| FPB2     GETCM              READ DATA FROM DUMP FILE
17572  M00S14165.dsdi    +++| FPB3     SA3    FPBA        CHECK IF INVERTED ADDRESS IS PRESENT
17573  M00S14166.dsdi    +++|          SA2    A5+6
17574  M00S14167.dsdi    +++|          SX1    B1+
17575  M00S14168.dsdi    +++|          ZR     X3,FPB3.1   IF INVERTED ADDRESS NOT PRESENT
17576  M00S14169.dsdi    +++|          IX7    X2-X1       UPDATE INVERTED ADDRESS
17577  M00S14170.dsdi    +++|          SA7    A2
17578  M00S14171.dsdi    +++| FPB3.1   SA2    A5          GET DUMP ADDRESS
17579  M00S14172.dsdi    +++|          IX7    X2+X1
17580  M00S14173.dsdi    +++|          SA7    A2
17581  M00S14174.dsdi    +++|          SA1    A2+3
17582  M00S14175.dsdi    +++|          SA3    FPBA+1
17583  M00S14176.dsdi    +++|          NZ     X1,FPB5     IF NO SUPPRESS REQUESTED
17584  M00S14177.dsdi    +++|          NG     X3,FPB5     IF FIRST TIME THROUGH LOOP
17585  M00S14178.dsdi    +++|          BX1    X6-X5       COMPARE WITH PREVIOUS WORD
17586  M00S14179.dsdi    +++|          ZR     X1,FPB4     IF DATA IS SAME OR LOGICAL OPPOSITE
17587  M00S14180.dsdi    +++|          EQ     FPB5        STORE NEW WORD
17588  M00S14181.dsdi    +++|
17589  M00S14182.dsdi    +++| FPB4     NG     X1,FPB5     IF DATA IS LOGICAL OPPOSITE
17590  M00S14183.dsdi    +++|          NZ     X3,FPB7     IF REPEAT ALREADY FLAGGED
17591  M00S14184.dsdi    +++|          MX6    1
17592  M00S14185.dsdi    +++|          SA6    B5          STORE REPEAT FLAG
17593  M00S14186.dsdi    +++|          SX6    B1          SET SKIPPING FLAG
17594  M00S14187.dsdi    +++|          SA6    A3
17595  M00S14188.dsdi    +++|          EQ     FPB6        CONTINUE
17596  M00S14189.dsdi    +++|
17597  M00S14190.dsdi    +++| FPB5     BX5    X6          SAVE WORD FOR NEXT COMPARE
17598  M00S14191.dsdi    +++|          SA6    B5+B1       STORE DATA WORD
17599  M00S14192.dsdi    +++|          SX2    B1
17600  M00S14193.dsdi    +++|          IX6    X7-X2
17601  M00S14194.dsdi    +++|          SA1    FPBA        GET INVERTED ADDRESS FLAG
17602  M00S14195.dsdi    +++|          SA6    B5
17603  M00S14196.dsdi    +++|          MX7    0           CLEAR SKIP FLAG
17604  M00S14197.dsdi    +++|          SA3    A5+6
17605  M00S14198.dsdi    +++|          SA7    FPBA+1
17606  M00S14199.dsdi    +++|          ZR     X1,FPB6     IF NO INVERTED ADDRESS
17607  M00S14200.dsdi    +++|          IX6    X3+X2
17608  M00S14201.dsdi    +++|          SA6    B5          STORE ADDRESS
17609  M00S14202.dsdi    +++| FPB6     SB5    B5+2        ADVANCE BUFFER ADDRESS
17610  M00S14203.dsdi    +++|          GE     B5,B7,FPB8  IF BUFFER FULL
17611  M00S14204.dsdi    +++| FPB7     SA1    A5+B1       LWA+1
17612  M00S14205.dsdi    +++|          SA2    A5          FWA
17613  M00S14206.dsdi    +++|          IX1    X2-X1
17614  M00S14207.dsdi    +++|          NG     X1,FPB1     IF MORE TO DUMP
17615  M00S14208.dsdi    +++| FPB8     SX1    B5-BUF      SET BUFFER LENGTH
17616  M00S14209.dsdi    +++|          EQ     FPBX        RETURN
17617  M00S14210.dsdi    +++|
17618  M00S14211.dsdi    +++| FPBA     BSS    1           INVERTED ADDRESS FLAG
17619  M00S14212.dsdi    +++|          BSS    1           SKIP FLAG
Line S14213 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17620  M01S14213.dsdi78  ---| FPL      SPACE  4,11
Line S00026 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17621  M01S00026.dsdi78  +++| FPL      SPACE  4,15
17622  M00S14214.dsdi    +++|**        FPL - FORMAT PPU COMMUNICATION REGISTER WORD.
17623  M00S14215.dsdi    +++|*
Line S14216 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17624  M01S14216.dsdi78  ---|*         ENTRY  A5 = ADDRESS OF REGISTER WORD.
17625  M01S14217.dsdi78  ---|*                X5 = REGISTER WORD.
17626  M01S14218.dsdi78  ---|*                B2 = PPU NUMBER.
17627  M01S14219.dsdi78  ---|*                B4 = LINE INDEX.
17628  M01S14220.dsdi78  ---|*                B7 = PRINT STRING ADDRESS.
17629  M01S14221.dsdi78  ---|*                (FPLB) = 0, IF NOT PROCESSING A CPP.
17630  M01S14222.dsdi78  ---|*                       .NE. 0, IF PROCESSING A CPP.
17631  M01S14223.dsdi78  ---|*
17632  M01S14224.dsdi78  ---|*         USES   ALL REGISTERS.
17633  M01S14225.dsdi78  ---|*
17634  M01S14226.dsdi78  ---|*         CALLS  CTS,FAC,FDW,SDI,UPS.
Line S00027 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17635  M01S00027.dsdi78  +++|*         ENTRY  (A5) = ADDRESS OF REGISTER WORD.
17636  M01S00028.dsdi78  +++|*                (X5) = REGISTER WORD.
17637  M01S00029.dsdi78  +++|*                (B2) = PPU NUMBER.
17638  M01S00030.dsdi78  +++|*                (B4) = LINE INDEX.
17639  M01S00031.dsdi78  +++|*                (B7) = PRINT STRING ADDRESS.
17640  M01S00032.dsdi78  +++|*                (IC) = *CPP* PROCESSING FLAG.
17641  M01S00033.dsdi78  +++|*
17642  M01S00034.dsdi78  +++|*         USES   X - 0, 1, 2, 3, 6.
17643  M01S00035.dsdi78  +++|*                A - 1, 2, 6.
17644  M01S00036.dsdi78  +++|*                B - 6, 7.
17645  M01S00037.dsdi78  +++|*
17646  M01S00038.dsdi78  +++|*         CALLS  CTS, FAC, FDW, SDI, UPS.
17647  M00S14227.dsdi    +++|
17648  M00S14228.dsdi    +++|
17649  M00S14229.dsdi    +++| FPL      SUBR
17650  M00S14230.dsdi    +++|          JP     FPLA+B4     PROCESS SELECTED LINE
17651  M00S14231.dsdi    +++|
17652  M00S14232.dsdi    +++| FPLA     BSS    0
17653  M00S14233.dsdi    +++|          LOC    0
17654  M00S14234.dsdi    +++|+         JP     FPL0
17655  M00S14235.dsdi    +++|+         JP     FPL3
17656  M00S14236.dsdi    +++|+         JP     FPL4
17657  M00S14237.dsdi    +++|+         JP     FPL5
17658  M00S14238.dsdi    +++|+         JP     FPL5
17659  M00S14239.dsdi    +++|+         JP     FPL5
17660  M00S14240.dsdi    +++|+         JP     FPL5
17661  M00S14241.dsdi    +++|+         JP     FPL5
17662  M00S14242.dsdi    +++|          LOC    *O
17663  M00S14243.dsdi    +++|
17664  M00S14244.dsdi    +++|*         PROCESS WORD 0.
17665  M00S14245.dsdi    +++|
Line S14246 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17666  M01S14246.dsdi78  ---| FPL0     SA2    FPLB
Line S00039 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17667  M01S00039.dsdi78  +++| FPL0     SA2    IC
17668  M00S14247.dsdi    +++|          ZR     X2,FPL1     IF NOT PROCESSING A CPP
17669  M00S14248.dsdi    +++|          SX6    1RC
17670  M00S14249.dsdi    +++|          SA6    B7-1
17671  M00S14250.dsdi    +++| FPL1     SX6    1RP
17672  M00S14251.dsdi    +++|          SA6    B7          *PP* TO PRINT STRING
17673  M00S14252.dsdi    +++|          SA6    A6+B1
17674  M00S14253.dsdi    +++|          SB7    A6+1
17675  M00S14254.dsdi    +++|          SX1    B2
17676  M00S14255.dsdi    +++|          LX1    -6
17677  M00S14256.dsdi    +++|          SB6    2
17678  M00S14257.dsdi    +++|          RJ     CTS         CONVERT PPU NUMBER
17679  M00S14258.dsdi    +++|          SB7    B7+3        SPACE 3
17680  M00S14259.dsdi    +++|          BX2    X5
17681  M00S14260.dsdi    +++|          SB6    3
17682  M00S14261.dsdi    +++|          RJ     UPS         PROGRAM NAME TO PRINT STRING
17683  M00S14262.dsdi    +++|          SX6    1R
17684  M00S14263.dsdi    +++|          SA6    B7+
17685  M00S14264.dsdi    +++|          SB7    B7+3
17686  M00S14265.dsdi    +++| FPL2     BX1    X5          DATA WORD TO PRINT STRING
17687  M00S14266.dsdi    +++|          SA2    =4000005B
17688  M00S14267.dsdi    +++|          RJ     FDW         FORMAT DATA WORD
17689  M00S14268.dsdi    +++|          SB6    10          CHARACTER COUNT
17690  M00S14269.dsdi    +++|          BX2    X5          DATA WORD
17691  M00S14270.dsdi    +++|          SB7    B7+B1
17692  M00S14271.dsdi    +++|          RJ     SDI         SET DISPLAY CODE INTERPRETATION
17693  M00S14272.dsdi    +++|          JP     FPLX        EXIT
17694  M00S14273.dsdi    +++|
17695  M00S14274.dsdi    +++|*         PROCESS WORD 1.
17696  M00S14275.dsdi    +++|
17697  M00S14276.dsdi    +++| FPL3     SX6    1R          BLANK OUT PPU NUMBER
17698  M00S14277.dsdi    +++|          SA6    B7-1        CLEAR *C* FOR CPP-S
17699  M00S14278.dsdi    +++|          SA6    B7
17700  M00S14279.dsdi    +++|          SA6    A6+B1
17701  M00S14280.dsdi    +++|          SA6    A6+B1
17702  M00S14281.dsdi    +++|          SA6    A6+B1
17703  M00S14282.dsdi    +++|          SB7    A6+4
17704  M00S14283.dsdi    +++|          MX0    7
17705  M00S14284.dsdi    +++|          LX0    -5
17706  M00S14285.dsdi    +++|          BX1    X0*X5       EXTRACT MTR FUNCTION CODE
17707  M00S14286.dsdi    +++|          LX1    12
17708  M00S14287.dsdi    +++|          SX0    X1-MXFM-1
17709  M00S14288.dsdi    +++|          SB6    4
17710  M00S14289.dsdi    +++|          NG     X0,FPL3.1   IF FUNCTION WITHIN TABLE
17711  M00S14290.dsdi    +++|          SX1    MXFM        SET MAXIMUM FUNCTION CODE
17712  M00S14291.dsdi    +++| FPL3.1   SA2    TFTN+X1     READ CODE NAME FROM *COMDTFN*
17713  M00S14292.dsdi    +++|          RJ     UPS         MTR FUNCTION NAME TO PRINT STRING
17714  M00S14293.dsdi    +++|          SB7    B7+2
17715  M00S14294.dsdi    +++|          JP     FPL2        CONVERT DATA WORD
17716  M00S14295.dsdi    +++|
17717  M00S14296.dsdi    +++|*         PROCESS WORD 2.
17718  M00S14297.dsdi    +++|
17719  M00S14298.dsdi    +++| FPL4     SX6    1RC         *CL* TO PRINT STRING
17720  M00S14299.dsdi    +++|          SA6    B7+7
17721  M00S14300.dsdi    +++|          SX6    1RP
Line S14301 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17722  M01S14301.dsdi78  ---|          SA6    A6+B1
17723  M01S14302.dsdi78  ---|          SB7    A6+B1
17724  M00S14303.dsdi    +++|          SA1    A5-2        READ WORD 0
17725  M00S14304.dsdi    +++|          MX0    -5
17726  M00S14305.dsdi    +++|          LX1    24
17727  M00S14306.dsdi    +++|          BX1    -X0*X1      CONTROL POINT NUMBER
Line S00040 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17728  M01S00040.dsdi78  +++| FPL4.1   SA6    A6+B1
17729  M01S00041.dsdi78  +++|          SB7    A6+B1
17730  M00S14307.dsdi    +++|          LX1    -6
17731  M00S14308.dsdi    +++|          SB6    2
17732  M00S14309.dsdi    +++|          RJ     CTS         CONVERT CONTROL POINT NUMBER ASSIGNMENT
17733  M00S14310.dsdi    +++|          SB7    B7+2
17734  M00S14311.dsdi    +++|          JP     FPL2        CONVERT DATA WORD
17735  M00S14312.dsdi    +++|
17736  M00S14313.dsdi    +++|*         PROCESS WORDS 3 - 7.
17737  M00S14314.dsdi    +++|
17738  M00S14315.dsdi    +++| FPL5     RJ     FAC         FIND ASSIGNED CHANNEL
17739  M00S14316.dsdi    +++|          NG     X1,FPL6     IF NO MORE CHANNELS ASSIGNED
17740  M00S14317.dsdi    +++|          SX6    1RC         *CH* TO PRINT STRING
17741  M00S14318.dsdi    +++|          SX3    X1-40B
17742  M00S14319.dsdi    +++|          NG     X3,FPL5.1   IF NOT PROCESSING A *CCH*
17743  M00S14320.dsdi    +++|          SA6    B7+6
17744  M00S14321.dsdi    +++| FPL5.1   SA6    B7+7
17745  M00S14322.dsdi    +++|          SX6    1RH
Line S14323 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17746  M01S14323.dsdi78  ---|          SA6    A6+1
17747  M01S14324.dsdi78  ---|          SB7    A6+B1
17748  M01S14325.dsdi78  ---|          LX1    -6
17749  M01S14326.dsdi78  ---|          SB6    2
17750  M01S14327.dsdi78  ---|          RJ     CTS         CHANNEL NUMBER TO PRINT STRING
17751  M01S14328.dsdi78  ---|          SB7    B7+2
17752  M01S14329.dsdi78  ---|          JP     FPL2        CONVERT DATA WORD
Line S00042 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17753  M01S00042.dsdi78  +++|          JP     FPL4.1      CONVERT DATA WORD
17754  M00S14330.dsdi    +++|
17755  M00S14331.dsdi    +++| FPL6     SX6    1R
17756  M00S14332.dsdi    +++|          SA6    B7+6
Line S14333 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17757  M01S14333.dsdi78  ---|          SA6    B7+7
17758  M01S14334.dsdi78  ---|          SA6    A6+1
Line S00043 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17759  M01S00043.dsdi78  +++|          SA6    A6+B1
17760  M01S00044.dsdi78  +++|          SA6    A6+B1
17761  M00S14335.dsdi    +++|          SA6    A6+B1
17762  M00S14336.dsdi    +++|          SA6    A6+B1
17763  M00S14337.dsdi    +++|          SB7    A6+3
17764  M00S14338.dsdi    +++|          JP     FPL2        CONVERT DATA WORD
Line S14339 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17765  M01S14339.dsdi78  ---|
17766  M01S14340.dsdi78  ---| FPLB     CON    0           PROCESSING *CPP* FLAG
Line S00140 Modification History
M01 (Added by) ns2647
M02 (Removed by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17767  M02S00140.ns2647a ---| FPO      SPACE  4,10
Line S00026 Modification History
M01 (Added by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17768  M01S00026.ns2647a +++| FPO      SPACE  4,15
Line S00141 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17769  M01S00141.ns2647  +++|**        FPO - FORMAT PP OPERATING REGISTERS LINE.
17770  M01S00142.ns2647  +++|*
17771  M01S00143.ns2647  +++|*         ENTRY  (X5) = LINE NUMBER.
Line S00027 Modification History
M01 (Added by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17772  M01S00027.ns2647a +++|*                (B7) = FWA OF STRING BUFFER.
17773  M01S00028.ns2647a +++|*                (CPRA+3) = HEX/OCTAL FLAG.
17774  M01S00029.ns2647a +++|*
17775  M01S00030.ns2647a +++|*         EXIT   (X6) = 0 IF END OF REGISTERS.
Line S00144 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17776  M01S00144.ns2647  +++|*
17777  M01S00145.ns2647  +++|*         USES   X - 1, 2, 6.
Line S00146 Modification History
M01 (Added by) ns2647
M02 (Removed by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17778  M02S00146.ns2647a ---|*                A - 1, 2.
Line S00031 Modification History
M01 (Added by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17779  M01S00031.ns2647a +++|*                A - 1, 2, 6.
Line S00147 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17780  M01S00147.ns2647  +++|*                B - 6, 7.
17781  M01S00148.ns2647  +++|*
Line S00149 Modification History
M01 (Added by) ns2647
M02 (Removed by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17782  M02S00149.ns2647a ---|*         CALLS  CTS, UPS.
Line S00032 Modification History
M01 (Added by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17783  M01S00032.ns2647a +++|*         CALLS  CTS, HTS, UPS.
Line S00150 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17784  M01S00150.ns2647  +++|
Line S00033 Modification History
M01 (Added by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17785  M01S00033.ns2647a +++|
17786  M01S00034.ns2647a +++| FPO3     LX1    59-15       DISPLAY HEX REGISTERS
17787  M01S00035.ns2647a +++|          SB6    4
17788  M01S00036.ns2647a +++|          SB7    B7+B1
17789  M01S00037.ns2647a +++|          RJ     HTS
17790  M01S00038.ns2647a +++|          SA1    A1+B1       GET Q-REGISTER
17791  M01S00039.ns2647a +++|          LX1    59-15
17792  M01S00040.ns2647a +++|          SB6    4
17793  M01S00041.ns2647a +++|          SB7    B7+3
17794  M01S00042.ns2647a +++|          RJ     HTS
17795  M01S00043.ns2647a +++|          SA1    A1+B1       GET K-REGISTER
17796  M01S00044.ns2647a +++|          LX1    59-15
17797  M01S00045.ns2647a +++|          SB6    4
17798  M01S00046.ns2647a +++|          SB7    B7+4
17799  M01S00047.ns2647a +++|          RJ     HTS
17800  M01S00048.ns2647a +++|          SA1    A1+B1       GET A-REGISTER
17801  M01S00049.ns2647a +++|          LX1    59-19
17802  M01S00050.ns2647a +++|          SB6    5
17803  M01S00051.ns2647a +++|          SB7    B7+3
17804  M01S00052.ns2647a +++|          RJ     HTS
Line S00151 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17805  M01S00151.ns2647  +++|
17806  M01S00152.ns2647  +++| FPO      SUBR               ENTRY/EXIT
Line S00153 Modification History
M01 (Added by) ns2647
M02 (Removed by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17807  M02S00153.ns2647a ---|          SX1    X5-2
17808  M02S00154.ns2647a ---|          ZR     X1,FPOX     IF BETWEEN REGISTER SETS
Line S00155 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17809  M01S00155.ns2647  +++|          NZ     X5,FPO1     IF NOT FIRST LINE
17810  M01S00156.ns2647  +++|          SX6    B0+         INITIALIZE REGISTER POINTER
17811  M01S00157.ns2647  +++|          SA6    FPOA
17812  M01S00158.ns2647  +++| FPO1     SA2    FPOA
17813  M01S00159.ns2647  +++|          SX6    X2-4
Line S00160 Modification History
M01 (Added by) ns2647
M02 (Removed by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17814  M02S00160.ns2647a ---|          PL     X6,FPOX     IF END OF REGISTERS
Line S00053 Modification History
M01 (Added by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17815  M01S00053.ns2647a +++|          ZR     X6,FPOX     IF END OF REGISTERS
17816  M01S00054.ns2647a +++|          SX1    X5-2
17817  M01S00055.ns2647a +++|          ZR     X1,FPOX     IF BETWEEN REGISTER SETS
Line S00161 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17818  M01S00161.ns2647  +++|          SX6    X2+B1
17819  M01S00162.ns2647  +++|          SA6    A2          UPDATE POINTER
17820  M01S00163.ns2647  +++|          LX2    2
17821  M01S00164.ns2647  +++|          SA1    X2+PPOB     GET P-REGISTER
17822  M01S00165.ns2647  +++|          NG     X1,FPO1     IF NO REGISTERS PRESENT
17823  M01S00166.ns2647  +++|          LX2    -1          SET DESCRIPTOR
17824  M01S00167.ns2647  +++|          ERRNZ  FPOBE-2     CODE DEPENDS ON VALUE
17825  M01S00168.ns2647  +++|          SA2    X2+FPOB
17826  M01S00169.ns2647  +++|          SB6    12
Line S00170 Modification History
M01 (Added by) ns2647
M02 (Removed by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17827  M02S00170.ns2647a ---|          SB7    PRBF+76
Line S00171 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17828  M01S00171.ns2647  +++|          RJ     UPS
Line S00172 Modification History
M01 (Added by) ns2647
M02 (Removed by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17829  M02S00172.ns2647a ---|          LX1    59-14       SET P-REGISTER
Line S00056 Modification History
M01 (Added by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17830  M01S00056.ns2647a +++|          SB7    B7+3
17831  M01S00057.ns2647a +++|          SA2    CPRA+3      GET FORMAT CODE
17832  M01S00058.ns2647a +++|          SX6    2
17833  M01S00059.ns2647a +++|          ZR     X2,FPO2     IF OCTAL
17834  M01S00060.ns2647a +++|          BX2    X6*X2
17835  M01S00061.ns2647a +++|          ZR     X2,FPO3     IF HEX
17836  M01S00062.ns2647a +++| FPO2     LX1    59-14       SET P-REGISTER
Line S00173 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17837  M01S00173.ns2647  +++|          SB6    5
Line S00174 Modification History
M01 (Added by) ns2647
M02 (Removed by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17838  M02S00174.ns2647a ---|          SB7    B7+3
Line S00175 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17839  M01S00175.ns2647  +++|          RJ     CTS
17840  M01S00176.ns2647  +++|          SA1    A1+B1       GET Q-REGISTER
17841  M01S00177.ns2647  +++|          LX1    59-14
17842  M01S00178.ns2647  +++|          SB6    5
17843  M01S00179.ns2647  +++|          SB7    B7+2
17844  M01S00180.ns2647  +++|          RJ     CTS
17845  M01S00181.ns2647  +++|          SA1    A1+B1       GET K-REGISTER
17846  M01S00182.ns2647  +++|          LX1    59-17
17847  M01S00183.ns2647  +++|          SB6    6
17848  M01S00184.ns2647  +++|          SB7    B7+2
17849  M01S00185.ns2647  +++|          RJ     CTS
17850  M01S00186.ns2647  +++|          SA1    A1+B1       GET A-REGISTER
17851  M01S00187.ns2647  +++|          LX1    59-17
17852  M01S00188.ns2647  +++|          SB6    6
17853  M01S00189.ns2647  +++|          SB7    B7+2
17854  M01S00190.ns2647  +++|          RJ     CTS
17855  M01S00191.ns2647  +++|          EQ     FPOX        RETURN
17856  M01S00192.ns2647  +++|
17857  M01S00193.ns2647  +++|
17858  M01S00194.ns2647  +++| FPOA     CON    0           REGISTER SET POINTER
17859  M01S00195.ns2647  +++| FPOB     DATA   C* BEFORE IDLE*
17860  M01S00196.ns2647  +++| FPOBE    EQU    *-FPOB      ENTRY LENGTH
17861  M01S00197.ns2647  +++|          DATA   C*  AFTER IDLE*
17862  M01S00198.ns2647  +++|          DATA   C*DFT BUFFER 1*
17863  M01S00199.ns2647  +++|          DATA   C*DFT BUFFER 2*
17864  M00S14341.dsdi    +++| FPP      SPACE  4,13
17865  M00S14342.dsdi    +++|**        FPP - FIND PPU PROGRAM.
17866  M00S14343.dsdi    +++|*
17867  M00S14344.dsdi    +++|*         ENTRY  X4 = PROGRAM NAME.
17868  M00S14345.dsdi    +++|*                FI = 0 IF INITIAL ENTRY.
17869  M00S14346.dsdi    +++|*                   = CURRENT SEARCH INDEX IF NOT FIRST ENTRY.
17870  M00S14347.dsdi    +++|*
17871  M00S14348.dsdi    +++|*         EXIT   X6 = PPU NUMBER.
17872  M00S14349.dsdi    +++|*                FI IS UPDATED.
17873  M00S14350.dsdi    +++|*                X1=FI=0 IF NO MORE PPS EXECUTING REQUESTED PROGRAM.
17874  M00S14351.dsdi    +++|*
17875  M00S14352.dsdi    +++|*         SAVES  X - 5.
17876  M00S14353.dsdi    +++|*                B - 1,5,6,7.
17877  M00S14354.dsdi    +++|*                A - 0,5.
17878  M00S14355.dsdi    +++|
17879  M00S14356.dsdi    +++|
17880  M00S14357.dsdi    +++| FPP      SUBR
17881  M00S14358.dsdi    +++|          SA1    NP          GET NUMBER OF PP-S
17882  M00S14359.dsdi    +++|          SA2    PC          GET PP COMMUNICATION AREA POINTER
17883  M00S14360.dsdi    +++|          SA3    IC
17884  M00S14361.dsdi    +++|          ZR     X3,FPP1     IF NOT DUMPING CPP-S
17885  M00S14362.dsdi    +++|          LX1    3
17886  M00S14363.dsdi    +++|          IX2    X1+X2       SET CPP COMMUNICATION AREA POINTER
17887  M00S14364.dsdi    +++|          SA1    C4          GET NUMBER OF CPP-S
17888  M00S14365.dsdi    +++| FPP1     LX1    3
17889  M00S14366.dsdi    +++|          SB4    X2
17890  M00S14367.dsdi    +++|          SB3    X1+B4       SET LWA+1 OF SEARCH AREA
17891  M00S14368.dsdi    +++|          MX0    18
17892  M00S14369.dsdi    +++|          SA1    FI          READ SEARCH INDEX
17893  M00S14370.dsdi    +++|          SA2    F.TCMT
17894  M00S14371.dsdi    +++|          SB2    X1
17895  M00S14372.dsdi    +++|          NZ     X1,FPP2     IF NOT INITIAL ENTRY
17896  M00S14373.dsdi    +++|          SB2    B4          PRESET SEARCH INDEX
17897  M00S14374.dsdi    +++| FPP2     GE     B2,B3,FPP3  IF END OF SEARCH
17898  M00S14375.dsdi    +++|          SA1    X2+B2
17899  M00S14376.dsdi    +++|          BX3    X1-X4
17900  M00S14377.dsdi    +++|          BX3    X0*X3
17901  M00S14378.dsdi    +++|          ZR     X3,FPP4     IF PROGRAM NAME MATCH
17902  M00S14379.dsdi    +++|          SB2    B2+10B      ADVANCE SEARCH
17903  M00S14380.dsdi    +++|          EQ     FPP2        CONTINUE SEARCH
17904  M00S14381.dsdi    +++|
17905  M00S14382.dsdi    +++| FPP3     SX6    0
17906  M00S14383.dsdi    +++|          SA6    FI          CLEAR SEARCH INDEX
17907  M00S14384.dsdi    +++|          SX1    0           SET END OF SEARCH
17908  M00S14385.dsdi    +++|          JP     FPPX        EXIT
17909  M00S14386.dsdi    +++|
17910  M00S14387.dsdi    +++| FPP4     SX6    B2+10B
17911  M00S14388.dsdi    +++|          SA6    FI          UPDATE SEARCH INDEX
17912  M00S14389.dsdi    +++|          SX6    B2-B4
17913  M00S14390.dsdi    +++|          AX6    3           SET PPU NUMBER
17914  M00S14391.dsdi    +++|          SX1    1           SET PPU FOUND
17915  M00S14392.dsdi    +++|          SX7    X6-12B
17916  M00S14393.dsdi    +++|          NG     X7,FPPX     IF NOT PPUS 20 - 31
17917  M00S14394.dsdi    +++|          SX6    X6+20B-12B  CORRECT PPU NUMBER
17918  M00S14395.dsdi    +++|          JP     FPPX        EXIT
Line S00133 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
17919  M01S00133.dsdi67  +++| FPR      SPACE  4,20
17920  M01S00134.dsdi67  +++|**        FPR - FIND PROCESSOR RECORD.
17921  M01S00135.dsdi67  +++|*
17922  M01S00136.dsdi67  +++|*         ENTRY  (X1) = THREE CHARACTER RECORD ID.
17923  M01S00137.dsdi67  +++|*                (X6) = RADIAL MCI FLAG.
17924  M01S00138.dsdi67  +++|*
17925  M01S00139.dsdi67  +++|*         EXIT   (X2) = FIRST WORD OF TABLE DIRECTORY IF FOUND.
17926  M01S00140.dsdi67  +++|*                     = 0 IF RECORD NOT FOUND.
17927  M01S00141.dsdi67  +++|*                (RI) = RANDOM INDEX.
17928  M01S00142.dsdi67  +++|*                RADIAL MCI PRINTED IF (X6) .NE. 0 ON ENTRY.
17929  M01S00143.dsdi67  +++|*
17930  M01S00144.dsdi67  +++|*         USES   X - 0, 1, 2, 3, 5, 6.
17931  M01S00145.dsdi67  +++|*                A - 1, 2, 3, 6.
17932  M01S00146.dsdi67  +++|*                B - 6, 7.
17933  M01S00147.dsdi67  +++|*
17934  M01S00148.dsdi67  +++|*         CALLS  SSB, UPS.
17935  M01S00149.dsdi67  +++|*
17936  M01S00150.dsdi67  +++|*         MACROS PRINT, SEARCH.
17937  M01S00151.dsdi67  +++|
17938  M01S00152.dsdi67  +++|
17939  M01S00153.dsdi67  +++| FPR      SUBR               ENTRY/EXIT
17940  M01S00154.dsdi67  +++|          SA6    FPRA        SAVE RADIAL MCI FLAG
17941  M01S00155.dsdi67  +++|          SA3    NR          NEXT DIRECTIVE TABLE ENTRY
17942  M01S00156.dsdi67  +++|          MX0    18
17943  M01S00157.dsdi67  +++|          ZR     X3,FPR1     IF FIRST RECORD
17944  M01S00158.dsdi67  +++|          SA2    X3          GET PREVIOUS RECORD ID
17945  M01S00159.dsdi67  +++|          BX3    X1-X2
17946  M01S00160.dsdi67  +++|          BX3    X0*X3
17947  M01S00161.dsdi67  +++|          ZR     X3,FPR2     IF RECORD ID MATCHES PREVIOUS RECORD ID
17948  M01S00162.dsdi67  +++| FPR1     SEARCH TDIR,X1,X0
17949  M01S00163.dsdi67  +++|          ZR     X2,FPRX     IF RECORD ID NOT IN DIRECTORY
17950  M01S00164.dsdi67  +++| FPR2     SA1    A2+C.TDIR   CHECK NEXT *TDIR* ENTRY
17951  M01S00165.dsdi67  +++|          BX1    X1-X2
17952  M01S00166.dsdi67  +++|          BX1    X0*X1
17953  M01S00167.dsdi67  +++|          SX6    A1
17954  M01S00168.dsdi67  +++|          ZR     X1,FPR3     IF RECORD NAMES MATCH
17955  M01S00169.dsdi67  +++|          SX6    B0
17956  M01S00170.dsdi67  +++| FPR3     SA6    NR
17957  M01S00171.dsdi67  +++|          SA3    A2+B1       SET RANDOM INDEX
17958  M01S00172.dsdi67  +++|          BX6    X3
17959  M01S00173.dsdi67  +++|          SA6    RI
17960  M01S00174.dsdi67  +++|          SA1    FPRA
17961  M01S00175.dsdi67  +++|          ZR     X1,FPRX     IF NOT TO DISPLAY THE RADIAL MCI
17962  M01S00176.dsdi67  +++|          BX5    X2          SAVE FIRST WORD OF DIRECTORY ENTRY
17963  M01S00177.dsdi67  +++|          MX0    -6          SET RADIAL MCI
17964  M01S00178.dsdi67  +++|          AX2    36
17965  M01S00179.dsdi67  +++|          BX6    -X0*X2
17966  M01S00180.dsdi67  +++|          SA6    PRBF+13
17967  M01S00181.dsdi67  +++|          PRINT  (=2C  )
17968  M01S00182.dsdi67  +++|          SB7    PRBF
17969  M01S00183.dsdi67  +++|          SA2    =13HRADIAL MCI =
17970  M01S00184.dsdi67  +++|          SB6    13
17971  M01S00185.dsdi67  +++|          RJ     UPS         UNPACK MESSAGE
17972  M01S00186.dsdi67  +++|          PRINT  CCCH,15
17973  M01S00187.dsdi67  +++|          RJ     SSB         CLEAR STRING BUFFER
17974  M01S00188.dsdi67  +++|          PRINT  (=2C  )
17975  M01S00189.dsdi67  +++|          BX2    X5          RESTORE FIRST WORD OF ENTRY
17976  M01S00190.dsdi67  +++|          EQ     FPRX        RETURN
17977  M01S00191.dsdi67  +++|
17978  M01S00192.dsdi67  +++|
17979  M01S00193.dsdi67  +++| FPRA     CON    0           RADIAL MCI FLAG
Line S14396 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
17980  M01S14396.dsdi71  ---| FPW      SPACE  4,10
Line S00209 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
17981  M01S00209.dsdi71  +++| FPW      SPACE  4,15
17982  M00S14397.dsdi    +++|**        FPW - FORMAT CONTROL POINT PARAMETER LINE.
17983  M00S14398.dsdi    +++|*
17984  M00S14399.dsdi    +++|*         ENTRY  (X1) = LINE INDEX.
17985  M00S14400.dsdi    +++|*                (CN) = CONTROL POINT NUMBER.
17986  M00S14401.dsdi    +++|*                (FW) = CONTROL POINT AREA ADDRESS.
17987  M00S14402.dsdi    +++|*                (GDBB) = DAYFILE BUFFER LENGTH.
17988  M00S14403.dsdi    +++|*                (NC) = NUMBER OF CONTROL POINTS - 1.
17989  M00S14404.dsdi    +++|*
17990  M00S14405.dsdi    +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
17991  M00S14406.dsdi    +++|*                A - 1, 2, 3, 4, 6, 7.
17992  M00S14407.dsdi    +++|*                B - 2, 3, 4, 5, 6, 7.
17993  M00S14408.dsdi    +++|*
Line S14409 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
17994  M01S14409.dsdi71  ---|*         CALLS  CNL, CTS, GDB, POM, SCM, UPS.
Line S00210 Modification History
M01 (Added by) dsdi71
M02 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
17995  M02S00210.dsdi71a ---|*         CALLS  CNL, CTS, DMB, DOS, GCS, GDB, GEE, POM, SCM, UPS.
Line S00027 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
17996  M01S00027.dsdi71a +++|*         CALLS  CNL, CTS, DMB, DOS, GCS, GDB, GEE, GFL, POM, SCM, UPS.
17997  M00S14410.dsdi    +++|*
17998  M00S14411.dsdi    +++|*         MACROS GETCM.
17999  M00S14412.dsdi    +++|
18000  M00S14413.dsdi    +++|
18001  M00S14414.dsdi    +++| FPW      SUBR
18002  M00S14415.dsdi    +++|          SB7    PRBF+1      SET PRINT STRING ADDRESS
18003  M00S14416.dsdi    +++|          SA2    F.TCMT
18004  M00S14417.dsdi    +++|          SA3    FW
18005  M00S14418.dsdi    +++|          IX3    X2+X3
18006  M00S14419.dsdi    +++|          SB2    X3          SET CONTROL POINT AREA ADDRESS
18007  M00S14420.dsdi    +++|          SB3    X1+FPWA     SET JUMP TABLE ADDRESS
18008  M00S14421.dsdi    +++|          JP     B3          EXECUTE SELECTED PROCESSOR
18009  M00S14422.dsdi    +++|
18010  M00S14423.dsdi    +++|*         LINE 0 - USER NAME, SENSE SWITCHES.
18011  M00S14424.dsdi    +++|
18012  M00S14425.dsdi    +++| FPW1     SA2    =45HUSER NAME                     SENSE SWITCHES
Proceed to Part 12
cdc/nos2.source/opl.opl871/deck/dsdi.011.txt ยท Last modified: by 127.0.0.1