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.
| Line S00010 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00010 M01S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
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
| Line S00016 Modification History |
M01 (Removed by) | tdump2 |
Seq # *Modification Id* Act
----------------------------+
00017 M01S00016.tdump2 ---|*** TDUMP WILL LIST A FILE IN OCTAL AND/OR ALPHANUMERIC FORM.
| Line S00001 Modification History |
M01 (Added by) | tdump2 |
Seq # *Modification Id* Act
----------------------------+
00018 M01S00001.tdump2 +++|*** TDUMP WILL LIST A FILE IN OCTAL, ALPHANUMERIC OR HEXADECIMAL
| Line S00002 Modification History |
M01 (Added by) | tdump2 |
M02 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00019 M02S00002.tdump4 ---|* FORM. BY DEFAULT, AN OCTAL/ALPHANUMERIC DUMP IS PERFORMED ON
00020 M02S00003.tdump4 ---|* THE ENTIRE DATA FILE.
| Line S00001 Modification History |
M01 (Added by) | tdump4 |
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).
| Line S00025 Modification History |
M01 (Removed by) | tdump4 |
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).
| Line S00004 Modification History |
M01 (Added by) | tdump2 |
M02 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00036 M02S00004.tdump4 ---|* H HEXADECIMAL DUMP ONLY.
| Line S00006 Modification History |
M01 (Added by) | tdump4 |
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).
| Line S00001 Modification History |
M01 (Added by) | tdump3 |
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).
| Line S00001 Modification History |
M01 (Added by) | tdump1 |
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
| Line S00001 Modification History |
M01 (Added by) | ns22000 |
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)
| Line S00045 Modification History |
M01 (Removed by) | tdump1 |
Seq # *Modification Id* Act
----------------------------+
00061 M01S00045.tdump1 ---| BUFOL EQU 64*6+1 LENGTH OF *OUTPUT* BUFFER
| Line S00002 Modification History |
M01 (Added by) | tdump1 |
Seq # *Modification Id* Act
----------------------------+
00062 M01S00002.tdump1 +++| BUFOL EQU 512*2+1 LENGTH OF OUTPUT BUFFER
| Line S00046 Modification History |
M01 (Removed by) | tdump5 |
Seq # *Modification Id* Act
----------------------------+
00063 M01S00046.tdump5 ---| BUFFL EQU 4011B LENGTH OF *TAPE1* BUFFER
| Line S00001 Modification History |
M01 (Added by) | tdump5 |
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
| Line S00009 Modification History |
M01 (Added by) | tdump4 |
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
| Line S00060 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00085 M01S00060.ns22000 ---| LSCT CON LINP+1 LINE COUNT ON PAGE
| Line S00002 Modification History |
M01 (Added by) | ns22000 |
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
| Line S00062 Modification History |
M01 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00089 M01S00062.tdump4 ---| OPWD CON 3 OPTION CONTROL WORD (PRESET TO OCTAL/ALPHA)
| Line S00015 Modification History |
M01 (Added by) | tdump4 |
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
| Line S00002 Modification History |
M01 (Added by) | tdump3 |
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)
| Line S00003 Modification History |
M01 (Added by) | tdump1 |
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 +++|*
| Line S00276 Modification History |
M01 (Removed by) | ns22000 |
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.
| Line S00004 Modification History |
M01 (Added by) | ns22000 |
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
| Line S00282 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00318 M01S00282.ns22000 ---| CPL1 SA1 LSCT
| Line S00010 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00319 M01S00010.ns22000 +++| SA1 LSCT
00320 M00S00283.tdump +++| SA2 TLCT
| Line S00284 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00321 M01S00284.ns22000 ---| SX7 X2+B1 ADVANCE TOTAL LINE COUNT
00322 M01S00285.ns22000 ---| SA7 A2
| Line S00011 Modification History |
M01 (Added by) | ns22000 |
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
| Line S00290 Modification History |
M01 (Removed by) | ns22000 |
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
| Line S00013 Modification History |
M01 (Added by) | ns22000 |
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
| Line S00307 Modification History |
M01 (Removed by) | ns22000 |
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
| Line S00019 Modification History |
M01 (Added by) | ns22000 |
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.
| Line S00401 Modification History |
M01 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00447 M01S00401.tdump4 ---|* A - 1, 2, 3, 4, 5, 6, 7.
| Line S00016 Modification History |
M01 (Added by) | tdump4 |
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
| Line S00409 Modification History |
M01 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00456 M01S00409.tdump4 ---| LX3 59-0
| Line S00017 Modification History |
M01 (Added by) | tdump4 |
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
| Line S00419 Modification History |
M01 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00467 M01S00419.tdump4 ---| LX3 59-0
| Line S00018 Modification History |
M01 (Added by) | tdump4 |
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
| Line S00451 Modification History |
M01 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00500 M01S00451.tdump4 ---| LX3 59-0
| Line S00019 Modification History |
M01 (Added by) | tdump4 |
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
| Line S00005 Modification History |
M01 (Added by) | tdump2 |
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.
| Line S00017 Modification History |
M01 (Added by) | tdump2 |
M02 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00554 M02S00017.tdump4 ---|* A - 4, 6, 7.
| Line S00020 Modification History |
M01 (Added by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00555 M01S00020.tdump4 +++|* A - 3, 4, 6, 7.
| Line S00018 Modification History |
M01 (Added by) | tdump2 |
Seq # *Modification Id* Act
----------------------------+
00556 M01S00018.tdump2 +++|* B - 5, 6, 7.
| Line S00021 Modification History |
M01 (Added by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00557 M01S00021.tdump4 +++|*
00558 M01S00022.tdump4 +++|* CALLS BSB.
| Line S00019 Modification History |
M01 (Added by) | tdump2 |
Seq # *Modification Id* Act
----------------------------+
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 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00563 M02S00023.tdump4 ---| SA4 TBOP+X4
| Line S00023 Modification History |
M01 (Added by) | tdump4 |
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
| Line S00024 Modification History |
M01 (Added by) | tdump2 |
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 +++|*
| Line S00029 Modification History |
M01 (Added by) | tdump4 |
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 +++|*
| Line S00499 Modification History |
M01 (Removed by) | tdump2 |
Seq # *Modification Id* Act
----------------------------+
00606 M01S00499.tdump2 ---|* CALLS ELH, FOW, WSB, FAW.
| Line S00049 Modification History |
M01 (Added by) | tdump2 |
Seq # *Modification Id* Act
----------------------------+
00607 M01S00049.tdump2 +++|* CALLS ELH, FAW, FHW, FOW, WSB.
| Line S00500 Modification History |
M01 (Removed by) | tdump4 |
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
| Line S00509 Modification History |
M01 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00617 M01S00509.tdump4 ---| LX2 59-0
| Line S00033 Modification History |
M01 (Added by) | tdump4 |
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
| Line S00530 Modification History |
M01 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00639 M01S00530.tdump4 ---| LX2 59-1
| Line S00034 Modification History |
M01 (Added by) | tdump4 |
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
| Line S00550 Modification History |
M01 (Removed by) | tdump2 |
Seq # *Modification Id* Act
----------------------------+
00660 M01S00550.tdump2 ---| FML4 SA2 WDCT
| Line S00050 Modification History |
M01 (Added by) | tdump2 |
Seq # *Modification Id* Act
----------------------------+
00661 M01S00050.tdump2 +++| FML4 SA2 OPWD
| Line S00051 Modification History |
M01 (Added by) | tdump2 |
M02 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00662 M02S00051.tdump4 ---| LX2 59-2
| Line S00035 Modification History |
M01 (Added by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00663 M01S00035.tdump4 +++| LX2 59-OPBH
| Line S00052 Modification History |
M01 (Added by) | tdump2 |
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 +++|*
| Line S00620 Modification History |
M01 (Removed by) | tdump1 |
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.
| Line S00004 Modification History |
M01 (Added by) | tdump1 |
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
| Line S00630 Modification History |
M01 (Removed by) | tdump1 |
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
| Line S00009 Modification History |
M01 (Added by) | tdump1 |
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
| Line S00776 Modification History |
M01 (Removed by) | tdump5 |
Seq # *Modification Id* Act
----------------------------+
00916 M01S00776.tdump5 ---| TAPE1 FILEB BUFF,BUFFL,(FET=7)
| Line S00003 Modification History |
M01 (Added by) | tdump5 |
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 +++|*
| Line S00020 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | tdump4 |
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.
| Line S00786 Modification History |
M01 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00932 M01S00786.tdump4 ---|*
| Line S00787 Modification History |
M01 (Removed by) | ns22000 |
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 +++|*
| Line S00791 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00937 M01S00791.ns22000 ---|* MACROS ABORT, DATE, MESSAGE, OPEN, REWIND, TSTATUS.
| Line S00024 Modification History |
M01 (Added by) | ns22000 |
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
| Line S00803 Modification History |
M01 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
00951 M01S00803.tdump4 ---| ZR X1,PRE2 IF NO ARGUMENT ERROR
| Line S00036 Modification History |
M01 (Added by) | tdump4 |
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 +++|
| Line S00037 Modification History |
M01 (Added by) | tdump4 |
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
| Line S00026 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00974 M01S00026.ns22000 +++| SA6 TF
00975 M00S00818.tdump +++| NZ X6,PRE3 IF NON-TERMINAL
| Line S00819 Modification History |
M01 (Removed by) | ns22000 |
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
| Line S00003 Modification History |
M01 (Added by) | tdump3 |
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
| Line S00027 Modification History |
M01 (Added by) | ns22000 |
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
| Line S00005 Modification History |
M01 (Added by) | tdump5 |
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
| Line S00011 Modification History |
M01 (Added by) | tdump1 |
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
| Line S00862 Modification History |
M01 (Removed by) | tdump1 |
Seq # *Modification Id* Act
----------------------------+
01030 M01S00862.tdump1 ---| PRE5.1 SA1 REWD CHECK REWIND INDICATOR
| Line S00012 Modification History |
M01 (Added by) | tdump1 |
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
| Line S00008 Modification History |
M01 (Added by) | tdump5 |
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
| Line S00016 Modification History |
M01 (Added by) | tdump1 |
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
| Line S00876 Modification History |
M01 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
01051 M01S00876.tdump4 ---| A ARG -DFVA,OPWD
| Line S00072 Modification History |
M01 (Added by) | tdump2 |
M02 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
01052 M02S00072.tdump4 ---| H ARG -DFVH,OPWD
| Line S00877 Modification History |
M01 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
01053 M01S00877.tdump4 ---| O ARG -DFVO,OPWD
| Line S00044 Modification History |
M01 (Added by) | tdump4 |
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
| Line S00007 Modification History |
M01 (Added by) | tdump3 |
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 +++|
| Line S00017 Modification History |
M01 (Added by) | tdump1 |
Seq # *Modification Id* Act
----------------------------+
01066 M01S00017.tdump1 +++| DFCW CON 1
| Line S00886 Modification History |
M01 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
01067 M01S00886.tdump4 ---| DFVO CON 1
01068 M01S00887.tdump4 ---| DFVA CON 2
| Line S00073 Modification History |
M01 (Added by) | tdump2 |
M02 (Removed by) | tdump4 |
Seq # *Modification Id* Act
----------------------------+
01069 M02S00073.tdump4 ---| DFVH CON 4
| Line S00047 Modification History |
M01 (Added by) | tdump4 |
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
| Line S00010 Modification History |
M01 (Added by) | tdump5 |
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
| Line S00030 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01120 M01S00030.ns22000 +++|*CALL COMCCPM
01121 M00S00926.tdump +++|*CALL,COMCDXB
01122 M00S00927.tdump +++|*CALL,COMCLFM
01123 M00S00928.tdump +++|*CALL,COMCSFN
| Line S00013 Modification History |
M01 (Added by) | tdump5 |
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