Deck DSDI Part 007

70 Modifications

Seq #  *Modification Id* Act 
----------------------------+
10149  M02S00186.ns2711  ---|          SXREG  ECCR,,,I4A+I4S
10150  M02S00187.ns2711  ---|          SXREG  SRCR,,,I4A+I4S
10151  M02S00188.ns2711  ---|          SXREG  F1CR,,,I4A+I4S
10152  M02S00189.ns2711  ---|          SXREG  F2CR,,,I4A+I4S
10153  M02S00190.ns2711  ---|          SXREG  TMCR,,,I4A+I4S
10154  M02S00191.ns2711  ---|          SXREG  FMCR,,,I4A+I4S
10155  M02S00192.ns2711  ---|          SXREG  OBCR,,,I4A+I4S

Seq #  *Modification Id* Act 
----------------------------+
10156  M01S00017.ns2711  +++|          SXREG  OICR,,,I4A
10157  M01S00018.ns2711  +++|          SXREG  ECCR,,,I4A
10158  M01S00019.ns2711  +++|          SXREG  SRCR,,,I4A
10159  M01S00020.ns2711  +++|          SXREG  F1CR,,,I4A
10160  M01S00021.ns2711  +++|          SXREG  F2CR,,,I4A
10161  M01S00022.ns2711  +++|          SXREG  TMCR,,,I4A
10162  M01S00023.ns2711  +++|          SXREG  FMCR,,,I4A
10163  M01S00024.ns2711  +++|          SXREG  OBCR,,,I4A

Seq #  *Modification Id* Act 
----------------------------+
10164  M01S00193.271l739 +++|          SXREG  C0CR,,,I4A+I4S
10165  M01S00194.271l739 +++|          SXREG  C1CR,,,I4A+I4S
10166  M01S00195.271l739 +++|          SXREG  C2CR,,,I4A+I4S
10167  M01S00196.271l739 +++|          SXREG  C3CR,,,I4A+I4S

Seq #  *Modification Id* Act 
----------------------------+
10168  M02S00197.ns2711  ---|          SXREG  C4CR,,,I4A+I4S
10169  M02S00198.ns2711  ---|          SXREG  C5CR,,,I4A+I4S
10170  M02S00199.ns2711  ---|          SXREG  C6CR,,,I4A+I4S
10171  M02S00200.ns2711  ---|          SXREG  C7CR,,,I4A+I4S
10172  M02S00201.ns2711  ---|          SXREG  C8CR,,,I4A+I4S
10173  M02S00202.ns2711  ---|          SXREG  C9CR,,,I4A+I4S

Seq #  *Modification Id* Act 
----------------------------+
10174  M01S00025.ns2711  +++|          SXREG  C4CR,,,I4A
10175  M01S00026.ns2711  +++|          SXREG  C5CR,,,I4A
10176  M01S00027.ns2711  +++|          SXREG  C6CR,,,I4A
10177  M01S00028.ns2711  +++|          SXREG  C7CR,,,I4A
10178  M01S00029.ns2711  +++|          SXREG  C8CR,,,I4A
10179  M01S00030.ns2711  +++|          SXREG  C9CR,,,I4A
10180  M00S08332.dsdi    +++|          CON    0
10181  M00S08333.dsdi    +++|
10182  M00S08334.dsdi    +++| MMRL     BSS    0           MEMORY MAINTENANCE REGISTER LIST
10183  M00S08335.dsdi    +++|          SXREG  EIMR
10184  M00S08336.dsdi    +++|          SXREG  SSMR
10185  M00S08337.dsdi    +++|          SXREG  OIMR
10186  M00S08338.dsdi    +++|          SXREG  ECMR
10187  M00S08339.dsdi    +++|          SXREG  MCEL
10188  M00S08340.dsdi    +++|          SXREG  MCEL+1,,,THETA
10189  M00S08341.dsdi    +++|          SXREG  MCEL+2,,,THETA
10190  M00S08342.dsdi    +++|          SXREG  MCEL+3,,,THETA
10191  M00S08343.dsdi    +++|          SXREG  MUL1
10192  M00S08344.dsdi    +++|          SXREG  MUL1+1,,,THETA
10193  M00S08345.dsdi    +++|          SXREG  MUL1+2,,,THETA
10194  M00S08346.dsdi    +++|          SXREG  MUL1+3,,,THETA
10195  M00S08347.dsdi    +++|          SXREG  MUL2,,,S1+S2+S3
10196  M00S08348.dsdi    +++|          SXREG  MBRG
10197  M00S08349.dsdi    +++|          CON    0
10198  M00S08350.dsdi    +++|
10199  M00S08351.dsdi    +++| PMRL     BSS    0           PROCESSOR MAINTENANCE REGISTER LIST
10200  M00S08352.dsdi    +++|          SXREG  EIMR
10201  M00S08353.dsdi    +++|          SXREG  SSMR
10202  M00S08354.dsdi    +++|          SXREG  OIMR
10203  M00S08355.dsdi    +++|          SXREG  DEMR
10204  M00S08356.dsdi    +++|          SXREG  PMCL,,,S1
10205  M00S08357.dsdi    +++|          SXREG  PCCL,,,S2
10206  M00S08358.dsdi    +++|          SXREG  PRCL,,,S1+S2
10207  M00S08359.dsdi    +++|          SXREG  PUCS,,,S1
10208  M00S08360.dsdi    +++|          SXREG  PPFS
10209  M00S08361.dsdi    +++|          SXREG  PPFS+1
10210  M00S08362.dsdi    +++|          SXREG  PPFS+2,,,S3+THETA
10211  M00S08363.dsdi    +++|          SXREG  PPFS+3,,,S3+THETA
10212  M00S08364.dsdi    +++|          SXREG  PPFS+4,,,S3+THETA
10213  M00S08365.dsdi    +++|          SXREG  PPFS+5,,,S3+THETA
10214  M00S08366.dsdi    +++|          SXREG  PPFS+6,,,S3+THETA
10215  M00S08367.dsdi    +++|          SXREG  PPFS+7,,,S3+THETA
10216  M00S08368.dsdi    +++|          SXREG  PPFS+8,,,S3+THETA
10217  M00S08369.dsdi    +++|          SXREG  PPFS+9,,,S3+THETA
10218  M00S08370.dsdi    +++|          SXREG  PPFS+10,,,THETA
10219  M00S08371.dsdi    +++|          SXREG  PPFS+11,,,THETA
10220  M00S08372.dsdi    +++|          SXREG  PPFS+12,,,THETA
10221  M00S08373.dsdi    +++|          SXREG  PPFS+13,,,THETA
10222  M00S08374.dsdi    +++|          SXREG  PPFS+14,,,THETA
10223  M00S08375.dsdi    +++|          SXREG  PPFS+15,,,THETA
10224  M00S08376.dsdi    +++| MRET     SPACE  4,10
10225  M00S08377.dsdi    +++|**        MRET - MAINTENANCE REGISTER ERROR ELEMENTS TABLE.
10226  M00S08378.dsdi    +++|*

Seq #  *Modification Id* Act 
----------------------------+
10227  M01S08379.271l739 ---|*T,MRET   18/ RID, 18/ RL, 12/ MSGID, 12/ SYM

Figure MRET

10228  M01S08380.271l739 ---|*
10229  M01S08381.271l739 ---|*         RID = RECORD ID.
10230  M01S08382.271l739 ---|*         RL = LIST OF REGISTERS TO PROCESS.

Seq #  *Modification Id* Act 
----------------------------+
10231  M01S00203.271l739 +++|*T,MRET   12/ MSGID, 12/ SYM, 18/ RL, 18/ RID

Figure MRET

10232  M01S00204.271l739 +++|*
10233  M00S08383.dsdi    +++|*         MSGID = MESSAGE IDENTIFIER.
10234  M00S08384.dsdi    +++|*         SYM = SYMPTOM CODE.

Seq #  *Modification Id* Act 
----------------------------+
10235  M01S00205.271l739 +++|*         RL = LIST OF REGISTERS TO PROCESS.
10236  M01S00206.271l739 +++|*         RID = ADDRESS OF RECORD ID WORD.
10237  M00S08385.dsdi    +++|
10238  M00S08386.dsdi    +++|
10239  M00S08387.dsdi    +++| MRET     BSS    0           MAINTENANCE REGISTER ERROR ELEMENTS TABLE

Seq #  *Modification Id* Act 
----------------------------+
10240  M01S08388.271l739 ---|          VFD    18/3LPMR,18/PMRL-1,12/HM0250,12/HS1002
10241  M01S08389.271l739 ---|          VFD    18/3LMMR,18/MMRL-1,12/HM0250,12/HS0402
10242  M01S08390.271l739 ---|          VFD    18/3LIMR,18/IMRL-1,12/HM0250,12/HS0002

Seq #  *Modification Id* Act 
----------------------------+
10243  M01S00207.271l739 +++|          VFD    12/HM0250,12/HS1002,18/PMRL-1,18/.PMR
10244  M01S00208.271l739 +++|          VFD    12/HM0250,12/HS0402,18/MMRL-1,18/.MMR
10245  M01S00209.271l739 +++|          VFD    12/HM0250,12/HS0002,18/IMRL-1,18/.IMR
10246  M00S08391.dsdi    +++|          CON    0           END OF ELEMENT LIST
10247  M00S08392.dsdi    +++| DRA      SPACE  4,10
10248  M00S08393.dsdi    +++|**        DRA - DERIVE R-FORMAT ADDRESS.
10249  M00S08394.dsdi    +++|*
10250  M00S08395.dsdi    +++|*         ENTRY  (X3) = R-FORMAT ADDRESS.
10251  M00S08396.dsdi    +++|*
10252  M00S08397.dsdi    +++|*         EXIT   (X6) = UNFORMATTED ADDRESS.
10253  M00S08398.dsdi    +++|*                (X7) = LENGTH OF BUFFER.
10254  M00S08399.dsdi    +++|*
10255  M00S08400.dsdi    +++|*         USES   X - 0, 2, 3, 6, 7.
10256  M00S08401.dsdi    +++|
10257  M00S08402.dsdi    +++|
10258  M00S08403.dsdi    +++| DRA      SUBR               ENTRY/EXIT
10259  M00S08404.dsdi    +++|          MX0    -12
10260  M00S08405.dsdi    +++|          BX7    -X0*X3      LENGTH OF BUFFER
10261  M00S08406.dsdi    +++|          AX3    16
10262  M00S08407.dsdi    +++|          BX2    -X0*X3      R-LOWER
10263  M00S08408.dsdi    +++|          AX3    16
10264  M00S08409.dsdi    +++|          BX6    -X0*X3      R-UPPER
10265  M00S08410.dsdi    +++|          LX6    12
10266  M00S08411.dsdi    +++|          BX6    X2+X6
10267  M00S08412.dsdi    +++|          AX3    16
10268  M00S08413.dsdi    +++|          BX2    -X0*X3      OFFSET
10269  M00S08414.dsdi    +++|          LX6    6
10270  M00S08415.dsdi    +++|          BX6    X2+X6
10271  M00S08416.dsdi    +++|          EQ     DRAX        RETURN
10272  M00S08417.dsdi    +++| FOM      SPACE  4,10
10273  M00S08418.dsdi    +++|**        FOM - FIND OLDEST M/R ENTRY.
10274  M00S08419.dsdi    +++|*
10275  M00S08420.dsdi    +++|*         ENTRY  (CBFI) = ADDRESS OF M/R CONTROL WORD.
10276  M00S08421.dsdi    +++|*                (CBFH) = NUMBER OF M/R ENTRIES.
10277  M00S08422.dsdi    +++|*
10278  M00S08423.dsdi    +++|*         EXIT   (B3) = OFFSET OF OLDEST M/R ENTRY.
10279  M00S08424.dsdi    +++|*                (X7) = DFT ANALYSIS CODE.

Seq #  *Modification Id* Act 
----------------------------+
10280  M01S00075.dsdi60  +++|*                (PBLD) .NE. 0 IF MDB DATA PRESENT.
10281  M00S08425.dsdi    +++|*
10282  M00S08426.dsdi    +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
10283  M01S08427.dsdi60  ---|*                A - 2, 3, 5.
10284  M01S08428.dsdi60  ---|*                B - 2, 3, 4, 5.

Seq #  *Modification Id* Act 
----------------------------+
10285  M01S00076.dsdi60  +++|*                A - 1, 2, 3, 7.
10286  M01S00077.dsdi60  +++|*                B - 2, 3.
10287  M00S08429.dsdi    +++|
10288  M00S08430.dsdi    +++|
10289  M00S08431.dsdi    +++| FOM      SUBR               ENTRY/EXIT
10290  M00S08432.dsdi    +++|          SB3    B0          OFFSET OF OLDEST ENTRY
10291  M00S08433.dsdi    +++|          BX4    X4-X4       OLDEST SEQUENCE NUMBER
10292  M00S08434.dsdi    +++|          SA1    CBFH
10293  M00S08435.dsdi    +++|          SA2    CBFI        ADDRESS OF FIRST M/R CONTROL WORD
10294  M00S08436.dsdi    +++|          SB2    X1+         NUMBER OF ENTRIES TO CHECK
10295  M00S08437.dsdi    +++| FOM1     SB2    B2-B1       DECREMENT COUNTER FOR M/R ENTRIES
10296  M00S08438.dsdi    +++|          ZR     B2,FOMX     IF ALL ENTRIES PROCESSED
10297  M00S08439.dsdi    +++|          SA3    X2+B2       GET NEXT M/R CONTROL WORD
10298  M00S08440.dsdi    +++|          MX0    -8
10299  M00S08441.dsdi    +++|          LX3    0-16
10300  M00S08442.dsdi    +++|          BX0    -X0*X3      GET M/R FLAGS
10301  M00S08443.dsdi    +++|          LX0    59-/DFT/MRLG
10302  M00S08444.dsdi    +++|          PL     X0,FOM1     IF NO DATA TO LOG
10303  M00S08445.dsdi    +++|          LX0    59-/DFT/MRIL-59+/DFT/MRLG
10304  M00S08446.dsdi    +++|          NG     X0,FOM1     IF ENTRY INTERLOCKED
10305  M00S08447.dsdi    +++|          LX3    0-32-0+16
10306  M00S08448.dsdi    +++|          MX0    -12         GET DFT ANALYSIS CODE
10307  M00S08449.dsdi    +++|          BX1    -X0*X3
10308  M00S08450.dsdi    +++|          SX0    X1-3400B
10309  M00S08451.dsdi    +++|          PL     X0,FOM1     IF TO IGNORE THIS ENTRY
10310  M00S08452.dsdi    +++|          MX0    -8          GET SEQUENCE NUMBER
10311  M00S08453.dsdi    +++|          LX3    0-24-0+32
10312  M00S08454.dsdi    +++|          BX6    -X0*X3
10313  M00S08455.dsdi    +++|          ZR     B3,FOM3     IF NO ENTRY SELECTED YET
10314  M00S08456.dsdi    +++|          IX0    X4-X6       COMPARE OLDEST WITH CURRENT
10315  M00S08457.dsdi    +++|          PL     X0,FOM2     IF LOWER THAN PREVIOUS OLDEST
10316  M00S08458.dsdi    +++|          SX0    X0+40B
10317  M00S08459.dsdi    +++|          NG     X0,FOM3     IF WRAP AROUND
10318  M00S08460.dsdi    +++|          EQ     FOM1        PROCESS NEXT ENTRY
10319  M00S08461.dsdi    +++|
10320  M00S08462.dsdi    +++| FOM2     SX0    X0-40B
10321  M00S08463.dsdi    +++|          PL     X0,FOM1     IF NOT EARLIER ENTRY

Seq #  *Modification Id* Act 
----------------------------+
10322  M01S08464.dsdi60  ---| FOM3     SB3    B2+         UPDATE OLDEST ENTRY OFFSET

Seq #  *Modification Id* Act 
----------------------------+
10323  M01S00078.dsdi60  +++| FOM3     SB3    B2          UPDATE OLDEST ENTRY OFFSET
10324  M01S00079.dsdi60  +++|          LX3    0-22-0+24   GET MDB FLAG
10325  M00S08465.dsdi    +++|          BX4    X6          SEQUENCE NUMBER
10326  M00S08466.dsdi    +++|          BX7    X1          SAVE DFT ANALYSIS CODE

Seq #  *Modification Id* Act 
----------------------------+
10327  M01S00080.dsdi60  +++|          SA7    FOMA
10328  M01S00081.dsdi60  +++|          MX0    -1

Seq #  *Modification Id* Act 
----------------------------+
10329  M01S08467.dsdi60  ---|          SA7    FOMA

Seq #  *Modification Id* Act 
----------------------------+
10330  M01S00082.dsdi60  +++|          BX7    -X0*X3
10331  M01S00083.dsdi60  +++|          SA7    PBLD
10332  M00S08468.dsdi    +++|          EQ     FOM1        PROCESS NEXT ENTRY
10333  M00S08469.dsdi    +++|
10334  M00S08470.dsdi    +++|
10335  M00S08471.dsdi    +++| FOMA     CON    0           DFT ANALYSIS CODE
10336  M00S08472.dsdi    +++| GMR      SPACE  4,15
10337  M00S08473.dsdi    +++|**        GMR - GET MAINTENANCE REGISTER.
10338  M00S08474.dsdi    +++|*
10339  M00S08475.dsdi    +++|*         ENTRY  (X5) = REGISTER NUMBER.
10340  M00S08476.dsdi    +++|*
10341  M00S08477.dsdi    +++|*         EXIT   (X1) = REGISTER NUMBER IF FOUND.
10342  M00S08478.dsdi    +++|*                       .LT. 0 IF REGISTER NOT FOUND.
10343  M00S08479.dsdi    +++|*                (X6) = LOWER 4 BITS OF REGISTER (BITS 60-63).
10344  M00S08480.dsdi    +++|*                (X7) = UPPER 60 BITS OF REGISTER (BITS 0-59).
10345  M00S08481.dsdi    +++|*
10346  M00S08482.dsdi    +++|*         USES   X - 2, 3, 6, 7.
10347  M00S08483.dsdi    +++|*                A - 6.
10348  M00S08484.dsdi    +++|*
10349  M00S08485.dsdi    +++|*         CALLS  SFR.
10350  M00S08486.dsdi    +++|
10351  M00S08487.dsdi    +++|
10352  M00S08488.dsdi    +++| GMR      SUBR               ENTRY/EXIT
10353  M00S08489.dsdi    +++|          RJ     SFR
10354  M00S08490.dsdi    +++|          BX2    X6          REPOSITION BITS
10355  M00S08491.dsdi    +++|          MX3    -4
10356  M00S08492.dsdi    +++|          BX6    -X3*X7      (X6) = BITS 60-63
10357  M00S08493.dsdi    +++|          BX7    X3*X7       CLEAR LOWER BITS
10358  M00S08494.dsdi    +++|          BX7    X2+X7       ADD UPPER BITS
10359  M00S08495.dsdi    +++|          LX7    -4          (X7) = BITS 0-59
10360  M00S08496.dsdi    +++|          EQ     GMRX        RETURN
10361  M00S08497.dsdi    +++| LMB      SPACE  4,15
10362  M00S08498.dsdi    +++|**        LMB - LOCATE M/R BUFFER.
10363  M00S08499.dsdi    +++|*
10364  M00S08500.dsdi    +++|*         ENTRY  (B3) = OFFSET OF M/R CONTROL WORD.
10365  M00S08501.dsdi    +++|*                (FOMA) = DFT ANALYSIS CODE.
10366  M00S08502.dsdi    +++|*                (CBFI) = FIRST M/R CONTROL WORD ADDRESS.
10367  M00S08503.dsdi    +++|*                (CBFL) = FWA OF M/R BUFFERS.
10368  M00S08504.dsdi    +++|*
10369  M00S08505.dsdi    +++|*         EXIT   POSITIONED TO CORRECT BYTE FOR ROUTINE *NXB*.
10370  M00S08506.dsdi    +++|*                M/R BUFFER CONTROL WORD CLEARED.
10371  M00S08507.dsdi    +++|*
10372  M00S08508.dsdi    +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
10373  M00S08509.dsdi    +++|*                A - 1, 2, 3, 4, 6, 7.
10374  M00S08510.dsdi    +++|*
10375  M00S08511.dsdi    +++|*         CALLS  FBP, SCM.
10376  M00S08512.dsdi    +++|
10377  M00S08513.dsdi    +++|
10378  M00S08514.dsdi    +++| LMB      SUBR               ENTRY /EXIT
10379  M00S08515.dsdi    +++|          SA1    BFMB+3      SET ANALYSIS CODE INTO BML
10380  M00S08516.dsdi    +++|          MX0    48
10381  M00S08517.dsdi    +++|          LX0    36-0
10382  M00S08518.dsdi    +++|          BX1    X0*X1       CLEAR OLD SYMPTOM CODE
10383  M00S08519.dsdi    +++|          SA2    FOMA        DFT ANALYSIS CODE
10384  M00S08520.dsdi    +++|          LX2    36-0
10385  M00S08521.dsdi    +++|          BX7    X1+X2
10386  M00S08522.dsdi    +++|          SA7    A1
10387  M00S08523.dsdi    +++|          SA3    CBFI        GET OFFSET TO M/R BUFFER
10388  M00S08524.dsdi    +++|          SA4    X3+B3       M/R BUFFER CONTROL WORD
10389  M00S08525.dsdi    +++|          MX0    -16
10390  M00S08526.dsdi    +++|          BX3    -X0*X4      OFFSET INTO M/R BUFFERS
10391  M00S08527.dsdi    +++|          BX6    X6-X6       CLEAR M/R CONTROL WORD
10392  M00S08528.dsdi    +++|          SA6    A4
10393  M00S08529.dsdi    +++|          SA2    CBFL        FWA OF M/R BUFFERS
10394  M00S08530.dsdi    +++|          IX3    X2+X3       LOCATION OF M/R BUFFER
10395  M00S08531.dsdi    +++|          LX3    2           BYTE POSITION OF M/R BUFFER
10396  M00S08532.dsdi    +++|          RJ     SCM         SET CENTRAL MEMORY
10397  M00S08533.dsdi    +++|          SA7    RI
10398  M00S08534.dsdi    +++|          RJ     FBP         FIND BYTE POSITION
10399  M00S08535.dsdi    +++|          EQ     LMBX        RETURN
10400  M00S08536.dsdi    +++| PBH      SPACE  4,10
10401  M00S08537.dsdi    +++|**        PBH - PROCESS BML HEADER.
10402  M00S08538.dsdi    +++|*

Seq #  *Modification Id* Act 
----------------------------+
10403  M01S08539.dsdi60  ---|*         EXIT   (B5) = NUMBER OF REGISTERS TO PROCESS.

Seq #  *Modification Id* Act 
----------------------------+
10404  M01S00084.dsdi60  +++|*         EXIT   (B7) = NUMBER OF REGISTERS TO PROCESS.
10405  M00S08540.dsdi    +++|*                (CBFF) = BML REGISTER NUMBERS ENTERED.
10406  M00S08541.dsdi    +++|*

Seq #  *Modification Id* Act 
----------------------------+
10407  M01S08542.dsdi60  ---|*         USES   X - 1, 6.
10408  M01S08543.dsdi60  ---|*                A - 2, 3, 6.
10409  M01S08544.dsdi60  ---|*                B - 4, 5.
10410  M01S08545.dsdi60  ---|*
10411  M01S08546.dsdi60  ---|*         CALLS  NXB, RET, SAV.

Seq #  *Modification Id* Act 
----------------------------+
10412  M01S00085.dsdi60  +++|*         USES   X - 1, 3, 6.
10413  M01S00086.dsdi60  +++|*                A - 3, 6.
10414  M01S00087.dsdi60  +++|*                B - 6, 7.
10415  M01S00088.dsdi60  +++|*
10416  M01S00089.dsdi60  +++|*         CALLS  NXB.
10417  M00S08547.dsdi    +++|
10418  M00S08548.dsdi    +++|
10419  M00S08549.dsdi    +++| PBH      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
10420  M01S08550.dsdi60  ---|          SB4    48          SHIFT COUNT
10421  M01S08551.dsdi60  ---|          SB5    B0+         INITIALIZE REGISTER COUNT
10422  M01S08552.dsdi60  ---| PBH1     RJ     SAV         SAVE REGISTERS
10423  M01S08553.dsdi60  ---|          RJ     NXB         READ NEXT BYTE
10424  M01S08554.dsdi60  ---|          RJ     RET         RESTORE REGISTERS

Seq #  *Modification Id* Act 
----------------------------+
10425  M01S00090.dsdi60  +++|          SB6    48          SHIFT COUNT
10426  M01S00091.dsdi60  +++|          SB7    B0+         INITIALIZE REGISTER COUNT
10427  M01S00092.dsdi60  +++| PBH1     RJ     NXB         READ NEXT BYTE
10428  M00S08555.dsdi    +++|          NZ     X1,PBH2     IF REGISTER PRESENT

Seq #  *Modification Id* Act 
----------------------------+
10429  M01S08556.dsdi60  ---|          SA2    PBHA        CHECK SUMMARY STATUS FLAG
10430  M01S08557.dsdi60  ---|          NZ     X2,PBHX     IF END OF REGISTERS
10431  M01S08558.dsdi60  ---|          MX6    1           SET SUMMARY STATUS FLAG
10432  M01S08559.dsdi60  ---|          SA6    A2
10433  M01S08560.dsdi60  ---| PBH2     LX1    B4          SHIFT REGISTER NUMBER TO PROPER LOCATION

Seq #  *Modification Id* Act 
----------------------------+
10434  M01S00093.dsdi60  +++|          SA3    PBHA
10435  M01S00094.dsdi60  +++|          NZ     X3,PBH3     IF NOT STATUS SUMMARY
10436  M01S00095.dsdi60  +++|          MX6    1           SET STATUS SUMMARY FLAG
10437  M01S00096.dsdi60  +++|          SA6    A3
10438  M01S00097.dsdi60  +++| PBH2     LX1    B6          SHIFT REGISTER NUMBER TO PROPER LOCATION
10439  M00S08561.dsdi    +++|          SA3    CBFF        UPDATE BML REGISTER WORD
10440  M00S08562.dsdi    +++|          BX6    X3+X1
10441  M00S08563.dsdi    +++|          SA6    A3

Seq #  *Modification Id* Act 
----------------------------+
10442  M01S08564.dsdi60  ---|          SB4    B4-12       UPDATE SHIFT COUNT
10443  M01S08565.dsdi60  ---|          SB5    B5+B1       INCREMENT REGISTER COUNT
10444  M01S08566.dsdi60  ---|          NZ     B4,PBH1     IF NOT COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
10445  M01S00098.dsdi60  +++|          SB7    B7+B1       INCREMENT REGISTER COUNT
10446  M01S00099.dsdi60  +++| PBH3     SB6    B6-12       UPDATE SHIFT COUNT
10447  M01S00100.dsdi60  +++|          NZ     B6,PBH1     IF NOT COMPLETE
10448  M00S08567.dsdi    +++|          EQ     PBHX        RETURN
10449  M00S08568.dsdi    +++|
10450  M00S08569.dsdi    +++|
10451  M00S08570.dsdi    +++| PBHA     CON    0           SUMMARY STATUS FLAG
10452  M00S08571.dsdi    +++| PBL      SPACE  4,15
10453  M00S08572.dsdi    +++|**        PBL - PROCESS BML.
10454  M00S08573.dsdi    +++|*
10455  M00S08574.dsdi    +++|*         ENTRY  (CBFJ) = REGISTERS LEFT TO PROCESS.
10456  M00S08575.dsdi    +++|*                (FOMA) = DFT ANALYSIS CODE.
10457  M00S08576.dsdi    +++|*
10458  M00S08577.dsdi    +++|*         EXIT   BML FILE WRITTEN.
10459  M00S08578.dsdi    +++|*

Seq #  *Modification Id* Act 
----------------------------+
10460  M01S08579.dsdi60  ---|*         USES   X - 0, 6, 7.
10461  M01S08580.dsdi60  ---|*                A - 1, 2, 7.
10462  M01S08581.dsdi60  ---|*                B - 2, 4, 5.

Seq #  *Modification Id* Act 
----------------------------+
10463  M01S00101.dsdi60  +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
10464  M01S00102.dsdi60  +++|*                A - 1, 2, 3, 6, 7.
10465  M01S00103.dsdi60  +++|*                B - 6, 7.
10466  M00S08582.dsdi    +++|*

Seq #  *Modification Id* Act 
----------------------------+
10467  M01S08583.dsdi60  ---|*         CALLS  PBH, PBR, RET, SAV, SMR, TBM.

Seq #  *Modification Id* Act 
----------------------------+
10468  M01S00104.dsdi60  +++|*         CALLS  DRA, FBP, NXB, PBH, PBR, SMR, SMS.
10469  M00S08584.dsdi    +++|
10470  M00S08585.dsdi    +++|

Seq #  *Modification Id* Act 
----------------------------+
10471  M01S08586.dsdi60  ---| PBL9     RJ     TBM         TERMINATE BML MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
10472  M01S00105.dsdi60  +++|*         PROCESS SSB DATA.
10473  M01S00106.dsdi60  +++|
10474  M01S00107.dsdi60  +++| PBL7     SA1    CBFO
10475  M01S00108.dsdi60  +++|          SX1    X1-4
10476  M01S00109.dsdi60  +++|          NG     X1,PBLX     IF NOT DFT VERSION 4 OR ABOVE
10477  M01S00110.dsdi60  +++|          SX1    B1          SET BIT 54 IN SECOND WORD OF BML MESSAGE
10478  M01S00111.dsdi60  +++|          LX1    54-0
10479  M01S00112.dsdi60  +++|          SA2    BFMB+4
10480  M01S00113.dsdi60  +++|          BX7    X1+X2
10481  M01S00114.dsdi60  +++|          SA7    A2
10482  M01S00115.dsdi60  +++|          SA1    CBFN        SSB FWA
10483  M01S00116.dsdi60  +++|          SA2    F.TCMT
10484  M01S00117.dsdi60  +++|          IX2    X1+X2
10485  M01S00118.dsdi60  +++|          SA2    X2
10486  M01S00119.dsdi60  +++|          MX0    -16
10487  M01S00120.dsdi60  +++|          BX6    -X0*X2      BUFFER LENGTH
10488  M01S00121.dsdi60  +++|          SX1    X1+B1       FWA OF BUFFER DATA
10489  M01S00122.dsdi60  +++|          SA3    PBLB        MRB/SSB ORDINAL
10490  M01S00123.dsdi60  +++|          IX2    X3*X6       OFFSET INTO BUFFER
10491  M01S00124.dsdi60  +++|          IX3    X2+X1       FWA OF BLOCK
10492  M01S00125.dsdi60  +++|          LX3    2           CONVERT TO BYTE NUMBER
10493  M01S00126.dsdi60  +++|          RJ     FBP         POSITION TO HEADER WORD
10494  M01S00127.dsdi60  +++|          RJ     NXB
10495  M01S00128.dsdi60  +++|          RJ     NXB
10496  M01S00129.dsdi60  +++|          SB7    X1          NUMBER OF REGISTERS TO PROCESS
10497  M01S00130.dsdi60  +++|          RJ     NXB
10498  M01S00131.dsdi60  +++|          SA2    PBLD
10499  M01S00132.dsdi60  +++|          BX6    X6-X6
10500  M01S00133.dsdi60  +++|          MX0    -8
10501  M01S00134.dsdi60  +++|          ZR     X2,PBL8     IF NO MODEL DEPENDENT DATA
10502  M01S00135.dsdi60  +++|          BX2    -X0*X1      GET MDB ORDINAL
10503  M01S00136.dsdi60  +++|          AX1    8
10504  M01S00137.dsdi60  +++|          NZ     X1,PBL8     IF NOT VALID DATA
10505  M01S00138.dsdi60  +++|          SX6    X2+1        SET ORDINAL+1 (ENSURE NON-ZERO VALUE)
10506  M01S00139.dsdi60  +++| PBL8     SA6    A2+         SET/CLEAR MDB FLAG
10507  M01S00140.dsdi60  +++|          RJ     NXB
10508  M01S00141.dsdi60  +++| PBL9     SB6    56          INITIALIZE OVERFLOW POSITION
10509  M01S00142.dsdi60  +++|          RJ     PBR         PROCESS AND STORE BML REGISTERS
10510  M01S00143.dsdi60  +++|          PL     X6,PBL9     IF MORE REGISTERS
10511  M01S00144.dsdi60  +++|
10512  M01S00145.dsdi60  +++|*         PROCESS MDB DATA.
10513  M01S00146.dsdi60  +++|
10514  M01S00147.dsdi60  +++|          SA3    PBLD
10515  M01S00148.dsdi60  +++|          ZR     X3,PBLX     IF NO MODEL DEPENDENT DATA
10516  M01S00149.dsdi60  +++|          SX7    BFBDAL      SET DATA BLOCK LENGTH
10517  M01S00150.dsdi60  +++|          SA7    PBLC+0
10518  M01S00151.dsdi60  +++|          SX6    4           SET OVERFLOW SHIFT COUNT DECREMENT AMOUNT
10519  M01S00152.dsdi60  +++|          SA6    A7+B1
10520  M01S00153.dsdi60  +++|          SX1    B1          SET BIT 55 IN BML HEADER
10521  M01S00154.dsdi60  +++|          LX1    55-0
10522  M01S00155.dsdi60  +++|          SA2    BFMB+4
10523  M01S00156.dsdi60  +++|          BX6    X1+X2
10524  M01S00157.dsdi60  +++|          SA6    A2
10525  M01S00158.dsdi60  +++|          SX6    X7+BFHL-1   SET MDB MESSAGE SIZE
10526  M01S00159.dsdi60  +++|          RJ     SMS
10527  M01S00160.dsdi60  +++|          SA1    CBFM        CALCULATE MDB FWA
10528  M01S00161.dsdi60  +++|          SX3    X3-1        GET MDB ORDINAL
10529  M01S00162.dsdi60  +++|          IX3    X3+X1
10530  M01S00163.dsdi60  +++|          SA3    X3
10531  M01S00164.dsdi60  +++|          RJ     DRA
10532  M01S00165.dsdi60  +++|          LX6    2           CONVERT TO BYTE ADDRESS
10533  M01S00166.dsdi60  +++|          SX3    X6+3        ADVANCE TO BYTE 3 OF HEADER WORD
10534  M01S00167.dsdi60  +++|          RJ     FBP
10535  M01S00168.dsdi60  +++|          RJ     NXB         GET DATA BLOCK LENGTH
10536  M01S00169.dsdi60  +++|          SB7    X1-1
10537  M01S00170.dsdi60  +++| PBL10    SB6    56          INITIALIZE SHIFT COUNT
10538  M01S00171.dsdi60  +++|          RJ     PBR         PROCESS BLOCK OF REGISTERS
10539  M01S00172.dsdi60  +++|          PL     X6,PBL10    IF MORE TO PROCESS
10540  M00S08587.dsdi    +++|
10541  M00S08588.dsdi    +++| PBL      SUBR               ENTRY/EXIT
10542  M00S08589.dsdi    +++|          SA1    CBFJ        NUMBER OF REGISTERS TO PROCESS
10543  M00S08590.dsdi    +++|          BX7    X1
10544  M00S08591.dsdi    +++|          SA7    PBLA
10545  M00S08592.dsdi    +++| PBL1     SX7    B0+
10546  M00S08593.dsdi    +++|          SA7    EB          SET BML ERRORS PRESENT FLAG

Seq #  *Modification Id* Act 
----------------------------+
10547  M01S08594.dsdi60  ---|          SA7    CBFF        INITIALIZE OVERFLOW WORD
10548  M00S08595.dsdi    +++| PBL2     SA1    PBLA        CHECK ENTRIES LEFT TO PROCESS

Seq #  *Modification Id* Act 
----------------------------+
10549  M01S08596.dsdi60  ---|          ZR     X1,PBL9     IF ALL ENTRIES PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
10550  M01S00173.dsdi60  +++|          ZR     X1,PBL7     IF ALL ENTRIES PROCESSED
10551  M00S08597.dsdi    +++|          SX6    X1-5        DECREMENT ENTRY COUNT
10552  M00S08598.dsdi    +++|          SA6    A1+
10553  M00S08599.dsdi    +++|          NZ     X6,PBL5     IF NOT LAST BLOCK
10554  M00S08600.dsdi    +++|          SA2    FOMA        DFT ANALYSIS CODE
10555  M00S08601.dsdi    +++|
10556  M00S08602.dsdi    +++|*         PROCESSING FOR LAST BLOCK OF REPAIRED/UNREPAIRED ERRORS.
10557  M00S08603.dsdi    +++|

Seq #  *Modification Id* Act 
----------------------------+
10558  M01S08604.dsdi60  ---|          SX2    X2-1006B
10559  M01S08605.dsdi60  ---|          ZR     X2,PBL3     IF REPAIRED ERROR
10560  M01S08606.dsdi60  ---|          SX2    X2-1007B+1006B
10561  M01S08607.dsdi60  ---|          NZ     X2,PBL5     IF NOT UNREPAIRED ERROR
10562  M01S08608.dsdi60  ---| PBL3     SB5    48          INITIALIZE SHIFT POSITION
10563  M01S08609.dsdi60  ---|          RJ     SAV
10564  M01S08610.dsdi60  ---|          RJ     NXB         GET NEXT BYTE
10565  M01S08611.dsdi60  ---|          RJ     RET

Seq #  *Modification Id* Act 
----------------------------+
10566  M01S00174.dsdi60  +++|          SA1    TM9E        CHECK FOR SPECIAL MODEL 990 ERRORS
10567  M01S00175.dsdi60  +++| PBL3     ZR     X1,PBL5     IF NOT SPECIAL ERROR
10568  M01S00176.dsdi60  +++|          IX3    X2-X1
10569  M01S00177.dsdi60  +++|          SA1    A1+B1
10570  M01S00178.dsdi60  +++|          NZ     X3,PBL3     IF NO MATCH
10571  M01S00179.dsdi60  +++|          SB7    48          INITIALIZE SHIFT POSITION
10572  M01S00180.dsdi60  +++|          RJ     NXB
10573  M00S08612.dsdi    +++|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
10574  M01S08613.dsdi60  ---|          BX7    -X0*X1      DO NOT SAVE UPPER 4 BITS
10575  M01S08614.dsdi60  ---|          LX7    B5          POSITION BYTE IN REGISTER SAVE AREA
10576  M01S08615.dsdi60  ---| PBL4     SB5    B5-16       DECREMENT SHIFT POSITION
10577  M01S08616.dsdi60  ---|          RJ     SAV         SAVE REGISTERS

Seq #  *Modification Id* Act 
----------------------------+
10578  M01S00181.dsdi60  +++|          BX5    -X0*X1      DO NOT SAVE UPPER 4 BITS
10579  M01S00182.dsdi60  +++|          LX5    B7          POSITION BYTE IN REGISTER SAVE AREA
10580  M01S00183.dsdi60  +++| PBL4     SB7    B7-16       DECREMENT SHIFT POSITION
10581  M00S08617.dsdi    +++|          RJ     NXB

Seq #  *Modification Id* Act 
----------------------------+
10582  M01S08618.dsdi60  ---|          RJ     RET         RESTORE REGISTERS
10583  M01S08619.dsdi60  ---|          LX1    B5          POSITION BYTE
10584  M01S08620.dsdi60  ---|          BX7    X1+X7
10585  M01S08621.dsdi60  ---|          NZ     B5,PBL4     IF NOT COMPLETE
10586  M01S08622.dsdi60  ---|          RJ     SAV

Seq #  *Modification Id* Act 
----------------------------+
10587  M01S00184.dsdi60  +++|          LX1    B7          POSITION BYTE
10588  M01S00185.dsdi60  +++|          BX5    X1+X5
10589  M01S00186.dsdi60  +++|          NZ     B7,PBL4     IF NOT COMPLETE
10590  M00S08623.dsdi    +++|          RJ     SMR         STORE MAINTENANCE REGISTER

Seq #  *Modification Id* Act 
----------------------------+
10591  M01S08624.dsdi60  ---|          RJ     RET
10592  M01S08625.dsdi60  ---|          SB5    4           INITIALIZE REGISTER COUNT
10593  M01S08626.dsdi60  ---|          EQ     PBL7        CONTINUE PROCESSING BML REGISTERS

Seq #  *Modification Id* Act 
----------------------------+
10594  M01S00187.dsdi60  +++|          SB7    4           INITIALIZE REGISTER COUNT
10595  M01S00188.dsdi60  +++|          EQ     PBL6        CONTINUE PROCESSING BML REGISTERS
10596  M00S08627.dsdi    +++|
10597  M00S08628.dsdi    +++| PBL5     RJ     PBH         PROCESS BML HEADER REGISTERS

Seq #  *Modification Id* Act 
----------------------------+
10598  M01S08629.dsdi60  ---|          SB4    4
10599  M01S08630.dsdi60  ---|          SX6    B4-B5
10600  M01S08631.dsdi60  ---|          SA6    CBFE        SET NUMBER OF REGISTERS TO ZERO OUT
10601  M01S08632.dsdi60  ---|          SB4    56          INITIALIZE OVERFLOW POSITION
10602  M01S08633.dsdi60  ---| PBL6     ZR     B5,PBL9     IF NO MORE REGISTERS TO PROCESS
10603  M01S08634.dsdi60  ---| PBL7     RJ     PBR         PROCESS BML REGISTER
10604  M01S08635.dsdi60  ---|          SB5    B5-B1       DECREMENT REGISTER COUNT
10605  M01S08636.dsdi60  ---|          RJ     SAV
10606  M01S08637.dsdi60  ---|          RJ     SMR         STORE MAINTENANCE REGISTER
10607  M01S08638.dsdi60  ---|          RJ     RET
10608  M01S08639.dsdi60  ---|          SB2    B4-8        CHECK IF OVERFLOW WORD IS FULL
10609  M01S08640.dsdi60  ---|          ZR     B2,PBL8     IF OVERFLOW WORD FULL
10610  M01S08641.dsdi60  ---|          EQ     PBL6        PROCESS NEXT REGISTER
10611  M01S08642.dsdi60  ---|
10612  M01S08643.dsdi60  ---| PBL8     SA2    CBFF
10613  M01S08644.dsdi60  ---|          BX7    X2
10614  M01S08645.dsdi60  ---|          RJ     SMR         STORE REGISTER OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
10615  M01S00189.dsdi60  +++| PBL6     SB6    56          INITIALIZE OVERFLOW POSITION
10616  M01S00190.dsdi60  +++|          RJ     PBR         PROCESS AND STORE BML REGISTERS
10617  M01S00191.dsdi60  +++|          NG     X6,PBL7     IF THROUGH PROCESSING
10618  M00S08646.dsdi    +++|          EQ     PBL1        CONTINUE PROCESSING
10619  M00S08647.dsdi    +++|
10620  M00S08648.dsdi    +++|
10621  M00S08649.dsdi    +++| PBLA     CON    0           REGISTERS LEFT TO PROCESS

Seq #  *Modification Id* Act 
----------------------------+
10622  M01S00192.dsdi60  +++| PBLB     CON    0           MRB/SSB ORDINAL
10623  M01S00193.dsdi60  +++| PBLC     CON    BFBDL       DATA BLOCK LENGTH
10624  M01S00194.dsdi60  +++|          CON    12          SHIFT COUNT
10625  M01S00195.dsdi60  +++| PBLD     CON    0           MODEL DEPENDENT DATA BUFFER FLAG
10626  M01S00196.dsdi60  +++|
10627  M01S00197.dsdi60  +++|**        TM9E - TABLE OF MODEL 990 SPECIAL ERRORS.
10628  M01S00198.dsdi60  +++|
10629  M01S00199.dsdi60  +++| TM9E     BSS    0
10630  M01S00200.dsdi60  +++|          CON    0#206       REPAIRED ERROR
10631  M01S00201.dsdi60  +++|          CON    0#207       UNREPAIRED ERROR
10632  M01S00202.dsdi60  +++|          CON    0#205       RETRY IN PROGRESS
10633  M01S00203.dsdi60  +++|          CON    0#21B       RETRY CONVERTED TO UNCORRECTED ERROR
10634  M01S00204.dsdi60  +++|          CON    0#21C       RETRY EXHAUSTED
10635  M01S00205.dsdi60  +++|          CON    0#21D       RETRY EXHAUSTED
10636  M01S00206.dsdi60  +++|          CON    0
10637  M00S08650.dsdi    +++| PBR      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
10638  M01S08651.dsdi60  ---|**        PBR - PROCESS BML REGISTER.
10639  M01S08652.dsdi60  ---|*
10640  M01S08653.dsdi60  ---|*         EXIT   (X7) = REGISTER.
10641  M01S08654.dsdi60  ---|*                (B4) = UPDATED SHIFT COUNT FOR BML REGISTER NUMBERS.
10642  M01S08655.dsdi60  ---|*
10643  M01S08656.dsdi60  ---|*         USES   X - 0, 1, 2, 6, 7.
10644  M01S08657.dsdi60  ---|*                A - 2, 3, 6, 7.
10645  M01S08658.dsdi60  ---|*                B - 4, 6.
10646  M01S08659.dsdi60  ---|*
10647  M01S08660.dsdi60  ---|*         CALLS  NXB.

Seq #  *Modification Id* Act 
----------------------------+
10648  M01S00207.dsdi60  +++|*         PBR - PROCESS AND STORE BLOCK OF BML REGISTERS.
10649  M01S00208.dsdi60  +++|*
10650  M01S00209.dsdi60  +++|*         EXIT   (X6) = NEGATIVE IF *TBM* CALLED.
10651  M01S00210.dsdi60  +++|*
10652  M01S00211.dsdi60  +++|*         USES   X - 0, 1, 2, 3, 5, 6.
10653  M01S00212.dsdi60  +++|*                A - 0, 3, 5, 6.
10654  M01S00213.dsdi60  +++|*                B - 4, 6, 7.
10655  M01S00214.dsdi60  +++|*
10656  M01S00215.dsdi60  +++|*         CALLS  NXB, SMR, TBM.
10657  M00S08661.dsdi    +++|
10658  M00S08662.dsdi    +++|

Seq #  *Modification Id* Act 
----------------------------+
10659  M01S00216.dsdi60  +++| PBR3     RJ     TBM         TERMINATE BML MESSAGE
10660  M01S00217.dsdi60  +++|          SX6    -1
10661  M01S00218.dsdi60  +++|
10662  M00S08663.dsdi    +++| PBR      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
10663  M01S00219.dsdi60  +++| PBR1     ZR     B7,PBR3     IF NO MORE REGISTERS
10664  M00S08664.dsdi    +++|          SX5    B0+         INITIALIZE BML SAVE AREA

Seq #  *Modification Id* Act 
----------------------------+
10665  M01S08665.dsdi60  ---|          SB6    44          INITIALIZE SHIFT COUNT FOR REGISTERS
10666  M01S08666.dsdi60  ---| PBR1     RJ     SAV         SAVE REGISTERS

Seq #  *Modification Id* Act 
----------------------------+
10667  M01S00220.dsdi60  +++|          SB4    44          INITIALIZE SHIFT COUNT FOR REGISTERS
10668  M01S00221.dsdi60  +++| PBR2     SA0    B4+
10669  M00S08667.dsdi    +++|          RJ     NXB         GET NEXT BYTE

Seq #  *Modification Id* Act 
----------------------------+
10670  M01S08668.dsdi60  ---|          RJ     RET         RETURN REGISTERS
10671  M01S08669.dsdi60  ---|          LX1    B6          CORRECTLY POSITION REGISTER

Seq #  *Modification Id* Act 
----------------------------+
10672  M01S00222.dsdi60  +++|          SB4    A0+
10673  M01S00223.dsdi60  +++|          LX1    B4          CORRECTLY POSITION REGISTER
10674  M00S08670.dsdi    +++|          BX5    X1+X5

Seq #  *Modification Id* Act 
----------------------------+
10675  M01S08671.dsdi60  ---|          SB6    B6-16       DECREMENT SHIFT COUNT
10676  M01S08672.dsdi60  ---|          PL     B6,PBR1     IF NOT COMPLETE
10677  M01S08673.dsdi60  ---|          RJ     SAV         SAVE REGISTERS

Seq #  *Modification Id* Act 
----------------------------+
10678  M01S00224.dsdi60  +++|          SB4    B4-16       DECREMENT SHIFT COUNT
10679  M01S00225.dsdi60  +++|          PL     B4,PBR2     IF NOT COMPLETE
10680  M00S08674.dsdi    +++|          RJ     NXB         GET LAST BYTE

Seq #  *Modification Id* Act 
----------------------------+
10681  M01S08675.dsdi60  ---|          RJ     RET         RETURN REGISTERS
10682  M00S08676.dsdi    +++|          MX0    -4          GET LOWER 4 BITS
10683  M00S08677.dsdi    +++|          BX2    -X0*X1
10684  M00S08678.dsdi    +++|          AX1    4

Seq #  *Modification Id* Act 
----------------------------+
10685  M01S08679.dsdi60  ---|          BX7    X1+X5
10686  M01S08680.dsdi60  ---|          LX2    B4
10687  M01S08681.dsdi60  ---|          SB4    B4-12       UPDATE OVERFLOW SHIFT COUNT

Seq #  *Modification Id* Act 
----------------------------+
10688  M01S00226.dsdi60  +++|          BX5    X1+X5
10689  M01S00227.dsdi60  +++|          LX2    B6
10690  M01S00228.dsdi60  +++|          SA3    PBLC+1      UPDATE OVERFLOW SHIFT COUNT
10691  M01S00229.dsdi60  +++|          SB4    X3
10692  M01S00230.dsdi60  +++|          SB6    B6-B4
10693  M00S08682.dsdi    +++|          SA3    CBFF        UPDATE BML OVERFLOW WORD
10694  M00S08683.dsdi    +++|          BX6    X2+X3
10695  M00S08684.dsdi    +++|          SA6    A3

Seq #  *Modification Id* Act 
----------------------------+
10696  M01S00231.dsdi60  +++|          SB7    B7-B1       DECREMENT REGISTER COUNT
10697  M01S00232.dsdi60  +++|          RJ     SMR         STORE REGISTER
10698  M01S00233.dsdi60  +++|          ZR     B6,PBR1     IF ONE MORE SPOT IN MDB OVERFLOW WORD
10699  M01S00234.dsdi60  +++|          SA3    PBLC+1
10700  M01S00235.dsdi60  +++|          SB4    X3
10701  M01S00236.dsdi60  +++|          SB4    B6-B4
10702  M01S00237.dsdi60  +++|          PL     B4,PBR1     IF OVERFLOW WORD NOT FULL
10703  M01S00238.dsdi60  +++|          SA5    CBFF        STORE OVERFLOW WORD
10704  M01S00239.dsdi60  +++|          RJ     SMR
10705  M01S00240.dsdi60  +++|          BX6    X6-X6       CLEAR OVERFLOW WORD
10706  M01S00241.dsdi60  +++|          SA6    A5
10707  M00S08685.dsdi    +++|          EQ     PBRX        RETURN
10708  M00S08686.dsdi    +++| RDB      SPACE  4,10
10709  M00S08687.dsdi    +++|**        RDB - RESET DATA BLOCK.
10710  M00S08688.dsdi    +++|*
10711  M00S08689.dsdi    +++|*         EXIT   (BFBI) = 0.
10712  M00S08690.dsdi    +++|*                (BFBD - BFBD+BFBDL) = 0.
10713  M00S08691.dsdi    +++|*

Seq #  *Modification Id* Act 
----------------------------+
10714  M01S08692.dsdi60  ---|*         USES   X - 7.
10715  M01S08693.dsdi60  ---|*                A - 7.

Seq #  *Modification Id* Act 
----------------------------+
10716  M01S00242.dsdi60  +++|*         USES   X - 1, 7.
10717  M01S00243.dsdi60  +++|*                A - 1, 7.
10718  M00S08694.dsdi    +++|*                B - 2.
10719  M00S08695.dsdi    +++|
10720  M00S08696.dsdi    +++| RDB      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
10721  M01S08697.dsdi60  ---|          SX7    B0+         RESET DATA BLOCK INDEX
10722  M01S08698.dsdi60  ---|          SA7    BFBI
10723  M01S08699.dsdi60  ---|          SB2    BFBDL       ZERO FILL DATA BLOCK

Seq #  *Modification Id* Act 
----------------------------+
10724  M01S00244.dsdi60  +++|          BX7    X7-X7       RESET DATA BLOCK INDEX
10725  M01S00245.dsdi60  +++|          SA1    PBLC+0
10726  M01S00246.dsdi60  +++|          SB2    X1
10727  M01S00247.dsdi60  +++|          SA7    BFBI
10728  M00S08700.dsdi    +++| RDB1     SB2    B2-1
10729  M00S08701.dsdi    +++|          SA7    BFBD+B2
10730  M00S08702.dsdi    +++|          NZ     B2,RDB1     IF NOT END OF BLOCK
10731  M00S08703.dsdi    +++|          EQ     RDBX        RETURN
10732  M00S08704.dsdi    +++| SMR      SPACE  4,15
10733  M00S08705.dsdi    +++|**        SMR - STORE MAINTENANCE REGISTER.
10734  M00S08706.dsdi    +++|*

Seq #  *Modification Id* Act 
----------------------------+
10735  M01S08707.dsdi60  ---|*         ENTRY  (X7) = WORD TO STORE.

Seq #  *Modification Id* Act 
----------------------------+
10736  M01S00248.dsdi60  +++|*         ENTRY  (X5) = WORD TO STORE.
10737  M00S08708.dsdi    +++|*
10738  M00S08709.dsdi    +++|*         EXIT   (BFBI) = (BFBI) + 1.

Seq #  *Modification Id* Act 
----------------------------+
10739  M01S00249.dsdi60  +++|*                (B6) PRESERVED.
10740  M01S00250.dsdi60  +++|*                (B7) PRESERVED.
10741  M00S08710.dsdi    +++|*                IF THE DATA BLOCK IS FULL, THE CURRENT MESSAGE BLOCK

Seq #  *Modification Id* Act 
----------------------------+
10742  M01S08711.dsdi60  ---|*                IS WRITTEN TO THE BML FILE AND (X7) IS STORED IN A

Seq #  *Modification Id* Act 
----------------------------+
10743  M01S00251.dsdi60  +++|*                IS WRITTEN TO THE BML FILE AND (X5) IS STORED IN A
10744  M00S08712.dsdi    +++|*                NEW MESSAGE BLOCK.
10745  M00S08713.dsdi    +++|*

Seq #  *Modification Id* Act 
----------------------------+
10746  M01S08714.dsdi60  ---|*         USES   X - 0, 1, 5, 6, 7.
10747  M01S08715.dsdi60  ---|*                A - 1, 6, 7.
10748  M01S08716.dsdi60  ---|*                B - 2, 3.

Seq #  *Modification Id* Act 
----------------------------+
10749  M01S00252.dsdi60  +++|*         USES   X - 0, 1, 2, 6, 7.
10750  M01S00253.dsdi60  +++|*                A - 1, 2, 6, 7.
10751  M01S00254.dsdi60  +++|*                B - 6, 7.
10752  M00S08717.dsdi    +++|*
10753  M00S08718.dsdi    +++|*         CALLS  RDB.
10754  M00S08719.dsdi    +++|*
10755  M00S08720.dsdi    +++|*         MACROS WRITEW.
10756  M00S08721.dsdi    +++|
10757  M00S08722.dsdi    +++|
10758  M00S08723.dsdi    +++| SMR      SUBR               ENTRY/EXIT
10759  M00S08724.dsdi    +++|          SA1    BFBI        GET DATA BLOCK INDEX

Seq #  *Modification Id* Act 
----------------------------+
10760  M01S08725.dsdi60  ---|          SB3    BFBDL       DATA BLOCK LENGTH
10761  M01S08726.dsdi60  ---|          SB2    X1
10762  M01S08727.dsdi60  ---|          NE     B2,B3,SMR1  IF NOT END OF DATA BLOCK

Seq #  *Modification Id* Act 
----------------------------+
10763  M01S00255.dsdi60  +++|          SA2    PBLC+0      DATA BLOCK LENGTH
10764  M01S00256.dsdi60  +++|          IX6    X1-X2
10765  M01S00257.dsdi60  +++|          NZ     X6,SMR1     IF NOT END OF DATA BLOCK
10766  M00S08728.dsdi    +++|
10767  M00S08729.dsdi    +++|*         FLUSH DATA BLOCK.
10768  M00S08730.dsdi    +++|

Seq #  *Modification Id* Act 
----------------------------+
10769  M01S08731.dsdi60  ---|          BX5    X7          SAVE REGISTER CONTENTS
10770  M01S08732.dsdi60  ---|          WRITEW B,BFMB,BFMBL+1  WRITE MESSAGE BLOCK

Seq #  *Modification Id* Act 
----------------------------+
10771  M01S00258.dsdi60  +++|          SX6    B6          SAVE B6, B7
10772  M01S00259.dsdi60  +++|          LX6    18
10773  M01S00260.dsdi60  +++|          SX7    B7
10774  M01S00261.dsdi60  +++|          BX7    X6+X7
10775  M01S00262.dsdi60  +++|          SA7    SMRA
10776  M01S00263.dsdi60  +++|          SX2    X2+BFHL
10777  M01S00264.dsdi60  +++|          WRITEW B,BFMB,X2
10778  M01S00265.dsdi60  +++|          SA1    SMRA        RESTORE
10779  M01S00266.dsdi60  +++|          SB7    X1
10780  M01S00267.dsdi60  +++|          AX1    18
10781  M01S00268.dsdi60  +++|          SB6    X1
10782  M00S08733.dsdi    +++|          RJ     RDB         RESET DATA BLOCK
10783  M00S08734.dsdi    +++|          SA1    BFMB        SET PREVIOUS BLOCK LENGTH

Seq #  *Modification Id* Act 
----------------------------+
10784  M01S08735.dsdi60  ---|          SX6    BFMBL+1

Seq #  *Modification Id* Act 
----------------------------+
10785  M01S00269.dsdi60  +++|          SA2    PBLC+0
10786  M01S00270.dsdi60  +++|          SX6    X2+BFHL
10787  M00S08736.dsdi    +++|          MX0    18
10788  M00S08737.dsdi    +++|          LX6    24
10789  M00S08738.dsdi    +++|          LX0    -18
10790  M00S08739.dsdi    +++|          BX1    -X0*X1
10791  M00S08740.dsdi    +++|          BX6    X1+X6

Seq #  *Modification Id* Act 
----------------------------+
10792  M01S08741.dsdi60  ---|          SA6    A1+
10793  M01S08742.dsdi60  ---|          BX7    X5          RESTORE REGISTER CONTENTS

Seq #  *Modification Id* Act 
----------------------------+
10794  M01S00271.dsdi60  +++|          SA6    A1
10795  M00S08743.dsdi    +++|          SA1    BFMB+4      SET *NOT FIRST BLOCK* FLAG
10796  M00S08744.dsdi    +++|          MX0    1
10797  M00S08745.dsdi    +++|          LX0    39-59
10798  M00S08746.dsdi    +++|          BX6    X0+X1
10799  M00S08747.dsdi    +++|          SA6    A1
10800  M00S08748.dsdi    +++|          SA1    BFBI        GET DATA BLOCK INDEX

Seq #  *Modification Id* Act 
----------------------------+
10801  M01S08749.dsdi60  ---| SMR1     SA7    BFBD+X1     STORE REGISTER CONTENTS

Seq #  *Modification Id* Act 
----------------------------+
10802  M01S00272.dsdi60  +++| SMR1     BX7    X5          STORE REGISTER CONTENTS
10803  M01S00273.dsdi60  +++|          SA7    BFBD+X1
10804  M00S08750.dsdi    +++|          SX6    X1+B1       ADVANCE DATA BLOCK INDEX
10805  M00S08751.dsdi    +++|          SA6    A1
10806  M00S08752.dsdi    +++|          EQ     SMRX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
10807  M01S08753.dsdi60  ---| RET      SPACE  4,10
10808  M01S08754.dsdi60  ---|**        RET - RESTORE SAVED REGISTERS.
10809  M01S08755.dsdi60  ---|*
10810  M01S08756.dsdi60  ---|*         ENTRY  (SAVA) = (X7).
10811  M01S08757.dsdi60  ---|*                (SAVA+1) = 6/0, 18/(B6), 18/(B5), 18/(B4).
10812  M01S08758.dsdi60  ---|*
10813  M01S08759.dsdi60  ---|*         EXIT   (X7), (B6), (B5), (B4) = RESTORED.
10814  M01S08760.dsdi60  ---|*
10815  M01S08761.dsdi60  ---|*         USES   X - 2, 7.
10816  M01S08762.dsdi60  ---|*                A - 2.
10817  M01S08763.dsdi60  ---|*                B - 4, 5, 6.
10818  M01S08764.dsdi60  ---|
10819  M01S08765.dsdi60  ---|
10820  M01S08766.dsdi60  ---| RET      SUBR               ENTRY/EXIT
10821  M01S08767.dsdi60  ---|          SA2    SAVA        (X7)
10822  M01S08768.dsdi60  ---|          BX7    X2
10823  M01S08769.dsdi60  ---|          SA2    A2+B1       (B6), (B5), (B4)
10824  M01S08770.dsdi60  ---|          SB4    X2
10825  M01S08771.dsdi60  ---|          AX2    18
10826  M01S08772.dsdi60  ---|          SB5    X2
10827  M01S08773.dsdi60  ---|          AX2    18
10828  M01S08774.dsdi60  ---|          SB6    X2
10829  M01S08775.dsdi60  ---|          EQ     RETX        RETURN
10830  M01S08776.dsdi60  ---| SAV      SPACE  4,10
10831  M01S08777.dsdi60  ---|**        SAV - SAVE REGISTERS.
10832  M01S08778.dsdi60  ---|*
10833  M01S08779.dsdi60  ---|*         EXIT   (X7) PRESERVED.
10834  M01S08780.dsdi60  ---|*                (SAVA) = (X7).
10835  M01S08781.dsdi60  ---|*                (SAVA+1) = 6/0, 18/(B6), 18/(B5), 18/(B4).
10836  M01S08782.dsdi60  ---|*
10837  M01S08783.dsdi60  ---|*         USES   X - 2, 7.
10838  M01S08784.dsdi60  ---|*                A - 2, 7.
10839  M01S08785.dsdi60  ---|
10840  M01S08786.dsdi60  ---|
10841  M01S08787.dsdi60  ---| SAV      SUBR               ENTRY/EXIT
10842  M01S08788.dsdi60  ---|          SA7    SAVA        (X7)
10843  M01S08789.dsdi60  ---|          SX7    B6          (B6)
10844  M01S08790.dsdi60  ---|          MX0    -18
10845  M01S08791.dsdi60  ---|          BX7    -X0*X7
10846  M01S08792.dsdi60  ---|          SX2    B5          (B5)
10847  M01S08793.dsdi60  ---|          BX2    -X0*X2
10848  M01S08794.dsdi60  ---|          LX7    18
10849  M01S08795.dsdi60  ---|          BX7    X2+X7
10850  M01S08796.dsdi60  ---|          SX2    B4          (B4)
10851  M01S08797.dsdi60  ---|          BX2    -X0*X2
10852  M01S08798.dsdi60  ---|          LX7    18
10853  M01S08799.dsdi60  ---|          BX7    X2+X7
10854  M01S08800.dsdi60  ---|          SA7    A7+B1
10855  M01S08801.dsdi60  ---|          SA2    A7-B1
10856  M01S08802.dsdi60  ---|          BX7    X2          RESTORE X7
10857  M01S08803.dsdi60  ---|          EQ     SAVX        RETURN
10858  M01S08804.dsdi60  ---|
10859  M01S08805.dsdi60  ---|
10860  M01S08806.dsdi60  ---| SAVA     CON    0           (X7)
10861  M01S08807.dsdi60  ---|          CON    0           (B6), (B5), (B4)

Seq #  *Modification Id* Act 
----------------------------+
10862  M01S00274.dsdi60  +++|
10863  M01S00275.dsdi60  +++|
10864  M01S00276.dsdi60  +++| SMRA     CON    0           REGISTER SAVE WORD
10865  M01S00277.dsdi60  +++| SMS      SPACE  4,10
10866  M01S00278.dsdi60  +++|**        SMS - SET MESSAGE SIZE IN BML HEADER.
10867  M01S00279.dsdi60  +++|*
10868  M01S00280.dsdi60  +++|*         ENTRY - (X6) = CURRENT MESSAGE SIZE TO SET.
10869  M01S00281.dsdi60  +++|*
10870  M01S00282.dsdi60  +++|*         EXIT   CURRENT MESSAGE SIZE FIELDS SET IN BML HEADER WORDS
10871  M01S00283.dsdi60  +++|*                0 AND 1.
10872  M01S00284.dsdi60  +++|*
10873  M01S00285.dsdi60  +++|*         USES   X - 0, 1, 6, 7.
10874  M01S00286.dsdi60  +++|*                A - 1, 7.
10875  M01S00287.dsdi60  +++|
10876  M01S00288.dsdi60  +++|
10877  M01S00289.dsdi60  +++| SMS      SUBR               ENTRY/EXIT
10878  M01S00290.dsdi60  +++|          SA1    BFMB        SET HEADER WORD ONE
10879  M01S00291.dsdi60  +++|          MX0    -12
10880  M01S00292.dsdi60  +++|          BX1    X0*X1
10881  M01S00293.dsdi60  +++|          BX7    X1+X6
10882  M01S00294.dsdi60  +++|          SA7    A1
10883  M01S00295.dsdi60  +++|          LX6    59-11       POSITION SIZE
10884  M01S00296.dsdi60  +++|          LX0    59-11
10885  M01S00297.dsdi60  +++|          SA1    A1+B1       SET HEADER WORD TWO
10886  M01S00298.dsdi60  +++|          BX1    X0*X1
10887  M01S00299.dsdi60  +++|          BX7    X1+X6
10888  M01S00300.dsdi60  +++|          SA7    A1
10889  M01S00301.dsdi60  +++|          EQ     SMSX        RETURN
10890  M00S08808.dsdi    +++| TBM      SPACE  4,10
10891  M00S08809.dsdi    +++|**        TBM - TERMINATE BML MESSAGE.
10892  M00S08810.dsdi    +++|*
10893  M00S08811.dsdi    +++|*         ENTRY  (CBFF) = REGISTER BML WORD.

Seq #  *Modification Id* Act 
----------------------------+
10894  M01S08812.dsdi60  ---|*                (CBFE) = REGISTER COUNT.

Seq #  *Modification Id* Act 
----------------------------+
10895  M01S00302.dsdi60  +++|*                (PBLC+1) = AMOUNT TO DECREMENT OVERFLOW SHIFT COUNT.
10896  M01S00303.dsdi60  +++|*                (B6) = OVERFLOW SHIFT COUNT.
10897  M00S08813.dsdi    +++|*
10898  M00S08814.dsdi    +++|*         EXIT   BML BUFFER FLUSHED.
10899  M00S08815.dsdi    +++|*                CONTINUATION BIT RESET.
10900  M00S08816.dsdi    +++|*

Seq #  *Modification Id* Act 
----------------------------+
10901  M01S08817.dsdi60  ---|*         USES   X - 0, 2, 6, 7.
10902  M01S08818.dsdi60  ---|*                A - 1, 2, 6, 7.
10903  M01S08819.dsdi60  ---|*
10904  M01S08820.dsdi60  ---|*         CALLS  RDB, SMR.

Seq #  *Modification Id* Act 
----------------------------+
10905  M01S00304.dsdi60  +++|*         USES   X - 0, 1, 5, 6, 7.
10906  M01S00305.dsdi60  +++|*                A - 1, 5, 6, 7.
10907  M01S00306.dsdi60  +++|*                B - 2, 6, 7.
10908  M01S00307.dsdi60  +++|*
10909  M01S00308.dsdi60  +++|*         CALLS  RDB, SMR, SMS.
10910  M00S08821.dsdi    +++|*
10911  M00S08822.dsdi    +++|*         MACROS WRITEW.
10912  M00S08823.dsdi    +++|
10913  M00S08824.dsdi    +++|
10914  M00S08825.dsdi    +++| TBM      SUBR               ENTRY/EXIT.

Seq #  *Modification Id* Act 
----------------------------+
10915  M01S08826.dsdi60  ---|          SA2    CBFF
10916  M01S08827.dsdi60  ---|          ZR     X2,TBM2     IF REGISTER WORD WRITTEN
10917  M01S08828.dsdi60  ---|          SA1    CBFE        DECREMENT REGISTER COUNT
10918  M01S08829.dsdi60  ---| TBM1     SX2    -B1
10919  M01S08830.dsdi60  ---|          IX6    X1+X2
10920  M01S08831.dsdi60  ---|          SA6    A1
10921  M01S08832.dsdi60  ---|          BX7    X7-X7       WRITE ZERO WORD

Seq #  *Modification Id* Act 
----------------------------+
10922  M01S00309.dsdi60  +++|          SB2    B6-56
10923  M01S00310.dsdi60  +++|          ZR     B2,TBM2     IF OVERFLOW WORD WRITTEN
10924  M01S00311.dsdi60  +++|          SA1    PBLC+1      GET SHIFT COUNT
10925  M01S00312.dsdi60  +++|          SB7    X1
10926  M01S00313.dsdi60  +++|          SB6    B6-B7
10927  M01S00314.dsdi60  +++| TBM1     BX5    X5-X5       WRITE ZERO WORD
10928  M01S00315.dsdi60  +++|          SB6    B6-B7
10929  M00S08833.dsdi    +++|          RJ     SMR

Seq #  *Modification Id* Act 
----------------------------+
10930  M01S08834.dsdi60  ---|          SA1    CBFE
10931  M01S08835.dsdi60  ---|          NZ     X1,TBM1     IF REGISTER WORD NOT FULL
10932  M01S08836.dsdi60  ---|          SA2    CBFF
10933  M01S08837.dsdi60  ---|          BX7    X2
10934  M01S08838.dsdi60  ---|          RJ     SMR         STORE UPPER REGISTER BITS WORD

Seq #  *Modification Id* Act 
----------------------------+
10935  M01S00316.dsdi60  +++|          GT     B6,TBM1     IF NOT THROUGH WITH BLOCK
10936  M01S00317.dsdi60  +++|          SA5    CBFF        STORE OVERFLOW WORD
10937  M01S00318.dsdi60  +++|          BX6    X6-X6       CLEAR OVERFLOW WORD
10938  M01S00319.dsdi60  +++|          SA6    A5
10939  M01S00320.dsdi60  +++|          RJ     SMR
10940  M00S08839.dsdi    +++| TBM2     SX0    B1          CLEAR CONTINUATION BIT
10941  M00S08840.dsdi    +++|          LX0    38-0
10942  M00S08841.dsdi    +++|          SA1    BFMB+4
10943  M00S08842.dsdi    +++|          BX7    -X0*X1
10944  M00S08843.dsdi    +++|          SA7    A1
10945  M00S08844.dsdi    +++|

Seq #  *Modification Id* Act 
----------------------------+
10946  M01S08845.dsdi60  ---|*         FLUSH MESSAGE BLOCK.

Seq #  *Modification Id* Act 
----------------------------+
10947  M01S00321.dsdi60  +++|*         FLUSH MESSAGE BLOCK AND RESET HEADER.
10948  M00S08846.dsdi    +++|

Seq #  *Modification Id* Act 
----------------------------+
10949  M01S08847.dsdi60  ---|          WRITEW B,BFMB,BFMBL+1  WRITE LAST BLOCK OF MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
10950  M01S00322.dsdi60  +++|          SA1    PBLC+0
10951  M01S00323.dsdi60  +++|          SX1    X1+BFHL
10952  M01S00324.dsdi60  +++|          WRITEW B,BFMB,X1   WRITE LAST BLOCK OF MESSAGE
10953  M00S08848.dsdi    +++|          RJ     RDB         RESET DATA BLOCK

Seq #  *Modification Id* Act 
----------------------------+
10954  M01S08849.dsdi60  ---|          SX7    B1          SET CONTINUATION/CLEAR *NOT FIRST BLOCK*
10955  M01S08850.dsdi60  ---|          LX7    38-0
10956  M01S08851.dsdi60  ---|          SA7    BFMB+4

Seq #  *Modification Id* Act 
----------------------------+
10957  M01S00325.dsdi60  +++|          SA1    BFMB+4
10958  M01S00326.dsdi60  +++|          MX0    2
10959  M01S00327.dsdi60  +++|          LX0    55-59       CLEAR MESSAGE CONTENT FLAGS
10960  M01S00328.dsdi60  +++|          BX1    -X0*X1
10961  M01S00329.dsdi60  +++|          LX0    39-59-55+59 SET CONTINUATION/CLEAR *NOT FIRST BLOCK*
10962  M01S00330.dsdi60  +++|          BX7    X0-X1
10963  M01S00331.dsdi60  +++|          SA7    A1
10964  M01S00332.dsdi60  +++|          SX6    BFMBL       RESET CURRENT MESSAGE SIZE
10965  M01S00333.dsdi60  +++|          RJ     SMS
10966  M01S00334.dsdi60  +++|          SX6    BFBDL       RESET BML MESSAGE SIZE
10967  M01S00335.dsdi60  +++|          SA6    PBLC+0
10968  M01S00336.dsdi60  +++|          SX7    12          RESET OVERFLOW SHIFT COUNT
10969  M01S00337.dsdi60  +++|          SA7    A6+1
10970  M00S08852.dsdi    +++|          EQ     TBMX        RETURN
10971  M00S08853.dsdi    +++|          TITLE  SUBROUTINES.
10972  M00S08854.dsdi    +++| APP      SPACE  4,7
10973  M00S08855.dsdi    +++|**        APP - ANALYZE PPU.
10974  M00S08856.dsdi    +++|*
10975  M00S08857.dsdi    +++|*         ENTRY  PP = PPU NUMBER.
10976  M00S08858.dsdi    +++|*
10977  M00S08859.dsdi    +++|*         USES   ALL REGISTERS.
10978  M00S08860.dsdi    +++|*

Seq #  *Modification Id* Act 
----------------------------+
10979  M01S08861.dsdi56  ---|*         CALLS  CPS, DPQ, FEM, FLS, FON, FPL, ICT, PDF, RPD, SFN,
10980  M01S08862.dsdi56  ---|*                SLM, SSB.

Seq #  *Modification Id* Act 
----------------------------+
10981  M02S00003.ns2647  ---|*         CALLS  CPS, DPQ, FEM, FLS, FON, FPL, GPS, ICT, PDF, RPD,
10982  M02S00004.ns2647  ---|*                SFN, SLM, SSB.

Seq #  *Modification Id* Act 
----------------------------+
10983  M01S00045.ns2647  +++|*         CALLS  COD, CPN, CPS, DPQ, FEM, FLC, FON, FPL, FPO, GPS, ICT,
10984  M01S00046.ns2647  +++|*                PPO, RPD, SFN, SLP, SSB, UPS.
10985  M00S08863.dsdi    +++|*
10986  M00S08864.dsdi    +++|*         MACROS PRINT.
10987  M00S08865.dsdi    +++|
10988  M00S08866.dsdi    +++|
10989  M00S08867.dsdi    +++| APP      SUBR

Seq #  *Modification Id* Act 
----------------------------+
10990  M01S00047.ns2647  +++|          RJ     PPO         PACK PP OPERATING REGISTERS
10991  M01S00048.ns2647  +++|          SA6    APPH        SAVE REGISTER DATA FOUND FLAG

Seq #  *Modification Id* Act 
----------------------------+
10992  M01S00005.dsdi56  +++|          RJ     RPD         READ PP DATA
10993  M01S00006.dsdi56  +++|          SX6    B0+         CLEAR DUMPING PP SAVE AREA DATA FLAG
10994  M01S00007.dsdi56  +++| APP1     SA6    APPF
10995  M00S08868.dsdi    +++|          RJ     ICT         INITIALIZE CHANNEL TABLE

Seq #  *Modification Id* Act 
----------------------------+
10996  M01S08869.dsdi56  ---|          RJ     RPD         READ PPU DATA
10997  M00S08870.dsdi    +++|          SA2    EF          CHECK AUTO EJECT FLAG
10998  M00S08871.dsdi    +++|          SX1    100         PRESET FOR EJECT

Seq #  *Modification Id* Act 
----------------------------+
10999  M01S08872.dsdi56  ---|          ZR     X2,APP1     IF AUTO EJECT ON

Seq #  *Modification Id* Act 
----------------------------+
11000  M01S00008.dsdi56  +++|          ZR     X2,APP2     IF AUTO EJECT ON
11001  M00S08873.dsdi    +++|          SX1    26

Seq #  *Modification Id* Act 
----------------------------+
11002  M01S08874.dsdi56  ---| APP1     RJ     CPS         CHECK PAGE SPACE

Seq #  *Modification Id* Act 
----------------------------+
11003  M01S00009.dsdi56  +++| APP2     RJ     CPS         CHECK PAGE SPACE
11004  M00S08875.dsdi    +++|          PRINT  (=2C  )
11005  M00S08876.dsdi    +++|          SA1    BPNA+1

Seq #  *Modification Id* Act 
----------------------------+
11006  M01S00010.dsdi56  +++|          SA2    =6R, AFTE
11007  M00S08877.dsdi    +++|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
11008  M01S08878.dsdi56  ---|          SA6    APPD+2      SET NAME IN HEADER
11009  M01S08879.dsdi56  ---|          SA0    APPD+4      SET LOGICAL PP IN MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
11010  M01S00011.dsdi56  +++|          BX7    X1+X2
11011  M01S00012.dsdi56  +++|          SA6    APPA+2      SET NAME IN HEADER
11012  M01S00013.dsdi56  +++|          SA7    APPB+2
11013  M01S00014.dsdi56  +++|          SA2    APPF
11014  M01S00015.dsdi56  +++|          ZR     X2,APP3     IF NOT DUMPING PP SAVE AREA DATA
11015  M01S00016.dsdi56  +++|          SA1    GPSB        GET ADDRESS OF PP SAVE BUFFER
11016  M01S00017.dsdi56  +++|          RJ     COD         CONVERT SAVE BUFFER ADDRESS
11017  M01S00018.dsdi56  +++|          MX6    48          ENSURE END OF LINE
11018  M01S00019.dsdi56  +++|          BX6    X6*X4
11019  M01S00020.dsdi56  +++|          BX1    X4
11020  M01S00021.dsdi56  +++|          SA6    APPB+7
11021  M01S00022.dsdi56  +++| APP3     SA0    A6+2        SET LOGICAL PP IN MESSAGE
11022  M00S08880.dsdi    +++|          RJ     SLP

Seq #  *Modification Id* Act 
----------------------------+
11023  M01S08881.dsdi56  ---|          ZR     X6,APP1.1   IF NO PP SWITCH

Seq #  *Modification Id* Act 
----------------------------+
11024  M01S00023.dsdi56  +++|          ZR     X6,APP4     IF NO PP SWITCH
11025  M00S08882.dsdi    +++|          RJ     SFN         SPACE FILL NAME

Seq #  *Modification Id* Act 
----------------------------+
11026  M01S08883.dsdi56  ---|          SA6    APPD+2      SET SPACE FILLED NAME IN HEADER
11027  M01S08884.dsdi56  ---| APP1.1   PRINT  APPD

Seq #  *Modification Id* Act 
----------------------------+
11028  M01S00024.dsdi56  +++|          SA6    A6+         SET SPACE FILLED NAME IN HEADER
11029  M01S00025.dsdi56  +++| APP4     SA1    A6+3        GET FWA OF HEADER
11030  M01S00026.dsdi56  +++|          PRINT  X1          PRINT HEADER
11031  M00S08885.dsdi    +++|          PRINT  (=2C  )

Seq #  *Modification Id* Act 
----------------------------+
11032  M01S08886.dsdi56  ---|          SX6    B0+
11033  M01S08887.dsdi56  ---|          SA6    APPA        PRESET LINE INDEX
11034  M00S08888.dsdi    +++|          RJ     SSB         CLEAR PRINT STRING

Seq #  *Modification Id* Act 
----------------------------+
11035  M01S08889.ns2647  ---|          SA2    PP          PPU NUMBER
11036  M00S08890.dsdi    +++|          SA3    F.TCMT
11037  M00S08891.dsdi    +++|          SA4    PC          GET PP COMMUNICATION AREA POINTER
11038  M00S08892.dsdi    +++|          IX4    X3+X4       ADDRESS OF PP COMMUNICATION AREA

Seq #  *Modification Id* Act 
----------------------------+
11039  M01S08893.ns2647  ---|          BX5    X2
11040  M01S08894.ns2647  ---|          SX7    X5-20B

Seq #  *Modification Id* Act 
----------------------------+
11041  M02S08895.ns2647  ---|          NG     X7,APP2     IF NOT PPUS 20 - 31

Seq #  *Modification Id* Act 
----------------------------+
11042  M02S00027.ns2647  ---|          NG     X7,APP5     IF NOT PP-S 20 - 31

Seq #  *Modification Id* Act 
----------------------------+
11043  M01S08896.ns2647  ---|          SX5    X5-20B+12B  CORRECT PPU INDEX

Seq #  *Modification Id* Act 
----------------------------+
11044  M02S08897.ns2647  ---| APP2     SA1    IC
11045  M02S08898.ns2647  ---|          ZR     X1,APP2.1   IF NOT *CPP* PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
11046  M02S00028.ns2647  ---| APP5     SA1    IC
11047  M02S00029.ns2647  ---|          ZR     X1,APP6     IF NOT *CPP* PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
11048  M01S08899.ns2647  ---|          SA5    NP
11049  M01S08900.ns2647  ---|          IX5    X5+X2

Seq #  *Modification Id* Act 
----------------------------+
11050  M02S08901.ns2647  ---| APP2.1   LX5    3

Seq #  *Modification Id* Act 
----------------------------+
11051  M02S00030.ns2647  ---| APP6     LX5    3

Seq #  *Modification Id* Act 
----------------------------+
11052  M01S08902.ns2647  ---|          IX5    X5+X4

Seq #  *Modification Id* Act 
----------------------------+
11053  M01S00049.ns2647  +++|          RJ     CPN         CONVERT PP/CPP NUMBER
11054  M01S00050.ns2647  +++|          LX6    3
11055  M01S00051.ns2647  +++|          IX5    X6+X4
11056  M00S08903.dsdi    +++|          SA5    X5          READ SELECTED INPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
11057  M01S00031.dsdi56  +++|          SX6    B0          PRESET LINE INDEX
11058  M00S08904.dsdi    +++|
11059  M00S08905.dsdi    +++|*         FORMAT I/O REGISTERS AND OVERLAY NAMES.
11060  M00S08906.dsdi    +++|

Seq #  *Modification Id* Act 
----------------------------+
11061  M01S08907.dsdi56  ---| APP3     SA1    APPA
11062  M01S08908.dsdi56  ---|          SA2    PP          RELOAD PP NUMBER
11063  M01S08909.dsdi56  ---|          SB4    X1          SET LINE INDEX

Seq #  *Modification Id* Act 
----------------------------+
11064  M01S00032.dsdi56  +++| APP7     SA2    PP          RELOAD PP NUMBER
11065  M01S00033.dsdi56  +++|          SA6    APPE        SAVE LINE INDEX
11066  M01S00034.dsdi56  +++|          SB4    X6
11067  M00S08910.dsdi    +++|          SB2    X2          SET PPU NUMBER
11068  M00S08911.dsdi    +++|          SB7    PRBF+5      PRINT STRING ADDRESS
11069  M00S08912.dsdi    +++|          RJ     FPL         FORMAT PPU REGISTER LINE
11070  M00S08913.dsdi    +++|          SB7    PRBF+60
11071  M00S08914.dsdi    +++|          RJ     FON         FORMAT OVERLAY NAME
11072  M00S08915.dsdi    +++|          PRINT  CCCH,B7-CCCH

Seq #  *Modification Id* Act 
----------------------------+
11073  M01S08916.dsdi56  ---|          SA1    APPA

Seq #  *Modification Id* Act 
----------------------------+
11074  M01S00035.dsdi56  +++|          SA1    APPE
11075  M01S00036.dsdi56  +++|          SA2    APPF
11076  M00S08917.dsdi    +++|          SA5    A5+B1       READ NEXT REGISTER WORD

Seq #  *Modification Id* Act 
----------------------------+
11077  M01S08918.dsdi56  ---|          SX6    X1+B1
11078  M01S08919.dsdi56  ---|          SA6    A1+         ADVANCE LINE INDEX
11079  M01S08920.dsdi56  ---|          SX6    X6-10B
11080  M01S08921.dsdi56  ---|          NG     X6,APP3     IF MORE TO FORMAT

Seq #  *Modification Id* Act 
----------------------------+
11081  M01S00037.dsdi56  +++|          SX6    X1+B1       ADVANCE LINE INDEX
11082  M01S00038.dsdi56  +++|          SB4    X6-10B
11083  M01S00039.dsdi56  +++|          ZR     X2,APP8     IF NOT DUMPING PP SAVE AREA DATA
11084  M01S00040.dsdi56  +++|          SA5    X1+1+PSAV   GET REGISTER FROM SAVE AREA
11085  M01S00041.dsdi56  +++| APP8     NG     B4,APP7     IF MORE TO FORMAT
11086  M00S08922.dsdi    +++|

Seq #  *Modification Id* Act 
----------------------------+
11087  M01S08923.ns2647  ---|*         FORMAT ENTRY POINT MAP AND LOW CORE ANALYSIS.

Seq #  *Modification Id* Act 
----------------------------+
11088  M01S00052.ns2647  +++|*         FORMAT ENTRY POINT MAP, LOW CORE ANALYSIS AND OPERATING
11089  M01S00053.ns2647  +++|*         REGISTERS.
11090  M00S08924.dsdi    +++|
11091  M00S08925.dsdi    +++|          PRINT  (=2C  )

Seq #  *Modification Id* Act 
----------------------------+
11092  M01S08926.dsdi56  ---|          PRINT  APPB

Seq #  *Modification Id* Act 
----------------------------+
11093  M01S08927.ns2647  ---|          PRINT  APPC

Seq #  *Modification Id* Act 
----------------------------+
11094  M02S00042.ns2647  ---|          PRINT  APPD

Seq #  *Modification Id* Act 
----------------------------+
11095  M01S08928.ns2647  ---|          PRINT  (=2C  )

Seq #  *Modification Id* Act 
----------------------------+
11096  M01S00054.ns2647  +++|          RJ     SSB
11097  M01S00055.ns2647  +++|          SB7    PRBF        PRINT HEADERS
11098  M01S00056.ns2647  +++|          SB6    57
11099  M01S00057.ns2647  +++|          SA2    APPC
11100  M01S00058.ns2647  +++|          RJ     UPS
11101  M01S00059.ns2647  +++|          SA5    APPH
11102  M01S00060.ns2647  +++|          ZR     X5,APP8.1   IF NO PP REGISTERS
11103  M01S00061.ns2647  +++|          SB7    PRBF+88
11104  M01S00062.ns2647  +++|          SB6    20
11105  M01S00063.ns2647  +++|          SA2    =C*OPERATING REGISTERS*
11106  M01S00064.ns2647  +++|          RJ     UPS
11107  M01S00065.ns2647  +++| APP8.1   PRINT  CCCH,B7-CCCH
11108  M01S00066.ns2647  +++|          RJ     SSB
11109  M01S00067.ns2647  +++|          SB7    PRBF
11110  M01S00068.ns2647  +++|          SB6    61
11111  M01S00069.ns2647  +++|          SA2    APPD
11112  M01S00070.ns2647  +++|          RJ     UPS
11113  M01S00071.ns2647  +++|          ZR     X5,APP8.2   IF NO PP REGISTERS
11114  M01S00072.ns2647  +++|          SB7    PRBF+93
11115  M01S00073.ns2647  +++|          SB6    25
11116  M01S00074.ns2647  +++|          SA2    =C*P      Q      K       A*
11117  M01S00075.ns2647  +++|          RJ     UPS
11118  M01S00076.ns2647  +++| APP8.2   PRINT  CCCH,B7-CCCH
11119  M00S08929.dsdi    +++|          SX5    0           PRESET LINE INDEX

Seq #  *Modification Id* Act 
----------------------------+
11120  M01S00077.ns2647  +++|          PRINT  (=2C  )

Seq #  *Modification Id* Act 
----------------------------+
11121  M01S08930.dsdi56  ---| APP4     RJ     SSB         CLEAR PRINT STRING

Seq #  *Modification Id* Act 
----------------------------+
11122  M01S00043.dsdi56  +++| APP9     RJ     SSB         CLEAR PRINT STRING
11123  M00S08931.dsdi    +++|          RJ     FEM         FORMAT ENTRY POINT
11124  M00S08932.dsdi    +++|          RJ     FLC         FORMAT LOW CORE ANALYSIS LINE

Seq #  *Modification Id* Act 
----------------------------+
11125  M01S00016.ns2647a +++|          SB7    PRBF+76

Seq #  *Modification Id* Act 
----------------------------+
11126  M01S00078.ns2647  +++|          RJ     FPO         FORMAT OPERATING REGISTERS LINE
11127  M00S08933.dsdi    +++|          PRINT  CCCH,B7-CCCH
11128  M00S08934.dsdi    +++|          SX5    X5+1        ADVANCE LINE INDEX
11129  M00S08935.dsdi    +++|          SX6    X5-10
11130  M00S08936.dsdi    +++|          SA1    CE

Seq #  *Modification Id* Act 
----------------------------+
11131  M01S08937.dsdi56  ---|          ZR     X1,APP5     IF CME NOT PRESENT

Seq #  *Modification Id* Act 
----------------------------+
11132  M01S00044.dsdi56  +++|          ZR     X1,APP10    IF CME NOT PRESENT
11133  M00S08938.dsdi    +++|          SX6    X6-1        COUNT R-REGISTER LINE

Seq #  *Modification Id* Act 
----------------------------+
11134  M01S08939.dsdi56  ---| APP5     NG     X6,APP4     IF MORE LINES TO FORMAT

Seq #  *Modification Id* Act 
----------------------------+
11135  M01S00045.dsdi56  +++| APP10    NG     X6,APP9     IF MORE LINES TO FORMAT

Seq #  *Modification Id* Act 
----------------------------+
11136  M01S08940.ns2647  ---|          RJ     PPO         PRINT PP OPERATING REGISTERS (I4 IOU ONLY)
11137  M00S08941.dsdi    +++|
11138  M00S08942.dsdi    +++|*         DUMP MEMORY IN *Q* FORMAT.
11139  M00S08943.dsdi    +++|
11140  M00S08944.dsdi    +++|          PRINT  (=2C  )
11141  M00S08945.dsdi    +++|          PRINT  (=C*          PPU MEMORY*)
11142  M00S08946.dsdi    +++|          PRINT  (=2C  )

Seq #  *Modification Id* Act 
----------------------------+
11143  M01S08947.dsdi56  ---|          MX3    0
11144  M01S08948.dsdi56  ---|          RJ     PDF         POSITION DUMP FILE

Seq #  *Modification Id* Act 
----------------------------+
11145  M01S00046.dsdi56  +++|          SX6    B1+
11146  M01S00047.dsdi56  +++|          SA6    APPG        SET *PBUF*-DEFINED TO TRUE
11147  M00S08949.dsdi    +++|          RJ     DPQ         DUMP PPU MEMORY

Seq #  *Modification Id* Act 
----------------------------+
11148  M01S08950.dsdi56  ---|          RJ     DSA         DUMP PP SAVE AREA

Seq #  *Modification Id* Act 
----------------------------+
11149  M01S00048.dsdi56  +++|          SA3    APPF
11150  M01S00049.dsdi56  +++|          NZ     X3,APP11    IF DUMPING PP SAVE AREA DATA
11151  M01S00050.dsdi56  +++|          RJ     GPS         GET PP SAVE AREA DATA
11152  M01S00051.dsdi56  +++|          SX6    1           SET DUMPING PP SAVE AREA DATA FLAG
11153  M01S00052.dsdi56  +++|          NZ     X5,APP1     IF PP FOUND IN PP SAVE AREA
11154  M01S00053.dsdi56  +++| APP11    SX6    B0+
11155  M01S00054.dsdi56  +++|          SA6    APPF        CLEAR DUMPING PP SAVE AREA DATA FLAG
11156  M01S00055.dsdi56  +++|          SA6    APPG        CLEAR  *PBUF*-VALID
11157  M00S08951.dsdi    +++|          JP     APPX        EXIT
11158  M00S08952.dsdi    +++|

Seq #  *Modification Id* Act 
----------------------------+
11159  M01S08953.dsdi56  ---| APPA     BSS    1           LINE INDEX
11160  M01S08954.dsdi56  ---|
11161  M01S08955.dsdi56  ---| APPB     DATA   50H       RESIDENT ENTRY POINTS          LOW CORE CON

Seq #  *Modification Id* Act 
----------------------------+
11162  M01S00056.dsdi56  +++| APPA     DATA   C*        ANALYSIS OF PPXX       (LOGICAL PPYY)*
11163  M01S00057.dsdi56  +++|          CON    APPA
11164  M01S00058.dsdi56  +++| APPB     DATA   50H     RE-ANALYSIS OF PPXX, AFTER RESTORING IT FROM
11165  M01S00059.dsdi56  +++|          DATA   C*THE PP SAVE AREA AT 000000.    (LOGICAL PPYY)*
11166  M01S00060.dsdi56  +++|          CON    APPB
11167  M01S00061.dsdi56  +++| APPC     DATA   50H       RESIDENT ENTRY POINTS          LOW CORE CON
11168  M00S08956.dsdi    +++|          DATA   C*STANTS*

Seq #  *Modification Id* Act 
----------------------------+
11169  M01S08957.dsdi56  ---|
11170  M01S08958.dsdi56  ---| APPC     DATA   50H          NAME  LOC CALLER        NAME LOC   ACTUA

Seq #  *Modification Id* Act 
----------------------------+
11171  M01S00062.dsdi56  +++| APPD     DATA   50H          NAME  LOC CALLER        NAME LOC   ACTUA
11172  M00S08959.dsdi    +++|          DATA   C*L EXPECTED*

Seq #  *Modification Id* Act 
----------------------------+
11173  M01S08960.dsdi56  ---|
11174  M01S08961.dsdi56  ---| APPD     DATA   C*        ANALYSIS OF PPXX       (LOGICAL PPYY)*

Seq #  *Modification Id* Act 
----------------------------+
11175  M01S00063.dsdi56  +++| APPE     BSS    1           LINE INDEX
11176  M01S00064.dsdi56  +++| APPF     CON    0           DUMPING PP SAVE AREA DATA FLAG
11177  M01S00065.dsdi56  +++| APPG     CON    0           PP DATA IN *PBUF* FLAG

Seq #  *Modification Id* Act 
----------------------------+
11178  M01S00079.ns2647  +++| APPH     CON    0           PP REGISTER DATA FLAG
11179  M00S08962.dsdi    +++| ASD      SPACE  4,12
11180  M00S08963.dsdi    +++|**        ASD - ASSEMBLE DIGITS.
11181  M00S08964.dsdi    +++|*
11182  M00S08965.dsdi    +++|*         ENTRY  (B7) = 0, IF OCTAL BASE.
11183  M00S08966.dsdi    +++|*                     = NONZERO, IF DECIMAL BASE.
11184  M00S08967.dsdi    +++|*                (CH) = STRING POINTER.
11185  M00S08968.dsdi    +++|*
11186  M00S08969.dsdi    +++|*         EXIT   (X4) = NONZERO, IF CONVERSION ERROR.
11187  M00S08970.dsdi    +++|*                (X6) = CONVERTED DIGITS.
11188  M00S08971.dsdi    +++|*                (B6) = 0, IF AT END OF DIRECTIVE.
11189  M00S08972.dsdi    +++|*                     = NONZERO, IF DIGITS PROCESSED.
11190  M00S08973.dsdi    +++|*
11191  M00S08974.dsdi    +++|*         USES   X - 5.
11192  M00S08975.dsdi    +++|*
11193  M00S08976.dsdi    +++|*         CALLS  ASN, DXB.
11194  M00S08977.dsdi    +++|
11195  M00S08978.dsdi    +++|
11196  M00S08979.dsdi    +++| ASD      SUBR               ENTRY/EXIT
11197  M00S08980.dsdi    +++|          RJ     ASN         ASSEMBLE NAME
11198  M00S08981.dsdi    +++|          BX5    X6
11199  M00S08982.dsdi    +++|          RJ     DXB         CONVERT DISPLAY CODE TO BINARY
11200  M00S08983.dsdi    +++|          EQ     ASDX        RETURN
11201  M00S08984.dsdi    +++| ASN      SPACE  4,15
11202  M00S08985.dsdi    +++|**        ASN - ASSEMBLE NAME.
11203  M00S08986.dsdi    +++|*         ASSEMBLES UP TO A 10-CHARACTER NAME TO A SEPARATOR.
11204  M00S08987.dsdi    +++|*         LEADING SPACES ARE IGNORED.
11205  M00S08988.dsdi    +++|*
11206  M00S08989.dsdi    +++|*         ENTRY  (CH) = STRING POINTER.
11207  M00S08990.dsdi    +++|*
11208  M00S08991.dsdi    +++|*         EXIT   (X6) = NAME, LEFT-JUSTIFIED AND ZERO-FILLED.
11209  M00S08992.dsdi    +++|*                     = 0, IF NULL PARAMETER.
11210  M00S08993.dsdi    +++|*                (B6) = 0, IF AT END OF DIRECTIVE.
11211  M00S08994.dsdi    +++|*                    .LT.0, IF SHIFT COUNT TO RIGHT-JUSTIFY.
11212  M00S08995.dsdi    +++|*                    .GT.0, IF NULL PARAMETER.
11213  M00S08996.dsdi    +++|*
11214  M00S08997.dsdi    +++|*         ERROR  TO *ERR33*, IF PARAMETER MORE THAN 10 CHARACTERS.
11215  M00S08998.dsdi    +++|*
11216  M00S08999.dsdi    +++|*         USES   X - 1, 6, 7.
11217  M00S09000.dsdi    +++|*                A - 1, 7.
11218  M00S09001.dsdi    +++|*                B - 6.
11219  M00S09002.dsdi    +++|
11220  M00S09003.dsdi    +++|
11221  M00S09004.dsdi    +++| ASN3     SX7    A1+         STORE ADDRESS OF LAST PARAMETER
11222  M00S09005.dsdi    +++|          SA7    CH
11223  M00S09006.dsdi    +++|          LX6    B6          LEFT-JUSTIFY PARAMETER
11224  M00S09007.dsdi    +++|          ZR     X6,ASNX     IF NULL PARAMETER
11225  M00S09008.dsdi    +++| ASN4     SB6    B6-60       CLEAR IF END OF DIRECTIVE
11226  M00S09009.dsdi    +++|
11227  M00S09010.dsdi    +++| ASN      SUBR               ENTRY/EXIT
11228  M00S09011.dsdi    +++|          SB6    60          PRESET SHIFT COUNT
11229  M00S09012.dsdi    +++|          SX6    0           PRESET ASSEMBLED NAME
11230  M00S09013.dsdi    +++|          SA1    CH          GET FIRST CHARACTER
11231  M00S09014.dsdi    +++|          SA1    X1+
11232  M00S09015.dsdi    +++|          SX7    X1-1R/
11233  M00S09016.dsdi    +++|          NG     X7,ASN2     IF FIRST CHARACTER NOT SEPARATOR
11234  M00S09017.dsdi    +++|          SX7    X1-1R.
11235  M00S09018.dsdi    +++|          ZR     X7,ASN4     IF END OF DIRECTIVE
11236  M00S09019.dsdi    +++| ASN1     SA1    A1+1        GET NEXT CHARACTER
11237  M00S09020.dsdi    +++| ASN2     SX7    X1-1R
11238  M00S09021.dsdi    +++|          ZR     X7,ASN1     IF SPACING WITHIN DIRECTIVE
11239  M00S09022.dsdi    +++|          SX7    X1-1R/
11240  M00S09023.dsdi    +++|          PL     X7,ASN3     IF END OF PARAMETER
11241  M00S09024.dsdi    +++|          SB6    B6-6
11242  M00S09025.dsdi    +++|          NG     B6,ERR33    IF MORE THAN 10 CHARACTERS READ
11243  M00S09026.dsdi    +++|          LX6    6           STORE CHARACTER
11244  M00S09027.dsdi    +++|          BX6    X6+X1
11245  M00S09028.dsdi    +++|          EQ     ASN1        GET NEXT CHARACTER
11246  M00S09029.dsdi    +++| ASP      SPACE  4,27
11247  M00S09030.dsdi    +++|**        ASP - ANALYZE SELECTED PPUS.
11248  M00S09031.dsdi    +++|*
11249  M00S09032.dsdi    +++|*         ENTRY  (A0) = RETURN ADDRESS.
11250  M00S09033.dsdi    +++|*                (X6) = PARAMETER BLOCK ADDRESS.
11251  M00S09034.dsdi    +++|*                (PC) = PP COMMUNICATION AREA POINTER.
11252  M00S09035.dsdi    +++|*
11253  M00S09036.dsdi    +++|*         PARAMETER BLOCK FORMAT -
11254  M00S09037.dsdi    +++|*
11255  M00S09038.dsdi    +++|*         18/ NAME,1/ ,5/ NUMBER,1/ OT BIT,18/ ,5/ ORIGIN TYPE,12/
11256  M00S09039.dsdi    +++|*         SECOND ENTRY
11257  M00S09040.dsdi    +++|*           .      .
11258  M00S09041.dsdi    +++|*           .      .
11259  M00S09042.dsdi    +++|*           .      .
11260  M00S09043.dsdi    +++|*         60/ NEGATIVE WORD TERMINATES BLOCK
11261  M00S09044.dsdi    +++|*
11262  M00S09045.dsdi    +++|*                NAME = 0 IF ANY ACTIVE PPU ALLOWED.
11263  M00S09046.dsdi    +++|*                     = PPU NAME.
11264  M00S09047.dsdi    +++|*                NUMBER = 0 IF ANY CONTROL POINT NUMBER ALLOWED.
11265  M00S09048.dsdi    +++|*                       = CONTROL POINT NUMBER THAT MUST MATCH THE
11266  M00S09049.dsdi    +++|*                         CONTROL POINT NUMBER ASSOCIATED WITH THE PPU.
11267  M00S09050.dsdi    +++|*                OT BIT = 0 IF ANY ORIGIN TYPE ALLOWED.
11268  M00S09051.dsdi    +++|*                       = 1 IF THE ORIGIN TYPE SPECIFIED (BITS 17-12)
11269  M00S09052.dsdi    +++|*                         MUST MATCH THE ORIGIN TYPE OF THE CONTROL
11270  M00S09053.dsdi    +++|*                         POINT ASSOCIATED WITH THE PPU.
11271  M00S09054.dsdi    +++|*
11272  M00S09055.dsdi    +++|*         USES   X - ALL.
11273  M00S09056.dsdi    +++|*                A - 1, 3, 4, 5, 6, 7.
11274  M00S09057.dsdi    +++|*                B - 2.
11275  M00S09058.dsdi    +++|*
11276  M00S09059.dsdi    +++|*         CALLS  APP, SCM, SPA.
11277  M00S09060.dsdi    +++|
11278  M00S09061.dsdi    +++|
11279  M00S09062.dsdi    +++| ASP      SX7    A0
11280  M00S09063.dsdi    +++|          SA7    ASPA        SAVE RETURN ADDRESS
11281  M00S09064.dsdi    +++|          SA6    A7+B1       SAVE PARAMETER BLOCK ADDRESS
11282  M00S09065.dsdi    +++|          SA1    PC          GET PP COMMUNICATION AREA POINTER
11283  M00S09066.dsdi    +++|          BX6    X1
11284  M00S09067.dsdi    +++|          SA6    PI          SET SEARCH INDEX
11285  M00S09068.dsdi    +++| ASP1     RJ     SPA         SELECT NEXT PPU TO ANALYZE
11286  M00S09069.dsdi    +++|          ZR     X1,ASP6     IF NO MORE PPUS TO ANALYZE
11287  M00S09070.dsdi    +++|          SA5    F.TCMT
11288  M00S09071.dsdi    +++|          SB2    X6-10B
11289  M00S09072.dsdi    +++|          SA4    X5+B2       READ INPUT REGISTER
11290  M00S09073.dsdi    +++|          SA1    ASPB
11291  M00S09074.dsdi    +++|          SA5    X1-1
11292  M00S09075.dsdi    +++| ASP2     SA5    A5+1        NEXT ENTRY IN TABLE
11293  M00S09076.dsdi    +++|          NG     X5,ASP1     IF END OF TABLE
11294  M00S09077.dsdi    +++|          MX3    18
11295  M00S09078.dsdi    +++|          BX2    X5*X3
11296  M00S09079.dsdi    +++|          ZR     X2,ASP3     IF ANY ACTIVE PPU ALLOWED
11297  M00S09080.dsdi    +++|          BX0    X5-X4
11298  M00S09081.dsdi    +++|          BX1    X0*X3
11299  M00S09082.dsdi    +++|          NZ     X1,ASP2     IF NAMES DO NOT MATCH
11300  M00S09083.dsdi    +++| ASP3     MX6    5
11301  M00S09084.dsdi    +++|          LX6    -19
11302  M00S09085.dsdi    +++|          BX1    X5*X6
11303  M00S09086.dsdi    +++|          ZR     X1,ASP4     IF ANY CONTROL POINT NUMBER ALLOWED
11304  M00S09087.dsdi    +++|          BX1    X5-X4
11305  M00S09088.dsdi    +++|          BX1    X1*X6
11306  M00S09089.dsdi    +++|          NZ     X1,ASP2     IF CONTROL POINT NUMBERS DO NOT MATCH
11307  M00S09090.dsdi    +++| ASP4     BX2    X5
11308  M00S09091.dsdi    +++|          LX2    24
11309  M00S09092.dsdi    +++|          PL     X2,ASP5     IF ANY ORIGIN TYPE ALLOWED
11310  M00S09093.dsdi    +++|          SA1    F.TCMT
11311  M00S09094.dsdi    +++|          SX7    CPLEN
11312  M00S09095.dsdi    +++|          BX3    X4*X6
11313  M00S09096.dsdi    +++|          LX3    24          CONTROL POINT NUMBER
11314  M00S09097.dsdi    +++|          IX3    X3*X7       CONTROL POINT AREA ADDRESS
11315  M00S09098.dsdi    +++|          IX3    X1+X3
11316  M00S09099.dsdi    +++|          SA3    X3+JOTW     GET CONTROL POINT AREA ORIGIN TYPE
11317  M00S09100.dsdi    +++|          AX6    24
11318  M00S09101.dsdi    +++|          BX6    X6*X3
11319  M00S09102.dsdi    +++|          BX5    X6*X5       GET ORIGIN TYPE FOR TABLE ENTRY
11320  M00S09103.dsdi    +++|          BX5    X5-X6
11321  M00S09104.dsdi    +++|          NZ     X5,ASP2     IF ORIGIN TYPES DO NOT MATCH
11322  M00S09105.dsdi    +++| ASP5     RJ     APP         ANALYZE PPU
11323  M00S09106.dsdi    +++|          JP     ASP1        CONTINUE
11324  M00S09107.dsdi    +++|
11325  M00S09108.dsdi    +++| ASP6     RJ     SCM         SET CENTRAL MEMORY
11326  M00S09109.dsdi    +++|          SA7    RI
11327  M00S09110.dsdi    +++|          SA1    ASPA
11328  M00S09111.dsdi    +++|          SB2    X1
11329  M00S09112.dsdi    +++|          JP     B2          RETURN
11330  M00S09113.dsdi    +++|
11331  M00S09114.dsdi    +++| ASPA     BSS    1           RETURN ADDRESS
11332  M00S09115.dsdi    +++| ASPB     BSS    1           PARAMETER BLOCK ADDRESS
11333  M00S09116.dsdi    +++| ASX      SPACE  4,15
11334  M00S09117.dsdi    +++|**        ASX - ASSEMBLE HEXADECIMAL DIGITS.
11335  M00S09118.dsdi    +++|*
11336  M00S09119.dsdi    +++|*         ENTRY  (CH) = STRING POINTER.
11337  M00S09120.dsdi    +++|*
11338  M00S09121.dsdi    +++|*         EXIT   (X4) = NONZERO, IF CONVERSION ERROR.
11339  M00S09122.dsdi    +++|*                (X6) = CONVERTED DIGITS.
11340  M00S09123.dsdi    +++|*                (B6) = 0, IF NO DIGITS ASSEMBLED.
11341  M00S09124.dsdi    +++|*                (ASXA) = NUMBER IN DISPLAY CODE,
11342  M00S09125.dsdi    +++|*                       = 0 IF NULL PARAMETER.
11343  M00S09126.dsdi    +++|*
11344  M00S09127.dsdi    +++|*         USES   X - 4, 5.
11345  M00S09128.dsdi    +++|*
11346  M00S09129.dsdi    +++|*         CALLS  ASN, HXB.
11347  M00S09130.dsdi    +++|
11348  M00S09131.dsdi    +++|
11349  M00S09132.dsdi    +++| ASX      SUBR               ENTRY/EXIT
11350  M00S09133.dsdi    +++|          SX4    1           PRESET ERROR RESPONSE
11351  M00S09134.dsdi    +++|          RJ     ASN         ASSEMBLE NAME
11352  M00S09135.dsdi    +++|          SA6    ASXA        SAVE NAME
11353  M00S09136.dsdi    +++|          ZR     B6,ASXX     IF NO DIGITS ASSEMBLED
11354  M00S09137.dsdi    +++|          BX5    X6
11355  M00S09138.dsdi    +++|          RJ     HXB         CONVERT DISPLAY CODE TO HEX
11356  M00S09139.dsdi    +++|          EQ     ASXX        RETURN
11357  M00S09140.dsdi    +++|
11358  M00S09141.dsdi    +++| ASXA     CON    0           SAVE RESULT FROM *ASN*
11359  M00S09142.dsdi    +++| ATC      SPACE  4,13
11360  M00S09143.dsdi    +++|**        ATC - ASSEMBLE TRACK CHAIN.
11361  M00S09144.dsdi    +++|*
11362  M00S09145.dsdi    +++|*         ENTRY  (A0) = RETURN ADDRESS.
11363  M00S09146.dsdi    +++|*                (GNFA - GNFA+5) = FILE INFORMATION.
11364  M00S09147.dsdi    +++|*
11365  M00S09148.dsdi    +++|*         EXIT   TRACK LINKS STORED ONE PER WORD RIGHT JUSTIFIED
11366  M00S09149.dsdi    +++|*                IN TABLE *TSC1*.  TABLE *TSCR* IS USED TO HOLD THE
11367  M00S09150.dsdi    +++|*                SELECTED TRT DURING THE ASSEMBLY PROCESS.
11368  M00S09151.dsdi    +++|*
11369  M00S09152.dsdi    +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
11370  M00S09153.dsdi    +++|*                A - 0, 1, 2, 3, 5, 6.
11371  M00S09154.dsdi    +++|*                B - 2, 3, 4, 5.
11372  M00S09155.dsdi    +++|*
11373  M00S09156.dsdi    +++|*         CALLS  PCM.
11374  M00S09157.dsdi    +++|*
11375  M00S09158.dsdi    +++|*         MACROS ADDWRD, ALLOC, GETCM.
11376  M00S09159.dsdi    +++|
11377  M00S09160.dsdi    +++|
11378  M00S09161.dsdi    +++| ATC      SUBR
11379  M00S09162.dsdi    +++|          SA2    GNFA+5      READ EST
11380  M00S09163.dsdi    +++|          MX0    -12
11381  M00S09164.dsdi    +++|          BX3    -X0*X2
11382  M00S09165.dsdi    +++|          LX3    3
11383  M00S09166.dsdi    +++|          SX5    X3          SAVE MST ADDRESS
11384  M00S09167.dsdi    +++|          SX3    X3+TRLL
11385  M00S09168.dsdi    +++|          RJ     PCM         POSITION TO MST WORD *TRLL*
11386  M00S09169.dsdi    +++|          GETCM
11387  M00S09170.dsdi    +++|          MX0    -18         SAVE FWA OF TRT
11388  M00S09171.dsdi    +++|          BX6    -X0*X6
11389  M00S09172.dsdi    +++|          SA6    ATCA
11390  M00S09173.dsdi    +++|          MX0    -12
11391  M00S09174.dsdi    +++|          SX3    X5+TDGL
11392  M00S09175.dsdi    +++|          RJ     PCM         POSITION TO TRT ADDRESS
11393  M00S09176.dsdi    +++|          GETCM
11394  M00S09177.dsdi    +++|          AX6    24
11395  M00S09178.dsdi    +++|          SA1    ATCA        SET FWA OF TRT
11396  M00S09179.dsdi    +++|          SB3    X1
11397  M00S09180.dsdi    +++|          SA5    A0          SAVE A0
11398  M00S09181.dsdi    +++|          BX5    -X0*X6      TRT LENGTH
11399  M00S09182.dsdi    +++|          SA1    L.TSCR      ALLOCATE SCRATCH TABLE SPACE
11400  M00S09183.dsdi    +++|          IX1    X5-X1
11401  M00S09184.dsdi    +++|          ALLOC  TSCR,X1
11402  M00S09185.dsdi    +++|          SA0    X2          SAVE TABLE FWA
11403  M00S09186.dsdi    +++|          SX0    X3          SAVE TABLE LENGTH
11404  M00S09187.dsdi    +++|          SX3    B3+
11405  M00S09188.dsdi    +++|          RJ     PCM         POSITION TO TRT
11406  M00S09189.dsdi    +++|          GETCM  A0,X0       READ TRT INTO SCRATCH TABLE
11407  M00S09190.dsdi    +++|          SB5    X0          RESET TABLE LENGTH
11408  M00S09191.dsdi    +++|          SX6    B0
11409  M00S09192.dsdi    +++|          SA6    L.TSC1      CLEAR LINK TABLE
11410  M00S09193.dsdi    +++|          SA3    GNFA+2      READ FST
11411  M00S09194.dsdi    +++|          MX1    -12
11412  M00S09195.dsdi    +++|          AX3    36
11413  M00S09196.dsdi    +++|          BX1    -X1*X3      EXTRACT FIRST TRACK NUMBER
11414  M00S09197.dsdi    +++| ATC1     ADDWRD TSC1,X1     STORE LINK IN TABLE
11415  M00S09198.dsdi    +++|          SA0    A5+         RESTORE A0
11416  M00S09199.dsdi    +++|          SX2    X1-3777B
11417  M00S09200.dsdi    +++|          ZR     X2,ATC2     IF LINKED TO FLAW
11418  M00S09201.dsdi    +++|          LX1    -12
11419  M00S09202.dsdi    +++|          PL     X1,ATCX     IF EOI REACHED
11420  M00S09203.dsdi    +++|          LX1    12
11421  M00S09204.dsdi    +++|          MX0    -11
11422  M00S09205.dsdi    +++|          BX1    -X0*X1      CLEAR LINKED FLAG
11423  M00S09206.dsdi    +++|          MX2    -2
11424  M00S09207.dsdi    +++|          BX2    -X2*X1      BYTE INDEX
11425  M00S09208.dsdi    +++|          AX1    2           TRT WORD ORDINAL
11426  M00S09209.dsdi    +++|          SB3    X1
11427  M00S09210.dsdi    +++|          GE     B3,B5,ATC2  IF LINK BEYOND END OF TRT
11428  M00S09211.dsdi    +++|          SB2    X2
11429  M00S09212.dsdi    +++|          SX3    12
11430  M00S09213.dsdi    +++|          IX3    X2*X3
11431  M00S09214.dsdi    +++|          SB4    X3          SHIFT COUNT
11432  M00S09215.dsdi    +++|          SA2    F.TSCR
11433  M00S09216.dsdi    +++|          IX2    X1+X2
11434  M00S09217.dsdi    +++|          SA1    X2          READ TRT WORD
11435  M00S09218.dsdi    +++|          SX5    10B
11436  M00S09219.dsdi    +++|          AX5    X5,B2
11437  M00S09220.dsdi    +++|          BX4    X5*X1       CHECK RESERVATION
11438  M00S09221.dsdi    +++|          ZR     X4,ATC2     IF TRACK NOT RESERVED OR ALREADY LINKED
11439  M00S09222.dsdi    +++|          BX6    -X5*X1      CLEAR RESERVATION
11440  M00S09223.dsdi    +++|          SA6    A1          UPDATE TRT
11441  M00S09224.dsdi    +++|          MX0    12
11442  M00S09225.dsdi    +++|          LX1    X1,B4       POSITION TRT WORD
11443  M00S09226.dsdi    +++|          BX1    X0*X1       EXTRACT NEXT LINK
11444  M00S09227.dsdi    +++|          LX1    12
11445  M00S09228.dsdi    +++|          JP     ATC1        ADD TO TABLE
11446  M00S09229.dsdi    +++|
11447  M00S09230.dsdi    +++| ATC2     SX1    -=C*                        INCORRECT TRACK LINKAGE*
11448  M00S09231.dsdi    +++|          ADDWRD TSC1,X1     SET ERROR FLAG
11449  M00S09232.dsdi    +++|          SA0    A5          RESTORE A0
11450  M00S09233.dsdi    +++|          JP     ATCX        EXIT
11451  M00S09234.dsdi    +++|
11452  M00S09235.dsdi    +++| ATCA     CON    0           FWA OF TRT
11453  M00S09236.dsdi    +++| BCP      SPACE  4,9
11454  M00S09237.dsdi    +++|**        BCP - BEGIN CONTROL POINT DUMP.
11455  M00S09238.dsdi    +++|*
11456  M00S09239.dsdi    +++|*         ENTRY  (CH) = DIRECTIVE CARD STRING POINTER.
11457  M00S09240.dsdi    +++|*
11458  M00S09241.dsdi    +++|*         EXIT   (PI) = *TCMT* TABLE INDEX FOR ACTIVE CP SEARCH.
11459  M00S09242.dsdi    +++|*                     = 0, IF CONTROL POINT NUMBERS ON DIRECTIVE CARD.
11460  M00S09243.dsdi    +++|*
11461  M00S09244.dsdi    +++|*         USES   X - 1, 6.
11462  M00S09245.dsdi    +++|*                A - 1, 6.
11463  M00S09246.dsdi    +++|
11464  M00S09247.dsdi    +++|
11465  M00S09248.dsdi    +++| BCP      SUBR
11466  M00S09249.dsdi    +++|          SX6    0
11467  M00S09250.dsdi    +++|          SA6    PI          PRESET SEARCH INDEX
11468  M00S09251.dsdi    +++|          SA1    CH          CHECK LAST SEPARATOR
11469  M00S09252.dsdi    +++|          SA1    X1+
11470  M00S09253.dsdi    +++|          SX1    X1-1R.
11471  M00S09254.dsdi    +++|          NZ     X1,BCPX     IF NUMBERS SPECIFIED ON DIRECTIVE CARD

Seq #  *Modification Id* Act 
----------------------------+
11472  M01S09255.271l716 ---|          SX6    CPAS+TFSW-CPLEN

Seq #  *Modification Id* Act 
----------------------------+
11473  M01S00333.271l716 +++|          SA1    FW          CPA/PCPA FWA - CPLEN
11474  M01S00334.271l716 +++|          SX6    X1+TFSW
11475  M00S09256.dsdi    +++|          SA6    PI          PRESET CP AREA SEARCH INDEX
11476  M00S09257.dsdi    +++|          JP     BCPX        EXIT

Seq #  *Modification Id* Act 
----------------------------+
11477  M01S09258.dsdi78  ---| BPN      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
11478  M01S00019.dsdi78  +++| BPN      SPACE  4,15
11479  M00S09259.dsdi    +++|**        BPN - BUILD PPU NAME.
11480  M00S09260.dsdi    +++|*
11481  M00S09261.dsdi    +++|*         ENTRY  (PP) = PPU NUMBER.
11482  M00S09262.dsdi    +++|*                (IC) = *CPP* RECORD PROCESSING FLAG.
11483  M00S09263.dsdi    +++|*                (IPDA) = PPU/FLPP RECORD FLAG.

Seq #  *Modification Id* Act 
----------------------------+
11484  M01S09264.dsdi78  ---|*                (PPTB) = 0, IF NOT PROCESSING A CPP.
11485  M01S09265.dsdi78  ---|*                       .NE. 0, IF PROCESSING A CPP.
11486  M00S09266.dsdi    +++|*
11487  M00S09267.dsdi    +++|*         EXIT   (X0) = MASK FOR PP/CPP/FLPP RECORD SEARCH.
11488  M00S09268.dsdi    +++|*                (X3) = PP NUMBER IN DISPLAY CODE MINUS 3333B.
11489  M00S09269.dsdi    +++|*                (X6) = (BPNA+1) = PP HEADER NAME IN FORM *CPPNN*,
11490  M00S09270.dsdi    +++|*                                  *PPNN*, OR *FPNN*, LEFT JUSTIFIED.
11491  M00S09271.dsdi    +++|*                (X7) = (BPNA) = PP RECORD NAME IN FORM *DNN*, *PPNN*,
11492  M00S09272.dsdi    +++|*                                OR *FPNN*, LEFT JUSTIFIED.
11493  M00S09273.dsdi    +++|*
11494  M00S09274.dsdi    +++|*         USES   X - 0, 1, 2, 3, 6, 7.
11495  M00S09275.dsdi    +++|*                A - 1, 2, 6, 7.
11496  M00S09276.dsdi    +++|
11497  M00S09277.dsdi    +++|
11498  M00S09278.dsdi    +++| BPN      SUBR
11499  M00S09279.dsdi    +++|          SA1    PP
11500  M00S09280.dsdi    +++|          SX2    707B
11501  M00S09281.dsdi    +++|          BX3    X1
11502  M00S09282.dsdi    +++|          LX3    3
11503  M00S09283.dsdi    +++|          BX3    X3+X1
11504  M00S09284.dsdi    +++|          BX3    X3*X2

Seq #  *Modification Id* Act 
----------------------------+
11505  M01S09285.dsdi78  ---|          SA1    /DIRECT/PPTB
11506  M01S09286.dsdi78  ---|          SA2    IC

Seq #  *Modification Id* Act 
----------------------------+
11507  M01S00020.dsdi78  +++|          SA1    IC

Seq #  *Modification Id* Act 
----------------------------+
11508  M01S09287.271l739 ---|          BX7    X3

Seq #  *Modification Id* Act 
----------------------------+
11509  M01S00210.271l739 +++|          LX3    47-11

Seq #  *Modification Id* Act 
----------------------------+
11510  M01S09288.dsdi78  ---|          BX1    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
11511  M01S09289.271l739 ---|          ZR     X1,BPN1     IF NOT CPP
11512  M01S09290.271l739 ---|          SA2    BPNC
11513  M01S09291.271l739 ---|          SA1    A2+B1
11514  M01S09292.271l739 ---|          LX7    41-11       POSITION CPP NUMBER FOR HEADER NAME
11515  M01S09293.271l739 ---|          IX6    X1+X7
11516  M01S09294.271l739 ---|          LX7    47-11-41+11 POSITION CPP NUMBER FOR RECORD NAME

Seq #  *Modification Id* Act 
----------------------------+
11517  M01S00211.271l739 +++|          SA2    IPDA
11518  M01S00212.271l739 +++|          ZR     X1,BPN1     IF NOT CPP
11519  M01S00213.271l739 +++|          SA1    BPNB
11520  M01S00214.271l739 +++|          SA2    .CPP        GET CPP RECORD ID
11521  M01S00215.271l739 +++|          IX6    X1+X3
11522  M01S00216.271l739 +++|          LX6    -6
11523  M00S09295.dsdi    +++|          JP     BPN2        SET IN HEADER
11524  M00S09296.dsdi    +++|

Seq #  *Modification Id* Act 
----------------------------+
11525  M01S09297.271l739 ---| BPN1     SA2    IPDA
11526  M01S09298.271l739 ---|          SA2    BPNB+X2
11527  M01S09299.271l739 ---|          LX7    47-11       POSITION PP NUMBER
11528  M01S09300.271l739 ---|          IX6    X7+X2
11529  M01S09301.271l739 ---| BPN2     IX7    X7+X2

Seq #  *Modification Id* Act 
----------------------------+
11530  M01S00217.271l739 +++| BPN1     SA2    .NPP+X2     GET RECORD ID
11531  M01S00218.271l739 +++|          NO
11532  M01S00219.271l739 +++|          IX6    X3+X2
11533  M01S00220.271l739 +++| BPN2     IX7    X3+X2
11534  M01S00221.271l739 +++|          LX3    11-47
11535  M00S09302.dsdi    +++|          SA6    BPNA+1      SET PP HEADER NAME
11536  M00S09303.dsdi    +++|          SA7    A6-B1
11537  M00S09304.dsdi    +++|          MX0    24
11538  M00S09305.dsdi    +++|          JP     BPNX        EXIT
11539  M00S09306.dsdi    +++|
11540  M00S09307.dsdi    +++| BPNA     BSS    1           PP RECORD NAME
11541  M00S09308.dsdi    +++|          BSS    1           PP HEADER NAME

Seq #  *Modification Id* Act 
----------------------------+
11542  M01S09309.271l739 ---| BPNB     CON    4LPP00      PP RECORD NAME
11543  M01S09310.271l739 ---|          CON    4LFP00      FLPP RECORD NAME
11544  M01S09311.271l739 ---| BPNC     VFD    6/0,18/3LD00,36/0  CPP RECORD NAME
11545  M01S09312.271l739 ---|          CON    5LCPP00     CPP HEADER NAME

Seq #  *Modification Id* Act 
----------------------------+
11546  M01S00222.271l739 +++| BPNB     VFD    60/4LPP00+1RC  CPP HEADER NAME

Seq #  *Modification Id* Act 
----------------------------+
11547  M01S00042.283l840 +++| BST      SPACE  4,15
11548  M01S00043.283l840 +++|**        BST - DUMP BUFFER STATUS TABLE.
11549  M01S00044.283l840 +++|*
11550  M01S00045.283l840 +++|*         ENTRY  (BUF) = MST FOLLOWED BY TRT OR MRT.
11551  M01S00046.283l840 +++|*
11552  M01S00047.283l840 +++|*         EXIT   (BUF) = MST AND BST, IF BST PRESENT.
11553  M01S00048.283l840 +++|*
11554  M01S00049.283l840 +++|*         USES   X - 1, 2, 3, 6, 7.
11555  M01S00050.283l840 +++|*                A - 1, 2, 6, 7.
11556  M01S00051.283l840 +++|*                B - 2, 5, 6, 7.
11557  M01S00052.283l840 +++|*
11558  M01S00053.283l840 +++|*         CALLS  CTS, FDW, POM, P4F, SDI, SRD, SSB.
11559  M01S00054.283l840 +++|*
11560  M01S00055.283l840 +++|*         MACROS GETCM, PRINT.
11561  M01S00056.283l840 +++|
11562  M01S00057.283l840 +++|
11563  M01S00058.283l840 +++| BST      SUBR
11564  M01S00059.283l840 +++|          SA1    BUF+BDLL    FWA OF BST
11565  M01S00060.283l840 +++|          LX1    -24
11566  M01S00061.283l840 +++|          SX6    X1
11567  M01S00062.283l840 +++|          ZR     X6,BSTX     IF NO BUFFER STATUS TABLE
11568  M01S00063.283l840 +++|          SA6    CPRA
11569  M01S00064.283l840 +++|          SA6    FW
11570  M01S00065.283l840 +++|          SB2    A6
11571  M01S00066.283l840 +++|          RJ     POM         POSITION TO BST
11572  M01S00067.283l840 +++|          SX7    BSTL        SET BST LENGTH
11573  M01S00068.283l840 +++|          SA7    LW          SET BST LWA+1
11574  M01S00069.283l840 +++|          GETCM  BUF+MSTXL,X7  READ BST INTO *BUF*
11575  M01S00070.283l840 +++|          PRINT  (=2C  )
11576  M01S00071.283l840 +++|          PRINT  (=C*          BUFFER STATUS TABLE*)
11577  M01S00072.283l840 +++|          PRINT  (=2C  )
11578  M01S00073.283l840 +++|          MX7    1
11579  M01S00074.283l840 +++|          SA7    SRDA        PRESET FIRST CALL TO *SRD*
11580  M01S00075.283l840 +++|          SX6    B0
11581  M01S00076.283l840 +++|          SA6    BSTA        CLEAR LINK ORDINAL
11582  M01S00077.283l840 +++|          SA6    BSTB        CLEAR DATA WORD ORDINAL
11583  M01S00078.283l840 +++|          SA6    SRDC+5      STOP DASHES AFTER 50 CHARACTERS
11584  M01S00079.283l840 +++|          RJ     SSB         CLEAR PRINT STRING
11585  M01S00080.283l840 +++| BST1     SA1    BSTB        SET DATA ADDRESS
11586  M01S00081.283l840 +++|          SX1    X1+BUF+MSTXL
11587  M01S00082.283l840 +++|          SB5    1           SET WORD COUNT
11588  M01S00083.283l840 +++|          RJ     SRD         SENSE REPEAT DATA
11589  M01S00084.283l840 +++|          NZ     X1,BST2     IF REPEAT SENSED
11590  M01S00085.283l840 +++|          SA1    FW          GET BST ADDRESS
11591  M01S00086.283l840 +++|          SA2    BSTB
11592  M01S00087.283l840 +++|          IX1    X1+X2
11593  M01S00088.283l840 +++|          LX1    -18
11594  M01S00089.283l840 +++|          SB6    6
11595  M01S00090.283l840 +++|          SB7    PRBF
11596  M01S00091.283l840 +++|          RJ     CTS         CONVERT BST ADDRESS
11597  M01S00092.283l840 +++|          SB7    B7+B1
11598  M01S00093.283l840 +++|          SX6    1R+
11599  M01S00094.283l840 +++|          SA6    B7
11600  M01S00095.283l840 +++|          SB7    B7+B1
11601  M01S00096.283l840 +++|          SA1    BSTA        BUFFER ORDINAL
11602  M01S00097.283l840 +++|          LX1    -12
11603  M01S00098.283l840 +++|          SB6    4
11604  M01S00099.283l840 +++|          RJ     CTS         CONVERT BUFFER ORDINAL
11605  M01S00100.283l840 +++|          SB7    B7+2
11606  M01S00101.283l840 +++|          SA2    =4000005B
11607  M01S00102.283l840 +++|          SA1    BSTB        READ BST DATA WORD
11608  M01S00103.283l840 +++|          SA1    X1+BUF+MSTXL
11609  M01S00104.283l840 +++|          RJ     FDW         FORMAT DATA WORD
11610  M01S00105.283l840 +++|          SA2    BSTB        RE-READ DATA WORD
11611  M01S00106.283l840 +++|          SA2    X2+BUF+MSTXL
11612  M01S00107.283l840 +++|          SB7    B7+2
11613  M01S00108.283l840 +++|          SB6    10
11614  M01S00109.283l840 +++|          RJ     SDI         SET DISPLAY CODE INTERPRETATION
11615  M01S00110.283l840 +++|          PRINT  CCCH,B7-CCCH
11616  M01S00111.283l840 +++| BST2     SA1    BSTA
11617  M01S00112.283l840 +++|          SX6    X1+20B
11618  M01S00113.283l840 +++|          SA6    A1+         UPDATE BUFFER ORDINAL
11619  M01S00114.283l840 +++|          SA1    BSTB
11620  M01S00115.283l840 +++|          SX6    X1+B1
11621  M01S00116.283l840 +++|          SA6    A1+         UPDATE BST ADDRESS
11622  M01S00117.283l840 +++|          SA2    LW
11623  M01S00118.283l840 +++|          IX3    X6-X2
11624  M01S00119.283l840 +++|          NG     X3,BST1     IF MORE TO DUMP
11625  M01S00120.283l840 +++|          SA1    SRDC+1
11626  M01S00121.283l840 +++|          BX6    X1
11627  M01S00122.283l840 +++|          SA6    SRDC+5      RESET DASHES FOR 136 CHARACTERS
11628  M01S00123.283l840 +++|          JP     BSTX        EXIT
11629  M01S00124.283l840 +++|
11630  M01S00125.283l840 +++| BSTA     BSS    1           TRACK LINK ORDINAL
11631  M01S00126.283l840 +++| BSTB     BSS    1           BST DATA WORD ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
11632  M01S00001.dsdi79  +++| CCM      SPACE  4,5

Proceed to Part 8