Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.tdump   +++|          IDENT  TDUMP,ASEM
00002  M00S00002.tdump   +++|          ABS
00003  M00S00003.tdump   +++|          ENTRY  TDUMP
00004  M00S00004.tdump   +++|          ENTRY  RFL=
00005  M00S00005.tdump   +++|          SST    LREC
00006  M00S00006.tdump   +++|          TITLE  TDUMP - FILE DUMP.
00007  M00S00007.tdump   +++|          SYSCOM B1
00008  M00S00008.tdump   +++|          SPACE  4
00009  M00S00009.tdump   +++|*COMMENT  TDUMP - FILE DUMP.

Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00010.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1972.

Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M00S00011.tdump   +++|          SPACE  4
00013  M00S00012.tdump   +++|***       TDUMP - FILE DUMP.
00014  M00S00013.tdump   +++|*         R. N. LAGERSTROM.  70/03/05.
00015  M00S00014.tdump   +++|*         D. A. HIVELEY.     72/05/16.
00016  M00S00015.tdump   +++|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00016.tdump2  ---|***       TDUMP WILL LIST A FILE IN OCTAL AND/OR ALPHANUMERIC FORM.

Seq #  *Modification Id* Act 
----------------------------+
00018  M01S00001.tdump2  +++|***       TDUMP WILL LIST A FILE IN OCTAL, ALPHANUMERIC OR HEXADECIMAL

Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00002.tdump4  ---|*         FORM.  BY DEFAULT, AN OCTAL/ALPHANUMERIC DUMP IS PERFORMED ON
00020  M02S00003.tdump4  ---|*         THE ENTIRE DATA FILE.

Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00001.tdump4  +++|*         FORM.  ANY OR ALL OF THE THREE FORMS MAY BE SELECTED IN ANY
00022  M01S00002.tdump4  +++|*         COMBINATION.  EACH LINE OF THE DUMP IS LISTED IN EACH OF THE
00023  M01S00003.tdump4  +++|*         SELECTED FORMS - OCTAL, ALPHANUMERIC, AND/OR HEXADECIMAL, IN
00024  M01S00004.tdump4  +++|*         THAT ORDER.  BY DEFAULT, AN OCTAL/ALPHANUMERIC DUMP IS DONE
00025  M01S00005.tdump4  +++|*         ON THE ENTIRE DATA FILE.
00026  M00S00017.tdump   +++|          SPACE  4
00027  M00S00018.tdump   +++|***       CONTROL CARD CALL.
00028  M00S00019.tdump   +++|*
00029  M00S00020.tdump   +++|*         TDUMP(P1,P2,...,PN)
00030  M00S00021.tdump   +++|*
00031  M00S00022.tdump   +++|*         WHERE PN CAN BE -
00032  M00S00023.tdump   +++|*         I=FN   INPUT FILE NAME (DEFAULT = TAPE1).
00033  M00S00024.tdump   +++|*         L=FN   OUTPUT FILE NAME (DEFAULT = OUTPUT).

Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00025.tdump4  ---|*         O      OCTAL DUMP ONLY (DEFAULT = O AND A).
00035  M01S00026.tdump4  ---|*         A      ALPHANUMERIC DUMP ONLY (DEFAULT = O AND A).

Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00004.tdump4  ---|*         H      HEXADECIMAL DUMP ONLY.

Seq #  *Modification Id* Act 
----------------------------+
00037  M01S00006.tdump4  +++|*         O      OCTAL DUMP (DEFAULT = O AND A).
00038  M01S00007.tdump4  +++|*         A      ALPHANUMERIC DUMP (DEFAULT = O AND A).
00039  M01S00008.tdump4  +++|*         H      HEXADECIMAL DUMP (DEFAULT = O AND A).
00040  M00S00027.tdump   +++|*         R=NN   RECORD COUNT(DECIMAL) (DEFAULT = TO EOI).
00041  M00S00028.tdump   +++|*         F=NN   FILE COUNT(DECIMAL) (DEFAULT = TO EOI).
00042  M00S00029.tdump   +++|*         F=0    DUMP TO DOUBLE EOF (EMPTY FILE)
00043  M00S00030.tdump   +++|*         N=NN   LINE LIMIT OF DUMP(DECIMAL) (DEFAULT = INFINITE).

Seq #  *Modification Id* Act 
----------------------------+
00044  M01S00001.tdump3  +++|*         C      READ FILE I IN CODED MODE (DEFAULT = BINARY MODE).
00045  M00S00031.tdump   +++|*         NR     DO NOT REWIND FILE I BEFORE DUMP (DEFAULT = REWIND).

Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00001.tdump1  +++|*         CW     PRINT CONTROL WORDS IF DEFINED ON DEVICE TYPE.
00047  M00S00032.tdump   +++|          SPACE  4
00048  M00S00033.tdump   +++|*CALL     COMCMAC

Seq #  *Modification Id* Act 
----------------------------+
00049  M01S00001.ns22000 +++|*CALL     COMCCMD
00050  M00S00034.tdump   +++| READO    SPACE  4
00051  M00S00035.tdump   +++|**        READO - REDEFINE READ WORD MACRO TO USE CONTROL WORD READS.
00052  M00S00036.tdump   +++|
00053  M00S00037.tdump   +++|          PURGMAC  READO
00054  M00S00038.tdump   +++|
00055  M00S00039.tdump   +++| READO    MACRO  F
00056  M00S00040.tdump   +++|          SA1    F+2
00057  M00S00041.tdump   +++|          RJ     RDA
00058  M00S00042.tdump   +++|          ENDM
00059  M00S00043.tdump   +++|          TITLE  EQUIVALENCES AND CONSTANTS.
00060  M00S00044.tdump   +++| OLWSL    EQU    136         LINE LENGTH (CHARACTERS)

Seq #  *Modification Id* Act 
----------------------------+
00061  M01S00045.tdump1  ---| BUFOL    EQU    64*6+1      LENGTH OF *OUTPUT* BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00062  M01S00002.tdump1  +++| BUFOL    EQU    512*2+1     LENGTH OF OUTPUT BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00063  M01S00046.tdump5  ---| BUFFL    EQU    4011B       LENGTH OF *TAPE1* BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00064  M01S00001.tdump5  +++| BUFFL    EQU    20011B      LENGTH OF *TAPE1* BUFFER
00065  M01S00002.tdump5  +++| ODFEL    EQU    16          OPTICAL DISK FET EXTENSION LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00066  M01S00009.tdump4  +++| OPBO     EQU    0           BIT FOR OPTION O (OCTAL DUMP)
00067  M01S00010.tdump4  +++| OPVO     EQU    1S0         VALUE FOR OPTION O
00068  M01S00011.tdump4  +++| OPBA     EQU    1           BIT FOR OPTION A (ALPHANUMERIC DUMP)
00069  M01S00012.tdump4  +++| OPVA     EQU    1S1         VALUE FOR OPTION A
00070  M01S00013.tdump4  +++| OPBH     EQU    2           BIT FOR OPTION H (HEXADECIMAL DUMP)
00071  M01S00014.tdump4  +++| OPVH     EQU    1S2         VALUE FOR OPTION H
00072  M00S00047.tdump   +++|          SPACE  4
00073  M00S00048.tdump   +++|          ORG    110B
00074  M00S00049.tdump   +++| ASEM     EQU    *
00075  M00S00050.tdump   +++| RECT     CON    1           RECORD COUNT
00076  M00S00051.tdump   +++| FLCT     CON    1           FILE COUNT
00077  M00S00052.tdump   +++| PGCT     CON    1           PAGE COUNT
00078  M00S00053.tdump   +++| WDCT     CON    0           WORD COUNT
00079  M00S00054.tdump   +++| RPCT     CON    0           REPEAT COUNT - SKIPPED LINES
00080  M00S00055.tdump   +++| TLCT     CON    0           TOTAL LINE COUNT
00081  M00S00056.tdump   +++| LILM     DATA   1C0         LINE LIMIT
00082  M00S00057.tdump   +++| LREC     DATA   1C0         RECORD LIMIT
00083  M00S00058.tdump   +++| LFLC     DATA   0L999999    FILE LIMIT (EOI)
00084  M00S00059.tdump   +++| REWD     CON    0           REWIND FILE

Seq #  *Modification Id* Act 
----------------------------+
00085  M01S00060.ns22000 ---| LSCT     CON    LINP+1      LINE COUNT ON PAGE

Seq #  *Modification Id* Act 
----------------------------+
00086  M01S00002.ns22000 +++| LSCT     CON    99999,0     LINE COUNT ON PAGE
00087  M01S00003.ns22000 +++| LL       EQU    LSCT+1      LINE LIMIT
00088  M00S00061.tdump   +++| SCPC     CON    0           BYTE POSITION

Seq #  *Modification Id* Act 
----------------------------+
00089  M01S00062.tdump4  ---| OPWD     CON    3           OPTION CONTROL WORD (PRESET TO OCTAL/ALPHA)

Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00015.tdump4  +++| OPWD     CON    OPVO+OPVA   OPTION CONTROL WORD (PRESET OCTAL/ALPHA)
00091  M00S00063.tdump   +++| EQTW     CON    0           EQUIVALENCE TEST WORD
00092  M00S00064.tdump   +++| EOFL     CON    0           END OF FILE FLAG
00093  M00S00065.tdump   +++| DTOL     BSSZ   4           DATA FOR ONE LINE
00094  M00S00066.tdump   +++| WCBL     CON    0           BEGINNING OF LINE WORD COUNT
00095  M00S00067.tdump   +++| TCCS     CON    0           TERMINAL-S CURRENT CHARACTER SET
00096  M00S00068.tdump   +++| TSRW     BSSZ   2           TERMINAL STATUS REPLY WORDS
00097  M00S00069.tdump   +++| TF       CON    1           ZERO IF TERMINAL FILE

Seq #  *Modification Id* Act 
----------------------------+
00098  M01S00002.tdump3  +++| CODD     CON    0           INPUT FILE MODE (0=BINARY, 2=CODED)
00099  M00S00070.tdump   +++| CW       CON    0           CONTROL WORD FLAG (1=LEGAL)

Seq #  *Modification Id* Act 
----------------------------+
00100  M01S00003.tdump1  +++| CWDS     CON    0           CONTROL WORD DUMP SELECTED (1=SELECTED)
00101  M00S00071.tdump   +++|
00102  M00S00072.tdump   +++|*         WORDS/LINE TABLE INDEXED BY *TF*.
00103  M00S00073.tdump   +++|
00104  M00S00074.tdump   +++| WPLT     BSS    0
00105  M00S00075.tdump   +++|          CON    2           TERMINAL
00106  M00S00076.tdump   +++|          CON    4           NON-TERMINAL
00107  M00S00077.tdump   +++|          TITLE  MAIN PROGRAM.
00108  M00S00078.tdump   +++|*         MAIN ROUTINE.
00109  M00S00079.tdump   +++|
00110  M00S00080.tdump   +++| TDM      SA1    CW          CHECK CONTROL WORDS LEGAL
00111  M00S00081.tdump   +++|          ZR     X1,TDM0     IF CONTROL WORDS NOT LEGAL
00112  M00S00082.tdump   +++|          MX6    1           SET FIRST READ FLAG
00113  M00S00083.tdump   +++|          SA6    F-2
00114  M00S00084.tdump   +++|          READCW F,17B       INITIAL FILE READ
00115  M00S00085.tdump   +++|          JP     TDM1
00116  M00S00086.tdump   +++|
00117  M00S00087.tdump   +++| TDM0     READ   F           NORMAL FILE READ
00118  M00S00088.tdump   +++|
00119  M00S00089.tdump   +++| TDM1     SA0    B0          CLEAR ENTRY POSITION
00120  M00S00090.tdump   +++|          BX6    X6-X6
00121  M00S00091.tdump   +++|          SA6    WDCT        CLEAR WORD COUNT
00122  M00S00092.tdump   +++|          SA6    WCBL        CLEAR BEGINNING OF LINE COUNT
00123  M00S00093.tdump   +++| TDM1.1   READO  F           READ WORD FROM FILE
00124  M00S00094.tdump   +++|          NZ     X1,TDM5     IF EOR OR EOF
00125  M00S00095.tdump   +++|          BX7    X7-X7
00126  M00S00096.tdump   +++|          SX2    B1
00127  M00S00097.tdump   +++|          SA7    EOFL        CLEAR EOF FLAG
00128  M00S00098.tdump   +++|          SA6    DTOL+A0     STORE IN LINE WORD BUFFER
00129  M00S00099.tdump   +++|          SA1    WDCT
00130  M00S00100.tdump   +++|          IX6    X1+X2       ADVANCE WORD COUNT
00131  M00S00101.tdump   +++|          SA6    A1
00132  M00S00102.tdump   +++|          SA0    A0+B1       ADVANCE POSITION COUNT
00133  M00S00103.tdump   +++|          SA1    TF
00134  M00S00104.tdump   +++|          SA2    X1+WPLT
00135  M00S00105.tdump   +++|          SB2    X2
00136  M00S00106.tdump   +++|          SX1    A0-B2
00137  M00S00107.tdump   +++|          NZ     X1,TDM1.1   IF NOT FULL LINE
00138  M00S00108.tdump   +++|          SA4    WPLT        TERMINAL WORD COUNT
00139  M00S00109.tdump   +++|          SB3    X4
00140  M00S00110.tdump   +++|          SA1    DTOL        WORD 1
00141  M00S00111.tdump   +++|          SA2    A1+B1
00142  M00S00112.tdump   +++|          SA3    A2+B1
00143  M00S00113.tdump   +++|          SA4    A3+B1       WORD 4
00144  M00S00114.tdump   +++|          BX6    X1-X2       X6 = DIFF(1-2)
00145  M00S00115.tdump   +++|          EQ     B2,B3,TDM1.2  IF TERMINAL
00146  M00S00116.tdump   +++|          BX7    X1-X3
00147  M00S00117.tdump   +++|          BX6    X6+X7       X6 = DIFF(1-2-3)
00148  M00S00118.tdump   +++|          BX7    X1-X4
00149  M00S00119.tdump   +++|          BX6    X6+X7       X6 = DIFF(1-2-3-4)
00150  M00S00120.tdump   +++| TDM1.2   NZ     X6,TDM1.3   IF NOT ALL SAME ON LINE
00151  M00S00121.tdump   +++|          PL     X6,TDM4     IF ALL SAME ON LINE
00152  M00S00122.tdump   +++| TDM1.3   BSS    0
00153  M00S00123.tdump   +++|          SA1    RPCT
00154  M00S00124.tdump   +++|          NZ     X1,TDM3     IF LINES BEING SKIPPED
00155  M00S00125.tdump   +++| TDM2     RJ     FML         FORMAT LIST LINE(S)
00156  M00S00126.tdump   +++|          SA0    B0          CLEAR POSITION COUNT
00157  M00S00127.tdump   +++|          ZR     X1,TDM1.1   IF NO LIMIT REACHED
00158  M00S00128.tdump   +++|          EQ     TDM10       PROCESS LIMIT
00159  M00S00129.tdump   +++|
00160  M00S00130.tdump   +++| TDM2.5   BX7    X3          USE OLD REPEAT COUNT
00161  M00S00131.tdump   +++|          SA7    A3
00162  M00S00132.tdump   +++| TDM3     BX7    X7-X7
00163  M00S00133.tdump   +++|          SA2    RPCT
00164  M00S00134.tdump   +++|          SA7    A2          ZERO SUPPRESSING COUNT
00165  M00S00135.tdump   +++|          AX2    1
00166  M00S00136.tdump   +++|          ZR     X2,TDM2     IF ONE LINE ONLY
00167  M00S00137.tdump   +++|          WRITEC O,MALR      WRITE LINES REPEATED
00168  M00S00138.tdump   +++|          RJ     CPL
00169  M00S00139.tdump   +++|          EQ     TDM2
00170  M00S00140.tdump   +++|
00171  M00S00141.tdump   +++| TDM4     SA4    EQTW        PREVIOUS IDENTITY LINE
00172  M00S00142.tdump   +++|          SA3    RPCT        SKIP COUNT
00173  M00S00143.tdump   +++|          BX6    X1
00174  M00S00144.tdump   +++|          BX1    X1-X4
00175  M00S00145.tdump   +++|          SA6    A4          STORE NEW IDENTITY
00176  M00S00146.tdump   +++|          SX7    X3+B1       ADVANCE SKIP COUNT
00177  M00S00147.tdump   +++|          SA7    A3
00178  M00S00148.tdump   +++|          ZR     X3,TDM2     IF NO SUPPRESSION RUNNING
00179  M00S00149.tdump   +++|          NZ     X1,TDM2.5   IF PREVIOUS SUPPRESSION NOT CONTINUED
00180  M00S00150.tdump   +++|          NG     X1,TDM2.5   IF PREVIOUS SUPPRESSION NOT CONTINUED
00181  M00S00151.tdump   +++|          SA2    WDCT
00182  M00S00152.tdump   +++|          BX7    X2
00183  M00S00153.tdump   +++|          SA0    B0          RESET WORD COUNT
00184  M00S00154.tdump   +++|          SA7    WCBL
00185  M00S00155.tdump   +++|          JP     TDM1.1      GET NEXT WORD
00186  M00S00156.tdump   +++|
00187  M00S00157.tdump   +++| TDM5     NG     X1,TDM6     IF EOF
00188  M00S00158.tdump   +++|          RJ     TDS
00189  M00S00159.tdump   +++|          WRITEC O,MEOR      WRITE EOR MESSAGE
00190  M00S00160.tdump   +++|          RJ     WBL
00191  M00S00161.tdump   +++|          RJ     CPL
00192  M00S00162.tdump   +++|          SA1    RECT
00193  M00S00163.tdump   +++|          SX7    X1+B1
00194  M00S00164.tdump   +++|          SA7    A1          ADVANCE RECORD COUNT
00195  M00S00165.tdump   +++|          RJ     CKL
00196  M00S00166.tdump   +++|          NZ     X1,TDM10    IF LIMIT REACHED
00197  M00S00167.tdump   +++|          SA1    CW          CHECK TYPE OF READ FOR NEXT RECORD
00198  M00S00168.tdump   +++|          ZR     X1,TDM0     IF NO CONTROL WORDS, ISSUE STANDARD READ
00199  M00S00169.tdump   +++|          JP     TDM1        ELSE, FETCH FROM BUFFER
00200  M00S00170.tdump   +++|
00201  M00S00171.tdump   +++| TDM6     SA1    EOFL
00202  M00S00172.tdump   +++|          SA2    LFLC
00203  M00S00173.tdump   +++|          SX6    X1+B1       ADVANCE EOF FLAG
00204  M00S00174.tdump   +++|          NZ     X2,TDM7     IF FILE LIMIT REQUESTED
00205  M00S00175.tdump   +++|          SA6    A1
00206  M00S00176.tdump   +++|          AX6    1
00207  M00S00177.tdump   +++|          NZ     X6,TDM9     IF DOUBLE EOF TERMINATION
00208  M00S00178.tdump   +++| TDM7     SA1    F
00209  M00S00179.tdump   +++|          LX1    59-0
00210  M00S00180.tdump   +++|          NG     X1,TDM8     IF FILE NOT BUSY
00211  M00S00181.tdump   +++|          RECALL F
00212  M00S00182.tdump   +++|          EQ     TDM7
00213  M00S00183.tdump   +++|
00214  M00S00184.tdump   +++| TDM8     LX1    60-9
00215  M00S00185.tdump   +++|          NG     X1,TDM9     IF END OF INFORMATION
00216  M00S00186.tdump   +++|          RJ     TDS
00217  M00S00187.tdump   +++|          WRITEC O,MEOF      WRITE EOF MESSAGE
00218  M00S00188.tdump   +++|          RJ     WBL
00219  M00S00189.tdump   +++|          RJ     CPL
00220  M00S00190.tdump   +++|          SX6    B1
00221  M00S00191.tdump   +++|          SA6    RECT        RESET RECORD COUNT
00222  M00S00192.tdump   +++|          SA2    FLCT
00223  M00S00193.tdump   +++|          SX7    X2+B1
00224  M00S00194.tdump   +++|          SA7    A2          ADVANCE FILE COUNT
00225  M00S00195.tdump   +++|          RJ     CKL
00226  M00S00196.tdump   +++|          ZR     X1,TDM      IF NO LIMIT, GET NEXT FILE
00227  M00S00197.tdump   +++|          EQ     TDM10       LIMIT TERMINATION
00228  M00S00198.tdump   +++|
00229  M00S00199.tdump   +++| TDM9     RJ     TDS
00230  M00S00200.tdump   +++|          SX1    MEOI
00231  M00S00201.tdump   +++| TDM10    WRITEC O,X1        WRITE TERMINATION MESSAGE
00232  M00S00202.tdump   +++|          RJ     WBL
00233  M00S00203.tdump   +++|          RJ     CPL
00234  M00S00204.tdump   +++|          WRITEC O,MEOD      WRITE END OF DUMP
00235  M00S00205.tdump   +++|          WRITEF O
00236  M00S00206.tdump   +++|          MESSAGE TDMA
00237  M00S00207.tdump   +++|          ENDRUN
00238  M00S00208.tdump   +++|
00239  M00S00209.tdump   +++|
00240  M00S00210.tdump   +++| TDMA     DATA   C* TDUMP COMPLETE.*
00241  M00S00211.tdump   +++|          TITLE  SUBROUTINES.
00242  M00S00212.tdump   +++| BSB      SPACE  4
00243  M00S00213.tdump   +++|**        BSB - BLANK FILL STRING BUFFER.
00244  M00S00214.tdump   +++|*
00245  M00S00215.tdump   +++|*         ENTRY  NONE.
00246  M00S00216.tdump   +++|*
00247  M00S00217.tdump   +++|*         EXIT   (OWLS)      BLANK FILLED.
00248  M00S00218.tdump   +++|*
00249  M00S00219.tdump   +++|*         USES   A - 7.
00250  M00S00220.tdump   +++|*                X - 7.
00251  M00S00221.tdump   +++|*                B - 6, 7.
00252  M00S00222.tdump   +++|
00253  M00S00223.tdump   +++|
00254  M00S00224.tdump   +++| BSB      SUBR               ENTRY/EXIT
00255  M00S00225.tdump   +++|          SX7    1R
00256  M00S00226.tdump   +++|          SB7    OLWS+OLWSL
00257  M00S00227.tdump   +++|          SB6    OLWS
00258  M00S00228.tdump   +++| BSB1     SA7    B6
00259  M00S00229.tdump   +++|          SB6    B6+B1
00260  M00S00230.tdump   +++|          NE     B6,B7,BSB1  IF NOT BLANK FILLED
00261  M00S00231.tdump   +++|          EQ     BSBX        RETURN
00262  M00S00232.tdump   +++| CKL      SPACE  4
00263  M00S00233.tdump   +++|**        CKL - CHECK LIMITS ON ALL COUNTERS.
00264  M00S00234.tdump   +++|*
00265  M00S00235.tdump   +++|*         ENTRY  (TLCT), (RECT), (FLCT) CHECKED FOR LIMITS AGAINST
00266  M00S00236.tdump   +++|*                (LILM), (LREC), (LFLC).
00267  M00S00237.tdump   +++|*
00268  M00S00238.tdump   +++|*         EXIT   (X1) = 0    IF NO LIMIT REACHED.
00269  M00S00239.tdump   +++|*                            ELSE, ADDRESS OF LIMIT MESSAGE.
00270  M00S00240.tdump   +++|*
00271  M00S00241.tdump   +++|*         USES   A - 1, 2.
00272  M00S00242.tdump   +++|*                X - 1, 2.
00273  M00S00243.tdump   +++|
00274  M00S00244.tdump   +++|
00275  M00S00245.tdump   +++| CKL      SUBR               ENTRY/EXIT
00276  M00S00246.tdump   +++|          SA1    LILM
00277  M00S00247.tdump   +++|          ZR     X1,CKL1     IF NO LINE LIMIT
00278  M00S00248.tdump   +++|          SA2    TLCT
00279  M00S00249.tdump   +++|          IX2    X1-X2       (LIMIT)-(TOTAL LINE COUNT)
00280  M00S00250.tdump   +++|          SX1    MLLN        SET LINE LIMIT
00281  M00S00251.tdump   +++|          NG     X2,CKLX     IF LINE LIMIT
00282  M00S00252.tdump   +++| CKL1     SA1    LREC
00283  M00S00253.tdump   +++|          ZR     X1,CKL2     IF NO RECORD LIMIT
00284  M00S00254.tdump   +++|          SA2    RECT
00285  M00S00255.tdump   +++|          IX2    X1-X2       (LIMIT)-(RECORD COUNT)
00286  M00S00256.tdump   +++|          SX1    MLRN        SET RECORD LIMIT
00287  M00S00257.tdump   +++|          NG     X2,CKLX     IF RECORD LIMIT
00288  M00S00258.tdump   +++| CKL2     SA1    LFLC
00289  M00S00259.tdump   +++|          ZR     X1,CKL3     IF DUMPING TO DOUBLE EOF
00290  M00S00260.tdump   +++|          SA2    FLCT
00291  M00S00261.tdump   +++|          IX2    X1-X2       (LIMIT)-(FILE COUNT)
00292  M00S00262.tdump   +++|          SX1    MLFN        SET FILE LIMIT
00293  M00S00263.tdump   +++|          NG     X2,CKLX     IF FILE LIMIT
00294  M00S00264.tdump   +++| CKL3     BX1    X1-X1
00295  M00S00265.tdump   +++|          EQ     CKLX        RETURN IF NO LIMITS REACHED
00296  M00S00266.tdump   +++| CPL      SPACE  4
00297  M00S00267.tdump   +++|**        CPL - CHECK PAGE LIMIT.
00298  M00S00268.tdump   +++|*
00299  M00S00269.tdump   +++|*         ENTRY  (LSCT)      LINE COUNT ON PAGE.
00300  M00S00270.tdump   +++|*                (TLCT)      TOTAL LINE COUNT.
00301  M00S00271.tdump   +++|*
00302  M00S00272.tdump   +++|*         EXIT   (LSCT)      ADVANCED BY 1 AND PAGE HEADER WRITTEN
00303  M00S00273.tdump   +++|*                            AND RESET IF NECESSARY.
00304  M00S00274.tdump   +++|*                (TLCT)      ALWAYS ADVANCED.
00305  M00S00275.tdump   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00306  M01S00276.ns22000 ---|*         CALLS  WTC, CDD.
00307  M01S00277.ns22000 ---|*
00308  M01S00278.ns22000 ---|*         USES   ALL REGISTERS EXCEPT A0, X0, A5 AND X5.

Seq #  *Modification Id* Act 
----------------------------+
00309  M01S00004.ns22000 +++|*         USES   X - 1, 2, 3, 6, 7.
00310  M01S00005.ns22000 +++|*                A - 1, 2, 3, 6, 7.
00311  M01S00006.ns22000 +++|*
00312  M01S00007.ns22000 +++|*         CALLS  CDD.
00313  M01S00008.ns22000 +++|*
00314  M01S00009.ns22000 +++|*         MACROS CLOCK, WRITEC.
00315  M00S00279.tdump   +++|
00316  M00S00280.tdump   +++|
00317  M00S00281.tdump   +++| CPL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00318  M01S00282.ns22000 ---| CPL1     SA1    LSCT

Seq #  *Modification Id* Act 
----------------------------+
00319  M01S00010.ns22000 +++|          SA1    LSCT
00320  M00S00283.tdump   +++|          SA2    TLCT

Seq #  *Modification Id* Act 
----------------------------+
00321  M01S00284.ns22000 ---|          SX7    X2+B1       ADVANCE TOTAL LINE COUNT
00322  M01S00285.ns22000 ---|          SA7    A2

Seq #  *Modification Id* Act 
----------------------------+
00323  M01S00011.ns22000 +++|          SX6    X2+B1       ADVANCE TOTAL LINE COUNT
00324  M01S00012.ns22000 +++|          SA6    A2
00325  M00S00286.tdump   +++|          SA3    TF
00326  M00S00287.tdump   +++|          ZR     X3,CPLX     IF TERMINAL FILE
00327  M00S00288.tdump   +++|          SX7    X1+B1       ADVANCE LINES ON PAGE
00328  M00S00289.tdump   +++|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
00329  M01S00290.ns22000 ---|          SX7    X7-LINP
00330  M01S00291.ns22000 ---|          NG     X7,CPLX     IF NOT END OF PAGE
00331  M01S00292.ns22000 ---|          SX7    B1

Seq #  *Modification Id* Act 
----------------------------+
00332  M01S00013.ns22000 +++|          SA3    A1+B1
00333  M01S00014.ns22000 +++|          IX7    X7-X3
00334  M01S00015.ns22000 +++|          NG     X7,CPLX     IF NOT END OF PAGE
00335  M01S00016.ns22000 +++|          SX7    B1+B1
00336  M01S00017.ns22000 +++|          IX6    X6+X7       ADVANCE TOTAL LINE COUNT
00337  M01S00018.ns22000 +++|          SA6    A2
00338  M00S00293.tdump   +++|          SA7    A1          CLEAR LINES ON PAGE
00339  M00S00294.tdump   +++|          SA1    PGCT
00340  M00S00295.tdump   +++|          SX7    X1+B1       ADVANCE PAGE COUNT
00341  M00S00296.tdump   +++|          SA7    A1
00342  M00S00297.tdump   +++|          RJ     CDD         CONVERT PAGE NUMBER
00343  M00S00298.tdump   +++|          SA1    HDRMD
00344  M00S00299.tdump   +++|          MX2    30
00345  M00S00300.tdump   +++|          BX7    X2*X1
00346  M00S00301.tdump   +++|          BX6    -X2*X6
00347  M00S00302.tdump   +++|          BX7    X6+X7
00348  M00S00303.tdump   +++|          SA7    A1          STORE PAGE NUMBER IN HEADER
00349  M00S00304.tdump   +++|          CLOCK  HDRMC
00350  M00S00305.tdump   +++|          WRITEC O,HDRM      WRITE HEADER
00351  M00S00306.tdump   +++|          WRITEC O,WBLA      WRITE BLANK LINE

Seq #  *Modification Id* Act 
----------------------------+
00352  M01S00307.ns22000 ---|          SA1    TLCT
00353  M01S00308.ns22000 ---|          SX7    X1+B1       ADVANCE TOTAL LINE COUNT
00354  M01S00309.ns22000 ---|          SA7    A1
00355  M01S00310.ns22000 ---|          EQ     CPL1        ADVANCE LINES ON PAGE AND RETURN

Seq #  *Modification Id* Act 
----------------------------+
00356  M01S00019.ns22000 +++|          EQ     CPLX        RETURN
00357  M00S00311.tdump   +++| ELH      SPACE  4
00358  M00S00312.tdump   +++|**        ELH - ENTER DUMP LINE HEADER.
00359  M00S00313.tdump   +++|*
00360  M00S00314.tdump   +++|*         ENTRY  (FLCT)      FILE COUNT.
00361  M00S00315.tdump   +++|*                (RECT)      RECORD COUNT.
00362  M00S00316.tdump   +++|*                (WDCT)      WORD COUNT.
00363  M00S00317.tdump   +++|*
00364  M00S00318.tdump   +++|*         EXIT   LINE BUFFER CLEARED AND HEADER DATA INSERTED.
00365  M00S00319.tdump   +++|*
00366  M00S00320.tdump   +++|*         CALLS  BSB, COD, ESB.
00367  M00S00321.tdump   +++|*
00368  M00S00322.tdump   +++|*         USES   A - 1, 2, 7.
00369  M00S00323.tdump   +++|*                X - 1, 2, 3, 4, 6, 7.
00370  M00S00324.tdump   +++|*                B - 2, 3, 4, 6, 7.
00371  M00S00325.tdump   +++|
00372  M00S00326.tdump   +++|
00373  M00S00327.tdump   +++| ELH      SUBR               ENTRY/EXIT
00374  M00S00328.tdump   +++|          RJ     BSB         BLANK STRING BUFFER
00375  M00S00329.tdump   +++|
00376  M00S00330.tdump   +++|*         SET FILE COUNT.
00377  M00S00331.tdump   +++|
00378  M00S00332.tdump   +++|          SA1    FLCT
00379  M00S00333.tdump   +++|          RJ     COD         CONVERT FILE COUNT
00380  M00S00334.tdump   +++|          SX7    1RF
00381  M00S00335.tdump   +++|          SA7    OLWS+1      STORE FILE IDENTIFIER
00382  M00S00336.tdump   +++|          SB7    A7+B1
00383  M00S00337.tdump   +++|          MX1    3
00384  M00S00338.tdump   +++|          LX6    48          POSITION CONVERTED DIGITS
00385  M00S00339.tdump   +++|          RJ     ESB         ENTER FILE COUNT
00386  M00S00340.tdump   +++|
00387  M00S00341.tdump   +++|*         SET RECORD COUNT.
00388  M00S00342.tdump   +++|
00389  M00S00343.tdump   +++|          SA1    RECT
00390  M00S00344.tdump   +++|          RJ     COD         CONVERT RECORD COUNT
00391  M00S00345.tdump   +++|          SX7    1RR
00392  M00S00346.tdump   +++|          SA7    B7+B1       STORE RECORD IDENTIFIER
00393  M00S00347.tdump   +++|          SB7    A7+B1
00394  M00S00348.tdump   +++|          MX1    4
00395  M00S00349.tdump   +++|          LX6    42
00396  M00S00350.tdump   +++|          RJ     ESB         ENTER RECORD COUNT
00397  M00S00351.tdump   +++|
00398  M00S00352.tdump   +++|*         SET WORD COUNT.
00399  M00S00353.tdump   +++|
00400  M00S00354.tdump   +++|          SA1    WCBL
00401  M00S00355.tdump   +++|          RJ     COD         CONVERT WORD COUNT
00402  M00S00356.tdump   +++|          SX7    1RW
00403  M00S00357.tdump   +++|          SA7    B7+B1       STORE WORD IDENTIFIER
00404  M00S00358.tdump   +++|          SB7    A7+B1
00405  M00S00359.tdump   +++|          MX1    6
00406  M00S00360.tdump   +++|          LX6    30
00407  M00S00361.tdump   +++|          RJ     ESB         ENTER WORD COUNT
00408  M00S00362.tdump   +++|          SX7    1R-
00409  M00S00363.tdump   +++|          SA7    B7          ENTER SEPARATOR
00410  M00S00364.tdump   +++|          EQ     ELHX        RETURN
00411  M00S00365.tdump   +++| ESB      SPACE  4
00412  M00S00366.tdump   +++|**        ESB - ENTER STRING BUFFER.
00413  M00S00367.tdump   +++|*
00414  M00S00368.tdump   +++|*         ENTRY (X6)         POSITIONED CHARACTER DATA
00415  M00S00369.tdump   +++|*               (X1)         NUMBER OF CHARS TO STORE (ONE BIT PER CHAR)
00416  M00S00370.tdump   +++|*               (B7)         ENTRY ADDRESS IN STRING BUFFER
00417  M00S00371.tdump   +++|*
00418  M00S00372.tdump   +++|*         EXIT   (B7)        NEXT ENTRY ADDRESS
00419  M00S00373.tdump   +++|*
00420  M00S00374.tdump   +++|*         USES   A - 7.
00421  M00S00375.tdump   +++|*                X - 1, 2, 6, 7.
00422  M00S00376.tdump   +++|*                B - 7.
00423  M00S00377.tdump   +++|
00424  M00S00378.tdump   +++|
00425  M00S00379.tdump   +++| ESB      SUBR               ENTRY/EXIT
00426  M00S00380.tdump   +++| ESB1     PL     X1,ESBX     RETURN
00427  M00S00381.tdump   +++|          MX2    -6
00428  M00S00382.tdump   +++|          LX1    1
00429  M00S00383.tdump   +++|          BX7    -X2*X6
00430  M00S00384.tdump   +++|          SA7    B7          STORE CHARACTER
00431  M00S00385.tdump   +++|          SB7    B7+B1       ADVANCE STORE
00432  M00S00386.tdump   +++|          LX6    6
00433  M00S00387.tdump   +++|          EQ     ESB1        LOOP FOR NEXT CHARACTER
00434  M00S00388.tdump   +++| FAW      SPACE  4
00435  M00S00389.tdump   +++|**        FAW - FORMAT ALPHA WORD.
00436  M00S00390.tdump   +++|*
00437  M00S00391.tdump   +++|*         ENTRY  (B2) = ADDRESS OF WORD TO FORMAT TO STRING BUFFER.
00438  M00S00392.tdump   +++|*                (SCPC) = BYTE POSITION.
00439  M00S00393.tdump   +++|*
00440  M00S00394.tdump   +++|*         EXIT   (B2) = UNCHANGED.
00441  M00S00395.tdump   +++|*                CHARACTERS PLACED IN STRING BUFFER AND (SCPC)
00442  M00S00396.tdump   +++|*                ADVANCED.
00443  M00S00397.tdump   +++|*
00444  M00S00398.tdump   +++|*         CALLS  BSB.
00445  M00S00399.tdump   +++|*
00446  M00S00400.tdump   +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00447  M01S00401.tdump4  ---|*                A - 1, 2, 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00448  M01S00016.tdump4  +++|*                A - 1, 3, 4, 5, 6, 7.
00449  M00S00402.tdump   +++|*                B - 4, 5, 6, 7.
00450  M00S00403.tdump   +++|
00451  M00S00404.tdump   +++|
00452  M00S00405.tdump   +++| FAW      SUBR               ENTRY/EXIT
00453  M00S00406.tdump   +++|          SA4    SCPC
00454  M00S00407.tdump   +++|          NZ     X4,FAW2     IF NOT FIRST WORD
00455  M00S00408.tdump   +++|          SA3    OPWD

Seq #  *Modification Id* Act 
----------------------------+
00456  M01S00409.tdump4  ---|          LX3    59-0

Seq #  *Modification Id* Act 
----------------------------+
00457  M01S00017.tdump4  +++|          LX3    59-OPBO
00458  M00S00410.tdump   +++|          BX6    X6-X6       CLEAR POSITION INCREMENT
00459  M00S00411.tdump   +++|          SA6    FAWB
00460  M00S00412.tdump   +++|          PL     X3,FAW2     IF NOT OCTAL/ALPHA MODE
00461  M00S00413.tdump   +++|          RJ     BSB         BLANK BUFFER
00462  M00S00414.tdump   +++| FAW2     SA5    FAWA        GET ASCII ESCAPE CHARACTER
00463  M00S00415.tdump   +++|          SA1    B2          GET DATA WORD
00464  M00S00416.tdump   +++|          MX2    10
00465  M00S00417.tdump   +++|          SA3    OPWD
00466  M00S00418.tdump   +++|          MX6    54

Seq #  *Modification Id* Act 
----------------------------+
00467  M01S00419.tdump4  ---|          LX3    59-0

Seq #  *Modification Id* Act 
----------------------------+
00468  M01S00018.tdump4  +++|          LX3    59-OPBO
00469  M00S00420.tdump   +++|          SB7    1R          SET BLANK REPLACE
00470  M00S00421.tdump   +++|          NG     X3,FAW7     IF OCTAL/ALPHA MODE
00471  M00S00422.tdump   +++|          SA3    TAAP+X4     GET STARTING POSITION
00472  M00S00423.tdump   +++|          SB5    X3
00473  M00S00424.tdump   +++|          SB4    B1
00474  M00S00425.tdump   +++| FAW2.1   SA3    FAWB        INCREMENT STARTING POSITION
00475  M00S00426.tdump   +++|          SB5    X3+B5
00476  M00S00427.tdump   +++| FAW3     SB6    B1+B1       SET BYTE WIDTH
00477  M00S00428.tdump   +++| FAW4     LX1    6
00478  M00S00429.tdump   +++|          BX7    -X6*X1
00479  M00S00430.tdump   +++|          LX2    1
00480  M00S00431.tdump   +++|          SB6    B6-B1
00481  M00S00432.tdump   +++|          SA3    TCCS
00482  M00S00433.tdump   +++|          ZR     X3,FAW4.1   IF TERMINAL CHARACTER SET NOT ASCII
00483  M00S00434.tdump   +++|          NZ     X5,FAW9     IF PREVIOUS CHARACTER IS ESCAPE
00484  M00S00435.tdump   +++|          SX3    X7-76B
00485  M00S00436.tdump   +++|          ZR     X3,FAW8     IF ESCAPE 76
00486  M00S00437.tdump   +++|          SX3    X7-74B
00487  M00S00438.tdump   +++|          ZR     X3,FAW8     IF ESCAPE 74
00488  M00S00439.tdump   +++| FAW4.1   NZ     X7,FAW5     IF NOT 00 CHARACTER
00489  M00S00440.tdump   +++|          SX7    B7          FORCE BLANK
00490  M00S00441.tdump   +++| FAW5     SA7    B5
00491  M00S00442.tdump   +++|          SB5    B5+B4       ADVANCE STORE
00492  M00S00443.tdump   +++|          NZ     B6,FAW4     IF NOT END OF BYTE
00493  M00S00444.tdump   +++|          SB5    B5+B1       SKIP ONE POSITION
00494  M00S00445.tdump   +++|          NG     X2,FAW3     IF NOT END OF WORD
00495  M00S00446.tdump   +++|          BX7    X5          SAVE ESCAPE CHARACTER
00496  M00S00447.tdump   +++|          SA7    FAWA
00497  M00S00448.tdump   +++|          SA4    SCPC        ADVANCE POSITION
00498  M00S00449.tdump   +++|          SA3    OPWD
00499  M00S00450.tdump   +++|          SX7    X4+B1

Seq #  *Modification Id* Act 
----------------------------+
00500  M01S00451.tdump4  ---|          LX3    59-0

Seq #  *Modification Id* Act 
----------------------------+
00501  M01S00019.tdump4  +++|          LX3    59-OPBO
00502  M00S00452.tdump   +++|          SX6    X7-TBOPL
00503  M00S00453.tdump   +++|          NG     X3,FAW6     IF OCTAL ALPHA MODE
00504  M00S00454.tdump   +++|          SX6    X7-TAAPL
00505  M00S00455.tdump   +++| FAW6     SA7    A4
00506  M00S00456.tdump   +++|          NZ     X6,FAW      IF NOT END OF LINE
00507  M00S00457.tdump   +++|          SA6    A4          SET BEGINNING OF NEXT LINE
00508  M00S00458.tdump   +++|          EQ     FAWX        RETURN
00509  M00S00459.tdump   +++|
00510  M00S00460.tdump   +++| FAW7     SA3    TBOP+X4     SET STARTING POSITION
00511  M00S00461.tdump   +++|          SB5    X3+B1
00512  M00S00462.tdump   +++|          SB4    B1+B1       SET INCREMENT
00513  M00S00463.tdump   +++|          EQ     FAW2.1      LOOP FOR NEXT BYTE
00514  M00S00464.tdump   +++|
00515  M00S00465.tdump   +++| FAW8     BX5    X7
00516  M00S00466.tdump   +++|          SX7    B7          FORCE BLANK
00517  M00S00467.tdump   +++|          EQ     FAW5        STORE CHARACTER
00518  M00S00468.tdump   +++|
00519  M00S00469.tdump   +++| FAW9     BX6    X5          STORE ESCAPE CHARACTER
00520  M00S00470.tdump   +++|          SA6    B5
00521  M00S00471.tdump   +++|          SB5    B5+1
00522  M00S00472.tdump   +++|          SA3    FAWB        ADVANCE POSITION INCREMENT
00523  M00S00473.tdump   +++|          SX6    X3+B1
00524  M00S00474.tdump   +++|          SA6    A3
00525  M00S00475.tdump   +++|          BX5    X5-X5       CLEAR ESCAPE CHARACTER
00526  M00S00476.tdump   +++|          MX6    54          RESET MASK
00527  M00S00477.tdump   +++|          EQ     FAW5        STORE CHARACTER
00528  M00S00478.tdump   +++|
00529  M00S00479.tdump   +++| FAWA     CON    0           ASCII ESCAPE CHARACTER
00530  M00S00480.tdump   +++| FAWB     CON    0           WORD POSITION INCREMENT
00531  M00S00481.tdump   +++|
00532  M00S00482.tdump   +++|*         TABLE OF BYTE FORMAT POSITIONS
00533  M00S00483.tdump   +++|
00534  M00S00484.tdump   +++| TAAP     BSS    0
00535  M00S00485.tdump   +++|          LOC    0
00536  M00S00486.tdump   +++|          CON    OLWS+21
00537  M00S00487.tdump   +++|          CON    OLWS+38
00538  M00S00488.tdump   +++|          CON    OLWS+55
00539  M00S00489.tdump   +++|          CON    OLWS+72
00540  M00S00490.tdump   +++| TAAPL    EQU    *
00541  M00S00491.tdump   +++|          LOC    *O

Seq #  *Modification Id* Act 
----------------------------+
00542  M01S00005.tdump2  +++| FHW      SPACE  4,15
00543  M01S00006.tdump2  +++|**        FHW - FORMAT HEXADECIMAL WORD.
00544  M01S00007.tdump2  +++|*
00545  M01S00008.tdump2  +++|*         ENTRY  (B2) = ADDRESS OF WORD TO FORMAT TO STRING BUFFER.
00546  M01S00009.tdump2  +++|*                (SCPC) = BYTE POSITION.
00547  M01S00010.tdump2  +++|*
00548  M01S00011.tdump2  +++|*         EXIT   (B2) = UNCHANGED.
00549  M01S00012.tdump2  +++|*                (X6) = 0 IF LINE IS FILLED.
00550  M01S00013.tdump2  +++|*                CHARACTERS PLACED IN STRING BUFFER AND (SCPC)
00551  M01S00014.tdump2  +++|*                ADVANCED.
00552  M01S00015.tdump2  +++|*
00553  M01S00016.tdump2  +++|*         USES   X - 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00017.tdump4  ---|*                A - 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00555  M01S00020.tdump4  +++|*                A - 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00556  M01S00018.tdump2  +++|*                B - 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00557  M01S00021.tdump4  +++|*
00558  M01S00022.tdump4  +++|*         CALLS  BSB.

Seq #  *Modification Id* Act 
----------------------------+
00559  M01S00019.tdump2  +++|
00560  M01S00020.tdump2  +++|
00561  M01S00021.tdump2  +++| FHW      SUBR               ENTRY/EXIT
00562  M01S00022.tdump2  +++|          SA4    SCPC

Seq #  *Modification Id* Act 
----------------------------+
00563  M02S00023.tdump4  ---|          SA4    TBOP+X4

Seq #  *Modification Id* Act 
----------------------------+
00564  M01S00023.tdump4  +++|          NZ     X4,FHW0     IF NOT FIRST WORD
00565  M01S00024.tdump4  +++|          SA3    OPWD
00566  M01S00025.tdump4  +++|          SX3    X3-OPVH
00567  M01S00026.tdump4  +++|          ZR     X3,FHW0     IF ONLY H OPTION SELECTED
00568  M01S00027.tdump4  +++|          RJ     BSB         BLANK BUFFER
00569  M01S00028.tdump4  +++| FHW0     SA4    TBOP+X4

Seq #  *Modification Id* Act 
----------------------------+
00570  M01S00024.tdump2  +++|          MX3    15          DIGIT COUNT
00571  M01S00025.tdump2  +++|          SB7    X4          STORE ADDRESS
00572  M01S00026.tdump2  +++|          MX2    -4
00573  M01S00027.tdump2  +++|          SA4    B2
00574  M01S00028.tdump2  +++| FHW1     SB5    3
00575  M01S00029.tdump2  +++| FHW2     LX4    4
00576  M01S00030.tdump2  +++|          BX7    -X2*X4      EXTRACT DIGIT
00577  M01S00031.tdump2  +++|          SB6    X7-10
00578  M01S00032.tdump2  +++|          LX3    1
00579  M01S00033.tdump2  +++|          NG     B6,FHW3     IF PURE DECIMAL DIGIT PRESENT
00580  M01S00034.tdump2  +++|          SX7    X7-9-1R0    BIAS TO ALPHA
00581  M01S00035.tdump2  +++| FHW3     SX7    X7+1R0      CONVERT DIGIT
00582  M01S00036.tdump2  +++|          SA7    B7          STORE RESULT
00583  M01S00037.tdump2  +++|          SB5    B5-B1
00584  M01S00038.tdump2  +++|          SB7    B7+1
00585  M01S00039.tdump2  +++|          NZ     B5,FHW2     IF NOT END OF BYTE
00586  M01S00040.tdump2  +++|          SB7    B7+2        SKIP COLUMNS
00587  M01S00041.tdump2  +++|          NG     X3,FHW1     IF NOT END OF WORD
00588  M01S00042.tdump2  +++|          SA4    SCPC
00589  M01S00043.tdump2  +++|          SX7    X4+B1
00590  M01S00044.tdump2  +++|          SA7    A4
00591  M01S00045.tdump2  +++|          SX6    X7-TBOPL
00592  M01S00046.tdump2  +++|          NZ     X6,FHWX     IF LINE NOT FILLED
00593  M01S00047.tdump2  +++|          SA6    A4+         RESET BYTE POSITION
00594  M01S00048.tdump2  +++|          EQ     FHWX        RETURN
00595  M00S00492.tdump   +++| FML      SPACE  4
00596  M00S00493.tdump   +++|**        FML - FORMAT PRINT LINE(S).
00597  M00S00494.tdump   +++|*
00598  M00S00495.tdump   +++|*         ENTRY  (A0)        INDEX TO LAST ENTRY+1 IN WORD BUFFER.
00599  M00S00496.tdump   +++|*
00600  M00S00497.tdump   +++|*         EXIT   (X1) = 0    IF NO LIMIT REACHED.
00601  M00S00498.tdump   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00602  M01S00029.tdump4  +++|*         USES   X - 1, 2, 6, 7.
00603  M01S00030.tdump4  +++|*                A - 2, 6, 7.
00604  M01S00031.tdump4  +++|*                B - 2.
00605  M01S00032.tdump4  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00606  M01S00499.tdump2  ---|*         CALLS  ELH, FOW, WSB, FAW.

Seq #  *Modification Id* Act 
----------------------------+
00607  M01S00049.tdump2  +++|*         CALLS  ELH, FAW, FHW, FOW, WSB.

Seq #  *Modification Id* Act 
----------------------------+
00608  M01S00500.tdump4  ---|*
00609  M01S00501.tdump4  ---|*         USES   ALL REGISTERS EXCEPT A0, X0, A5 AND X5.
00610  M00S00502.tdump   +++|
00611  M00S00503.tdump   +++|
00612  M00S00504.tdump   +++| FML      SUBR               ENTRY/EXIT
00613  M00S00505.tdump   +++|          BX1    X1-X1
00614  M00S00506.tdump   +++|          SX1    A0-B1
00615  M00S00507.tdump   +++|          NG     X1,FMLX     IF EMPTY LINE
00616  M00S00508.tdump   +++|          SA2    OPWD

Seq #  *Modification Id* Act 
----------------------------+
00617  M01S00509.tdump4  ---|          LX2    59-0

Seq #  *Modification Id* Act 
----------------------------+
00618  M01S00033.tdump4  +++|          LX2    59-OPBO
00619  M00S00510.tdump   +++|          PL     X2,FML2     IF NOT OCTAL MODE
00620  M00S00511.tdump   +++|          BX6    X6-X6       CLEAR BYTE POSITION
00621  M00S00512.tdump   +++|          SA6    SCPC
00622  M00S00513.tdump   +++|          RJ     ELH         ENTER LINE HEADER
00623  M00S00514.tdump   +++|          SB2    DTOL
00624  M00S00515.tdump   +++|          RJ     FOW         WORD 1
00625  M00S00516.tdump   +++|          SB2    B2+B1
00626  M00S00517.tdump   +++|          SX1    A0-2
00627  M00S00518.tdump   +++|          NG     X1,FML1     IF END OF LINE
00628  M00S00519.tdump   +++|          RJ     FOW         WORD 2
00629  M00S00520.tdump   +++|          SB2    B2+B1
00630  M00S00521.tdump   +++|          SX1    A0-3
00631  M00S00522.tdump   +++|          NG     X1,FML1     IF END OF LINE
00632  M00S00523.tdump   +++|          RJ     FOW         WORD 3
00633  M00S00524.tdump   +++|          SB2    B2+B1
00634  M00S00525.tdump   +++|          SX1    A0-4
00635  M00S00526.tdump   +++|          NG     X1,FML1     IF END OF LINE
00636  M00S00527.tdump   +++|          RJ     FOW         WORD 4
00637  M00S00528.tdump   +++| FML1     RJ     WSB         WRITE BUFFER
00638  M00S00529.tdump   +++| FML2     SA2    OPWD

Seq #  *Modification Id* Act 
----------------------------+
00639  M01S00530.tdump4  ---|          LX2    59-1

Seq #  *Modification Id* Act 
----------------------------+
00640  M01S00034.tdump4  +++|          LX2    59-OPBA
00641  M00S00531.tdump   +++|          BX6    X6-X6
00642  M00S00532.tdump   +++|          PL     X2,FML4     IF NOT ALPHA MODE
00643  M00S00533.tdump   +++|          SA6    SCPC
00644  M00S00534.tdump   +++|          RJ     ELH
00645  M00S00535.tdump   +++|          SB2    DTOL
00646  M00S00536.tdump   +++|          RJ     FAW         WORD 1
00647  M00S00537.tdump   +++|          SB2    B2+B1
00648  M00S00538.tdump   +++|          SX1    A0-2
00649  M00S00539.tdump   +++|          NG     X1,FML3     IF END OF LINE
00650  M00S00540.tdump   +++|          RJ     FAW         WORD 2
00651  M00S00541.tdump   +++|          SB2    B2+B1
00652  M00S00542.tdump   +++|          SX1    A0-3
00653  M00S00543.tdump   +++|          NG     X1,FML3     IF END OF LINE
00654  M00S00544.tdump   +++|          RJ     FAW         WORD 3
00655  M00S00545.tdump   +++|          SB2    B2+B1
00656  M00S00546.tdump   +++|          SX1    A0-4
00657  M00S00547.tdump   +++|          NG     X1,FML3     IF END OF LINE
00658  M00S00548.tdump   +++|          RJ     FAW         WORD 4
00659  M00S00549.tdump   +++| FML3     RJ     WSB         WRITE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00660  M01S00550.tdump2  ---| FML4     SA2    WDCT

Seq #  *Modification Id* Act 
----------------------------+
00661  M01S00050.tdump2  +++| FML4     SA2    OPWD

Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00051.tdump4  ---|          LX2    59-2

Seq #  *Modification Id* Act 
----------------------------+
00663  M01S00035.tdump4  +++|          LX2    59-OPBH

Seq #  *Modification Id* Act 
----------------------------+
00664  M01S00052.tdump2  +++|          BX6    X6-X6
00665  M01S00053.tdump2  +++|          PL     X2,FML6     IF NOT A HEXADECIMAL DUMP
00666  M01S00054.tdump2  +++|          SA6    SCPC        CLEAR BYTE COUNT
00667  M01S00055.tdump2  +++|          RJ     ELH         SET UP LINE HEADERS
00668  M01S00056.tdump2  +++|          SB2    DTOL
00669  M01S00057.tdump2  +++|          RJ     FHW         FORMAT HEXADECIMAL WORD
00670  M01S00058.tdump2  +++|          SB2    B2+1
00671  M01S00059.tdump2  +++|          SX1    A0-2
00672  M01S00060.tdump2  +++|          NG     X1,FML5     IF END OF LINE
00673  M01S00061.tdump2  +++|          RJ     FHW         FORMAT HEXADECIMAL WORD
00674  M01S00062.tdump2  +++|          SB2    B2+1
00675  M01S00063.tdump2  +++|          SX1    A0-3
00676  M01S00064.tdump2  +++|          NG     X1,FML5     IF END OF LINE
00677  M01S00065.tdump2  +++|          RJ     FHW         FORMAT HEXADECIMAL WORD
00678  M01S00066.tdump2  +++|          SB2    B2+1
00679  M01S00067.tdump2  +++|          SX1    A0-4
00680  M01S00068.tdump2  +++|          NG     X1,FML5     IF END OF LINE
00681  M01S00069.tdump2  +++|          RJ     FHW         FORMAT HEXADECIMAL WORD
00682  M01S00070.tdump2  +++| FML5     RJ     WSB         WRITE BUFFER
00683  M01S00071.tdump2  +++| FML6     SA2    WDCT
00684  M00S00551.tdump   +++|          BX7    X2
00685  M00S00552.tdump   +++|          SA7    WCBL        SET BEGINNING OF NEXT LINE
00686  M00S00553.tdump   +++|          EQ     FMLX        RETURN
00687  M00S00554.tdump   +++| FOW      SPACE  4
00688  M00S00555.tdump   +++|**        FOW - FORMAT OCTAL WORD.
00689  M00S00556.tdump   +++|*
00690  M00S00557.tdump   +++|*         ENTRY  (B2)        ADDRESS OF WORD TO FORMAT.
00691  M00S00558.tdump   +++|*                (SCPC)      BYTE POSITION.
00692  M00S00559.tdump   +++|*
00693  M00S00560.tdump   +++|*         EXIT   WORD PLACED IN BUFFER.
00694  M00S00561.tdump   +++|*                (SCPC)      UPDATED.
00695  M00S00562.tdump   +++|*                (X6) = 0    IF LINE IS FILLED.
00696  M00S00563.tdump   +++|*                (B2)        UNCHANGED.
00697  M00S00564.tdump   +++|*
00698  M00S00565.tdump   +++|*         USES   A - 4, 6, 7.
00699  M00S00566.tdump   +++|*                X - 2, 3, 4, 6, 7.
00700  M00S00567.tdump   +++|*                B - 1, 2, 5, 6, 7.
00701  M00S00568.tdump   +++|
00702  M00S00569.tdump   +++|
00703  M00S00570.tdump   +++| FOW      SUBR               ENTRY/EXIT
00704  M00S00571.tdump   +++|          SA4    SCPC
00705  M00S00572.tdump   +++|          SA4    TBOP+X4     GET BEGINNING CHARACTER POSITION
00706  M00S00573.tdump   +++|          MX3    20          DIGIT COUNT
00707  M00S00574.tdump   +++|          SB7    X4          STORE ADDRESS
00708  M00S00575.tdump   +++|          SB6    1R0
00709  M00S00576.tdump   +++|          MX2    -3
00710  M00S00577.tdump   +++|          SA4    B2          GET INPUT WORD
00711  M00S00578.tdump   +++| FOW2     SB5    4
00712  M00S00579.tdump   +++| FOW3     LX4    3
00713  M00S00580.tdump   +++|          BX7    -X2*X4      GET DIGIT
00714  M00S00581.tdump   +++|          SX7    X7+B6
00715  M00S00582.tdump   +++|          LX3    1
00716  M00S00583.tdump   +++|          SA7    B7          STORE CONVERTED DIGIT
00717  M00S00584.tdump   +++|          SB7    B7+B1
00718  M00S00585.tdump   +++|          SB5    B5-B1
00719  M00S00586.tdump   +++|          NZ     B5,FOW3     IF NOT END OF BYTE
00720  M00S00587.tdump   +++|          SB7    B7+B1       SKIP COLUMN
00721  M00S00588.tdump   +++|          NG     X3,FOW2     IF NOT END OF WORD
00722  M00S00589.tdump   +++|          SA4    SCPC
00723  M00S00590.tdump   +++|          SX7    X4+B1
00724  M00S00591.tdump   +++|          SX6    X7-TBOPL
00725  M00S00592.tdump   +++|          SA7    A4          ADVANCE POSITION
00726  M00S00593.tdump   +++|          NZ     X6,FOWX     IF NOT END OF LINE
00727  M00S00594.tdump   +++|          SA6    A4          RESET BYTE POSITION
00728  M00S00595.tdump   +++|          EQ     FOWX        RETURN
00729  M00S00596.tdump   +++|
00730  M00S00597.tdump   +++|*         TABLE OF FORMATTING VALUES
00731  M00S00598.tdump   +++|
00732  M00S00599.tdump   +++| TBOP     BSS    0
00733  M00S00600.tdump   +++|          LOC    0
00734  M00S00601.tdump   +++|          CON    OLWS+21
00735  M00S00602.tdump   +++|          CON    OLWS+48
00736  M00S00603.tdump   +++|          CON    OLWS+75
00737  M00S00604.tdump   +++|          CON    OLWS+102
00738  M00S00605.tdump   +++| TBOPL    EQU    *
00739  M00S00606.tdump   +++|          LOC    *O
00740  M00S00607.tdump   +++| RDA      SPACE  4
00741  M00S00608.tdump   +++|**        RDA - READ DATA (READO MACRO).
00742  M00S00609.tdump   +++|*         PROCESS READ ONE WORD REQUESTS (RDO=).
00743  M00S00610.tdump   +++|*         DEBLOCK DATA IF CONTROL WORD READS USED.
00744  M00S00611.tdump   +++|*
00745  M00S00612.tdump   +++|*         ENTRY  (X1) = (FET+2).
00746  M00S00613.tdump   +++|*                (A1) = FET+2.
00747  M00S00614.tdump   +++|*
00748  M00S00615.tdump   +++|*         EXIT   (X1) = 1 IF EOR DETECTED.
00749  M00S00616.tdump   +++|*                (X1) = -1 IF EOF DETECTED.
00750  M00S00617.tdump   +++|*                (X1) = -2 IF EOI DETECTED.
00751  M00S00618.tdump   +++|*                (X1) = 0 IF TRANSFER COMPLETE.
00752  M00S00619.tdump   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00753  M01S00620.tdump1  ---|*         USES   A - 1, 2, 3, 6, 7.
00754  M01S00621.tdump1  ---|*                B - 1, 4, 6, 7.
00755  M01S00622.tdump1  ---|*                X - 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00756  M01S00004.tdump1  +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00757  M01S00005.tdump1  +++|*                A - 1, 2, 3, 6, 7.
00758  M01S00006.tdump1  +++|*                B - 4, 5, 6.
00759  M01S00007.tdump1  +++|*
00760  M01S00008.tdump1  +++|*         CALLS  RDO=.
00761  M00S00623.tdump   +++|
00762  M00S00624.tdump   +++|
00763  M00S00625.tdump   +++| RDA5     SX7    B6          STORE WORDS REMAINING IN THIS BLOCK
00764  M00S00626.tdump   +++|          SA7    A2
00765  M00S00627.tdump   +++| RDA6     RJ     RDO=        PROCESS WORD REQUEST
00766  M00S00628.tdump   +++|
00767  M00S00629.tdump   +++| RDA      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00768  M01S00630.tdump1  ---|          SA2    CW          CHECK CONTROL WORD FLAG
00769  M01S00631.tdump1  ---|          ZR     X2,RDA6     IF CONTROL WORDS NOT LEGAL NOW

Seq #  *Modification Id* Act 
----------------------------+
00770  M01S00009.tdump1  +++|          SA2    CWDS        CHECK CONTROL WORD DUMP FLAG
00771  M01S00010.tdump1  +++|          PL     X2,RDA6     IF CONTROL WORDS NOT LEGAL NOW
00772  M00S00632.tdump   +++| RDA1     SB4    A1          SAVE FET POINTER
00773  M00S00633.tdump   +++|          SA2    A1-4        GET NUMBER OF WORDS BEFORE CONTROL WORD
00774  M00S00634.tdump   +++|          SB5    X2
00775  M00S00635.tdump   +++|          NG     X2,RDA4     IF FIRST READ OF FILE
00776  M00S00636.tdump   +++| RDA2     SB6    B5-B1       DECREMENT WORDS REMAINING IN BLOCK
00777  M00S00637.tdump   +++|          PL     B6,RDA5     IF ENOUGH WORDS LEFT FOR REQUEST
00778  M00S00638.tdump   +++|          SA3    A2+B1       CHECK EOR FLAG
00779  M00S00639.tdump   +++|          PL     X3,RDA3     IF NOT EOR
00780  M00S00640.tdump   +++|          MX6    1           SET NEW READ FLAG ON
00781  M00S00641.tdump   +++|          SA6    A2
00782  M00S00642.tdump   +++|          SA6    A3          RESET EOR FLAG
00783  M00S00643.tdump   +++|          RJ     RDO=        CLEAR LEVEL WORD
00784  M00S00644.tdump   +++|          SX1    B1          SET EOR INDICATOR FOR RETURN
00785  M00S00645.tdump   +++|          JP     RDAX        RETURN
00786  M00S00646.tdump   +++|
00787  M00S00647.tdump   +++| RDA3     RJ     RDO=        CLEAR LEVEL WORD
00788  M00S00648.tdump   +++| RDA4     SA1    B4          RESET A1, X1 VALUES
00789  M00S00649.tdump   +++|          RJ     RDO=        READ CONTROL WORD
00790  M00S00650.tdump   +++|          NG     X1,RDAX     IF EOF/EOI, RETURN
00791  M00S00651.tdump   +++|          SA1    B4          RESET A1, X1 VALUES
00792  M00S00652.tdump   +++|          BX3    X6          CONTROL WORD
00793  M00S00653.tdump   +++|          SX7    5           BYTES/WORD
00794  M00S00654.tdump   +++|          SX4    X3+4        ROUND UP
00795  M00S00655.tdump   +++|          AX3    36
00796  M00S00656.tdump   +++|          SX3    X3
00797  M00S00657.tdump   +++|          IX7    X4/X7       WORDS IN BLOCK
00798  M00S00658.tdump   +++|          IX6    X7-X3       SAVE EOR FLAG
00799  M00S00659.tdump   +++|          SA7    A1-4        STORE WORD COUNT
00800  M00S00660.tdump   +++|          SA6    A1-3        STORE EOF FLAG
00801  M00S00661.tdump   +++|          JP     RDA1        CONTINUE IN LOOP
00802  M00S00662.tdump   +++| TDS      SPACE  4
00803  M00S00663.tdump   +++|**        TDS - TERMINATE DUMP SEGMENT.
00804  M00S00664.tdump   +++|*
00805  M00S00665.tdump   +++|*         ENTRY  (A0)        NUMBER OF WORDS IN BUFFER.
00806  M00S00666.tdump   +++|*
00807  M00S00667.tdump   +++|*         EXIT   (X1) = 0    IF NO LIMITS EXCEEDED.
00808  M00S00668.tdump   +++|*
00809  M00S00669.tdump   +++|*         CALLS  FML, CPL, WBL.
00810  M00S00670.tdump   +++|*
00811  M00S00671.tdump   +++|*         USES   ALL REGISTERS EXCEPT A0, X0, A5 AND X5.
00812  M00S00672.tdump   +++|
00813  M00S00673.tdump   +++|
00814  M00S00674.tdump   +++| TDS      SUBR               ENTRY/EXIT
00815  M00S00675.tdump   +++|          SA1    RPCT
00816  M00S00676.tdump   +++|          SX2    X1-3
00817  M00S00677.tdump   +++|          AX1    1
00818  M00S00678.tdump   +++|          BX6    X6-X6
00819  M00S00679.tdump   +++|          SA6    A1          CLEAR REPEAT
00820  M00S00680.tdump   +++|          ZR     X1,TDS3     IF NOT REPEAT (SUPPRESSING)
00821  M00S00681.tdump   +++|          PL     X2,TDS1     IF MORE THAN TWO LINES
00822  M00S00682.tdump   +++|          SX6    A0
00823  M00S00683.tdump   +++|          ZR     X6,TDS2     IF NO WORDS
00824  M00S00684.tdump   +++| TDS1     WRITEC O,MALR      WRITE REPEAT MESSAGE
00825  M00S00685.tdump   +++|          RJ     WBL
00826  M00S00686.tdump   +++|          RJ     CPL
00827  M00S00687.tdump   +++|          SX6    A0
00828  M00S00688.tdump   +++|          NZ     X6,TDS3     IF WORDS IN BUFFER
00829  M00S00689.tdump   +++| TDS2     SA4    TF          SET WORDS/LINE FOR FILE TYPE
00830  M00S00690.tdump   +++|          SA2    X4+WPLT
00831  M00S00691.tdump   +++|          SA1    WCBL
00832  M00S00692.tdump   +++|          IX6    X1-X2
00833  M00S00693.tdump   +++|          SA6    A1
00834  M00S00694.tdump   +++|          SA0    X2
00835  M00S00695.tdump   +++| TDS3     RJ     FML
00836  M00S00696.tdump   +++|          BX6    X6-X6
00837  M00S00697.tdump   +++|          SA6    WCBL        ZERO BEGIN LINE WORD COUNT
00838  M00S00698.tdump   +++|          EQ     TDSX        RETURN
00839  M00S00699.tdump   +++| WBL      SPACE  4
00840  M00S00700.tdump   +++|**        WBL - WRITE BLANK LINE.
00841  M00S00701.tdump   +++|*
00842  M00S00702.tdump   +++|*         ENTRY  NONE.
00843  M00S00703.tdump   +++|*
00844  M00S00704.tdump   +++|*         EXIT   BLANK LINE WRITTEN.
00845  M00S00705.tdump   +++|*
00846  M00S00706.tdump   +++|*         CALLS  CPL, WTC.
00847  M00S00707.tdump   +++|*
00848  M00S00708.tdump   +++|*         USES   ALL REGISTERS EXCEPT A0, X0, A5 AND X5.
00849  M00S00709.tdump   +++|
00850  M00S00710.tdump   +++|
00851  M00S00711.tdump   +++| WBL      SUBR               ENTRY/EXIT
00852  M00S00712.tdump   +++|          RJ     CPL         CHECK PAGE LIMIT
00853  M00S00713.tdump   +++|          WRITEC O,WBLA      WRITE BLANK LINE
00854  M00S00714.tdump   +++|          EQ     WBLX        RETURN
00855  M00S00715.tdump   +++|
00856  M00S00716.tdump   +++| WBLA     DATA   2C
00857  M00S00717.tdump   +++| WSB      SPACE  4
00858  M00S00718.tdump   +++|**        WSB - WRITE STRING BUFFER.
00859  M00S00719.tdump   +++|*
00860  M00S00720.tdump   +++|*         ENTRY  NONE.
00861  M00S00721.tdump   +++|*
00862  M00S00722.tdump   +++|*         EXIT   (X1) = 0    IF NO LIMITS REACHED.
00863  M00S00723.tdump   +++|*                STRING BUFFER WRITTEN TO OUTPUT FILE.
00864  M00S00724.tdump   +++|*
00865  M00S00725.tdump   +++|*         CALLS  CPL, CKL, WTS.
00866  M00S00726.tdump   +++|*
00867  M00S00727.tdump   +++|*         USES   ALL REGISTERS EXCEPT A0, X0, A5 AND X5.
00868  M00S00728.tdump   +++|
00869  M00S00729.tdump   +++|
00870  M00S00730.tdump   +++| WSB      SUBR               ENTRY/EXIT
00871  M00S00731.tdump   +++|          WRITES O,OLWS,OLWSL
00872  M00S00732.tdump   +++|          RJ     CPL
00873  M00S00733.tdump   +++|          BX6    X6-X6
00874  M00S00734.tdump   +++|          SA6    SCPC        SET LINE EMPTY
00875  M00S00735.tdump   +++|          RJ     CKL
00876  M00S00736.tdump   +++|          EQ     WSBX        RETURN
00877  M00S00737.tdump   +++|
00878  M00S00738.tdump   +++|*         MESSAGES.
00879  M00S00739.tdump   +++|
00880  M00S00740.tdump   +++| HDRM     DATA   30H1        - FILE DUMP -
00881  M00S00741.tdump   +++| HDRMA    DATA   30H
00882  M00S00742.tdump   +++|          DATA   30H
00883  M00S00743.tdump   +++| HDRMB    DATA   10H
00884  M00S00744.tdump   +++| HDRMC    DATA   10H
00885  M00S00745.tdump   +++| HDRMD    DATA   10H PAGE 0000
00886  M00S00746.tdump   +++|          DATA   1C.
00887  M00S00747.tdump   +++| MLLN     DATA   C* -- LINE LIMIT --*
00888  M00S00748.tdump   +++| MLRN     DATA   C* -- RECORD LIMIT --*
00889  M00S00749.tdump   +++| MLFN     DATA   C* -- FILE LIMIT --*
00890  M00S00750.tdump   +++| MEOR     DATA   C* -- END OF RECORD --*
00891  M00S00751.tdump   +++| MEOF     DATA   C* -- END OF FILE --*
00892  M00S00752.tdump   +++| MEOI     DATA   C* -- END OF INFORMATION --*
00893  M00S00753.tdump   +++| MEOD     DATA   C* -- END OF DUMP --*
00894  M00S00754.tdump   +++| MALR     DATA   C* -- ABOVE LINE REPEATED --*
00895  M00S00755.tdump   +++|
00896  M00S00756.tdump   +++|*         COMMON DECKS.
00897  M00S00757.tdump   +++|
00898  M00S00758.tdump   +++|*CALL,COMCCDD
00899  M00S00759.tdump   +++|*CALL,COMCCOD
00900  M00S00760.tdump   +++|*CALL,COMCCIO
00901  M00S00761.tdump   +++|*CALL,COMCRDO
00902  M00S00762.tdump   +++|*CALL,COMCSYS
00903  M00S00763.tdump   +++|*CALL,COMCWTC
00904  M00S00764.tdump   +++|*CALL,COMCWTS
00905  M00S00765.tdump   +++|*CALL,COMCWTW
00906  M00S00766.tdump   +++|
00907  M00S00767.tdump   +++|*         FETS.
00908  M00S00768.tdump   +++|
00909  M00S00769.tdump   +++| O        BSS    0
00910  M00S00770.tdump   +++| OUTPUT   FILEB  BUFO,BUFOL,EPR,(FET=8)
00911  M00S00771.tdump   +++|
00912  M00S00772.tdump   +++|          CON    0           REMAINING WORD COUNT
00913  M00S00773.tdump   +++|          CON    0           EOR FLAG
00914  M00S00774.tdump   +++|
00915  M00S00775.tdump   +++| F        BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00916  M01S00776.tdump5  ---| TAPE1    FILEB  BUFF,BUFFL,(FET=7)

Seq #  *Modification Id* Act 
----------------------------+
00917  M01S00003.tdump5  +++| TAPE1    FILEB  BUFF,BUFFL,(FET=10)
00918  M01S00004.tdump5  +++| ODFE     BSSZ   ODFEL       OPTICAL DISK FET EXTENSION
00919  M00S00777.tdump   +++|          TITLE  PRESET PROGRAM
00920  M00S00778.tdump   +++| PRE      SPACE  4
00921  M00S00779.tdump   +++|**        PRE - PRESET PROGRAM.
00922  M00S00780.tdump   +++|*
00923  M00S00781.tdump   +++|*         ENTRY  CONTROL CARD ARGUMENTS STORED BY SYSTEM.
00924  M00S00782.tdump   +++|*
00925  M00S00783.tdump   +++|*         EXIT   (B1) = 1.
00926  M00S00784.tdump   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00927  M02S00020.tdump4  ---|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
00928  M02S00021.tdump4  ---|*                A - 1, 2, 4, 5, 6, 7.
00929  M02S00022.tdump4  ---|*                B - 1, 4, 5, 6, 7.
00930  M02S00023.tdump4  ---|*
00931  M00S00785.tdump   +++|*         CALLS  ARG, CDT, CPL, DXB, SFN, STF.

Seq #  *Modification Id* Act 
----------------------------+
00932  M01S00786.tdump4  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00933  M01S00787.ns22000 ---|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
00934  M01S00788.ns22000 ---|*                A - 1, 2, 5, 6, 7.
00935  M01S00789.ns22000 ---|*                B - 1, 4, 5, 6, 7.
00936  M00S00790.tdump   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00937  M01S00791.ns22000 ---|*         MACROS ABORT, DATE, MESSAGE, OPEN, REWIND, TSTATUS.

Seq #  *Modification Id* Act 
----------------------------+
00938  M01S00024.ns22000 +++|*         MACROS ABORT, DATE, GETPP, MESSAGE, OPEN, REWIND,
00939  M01S00025.ns22000 +++|*                TSTATUS, WRITEW.
00940  M00S00792.tdump   +++|
00941  M00S00793.tdump   +++|
00942  M00S00794.tdump   +++| TDUMP    BSS    0
00943  M00S00795.tdump   +++| PRE      EQU    TDUMP
00944  M00S00796.tdump   +++|
00945  M00S00797.tdump   +++|          SB1    1
00946  M00S00798.tdump   +++|          SA1    ACTR
00947  M00S00799.tdump   +++|          R=     A4,ARGR     SET FIRST ARGUMENT
00948  M00S00800.tdump   +++|          SB4    X1          SET ARGUMENT COUNT
00949  M00S00801.tdump   +++|          SB5    TARG        SET EQUIVALENCE TABLE
00950  M00S00802.tdump   +++|          RJ     ARG         PROCESS ARGUMENTS

Seq #  *Modification Id* Act 
----------------------------+
00951  M01S00803.tdump4  ---|          ZR     X1,PRE2     IF NO ARGUMENT ERROR

Seq #  *Modification Id* Act 
----------------------------+
00952  M01S00036.tdump4  +++|          ZR     X1,PRE1.1   IF NO ARGUMENT ERROR
00953  M00S00804.tdump   +++| PRE1     SX2    =C* ARGUMENT ERROR.*
00954  M00S00805.tdump   +++|          MESSAGE X2
00955  M00S00806.tdump   +++|          ABORT
00956  M00S00807.tdump   +++|

Seq #  *Modification Id* Act 
----------------------------+
00957  M01S00037.tdump4  +++| PRE1.1   SA1    OPWA        GET ALPHA DUMP OPTION
00958  M01S00038.tdump4  +++|          SA2    OPWH        GET HEX DUMP OPTION
00959  M01S00039.tdump4  +++|          BX6    X1+X2
00960  M01S00040.tdump4  +++|          SA1    OPWO        GET OCTAL DUMP OPTION
00961  M01S00041.tdump4  +++|          BX6    X1+X6
00962  M01S00042.tdump4  +++|          ZR     X6,PRE2     IF NO DUMP OPTION USE DEFAULT
00963  M01S00043.tdump4  +++|          SA6    OPWD        SET COMPOSITE DUMP OPTION
00964  M00S00808.tdump   +++| PRE2     SA1    O
00965  M00S00809.tdump   +++|          MX6    42
00966  M00S00810.tdump   +++|          BX7    X7-X7
00967  M00S00811.tdump   +++|          BX1    X6*X1
00968  M00S00812.tdump   +++|          SX6    A1
00969  M00S00813.tdump   +++|          BX6    X1+X6       FORM POINTER TO *OUTPUT* FILE
00970  M00S00814.tdump   +++|          SA6    B1+B1
00971  M00S00815.tdump   +++|          SA7    A6+B1
00972  M00S00816.tdump   +++|          SX2    A1          OUTPUT FET ADDRESS
00973  M00S00817.tdump   +++|          RJ     STF         CHECK IF TERMINAL FILE

Seq #  *Modification Id* Act 
----------------------------+
00974  M01S00026.ns22000 +++|          SA6    TF
00975  M00S00818.tdump   +++|          NZ     X6,PRE3     IF NON-TERMINAL

Seq #  *Modification Id* Act 
----------------------------+
00976  M01S00819.ns22000 ---|          SA6    TF
00977  M00S00820.tdump   +++|          TSTATUS  TSRW      GET CURRENT CHARACTER SET
00978  M00S00821.tdump   +++|          SA2    TSRW+1
00979  M00S00822.tdump   +++|          MX0    59
00980  M00S00823.tdump   +++|          LX2    0-2
00981  M00S00824.tdump   +++|          BX6    -X0*X2
00982  M00S00825.tdump   +++|          SA6    TCCS
00983  M00S00826.tdump   +++| PRE3     SB7    B1          DECIMAL BASE
00984  M00S00827.tdump   +++|          SA5    LREC
00985  M00S00828.tdump   +++|          RJ     DXB
00986  M00S00829.tdump   +++|          NZ     X4,PRE1     IF RECORD COUNT NON NUMERIC
00987  M00S00830.tdump   +++|          SA6    A5          STORE CONVERTED VALUE
00988  M00S00831.tdump   +++|          SA5    LFLC
00989  M00S00832.tdump   +++|          ZR     X5,PRE3.1   IF NO CONVERSION
00990  M00S00833.tdump   +++|          RJ     DXB
00991  M00S00834.tdump   +++|          NZ     X4,PRE1     IF FILE COUNT NON NUMERIC
00992  M00S00835.tdump   +++|          SA6    A5          STORE CONVERTED VALUE
00993  M00S00836.tdump   +++| PRE3.1   SA5    LILM
00994  M00S00837.tdump   +++|          RJ     DXB
00995  M00S00838.tdump   +++|          NZ     X4,PRE1     IF LINE LIMIT NON NUMERIC
00996  M00S00839.tdump   +++|          SA6    A5          STORE CONVERTED VALUE
00997  M00S00840.tdump   +++|          SB6    8
00998  M00S00841.tdump   +++|          SA1    CCDR-1
00999  M00S00842.tdump   +++|          SB7    HDRMA
01000  M00S00843.tdump   +++|          MX3    54
01001  M00S00844.tdump   +++| PRE4     SA1    A1+B1       GET WORD OF CONTROL CARD
01002  M00S00845.tdump   +++|          BX7    X1
01003  M00S00846.tdump   +++|          BX6    -X3*X1
01004  M00S00847.tdump   +++|          ZR     X6,PRE6     IF LAST WORD
01005  M00S00848.tdump   +++|          SA7    B7          STORE IN HEADER LINE
01006  M00S00849.tdump   +++|          SB6    B6-B1
01007  M00S00850.tdump   +++|          SB7    B7+B1
01008  M00S00851.tdump   +++|          NZ     B6,PRE4     IF MORE WORDS TO CONTROL CARD
01009  M00S00852.tdump   +++| PRE5     DATE   HDRMB

Seq #  *Modification Id* Act 
----------------------------+
01010  M01S00003.tdump3  +++|          SA1    CODD        SET FET FOR CODED READ IF REQUESTED
01011  M01S00004.tdump3  +++|          SA2    F
01012  M01S00005.tdump3  +++|          BX6    -X1*X2
01013  M01S00006.tdump3  +++|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
01014  M01S00027.ns22000 +++|          GETPP  BUFF,LL,BUFF  GET PAGE SIZE PARAMETERS
01015  M01S00028.ns22000 +++|          SA1    TF
01016  M01S00029.ns22000 +++|          WRITEW O,A6,X1     CONDITIONALLY WRITE FORMAT EFFECTOR
01017  M00S00853.tdump   +++|          RJ     CPL         ISSUE FIRST LINE

Seq #  *Modification Id* Act 
----------------------------+
01018  M01S00005.tdump5  +++|          SX2    F
01019  M01S00006.tdump5  +++|          SA3    PREA
01020  M01S00007.tdump5  +++|          RJ     SOE         SET OPTICAL FET EXTENSION
01021  M00S00854.tdump   +++|          OPEN   F,READNR,R  CHECK IF CONTROL WORDS LEGAL
01022  M00S00855.tdump   +++|          SA1    F+1
01023  M00S00856.tdump   +++|          RJ     CDT         CHECK DEVICE TYPE
01024  M00S00857.tdump   +++|          ZR     X7,PRE5.1   IF CONTROL WORDS NOT LEGAL

Seq #  *Modification Id* Act 
----------------------------+
01025  M01S00011.tdump1  +++|          SX7    B0+
01026  M00S00858.tdump   +++|          SA1    LREC        CHECK RECORD COUNT
01027  M00S00859.tdump   +++|          NZ     X1,PRE5.1   IF *R=* USED, FORCE NO CONTROL WORD READS
01028  M00S00860.tdump   +++|          SX7    1           SET CONTROL LEGAL FLAG
01029  M00S00861.tdump   +++|          SA7    CW

Seq #  *Modification Id* Act 
----------------------------+
01030  M01S00862.tdump1  ---| PRE5.1   SA1    REWD        CHECK REWIND INDICATOR

Seq #  *Modification Id* Act 
----------------------------+
01031  M01S00012.tdump1  +++| PRE5.1   SA1    CWDS        SET CONTROL WORD DUMP FLAG
01032  M01S00013.tdump1  +++|          IX7    X1-X7
01033  M01S00014.tdump1  +++|          SA7    A1
01034  M01S00015.tdump1  +++|          SA1    REWD        CHECK REWIND INDICATOR
01035  M00S00863.tdump   +++|          NZ     X1,TDM      IF NO REWIND
01036  M00S00864.tdump   +++|          REWIND F,R
01037  M00S00865.tdump   +++|          EQ     TDM         BEGIN PROGRAM
01038  M00S00866.tdump   +++|
01039  M00S00867.tdump   +++| PRE6     RJ     SFN         SPACE FILL WORD
01040  M00S00868.tdump   +++|          SA6    B7
01041  M00S00869.tdump   +++|          EQ     PRE5

Seq #  *Modification Id* Act 
----------------------------+
01042  M01S00008.tdump5  +++|
01043  M01S00009.tdump5  +++| PREA     VFD    36/0,6/ODFEL,18/ODFE  OPTICAL FET EXTENSION POINTER
01044  M00S00870.tdump   +++|
01045  M00S00871.tdump   +++|*         TABLE OF ARGUMENT CONTROL WORDS
01046  M00S00872.tdump   +++|
01047  M00S00873.tdump   +++| TARG     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
01048  M01S00016.tdump1  +++| CW       ARG    -DFCW,CWDS
01049  M00S00874.tdump   +++| I        ARG    F,F,400B
01050  M00S00875.tdump   +++| L        ARG    O,O,400B

Seq #  *Modification Id* Act 
----------------------------+
01051  M01S00876.tdump4  ---| A        ARG    -DFVA,OPWD

Seq #  *Modification Id* Act 
----------------------------+
01052  M02S00072.tdump4  ---| H        ARG    -DFVH,OPWD

Seq #  *Modification Id* Act 
----------------------------+
01053  M01S00877.tdump4  ---| O        ARG    -DFVO,OPWD

Seq #  *Modification Id* Act 
----------------------------+
01054  M01S00044.tdump4  +++| A        ARG    -DFVA,OPWA
01055  M01S00045.tdump4  +++| H        ARG    -DFVH,OPWH
01056  M01S00046.tdump4  +++| O        ARG    -DFVO,OPWO
01057  M00S00878.tdump   +++| NR       ARG    -DFVO,REWD

Seq #  *Modification Id* Act 
----------------------------+
01058  M01S00007.tdump3  +++| C        ARG    -DFVA,CODD
01059  M00S00879.tdump   +++| R        ARG    LREC,LREC
01060  M00S00880.tdump   +++| F        ARG    LFLC,LFLC
01061  M00S00881.tdump   +++| N        ARG    LILM,LILM
01062  M00S00882.tdump   +++|          ARG
01063  M00S00883.tdump   +++|
01064  M00S00884.tdump   +++|*         TABLE OF DEFAULT VALUES.
01065  M00S00885.tdump   +++|

Seq #  *Modification Id* Act 
----------------------------+
01066  M01S00017.tdump1  +++| DFCW     CON    1

Seq #  *Modification Id* Act 
----------------------------+
01067  M01S00886.tdump4  ---| DFVO     CON    1
01068  M01S00887.tdump4  ---| DFVA     CON    2

Seq #  *Modification Id* Act 
----------------------------+
01069  M02S00073.tdump4  ---| DFVH     CON    4

Seq #  *Modification Id* Act 
----------------------------+
01070  M01S00047.tdump4  +++| DFVO     CON    OPVO
01071  M01S00048.tdump4  +++| DFVA     CON    OPVA
01072  M01S00049.tdump4  +++| DFVH     CON    OPVH
01073  M01S00050.tdump4  +++|
01074  M01S00051.tdump4  +++|*         TEMPORARY OPTION CONTROL WORDS.
01075  M01S00052.tdump4  +++|
01076  M01S00053.tdump4  +++| OPWO     CON    0           OPTION O CONTROL WORD (PRESET OMITTED)
01077  M01S00054.tdump4  +++| OPWA     CON    0           OPTION A CONTROL WORD (PRESET OMITTED)
01078  M01S00055.tdump4  +++| OPWH     CON    0           OPTION H CONTROL WORD (PRESET OMITTED)
01079  M00S00888.tdump   +++| CDT      SPACE  4
01080  M00S00889.tdump   +++|**        CDT - CHECK DEVICE TYPE.
01081  M00S00890.tdump   +++|*
01082  M00S00891.tdump   +++|*         ENTRY  (X1) = (FET+1).
01083  M00S00892.tdump   +++|*
01084  M00S00893.tdump   +++|*         EXIT   (X7) = 0 IF CONTROL WORD READ/WRITE NOT SUPPORTED ON
01085  M00S00894.tdump   +++|*                THIS DEVICE.
01086  M00S00895.tdump   +++|*
01087  M00S00896.tdump   +++|*         USES   A - 2.
01088  M00S00897.tdump   +++|*                X - 0, 1, 2, 6, 7.
01089  M00S00898.tdump   +++|
01090  M00S00899.tdump   +++|
01091  M00S00900.tdump   +++| CDT2     LX1    12          CHECK *TT*
01092  M00S00901.tdump   +++|          BX6    -X0*X1
01093  M00S00902.tdump   +++|          SX7    X6-2RTT
01094  M00S00903.tdump   +++|
01095  M00S00904.tdump   +++| CDT      SUBR               ENTRY/EXIT
01096  M00S00905.tdump   +++|          MX0    -12
01097  M00S00906.tdump   +++|          PL     X1,CDT2     IF ALLOCATABLE
01098  M00S00907.tdump   +++|          LX1    12
01099  M00S00908.tdump   +++|          SA2    CDTA        SEARCH DEVICE TABLE
01100  M00S00909.tdump   +++|          SX7    0           ASSUME NO FIND
01101  M00S00910.tdump   +++| CDT1     ZR     X2,CDTX     IF NOT FOUND, RETURN
01102  M00S00911.tdump   +++|          BX6    X1-X2
01103  M00S00912.tdump   +++|          AX2    12
01104  M00S00913.tdump   +++|          BX6    X2*X6
01105  M00S00914.tdump   +++|          SA2    A2+B1
01106  M00S00915.tdump   +++|          NZ     X6,CDT1     IF NOT MATCH
01107  M00S00916.tdump   +++|          SX7    1           INDICATE CONTROL WORD POSSIBLE
01108  M00S00917.tdump   +++|          JP     CDTX        RETURN
01109  M00S00918.tdump   +++|
01110  M00S00919.tdump   +++| CDTA     VFD    36/,12/7703B,12/4002B
01111  M00S00920.tdump   +++|          VFD    36/,12/7703B,12/4102B
01112  M00S00921.tdump   +++|          VFD    36/,12/7777B,12/2RMT+4000B
01113  M00S00922.tdump   +++|          VFD    36/,12/7777B,12/2RNT+4000B

Seq #  *Modification Id* Act 
----------------------------+
01114  M01S00010.tdump5  +++|          VFD    36/,12/7777B,12/2RCT+4000B
01115  M01S00011.tdump5  +++|          VFD    36/,12/7777B,12/2RAT+4000B
01116  M01S00012.tdump5  +++|          VFD    36/,12/7777B,12/2ROD+4000B
01117  M00S00923.tdump   +++|          CON    0
01118  M00S00924.tdump   +++|          SPACE  4
01119  M00S00925.tdump   +++|*CALL,COMCARG

Seq #  *Modification Id* Act 
----------------------------+
01120  M01S00030.ns22000 +++|*CALL     COMCCPM
01121  M00S00926.tdump   +++|*CALL,COMCDXB
01122  M00S00927.tdump   +++|*CALL,COMCLFM
01123  M00S00928.tdump   +++|*CALL,COMCSFN

Seq #  *Modification Id* Act 
----------------------------+
01124  M01S00013.tdump5  +++|*CALL,COMCSOE
01125  M00S00929.tdump   +++|*CALL,COMCSTF
01126  M00S00930.tdump   +++|
01127  M00S00931.tdump   +++|*         BUFFERS.
01128  M00S00932.tdump   +++|
01129  M00S00933.tdump   +++| OLWS     EQU    PRE
01130  M00S00934.tdump   +++| BUFO     EQU    OLWS+OLWSL
01131  M00S00935.tdump   +++| BUFF     EQU    BUFO+BUFOL
01132  M00S00936.tdump   +++| RFL=     EQU    BUFF+BUFFL+4
01133  M00S00937.tdump   +++|
01134  M00S00938.tdump   +++|          END