User Tools

Site Tools


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

Deck DSDI Part 013

70 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S13099 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16446  M02S13099.dsdi67  ---|          PRINT  (=2C  )
Line S13100 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16447  M02S13100.dsdi67  ---|          SB7    PRBF
Line S13101 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16448  M02S13101.dsdi67  ---|          SA2    =13HRADIAL MCI =
Line S13102 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16449  M02S13102.dsdi67  ---|          SB6    13
Line S13103 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16450  M02S13103.dsdi67  ---|          RJ     UPS         UNPACK MESSAGE
Line S13104 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16451  M02S13104.dsdi67  ---|          PRINT  CCCH,15
Line S13105 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16452  M02S13105.dsdi67  ---|          PRINT  (=2C  )
Line S13106 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16453  M02S13106.dsdi67  ---|
Line S13107 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16454  M02S13107.dsdi67  ---|*         PRINT COLUMN HEADERS.
Line S13108 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16455  M02S13108.dsdi67  ---|
Line S13109 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16456  M02S13109.dsdi67  ---|          RJ     SSB         SPACE FILL STRING BUFFER
Line S13110 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16457  M02S13110.dsdi67  ---|          PRINT  (=C* SET  ENTRY   CONTENTS *)
Line S13111 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16458  M02S13111.dsdi67  ---|          PRINT  (=2C  )
Line S13112 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16459  M02S13112.dsdi67  ---|
Line S13113 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16460  M02S13113.dsdi67  ---|*         TEST END CONDITIONS, INCREMENT CURRENT SET NUMBER IF NEEDED.
Line S13114 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16461  M02S13114.dsdi67  ---|
Line S13115 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16462  M02S13115.dsdi67  ---| DTM2     SA3    DTMB        CURRENT ENTRY NUMBER
Line S13116 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16463  M02S13116.dsdi67  ---|          SX3    X3-32D
Line S13117 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16464  M02S13117.dsdi67  ---|          NG     X3,DTM3     IF NOT FINISHED WITH SET
Line S13118 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16465  M02S13118.dsdi67  ---|          SA2    A3+B1       GET CURRENT SET NUMBER
Line S13119 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16466  M02S13119.dsdi67  ---|          SA1    A2+B1       GET MAXIMUM SET NUMBER
Line S13120 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16467  M02S13120.dsdi67  ---|          ERRNZ  DTMC+1-DTMD  CODE ASSUMES CONTIGUOUS CELLS
Line S13121 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16468  M02S13121.dsdi67  ---|          IX1    X1-X2
Line S13122 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16469  M02S13122.dsdi67  ---|          ZR     X1,DTM5     IF MAXIMUM .EQ. CURRENT
Line S13123 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16470  M02S13123.dsdi67  ---|          SX7    X2+B1       INCREMENT CURRENT SET NUMBER
Line S13124 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16471  M02S13124.dsdi67  ---|          SA7    A2
Line S13125 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16472  M02S13125.dsdi67  ---|          BX7    X7-X7       RESET CURRENT ENTRY NUMBER
Line S13126 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16473  M02S13126.dsdi67  ---|          SA7    A3+
Line S13127 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16474  M02S13127.dsdi67  ---|
Line S13128 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16475  M02S13128.dsdi67  ---|*         PRINT SET AND ENTRY NUMBERS.
Line S13129 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16476  M02S13129.dsdi67  ---|
Line S13130 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16477  M02S13130.dsdi67  ---| DTM3     SA1    DTMC        DISPLAY SET NUMBER
Line S13131 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16478  M02S13131.dsdi67  ---|          LX1    59-3
Line S13132 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16479  M02S13132.dsdi67  ---|          SB6    B1
Line S13133 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16480  M02S13133.dsdi67  ---|          SB7    PRBF+1
Line S13134 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16481  M02S13134.dsdi67  ---|          RJ     HTS
Line S13135 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16482  M02S13135.dsdi67  ---|          SA1    DTMB        DISPLAY ENTRY NUMBER
Line S13136 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16483  M02S13136.dsdi67  ---|          RJ     CDD
Line S13137 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16484  M02S13137.dsdi67  ---|          BX2    X6
Line S13138 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16485  M02S13138.dsdi67  ---|          LX2    59-11
Line S13139 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16486  M02S13139.dsdi67  ---|          SB7    PRBF+6
Line S13140 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16487  M02S13140.dsdi67  ---|          SB6    2
Line S13141 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16488  M02S13141.dsdi67  ---|          RJ     UPS
Line S13142 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi62
M03 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16489  M03S13142.dsdi67  ---|          SX5    4
Line S13143 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi62
M03 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16490  M03S13143.dsdi67  ---| DTM4     SA0    B7+2        SAVE CURRENT POSITION IN DISPLAY LINE
Line S13144 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi62
M03 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16491  M03S13144.dsdi67  ---|          RJ     NXB         GET NEXT 16 BITS OF REGISTER
Line S13145 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi62
M03 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16492  M03S13145.dsdi67  ---|          SB7    A0
Line S13146 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi62
M03 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16493  M03S13146.dsdi67  ---|          SB6    4
Line S13147 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi62
M03 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16494  M03S13147.dsdi67  ---|          LX1    59-15
Line S13148 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi62
M03 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16495  M03S13148.dsdi67  ---|          RJ     HTS         DISPLAY 4 HEX DIGITS
Line S13149 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi62
M03 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16496  M03S13149.dsdi67  ---|          SX5    X5-1
Line S13150 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi62
M03 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16497  M03S13150.dsdi67  ---|          NZ     X5,DTM4     IF MORE DATA TO DISPLAY
Line S13151 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi62
M03 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16498  M03S13151.dsdi67  ---|          PRINT  CCCH,B7-CCCH+1
Line S00035 Modification History
M01 (Added by) dsdi62
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16499  M02S00035.dsdi67  ---|          RJ     DHR         DISPLAY REGISTER
Line S13152 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16500  M02S13152.dsdi67  ---|          SA1    DTMB        INCREMENT CURRENT ENTRY NUMBER
Line S13153 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16501  M02S13153.dsdi67  ---|          SX7    X1+B1
Line S13154 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16502  M02S13154.dsdi67  ---|          SA7    A1
Line S13155 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16503  M02S13155.dsdi67  ---|          EQ     DTM2        DISPLAY NEXT REGISTER
Line S13156 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16504  M02S13156.dsdi67  ---|
Line S13157 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16505  M02S13157.dsdi67  ---| DTMA     CON    0           NEXT DIRECTORY TABLE ENTRY POINTER
Line S13158 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16506  M02S13158.dsdi67  ---| DTMB     CON    0           CURRENT ENTRY NUMBER
Line S13159 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16507  M02S13159.dsdi67  ---| DTMC     CON    0           CURRENT SET NUMBER
Line S13160 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16508  M02S13160.dsdi67  ---| DTMD     CON    0           MAXIMUM SET NUMBER
Line S13161 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
16509  M02S13161.dsdi67  ---| DTME     CON    0           RECORD ID
16510  M01S13162.dsdi    +++| DTP      SPACE  4,7
16511  M01S13163.dsdi    +++|**        DTP - DUMP IAF PPUS.
16512  M01S13164.dsdi    +++|*
16513  M01S13165.dsdi    +++|*         ENTRY  A0 = RETURN ADDRESS.
16514  M01S13166.dsdi    +++|*
16515  M01S13167.dsdi    +++|*         USES   ALL REGISTERS.
16516  M01S13168.dsdi    +++|*
16517  M01S13169.dsdi    +++|*         CALLS  ASP.
16518  M01S13170.dsdi    +++|
16519  M01S13171.dsdi    +++|
16520  M01S13172.dsdi    +++| DTP      SX6    DTPA
16521  M01S13173.dsdi    +++|          JP     ASP
16522  M01S13174.dsdi    +++|
16523  M01S13175.dsdi    +++| DTPA     VFD    18/3LTLX,42/0
16524  M01S13176.dsdi    +++|          VFD    18/3L1TA,42/0
16525  M01S13177.dsdi    +++|          VFD    18/3L1TN,42/0
16526  M01S13178.dsdi    +++|          VFD    18/3L1TO,42/0
16527  M01S13179.dsdi    +++|          VFD    18/3L1RO,6/0,1/1,18/0,5/TXOT,12/0
16528  M01S13180.dsdi    +++|          VFD    18/3L1RI,6/0,1/1,18/0,5/TXOT,12/0
16529  M01S13181.dsdi    +++|          VFD    60/-1       END OF PARAMETER BLOCK
16530  M01S13182.dsdi    +++| DTQ      SPACE  4,13
16531  M01S13183.dsdi    +++|**        DTQ - DUMP TEN BYTES IN *Q* FORMAT.
16532  M01S13184.dsdi    +++|*
16533  M01S13185.dsdi    +++|*         ENTRY  B2 = BYTE BUFFER ADDRESS.
16534  M01S13186.dsdi    +++|*                B7 = PRINT STRING ADDRESS.
16535  M01S13187.dsdi    +++|*                X4 = CURRENT PPU ADDRESS.
16536  M01S13188.dsdi    +++|*
16537  M01S13189.dsdi    +++|*         EXIT   B2 AND B7 ARE UPDATED.
16538  M01S13190.dsdi    +++|*
16539  M01S13191.dsdi    +++|*         SAVES  X - 3,4,5.
16540  M01S13192.dsdi    +++|*                B - NONE.
16541  M01S13193.dsdi    +++|*                A - 0,3,4,5.
16542  M01S13194.dsdi    +++|*
16543  M01S13195.dsdi    +++|*         CALLS  CTS,UPS.
16544  M01S13196.dsdi    +++|
16545  M01S13197.dsdi    +++|
16546  M01S13198.dsdi    +++| DTQ      SUBR
16547  M01S13199.dsdi    +++|          BX1    X4
16548  M01S13200.dsdi    +++|          LX1    -15
16549  M01S13201.dsdi    +++|          SB6    5
16550  M01S13202.dsdi    +++|          RJ     CTS         CONVERT ADDRESS
16551  M01S13203.dsdi    +++|          SB7    B7+2        SPACE 2
16552  M01S13204.dsdi    +++|          SB4    10B         BYTE COUNTER
16553  M01S13205.dsdi    +++| DTQ1     SA1    B2+         READ BYTE
16554  M01S13206.dsdi    +++|          SB6    4
16555  M01S13207.dsdi    +++|          NZ     X1,DTQ2     IF NOT A ZERO BYTE
16556  M01S13208.dsdi    +++|          SA2    =4L----
16557  M01S13209.dsdi    +++|          RJ     UPS         STORE ZERO INDICATOR
16558  M01S13210.dsdi    +++|          JP     DTQ3
16559  M01S13211.dsdi    +++|
16560  M01S13212.dsdi    +++| DTQ2     RJ     CTS         CONVERT BYTE
16561  M01S13213.dsdi    +++| DTQ3     SB7    B7+B1
16562  M01S13214.dsdi    +++|          SB2    B2+B1
16563  M01S13215.dsdi    +++|          SB4    B4-1        COUNT BYTE
16564  M01S13216.dsdi    +++|          NZ     B4,DTQ1     IF MORE TO DUMP
16565  M01S13217.dsdi    +++|
16566  M01S13218.dsdi    +++|*         SET INTERPRETATION.
16567  M01S13219.dsdi    +++|
16568  M01S13220.dsdi    +++|          SB5    B2
16569  M01S13221.dsdi    +++|          MX0    -6
16570  M01S13222.dsdi    +++|          SB2    B2-10B
16571  M01S13223.dsdi    +++|          SB7    B7+1
16572  M01S13224.dsdi    +++| DTQ4     SA1    B2+
16573  M01S13225.dsdi    +++|          SB3    2
16574  M01S13226.dsdi    +++| DTQ5     LX1    6
16575  M01S13227.dsdi    +++|          BX6    -X0*X1
16576  M01S13228.dsdi    +++|          ZR     X6,DTQ6     IF COLON
16577  M01S13229.dsdi    +++|          SX7    X6-60B
16578  M01S13230.dsdi    +++|          NG     X7,DTQ7     IF NOT A PRINTER SLOWER DOWNER
16579  M01S13231.dsdi    +++| DTQ6     SX6    1R
16580  M01S13232.dsdi    +++| DTQ7     SA6    B7          STORE CHARACTER
16581  M01S13233.dsdi    +++|          SB7    B7+B1
16582  M01S13234.dsdi    +++|          SB3    B3-1
16583  M01S13235.dsdi    +++|          NZ     B3,DTQ5     IF ONE MORE CHARACTER
16584  M01S13236.dsdi    +++|          SB2    B2+1
16585  M01S13237.dsdi    +++|          LT     B2,B5,DTQ4  IF MORE TO INTERPRET
16586  M01S13238.dsdi    +++|          JP     DTQX        EXIT
16587  M01S13239.dsdi    +++| DTT      SPACE  4,10
16588  M01S13240.dsdi    +++|**        DTT - DUMP IAF TERMINAL TABLES.
16589  M01S13241.dsdi    +++|*
16590  M01S13242.dsdi    +++|*         ENTRY  (A0) = RETURN ADDRESS.
16591  M01S13243.dsdi    +++|*                (RC) = CONTROL POINT REFERENCE ADDRESS.
16592  M01S13244.dsdi    +++|*                (TFMT) = MESSAGE STATUS TABLE FORMAT POINTERS.
16593  M01S13245.dsdi    +++|*                (TFTT) = TERMINAL TABLE FORMAT POINTERS.
16594  M01S13246.dsdi    +++|*
16595  M01S13247.dsdi    +++|*         USES   X - ALL.
16596  M01S13248.dsdi    +++|*                A - 1, 2, 5, 6, 7.
16597  M01S13249.dsdi    +++|*                B - 2, 6, 7.
16598  M01S13250.dsdi    +++|*
16599  M01S13251.dsdi    +++|*         CALLS  CTS, GTD, PCM, PCW, UPS.
16600  M01S13252.dsdi    +++|*
16601  M01S13253.dsdi    +++|*         MACROS ALLOC, GETCM, PRINT.
16602  M01S13254.dsdi    +++|
16603  M01S13255.dsdi    +++|
16604  M01S13256.dsdi    +++| DTT      SX6    A0          SAVE RETURN ADDRESS
16605  M01S13257.dsdi    +++|          SA6    DTTF
16606  M01S13258.dsdi    +++|          PRINT  (=2C  )
16607  M01S13259.dsdi    +++|          PRINT  (=C*          IAF TERMINAL TABLES*)
16608  M01S13260.dsdi    +++|
16609  M01S13261.dsdi    +++|*         READ MESSAGE STATUS TABLE INTO CORE.
16610  M01S13262.dsdi    +++|
16611  M01S13263.dsdi    +++|          SA2    RC          GET FWA MSG STATUS TABLE
16612  M01S13264.dsdi    +++|          SA1    SSBF+/REM/VMST
16613  M01S13265.dsdi    +++|          AX1    24
16614  M01S13266.dsdi    +++|          IX3    X1+X2
16615  M01S13267.dsdi    +++|          SA5    SSBF+/REM/VNTP  GET FWA NETWORK ENTRIES
16616  M01S13268.dsdi    +++|          SB2    24D
16617  M01S13269.dsdi    +++|          AX0    X5,B2
16618  M01S13270.dsdi    +++|          SX6    X3+         PRESET FWA NETWORK ENTRIES
16619  M01S13271.dsdi    +++|          SA6    DTTE+1
16620  M01S13272.dsdi    +++|          SX6    X6-1
16621  M01S13273.dsdi    +++|          SA6    A6-B1
16622  M01S13274.dsdi    +++|          RJ     PCM         POSITION TO FIRST MST NETWORK ENTRY
16623  M01S13275.dsdi    +++|          IX2    X5-X0       SET NETWORK TERMINAL TABLE ENTRY COUNT
16624  M01S13276.dsdi    +++|          SX2    X2+B1
16625  M01S13277.dsdi    +++|          GETCM  BUF+/REM/VTTL,X2
16626  M01S13278.dsdi    +++|
16627  M01S13279.dsdi    +++|*         INITIALIZE DUMP OF TERMINAL TABLES.
16628  M01S13280.dsdi    +++|
16629  M01S13281.dsdi    +++|          SA1    SSBF+/REM/VTTP
16630  M01S13282.dsdi    +++|          SX2    X1          LWA+1
16631  M01S13283.dsdi    +++|          AX1    24
16632  M01S13284.dsdi    +++|          SX6    X1          FWA
16633  M01S13285.dsdi    +++|          IX4    X2-X6
16634  M01S13286.dsdi    +++|          NG     X4,DTT2     IF (LWA+1) .LT. (FWA)
16635  M01S13287.dsdi    +++|          SX6    X6-/REM/VTTL
16636  M01S13288.dsdi    +++|          SA6    DTTA        PRESET FWA OF FIRST TABLE
16637  M01S13289.dsdi    +++|          SX5    /REM/VTTL
16638  M01S13290.dsdi    +++|          IX7    X4/X5
16639  M01S13291.dsdi    +++|          SX6    -1
16640  M01S13292.dsdi    +++|          SA7    DTTB        TOTAL TERMINAL TABLES TO DUMP
16641  M01S13293.dsdi    +++|          SA6    DTTC        PRESET TERMINAL NUMBER
16642  M01S13294.dsdi    +++|          SA2    RC
16643  M01S13295.dsdi    +++|          IX3    X1+X2
16644  M01S13296.dsdi    +++|          RJ     PCM         POSITION TO FIRST TERMINAL TABLE
16645  M01S13297.dsdi    +++|
16646  M01S13298.dsdi    +++|*         DUMP ONLY THOSE TERMINAL TABLES WITH IMPORTANT INFORMATION.
16647  M01S13299.dsdi    +++|
16648  M01S13300.dsdi    +++| DTT1     SA2    DTTC        UPDATE TERMINAL NUMBER
16649  M01S13301.dsdi    +++|          SX6    X2+1
16650  M01S13302.dsdi    +++|          SA6    A2
16651  M01S13303.dsdi    +++|          SA1    DTTB
16652  M01S13304.dsdi    +++|          IX3    X6-X1
16653  M01S13305.dsdi    +++|          ZR     X3,DTT3     IF ALL TABLES DUMPED
16654  M01S13306.dsdi    +++|          SA1    DTTA        SET NEXT TERMINAL FWA
16655  M01S13307.dsdi    +++|          SX6    X1+/REM/VTTL
16656  M01S13308.dsdi    +++|          SA6    DTTA
16657  M01S13309.dsdi    +++|          SA1    DTTE        INCREMENT MSG STATUS TABLE INDEX
16658  M01S13310.dsdi    +++|          SX6    X1+B1
16659  M01S13311.dsdi    +++|          SA6    A1
16660  M01S13312.dsdi    +++|          GETCM  BUF,/REM/VTTL  READ TERMINAL TABLE
16661  M01S13313.dsdi    +++|          SB7    /REM/VTTL   CHECK FOR EMPTY TERMINAL TABLE
16662  M01S13314.dsdi    +++|          SB6    -1
16663  M01S13315.dsdi    +++| DTT1.1   SB6    B6+1
16664  M01S13316.dsdi    +++|          EQ     B6,B7,DTT1  IF EMPTY TABLE FOUND
16665  M01S13317.dsdi    +++|          SA1    BUF+B6      READ TABLE ENTRY
16666  M01S13318.dsdi    +++|          SB2    B6-/REM/VROT
16667  M01S13319.dsdi    +++|          NZ     B2,DTT1.2   IF NOT STATUS WORD
16668  M01S13320.dsdi    +++|          SX1    X1-1        ALLOW FOR STATUS BIT
16669  M01S13321.dsdi    +++| DTT1.2   ZR     X1,DTT1.1   IF ONLY STATUS BIT SET
16670  M01S13322.dsdi    +++|          PRINT  (=2C  )
16671  M01S13323.dsdi    +++|          SB7    PRBF
16672  M01S13324.dsdi    +++|          SA2    =5HTERM
16673  M01S13325.dsdi    +++|          SB6    5
16674  M01S13326.dsdi    +++|          RJ     UPS         STORE IN PRINT STRING
16675  M01S13327.dsdi    +++|          SB6    4
16676  M01S13328.dsdi    +++|          SA1    DTTC
16677  M01S13329.dsdi    +++|          LX1    -12
16678  M01S13330.dsdi    +++|          RJ     CTS         CONVERT TERMINAL NUMBER
16679  M01S13331.dsdi    +++|          PRINT  CCCH,B7-CCCH
16680  M01S13332.dsdi    +++|          PRINT  (=2C  )
16681  M01S13333.dsdi    +++|          SA1    DTTA
16682  M01S13334.dsdi    +++|          BX6    X1
16683  M01S13335.dsdi    +++|          BX2    -X1
16684  M01S13336.dsdi    +++|          SB2    X2+BUF      SET CORE ADDRESS OF TABLE DATA
16685  M01S13337.dsdi    +++|          SA6    FW          SET PRINT ADDRESS
16686  M01S13338.dsdi    +++|          SA1    TFTT        FORMAT TABLE POINTERS
16687  M01S13339.dsdi    +++|          RJ     GTD         GENERATE DETAILED TABLE DUMP
16688  M01S13340.dsdi    +++|
16689  M01S13341.dsdi    +++|*         DUMP MESSAGE STATUS TABLE ENTRY, IF NETWORK TERMINAL TABLE.
16690  M01S13342.dsdi    +++|
16691  M01S13343.dsdi    +++|          SA1    SSBF+/REM/VNTP  GET FIRST NETWORK TERMINAL NUMBER
16692  M01S13344.dsdi    +++|          SA2    DTTC
16693  M01S13345.dsdi    +++|          AX1    24
16694  M01S13346.dsdi    +++|          SX1    X1+
16695  M01S13347.dsdi    +++|          IX1    X2-X1
16696  M01S13348.dsdi    +++|          NG     X1,DTT1     IF MUX TERMINAL TABLE
16697  M01S13349.dsdi    +++|          PRINT  (=2C  )
16698  M01S13350.dsdi    +++|          SA1    DTTE        SET MSG STATUS TABLE ENTRY ADDRESS
16699  M01S13351.dsdi    +++|          SX6    X1+
16700  M01S13352.dsdi    +++|          SA6    FW
16701  M01S13353.dsdi    +++|          SX1    BUF+/REM/VTTL  SET CORE ADDRESS OF TABLE DATA
16702  M01S13354.dsdi    +++|          SA2    DTTE+1
16703  M01S13355.dsdi    +++|          IX1    X1-X2
16704  M01S13356.dsdi    +++|          SB2    X1+
16705  M01S13357.dsdi    +++|          SA1    TFMT        SET NETWORK FORMAT TABLE POINTERS
16706  M01S13358.dsdi    +++|          RJ     GTD         GENERATE DETAILED DUMP OF MST WORD
16707  M01S13359.dsdi    +++|          EQ     DTT1        DUMP NEXT TERMINAL TABLE
16708  M01S13360.dsdi    +++|
16709  M01S13361.dsdi    +++|*         PRINT TERMINAL TABLE BOUNDARY ADDRESSES, IF NO TABLES FOUND.
16710  M01S13362.dsdi    +++|
16711  M01S13363.dsdi    +++| DTT2     SA5    DTTD
16712  M01S13364.dsdi    +++|          RJ     PCW         PRINT CONTENTS OF *VTTP* WORD
16713  M01S13365.dsdi    +++| DTT3     SA1    DTTF        RESTORE RETURN ADDRESS
16714  M01S13366.dsdi    +++|          SB2    X1+
16715  M01S13367.dsdi    +++|          JP     B2          RETURN
16716  M01S13368.dsdi    +++|
16717  M01S13369.dsdi    +++| DTTA     BSS    1           FWA OF TERMINAL TABLE
16718  M01S13370.dsdi    +++| DTTB     BSS    1           NUMBER OF TERMINALS TO DUMP
16719  M01S13371.dsdi    +++| DTTC     BSS    1           NUMBER OF TERMINALS DUMPED
16720  M01S13372.dsdi    +++| DTTD     VFD    36/6L*VTTP*,6/0,18//REM/VTTP  PARAMETER LIST FOR PCW
16721  M01S13373.dsdi    +++|          DATA   40HIAF TERMINAL TABLE FWA, LWA+1
16722  M01S13374.dsdi    +++|          VFD    60/0
16723  M01S13375.dsdi    +++| DTTE     BSS    1           MSG STATUS TABLE ENTRY ADDRESS
16724  M01S13376.dsdi    +++|          BSS    1           FWA MSG STATUS TABLE
16725  M01S13377.dsdi    +++| DTTF     BSS    1           SAVED RETURN ADDRESS
16726  M01S13378.dsdi    +++| ECS      SPACE  4,10
16727  M01S13379.dsdi    +++|**        ECS - PROCESS *ECS* RECORD.
16728  M01S13380.dsdi    +++|*
16729  M01S13381.dsdi    +++|*         ENTRY  VIA UNCONDITIONAL JUMP.
16730  M01S13382.dsdi    +++|*
16731  M01S13383.dsdi    +++|*         EXIT   TO *CMP1* TO READ THE *ECS* RECORD.
16732  M01S13384.dsdi    +++|*
16733  M01S13385.dsdi    +++|*         USES   X - 1, 6.
16734  M01S13386.dsdi    +++|*                A - 1, 6.
16735  M01S13387.dsdi    +++|
16736  M01S13388.dsdi    +++|
16737  M01S13389.dsdi    +++| ECS      SA1    BUF+1       TRANSFER TITLE
16738  M01S13390.dsdi    +++|          BX6    X1
16739  M01S13391.dsdi    +++|          SA6    TITL2
16740  M01S13392.dsdi    +++|          SA1    BUF         GET WORD COUNT
16741  M01S13393.dsdi    +++|          MX6    -12
16742  M01S13394.dsdi    +++|          BX6    -X6*X1      WORD COUNT/1000B
16743  M01S13395.dsdi    +++|          SA2    ECSA        3LESM = ESM RECORD HDR
16744  M01S13396.dsdi    +++|          BX2    X2-X1       COMPARE WITH EDD RECORD HDR
16745  M01S13397.dsdi    +++|          MX0    18D         MASK 3 CHARACTERS
16746  M01S13398.dsdi    +++|          BX2    X2*X0       RELEVANT PART OF COMPARE
16747  M01S13399.dsdi    +++|          NZ     X2,CMP1     IF NOT *ESM* RECORD
16748  M01S13400.dsdi    +++|          LX6    3           CONVERT WORD COUNT
16749  M01S13401.dsdi    +++|          EQ     CMP1        READ *ESM* RECORD
16750  M01S13402.dsdi    +++|
16751  M01S13403.dsdi    +++| ECSA     DATA   3LESM       *ESM* RECORD HEADER
16752  M01S13404.dsdi    +++| ESM      EQU    ECS
Line S13405 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16753  M02S13405.271l739 ---| EIC      SPACE  4,15
Line S13406 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16754  M02S13406.271l739 ---|**        EIC - SKIP *EIC* BLOCK.
Line S13407 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16755  M02S13407.271l739 ---|*
Line S13408 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16756  M02S13408.271l739 ---|*         ENTRY  VIA UNCONDITIONAL JUMP.
Line S13409 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16757  M02S13409.271l739 ---|*
Line S13410 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16758  M02S13410.271l739 ---|*         EXIT   TO *RBI2* IF BLOCK READ COMPLETE.
Line S13411 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16759  M02S13411.271l739 ---|*                TO *RBI2.1* IF *MEM* HEADER RECORD READ.
Line S13412 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16760  M02S13412.271l739 ---|*
Line S13413 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi73
M03 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16761  M03S13413.271l739 ---|*         ERROR  TO *ERR29* IF PREMATURE END OF FILE DETECTED.
Line S00011 Modification History
M01 (Added by) dsdi73
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16762  M02S00011.271l739 ---|*         ERROR  TO *PPE1* IF PREMATURE EOF DETECTED.
Line S13414 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16763  M02S13414.271l739 ---|*
Line S13415 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16764  M02S13415.271l739 ---|*         USES   X - 1, 2, 3, 5.
Line S13416 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16765  M02S13416.271l739 ---|*                A - 1, 3.
Line S13417 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16766  M02S13417.271l739 ---|*                B - NONE.
Line S13418 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16767  M02S13418.271l739 ---|*
Line S13419 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16768  M02S13419.271l739 ---|*         CALLS  RBF.
Line S13420 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16769  M02S13420.271l739 ---|
Line S13421 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16770  M02S13421.271l739 ---|
Line S13422 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16771  M02S13422.271l739 ---| EIC      BSS    0           ENTRY
Line S13423 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16772  M02S13423.271l739 ---| EIC1     RJ     RBF         READ BLOCK FROM FILE *F*
Line S13424 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi73
M03 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16773  M03S13424.271l739 ---|          NZ     X1,ERR29    IF PREMATURE EOF
Line S00012 Modification History
M01 (Added by) dsdi73
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16774  M02S00012.271l739 ---|          NZ     X1,PPE1     IF PREMATURE EOF
Line S13425 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16775  M02S13425.271l739 ---|          SA1    BWCF
Line S13426 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16776  M02S13426.271l739 ---|          SX2    X1-512
Line S13427 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16777  M02S13427.271l739 ---|          ZR     X2,EIC1     IF COMPLETE BLOCK READ
Line S13428 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16778  M02S13428.271l739 ---|          SX2    X1-4
Line S13429 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16779  M02S13429.271l739 ---|          NZ     X2,RBI2     IF *EIC* BLOCK READ COMPLETE
Line S13430 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16780  M02S13430.271l739 ---|          SA3    BUF
Line S13431 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16781  M02S13431.271l739 ---|          LX3    18
Line S13432 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16782  M02S13432.271l739 ---|          SX5    X3-3RMEM
Line S13433 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16783  M02S13433.271l739 ---|          NZ     X5,RBI2     IF *EIC* BLOCK READ COMPLETE
Line S13434 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
16784  M02S13434.271l739 ---|          EQ     RBI2.1      PROCESS *MEM* BLOCK
16785  M01S13435.dsdi    +++| ERF      SPACE  4,15
16786  M01S13436.dsdi    +++|**        ERF - POSITION TO EOR ON FILE F.
16787  M01S13437.dsdi    +++|*
Line S13438 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi73
Seq #  *Modification Id* Act 
----------------------------+
16788  M02S13438.dsdi73  ---|*         EXIT   TO *ERR26* IF PREMATURE EOF.
16789  M01S00013.dsdi73  +++|*         EXIT   TO *PPE1* IF PREMATURE EOF.
16790  M01S13439.dsdi    +++|*
16791  M01S13440.dsdi    +++|*         USES   A - 1.
16792  M01S13441.dsdi    +++|*                X - 1.
16793  M01S13442.dsdi    +++|*
Line S13443 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi88
Seq #  *Modification Id* Act 
----------------------------+
16794  M02S13443.dsdi88  ---|*         CALLS  RBF.
16795  M01S00010.dsdi88  +++|*         CALLS  RBH.
16796  M01S13444.dsdi    +++|
16797  M01S13445.dsdi    +++|
16798  M01S13446.dsdi    +++| ERF      SUBR               ENTRY/EXIT
16799  M01S13447.dsdi    +++| ERF1     SA1    EORF
16800  M01S13448.dsdi    +++|          NG     X1,ERFX     IF AT EOR
Line S13449 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi88
Seq #  *Modification Id* Act 
----------------------------+
16801  M02S13449.dsdi88  ---|          RJ     RBF         READ 512 WORDS
16802  M01S00011.dsdi88  +++|          RJ     RBH         READ BLOCK OR HEADER
16803  M01S13450.dsdi    +++|          ZR     X1,ERF1     IF NOT EOF
Line S13451 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi73
Seq #  *Modification Id* Act 
----------------------------+
16804  M02S13451.dsdi73  ---|          EQ     ERR29       PREMATURE EOF
16805  M01S00014.dsdi73  +++|          EQ     PPE1        PREMATURE EOF
16806  M01S13452.dsdi    +++| ERS      SPACE  4,15
16807  M01S13453.dsdi    +++|**        ERS - END RECORD ON S-FILE.
16808  M01S13454.dsdi    +++|*
16809  M01S13455.dsdi    +++|*         ENTRY  (ID)   = RECORD ID.
16810  M01S13456.dsdi    +++|*                (RWCS) = RECORD LENGTH.
16811  M01S13457.dsdi    +++|*
16812  M01S13458.dsdi    +++|*         EXIT   BUFFER WRITTEN TO *S*.
16813  M01S13459.dsdi    +++|*                *TDIR* DIRECTORY ENTRY MADE.
16814  M01S13460.dsdi    +++|*                (RWCS) = 0.
16815  M01S13461.dsdi    +++|*
16816  M01S13462.dsdi    +++|*         USES   A - 1, 2, 5, 6, 7.
16817  M01S13463.dsdi    +++|*                X - 1, 2, 5, 6, 7.
16818  M01S13464.dsdi    +++|*
16819  M01S13465.dsdi    +++|*         MACROS ADDWORD, WRITER.
16820  M01S13466.dsdi    +++|
16821  M01S13467.dsdi    +++|
16822  M01S13468.dsdi    +++| ERS      SUBR               ENTRY/EXIT
16823  M01S13469.dsdi    +++|          WRITER S,R         WRITE BUFFER TO FILE
16824  M01S13470.dsdi    +++|          SA1    ID
16825  M01S13471.dsdi    +++|          ADDWRD TDIR,X1     PUT RECORD ID IN DIRECTORY ENTRY
16826  M01S13472.dsdi    +++|          ADDWRD A0,X1-X1    CLEAR DIRECTORY ENTRY WORD 2
16827  M01S13473.dsdi    +++|          SA5    ERSA        RANDOM INDEX OF RECORD
16828  M01S13474.dsdi    +++|          SA2    RWCS
16829  M01S13475.dsdi    +++|          LX2    30
16830  M01S13476.dsdi    +++|          BX6    X2+X5
16831  M01S13477.dsdi    +++|          SA6    A6
16832  M01S13478.dsdi    +++|          SX7    B0          RESET RECORD LENGTH
16833  M01S13479.dsdi    +++|          SA7    RWCS
16834  M01S13480.dsdi    +++|          SX6    ERSA
16835  M01S13481.dsdi    +++|          SA6    S+6         GET RANDOM INDEX OF NEXT RECORD
16836  M01S13482.dsdi    +++|          EQ     ERSX        RETURN
16837  M01S13483.dsdi    +++|
16838  M01S13484.dsdi    +++|
16839  M01S13485.dsdi    +++| ERSA     DATA   1           CURRENT RANDOM INDEX
16840  M01S13486.dsdi    +++| EVA      SPACE  4,10
16841  M01S13487.dsdi    +++|**        EVA - EXPAND VIRTUAL ADDRESS.
16842  M01S13488.dsdi    +++|*
16843  M01S13489.dsdi    +++|*         ENTRY  (X6) = PROCESS VIRTUAL ADDRESS.
16844  M01S13490.dsdi    +++|*
16845  M01S13491.dsdi    +++|*         EXIT   (X6) = SEGMENT NUMBER.
16846  M01S13492.dsdi    +++|*                (X7) = BYTE OFFSET.
16847  M01S13493.dsdi    +++|*                (X2) = 0, IF THE ADDRESS IN X6 IS THE NIL POINTER.
16848  M01S13494.dsdi    +++|*
16849  M01S13495.dsdi    +++|*         USES   X - 1, 2, 6, 7.
16850  M01S13496.dsdi    +++|*                A - 1.
16851  M01S13497.dsdi    +++|
16852  M01S13498.dsdi    +++|
16853  M01S13499.dsdi    +++| EVA      SUBR               ENTRY/EXIT
16854  M01S13500.dsdi    +++|          SA1    EVAA
16855  M01S13501.dsdi    +++|          BX2    X6*X1
16856  M01S13502.dsdi    +++|          BX2    X2-X1
16857  M01S13503.dsdi    +++|          ZR     X2,EVAX     IF NIL POINTER
16858  M01S13504.dsdi    +++|          MX2    -32-12
16859  M01S13505.dsdi    +++|          BX7    -X2*X6      ISOLATE BYTE OFFSET
16860  M01S13506.dsdi    +++|          BX2    X2*X6       ISOLATE RING NUMBER
16861  M01S13507.dsdi    +++|          BX6    X1*X7       ISOLATE SEGMENT NUMBER
16862  M01S13508.dsdi    +++|          BX2    X1*X2
16863  M01S13509.dsdi    +++|          ZR     X2,ERR45    IF RING ZERO
16864  M01S13510.dsdi    +++|          JP     EVAX        RETURN
16865  M01S13511.dsdi    +++|
16866  M01S13512.dsdi    +++| EVAA     DATA   0#FFFF80000000  NIL POINTER
16867  M01S13513.dsdi    +++| FAC      SPACE  4,13
16868  M01S13514.dsdi    +++|**        FAC - FIND ASSIGNED CHANNEL.
16869  M01S13515.dsdi    +++|*
16870  M01S13516.dsdi    +++|*         ENTRY  (B2) = PPU NUMBER.
16871  M01S13517.dsdi    +++|*                (BUF - BUF+MXCH) = CHANNEL RESERVATION BYTES
16872  M01S13518.dsdi    +++|*                  FROM CHANNEL STATUS TABLE, ONE BYTE PER WORD,
16873  M01S13519.dsdi    +++|*                  LEFT JUSTIFIED.
16874  M01S13520.dsdi    +++|*
16875  M01S13521.dsdi    +++|*         EXIT   (X1) = NUMBER OF ASSIGNED CHANNEL.
16876  M01S13522.dsdi    +++|*                     .LT. 0, IF NO MORE CHANNELS ASSIGNED.
16877  M01S13523.dsdi    +++|*
16878  M01S13524.dsdi    +++|*         USES   X - 0, 1, 2, 3, 6.
16879  M01S13525.dsdi    +++|*                A - 1, 3, 6.
16880  M01S13526.dsdi    +++|*                B - 3, 5.
16881  M01S13527.dsdi    +++|
16882  M01S13528.dsdi    +++|
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  M01S13529.dsdi    +++| FAC      SUBR
16888  M01S13530.dsdi    +++|          SX2    B2          CHANNEL NUMBER
16889  M01S13531.dsdi    +++|          MX0    -6
16890  M01S13532.dsdi    +++|          SX3    X2-20B
16891  M01S13533.dsdi    +++|          SB3    BUF         CHANNEL TABLE ADDRESS
16892  M01S13534.dsdi    +++|          SB5    B3+MXCH     CHANNEL STATUS TABLE LWA+1
Line S13535 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
16893  M02S13535.dsdi78  ---|          SA1    FPLB
16894  M01S00025.dsdi78  +++|          SA1    IC
16895  M01S13536.dsdi    +++|          ZR     X1,FAC0     IF NOT CPP
16896  M01S13537.dsdi    +++|          SX2    X2+24B
16897  M01S13538.dsdi    +++|          JP     FAC1        PROCESS CHANNELS FOR CPP-S
16898  M01S13539.dsdi    +++|
16899  M01S13540.dsdi    +++| FAC0     NG     X3,FAC1     IF NOT PP 20 - 31
16900  M01S13541.dsdi    +++|          SX2    X2-20B+12B  CORRECT PPU INDEX
16901  M01S13542.dsdi    +++| FAC1     SA3    B3+         READ TABLE
16902  M01S13543.dsdi    +++|          LX3    12
16903  M01S13544.dsdi    +++|          BX3    -X0*X3
16904  M01S13545.dsdi    +++|          ZR     X3,FAC2     IF CHANNEL NOT ASSIGNED
16905  M01S13546.dsdi    +++|          BX3    X2-X3
16906  M01S13547.dsdi    +++|          ZR     X3,FAC3     IF ASSIGNED TO THIS PPU
16907  M01S13548.dsdi    +++| FAC2     SB3    B3+B1
16908  M01S13549.dsdi    +++|          LE     B3,B5,FAC1  IF MORE TABLE ENTRIES
16909  M01S13550.dsdi    +++|          SX1    -B1         SET NO MORE CHANNELS ASSIGNED
16910  M01S13551.dsdi    +++|          JP     FACX        EXIT
Line S13552 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
16911  M02S13552.dsdi78  ---|
Line S13553 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
16912  M02S13553.dsdi78  ---| FAC3     MX6    0
Line S13554 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
16913  M02S13554.dsdi78  ---|          SA6    B3          CLEAR RESERVATION ENTRY
Line S13555 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
16914  M02S13555.dsdi78  ---|          SX1    B3-BUF      SET ASSIGNED CHANNEL NUMBER
Line S13556 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
16915  M02S13556.dsdi78  ---|          JP     FACX        EXIT
16916  M01S13557.dsdi    +++| FBB      SPACE  4,25
16917  M01S13558.dsdi    +++|**        FBB - FILL BYTE BUFFER.
16918  M01S13559.dsdi    +++|*
16919  M01S13560.dsdi    +++|*         ENTRY  (B2) = PARAMETER BLOCK ADDRESS.
16920  M01S13561.dsdi    +++|*                     +0 = FWA OF DUMP.
16921  M01S13562.dsdi    +++|*                     +1 = LWA OF DUMP.
16922  M01S13563.dsdi    +++|*
16923  M01S13564.dsdi    +++|*         BUFFER CONSISTS OF TWO WORD ENTRIES.
16924  M01S13565.dsdi    +++|*
16925  M01S13566.dsdi    +++|*         EITHER -
16926  M01S13567.dsdi    +++|*         28/ADDRESS,16/BYTE1,16/BYTE2
16927  M01S13568.dsdi    +++|*         28/0      ,16/BYTE3,16/BYTE4
16928  M01S13569.dsdi    +++|*
16929  M01S13570.dsdi    +++|*         OR FOR REPEATED WORDS -
16930  M01S13571.dsdi    +++|*         60/-0
16931  M01S13572.dsdi    +++|*         60/
16932  M01S13573.dsdi    +++|*
16933  M01S13574.dsdi    +++|*         EXIT   (X1) = 2* WORDS IN BUFFER.
16934  M01S13575.dsdi    +++|*                (PARAMETER BLOCK+0) = NEW FWA.
16935  M01S13576.dsdi    +++|*
16936  M01S13577.dsdi    +++|*         USES   X - ALL.
16937  M01S13578.dsdi    +++|*                A - ALL.
16938  M01S13579.dsdi    +++|*
16939  M01S13580.dsdi    +++|*         CALLS  CPC, CPS, NXB.
16940  M01S13581.dsdi    +++|
16941  M01S13582.dsdi    +++|
16942  M01S13583.dsdi    +++| FBB      SUBR               ENTRY/EXIT
16943  M01S13584.dsdi    +++|          SX1    10          CHECK FOR MINIMUM OF 10 WORDS
16944  M01S13585.dsdi    +++|          RJ     CPS         CHECK PAGE SPACE
16945  M01S13586.dsdi    +++|          SX3    6
16946  M01S13587.dsdi    +++|          IX2    X6*X3       MAXIMUM SIZE OF BUFFER FOR SIZE OF PAGE
16947  M01S13588.dsdi    +++|          SA1    B2+B1       LWA+1 OF DUMP
16948  M01S13589.dsdi    +++|          BX6    X1
16949  M01S13590.dsdi    +++|          SA6    FBBA
16950  M01S13591.dsdi    +++|          SA0    B2          SAVE PARAMETER ADDRESS
16951  M01S13592.dsdi    +++|          SX6    BUF         BUFFER POINTER
16952  M01S13593.dsdi    +++|          SA6    A6+B1
16953  M01S13594.dsdi    +++|          IX7    X6+X2       MAXIMUM LWA+1 OF BUFFER
16954  M01S13595.dsdi    +++|          SA7    A6+B1
16955  M01S13596.dsdi    +++| FBB1     RJ     NXB         GET UPPER PARCEL OF WORD
16956  M01S13597.dsdi    +++|          SA5    A0          CURRENT ADDRESS
16957  M01S13598.dsdi    +++|          SX3    8
16958  M01S13599.dsdi    +++|          MX2    -32
16959  M01S13600.dsdi    +++|          IX6    X3+X5       INCREMENT ADDRESS
16960  M01S13601.dsdi    +++|          BX5    -X2*X5
16961  M01S13602.dsdi    +++|          LX5    16
16962  M01S13603.dsdi    +++|          SA6    A0
16963  M01S13604.dsdi    +++|          IX5    X1+X5       COMBINE ADDRESS WITH DATA
16964  M01S13605.dsdi    +++|          RJ     NXB         READ SECOND PARCEL OF WORD
16965  M01S13606.dsdi    +++|          LX5    16
16966  M01S13607.dsdi    +++|          BX0    X5+X1
16967  M01S13608.dsdi    +++|          RJ     NXB         READ THIRD PARCEL OF WORD
16968  M01S13609.dsdi    +++|          BX5    X1
16969  M01S13610.dsdi    +++|          RJ     NXB         READ LAST PARCEL OF WORD
16970  M01S13611.dsdi    +++|          LX5    16
16971  M01S13612.dsdi    +++|          BX7    X5+X1
16972  M01S13613.dsdi    +++|          SA1    FBBD        DATA FROM LAST WORD
16973  M01S13614.dsdi    +++|          SA2    A1+B1
16974  M01S13615.dsdi    +++|          BX6    X0
16975  M01S13616.dsdi    +++|          MX3    -32
16976  M01S13617.dsdi    +++|          SA6    A1          REFRESH FBBD
16977  M01S13618.dsdi    +++|          SA7    A2
16978  M01S13619.dsdi    +++|          BX1    X6-X1
16979  M01S13620.dsdi    +++|          SA4    FBBB        BUFFER POINTER
16980  M01S13621.dsdi    +++|          BX2    X7-X2
16981  M01S13622.dsdi    +++|          SA6    X4
16982  M01S13623.dsdi    +++|          SA7    A6+B1
16983  M01S13624.dsdi    +++|          BX1    -X3*X1      DO NOT COMPARE ADDRESSES
16984  M01S13625.dsdi    +++|          IX3    X1+X2
16985  M01S13626.dsdi    +++|          SX6    A7+B1       NEW BUFFER POINTER
16986  M01S13627.dsdi    +++|          SA6    A4
16987  M01S13628.dsdi    +++|          NZ     X3,FBB2     IF DATA NOT REPEATED
16988  M01S13629.dsdi    +++|          SX2    X4-BUF
16989  M01S13630.dsdi    +++|          ZR     X2,FBB2     IF FIRST DATA IN BUFFER
16990  M01S13631.dsdi    +++|          MX7    1
16991  M01S13632.dsdi    +++|          SA7    X4          STORE FLAG IN BUFFER
16992  M01S13633.dsdi    +++|          SA1    X4-2        CHECK IF FLAG ALREADY SAVED
16993  M01S13634.dsdi    +++|          PL     X1,FBB3     IF NO FLAG PRESENT YET
16994  M01S13635.dsdi    +++|          SX6    A7
16995  M01S13636.dsdi    +++|          SA6    A4          RESTORE NEW BUFFER POINTER
16996  M01S13637.dsdi    +++| FBB2     SA2    A4+B1       MAXIMUM LWA OF BUFFER
16997  M01S13638.dsdi    +++|          IX3    X6-X2
16998  M01S13639.dsdi    +++|          PL     X3,FBB4     IF BUFFER FULL
16999  M01S13640.dsdi    +++| FBB3     SB2    A0
17000  M01S13641.dsdi    +++|          RJ     CPC         CHECK PAGE CHANGE
17001  M01S13642.dsdi    +++|          PL     X3,FBB4     IF PAGE NOT VALID
17002  M01S13643.dsdi    +++|          SA1    FBBA        LWA+1 OF DUMP
17003  M01S13644.dsdi    +++|          SA5    A0          CURRENT BYTE ADDRESS
17004  M01S13645.dsdi    +++|          IX6    X5-X1
Line S13646 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
17005  M02S13646.271l739 ---|          NZ     X6,FBB1     IF END OF DATA NOT YET ENCOUNTERED
17006  M01S00348.271l739 +++|          NG     X6,FBB1     IF NOT END OF DATA
17007  M01S13647.dsdi    +++| FBB4     SA1    FBBB
17008  M01S13648.dsdi    +++|          SA2    A1+B1
17009  M01S13649.dsdi    +++|          SX1    X1-BUF      COMPUTE AMOUNT DATA IN BUFFER
17010  M01S13650.dsdi    +++|          EQ     FBBX        RETURN
17011  M01S13651.dsdi    +++|
17012  M01S13652.dsdi    +++|
17013  M01S13653.dsdi    +++| FBBA     DATA   0           LWA+1 OF DUMP
17014  M01S13654.dsdi    +++| FBBB     DATA   0           BUFFER POINTER
17015  M01S13655.dsdi    +++| FBBC     DATA   0           MAXIMUM LWA+1 OF BUFFER
17016  M01S13656.dsdi    +++| FBBD     BSS    2           PREVIOUS WORD PRINTED
17017  M01S13657.dsdi    +++| FBP      SPACE  4,11
17018  M01S13658.dsdi    +++|**        FBP - FIND BYTE POSITION.
17019  M01S13659.dsdi    +++|*
17020  M01S13660.dsdi    +++|*         ENTRY  (RI) = RANDOM ADDRESS OF CURRENT RECORD.
17021  M01S13661.dsdi    +++|*                (X3) = DESIRED BYTE NUMBER.
17022  M01S13662.dsdi    +++|*
17023  M01S13663.dsdi    +++|*         EXIT   BUFFER POSITIONED AT DESIRED 16 BIT BYTE.
17024  M01S13664.dsdi    +++|*
17025  M01S13665.dsdi    +++|*         USES   X - 2, 3, 4, 5, 6.
17026  M01S13666.dsdi    +++|*                A - 6.
17027  M01S13667.dsdi    +++|*                B - 7.
17028  M01S13668.dsdi    +++|*
17029  M01S13669.dsdi    +++|*         CALLS  PDF, NXB.
17030  M01S13670.dsdi    +++|
17031  M01S13671.dsdi    +++|
17032  M01S13672.dsdi    +++| FBP      SUBR               ENTRY/EXIT
17033  M01S13673.dsdi    +++|          SX4    15
17034  M01S13674.dsdi    +++|          BX2    X3
17035  M01S13675.dsdi    +++|          IX3    X3/X4
17036  M01S13676.dsdi    +++|          SX4    15
17037  M01S13677.dsdi    +++|          IX5    X3*X4
17038  M01S13678.dsdi    +++|          IX5    X2-X5       BYTE POSITION WITHIN FOUR WORD GROUP
17039  M01S13679.dsdi    +++|          IX5    X4-X5
17040  M01S13680.dsdi    +++|          LX3    2           WORD OFFSET OF FOUR WORD GROUP
17041  M01S13681.dsdi    +++|          RJ     PDF         POSITION DUMP FILE
17042  M01S13682.dsdi    +++|          SX6    B0
17043  M01S13683.dsdi    +++|          SA6    NXBA
17044  M01S13684.dsdi    +++|          SA6    A6+B1
17045  M01S13685.dsdi    +++|          RJ     NXB
17046  M01S13686.dsdi    +++|          BX6    X5          SAVE BYTE OFFSET INTO FOUR WORD STACK
17047  M01S13687.dsdi    +++|          SA6    NXBB
17048  M01S13688.dsdi    +++|          EQ     FBPX        RETURN
17049  M01S13689.dsdi    +++| FDW      SPACE  4,11
17050  M01S13690.dsdi    +++|**        FDW - FORMAT DATA WORD.
17051  M01S13691.dsdi    +++|*
17052  M01S13692.dsdi    +++|*         ENTRY  X1 = DATA WORD.
17053  M01S13693.dsdi    +++|*                B7 = PRINT STRING ADDRESS.
17054  M01S13694.dsdi    +++|*                X2 = 24/0,18/DIGITS PER BYTE,18/BYTES PER WORD.
17055  M01S13695.dsdi    +++|*
17056  M01S13696.dsdi    +++|*         USES   X - 0,1,2,6,7.
17057  M01S13697.dsdi    +++|*                B - 5,6,7.
17058  M01S13698.dsdi    +++|*                A - 6,7.
17059  M01S13699.dsdi    +++|*
17060  M01S13700.dsdi    +++|*         CALLS  CTS.
17061  M01S13701.dsdi    +++|
17062  M01S13702.dsdi    +++|
17063  M01S13703.dsdi    +++| FDW      SUBR
17064  M01S13704.dsdi    +++|          SB5    X2          NUMBER OF BYTES
17065  M01S13705.dsdi    +++|          AX2    18
17066  M01S13706.dsdi    +++|          SX6    1R          PRESET SPACE
17067  M01S13707.dsdi    +++| FDW1     SB6    X2+         DIGIT COUNT
17068  M01S13708.dsdi    +++|          RJ     CTS         CONVERT ONE BYTE
17069  M01S13709.dsdi    +++|          SA6    B7          SPACE 1
17070  M01S13710.dsdi    +++|          SB7    B7+B1
17071  M01S13711.dsdi    +++|          SB5    B5-1
17072  M01S13712.dsdi    +++|          NZ     B5,FDW1     IF MORE BYTES
17073  M01S13713.dsdi    +++|          JP     FDWX        EXIT
17074  M01S13714.dsdi    +++| FEM      SPACE  4,10
17075  M01S13715.dsdi    +++|**        FEM - FORMAT ENTRY POINT MAP LINE.
17076  M01S13716.dsdi    +++|*
17077  M01S13717.dsdi    +++|*         ENTRY  X5 = LINE INDEX.
17078  M01S13718.dsdi    +++|*                PPU DATA IS AT *PBUF*.
17079  M01S13719.dsdi    +++|*
17080  M01S13720.dsdi    +++|*         SAVES  X - 5.
17081  M01S13721.dsdi    +++|*                B - 1.
17082  M01S13722.dsdi    +++|*                A - 0,5.
17083  M01S13723.dsdi    +++|*
17084  M01S13724.dsdi    +++|*         CALLS  CTS,RPB,UPS.
17085  M01S13725.dsdi    +++|
17086  M01S13726.dsdi    +++|
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  M01S13727.dsdi    +++| FEM      SUBR
17100  M01S13728.dsdi    +++|          SX2    X5-7
Line S13729 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi56
Seq #  *Modification Id* Act 
----------------------------+
17101  M02S13729.dsdi56  ---|          PL     X2,FEMX     IF END OF ENTRY POINTS.
17102  M01S00092.dsdi56  +++|          PL     X2,FEM1     IF END OF ENTRY POINTS.
17103  M01S13730.dsdi    +++|          SA2    X5+FEMA     READ ENTRY POINT NAME,ADDRESS
17104  M01S13731.dsdi    +++|          SB6    3
17105  M01S13732.dsdi    +++|          SB7    PRBF+10
17106  M01S13733.dsdi    +++|          RJ     UPS         SET NAME IN PRINT STRING
17107  M01S13734.dsdi    +++|          BX1    X2
17108  M01S13735.dsdi    +++|          SB6    4
17109  M01S13736.dsdi    +++|          SB7    B7+2
17110  M01S13737.dsdi    +++|          RJ     CTS         CONVERT LOCATION
17111  M01S13738.dsdi    +++|          MX2    -12
17112  M01S13739.dsdi    +++|          BX1    -X2*X1
17113  M01S13740.dsdi    +++|          SB6    B7          SAVE B7
17114  M01S13741.dsdi    +++|          RJ     RPB         READ RETURN ADDRESS FROM PPU
17115  M01S13742.dsdi    +++|          SB7    B6+2
17116  M01S13743.dsdi    +++|          SB6    4
17117  M01S13744.dsdi    +++|          BX1    X6
17118  M01S13745.dsdi    +++|          RJ     CTS         CONVERT RETURN ADDRESS
17119  M01S13746.dsdi    +++|          JP     FEMX        EXIT
17120  M01S13747.dsdi    +++|
17121  M01S13748.dsdi    +++| FEMA     BSS    0           RESIDENT ENTRY POINT TABLE
17122  M01S13749.dsdi    +++|          LOC    0
17123  M01S13750.dsdi    +++|
17124  M01S13751.dsdi    +++|          VFD    18/3LFTN,12/FTN,30/0
17125  M01S13752.dsdi    +++|          VFD    18/3LDFM,12/DFM,30/0
17126  M01S13753.dsdi    +++|          VFD    18/3LEXR,12/EXR,30/0
17127  M01S13754.dsdi    +++|          VFD    18/3LSMS,12/.SMS,30/0
17128  M01S13755.dsdi    +++|          VFD    18/3LRDS,12/RDS,30/0
17129  M01S13756.dsdi    +++|          VFD    18/3LWDS,12/WDS,30/0
17130  M01S13757.dsdi    +++|          VFD    18/3LEMS,12/.EMS,30/0
17131  M01S13758.dsdi    +++|          LOC    *O
17132  M01S00093.dsdi56  +++|
17133  M01S00094.dsdi56  +++| FEMB     DATA   28H* ENTRY POINTS AND CONSTANTS
17134  M01S00095.dsdi56  +++|          DATA   28H  MAY NOT HAVE BEEN SAVED.
17135  M01S13759.dsdi    +++| FFD      SPACE  4,10
17136  M01S13760.dsdi    +++|**        FFD - FIND FWA OF DISK BUFFER AREA IN EXTENDED MEMORY.
17137  M01S13761.dsdi    +++|*
17138  M01S13762.dsdi    +++|*         ENTRY  (X5) = MACHINE ID, LEFT-JUSTIFIED AND ZERO-FILLED.
17139  M01S13763.dsdi    +++|*
17140  M01S13764.dsdi    +++|*         EXIT   (DA) = (X6) = FWA OF DISK BUFFER AREA.
17141  M01S13765.dsdi    +++|*
17142  M01S13766.dsdi    +++|*         ERROR  TO *ERR36*, IF INCORRECT MACHINE ID.
17143  M01S13767.dsdi    +++|*
17144  M01S13768.dsdi    +++|*         USES   X - 1, 2, 6.
17145  M01S13769.dsdi    +++|*                A - 1, 6.
17146  M01S13770.dsdi    +++|*                B - 2.
17147  M01S13771.dsdi    +++|*
17148  M01S13772.dsdi    +++|*         CALLS  POM, SEC.
17149  M01S13773.dsdi    +++|*
17150  M01S13774.dsdi    +++|*         MACROS GETCM.
17151  M01S13775.dsdi    +++|
17152  M01S13776.dsdi    +++|
17153  M01S13777.dsdi    +++| FFD      SUBR               ENTRY/EXIT
17154  M01S13778.dsdi    +++|          RJ     SEC         SET EXTENDED MEMORY
17155  M01S13779.dsdi    +++|          SX6    20B         SET EM SECTOR LIMIT
17156  M01S13780.dsdi    +++|          SA1    EM
17157  M01S13781.dsdi    +++|          SB2    X1
17158  M01S13782.dsdi    +++|          LX6    B2
17159  M01S13783.dsdi    +++|          SX6    X6+ETLT*100B+IBDT
17160  M01S13784.dsdi    +++|          SA6    CPRA
17161  M01S13785.dsdi    +++|          SB2    A6
17162  M01S13786.dsdi    +++|          RJ     POM         POSITION TO FWA *IBDT*
17163  M01S13787.dsdi    +++|          GETCM  FFDA,MXMF   READ *IBDT* INTO CORE
17164  M01S13788.dsdi    +++|          SB2    MXMF        PRESET *IBDT* INDEX
17165  M01S13789.dsdi    +++| FFD1     SB2    B2-1
17166  M01S13790.dsdi    +++|          NG     B2,ERR36    IF AT END OF *IBDT*
17167  M01S13791.dsdi    +++|          SA1    B2+FFDA
17168  M01S13792.dsdi    +++|          BX2    X1-X5
17169  M01S13793.dsdi    +++|          AX2    48
17170  M01S13794.dsdi    +++|          NZ     X2,FFD1     IF MACHINE ID NOT FOUND
17171  M01S13795.dsdi    +++|          AX1    12
17172  M01S13796.dsdi    +++|          MX6    -12
17173  M01S13797.dsdi    +++|          BX6    -X6*X1
17174  M01S13798.dsdi    +++|          LX6    9
17175  M01S13799.dsdi    +++|          SA6    DA          STORE FWA OF DISK BUFFER AREA
17176  M01S13800.dsdi    +++|          EQ     FFDX        RETURN
17177  M01S13801.dsdi    +++|
17178  M01S13802.dsdi    +++| FFDA     BSS    MXMF        CORE BUFFER FOR *IBDT*
17179  M01S13803.dsdi    +++| FLC      SPACE  4,9
17180  M01S13804.dsdi    +++|**        FLC - FORMAT PPU LOW CORE ANALYSIS LINE.
17181  M01S13805.dsdi    +++|*
Line S13806 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17182  M02S13806.ns2647  ---|*         ENTRY  X5 = LINE NUMBER.
Line S13807 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17183  M02S13807.ns2647  ---|*
Line S13808 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17184  M02S13808.ns2647  ---|*         SAVES  X - 5.
Line S13809 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17185  M02S13809.ns2647  ---|*                B - 1.
Line S13810 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17186  M02S13810.ns2647  ---|*                A - 0,5.
Line S13811 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17187  M02S13811.ns2647  ---|*
Line S13812 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17188  M02S13812.ns2647  ---|*         CALLS  CTS,RPB,UPS.
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  M01S13813.dsdi    +++|
17197  M01S13814.dsdi    +++|
17198  M01S13815.dsdi    +++| FLC7     RJ     GRV         GET R-REGISTER VALUE
Line S13816 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17199  M02S13816.ns2647  ---|          SB7    PRBF+45     STORE ACTUAL VALUE
17200  M01S00116.ns2647  +++|          SB7    B7+3
17201  M01S13817.dsdi    +++|          SB6    8
Line S13818 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17202  M02S13818.ns2647  ---|          BX6    X1
Line S13819 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17203  M02S13819.ns2647  ---|          SA6    FLCB+5      SAVE ACTUAL
17204  M01S13820.dsdi    +++|          RJ     CTS         CONVERT AND STORE IN PRINT LINE
17205  M01S00117.ns2647  +++|          BX3    X1          SAVE ACTUAL
17206  M01S13821.dsdi    +++|          SA1    FLCB+3      GET CP ADDRESS
Line S13822 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17207  M02S13822.ns2647  ---|          SA2    F.TCMT
Line S13823 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17208  M02S13823.ns2647  ---|          IX2    X1+X2
Line S13824 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17209  M02S13824.ns2647  ---|          SA1    X2+FLSW+1   GET EXPECTED R-REGISTER
17210  M01S00118.ns2647  +++|          ZR     X1,FLC4     IF PPU NOT ATTACHED
17211  M01S00119.ns2647  +++|          SA1    FLCB+5      GET EXPECTED R-REGISTER
17212  M01S13825.dsdi    +++|          MX2    24
17213  M01S13826.dsdi    +++|          LX1    12
Line S13827 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17214  M02S13827.ns2647  ---|          BX6    X2*X1
Line S13828 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17215  M02S13828.ns2647  ---|          SA6    FLCB+6      SAVE EXPECTED
Line S13829 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17216  M02S13829.ns2647  ---|          SB7    PRBF+55
17217  M01S00120.ns2647  +++|          BX1    X2*X1
17218  M01S13830.dsdi    +++|          SB6    8
Line S13831 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17219  M02S13831.ns2647  ---|          RJ     CTS         CONVERT AND STORE EXPECTED
Line S13832 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17220  M02S13832.ns2647  ---|          SA1    FLCB+5
Line S13833 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17221  M02S13833.ns2647  ---|          SA2    A1+B1
Line S13834 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17222  M02S13834.ns2647  ---|          BX2    X1-X2
Line S13835 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17223  M02S13835.ns2647  ---|          ZR     X2,FLCX     IF ACTUAL = EXPECTED
Line S13836 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17224  M02S13836.ns2647  ---|          SA2    =27H  *** WARNING ***
Line S13837 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17225  M02S13837.ns2647  ---|          SB7    PRBF+65
Line S13838 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17226  M02S13838.ns2647  ---|          SB6    27
Line S13839 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17227  M02S13839.ns2647  ---|          RJ     UPS         STORE WARNING MESSAGE
17228  M01S00121.ns2647  +++|          EQ     FLC3.1      COMPARE VALUES
17229  M01S13840.dsdi    +++|
Line S13841 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17230  M02S13841.ns2647  ---| FLC      SUBR
17231  M01S00122.ns2647  +++| FLC      SUBR               ENTRY/EXIT
17232  M01S13842.dsdi    +++|          SA2    X5+FLCA
17233  M01S13843.dsdi    +++|          SB6    7
17234  M01S13844.dsdi    +++|          SB7    PRBF+35
17235  M01S13845.dsdi    +++|          RJ     UPS         SET NAME AND LOCATION
17236  M01S13846.dsdi    +++|          LX2    18
17237  M01S13847.dsdi    +++|          SX1    X2          PPU ADDRESS
17238  M01S00123.ns2647  +++|          ZR     X1,FLC7     IF R-REGISTER
17239  M01S13848.dsdi    +++|          SB6    B7          SAVE PRINT STRING ADDRESS
17240  M01S13849.dsdi    +++|          RJ     RPB         READ LOCATION CONTENTS
17241  M01S13850.dsdi    +++|          SB7    B6+3
17242  M01S13851.dsdi    +++|          SB6    4
17243  M01S13852.dsdi    +++|          BX1    X6
17244  M01S13853.dsdi    +++|          RJ     CTS         CONVERT CONTENTS
17245  M01S13854.dsdi    +++|          ZR     X5,FLC1     IF LINE 0
17246  M01S13855.dsdi    +++|          SB2    X5+FLC6-1
17247  M01S13856.dsdi    +++|          JP     B2          VERIFY WORD FOR LINES 1 - 9
17248  M01S13857.dsdi    +++|
17249  M01S13858.dsdi    +++|*         COMPUTE EXPECTED LOW CORE VALUES.
17250  M01S13859.dsdi    +++|
Line S13860 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17251  M02S13860.ns2647  ---| FLC1     SA3    F.TCMT
Line S13861 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17252  M02S13861.ns2647  ---|          SA4    PC          GET PP COMMUNICATION AREA POINTER
Line S13862 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17253  M02S13862.ns2647  ---|          SA2    PP          PPU NUMBER
Line S13863 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17254  M02S13863.ns2647  ---|          SX7    X2-12B
Line S13864 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17255  M02S13864.ns2647  ---|          NG     X7,FLC2     IF NOT UPPER PPU BANK
Line S13865 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17256  M02S13865.ns2647  ---|          SX2    X2+12B-20B  CORRECT FOR UPPER PPUS
Line S13866 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17257  M02S13866.ns2647  ---| FLC2     LX2    3
Line S13867 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17258  M02S13867.ns2647  ---|          IX6    X2+X4       PP INPUT REGISTER ADDRESS
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  M01S13868.dsdi    +++|          IX4    X6+X3
17265  M01S13869.dsdi    +++|          SA6    FLCB        SAVE
17266  M01S13870.dsdi    +++|          SX7    X6+B1
17267  M01S13871.dsdi    +++|          SA7    A6+B1       SAVE OUTPUT REGISTER ADDRESS
17268  M01S13872.dsdi    +++|          SX6    X7+B1
17269  M01S13873.dsdi    +++|          SA6    A7+B1       SAVE MESSAGE AREA ADDRESS
17270  M01S13874.dsdi    +++|          SA4    X4          READ INPUT REGISTER
17271  M01S13875.dsdi    +++|          MX2    -5
17272  M01S13876.dsdi    +++|          AX4    36
17273  M01S13877.dsdi    +++|          BX6    -X2*X4      CONTROL POINT NUMBER
17274  M01S13878.dsdi    +++|          LX6    7           CONTROL POINT AREA ADDRESS
17275  M01S13879.dsdi    +++|          SA6    A6+B1       SAVE
17276  M01S13880.dsdi    +++|          ZR     X6,FLC4     IF PPU NOT ASSIGNED TO CONTROL POINT
17277  M01S13881.dsdi    +++|          IX4    X6+X3
17278  M01S00129.ns2647  +++|          SA2    OP          ADD PCPA OFFSET
17279  M01S00130.ns2647  +++|          IX4    X2+X4
17280  M01S13882.dsdi    +++|          SA2    X4+FLSW     GET RA/100 AND FL/100
17281  M01S13883.dsdi    +++|          BX6    X2
17282  M01S13884.dsdi    +++|          SA6    A6+B1       SAVE RA/100 AND FL/100
17283  M01S13885.dsdi    +++|          SA3    CE
17284  M01S00131.ns2647  +++|          SA4    A2+B1       GET R-REGISTER
17285  M01S13886.dsdi    +++|          ZR     X3,FLC2.1   IF NO CM EXTENSION
Line S13887 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17286  M02S13887.ns2647  ---|          SA2    X4+FLSW+1
17287  M01S00132.ns2647  +++|          SA2    A2+1
17288  M01S13888.dsdi    +++| FLC2.1   LX2    -12
17289  M01S00133.ns2647  +++|          BX6    X4
17290  M01S00134.ns2647  +++|          SA6    A6+1        SAVE R-REGISTER
17291  M01S13889.dsdi    +++|
17292  M01S13890.dsdi    +++|*         COMPARE ACTUAL AND EXPECTED VALUES.
17293  M01S13891.dsdi    +++|
17294  M01S13892.dsdi    +++| FLC3     BX3    X1          SAVE ACTUAL DATA
17295  M01S13893.dsdi    +++|          MX1    -12
17296  M01S13894.dsdi    +++|          BX1    -X1*X2      EXPECTED DATA
17297  M01S00135.ns2647  +++|          LX1    -12
17298  M01S13895.dsdi    +++|          SB6    4
Line S13896 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17299  M02S13896.ns2647  ---|          SB7    B7+2
Line S13897 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17300  M02S13897.ns2647  ---|          LX1    -12
17301  M01S00136.ns2647  +++| FLC3.1   SB7    B7+2
17302  M01S13898.dsdi    +++|          RJ     CTS         FORMAT EXPECTED DATA
17303  M01S13899.dsdi    +++|          BX1    X1-X3
17304  M01S13900.dsdi    +++|          ZR     X1,FLCX     IF ACTUAL = EXPECTED
17305  M01S13901.dsdi    +++|          SA2    =27H  *** WARNING ***
17306  M01S13902.dsdi    +++|          SB6    27
Line S13903 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17307  M02S13903.ns2647  ---|          RJ     UPS         SET ERROR FLAG
17308  M01S00137.ns2647  +++| FLC3.2   RJ     UPS         SET MESSAGE
17309  M01S13904.dsdi    +++|          JP     FLCX        EXIT
17310  M01S13905.dsdi    +++|
17311  M01S13906.dsdi    +++|*         PPU NOT ATTACHED - IGNORE CL, RA AND FL.
17312  M01S13907.dsdi    +++|
17313  M01S13908.dsdi    +++| FLC4     SA2    =4L----
17314  M01S13909.dsdi    +++|          SB6    4
17315  M01S13910.dsdi    +++|          SB7    B7+2
Line S13911 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17316  M02S13911.ns2647  ---|          RJ     UPS
Line S13912 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17317  M02S13912.ns2647  ---|          JP     FLCX        EXIT
17318  M01S00138.ns2647  +++|          JP     FLC3.2      SET MESSAGE
17319  M01S13913.dsdi    +++|
17320  M01S13914.dsdi    +++|*         CHECK CONTROL POINT RELATED DATA.
17321  M01S13915.dsdi    +++|
17322  M01S13916.dsdi    +++| FLC5     SA3    FLCB+3      READ CONTROL POINT AREA ADDRESS
17323  M01S13917.dsdi    +++|          ZR     X3,FLC4     IF PPU NOT ATTACHED
17324  M01S13918.dsdi    +++|          JP     FLC3        CHECK VALUE
17325  M01S13919.dsdi    +++|
17326  M01S13920.dsdi    +++|*         SET EXPECTED VALUES.
17327  M01S13921.dsdi    +++|
17328  M01S13922.dsdi    +++| FLC6     BSS    0
17329  M01S13923.dsdi    +++|
17330  M01S13924.dsdi    +++|+         SA2    FLCB+4      FL
17331  M01S13925.dsdi    +++|          JP     FLC5
17332  M01S13926.dsdi    +++|
17333  M01S13927.dsdi    +++|+         SX2    1           ON
17334  M01S13928.dsdi    +++|          JP     FLC3
17335  M01S13929.dsdi    +++|
17336  M01S13930.dsdi    +++|+         SX2    100B        HN
17337  M01S13931.dsdi    +++|          JP     FLC3
17338  M01S13932.dsdi    +++|
17339  M01S13933.dsdi    +++|+         SX2    1000B       TH
17340  M01S13934.dsdi    +++|          JP     FLC3
17341  M01S13935.dsdi    +++|
17342  M01S13936.dsdi    +++|+         SX2    3           TR
17343  M01S13937.dsdi    +++|          JP     FLC3
17344  M01S13938.dsdi    +++|
17345  M01S13939.dsdi    +++|+         SA2    FLCB+3      CP
17346  M01S13940.dsdi    +++|          JP     FLC5
17347  M01S13941.dsdi    +++|
17348  M01S13942.dsdi    +++|+         SA2    FLCB+0      IA
17349  M01S13943.dsdi    +++|          JP     FLC5
17350  M01S13944.dsdi    +++|
17351  M01S13945.dsdi    +++|+         SA2    FLCB+1      OA
17352  M01S13946.dsdi    +++|          JP     FLC5
17353  M01S13947.dsdi    +++|
17354  M01S13948.dsdi    +++|+         SA2    FLCB+2      MA
17355  M01S13949.dsdi    +++|          JP     FLC5
Line S13950 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17356  M02S13950.ns2647  ---|
Line S13951 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17357  M02S13951.ns2647  ---|+         JP     FLC7        PROCESS R-REGISTER LINE
17358  M01S13952.dsdi    +++|
17359  M01S13953.dsdi    +++|
17360  M01S13954.dsdi    +++| FLCA     BSS    0
17361  M01S13955.dsdi    +++|          VFD    42/7LRA  55 ,18/RA
17362  M01S13956.dsdi    +++|          VFD    42/7LFL  56 ,18/FL
17363  M01S13957.dsdi    +++|          VFD    42/7LON  70 ,18/ON
17364  M01S13958.dsdi    +++|          VFD    42/7LHN  71 ,18/HN
17365  M01S13959.dsdi    +++|          VFD    42/7LTH  72 ,18/TH
17366  M01S13960.dsdi    +++|          VFD    42/7LTR  73 ,18/TR
17367  M01S13961.dsdi    +++|          VFD    42/7LCP  74 ,18/CP
17368  M01S13962.dsdi    +++|          VFD    42/7LIA  75 ,18/IA
17369  M01S13963.dsdi    +++|          VFD    42/7LOA  76 ,18/OA
17370  M01S13964.dsdi    +++|          VFD    42/7LMA  77 ,18/MA
17371  M01S13965.dsdi    +++|          VFD    42/7LR-REG  ,18/0
17372  M01S13966.dsdi    +++|
17373  M01S13967.dsdi    +++| FLCB     BSS    0           EXPECTED LOW CORE DATA
17374  M01S13968.dsdi    +++|          LOC    0
17375  M01S13969.dsdi    +++|
17376  M01S13970.dsdi    +++|          BSS    1           IA
17377  M01S13971.dsdi    +++|          BSS    1           OA
17378  M01S13972.dsdi    +++|          BSS    1           MA
17379  M01S13973.dsdi    +++|          BSS    1           CP
17380  M01S13974.dsdi    +++|          BSS    1           RA/100, FL/100
Line S13975 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17381  M02S13975.ns2647  ---|          BSS    1           ACTUAL R-REGISTER
Line S13976 Modification History
M01 (Added by) dsdi
M02 (Updated by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
17382  M02S13976.ns2647  ---|          BSS    1           EXPECTED R-REGISTER
17383  M01S00139.ns2647  +++|          BSS    1           R-REGISTER
17384  M01S13977.dsdi    +++|          LOC    *O
17385  M01S13978.dsdi    +++| FOL      SPACE  4,9
17386  M01S13979.dsdi    +++|**        FOL - FORMAT ONE LINE OF *P* DUMP.
17387  M01S13980.dsdi    +++|*
17388  M01S13981.dsdi    +++|*         ENTRY  X5 = ROW NUMBER.
17389  M01S13982.dsdi    +++|*
17390  M01S13983.dsdi    +++|*         SAVES  X - 5.
17391  M01S13984.dsdi    +++|*                B - NONE.
17392  M01S13985.dsdi    +++|*                A - 5.
17393  M01S13986.dsdi    +++|*
17394  M01S13987.dsdi    +++|*         CALLS  CTS,UPS,WOF.
17395  M01S13988.dsdi    +++|
17396  M01S13989.dsdi    +++|
17397  M01S13990.dsdi    +++| FOL      SUBR
17398  M01S13991.dsdi    +++|          BX1    X5
17399  M01S13992.dsdi    +++|          SB6    2
17400  M01S13993.dsdi    +++|          LX1    -6
17401  M01S13994.dsdi    +++|          SB7    PRBF+7
17402  M01S13995.dsdi    +++|          RJ     CTS         SET ROW ADDRESS IN LEFT BLOCK
17403  M01S13996.dsdi    +++|          LX1    -6
17404  M01S13997.dsdi    +++|          SB6    B1+B1
17405  M01S13998.dsdi    +++|          SB7    PRBF+71
17406  M01S13999.dsdi    +++|          RJ     CTS         CONVERT FOR RIGHT BLOCK
17407  M01S14000.dsdi    +++|          SB2    X5+BUF
17408  M01S14001.dsdi    +++|          SB7    PRBF+11
17409  M01S14002.dsdi    +++|          SB3    2
17410  M01S14003.dsdi    +++| FOL1     SB4    10B
17411  M01S14004.dsdi    +++| FOL2     SB6    4           DIGIT COUNT
17412  M01S14005.dsdi    +++|          SA1    B2+         READ BYTE
17413  M01S14006.dsdi    +++|          NZ     X1,FOL3     IF NOT ZERO
17414  M01S14007.dsdi    +++|          SA2    =4L----
17415  M01S14008.dsdi    +++|          RJ     UPS         SET ZERO INDICATOR
17416  M01S14009.dsdi    +++|          JP     FOL4
17417  M01S14010.dsdi    +++|
17418  M01S14011.dsdi    +++| FOL3     RJ     CTS         CONVERT BYTE
17419  M01S14012.dsdi    +++| FOL4     SB2    B2+10B      ADVANCE ADDRESS
17420  M01S14013.dsdi    +++|          SB7    B7+2        SPACE 2
17421  M01S14014.dsdi    +++|          SB4    B4-1        COUNT BYTE
17422  M01S14015.dsdi    +++|          NZ     B4,FOL2     IF MORE BYTES IN THIS BLOCK
17423  M01S14016.dsdi    +++|          SB7    B7+16       SPACE TO RIGHT BLOCK
17424  M01S14017.dsdi    +++|          SB3    B3-1
17425  M01S14018.dsdi    +++|          NZ     B3,FOL1     IF NOT DONE WITH RIGHT BLOCK
17426  M01S14019.dsdi    +++|          PRINT  CCCH,B7-CCCH-18
17427  M01S14020.dsdi    +++|          JP     FOLX        EXIT
17428  M01S14021.dsdi    +++| FON      SPACE  4,15
17429  M01S14022.dsdi    +++|**        FON - FORMAT PPU OVERLAY NAME LINE.
17430  M01S14023.dsdi    +++|*
17431  M01S14024.dsdi    +++|*         ENTRY  B4 = LINE INDEX.
17432  M01S14025.dsdi    +++|*                PPU DATA IS AT *PBUF*.
17433  M01S14026.dsdi    +++|*
17434  M01S14027.dsdi    +++|*         USES   X - 1, 2, 6, 7.
17435  M01S14028.dsdi    +++|*                A - 1, 2.
17436  M01S14029.dsdi    +++|*                B - 3, 6, 7.
17437  M01S14030.dsdi    +++|*
17438  M01S14031.dsdi    +++|*         SAVES  X - 5.
17439  M01S14032.dsdi    +++|*                A - 0, 5.
17440  M01S14033.dsdi    +++|*                B - 1.
17441  M01S14034.dsdi    +++|*
17442  M01S14035.dsdi    +++|*         CALLS  RPB, UPS.
17443  M01S14036.dsdi    +++|
17444  M01S14037.dsdi    +++|
17445  M01S14038.dsdi    +++| FON      SUBR               ENTRY/EXIT
17446  M01S14039.dsdi    +++|          SB3    3
17447  M01S14040.dsdi    +++|          GE     B4,B3,FONX  IF NO MORE NAMES TO FORMAT
17448  M01S14041.dsdi    +++|          SB7    B7+6        SET PRINT STRING ADDRESS
17449  M01S14042.dsdi    +++|          JP     FONA+B4     PROCESS APPROPRIATE LINE
17450  M01S14043.dsdi    +++|
17451  M01S14044.dsdi    +++|*         LIST LAST MAIN PROGRAM LOADED.
17452  M01S14045.dsdi    +++|
17453  M01S14046.dsdi    +++| FON1     SA2    =27HLAST MAIN PROGRAM LOADED -
17454  M01S14047.dsdi    +++|          SB6    27
17455  M01S14048.dsdi    +++|          RJ     UPS
17456  M01S14049.dsdi    +++|          SX1    IR
17457  M01S14050.dsdi    +++|          SB6    B7+         SAVE PRINT STRING ADDRESS
17458  M01S14051.dsdi    +++|          RJ     RPB         READ INPUT REGISTER BYTE
17459  M01S14052.dsdi    +++|          SX1    IR+1
17460  M01S14053.dsdi    +++|          BX7    X6          SAVE (IR)
17461  M01S14054.dsdi    +++|          RJ     RPB
17462  M01S14055.dsdi    +++|          LX6    -12
17463  M01S14056.dsdi    +++| FON2     BX2    X6+X7       SET PROGRAM NAME
17464  M01S14057.dsdi    +++|          SB7    B6          PRINT STRING ADDRESS
17465  M01S14058.dsdi    +++|          SB6    3
17466  M01S14059.dsdi    +++|          RJ     UPS         SET NAME IN PRINT STRING
17467  M01S14060.dsdi    +++|          JP     FONX        EXIT
17468  M01S14061.dsdi    +++|
17469  M01S14062.dsdi    +++|*         LIST LAST OVERLAY LOADED.
17470  M01S14063.dsdi    +++|
17471  M01S14064.dsdi    +++| FON3     SA2    =27HLAST OVERLAY LOADED      -
17472  M01S14065.dsdi    +++|          SB6    27
17473  M01S14066.dsdi    +++|          RJ     UPS
17474  M01S14067.dsdi    +++|          SB6    B7+         SAVE B7
17475  M01S14068.dsdi    +++|          SX1    PLLA
17476  M01S14069.dsdi    +++|          RJ     RPB         READ OVERLAY NAME
17477  M01S14070.dsdi    +++|          SX1    PLLB
17478  M01S14071.dsdi    +++|          BX7    X6
17479  M01S14072.dsdi    +++|          RJ     RPB
17480  M01S14073.dsdi    +++|          MX2    6
17481  M01S14074.dsdi    +++|          BX7    -X2*X7
17482  M01S14075.dsdi    +++|          LX7    6
17483  M01S14076.dsdi    +++|          LX6    -6
17484  M01S14077.dsdi    +++|          JP     FON2        SET NAME IN PRINT STRING
17485  M01S14078.dsdi    +++|
17486  M01S14079.dsdi    +++|*         LIST LAST MASS STORAGE DRIVER LOADED.
17487  M01S14080.dsdi    +++|
17488  M01S14081.dsdi    +++| FON4     SA2    =27HLAST MASS STORAGE DRIVER -
17489  M01S14082.dsdi    +++|          SB6    27
17490  M01S14083.dsdi    +++|          RJ     UPS
17491  M01S14084.dsdi    +++|          SB6    B7+
17492  M01S14085.dsdi    +++|          SX1    MSD
17493  M01S14086.dsdi    +++|          RJ     RPB         READ DRIVER IDENTIFICATION BYTE
17494  M01S14087.dsdi    +++|          SX7    B0          ASSUME NO DRIVER
17495  M01S14088.dsdi    +++|          LX6    6           POSITION MASS STORAGE DRIVER INDEX
17496  M01S14089.dsdi    +++|          BX6    X1*X6
17497  M01S14090.dsdi    +++|          LX6    6
17498  M01S14091.dsdi    +++|          ZR     X6,FON2     IF NO DRIVER
17499  M01S14092.dsdi    +++|          SA1    TFON-1+X6   INDEX INTO DRIVER DESIGNATOR TABLE
17500  M01S14093.dsdi    +++|          BX6    X1
17501  M01S14094.dsdi    +++|          SX7    1R6
17502  M01S14095.dsdi    +++|          LX7    -6
17503  M01S14096.dsdi    +++|          JP     FON2        PROCESS DRIVER NAME
17504  M01S14097.dsdi    +++|
17505  M01S14098.dsdi    +++| FONA     BSS    0           LINE PROCESSOR JUMP TABLE
17506  M01S14099.dsdi    +++|+         JP     FON1        PRINT LINE 0
17507  M01S14100.dsdi    +++|+         JP     FON3        PRINT LINE 1
17508  M01S14101.dsdi    +++|+         JP     FON4        PRINT LINE 2
17509  M01S14102.dsdi    +++|
17510  M01S14103.dsdi    +++| TFON     BSS    0           TABLE OF MASS STORAGE DRIVER DESIGNATORS
17511  M01S14104.dsdi    +++|          LOC    1
17512  M01S14105.dsdi    +++|          ERRNZ  /MSP/LA6DI-*  ADJUST TABLE IF VALUE CHANGES
17513  M01S14106.dsdi    +++|          VFD    6/0,12/2RDI,42/0  *6DI*
17514  M01S14107.dsdi    +++|          ERRNZ  /MSP/LA6DJ-*  ADJUST TABLE IF VALUE CHANGES
17515  M01S14108.dsdi    +++|          VFD    6/0,12/2RDJ,42/0  *6DJ*
17516  M01S14109.dsdi    +++|          ERRNZ  /MSP/LA6DP-*  ADJUST TABLE IF VALUE CHANGES
17517  M01S14110.dsdi    +++|          VFD    6/0,12/2RDP,42/0  *6DP*
17518  M01S14111.dsdi    +++|          ERRNZ  /MSP/LA6DE-*  ADJUST TABLE IF VALUE CHANGES
17519  M01S14112.dsdi    +++|          VFD    6/0,12/2RDE,42/0  *6DE*
17520  M01S14113.dsdi    +++|          ERRNZ  /MSP/LA6DX-*  ADJUST TABLE IF VALUE CHANGES
17521  M01S14114.dsdi    +++|          VFD    6/0,12/2RDX,42/0  *6DX*
17522  M01S14115.dsdi    +++|          LOC    *O
17523  M01S14116.dsdi    +++| FPB      SPACE  4,22
17524  M01S14117.dsdi    +++|**        FPB - FILL PAGE BUFFER.
17525  M01S14118.dsdi    +++|*
17526  M01S14119.dsdi    +++|*         ENTRY  (B2) = ADDRESS OF DUMP PARAMETERS.  PARAMETER BLOCK
17527  M01S14120.dsdi    +++|*                         IS DOCUMENTED IN *PMD*.
17528  M01S14121.dsdi    +++|*                (LC) = CURRENT LINE COUNTER.
17529  M01S14122.dsdi    +++|*                (PD) = NUMBER OF LINES PER PAGE.
17530  M01S14123.dsdi    +++|*
17531  M01S14124.dsdi    +++|*         EXIT   (X1) = PAGE BUFFER LENGTH.
17532  M01S14125.dsdi    +++|*                PARAMETER BLOCK IS UPDATED.  FOR EACH WORD DUMPED,
17533  M01S14126.dsdi    +++|*                *BUF* CONTAINS A TWO WORD ENTRY -
17534  M01S14127.dsdi    +++|*
17535  M01S14128.dsdi    +++|*                36/0,24/ADDRESS
17536  M01S14129.dsdi    +++|*                60/DATA           FOR DATA, OR
17537  M01S14130.dsdi    +++|*
17538  M01S14131.dsdi    +++|*                60/MINUS
17539  M01S14132.dsdi    +++|*                60/GARBAGE        FOR REPEAT INDICATOR.
17540  M01S14133.dsdi    +++|*
17541  M01S14134.dsdi    +++|*         USES   X - 1, 2, 3, 5, 6, 7.
17542  M01S14135.dsdi    +++|*                A - 1, 2, 3, 5, 6, 7.
17543  M01S14136.dsdi    +++|*                B - 5, 7.
17544  M01S14137.dsdi    +++|*
17545  M01S14138.dsdi    +++|*         CALLS  CPS.
17546  M01S14139.dsdi    +++|*
17547  M01S14140.dsdi    +++|*         MACROS GETCM.
17548  M01S14141.dsdi    +++|
17549  M01S14142.dsdi    +++|
17550  M01S14143.dsdi    +++| FPB      SUBR
17551  M01S14144.dsdi    +++|          SA5    B2+6        SAVE INVERTED ADDRESS FLAG
17552  M01S14145.dsdi    +++|          BX6    X5
17553  M01S14146.dsdi    +++|          SA5    B2
17554  M01S14147.dsdi    +++|          SA6    FPBA
17555  M01S14148.dsdi    +++|          SX1    1
17556  M01S14149.dsdi    +++|          RJ     CPS         CHECK PAGE SPACE
17557  M01S14150.dsdi    +++|          SX7    -1          SET SKIP FLAG
17558  M01S14151.dsdi    +++|          SX3    6
17559  M01S14152.dsdi    +++|          IX3    X3*X6       PAGE BUFFER LENGTH = 6*LINES
17560  M01S14153.dsdi    +++|          SB5    BUF         SET BUFFER POINTER
17561  M01S14154.dsdi    +++|          SB7    B5+X3       SET LWA+1
17562  M01S14155.dsdi    +++|          SA7    FPBA+1
17563  M01S14156.dsdi    +++| FPB1     SA1    A5+2
17564  M01S14157.dsdi    +++|          ZR     X1,FPB2     IF DATA NOT IN CORE
17565  M01S14158.dsdi    +++|          SA2    X1          READ DATA WORD
17566  M01S14159.dsdi    +++|          SX6    X1+B1
17567  M01S14160.dsdi    +++|          SA6    A1          UPDATE CORE ADDRESS
17568  M01S14161.dsdi    +++|          BX6    X2          SET DATA WORD
17569  M01S14162.dsdi    +++|          EQ     FPB3        PROCESS WORD
17570  M01S14163.dsdi    +++|
17571  M01S14164.dsdi    +++| FPB2     GETCM              READ DATA FROM DUMP FILE
17572  M01S14165.dsdi    +++| FPB3     SA3    FPBA        CHECK IF INVERTED ADDRESS IS PRESENT
17573  M01S14166.dsdi    +++|          SA2    A5+6
17574  M01S14167.dsdi    +++|          SX1    B1+
17575  M01S14168.dsdi    +++|          ZR     X3,FPB3.1   IF INVERTED ADDRESS NOT PRESENT
17576  M01S14169.dsdi    +++|          IX7    X2-X1       UPDATE INVERTED ADDRESS
17577  M01S14170.dsdi    +++|          SA7    A2
17578  M01S14171.dsdi    +++| FPB3.1   SA2    A5          GET DUMP ADDRESS
17579  M01S14172.dsdi    +++|          IX7    X2+X1
17580  M01S14173.dsdi    +++|          SA7    A2
17581  M01S14174.dsdi    +++|          SA1    A2+3
17582  M01S14175.dsdi    +++|          SA3    FPBA+1
17583  M01S14176.dsdi    +++|          NZ     X1,FPB5     IF NO SUPPRESS REQUESTED
17584  M01S14177.dsdi    +++|          NG     X3,FPB5     IF FIRST TIME THROUGH LOOP
17585  M01S14178.dsdi    +++|          BX1    X6-X5       COMPARE WITH PREVIOUS WORD
17586  M01S14179.dsdi    +++|          ZR     X1,FPB4     IF DATA IS SAME OR LOGICAL OPPOSITE
17587  M01S14180.dsdi    +++|          EQ     FPB5        STORE NEW WORD
17588  M01S14181.dsdi    +++|
17589  M01S14182.dsdi    +++| FPB4     NG     X1,FPB5     IF DATA IS LOGICAL OPPOSITE
17590  M01S14183.dsdi    +++|          NZ     X3,FPB7     IF REPEAT ALREADY FLAGGED
17591  M01S14184.dsdi    +++|          MX6    1
17592  M01S14185.dsdi    +++|          SA6    B5          STORE REPEAT FLAG
17593  M01S14186.dsdi    +++|          SX6    B1          SET SKIPPING FLAG
17594  M01S14187.dsdi    +++|          SA6    A3
17595  M01S14188.dsdi    +++|          EQ     FPB6        CONTINUE
17596  M01S14189.dsdi    +++|
17597  M01S14190.dsdi    +++| FPB5     BX5    X6          SAVE WORD FOR NEXT COMPARE
17598  M01S14191.dsdi    +++|          SA6    B5+B1       STORE DATA WORD
17599  M01S14192.dsdi    +++|          SX2    B1
17600  M01S14193.dsdi    +++|          IX6    X7-X2
17601  M01S14194.dsdi    +++|          SA1    FPBA        GET INVERTED ADDRESS FLAG
17602  M01S14195.dsdi    +++|          SA6    B5
17603  M01S14196.dsdi    +++|          MX7    0           CLEAR SKIP FLAG
17604  M01S14197.dsdi    +++|          SA3    A5+6
17605  M01S14198.dsdi    +++|          SA7    FPBA+1
17606  M01S14199.dsdi    +++|          ZR     X1,FPB6     IF NO INVERTED ADDRESS
17607  M01S14200.dsdi    +++|          IX6    X3+X2
17608  M01S14201.dsdi    +++|          SA6    B5          STORE ADDRESS
17609  M01S14202.dsdi    +++| FPB6     SB5    B5+2        ADVANCE BUFFER ADDRESS
17610  M01S14203.dsdi    +++|          GE     B5,B7,FPB8  IF BUFFER FULL
17611  M01S14204.dsdi    +++| FPB7     SA1    A5+B1       LWA+1
17612  M01S14205.dsdi    +++|          SA2    A5          FWA
17613  M01S14206.dsdi    +++|          IX1    X2-X1
17614  M01S14207.dsdi    +++|          NG     X1,FPB1     IF MORE TO DUMP
17615  M01S14208.dsdi    +++| FPB8     SX1    B5-BUF      SET BUFFER LENGTH
17616  M01S14209.dsdi    +++|          EQ     FPBX        RETURN
17617  M01S14210.dsdi    +++|
17618  M01S14211.dsdi    +++| FPBA     BSS    1           INVERTED ADDRESS FLAG
17619  M01S14212.dsdi    +++|          BSS    1           SKIP FLAG
Line S14213 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17620  M02S14213.dsdi78  ---| FPL      SPACE  4,11
17621  M01S00026.dsdi78  +++| FPL      SPACE  4,15
17622  M01S14214.dsdi    +++|**        FPL - FORMAT PPU COMMUNICATION REGISTER WORD.
17623  M01S14215.dsdi    +++|*
Line S14216 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17624  M02S14216.dsdi78  ---|*         ENTRY  A5 = ADDRESS OF REGISTER WORD.
Line S14217 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17625  M02S14217.dsdi78  ---|*                X5 = REGISTER WORD.
Line S14218 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17626  M02S14218.dsdi78  ---|*                B2 = PPU NUMBER.
Line S14219 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17627  M02S14219.dsdi78  ---|*                B4 = LINE INDEX.
Line S14220 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17628  M02S14220.dsdi78  ---|*                B7 = PRINT STRING ADDRESS.
Line S14221 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17629  M02S14221.dsdi78  ---|*                (FPLB) = 0, IF NOT PROCESSING A CPP.
Line S14222 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17630  M02S14222.dsdi78  ---|*                       .NE. 0, IF PROCESSING A CPP.
Line S14223 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17631  M02S14223.dsdi78  ---|*
Line S14224 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17632  M02S14224.dsdi78  ---|*         USES   ALL REGISTERS.
Line S14225 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17633  M02S14225.dsdi78  ---|*
Line S14226 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17634  M02S14226.dsdi78  ---|*         CALLS  CTS,FAC,FDW,SDI,UPS.
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  M01S14227.dsdi    +++|
17648  M01S14228.dsdi    +++|
17649  M01S14229.dsdi    +++| FPL      SUBR
17650  M01S14230.dsdi    +++|          JP     FPLA+B4     PROCESS SELECTED LINE
17651  M01S14231.dsdi    +++|
17652  M01S14232.dsdi    +++| FPLA     BSS    0
17653  M01S14233.dsdi    +++|          LOC    0
17654  M01S14234.dsdi    +++|+         JP     FPL0
17655  M01S14235.dsdi    +++|+         JP     FPL3
17656  M01S14236.dsdi    +++|+         JP     FPL4
17657  M01S14237.dsdi    +++|+         JP     FPL5
17658  M01S14238.dsdi    +++|+         JP     FPL5
17659  M01S14239.dsdi    +++|+         JP     FPL5
17660  M01S14240.dsdi    +++|+         JP     FPL5
17661  M01S14241.dsdi    +++|+         JP     FPL5
17662  M01S14242.dsdi    +++|          LOC    *O
17663  M01S14243.dsdi    +++|
17664  M01S14244.dsdi    +++|*         PROCESS WORD 0.
17665  M01S14245.dsdi    +++|
Line S14246 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17666  M02S14246.dsdi78  ---| FPL0     SA2    FPLB
17667  M01S00039.dsdi78  +++| FPL0     SA2    IC
17668  M01S14247.dsdi    +++|          ZR     X2,FPL1     IF NOT PROCESSING A CPP
17669  M01S14248.dsdi    +++|          SX6    1RC
17670  M01S14249.dsdi    +++|          SA6    B7-1
17671  M01S14250.dsdi    +++| FPL1     SX6    1RP
17672  M01S14251.dsdi    +++|          SA6    B7          *PP* TO PRINT STRING
17673  M01S14252.dsdi    +++|          SA6    A6+B1
17674  M01S14253.dsdi    +++|          SB7    A6+1
17675  M01S14254.dsdi    +++|          SX1    B2
17676  M01S14255.dsdi    +++|          LX1    -6
17677  M01S14256.dsdi    +++|          SB6    2
17678  M01S14257.dsdi    +++|          RJ     CTS         CONVERT PPU NUMBER
17679  M01S14258.dsdi    +++|          SB7    B7+3        SPACE 3
17680  M01S14259.dsdi    +++|          BX2    X5
17681  M01S14260.dsdi    +++|          SB6    3
17682  M01S14261.dsdi    +++|          RJ     UPS         PROGRAM NAME TO PRINT STRING
17683  M01S14262.dsdi    +++|          SX6    1R
17684  M01S14263.dsdi    +++|          SA6    B7+
17685  M01S14264.dsdi    +++|          SB7    B7+3
17686  M01S14265.dsdi    +++| FPL2     BX1    X5          DATA WORD TO PRINT STRING
17687  M01S14266.dsdi    +++|          SA2    =4000005B
17688  M01S14267.dsdi    +++|          RJ     FDW         FORMAT DATA WORD
17689  M01S14268.dsdi    +++|          SB6    10          CHARACTER COUNT
17690  M01S14269.dsdi    +++|          BX2    X5          DATA WORD
17691  M01S14270.dsdi    +++|          SB7    B7+B1
17692  M01S14271.dsdi    +++|          RJ     SDI         SET DISPLAY CODE INTERPRETATION
17693  M01S14272.dsdi    +++|          JP     FPLX        EXIT
17694  M01S14273.dsdi    +++|
17695  M01S14274.dsdi    +++|*         PROCESS WORD 1.
17696  M01S14275.dsdi    +++|
17697  M01S14276.dsdi    +++| FPL3     SX6    1R          BLANK OUT PPU NUMBER
17698  M01S14277.dsdi    +++|          SA6    B7-1        CLEAR *C* FOR CPP-S
17699  M01S14278.dsdi    +++|          SA6    B7
17700  M01S14279.dsdi    +++|          SA6    A6+B1
17701  M01S14280.dsdi    +++|          SA6    A6+B1
17702  M01S14281.dsdi    +++|          SA6    A6+B1
17703  M01S14282.dsdi    +++|          SB7    A6+4
17704  M01S14283.dsdi    +++|          MX0    7
17705  M01S14284.dsdi    +++|          LX0    -5
17706  M01S14285.dsdi    +++|          BX1    X0*X5       EXTRACT MTR FUNCTION CODE
17707  M01S14286.dsdi    +++|          LX1    12
17708  M01S14287.dsdi    +++|          SX0    X1-MXFM-1
17709  M01S14288.dsdi    +++|          SB6    4
17710  M01S14289.dsdi    +++|          NG     X0,FPL3.1   IF FUNCTION WITHIN TABLE
17711  M01S14290.dsdi    +++|          SX1    MXFM        SET MAXIMUM FUNCTION CODE
17712  M01S14291.dsdi    +++| FPL3.1   SA2    TFTN+X1     READ CODE NAME FROM *COMDTFN*
17713  M01S14292.dsdi    +++|          RJ     UPS         MTR FUNCTION NAME TO PRINT STRING
17714  M01S14293.dsdi    +++|          SB7    B7+2
17715  M01S14294.dsdi    +++|          JP     FPL2        CONVERT DATA WORD
17716  M01S14295.dsdi    +++|
17717  M01S14296.dsdi    +++|*         PROCESS WORD 2.
17718  M01S14297.dsdi    +++|
17719  M01S14298.dsdi    +++| FPL4     SX6    1RC         *CL* TO PRINT STRING
17720  M01S14299.dsdi    +++|          SA6    B7+7
17721  M01S14300.dsdi    +++|          SX6    1RP
Line S14301 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17722  M02S14301.dsdi78  ---|          SA6    A6+B1
Line S14302 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17723  M02S14302.dsdi78  ---|          SB7    A6+B1
17724  M01S14303.dsdi    +++|          SA1    A5-2        READ WORD 0
17725  M01S14304.dsdi    +++|          MX0    -5
17726  M01S14305.dsdi    +++|          LX1    24
17727  M01S14306.dsdi    +++|          BX1    -X0*X1      CONTROL POINT NUMBER
17728  M01S00040.dsdi78  +++| FPL4.1   SA6    A6+B1
17729  M01S00041.dsdi78  +++|          SB7    A6+B1
17730  M01S14307.dsdi    +++|          LX1    -6
17731  M01S14308.dsdi    +++|          SB6    2
17732  M01S14309.dsdi    +++|          RJ     CTS         CONVERT CONTROL POINT NUMBER ASSIGNMENT
17733  M01S14310.dsdi    +++|          SB7    B7+2
17734  M01S14311.dsdi    +++|          JP     FPL2        CONVERT DATA WORD
17735  M01S14312.dsdi    +++|
17736  M01S14313.dsdi    +++|*         PROCESS WORDS 3 - 7.
17737  M01S14314.dsdi    +++|
17738  M01S14315.dsdi    +++| FPL5     RJ     FAC         FIND ASSIGNED CHANNEL
17739  M01S14316.dsdi    +++|          NG     X1,FPL6     IF NO MORE CHANNELS ASSIGNED
17740  M01S14317.dsdi    +++|          SX6    1RC         *CH* TO PRINT STRING
17741  M01S14318.dsdi    +++|          SX3    X1-40B
17742  M01S14319.dsdi    +++|          NG     X3,FPL5.1   IF NOT PROCESSING A *CCH*
17743  M01S14320.dsdi    +++|          SA6    B7+6
17744  M01S14321.dsdi    +++| FPL5.1   SA6    B7+7
17745  M01S14322.dsdi    +++|          SX6    1RH
Line S14323 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17746  M02S14323.dsdi78  ---|          SA6    A6+1
Line S14324 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17747  M02S14324.dsdi78  ---|          SB7    A6+B1
Line S14325 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17748  M02S14325.dsdi78  ---|          LX1    -6
Line S14326 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17749  M02S14326.dsdi78  ---|          SB6    2
Line S14327 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17750  M02S14327.dsdi78  ---|          RJ     CTS         CHANNEL NUMBER TO PRINT STRING
Line S14328 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17751  M02S14328.dsdi78  ---|          SB7    B7+2
Line S14329 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17752  M02S14329.dsdi78  ---|          JP     FPL2        CONVERT DATA WORD
17753  M01S00042.dsdi78  +++|          JP     FPL4.1      CONVERT DATA WORD
17754  M01S14330.dsdi    +++|
17755  M01S14331.dsdi    +++| FPL6     SX6    1R
17756  M01S14332.dsdi    +++|          SA6    B7+6
Line S14333 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17757  M02S14333.dsdi78  ---|          SA6    B7+7
Line S14334 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17758  M02S14334.dsdi78  ---|          SA6    A6+1
17759  M01S00043.dsdi78  +++|          SA6    A6+B1
17760  M01S00044.dsdi78  +++|          SA6    A6+B1
17761  M01S14335.dsdi    +++|          SA6    A6+B1
17762  M01S14336.dsdi    +++|          SA6    A6+B1
17763  M01S14337.dsdi    +++|          SB7    A6+3
17764  M01S14338.dsdi    +++|          JP     FPL2        CONVERT DATA WORD
Line S14339 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17765  M02S14339.dsdi78  ---|
Line S14340 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
17766  M02S14340.dsdi78  ---| FPLB     CON    0           PROCESSING *CPP* FLAG
Line S00140 Modification History
M01 (Added by) ns2647
M02 (Updated by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17767  M02S00140.ns2647a ---| FPO      SPACE  4,10
17768  M01S00026.ns2647a +++| FPO      SPACE  4,15
17769  M01S00141.ns2647  +++|**        FPO - FORMAT PP OPERATING REGISTERS LINE.
17770  M01S00142.ns2647  +++|*
17771  M01S00143.ns2647  +++|*         ENTRY  (X5) = LINE NUMBER.
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.
17776  M01S00144.ns2647  +++|*
17777  M01S00145.ns2647  +++|*         USES   X - 1, 2, 6.
Line S00146 Modification History
M01 (Added by) ns2647
M02 (Updated by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17778  M02S00146.ns2647a ---|*                A - 1, 2.
17779  M01S00031.ns2647a +++|*                A - 1, 2, 6.
17780  M01S00147.ns2647  +++|*                B - 6, 7.
17781  M01S00148.ns2647  +++|*
Line S00149 Modification History
M01 (Added by) ns2647
M02 (Updated by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17782  M02S00149.ns2647a ---|*         CALLS  CTS, UPS.
17783  M01S00032.ns2647a +++|*         CALLS  CTS, HTS, UPS.
17784  M01S00150.ns2647  +++|
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
Proceed to Part 14
cdc/nos2.source/opl.opl871/deck/dsdi.013.txt ยท Last modified: by 127.0.0.1