User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:tdump

Deck TDUMP

7 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.tdump   +++|          IDENT  TDUMP,ASEM
00002  M01S00002.tdump   +++|          ABS
00003  M01S00003.tdump   +++|          ENTRY  TDUMP
00004  M01S00004.tdump   +++|          ENTRY  RFL=
00005  M01S00005.tdump   +++|          SST    LREC
00006  M01S00006.tdump   +++|          TITLE  TDUMP - FILE DUMP.
00007  M01S00007.tdump   +++|          SYSCOM B1
00008  M01S00008.tdump   +++|          SPACE  4
00009  M01S00009.tdump   +++|*COMMENT  TDUMP - FILE DUMP.
Line S00010 Modification History
M01 (Added by) tdump
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M02S00010.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M01S00011.tdump   +++|          SPACE  4
00013  M01S00012.tdump   +++|***       TDUMP - FILE DUMP.
00014  M01S00013.tdump   +++|*         R. N. LAGERSTROM.  70/03/05.
00015  M01S00014.tdump   +++|*         D. A. HIVELEY.     72/05/16.
00016  M01S00015.tdump   +++|          SPACE  4
Line S00016 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump2
Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00016.tdump2  ---|***       TDUMP WILL LIST A FILE IN OCTAL AND/OR ALPHANUMERIC FORM.
00018  M01S00001.tdump2  +++|***       TDUMP WILL LIST A FILE IN OCTAL, ALPHANUMERIC OR HEXADECIMAL
Line S00002 Modification History
M01 (Added by) tdump2
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00002.tdump4  ---|*         FORM.  BY DEFAULT, AN OCTAL/ALPHANUMERIC DUMP IS PERFORMED ON
Line S00003 Modification History
M01 (Added by) tdump2
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00003.tdump4  ---|*         THE ENTIRE DATA FILE.
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  M01S00017.tdump   +++|          SPACE  4
00027  M01S00018.tdump   +++|***       CONTROL CARD CALL.
00028  M01S00019.tdump   +++|*
00029  M01S00020.tdump   +++|*         TDUMP(P1,P2,...,PN)
00030  M01S00021.tdump   +++|*
00031  M01S00022.tdump   +++|*         WHERE PN CAN BE -
00032  M01S00023.tdump   +++|*         I=FN   INPUT FILE NAME (DEFAULT = TAPE1).
00033  M01S00024.tdump   +++|*         L=FN   OUTPUT FILE NAME (DEFAULT = OUTPUT).
Line S00025 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00025.tdump4  ---|*         O      OCTAL DUMP ONLY (DEFAULT = O AND A).
Line S00026 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00026.tdump4  ---|*         A      ALPHANUMERIC DUMP ONLY (DEFAULT = O AND A).
Line S00004 Modification History
M01 (Added by) tdump2
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00004.tdump4  ---|*         H      HEXADECIMAL DUMP ONLY.
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  M01S00027.tdump   +++|*         R=NN   RECORD COUNT(DECIMAL) (DEFAULT = TO EOI).
00041  M01S00028.tdump   +++|*         F=NN   FILE COUNT(DECIMAL) (DEFAULT = TO EOI).
00042  M01S00029.tdump   +++|*         F=0    DUMP TO DOUBLE EOF (EMPTY FILE)
00043  M01S00030.tdump   +++|*         N=NN   LINE LIMIT OF DUMP(DECIMAL) (DEFAULT = INFINITE).
00044  M01S00001.tdump3  +++|*         C      READ FILE I IN CODED MODE (DEFAULT = BINARY MODE).
00045  M01S00031.tdump   +++|*         NR     DO NOT REWIND FILE I BEFORE DUMP (DEFAULT = REWIND).
00046  M01S00001.tdump1  +++|*         CW     PRINT CONTROL WORDS IF DEFINED ON DEVICE TYPE.
00047  M01S00032.tdump   +++|          SPACE  4
00048  M01S00033.tdump   +++|*CALL     COMCMAC
00049  M01S00001.ns22000 +++|*CALL     COMCCMD
00050  M01S00034.tdump   +++| READO    SPACE  4
00051  M01S00035.tdump   +++|**        READO - REDEFINE READ WORD MACRO TO USE CONTROL WORD READS.
00052  M01S00036.tdump   +++|
00053  M01S00037.tdump   +++|          PURGMAC  READO
00054  M01S00038.tdump   +++|
00055  M01S00039.tdump   +++| READO    MACRO  F
00056  M01S00040.tdump   +++|          SA1    F+2
00057  M01S00041.tdump   +++|          RJ     RDA
00058  M01S00042.tdump   +++|          ENDM
00059  M01S00043.tdump   +++|          TITLE  EQUIVALENCES AND CONSTANTS.
00060  M01S00044.tdump   +++| OLWSL    EQU    136         LINE LENGTH (CHARACTERS)
Line S00045 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump1
Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00045.tdump1  ---| BUFOL    EQU    64*6+1      LENGTH OF *OUTPUT* BUFFER
00062  M01S00002.tdump1  +++| BUFOL    EQU    512*2+1     LENGTH OF OUTPUT BUFFER
Line S00046 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump5
Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00046.tdump5  ---| BUFFL    EQU    4011B       LENGTH OF *TAPE1* BUFFER
00064  M01S00001.tdump5  +++| BUFFL    EQU    20011B      LENGTH OF *TAPE1* BUFFER
00065  M01S00002.tdump5  +++| ODFEL    EQU    16          OPTICAL DISK FET EXTENSION LENGTH
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  M01S00047.tdump   +++|          SPACE  4
00073  M01S00048.tdump   +++|          ORG    110B
00074  M01S00049.tdump   +++| ASEM     EQU    *
00075  M01S00050.tdump   +++| RECT     CON    1           RECORD COUNT
00076  M01S00051.tdump   +++| FLCT     CON    1           FILE COUNT
00077  M01S00052.tdump   +++| PGCT     CON    1           PAGE COUNT
00078  M01S00053.tdump   +++| WDCT     CON    0           WORD COUNT
00079  M01S00054.tdump   +++| RPCT     CON    0           REPEAT COUNT - SKIPPED LINES
00080  M01S00055.tdump   +++| TLCT     CON    0           TOTAL LINE COUNT
00081  M01S00056.tdump   +++| LILM     DATA   1C0         LINE LIMIT
00082  M01S00057.tdump   +++| LREC     DATA   1C0         RECORD LIMIT
00083  M01S00058.tdump   +++| LFLC     DATA   0L999999    FILE LIMIT (EOI)
00084  M01S00059.tdump   +++| REWD     CON    0           REWIND FILE
Line S00060 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00060.ns22000 ---| LSCT     CON    LINP+1      LINE COUNT ON PAGE
00086  M01S00002.ns22000 +++| LSCT     CON    99999,0     LINE COUNT ON PAGE
00087  M01S00003.ns22000 +++| LL       EQU    LSCT+1      LINE LIMIT
00088  M01S00061.tdump   +++| SCPC     CON    0           BYTE POSITION
Line S00062 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00089  M02S00062.tdump4  ---| OPWD     CON    3           OPTION CONTROL WORD (PRESET TO OCTAL/ALPHA)
00090  M01S00015.tdump4  +++| OPWD     CON    OPVO+OPVA   OPTION CONTROL WORD (PRESET OCTAL/ALPHA)
00091  M01S00063.tdump   +++| EQTW     CON    0           EQUIVALENCE TEST WORD
00092  M01S00064.tdump   +++| EOFL     CON    0           END OF FILE FLAG
00093  M01S00065.tdump   +++| DTOL     BSSZ   4           DATA FOR ONE LINE
00094  M01S00066.tdump   +++| WCBL     CON    0           BEGINNING OF LINE WORD COUNT
00095  M01S00067.tdump   +++| TCCS     CON    0           TERMINAL-S CURRENT CHARACTER SET
00096  M01S00068.tdump   +++| TSRW     BSSZ   2           TERMINAL STATUS REPLY WORDS
00097  M01S00069.tdump   +++| TF       CON    1           ZERO IF TERMINAL FILE
00098  M01S00002.tdump3  +++| CODD     CON    0           INPUT FILE MODE (0=BINARY, 2=CODED)
00099  M01S00070.tdump   +++| CW       CON    0           CONTROL WORD FLAG (1=LEGAL)
00100  M01S00003.tdump1  +++| CWDS     CON    0           CONTROL WORD DUMP SELECTED (1=SELECTED)
00101  M01S00071.tdump   +++|
00102  M01S00072.tdump   +++|*         WORDS/LINE TABLE INDEXED BY *TF*.
00103  M01S00073.tdump   +++|
00104  M01S00074.tdump   +++| WPLT     BSS    0
00105  M01S00075.tdump   +++|          CON    2           TERMINAL
00106  M01S00076.tdump   +++|          CON    4           NON-TERMINAL
00107  M01S00077.tdump   +++|          TITLE  MAIN PROGRAM.
00108  M01S00078.tdump   +++|*         MAIN ROUTINE.
00109  M01S00079.tdump   +++|
00110  M01S00080.tdump   +++| TDM      SA1    CW          CHECK CONTROL WORDS LEGAL
00111  M01S00081.tdump   +++|          ZR     X1,TDM0     IF CONTROL WORDS NOT LEGAL
00112  M01S00082.tdump   +++|          MX6    1           SET FIRST READ FLAG
00113  M01S00083.tdump   +++|          SA6    F-2
00114  M01S00084.tdump   +++|          READCW F,17B       INITIAL FILE READ
00115  M01S00085.tdump   +++|          JP     TDM1
00116  M01S00086.tdump   +++|
00117  M01S00087.tdump   +++| TDM0     READ   F           NORMAL FILE READ
00118  M01S00088.tdump   +++|
00119  M01S00089.tdump   +++| TDM1     SA0    B0          CLEAR ENTRY POSITION
00120  M01S00090.tdump   +++|          BX6    X6-X6
00121  M01S00091.tdump   +++|          SA6    WDCT        CLEAR WORD COUNT
00122  M01S00092.tdump   +++|          SA6    WCBL        CLEAR BEGINNING OF LINE COUNT
00123  M01S00093.tdump   +++| TDM1.1   READO  F           READ WORD FROM FILE
00124  M01S00094.tdump   +++|          NZ     X1,TDM5     IF EOR OR EOF
00125  M01S00095.tdump   +++|          BX7    X7-X7
00126  M01S00096.tdump   +++|          SX2    B1
00127  M01S00097.tdump   +++|          SA7    EOFL        CLEAR EOF FLAG
00128  M01S00098.tdump   +++|          SA6    DTOL+A0     STORE IN LINE WORD BUFFER
00129  M01S00099.tdump   +++|          SA1    WDCT
00130  M01S00100.tdump   +++|          IX6    X1+X2       ADVANCE WORD COUNT
00131  M01S00101.tdump   +++|          SA6    A1
00132  M01S00102.tdump   +++|          SA0    A0+B1       ADVANCE POSITION COUNT
00133  M01S00103.tdump   +++|          SA1    TF
00134  M01S00104.tdump   +++|          SA2    X1+WPLT
00135  M01S00105.tdump   +++|          SB2    X2
00136  M01S00106.tdump   +++|          SX1    A0-B2
00137  M01S00107.tdump   +++|          NZ     X1,TDM1.1   IF NOT FULL LINE
00138  M01S00108.tdump   +++|          SA4    WPLT        TERMINAL WORD COUNT
00139  M01S00109.tdump   +++|          SB3    X4
00140  M01S00110.tdump   +++|          SA1    DTOL        WORD 1
00141  M01S00111.tdump   +++|          SA2    A1+B1
00142  M01S00112.tdump   +++|          SA3    A2+B1
00143  M01S00113.tdump   +++|          SA4    A3+B1       WORD 4
00144  M01S00114.tdump   +++|          BX6    X1-X2       X6 = DIFF(1-2)
00145  M01S00115.tdump   +++|          EQ     B2,B3,TDM1.2  IF TERMINAL
00146  M01S00116.tdump   +++|          BX7    X1-X3
00147  M01S00117.tdump   +++|          BX6    X6+X7       X6 = DIFF(1-2-3)
00148  M01S00118.tdump   +++|          BX7    X1-X4
00149  M01S00119.tdump   +++|          BX6    X6+X7       X6 = DIFF(1-2-3-4)
00150  M01S00120.tdump   +++| TDM1.2   NZ     X6,TDM1.3   IF NOT ALL SAME ON LINE
00151  M01S00121.tdump   +++|          PL     X6,TDM4     IF ALL SAME ON LINE
00152  M01S00122.tdump   +++| TDM1.3   BSS    0
00153  M01S00123.tdump   +++|          SA1    RPCT
00154  M01S00124.tdump   +++|          NZ     X1,TDM3     IF LINES BEING SKIPPED
00155  M01S00125.tdump   +++| TDM2     RJ     FML         FORMAT LIST LINE(S)
00156  M01S00126.tdump   +++|          SA0    B0          CLEAR POSITION COUNT
00157  M01S00127.tdump   +++|          ZR     X1,TDM1.1   IF NO LIMIT REACHED
00158  M01S00128.tdump   +++|          EQ     TDM10       PROCESS LIMIT
00159  M01S00129.tdump   +++|
00160  M01S00130.tdump   +++| TDM2.5   BX7    X3          USE OLD REPEAT COUNT
00161  M01S00131.tdump   +++|          SA7    A3
00162  M01S00132.tdump   +++| TDM3     BX7    X7-X7
00163  M01S00133.tdump   +++|          SA2    RPCT
00164  M01S00134.tdump   +++|          SA7    A2          ZERO SUPPRESSING COUNT
00165  M01S00135.tdump   +++|          AX2    1
00166  M01S00136.tdump   +++|          ZR     X2,TDM2     IF ONE LINE ONLY
00167  M01S00137.tdump   +++|          WRITEC O,MALR      WRITE LINES REPEATED
00168  M01S00138.tdump   +++|          RJ     CPL
00169  M01S00139.tdump   +++|          EQ     TDM2
00170  M01S00140.tdump   +++|
00171  M01S00141.tdump   +++| TDM4     SA4    EQTW        PREVIOUS IDENTITY LINE
00172  M01S00142.tdump   +++|          SA3    RPCT        SKIP COUNT
00173  M01S00143.tdump   +++|          BX6    X1
00174  M01S00144.tdump   +++|          BX1    X1-X4
00175  M01S00145.tdump   +++|          SA6    A4          STORE NEW IDENTITY
00176  M01S00146.tdump   +++|          SX7    X3+B1       ADVANCE SKIP COUNT
00177  M01S00147.tdump   +++|          SA7    A3
00178  M01S00148.tdump   +++|          ZR     X3,TDM2     IF NO SUPPRESSION RUNNING
00179  M01S00149.tdump   +++|          NZ     X1,TDM2.5   IF PREVIOUS SUPPRESSION NOT CONTINUED
00180  M01S00150.tdump   +++|          NG     X1,TDM2.5   IF PREVIOUS SUPPRESSION NOT CONTINUED
00181  M01S00151.tdump   +++|          SA2    WDCT
00182  M01S00152.tdump   +++|          BX7    X2
00183  M01S00153.tdump   +++|          SA0    B0          RESET WORD COUNT
00184  M01S00154.tdump   +++|          SA7    WCBL
00185  M01S00155.tdump   +++|          JP     TDM1.1      GET NEXT WORD
00186  M01S00156.tdump   +++|
00187  M01S00157.tdump   +++| TDM5     NG     X1,TDM6     IF EOF
00188  M01S00158.tdump   +++|          RJ     TDS
00189  M01S00159.tdump   +++|          WRITEC O,MEOR      WRITE EOR MESSAGE
00190  M01S00160.tdump   +++|          RJ     WBL
00191  M01S00161.tdump   +++|          RJ     CPL
00192  M01S00162.tdump   +++|          SA1    RECT
00193  M01S00163.tdump   +++|          SX7    X1+B1
00194  M01S00164.tdump   +++|          SA7    A1          ADVANCE RECORD COUNT
00195  M01S00165.tdump   +++|          RJ     CKL
00196  M01S00166.tdump   +++|          NZ     X1,TDM10    IF LIMIT REACHED
00197  M01S00167.tdump   +++|          SA1    CW          CHECK TYPE OF READ FOR NEXT RECORD
00198  M01S00168.tdump   +++|          ZR     X1,TDM0     IF NO CONTROL WORDS, ISSUE STANDARD READ
00199  M01S00169.tdump   +++|          JP     TDM1        ELSE, FETCH FROM BUFFER
00200  M01S00170.tdump   +++|
00201  M01S00171.tdump   +++| TDM6     SA1    EOFL
00202  M01S00172.tdump   +++|          SA2    LFLC
00203  M01S00173.tdump   +++|          SX6    X1+B1       ADVANCE EOF FLAG
00204  M01S00174.tdump   +++|          NZ     X2,TDM7     IF FILE LIMIT REQUESTED
00205  M01S00175.tdump   +++|          SA6    A1
00206  M01S00176.tdump   +++|          AX6    1
00207  M01S00177.tdump   +++|          NZ     X6,TDM9     IF DOUBLE EOF TERMINATION
00208  M01S00178.tdump   +++| TDM7     SA1    F
00209  M01S00179.tdump   +++|          LX1    59-0
00210  M01S00180.tdump   +++|          NG     X1,TDM8     IF FILE NOT BUSY
00211  M01S00181.tdump   +++|          RECALL F
00212  M01S00182.tdump   +++|          EQ     TDM7
00213  M01S00183.tdump   +++|
00214  M01S00184.tdump   +++| TDM8     LX1    60-9
00215  M01S00185.tdump   +++|          NG     X1,TDM9     IF END OF INFORMATION
00216  M01S00186.tdump   +++|          RJ     TDS
00217  M01S00187.tdump   +++|          WRITEC O,MEOF      WRITE EOF MESSAGE
00218  M01S00188.tdump   +++|          RJ     WBL
00219  M01S00189.tdump   +++|          RJ     CPL
00220  M01S00190.tdump   +++|          SX6    B1
00221  M01S00191.tdump   +++|          SA6    RECT        RESET RECORD COUNT
00222  M01S00192.tdump   +++|          SA2    FLCT
00223  M01S00193.tdump   +++|          SX7    X2+B1
00224  M01S00194.tdump   +++|          SA7    A2          ADVANCE FILE COUNT
00225  M01S00195.tdump   +++|          RJ     CKL
00226  M01S00196.tdump   +++|          ZR     X1,TDM      IF NO LIMIT, GET NEXT FILE
00227  M01S00197.tdump   +++|          EQ     TDM10       LIMIT TERMINATION
00228  M01S00198.tdump   +++|
00229  M01S00199.tdump   +++| TDM9     RJ     TDS
00230  M01S00200.tdump   +++|          SX1    MEOI
00231  M01S00201.tdump   +++| TDM10    WRITEC O,X1        WRITE TERMINATION MESSAGE
00232  M01S00202.tdump   +++|          RJ     WBL
00233  M01S00203.tdump   +++|          RJ     CPL
00234  M01S00204.tdump   +++|          WRITEC O,MEOD      WRITE END OF DUMP
00235  M01S00205.tdump   +++|          WRITEF O
00236  M01S00206.tdump   +++|          MESSAGE TDMA
00237  M01S00207.tdump   +++|          ENDRUN
00238  M01S00208.tdump   +++|
00239  M01S00209.tdump   +++|
00240  M01S00210.tdump   +++| TDMA     DATA   C* TDUMP COMPLETE.*
00241  M01S00211.tdump   +++|          TITLE  SUBROUTINES.
00242  M01S00212.tdump   +++| BSB      SPACE  4
00243  M01S00213.tdump   +++|**        BSB - BLANK FILL STRING BUFFER.
00244  M01S00214.tdump   +++|*
00245  M01S00215.tdump   +++|*         ENTRY  NONE.
00246  M01S00216.tdump   +++|*
00247  M01S00217.tdump   +++|*         EXIT   (OWLS)      BLANK FILLED.
00248  M01S00218.tdump   +++|*
00249  M01S00219.tdump   +++|*         USES   A - 7.
00250  M01S00220.tdump   +++|*                X - 7.
00251  M01S00221.tdump   +++|*                B - 6, 7.
00252  M01S00222.tdump   +++|
00253  M01S00223.tdump   +++|
00254  M01S00224.tdump   +++| BSB      SUBR               ENTRY/EXIT
00255  M01S00225.tdump   +++|          SX7    1R
00256  M01S00226.tdump   +++|          SB7    OLWS+OLWSL
00257  M01S00227.tdump   +++|          SB6    OLWS
00258  M01S00228.tdump   +++| BSB1     SA7    B6
00259  M01S00229.tdump   +++|          SB6    B6+B1
00260  M01S00230.tdump   +++|          NE     B6,B7,BSB1  IF NOT BLANK FILLED
00261  M01S00231.tdump   +++|          EQ     BSBX        RETURN
00262  M01S00232.tdump   +++| CKL      SPACE  4
00263  M01S00233.tdump   +++|**        CKL - CHECK LIMITS ON ALL COUNTERS.
00264  M01S00234.tdump   +++|*
00265  M01S00235.tdump   +++|*         ENTRY  (TLCT), (RECT), (FLCT) CHECKED FOR LIMITS AGAINST
00266  M01S00236.tdump   +++|*                (LILM), (LREC), (LFLC).
00267  M01S00237.tdump   +++|*
00268  M01S00238.tdump   +++|*         EXIT   (X1) = 0    IF NO LIMIT REACHED.
00269  M01S00239.tdump   +++|*                            ELSE, ADDRESS OF LIMIT MESSAGE.
00270  M01S00240.tdump   +++|*
00271  M01S00241.tdump   +++|*         USES   A - 1, 2.
00272  M01S00242.tdump   +++|*                X - 1, 2.
00273  M01S00243.tdump   +++|
00274  M01S00244.tdump   +++|
00275  M01S00245.tdump   +++| CKL      SUBR               ENTRY/EXIT
00276  M01S00246.tdump   +++|          SA1    LILM
00277  M01S00247.tdump   +++|          ZR     X1,CKL1     IF NO LINE LIMIT
00278  M01S00248.tdump   +++|          SA2    TLCT
00279  M01S00249.tdump   +++|          IX2    X1-X2       (LIMIT)-(TOTAL LINE COUNT)
00280  M01S00250.tdump   +++|          SX1    MLLN        SET LINE LIMIT
00281  M01S00251.tdump   +++|          NG     X2,CKLX     IF LINE LIMIT
00282  M01S00252.tdump   +++| CKL1     SA1    LREC
00283  M01S00253.tdump   +++|          ZR     X1,CKL2     IF NO RECORD LIMIT
00284  M01S00254.tdump   +++|          SA2    RECT
00285  M01S00255.tdump   +++|          IX2    X1-X2       (LIMIT)-(RECORD COUNT)
00286  M01S00256.tdump   +++|          SX1    MLRN        SET RECORD LIMIT
00287  M01S00257.tdump   +++|          NG     X2,CKLX     IF RECORD LIMIT
00288  M01S00258.tdump   +++| CKL2     SA1    LFLC
00289  M01S00259.tdump   +++|          ZR     X1,CKL3     IF DUMPING TO DOUBLE EOF
00290  M01S00260.tdump   +++|          SA2    FLCT
00291  M01S00261.tdump   +++|          IX2    X1-X2       (LIMIT)-(FILE COUNT)
00292  M01S00262.tdump   +++|          SX1    MLFN        SET FILE LIMIT
00293  M01S00263.tdump   +++|          NG     X2,CKLX     IF FILE LIMIT
00294  M01S00264.tdump   +++| CKL3     BX1    X1-X1
00295  M01S00265.tdump   +++|          EQ     CKLX        RETURN IF NO LIMITS REACHED
00296  M01S00266.tdump   +++| CPL      SPACE  4
00297  M01S00267.tdump   +++|**        CPL - CHECK PAGE LIMIT.
00298  M01S00268.tdump   +++|*
00299  M01S00269.tdump   +++|*         ENTRY  (LSCT)      LINE COUNT ON PAGE.
00300  M01S00270.tdump   +++|*                (TLCT)      TOTAL LINE COUNT.
00301  M01S00271.tdump   +++|*
00302  M01S00272.tdump   +++|*         EXIT   (LSCT)      ADVANCED BY 1 AND PAGE HEADER WRITTEN
00303  M01S00273.tdump   +++|*                            AND RESET IF NECESSARY.
00304  M01S00274.tdump   +++|*                (TLCT)      ALWAYS ADVANCED.
00305  M01S00275.tdump   +++|*
Line S00276 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00306  M02S00276.ns22000 ---|*         CALLS  WTC, CDD.
Line S00277 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00307  M02S00277.ns22000 ---|*
Line S00278 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00308  M02S00278.ns22000 ---|*         USES   ALL REGISTERS EXCEPT A0, X0, A5 AND X5.
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  M01S00279.tdump   +++|
00316  M01S00280.tdump   +++|
00317  M01S00281.tdump   +++| CPL      SUBR               ENTRY/EXIT
Line S00282 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00318  M02S00282.ns22000 ---| CPL1     SA1    LSCT
00319  M01S00010.ns22000 +++|          SA1    LSCT
00320  M01S00283.tdump   +++|          SA2    TLCT
Line S00284 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00284.ns22000 ---|          SX7    X2+B1       ADVANCE TOTAL LINE COUNT
Line S00285 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00322  M02S00285.ns22000 ---|          SA7    A2
00323  M01S00011.ns22000 +++|          SX6    X2+B1       ADVANCE TOTAL LINE COUNT
00324  M01S00012.ns22000 +++|          SA6    A2
00325  M01S00286.tdump   +++|          SA3    TF
00326  M01S00287.tdump   +++|          ZR     X3,CPLX     IF TERMINAL FILE
00327  M01S00288.tdump   +++|          SX7    X1+B1       ADVANCE LINES ON PAGE
00328  M01S00289.tdump   +++|          SA7    A1
Line S00290 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00329  M02S00290.ns22000 ---|          SX7    X7-LINP
Line S00291 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00330  M02S00291.ns22000 ---|          NG     X7,CPLX     IF NOT END OF PAGE
Line S00292 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00331  M02S00292.ns22000 ---|          SX7    B1
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  M01S00293.tdump   +++|          SA7    A1          CLEAR LINES ON PAGE
00339  M01S00294.tdump   +++|          SA1    PGCT
00340  M01S00295.tdump   +++|          SX7    X1+B1       ADVANCE PAGE COUNT
00341  M01S00296.tdump   +++|          SA7    A1
00342  M01S00297.tdump   +++|          RJ     CDD         CONVERT PAGE NUMBER
00343  M01S00298.tdump   +++|          SA1    HDRMD
00344  M01S00299.tdump   +++|          MX2    30
00345  M01S00300.tdump   +++|          BX7    X2*X1
00346  M01S00301.tdump   +++|          BX6    -X2*X6
00347  M01S00302.tdump   +++|          BX7    X6+X7
00348  M01S00303.tdump   +++|          SA7    A1          STORE PAGE NUMBER IN HEADER
00349  M01S00304.tdump   +++|          CLOCK  HDRMC
00350  M01S00305.tdump   +++|          WRITEC O,HDRM      WRITE HEADER
00351  M01S00306.tdump   +++|          WRITEC O,WBLA      WRITE BLANK LINE
Line S00307 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00352  M02S00307.ns22000 ---|          SA1    TLCT
Line S00308 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00353  M02S00308.ns22000 ---|          SX7    X1+B1       ADVANCE TOTAL LINE COUNT
Line S00309 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00354  M02S00309.ns22000 ---|          SA7    A1
Line S00310 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00310.ns22000 ---|          EQ     CPL1        ADVANCE LINES ON PAGE AND RETURN
00356  M01S00019.ns22000 +++|          EQ     CPLX        RETURN
00357  M01S00311.tdump   +++| ELH      SPACE  4
00358  M01S00312.tdump   +++|**        ELH - ENTER DUMP LINE HEADER.
00359  M01S00313.tdump   +++|*
00360  M01S00314.tdump   +++|*         ENTRY  (FLCT)      FILE COUNT.
00361  M01S00315.tdump   +++|*                (RECT)      RECORD COUNT.
00362  M01S00316.tdump   +++|*                (WDCT)      WORD COUNT.
00363  M01S00317.tdump   +++|*
00364  M01S00318.tdump   +++|*         EXIT   LINE BUFFER CLEARED AND HEADER DATA INSERTED.
00365  M01S00319.tdump   +++|*
00366  M01S00320.tdump   +++|*         CALLS  BSB, COD, ESB.
00367  M01S00321.tdump   +++|*
00368  M01S00322.tdump   +++|*         USES   A - 1, 2, 7.
00369  M01S00323.tdump   +++|*                X - 1, 2, 3, 4, 6, 7.
00370  M01S00324.tdump   +++|*                B - 2, 3, 4, 6, 7.
00371  M01S00325.tdump   +++|
00372  M01S00326.tdump   +++|
00373  M01S00327.tdump   +++| ELH      SUBR               ENTRY/EXIT
00374  M01S00328.tdump   +++|          RJ     BSB         BLANK STRING BUFFER
00375  M01S00329.tdump   +++|
00376  M01S00330.tdump   +++|*         SET FILE COUNT.
00377  M01S00331.tdump   +++|
00378  M01S00332.tdump   +++|          SA1    FLCT
00379  M01S00333.tdump   +++|          RJ     COD         CONVERT FILE COUNT
00380  M01S00334.tdump   +++|          SX7    1RF
00381  M01S00335.tdump   +++|          SA7    OLWS+1      STORE FILE IDENTIFIER
00382  M01S00336.tdump   +++|          SB7    A7+B1
00383  M01S00337.tdump   +++|          MX1    3
00384  M01S00338.tdump   +++|          LX6    48          POSITION CONVERTED DIGITS
00385  M01S00339.tdump   +++|          RJ     ESB         ENTER FILE COUNT
00386  M01S00340.tdump   +++|
00387  M01S00341.tdump   +++|*         SET RECORD COUNT.
00388  M01S00342.tdump   +++|
00389  M01S00343.tdump   +++|          SA1    RECT
00390  M01S00344.tdump   +++|          RJ     COD         CONVERT RECORD COUNT
00391  M01S00345.tdump   +++|          SX7    1RR
00392  M01S00346.tdump   +++|          SA7    B7+B1       STORE RECORD IDENTIFIER
00393  M01S00347.tdump   +++|          SB7    A7+B1
00394  M01S00348.tdump   +++|          MX1    4
00395  M01S00349.tdump   +++|          LX6    42
00396  M01S00350.tdump   +++|          RJ     ESB         ENTER RECORD COUNT
00397  M01S00351.tdump   +++|
00398  M01S00352.tdump   +++|*         SET WORD COUNT.
00399  M01S00353.tdump   +++|
00400  M01S00354.tdump   +++|          SA1    WCBL
00401  M01S00355.tdump   +++|          RJ     COD         CONVERT WORD COUNT
00402  M01S00356.tdump   +++|          SX7    1RW
00403  M01S00357.tdump   +++|          SA7    B7+B1       STORE WORD IDENTIFIER
00404  M01S00358.tdump   +++|          SB7    A7+B1
00405  M01S00359.tdump   +++|          MX1    6
00406  M01S00360.tdump   +++|          LX6    30
00407  M01S00361.tdump   +++|          RJ     ESB         ENTER WORD COUNT
00408  M01S00362.tdump   +++|          SX7    1R-
00409  M01S00363.tdump   +++|          SA7    B7          ENTER SEPARATOR
00410  M01S00364.tdump   +++|          EQ     ELHX        RETURN
00411  M01S00365.tdump   +++| ESB      SPACE  4
00412  M01S00366.tdump   +++|**        ESB - ENTER STRING BUFFER.
00413  M01S00367.tdump   +++|*
00414  M01S00368.tdump   +++|*         ENTRY (X6)         POSITIONED CHARACTER DATA
00415  M01S00369.tdump   +++|*               (X1)         NUMBER OF CHARS TO STORE (ONE BIT PER CHAR)
00416  M01S00370.tdump   +++|*               (B7)         ENTRY ADDRESS IN STRING BUFFER
00417  M01S00371.tdump   +++|*
00418  M01S00372.tdump   +++|*         EXIT   (B7)        NEXT ENTRY ADDRESS
00419  M01S00373.tdump   +++|*
00420  M01S00374.tdump   +++|*         USES   A - 7.
00421  M01S00375.tdump   +++|*                X - 1, 2, 6, 7.
00422  M01S00376.tdump   +++|*                B - 7.
00423  M01S00377.tdump   +++|
00424  M01S00378.tdump   +++|
00425  M01S00379.tdump   +++| ESB      SUBR               ENTRY/EXIT
00426  M01S00380.tdump   +++| ESB1     PL     X1,ESBX     RETURN
00427  M01S00381.tdump   +++|          MX2    -6
00428  M01S00382.tdump   +++|          LX1    1
00429  M01S00383.tdump   +++|          BX7    -X2*X6
00430  M01S00384.tdump   +++|          SA7    B7          STORE CHARACTER
00431  M01S00385.tdump   +++|          SB7    B7+B1       ADVANCE STORE
00432  M01S00386.tdump   +++|          LX6    6
00433  M01S00387.tdump   +++|          EQ     ESB1        LOOP FOR NEXT CHARACTER
00434  M01S00388.tdump   +++| FAW      SPACE  4
00435  M01S00389.tdump   +++|**        FAW - FORMAT ALPHA WORD.
00436  M01S00390.tdump   +++|*
00437  M01S00391.tdump   +++|*         ENTRY  (B2) = ADDRESS OF WORD TO FORMAT TO STRING BUFFER.
00438  M01S00392.tdump   +++|*                (SCPC) = BYTE POSITION.
00439  M01S00393.tdump   +++|*
00440  M01S00394.tdump   +++|*         EXIT   (B2) = UNCHANGED.
00441  M01S00395.tdump   +++|*                CHARACTERS PLACED IN STRING BUFFER AND (SCPC)
00442  M01S00396.tdump   +++|*                ADVANCED.
00443  M01S00397.tdump   +++|*
00444  M01S00398.tdump   +++|*         CALLS  BSB.
00445  M01S00399.tdump   +++|*
00446  M01S00400.tdump   +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
Line S00401 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00447  M02S00401.tdump4  ---|*                A - 1, 2, 3, 4, 5, 6, 7.
00448  M01S00016.tdump4  +++|*                A - 1, 3, 4, 5, 6, 7.
00449  M01S00402.tdump   +++|*                B - 4, 5, 6, 7.
00450  M01S00403.tdump   +++|
00451  M01S00404.tdump   +++|
00452  M01S00405.tdump   +++| FAW      SUBR               ENTRY/EXIT
00453  M01S00406.tdump   +++|          SA4    SCPC
00454  M01S00407.tdump   +++|          NZ     X4,FAW2     IF NOT FIRST WORD
00455  M01S00408.tdump   +++|          SA3    OPWD
Line S00409 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00409.tdump4  ---|          LX3    59-0
00457  M01S00017.tdump4  +++|          LX3    59-OPBO
00458  M01S00410.tdump   +++|          BX6    X6-X6       CLEAR POSITION INCREMENT
00459  M01S00411.tdump   +++|          SA6    FAWB
00460  M01S00412.tdump   +++|          PL     X3,FAW2     IF NOT OCTAL/ALPHA MODE
00461  M01S00413.tdump   +++|          RJ     BSB         BLANK BUFFER
00462  M01S00414.tdump   +++| FAW2     SA5    FAWA        GET ASCII ESCAPE CHARACTER
00463  M01S00415.tdump   +++|          SA1    B2          GET DATA WORD
00464  M01S00416.tdump   +++|          MX2    10
00465  M01S00417.tdump   +++|          SA3    OPWD
00466  M01S00418.tdump   +++|          MX6    54
Line S00419 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00467  M02S00419.tdump4  ---|          LX3    59-0
00468  M01S00018.tdump4  +++|          LX3    59-OPBO
00469  M01S00420.tdump   +++|          SB7    1R          SET BLANK REPLACE
00470  M01S00421.tdump   +++|          NG     X3,FAW7     IF OCTAL/ALPHA MODE
00471  M01S00422.tdump   +++|          SA3    TAAP+X4     GET STARTING POSITION
00472  M01S00423.tdump   +++|          SB5    X3
00473  M01S00424.tdump   +++|          SB4    B1
00474  M01S00425.tdump   +++| FAW2.1   SA3    FAWB        INCREMENT STARTING POSITION
00475  M01S00426.tdump   +++|          SB5    X3+B5
00476  M01S00427.tdump   +++| FAW3     SB6    B1+B1       SET BYTE WIDTH
00477  M01S00428.tdump   +++| FAW4     LX1    6
00478  M01S00429.tdump   +++|          BX7    -X6*X1
00479  M01S00430.tdump   +++|          LX2    1
00480  M01S00431.tdump   +++|          SB6    B6-B1
00481  M01S00432.tdump   +++|          SA3    TCCS
00482  M01S00433.tdump   +++|          ZR     X3,FAW4.1   IF TERMINAL CHARACTER SET NOT ASCII
00483  M01S00434.tdump   +++|          NZ     X5,FAW9     IF PREVIOUS CHARACTER IS ESCAPE
00484  M01S00435.tdump   +++|          SX3    X7-76B
00485  M01S00436.tdump   +++|          ZR     X3,FAW8     IF ESCAPE 76
00486  M01S00437.tdump   +++|          SX3    X7-74B
00487  M01S00438.tdump   +++|          ZR     X3,FAW8     IF ESCAPE 74
00488  M01S00439.tdump   +++| FAW4.1   NZ     X7,FAW5     IF NOT 00 CHARACTER
00489  M01S00440.tdump   +++|          SX7    B7          FORCE BLANK
00490  M01S00441.tdump   +++| FAW5     SA7    B5
00491  M01S00442.tdump   +++|          SB5    B5+B4       ADVANCE STORE
00492  M01S00443.tdump   +++|          NZ     B6,FAW4     IF NOT END OF BYTE
00493  M01S00444.tdump   +++|          SB5    B5+B1       SKIP ONE POSITION
00494  M01S00445.tdump   +++|          NG     X2,FAW3     IF NOT END OF WORD
00495  M01S00446.tdump   +++|          BX7    X5          SAVE ESCAPE CHARACTER
00496  M01S00447.tdump   +++|          SA7    FAWA
00497  M01S00448.tdump   +++|          SA4    SCPC        ADVANCE POSITION
00498  M01S00449.tdump   +++|          SA3    OPWD
00499  M01S00450.tdump   +++|          SX7    X4+B1
Line S00451 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00500  M02S00451.tdump4  ---|          LX3    59-0
00501  M01S00019.tdump4  +++|          LX3    59-OPBO
00502  M01S00452.tdump   +++|          SX6    X7-TBOPL
00503  M01S00453.tdump   +++|          NG     X3,FAW6     IF OCTAL ALPHA MODE
00504  M01S00454.tdump   +++|          SX6    X7-TAAPL
00505  M01S00455.tdump   +++| FAW6     SA7    A4
00506  M01S00456.tdump   +++|          NZ     X6,FAW      IF NOT END OF LINE
00507  M01S00457.tdump   +++|          SA6    A4          SET BEGINNING OF NEXT LINE
00508  M01S00458.tdump   +++|          EQ     FAWX        RETURN
00509  M01S00459.tdump   +++|
00510  M01S00460.tdump   +++| FAW7     SA3    TBOP+X4     SET STARTING POSITION
00511  M01S00461.tdump   +++|          SB5    X3+B1
00512  M01S00462.tdump   +++|          SB4    B1+B1       SET INCREMENT
00513  M01S00463.tdump   +++|          EQ     FAW2.1      LOOP FOR NEXT BYTE
00514  M01S00464.tdump   +++|
00515  M01S00465.tdump   +++| FAW8     BX5    X7
00516  M01S00466.tdump   +++|          SX7    B7          FORCE BLANK
00517  M01S00467.tdump   +++|          EQ     FAW5        STORE CHARACTER
00518  M01S00468.tdump   +++|
00519  M01S00469.tdump   +++| FAW9     BX6    X5          STORE ESCAPE CHARACTER
00520  M01S00470.tdump   +++|          SA6    B5
00521  M01S00471.tdump   +++|          SB5    B5+1
00522  M01S00472.tdump   +++|          SA3    FAWB        ADVANCE POSITION INCREMENT
00523  M01S00473.tdump   +++|          SX6    X3+B1
00524  M01S00474.tdump   +++|          SA6    A3
00525  M01S00475.tdump   +++|          BX5    X5-X5       CLEAR ESCAPE CHARACTER
00526  M01S00476.tdump   +++|          MX6    54          RESET MASK
00527  M01S00477.tdump   +++|          EQ     FAW5        STORE CHARACTER
00528  M01S00478.tdump   +++|
00529  M01S00479.tdump   +++| FAWA     CON    0           ASCII ESCAPE CHARACTER
00530  M01S00480.tdump   +++| FAWB     CON    0           WORD POSITION INCREMENT
00531  M01S00481.tdump   +++|
00532  M01S00482.tdump   +++|*         TABLE OF BYTE FORMAT POSITIONS
00533  M01S00483.tdump   +++|
00534  M01S00484.tdump   +++| TAAP     BSS    0
00535  M01S00485.tdump   +++|          LOC    0
00536  M01S00486.tdump   +++|          CON    OLWS+21
00537  M01S00487.tdump   +++|          CON    OLWS+38
00538  M01S00488.tdump   +++|          CON    OLWS+55
00539  M01S00489.tdump   +++|          CON    OLWS+72
00540  M01S00490.tdump   +++| TAAPL    EQU    *
00541  M01S00491.tdump   +++|          LOC    *O
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.
Line S00017 Modification History
M01 (Added by) tdump2
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00017.tdump4  ---|*                A - 4, 6, 7.
00555  M01S00020.tdump4  +++|*                A - 3, 4, 6, 7.
00556  M01S00018.tdump2  +++|*                B - 5, 6, 7.
00557  M01S00021.tdump4  +++|*
00558  M01S00022.tdump4  +++|*         CALLS  BSB.
00559  M01S00019.tdump2  +++|
00560  M01S00020.tdump2  +++|
00561  M01S00021.tdump2  +++| FHW      SUBR               ENTRY/EXIT
00562  M01S00022.tdump2  +++|          SA4    SCPC
Line S00023 Modification History
M01 (Added by) tdump2
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00563  M02S00023.tdump4  ---|          SA4    TBOP+X4
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
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  M01S00492.tdump   +++| FML      SPACE  4
00596  M01S00493.tdump   +++|**        FML - FORMAT PRINT LINE(S).
00597  M01S00494.tdump   +++|*
00598  M01S00495.tdump   +++|*         ENTRY  (A0)        INDEX TO LAST ENTRY+1 IN WORD BUFFER.
00599  M01S00496.tdump   +++|*
00600  M01S00497.tdump   +++|*         EXIT   (X1) = 0    IF NO LIMIT REACHED.
00601  M01S00498.tdump   +++|*
00602  M01S00029.tdump4  +++|*         USES   X - 1, 2, 6, 7.
00603  M01S00030.tdump4  +++|*                A - 2, 6, 7.
00604  M01S00031.tdump4  +++|*                B - 2.
00605  M01S00032.tdump4  +++|*
Line S00499 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump2
Seq #  *Modification Id* Act 
----------------------------+
00606  M02S00499.tdump2  ---|*         CALLS  ELH, FOW, WSB, FAW.
00607  M01S00049.tdump2  +++|*         CALLS  ELH, FAW, FHW, FOW, WSB.
Line S00500 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00608  M02S00500.tdump4  ---|*
Line S00501 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00609  M02S00501.tdump4  ---|*         USES   ALL REGISTERS EXCEPT A0, X0, A5 AND X5.
00610  M01S00502.tdump   +++|
00611  M01S00503.tdump   +++|
00612  M01S00504.tdump   +++| FML      SUBR               ENTRY/EXIT
00613  M01S00505.tdump   +++|          BX1    X1-X1
00614  M01S00506.tdump   +++|          SX1    A0-B1
00615  M01S00507.tdump   +++|          NG     X1,FMLX     IF EMPTY LINE
00616  M01S00508.tdump   +++|          SA2    OPWD
Line S00509 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00617  M02S00509.tdump4  ---|          LX2    59-0
00618  M01S00033.tdump4  +++|          LX2    59-OPBO
00619  M01S00510.tdump   +++|          PL     X2,FML2     IF NOT OCTAL MODE
00620  M01S00511.tdump   +++|          BX6    X6-X6       CLEAR BYTE POSITION
00621  M01S00512.tdump   +++|          SA6    SCPC
00622  M01S00513.tdump   +++|          RJ     ELH         ENTER LINE HEADER
00623  M01S00514.tdump   +++|          SB2    DTOL
00624  M01S00515.tdump   +++|          RJ     FOW         WORD 1
00625  M01S00516.tdump   +++|          SB2    B2+B1
00626  M01S00517.tdump   +++|          SX1    A0-2
00627  M01S00518.tdump   +++|          NG     X1,FML1     IF END OF LINE
00628  M01S00519.tdump   +++|          RJ     FOW         WORD 2
00629  M01S00520.tdump   +++|          SB2    B2+B1
00630  M01S00521.tdump   +++|          SX1    A0-3
00631  M01S00522.tdump   +++|          NG     X1,FML1     IF END OF LINE
00632  M01S00523.tdump   +++|          RJ     FOW         WORD 3
00633  M01S00524.tdump   +++|          SB2    B2+B1
00634  M01S00525.tdump   +++|          SX1    A0-4
00635  M01S00526.tdump   +++|          NG     X1,FML1     IF END OF LINE
00636  M01S00527.tdump   +++|          RJ     FOW         WORD 4
00637  M01S00528.tdump   +++| FML1     RJ     WSB         WRITE BUFFER
00638  M01S00529.tdump   +++| FML2     SA2    OPWD
Line S00530 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00530.tdump4  ---|          LX2    59-1
00640  M01S00034.tdump4  +++|          LX2    59-OPBA
00641  M01S00531.tdump   +++|          BX6    X6-X6
00642  M01S00532.tdump   +++|          PL     X2,FML4     IF NOT ALPHA MODE
00643  M01S00533.tdump   +++|          SA6    SCPC
00644  M01S00534.tdump   +++|          RJ     ELH
00645  M01S00535.tdump   +++|          SB2    DTOL
00646  M01S00536.tdump   +++|          RJ     FAW         WORD 1
00647  M01S00537.tdump   +++|          SB2    B2+B1
00648  M01S00538.tdump   +++|          SX1    A0-2
00649  M01S00539.tdump   +++|          NG     X1,FML3     IF END OF LINE
00650  M01S00540.tdump   +++|          RJ     FAW         WORD 2
00651  M01S00541.tdump   +++|          SB2    B2+B1
00652  M01S00542.tdump   +++|          SX1    A0-3
00653  M01S00543.tdump   +++|          NG     X1,FML3     IF END OF LINE
00654  M01S00544.tdump   +++|          RJ     FAW         WORD 3
00655  M01S00545.tdump   +++|          SB2    B2+B1
00656  M01S00546.tdump   +++|          SX1    A0-4
00657  M01S00547.tdump   +++|          NG     X1,FML3     IF END OF LINE
00658  M01S00548.tdump   +++|          RJ     FAW         WORD 4
00659  M01S00549.tdump   +++| FML3     RJ     WSB         WRITE BUFFER
Line S00550 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump2
Seq #  *Modification Id* Act 
----------------------------+
00660  M02S00550.tdump2  ---| FML4     SA2    WDCT
00661  M01S00050.tdump2  +++| FML4     SA2    OPWD
Line S00051 Modification History
M01 (Added by) tdump2
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00051.tdump4  ---|          LX2    59-2
00663  M01S00035.tdump4  +++|          LX2    59-OPBH
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  M01S00551.tdump   +++|          BX7    X2
00685  M01S00552.tdump   +++|          SA7    WCBL        SET BEGINNING OF NEXT LINE
00686  M01S00553.tdump   +++|          EQ     FMLX        RETURN
00687  M01S00554.tdump   +++| FOW      SPACE  4
00688  M01S00555.tdump   +++|**        FOW - FORMAT OCTAL WORD.
00689  M01S00556.tdump   +++|*
00690  M01S00557.tdump   +++|*         ENTRY  (B2)        ADDRESS OF WORD TO FORMAT.
00691  M01S00558.tdump   +++|*                (SCPC)      BYTE POSITION.
00692  M01S00559.tdump   +++|*
00693  M01S00560.tdump   +++|*         EXIT   WORD PLACED IN BUFFER.
00694  M01S00561.tdump   +++|*                (SCPC)      UPDATED.
00695  M01S00562.tdump   +++|*                (X6) = 0    IF LINE IS FILLED.
00696  M01S00563.tdump   +++|*                (B2)        UNCHANGED.
00697  M01S00564.tdump   +++|*
00698  M01S00565.tdump   +++|*         USES   A - 4, 6, 7.
00699  M01S00566.tdump   +++|*                X - 2, 3, 4, 6, 7.
00700  M01S00567.tdump   +++|*                B - 1, 2, 5, 6, 7.
00701  M01S00568.tdump   +++|
00702  M01S00569.tdump   +++|
00703  M01S00570.tdump   +++| FOW      SUBR               ENTRY/EXIT
00704  M01S00571.tdump   +++|          SA4    SCPC
00705  M01S00572.tdump   +++|          SA4    TBOP+X4     GET BEGINNING CHARACTER POSITION
00706  M01S00573.tdump   +++|          MX3    20          DIGIT COUNT
00707  M01S00574.tdump   +++|          SB7    X4          STORE ADDRESS
00708  M01S00575.tdump   +++|          SB6    1R0
00709  M01S00576.tdump   +++|          MX2    -3
00710  M01S00577.tdump   +++|          SA4    B2          GET INPUT WORD
00711  M01S00578.tdump   +++| FOW2     SB5    4
00712  M01S00579.tdump   +++| FOW3     LX4    3
00713  M01S00580.tdump   +++|          BX7    -X2*X4      GET DIGIT
00714  M01S00581.tdump   +++|          SX7    X7+B6
00715  M01S00582.tdump   +++|          LX3    1
00716  M01S00583.tdump   +++|          SA7    B7          STORE CONVERTED DIGIT
00717  M01S00584.tdump   +++|          SB7    B7+B1
00718  M01S00585.tdump   +++|          SB5    B5-B1
00719  M01S00586.tdump   +++|          NZ     B5,FOW3     IF NOT END OF BYTE
00720  M01S00587.tdump   +++|          SB7    B7+B1       SKIP COLUMN
00721  M01S00588.tdump   +++|          NG     X3,FOW2     IF NOT END OF WORD
00722  M01S00589.tdump   +++|          SA4    SCPC
00723  M01S00590.tdump   +++|          SX7    X4+B1
00724  M01S00591.tdump   +++|          SX6    X7-TBOPL
00725  M01S00592.tdump   +++|          SA7    A4          ADVANCE POSITION
00726  M01S00593.tdump   +++|          NZ     X6,FOWX     IF NOT END OF LINE
00727  M01S00594.tdump   +++|          SA6    A4          RESET BYTE POSITION
00728  M01S00595.tdump   +++|          EQ     FOWX        RETURN
00729  M01S00596.tdump   +++|
00730  M01S00597.tdump   +++|*         TABLE OF FORMATTING VALUES
00731  M01S00598.tdump   +++|
00732  M01S00599.tdump   +++| TBOP     BSS    0
00733  M01S00600.tdump   +++|          LOC    0
00734  M01S00601.tdump   +++|          CON    OLWS+21
00735  M01S00602.tdump   +++|          CON    OLWS+48
00736  M01S00603.tdump   +++|          CON    OLWS+75
00737  M01S00604.tdump   +++|          CON    OLWS+102
00738  M01S00605.tdump   +++| TBOPL    EQU    *
00739  M01S00606.tdump   +++|          LOC    *O
00740  M01S00607.tdump   +++| RDA      SPACE  4
00741  M01S00608.tdump   +++|**        RDA - READ DATA (READO MACRO).
00742  M01S00609.tdump   +++|*         PROCESS READ ONE WORD REQUESTS (RDO=).
00743  M01S00610.tdump   +++|*         DEBLOCK DATA IF CONTROL WORD READS USED.
00744  M01S00611.tdump   +++|*
00745  M01S00612.tdump   +++|*         ENTRY  (X1) = (FET+2).
00746  M01S00613.tdump   +++|*                (A1) = FET+2.
00747  M01S00614.tdump   +++|*
00748  M01S00615.tdump   +++|*         EXIT   (X1) = 1 IF EOR DETECTED.
00749  M01S00616.tdump   +++|*                (X1) = -1 IF EOF DETECTED.
00750  M01S00617.tdump   +++|*                (X1) = -2 IF EOI DETECTED.
00751  M01S00618.tdump   +++|*                (X1) = 0 IF TRANSFER COMPLETE.
00752  M01S00619.tdump   +++|*
Line S00620 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump1
Seq #  *Modification Id* Act 
----------------------------+
00753  M02S00620.tdump1  ---|*         USES   A - 1, 2, 3, 6, 7.
Line S00621 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump1
Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00621.tdump1  ---|*                B - 1, 4, 6, 7.
Line S00622 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump1
Seq #  *Modification Id* Act 
----------------------------+
00755  M02S00622.tdump1  ---|*                X - 1, 2, 3, 4, 6, 7.
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  M01S00623.tdump   +++|
00762  M01S00624.tdump   +++|
00763  M01S00625.tdump   +++| RDA5     SX7    B6          STORE WORDS REMAINING IN THIS BLOCK
00764  M01S00626.tdump   +++|          SA7    A2
00765  M01S00627.tdump   +++| RDA6     RJ     RDO=        PROCESS WORD REQUEST
00766  M01S00628.tdump   +++|
00767  M01S00629.tdump   +++| RDA      SUBR               ENTRY/EXIT
Line S00630 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump1
Seq #  *Modification Id* Act 
----------------------------+
00768  M02S00630.tdump1  ---|          SA2    CW          CHECK CONTROL WORD FLAG
Line S00631 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump1
Seq #  *Modification Id* Act 
----------------------------+
00769  M02S00631.tdump1  ---|          ZR     X2,RDA6     IF CONTROL WORDS NOT LEGAL NOW
00770  M01S00009.tdump1  +++|          SA2    CWDS        CHECK CONTROL WORD DUMP FLAG
00771  M01S00010.tdump1  +++|          PL     X2,RDA6     IF CONTROL WORDS NOT LEGAL NOW
00772  M01S00632.tdump   +++| RDA1     SB4    A1          SAVE FET POINTER
00773  M01S00633.tdump   +++|          SA2    A1-4        GET NUMBER OF WORDS BEFORE CONTROL WORD
00774  M01S00634.tdump   +++|          SB5    X2
00775  M01S00635.tdump   +++|          NG     X2,RDA4     IF FIRST READ OF FILE
00776  M01S00636.tdump   +++| RDA2     SB6    B5-B1       DECREMENT WORDS REMAINING IN BLOCK
00777  M01S00637.tdump   +++|          PL     B6,RDA5     IF ENOUGH WORDS LEFT FOR REQUEST
00778  M01S00638.tdump   +++|          SA3    A2+B1       CHECK EOR FLAG
00779  M01S00639.tdump   +++|          PL     X3,RDA3     IF NOT EOR
00780  M01S00640.tdump   +++|          MX6    1           SET NEW READ FLAG ON
00781  M01S00641.tdump   +++|          SA6    A2
00782  M01S00642.tdump   +++|          SA6    A3          RESET EOR FLAG
00783  M01S00643.tdump   +++|          RJ     RDO=        CLEAR LEVEL WORD
00784  M01S00644.tdump   +++|          SX1    B1          SET EOR INDICATOR FOR RETURN
00785  M01S00645.tdump   +++|          JP     RDAX        RETURN
00786  M01S00646.tdump   +++|
00787  M01S00647.tdump   +++| RDA3     RJ     RDO=        CLEAR LEVEL WORD
00788  M01S00648.tdump   +++| RDA4     SA1    B4          RESET A1, X1 VALUES
00789  M01S00649.tdump   +++|          RJ     RDO=        READ CONTROL WORD
00790  M01S00650.tdump   +++|          NG     X1,RDAX     IF EOF/EOI, RETURN
00791  M01S00651.tdump   +++|          SA1    B4          RESET A1, X1 VALUES
00792  M01S00652.tdump   +++|          BX3    X6          CONTROL WORD
00793  M01S00653.tdump   +++|          SX7    5           BYTES/WORD
00794  M01S00654.tdump   +++|          SX4    X3+4        ROUND UP
00795  M01S00655.tdump   +++|          AX3    36
00796  M01S00656.tdump   +++|          SX3    X3
00797  M01S00657.tdump   +++|          IX7    X4/X7       WORDS IN BLOCK
00798  M01S00658.tdump   +++|          IX6    X7-X3       SAVE EOR FLAG
00799  M01S00659.tdump   +++|          SA7    A1-4        STORE WORD COUNT
00800  M01S00660.tdump   +++|          SA6    A1-3        STORE EOF FLAG
00801  M01S00661.tdump   +++|          JP     RDA1        CONTINUE IN LOOP
00802  M01S00662.tdump   +++| TDS      SPACE  4
00803  M01S00663.tdump   +++|**        TDS - TERMINATE DUMP SEGMENT.
00804  M01S00664.tdump   +++|*
00805  M01S00665.tdump   +++|*         ENTRY  (A0)        NUMBER OF WORDS IN BUFFER.
00806  M01S00666.tdump   +++|*
00807  M01S00667.tdump   +++|*         EXIT   (X1) = 0    IF NO LIMITS EXCEEDED.
00808  M01S00668.tdump   +++|*
00809  M01S00669.tdump   +++|*         CALLS  FML, CPL, WBL.
00810  M01S00670.tdump   +++|*
00811  M01S00671.tdump   +++|*         USES   ALL REGISTERS EXCEPT A0, X0, A5 AND X5.
00812  M01S00672.tdump   +++|
00813  M01S00673.tdump   +++|
00814  M01S00674.tdump   +++| TDS      SUBR               ENTRY/EXIT
00815  M01S00675.tdump   +++|          SA1    RPCT
00816  M01S00676.tdump   +++|          SX2    X1-3
00817  M01S00677.tdump   +++|          AX1    1
00818  M01S00678.tdump   +++|          BX6    X6-X6
00819  M01S00679.tdump   +++|          SA6    A1          CLEAR REPEAT
00820  M01S00680.tdump   +++|          ZR     X1,TDS3     IF NOT REPEAT (SUPPRESSING)
00821  M01S00681.tdump   +++|          PL     X2,TDS1     IF MORE THAN TWO LINES
00822  M01S00682.tdump   +++|          SX6    A0
00823  M01S00683.tdump   +++|          ZR     X6,TDS2     IF NO WORDS
00824  M01S00684.tdump   +++| TDS1     WRITEC O,MALR      WRITE REPEAT MESSAGE
00825  M01S00685.tdump   +++|          RJ     WBL
00826  M01S00686.tdump   +++|          RJ     CPL
00827  M01S00687.tdump   +++|          SX6    A0
00828  M01S00688.tdump   +++|          NZ     X6,TDS3     IF WORDS IN BUFFER
00829  M01S00689.tdump   +++| TDS2     SA4    TF          SET WORDS/LINE FOR FILE TYPE
00830  M01S00690.tdump   +++|          SA2    X4+WPLT
00831  M01S00691.tdump   +++|          SA1    WCBL
00832  M01S00692.tdump   +++|          IX6    X1-X2
00833  M01S00693.tdump   +++|          SA6    A1
00834  M01S00694.tdump   +++|          SA0    X2
00835  M01S00695.tdump   +++| TDS3     RJ     FML
00836  M01S00696.tdump   +++|          BX6    X6-X6
00837  M01S00697.tdump   +++|          SA6    WCBL        ZERO BEGIN LINE WORD COUNT
00838  M01S00698.tdump   +++|          EQ     TDSX        RETURN
00839  M01S00699.tdump   +++| WBL      SPACE  4
00840  M01S00700.tdump   +++|**        WBL - WRITE BLANK LINE.
00841  M01S00701.tdump   +++|*
00842  M01S00702.tdump   +++|*         ENTRY  NONE.
00843  M01S00703.tdump   +++|*
00844  M01S00704.tdump   +++|*         EXIT   BLANK LINE WRITTEN.
00845  M01S00705.tdump   +++|*
00846  M01S00706.tdump   +++|*         CALLS  CPL, WTC.
00847  M01S00707.tdump   +++|*
00848  M01S00708.tdump   +++|*         USES   ALL REGISTERS EXCEPT A0, X0, A5 AND X5.
00849  M01S00709.tdump   +++|
00850  M01S00710.tdump   +++|
00851  M01S00711.tdump   +++| WBL      SUBR               ENTRY/EXIT
00852  M01S00712.tdump   +++|          RJ     CPL         CHECK PAGE LIMIT
00853  M01S00713.tdump   +++|          WRITEC O,WBLA      WRITE BLANK LINE
00854  M01S00714.tdump   +++|          EQ     WBLX        RETURN
00855  M01S00715.tdump   +++|
00856  M01S00716.tdump   +++| WBLA     DATA   2C
00857  M01S00717.tdump   +++| WSB      SPACE  4
00858  M01S00718.tdump   +++|**        WSB - WRITE STRING BUFFER.
00859  M01S00719.tdump   +++|*
00860  M01S00720.tdump   +++|*         ENTRY  NONE.
00861  M01S00721.tdump   +++|*
00862  M01S00722.tdump   +++|*         EXIT   (X1) = 0    IF NO LIMITS REACHED.
00863  M01S00723.tdump   +++|*                STRING BUFFER WRITTEN TO OUTPUT FILE.
00864  M01S00724.tdump   +++|*
00865  M01S00725.tdump   +++|*         CALLS  CPL, CKL, WTS.
00866  M01S00726.tdump   +++|*
00867  M01S00727.tdump   +++|*         USES   ALL REGISTERS EXCEPT A0, X0, A5 AND X5.
00868  M01S00728.tdump   +++|
00869  M01S00729.tdump   +++|
00870  M01S00730.tdump   +++| WSB      SUBR               ENTRY/EXIT
00871  M01S00731.tdump   +++|          WRITES O,OLWS,OLWSL
00872  M01S00732.tdump   +++|          RJ     CPL
00873  M01S00733.tdump   +++|          BX6    X6-X6
00874  M01S00734.tdump   +++|          SA6    SCPC        SET LINE EMPTY
00875  M01S00735.tdump   +++|          RJ     CKL
00876  M01S00736.tdump   +++|          EQ     WSBX        RETURN
00877  M01S00737.tdump   +++|
00878  M01S00738.tdump   +++|*         MESSAGES.
00879  M01S00739.tdump   +++|
00880  M01S00740.tdump   +++| HDRM     DATA   30H1        - FILE DUMP -
00881  M01S00741.tdump   +++| HDRMA    DATA   30H
00882  M01S00742.tdump   +++|          DATA   30H
00883  M01S00743.tdump   +++| HDRMB    DATA   10H
00884  M01S00744.tdump   +++| HDRMC    DATA   10H
00885  M01S00745.tdump   +++| HDRMD    DATA   10H PAGE 0000
00886  M01S00746.tdump   +++|          DATA   1C.
00887  M01S00747.tdump   +++| MLLN     DATA   C* -- LINE LIMIT --*
00888  M01S00748.tdump   +++| MLRN     DATA   C* -- RECORD LIMIT --*
00889  M01S00749.tdump   +++| MLFN     DATA   C* -- FILE LIMIT --*
00890  M01S00750.tdump   +++| MEOR     DATA   C* -- END OF RECORD --*
00891  M01S00751.tdump   +++| MEOF     DATA   C* -- END OF FILE --*
00892  M01S00752.tdump   +++| MEOI     DATA   C* -- END OF INFORMATION --*
00893  M01S00753.tdump   +++| MEOD     DATA   C* -- END OF DUMP --*
00894  M01S00754.tdump   +++| MALR     DATA   C* -- ABOVE LINE REPEATED --*
00895  M01S00755.tdump   +++|
00896  M01S00756.tdump   +++|*         COMMON DECKS.
00897  M01S00757.tdump   +++|
00898  M01S00758.tdump   +++|*CALL,COMCCDD
00899  M01S00759.tdump   +++|*CALL,COMCCOD
00900  M01S00760.tdump   +++|*CALL,COMCCIO
00901  M01S00761.tdump   +++|*CALL,COMCRDO
00902  M01S00762.tdump   +++|*CALL,COMCSYS
00903  M01S00763.tdump   +++|*CALL,COMCWTC
00904  M01S00764.tdump   +++|*CALL,COMCWTS
00905  M01S00765.tdump   +++|*CALL,COMCWTW
00906  M01S00766.tdump   +++|
00907  M01S00767.tdump   +++|*         FETS.
00908  M01S00768.tdump   +++|
00909  M01S00769.tdump   +++| O        BSS    0
00910  M01S00770.tdump   +++| OUTPUT   FILEB  BUFO,BUFOL,EPR,(FET=8)
00911  M01S00771.tdump   +++|
00912  M01S00772.tdump   +++|          CON    0           REMAINING WORD COUNT
00913  M01S00773.tdump   +++|          CON    0           EOR FLAG
00914  M01S00774.tdump   +++|
00915  M01S00775.tdump   +++| F        BSS    0
Line S00776 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump5
Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00776.tdump5  ---| TAPE1    FILEB  BUFF,BUFFL,(FET=7)
00917  M01S00003.tdump5  +++| TAPE1    FILEB  BUFF,BUFFL,(FET=10)
00918  M01S00004.tdump5  +++| ODFE     BSSZ   ODFEL       OPTICAL DISK FET EXTENSION
00919  M01S00777.tdump   +++|          TITLE  PRESET PROGRAM
00920  M01S00778.tdump   +++| PRE      SPACE  4
00921  M01S00779.tdump   +++|**        PRE - PRESET PROGRAM.
00922  M01S00780.tdump   +++|*
00923  M01S00781.tdump   +++|*         ENTRY  CONTROL CARD ARGUMENTS STORED BY SYSTEM.
00924  M01S00782.tdump   +++|*
00925  M01S00783.tdump   +++|*         EXIT   (B1) = 1.
00926  M01S00784.tdump   +++|*
Line S00020 Modification History
M01 (Added by) ns22000
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00927  M02S00020.tdump4  ---|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
Line S00021 Modification History
M01 (Added by) ns22000
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00928  M02S00021.tdump4  ---|*                A - 1, 2, 4, 5, 6, 7.
Line S00022 Modification History
M01 (Added by) ns22000
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00929  M02S00022.tdump4  ---|*                B - 1, 4, 5, 6, 7.
Line S00023 Modification History
M01 (Added by) ns22000
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00930  M02S00023.tdump4  ---|*
00931  M01S00785.tdump   +++|*         CALLS  ARG, CDT, CPL, DXB, SFN, STF.
Line S00786 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00932  M02S00786.tdump4  ---|*
Line S00787 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00787.ns22000 ---|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
Line S00788 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00934  M02S00788.ns22000 ---|*                A - 1, 2, 5, 6, 7.
Line S00789 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00935  M02S00789.ns22000 ---|*                B - 1, 4, 5, 6, 7.
00936  M01S00790.tdump   +++|*
Line S00791 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00937  M02S00791.ns22000 ---|*         MACROS ABORT, DATE, MESSAGE, OPEN, REWIND, TSTATUS.
00938  M01S00024.ns22000 +++|*         MACROS ABORT, DATE, GETPP, MESSAGE, OPEN, REWIND,
00939  M01S00025.ns22000 +++|*                TSTATUS, WRITEW.
00940  M01S00792.tdump   +++|
00941  M01S00793.tdump   +++|
00942  M01S00794.tdump   +++| TDUMP    BSS    0
00943  M01S00795.tdump   +++| PRE      EQU    TDUMP
00944  M01S00796.tdump   +++|
00945  M01S00797.tdump   +++|          SB1    1
00946  M01S00798.tdump   +++|          SA1    ACTR
00947  M01S00799.tdump   +++|          R=     A4,ARGR     SET FIRST ARGUMENT
00948  M01S00800.tdump   +++|          SB4    X1          SET ARGUMENT COUNT
00949  M01S00801.tdump   +++|          SB5    TARG        SET EQUIVALENCE TABLE
00950  M01S00802.tdump   +++|          RJ     ARG         PROCESS ARGUMENTS
Line S00803 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
00951  M02S00803.tdump4  ---|          ZR     X1,PRE2     IF NO ARGUMENT ERROR
00952  M01S00036.tdump4  +++|          ZR     X1,PRE1.1   IF NO ARGUMENT ERROR
00953  M01S00804.tdump   +++| PRE1     SX2    =C* ARGUMENT ERROR.*
00954  M01S00805.tdump   +++|          MESSAGE X2
00955  M01S00806.tdump   +++|          ABORT
00956  M01S00807.tdump   +++|
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  M01S00808.tdump   +++| PRE2     SA1    O
00965  M01S00809.tdump   +++|          MX6    42
00966  M01S00810.tdump   +++|          BX7    X7-X7
00967  M01S00811.tdump   +++|          BX1    X6*X1
00968  M01S00812.tdump   +++|          SX6    A1
00969  M01S00813.tdump   +++|          BX6    X1+X6       FORM POINTER TO *OUTPUT* FILE
00970  M01S00814.tdump   +++|          SA6    B1+B1
00971  M01S00815.tdump   +++|          SA7    A6+B1
00972  M01S00816.tdump   +++|          SX2    A1          OUTPUT FET ADDRESS
00973  M01S00817.tdump   +++|          RJ     STF         CHECK IF TERMINAL FILE
00974  M01S00026.ns22000 +++|          SA6    TF
00975  M01S00818.tdump   +++|          NZ     X6,PRE3     IF NON-TERMINAL
Line S00819 Modification History
M01 (Added by) tdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00976  M02S00819.ns22000 ---|          SA6    TF
00977  M01S00820.tdump   +++|          TSTATUS  TSRW      GET CURRENT CHARACTER SET
00978  M01S00821.tdump   +++|          SA2    TSRW+1
00979  M01S00822.tdump   +++|          MX0    59
00980  M01S00823.tdump   +++|          LX2    0-2
00981  M01S00824.tdump   +++|          BX6    -X0*X2
00982  M01S00825.tdump   +++|          SA6    TCCS
00983  M01S00826.tdump   +++| PRE3     SB7    B1          DECIMAL BASE
00984  M01S00827.tdump   +++|          SA5    LREC
00985  M01S00828.tdump   +++|          RJ     DXB
00986  M01S00829.tdump   +++|          NZ     X4,PRE1     IF RECORD COUNT NON NUMERIC
00987  M01S00830.tdump   +++|          SA6    A5          STORE CONVERTED VALUE
00988  M01S00831.tdump   +++|          SA5    LFLC
00989  M01S00832.tdump   +++|          ZR     X5,PRE3.1   IF NO CONVERSION
00990  M01S00833.tdump   +++|          RJ     DXB
00991  M01S00834.tdump   +++|          NZ     X4,PRE1     IF FILE COUNT NON NUMERIC
00992  M01S00835.tdump   +++|          SA6    A5          STORE CONVERTED VALUE
00993  M01S00836.tdump   +++| PRE3.1   SA5    LILM
00994  M01S00837.tdump   +++|          RJ     DXB
00995  M01S00838.tdump   +++|          NZ     X4,PRE1     IF LINE LIMIT NON NUMERIC
00996  M01S00839.tdump   +++|          SA6    A5          STORE CONVERTED VALUE
00997  M01S00840.tdump   +++|          SB6    8
00998  M01S00841.tdump   +++|          SA1    CCDR-1
00999  M01S00842.tdump   +++|          SB7    HDRMA
01000  M01S00843.tdump   +++|          MX3    54
01001  M01S00844.tdump   +++| PRE4     SA1    A1+B1       GET WORD OF CONTROL CARD
01002  M01S00845.tdump   +++|          BX7    X1
01003  M01S00846.tdump   +++|          BX6    -X3*X1
01004  M01S00847.tdump   +++|          ZR     X6,PRE6     IF LAST WORD
01005  M01S00848.tdump   +++|          SA7    B7          STORE IN HEADER LINE
01006  M01S00849.tdump   +++|          SB6    B6-B1
01007  M01S00850.tdump   +++|          SB7    B7+B1
01008  M01S00851.tdump   +++|          NZ     B6,PRE4     IF MORE WORDS TO CONTROL CARD
01009  M01S00852.tdump   +++| PRE5     DATE   HDRMB
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
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  M01S00853.tdump   +++|          RJ     CPL         ISSUE FIRST LINE
01018  M01S00005.tdump5  +++|          SX2    F
01019  M01S00006.tdump5  +++|          SA3    PREA
01020  M01S00007.tdump5  +++|          RJ     SOE         SET OPTICAL FET EXTENSION
01021  M01S00854.tdump   +++|          OPEN   F,READNR,R  CHECK IF CONTROL WORDS LEGAL
01022  M01S00855.tdump   +++|          SA1    F+1
01023  M01S00856.tdump   +++|          RJ     CDT         CHECK DEVICE TYPE
01024  M01S00857.tdump   +++|          ZR     X7,PRE5.1   IF CONTROL WORDS NOT LEGAL
01025  M01S00011.tdump1  +++|          SX7    B0+
01026  M01S00858.tdump   +++|          SA1    LREC        CHECK RECORD COUNT
01027  M01S00859.tdump   +++|          NZ     X1,PRE5.1   IF *R=* USED, FORCE NO CONTROL WORD READS
01028  M01S00860.tdump   +++|          SX7    1           SET CONTROL LEGAL FLAG
01029  M01S00861.tdump   +++|          SA7    CW
Line S00862 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump1
Seq #  *Modification Id* Act 
----------------------------+
01030  M02S00862.tdump1  ---| PRE5.1   SA1    REWD        CHECK REWIND INDICATOR
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  M01S00863.tdump   +++|          NZ     X1,TDM      IF NO REWIND
01036  M01S00864.tdump   +++|          REWIND F,R
01037  M01S00865.tdump   +++|          EQ     TDM         BEGIN PROGRAM
01038  M01S00866.tdump   +++|
01039  M01S00867.tdump   +++| PRE6     RJ     SFN         SPACE FILL WORD
01040  M01S00868.tdump   +++|          SA6    B7
01041  M01S00869.tdump   +++|          EQ     PRE5
01042  M01S00008.tdump5  +++|
01043  M01S00009.tdump5  +++| PREA     VFD    36/0,6/ODFEL,18/ODFE  OPTICAL FET EXTENSION POINTER
01044  M01S00870.tdump   +++|
01045  M01S00871.tdump   +++|*         TABLE OF ARGUMENT CONTROL WORDS
01046  M01S00872.tdump   +++|
01047  M01S00873.tdump   +++| TARG     BSS    0
01048  M01S00016.tdump1  +++| CW       ARG    -DFCW,CWDS
01049  M01S00874.tdump   +++| I        ARG    F,F,400B
01050  M01S00875.tdump   +++| L        ARG    O,O,400B
Line S00876 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00876.tdump4  ---| A        ARG    -DFVA,OPWD
Line S00072 Modification History
M01 (Added by) tdump2
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
01052  M02S00072.tdump4  ---| H        ARG    -DFVH,OPWD
Line S00877 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
01053  M02S00877.tdump4  ---| O        ARG    -DFVO,OPWD
01054  M01S00044.tdump4  +++| A        ARG    -DFVA,OPWA
01055  M01S00045.tdump4  +++| H        ARG    -DFVH,OPWH
01056  M01S00046.tdump4  +++| O        ARG    -DFVO,OPWO
01057  M01S00878.tdump   +++| NR       ARG    -DFVO,REWD
01058  M01S00007.tdump3  +++| C        ARG    -DFVA,CODD
01059  M01S00879.tdump   +++| R        ARG    LREC,LREC
01060  M01S00880.tdump   +++| F        ARG    LFLC,LFLC
01061  M01S00881.tdump   +++| N        ARG    LILM,LILM
01062  M01S00882.tdump   +++|          ARG
01063  M01S00883.tdump   +++|
01064  M01S00884.tdump   +++|*         TABLE OF DEFAULT VALUES.
01065  M01S00885.tdump   +++|
01066  M01S00017.tdump1  +++| DFCW     CON    1
Line S00886 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
01067  M02S00886.tdump4  ---| DFVO     CON    1
Line S00887 Modification History
M01 (Added by) tdump
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
01068  M02S00887.tdump4  ---| DFVA     CON    2
Line S00073 Modification History
M01 (Added by) tdump2
M02 (Updated by) tdump4
Seq #  *Modification Id* Act 
----------------------------+
01069  M02S00073.tdump4  ---| DFVH     CON    4
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  M01S00888.tdump   +++| CDT      SPACE  4
01080  M01S00889.tdump   +++|**        CDT - CHECK DEVICE TYPE.
01081  M01S00890.tdump   +++|*
01082  M01S00891.tdump   +++|*         ENTRY  (X1) = (FET+1).
01083  M01S00892.tdump   +++|*
01084  M01S00893.tdump   +++|*         EXIT   (X7) = 0 IF CONTROL WORD READ/WRITE NOT SUPPORTED ON
01085  M01S00894.tdump   +++|*                THIS DEVICE.
01086  M01S00895.tdump   +++|*
01087  M01S00896.tdump   +++|*         USES   A - 2.
01088  M01S00897.tdump   +++|*                X - 0, 1, 2, 6, 7.
01089  M01S00898.tdump   +++|
01090  M01S00899.tdump   +++|
01091  M01S00900.tdump   +++| CDT2     LX1    12          CHECK *TT*
01092  M01S00901.tdump   +++|          BX6    -X0*X1
01093  M01S00902.tdump   +++|          SX7    X6-2RTT
01094  M01S00903.tdump   +++|
01095  M01S00904.tdump   +++| CDT      SUBR               ENTRY/EXIT
01096  M01S00905.tdump   +++|          MX0    -12
01097  M01S00906.tdump   +++|          PL     X1,CDT2     IF ALLOCATABLE
01098  M01S00907.tdump   +++|          LX1    12
01099  M01S00908.tdump   +++|          SA2    CDTA        SEARCH DEVICE TABLE
01100  M01S00909.tdump   +++|          SX7    0           ASSUME NO FIND
01101  M01S00910.tdump   +++| CDT1     ZR     X2,CDTX     IF NOT FOUND, RETURN
01102  M01S00911.tdump   +++|          BX6    X1-X2
01103  M01S00912.tdump   +++|          AX2    12
01104  M01S00913.tdump   +++|          BX6    X2*X6
01105  M01S00914.tdump   +++|          SA2    A2+B1
01106  M01S00915.tdump   +++|          NZ     X6,CDT1     IF NOT MATCH
01107  M01S00916.tdump   +++|          SX7    1           INDICATE CONTROL WORD POSSIBLE
01108  M01S00917.tdump   +++|          JP     CDTX        RETURN
01109  M01S00918.tdump   +++|
01110  M01S00919.tdump   +++| CDTA     VFD    36/,12/7703B,12/4002B
01111  M01S00920.tdump   +++|          VFD    36/,12/7703B,12/4102B
01112  M01S00921.tdump   +++|          VFD    36/,12/7777B,12/2RMT+4000B
01113  M01S00922.tdump   +++|          VFD    36/,12/7777B,12/2RNT+4000B
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  M01S00923.tdump   +++|          CON    0
01118  M01S00924.tdump   +++|          SPACE  4
01119  M01S00925.tdump   +++|*CALL,COMCARG
01120  M01S00030.ns22000 +++|*CALL     COMCCPM
01121  M01S00926.tdump   +++|*CALL,COMCDXB
01122  M01S00927.tdump   +++|*CALL,COMCLFM
01123  M01S00928.tdump   +++|*CALL,COMCSFN
01124  M01S00013.tdump5  +++|*CALL,COMCSOE
01125  M01S00929.tdump   +++|*CALL,COMCSTF
01126  M01S00930.tdump   +++|
01127  M01S00931.tdump   +++|*         BUFFERS.
01128  M01S00932.tdump   +++|
01129  M01S00933.tdump   +++| OLWS     EQU    PRE
01130  M01S00934.tdump   +++| BUFO     EQU    OLWS+OLWSL
01131  M01S00935.tdump   +++| BUFF     EQU    BUFO+BUFOL
01132  M01S00936.tdump   +++| RFL=     EQU    BUFF+BUFFL+4
01133  M01S00937.tdump   +++|
01134  M01S00938.tdump   +++|          END
cdc/nos2.source/opl.opl871/deck/tdump.txt ยท Last modified: by 127.0.0.1