cdc:nos2.source:opl.opl871:deck:ktsdmp
Deck KTSDMP
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.ktsdmp +++| IDENT KTSDMP,FETS 00002 M00S00002.ktsdmp +++| ABS 00003 M00S00003.ktsdmp +++| SST LA 00004 M00S00004.ktsdmp +++| ENTRY KTSDMP 00005 M00S00005.ktsdmp +++| ENTRY RFL= 00006 M00S00006.ktsdmp +++| SYSCOM B1 00007 M00S00007.ktsdmp +++|*COMMENT KTSDMP - *TAF* TASK MEMORY DUMP.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP.1978.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M00S00009.ktsdmp +++| TITLE KTSDMP - KTS MEMORY DUMP. 00011 M00S00010.ktsdmp +++| SPACE 4 00012 M00S00011.ktsdmp +++|***** KTSDMP - KTS MEMORY DUMP. 00013 M00S00012.ktsdmp +++|* J. C. BOHNHOFF. 72/09/23. 00014 M00S00013.ktsdmp +++|* W. E. MARTIN. 78/08/30. 00015 M00S00014.ktsdmp +++| SPACE 4,20 00016 M00S00015.ktsdmp +++|*** *KTSDMP* IS AUTOMATICALLY CALLED BY THE TRANSACTION FACILITY 00017 M00S00016.ktsdmp +++|* TO PROCESS A MEMORY DUMP AFTER A TASK ABORT OR AN EXPLICIT 00018 M00S00017.ktsdmp +++|* *CMDUMP* REQUEST. IF THE *P* OPTION IS USED, AN 00019 M00S00018.ktsdmp +++|* INSTALLATION MAY KEEP A RUNNING STACK OF MEMORY DUMPS TO BE 00020 M00S00019.ktsdmp +++|* SELECTIVELY LISTED AT SOME LATER TIME. TO LIST ALL DUMPS 00021 M00S00020.ktsdmp +++|* ON THE PERMANENT DUMP FILE, ATTACH THE FILE AND EXECUTE 00022 M00S00021.ktsdmp +++|* *KTSDMP*. ALL DUMP RECORDS ON THE FILE WILL BE PROCESSED. 00023 M00S00022.ktsdmp +++|* TO LIST ONLY SELECTED DUMPS, ATTACH THE PERMANENT FILE 00024 M00S00023.ktsdmp +++|* AND EXTRACT THE DESIRED DUMP RECORDS USING *GTR* - 00025 M00S00024.ktsdmp +++|* THEN EXECUTE *KTSDMP* TO PROCESS THE EXTRACTED RECORDS. 00026 M00S00025.ktsdmp +++|* THE INPUT FILE FORMAT IS DESCRIBED IN THE *KTSDMP* 00027 M00S00026.ktsdmp +++|* DOCUMENTATION. ITEMS THAT MAY BE LISTED INCLUDE - 00028 M00S00027.ktsdmp +++|* 00029 M00S00028.ktsdmp +++|* CENTRAL MEMORY OF A TASK OR PROGRAM. 00030 M00S00029.ktsdmp +++|* EXCHANGE PACKAGE OF A TASK. 00031 M00S00030.ktsdmp +++|* CONTROL POINT AREA OF A TASK. 00032 M00S00031.ktsdmp +++|* COMMUNICATION BLOCK OF A TASK. 00033 M00S00032.ktsdmp +++|* DATA BUFFERS. 00034 M00S00033.ktsdmp +++| SPACE 4,20 00035 M00S00034.ktsdmp +++|*** CONTROL CARD CALL. 00036 M00S00035.ktsdmp +++|* 00037 M00S00036.ktsdmp +++|* KTSDMP(IF,OF,P,O) 00038 M00S00037.ktsdmp +++|* 00039 M00S00038.ktsdmp +++|* IF - INPUT FILE NAME. 00040 M00S00039.ktsdmp +++|* IF ABSENT - *INPUT*. 00041 M00S00040.ktsdmp +++|* 00042 M00S00041.ktsdmp +++|* OF - OUTPUT FILE NAME. 00043 M00S00042.ktsdmp +++|* IF ABSENT - *OUTPUT*. 00044 M00S00043.ktsdmp +++|* 00045 M00S00044.ktsdmp +++|* P - IF PRESENT - *APPEND* FILE *IF* ON DIRECT ACCESS 00046 M00S00045.ktsdmp +++|* PERMANENT FILE *OF*. THE JOB MUST BE RUNNING WITH 00047 M00S00046.ktsdmp +++|* THE PROPER USER NUMBER, AND FILE *OF* MUST BE 00048 M00S00047.ktsdmp +++|* DEFINED. FURTHER, AN END-OF-FILE IS NOT COPIED TO 00049 M00S00048.ktsdmp +++|* *OF*. 00050 M00S00049.ktsdmp +++|* 00051 M00S00050.ktsdmp +++|* O - *OCTAL* FORMAT IF SPECIFIED - OTHERWISE DEFAULT 00052 M00S00051.ktsdmp +++|* IS *DISPLAY*. 00053 M00S00052.ktsdmp +++| SPACE 4,25 00054 M00S00053.ktsdmp +++|*** DAYFILE MESSAGES ISSUED. 00055 M00S00054.ktsdmp +++|* 00056 M00S00055.ktsdmp +++|* * DISPLAY DUMP NOT ALLOWED TO TERMINAL.* 00057 M00S00056.ktsdmp +++|* A DISPLAY DUMP (DEFAULT) IS NOT ALLOWED TO AN 00058 M00S00057.ktsdmp +++|* INTER-ACTIVE TERMINAL. OCTAL DUMPS, OBTAINED WITH 00059 M00S00058.ktsdmp +++|* THE *O* CONTROL CARD PARAMETER, ARE ALLOWED. 00060 M00S00059.ktsdmp +++|* 00061 M00S00060.ktsdmp +++|* * FILE NAME CONFLICT.* 00062 M00S00061.ktsdmp +++|* THE INPUT FILE NAME IS THE SAME AS THE OUTPUT FILE 00063 M00S00062.ktsdmp +++|* NAME. 00064 M00S00063.ktsdmp +++|* 00065 M00S00064.ktsdmp +++|* * FWA .GE. LWA+1.* 00066 M00S00065.ktsdmp +++|* DUMP FIRST WORD ADDRESS IS GIVEN AS .GE. THE LAST WORD 00067 M00S00066.ktsdmp +++|* ADDRESS + 1. 00068 M00S00067.ktsdmp +++|* 00069 M00S00068.ktsdmp +++|* * KTSDMP COMPLETE.* 00070 M00S00069.ktsdmp +++|* DUMP COMPLETED NORMALLY. 00071 M00S00070.ktsdmp +++|* 00072 M00S00071.ktsdmp +++|* * UNKNOWN FILE FORMAT.* 00073 M00S00072.ktsdmp +++|* FILE DOES NOT CONFORM TO THE FORMAT RULES ESTABLISHED. 00074 M00S00073.ktsdmp +++|* 00075 M00S00074.ktsdmp +++|* * XXXXXXX NOT FOUND.* 00076 M00S00075.ktsdmp +++|* THE FILE SPECIFIED ON THE P-PARAMETER WAS NOT FOUND 00077 M00S00076.ktsdmp +++|* IN THE USER-S PERMANENT FILE CATALOG. 00078 M00S00077.ktsdmp +++| SPACE 4,80 00079 M00S00078.ktsdmp +++|** DUMP INPUT FILE FORMAT - 00080 M00S00079.ktsdmp +++|* 00081 M00S00080.ktsdmp +++|* THE DUMP INPUT FILE IS COMPOSED OF AT LEAST ONE RECORD 00082 M00S00081.ktsdmp +++|* COMPRISED OF SEVERAL TABLES, EACH CONTAINING DATA PERTAINING 00083 M00S00082.ktsdmp +++|* TO A TYPE OF DUMP AS DESCRIBED ABOVE. SEVERAL RECORDS MAY 00084 M00S00083.ktsdmp +++|* APPEAR IN THE FILE, EACH STARTING A NEW DUMP SEQUENCE. 00085 M00S00084.ktsdmp +++|* ALL TABLES EXCEPT TABLE-0 MAY APPEAR IN ANY ORDER AND MAY 00086 M00S00085.ktsdmp +++|* BE REPEATED INDEFINITELY OR MAY BE SUPPRESSED. 00087 M00S00086.ktsdmp +++|* 00088 M00S00087.ktsdmp +++|* RECORD FORMAT - 00089 M00S00088.ktsdmp +++|* 00090 M00S00089.ktsdmp +++|* WORD 1 - RECORD NAME. 00091 M00S00090.ktsdmp +++|*T WD1 42/ NAME,18/ 0
Figure WD1
00092 M00S00091.ktsdmp +++|* 00093 M00S00092.ktsdmp +++|* WHERE - NAME MAY BE USED BY OTHER UTILITIES TO IDENTIFY 00094 M00S00093.ktsdmp +++|* THE RECORD. 00095 M00S00094.ktsdmp +++|* 00096 M00S00095.ktsdmp +++|* TABLE 0 - GENERAL INFORMATION. 00097 M00S00096.ktsdmp +++|*T GIN 12/ 2000B,30/ 0,18/ 0
Figure GIN
00098 M00S00097.ktsdmp +++|*T, 60/ LABEL
Figure
00099 M00S00098.ktsdmp +++|*T, 60/ DUMP DATE
Figure
00100 M00S00099.ktsdmp +++|*T, 60/ DUMP TIME
Figure
00101 M00S00100.ktsdmp +++|*T, 60/ RESERVED
Figure
00102 M00S00101.ktsdmp +++|* 00103 M00S00102.ktsdmp +++|* WHERE - LABEL IS USED FOR IDENTIFICATION IN TITLE LINES. 00104 M00S00103.ktsdmp +++|* DUMP DATE IS THE DATE UPON WHICH THE INPUT FILE WAS 00105 M00S00104.ktsdmp +++|* CREATED. 00106 M00S00105.ktsdmp +++|* DUMP TIME IS THE TIME AT WHICH THE INPUT FILE WAS 00107 M00S00106.ktsdmp +++|* CREATED. 00108 M00S00107.ktsdmp +++|* 00109 M00S00108.ktsdmp +++|* TABLE 1 - MEMORY DUMP. 00110 M00S00109.ktsdmp +++|*T MED 12/ 2001B,30/ 0,18/ N
Figure MED
00111 M00S00110.ktsdmp +++|*T, 42/ 0,18/ FWA
Figure
00112 M00S00111.ktsdmp +++|*T, 42/ 0,18/ LWA
Figure
00113 M00S00112.ktsdmp +++|*T, 60/ RESERVED
Figure
00114 M00S00113.ktsdmp +++|*T, 60/ RESERVED
Figure
00115 M00S00114.ktsdmp +++|*T, 60/ ... FIRST OF N WORDS OF MEMORY TO DUMP ...
Figure
00116 M00S00115.ktsdmp +++|* 00117 M00S00116.ktsdmp +++|* WHERE - FWA IS THE FIRST WORD ADDRESS OF THE DUMP AREA. 00118 M00S00117.ktsdmp +++|* FWA IS ROUNDED UP TO A MULTIPLE OF FOUR, AND LWA IS 00119 M00S00118.ktsdmp +++|* THE LAST WORD ADDRESS OF THE DUMP AREA. LWA IS 00120 M00S00119.ktsdmp +++|* IS ROUNDED DOWN TO A MULTIPLE OF FOUR. 00121 M00S00120.ktsdmp +++|* 00122 M00S00121.ktsdmp +++|* TABLE 2 - EXCHANGE PACKAGE. 00123 M00S00122.ktsdmp +++|*T EXP 12/ 2002B,30/ 0,18/ N
Figure EXP
00124 M00S00123.ktsdmp +++|*T, 60/ RESERVED
Figure
00125 M00S00124.ktsdmp +++|*T, 60/ RESERVED
Figure
00126 M00S00125.ktsdmp +++|*T, 60/ RESERVED
Figure
00127 M00S00126.ktsdmp +++|*T, 60/ RESERVED
Figure
00128 M00S00127.ktsdmp +++|*T, 60/ ... FIRST OF 20B WORDS OF EXCHANGE PACKAGE ...
Figure
00129 M00S00128.ktsdmp +++|*T, 60/ ... FIRST OF *M* WORDS OF TASK CONTROL POINT AREA ...
Figure
00130 M00S00129.ktsdmp +++|* 00131 M00S00130.ktsdmp +++|* WHERE - *N* IS THE TOTAL OF 20B EXCHANGE PACKAGE WORDS 00132 M00S00131.ktsdmp +++|* PLUS *M* TASK CONTROL POINT WORDS. 00133 M00S00132.ktsdmp +++|* 00134 M00S00133.ktsdmp +++|* TABLE 3 - COMMUNICATION BLOCK. 00135 M00S00134.ktsdmp +++|*T CMB 12/ 2003B,30/ 0,18/ N
Figure CMB
00136 M00S00135.ktsdmp +++|*T, 42/ TASK NAME,18/ 0
Figure
00137 M00S00136.ktsdmp +++|*T, 36/ 0 ,24/ SEQUENCE NUMBER
Figure
00138 M00S00137.ktsdmp +++|*T, 42/ 0 ,18/ ADDRESS
Figure
00139 M00S00138.ktsdmp +++|*T, 60/ RESERVED
Figure
00140 M00S00139.ktsdmp +++|*T, 60/ ... FIRST OF *N* WORDS OF COMMUNICATION BLOCK ...
Figure
00141 M00S00140.ktsdmp +++|* 00142 M00S00141.ktsdmp +++|* WHERE - SEQUENCE NUMBER IS THE TRANSACTION SEQUENCE NUMBER. 00143 M00S00142.ktsdmp +++|* ADDRESS IS THE ADDRESS FROM WHICH THE DUMP WAS 00144 M00S00143.ktsdmp +++|* CALLED. 00145 M00S00144.ktsdmp +++|* 00146 M00S00145.ktsdmp +++|* TABLE 4 - DATA BUFFERS. 00147 M00S00146.ktsdmp +++|*T DAB 12/ 2004B,30/ 0,18/N
Figure DAB
00148 M00S00147.ktsdmp +++|*T, 6/ DB,36/ FILE NAME,18/ 0
Figure
00149 M00S00148.ktsdmp +++|*T, 60/ .. FIRST OF 2 WORDS OF CURRENT KEY VALUE ...
Figure
00150 M00S00149.ktsdmp +++|*T, 60/ ... ...
Figure
00151 M00S00150.ktsdmp +++|*T, 30/ CURRENT PRU ADDRESS,30/ CURRENT FILE STATUS
Figure
00152 M00S00151.ktsdmp +++|*T, 60/ .. FIRST OF N WORDS OF DATA BUFFER TO DUMP ...
Figure
00153 M00S00152.ktsdmp +++|* 00154 M00S00153.ktsdmp +++|* WHERE - DB IS THE DATA BASE NAME. 00155 M00S00154.ktsdmp +++| TITLE MACRO DEFINITIONS. 00156 M00S00155.ktsdmp +++|* COMMON TEXT. 00157 M00S00156.ktsdmp +++| 00158 M00S00157.ktsdmp +++| 00159 M00S00158.ktsdmp +++|*CALL COMSPFM 00160 M00S00159.ktsdmp +++|*CALL COMCMAC 00161 M00S00160.ktsdmp +++|*CALL COMKMAC 00162 M00S00161.ktsdmp +++| TRXCOM 00163 M00S00162.ktsdmp +++| SPACE 4 00164 M00S00163.ktsdmp +++|* ASSEMBLY CONSTANTS. 00165 M00S00164.ktsdmp +++| 00166 M00S00165.ktsdmp +++| 00167 M00S00166.ktsdmp +++| CMBM OCTMIC COMC FWA OF COMMUNICATION BLOCK 00168 M00S00167.ktsdmp +++| IBUFL EQU 1001B INPUT BUFFER SIZE 00169 M00S00168.ktsdmp +++| OBUFL EQU 4001B OUTPUT BUFFER SIZE 00170 M00S00169.ktsdmp +++| SPACE 4 00171 M00S00170.ktsdmp +++|* FET DEFINITIONS. 00172 M00S00171.ktsdmp +++| 00173 M00S00172.ktsdmp +++| 00174 M00S00173.ktsdmp +++| ORG 115B 00175 M00S00174.ktsdmp +++| 00176 M00S00175.ktsdmp +++| FETS BSS 0 00177 M00S00176.ktsdmp +++| 00178 M00S00177.ktsdmp +++| I BSS 0 INPUT FILE 00179 M00S00178.ktsdmp +++| INPUT FILEB IBUF,IBUFL 00180 M00S00179.ktsdmp +++| 00181 M00S00180.ktsdmp +++| O BSS 0 OUTPUT FILE 00182 M00S00181.ktsdmp +++| OUTPUT FILEC OBUF,OBUFL,FET=CFLM 00183 M00S00182.ktsdmp +++| TITLE GLOBAL STORAGE. 00184 M00S00183.ktsdmp +++|* GLOBAL STORAGE. 00185 M00S00184.ktsdmp +++| 00186 M00S00185.ktsdmp +++| 00187 M00S00186.ktsdmp +++| CW BSSZ 5 TABLE CONTROL WORDS 00188 M00S00187.ktsdmp +++| FW CON 0 FWA OF DUMP 00189 M00S00188.ktsdmp +++| LW CON 0 LWA OF DUMP 00190 M00S00189.ktsdmp +++| LA CON 0 LINE ADDRESS 00191 M00S00190.ktsdmp +++| DB CON 0 DUMP BLOCK INDEX 00192 M00S00191.ktsdmp +++| DC VFD 6/36B,18/,18/2,18/4 DUMP CONTROL 00193 M00S00192.ktsdmp +++| EP CON 0 EXCHANGE PACKAGE DUMP INDICATOR 00194 M00S00193.ktsdmp +++| IND CON BUF2 00195 M00S00194.ktsdmp +++| DF CON 0 DISPLAY/OCTAL DUMP FLAG 00196 M00S00195.ktsdmp +++| TERM CON 0 TERMINAL OUTPUT FLAG (IF SET) 00197 M00S00196.ktsdmp +++| ZR CON 0 ZERO WORD 00198 M00S00197.ktsdmp +++| MBUF BSSZ 3 *PFM* ERROR MESSAGE BUFFER 00199 M00S00198.ktsdmp +++| TITLE MAIN PROGRAM. 00200 M00S00199.ktsdmp +++|** MAIN PROGRAM. 00201 M00S00200.ktsdmp +++| 00202 M00S00201.ktsdmp +++| 00203 M00S00202.ktsdmp +++| KTSDMP SB1 1 00204 M00S00203.ktsdmp +++| RJ PRS PRESET PROGRAM 00205 M00S00204.ktsdmp +++| NZ X5,KTS5 IF *APPEND* TO PERMAMENT FILE OPERATION 00206 M00S00205.ktsdmp +++| 00207 M00S00206.ktsdmp +++|* PROCESS DUMP LIST. 00208 M00S00207.ktsdmp +++| 00209 M00S00208.ktsdmp +++| KTS1 SX7 0 CLEAR EXCHANGE PACKAGE DUMPED INDICATOR 00210 M00S00209.ktsdmp +++| SA7 EP 00211 M00S00210.ktsdmp +++| RJ COF CHECK OUTPUT FILE 00212 M00S00211.ktsdmp +++| READ I START READ OF DUMP RECORD 00213 M00S00212.ktsdmp +++| READW I,CW,B1 SKIP RECORD NAME 00214 M00S00213.ktsdmp +++| NZ X1,KTS2 IF EOR/EOF/EOI 00215 M00S00214.ktsdmp +++| 00216 M00S00215.ktsdmp +++|* RETURN FROM DUMP PROCESSORS. 00217 M00S00216.ktsdmp +++| 00218 M00S00217.ktsdmp +++| KTSX READW I,CW,5 READ TABLE CONTROL WORDS 00219 M00S00218.ktsdmp +++| NZ X1,KTS2 IF EOR/EOF/EOI 00220 M00S00219.ktsdmp +++| SA1 CW PROCESS TABLE 00221 M00S00220.ktsdmp +++| UX6,B7 X1 00222 M00S00221.ktsdmp +++| NG B7,ERR1 IF UNKNOWN TABLE 00223 M00S00222.ktsdmp +++| SB7 B7-TCTPL 00224 M00S00223.ktsdmp +++| PL B7,ERR1 IF UNKNOWN TABLE 00225 M00S00224.ktsdmp +++| JP TCTP+TCTPL+B7 EXECUTE DUMP PROCESSOR 00226 M00S00225.ktsdmp +++| 00227 M00S00226.ktsdmp +++| KTS2 NG X1,KTS3 IF EOF/EOI 00228 M00S00227.ktsdmp +++| WRITER O,R END OUTPUT RECORD 00229 M00S00228.ktsdmp +++| RJ CFA CLEAR FILE ARGUMENTS 00230 M00S00229.ktsdmp +++| EQ KTS1 LOOP TO END OF FILE 00231 M00S00230.ktsdmp +++| 00232 M00S00231.ktsdmp +++| KTS3 WRITER O,R END OUTPUT RECORD 00233 M00S00232.ktsdmp +++| KTS4 MESSAGE (=C* KTSDMP COMPLETE.*) 00234 M00S00233.ktsdmp +++| ENDRUN 00235 M00S00234.ktsdmp +++| 00236 M00S00235.ktsdmp +++|* APPEND *IF* TO PERMENANT FILE *OF*. 00237 M00S00236.ktsdmp +++| 00238 M00S00237.ktsdmp +++| KTS5 SA1 O+B1 SET *EP* BIT 00239 M00S00238.ktsdmp +++| SX2 B1 00240 M00S00239.ktsdmp +++| LX2 44 00241 M00S00240.ktsdmp +++| BX6 X1+X2 00242 M00S00241.ktsdmp +++| SX7 MBUF SET ERROR MESSAGE RETURN ADDRESS 00243 M00S00242.ktsdmp +++| SA6 A1 00244 M00S00243.ktsdmp +++| SA7 O+CFPW 00245 M00S00244.ktsdmp +++| KTS6 ATTACH O,,,,M 00246 M00S00245.ktsdmp +++| SA1 X2 CHECK ERROR FLAG 00247 M00S00246.ktsdmp +++| MX0 -8 00248 M00S00247.ktsdmp +++| LX1 -10 00249 M00S00248.ktsdmp +++| BX2 -X0*X1 00250 M00S00249.ktsdmp +++| ZR X2,KTS7 IF NO ERROR ON ATTACH 00251 M00S00250.ktsdmp +++| SX2 X2-1 00252 M00S00251.ktsdmp +++| NZ X2,ERR4 IF NOT *FILE BUSY* 00253 M00S00252.ktsdmp +++| BX6 X0*X1 CLEAR STATUS FIELD 00254 M00S00253.ktsdmp +++| LX6 10 00255 M00S00254.ktsdmp +++| SA6 A1+ 00256 M00S00255.ktsdmp +++| ROLLOUT ZR WAIT FOR FILE NOT BUSY 00257 M00S00256.ktsdmp +++| EQ KTS6 RETRY OPERATION 00258 M00S00257.ktsdmp +++| 00259 M00S00258.ktsdmp +++| KTS7 SA1 A1+B1 CLEAR *EP* BIT 00260 M00S00259.ktsdmp +++| MX2 -1 00261 M00S00260.ktsdmp +++| SX7 B0 CLEAR ERROR ADDRESS 00262 M00S00261.ktsdmp +++| LX2 44 00263 M00S00262.ktsdmp +++| BX6 X1*X2 00264 M00S00263.ktsdmp +++| SA7 O+CFPW 00265 M00S00264.ktsdmp +++| SA6 A1 00266 M00S00265.ktsdmp +++| SKIPEI O POSITION TO WRITE AT EOI 00267 M00S00266.ktsdmp +++| KTS8 READ I COPY RECORD 00268 M00S00267.ktsdmp +++| RECALL O 00269 M00S00268.ktsdmp +++| KTS9 READW I,BUF,100B 00270 M00S00269.ktsdmp +++| NZ X1,KTS10 IF EOR/EOF/EOI 00271 M00S00270.ktsdmp +++| WRITEW O,BUF,100B 00272 M00S00271.ktsdmp +++| EQ KTS9 LOOP TO EOR 00273 M00S00272.ktsdmp +++| 00274 M00S00273.ktsdmp +++| KTS10 NG X1,KTS4 IF EOF/EOI 00275 M00S00274.ktsdmp +++| WRITEW O,BUF,X1-BUF TERMINATE RECORD 00276 M00S00275.ktsdmp +++| WRITER O 00277 M00S00276.ktsdmp +++| EQ KTS8 LOOP TO EOF 00278 M00S00277.ktsdmp +++| SPACE 4 00279 M00S00278.ktsdmp +++|* TABLE OF FUNCTION PROCESSORS. 00280 M00S00279.ktsdmp +++| 00281 M00S00280.ktsdmp +++| TCTP BSS 0 00282 M00S00281.ktsdmp +++| LOC 0 00283 M00S00282.ktsdmp +++| EQ GIN GENERAL INFORMATION 00284 M00S00283.ktsdmp +++| EQ MED MEMORY DUMP 00285 M00S00284.ktsdmp +++| EQ XPD EXCHANGE PACKAGE DUMP 00286 M00S00285.ktsdmp +++| EQ CBD COMMUNICATION BLOCK DUMP 00287 M00S00286.ktsdmp +++| EQ DBD DATA BUFFER DUMP 00288 M00S00287.ktsdmp +++| TCTPL BSS 0 LENGTH OF TABLE 00289 M00S00288.ktsdmp +++| LOC *O 00290 M00S00289.ktsdmp +++| GIN TITLE PROCESS TABLE 0 - GENERAL INFORMATION. 00291 M00S00290.ktsdmp +++| GIN SPACE 4,10 00292 M00S00291.ktsdmp +++|** GIN - PROCESS GENERAL INFORMATION TABLE. 00293 M00S00292.ktsdmp +++|* 00294 M00S00293.ktsdmp +++|* ENTRY (CW - CW+3) = TABLE CONTROL WORDS. 00295 M00S00294.ktsdmp +++|* 00296 M00S00295.ktsdmp +++|* EXIT TO *KTSX*. 00297 M00S00296.ktsdmp +++|* 00298 M00S00297.ktsdmp +++|* USES A - 1, 2, 3, 6, 7. 00299 M00S00298.ktsdmp +++|* X - 0, 1, 2, 3, 6, 7. 00300 M00S00299.ktsdmp +++|* 00301 M00S00300.ktsdmp +++|* CALLS SKW. 00302 M00S00301.ktsdmp +++| 00303 M00S00302.ktsdmp +++| 00304 M00S00303.ktsdmp +++| GIN BSS 0 ENTRY 00305 M00S00304.ktsdmp +++| SA1 CW+1 READ LABEL 00306 M00S00305.ktsdmp +++| SA2 A1+B1 READ DUMP DATE 00307 M00S00306.ktsdmp +++| SA3 A2+B1 READ DUMP TIME 00308 M00S00307.ktsdmp +++| BX6 X1 00309 M00S00308.ktsdmp +++| LX7 X2 00310 M00S00309.ktsdmp +++| SA6 LB STORE LABEL 00311 M00S00310.ktsdmp +++| SA7 DD STORE DUMP DATE 00312 M00S00311.ktsdmp +++| SA1 A1-B1 READ TABLE LENGTH 00313 M00S00312.ktsdmp +++| BX6 X3 00314 M00S00313.ktsdmp +++| SX0 X1+ 00315 M00S00314.ktsdmp +++| SA6 DT STORE DUMP TIME 00316 M00S00315.ktsdmp +++| RJ SKW SKIP EXCESS WORDS IN TABLE 00317 M00S00316.ktsdmp +++| EQ KTSX RETURN 00318 M00S00317.ktsdmp +++| MED TITLE PROCESS TABLE 1 - MEMORY DUMP. 00319 M00S00318.ktsdmp +++| MED SPACE 4,15 00320 M00S00319.ktsdmp +++|** MED - PROCESS MEMORY DUMP TABLE. 00321 M00S00320.ktsdmp +++|* 00322 M00S00321.ktsdmp +++|* ENTRY (CW - CW+3) = TABLE CONTROL WORDS. 00323 M00S00322.ktsdmp +++|* 00324 M00S00323.ktsdmp +++|* EXIT TO *KTSX*. 00325 M00S00324.ktsdmp +++|* TO *ERR1* - IF UNKNOWN FILE FORMAT. 00326 M00S00325.ktsdmp +++|* TO *ERR2* - IF FWA .GE. LWA+1. 00327 M00S00326.ktsdmp +++|* 00328 M00S00327.ktsdmp +++|* USES A - 0, 1, 2, 3, 6, 7. 00329 M00S00328.ktsdmp +++|* X - ALL. 00330 M00S00329.ktsdmp +++|* B - 2. 00331 M00S00330.ktsdmp +++|* 00332 M00S00331.ktsdmp +++|* CALLS COD, DCM, SKW, WTL. 00333 M00S00332.ktsdmp +++| 00334 M00S00333.ktsdmp +++| 00335 M00S00334.ktsdmp +++| MED BSS 0 ENTRY 00336 M00S00335.ktsdmp +++| SA1 CW READ TABLE LENGTH 00337 M00S00336.ktsdmp +++| SA2 A1+B1 READ FWA 00338 M00S00337.ktsdmp +++| SA3 A2+B1 READ LWA 00339 M00S00338.ktsdmp +++| SX1 X1 N 00340 M00S00339.ktsdmp +++| SX2 X2 FWA 00341 M00S00340.ktsdmp +++| SX3 X3 LWA 00342 M00S00341.ktsdmp +++| IX4 X2+X1 FWA+N 00343 M00S00342.ktsdmp +++| NG X2,ERR1 IF FWA .LT. 0 00344 M00S00343.ktsdmp +++| NZ X3,MED1 IF LWA .NE. 0 00345 M00S00344.ktsdmp +++| SX3 X4-1 LWA = FWA+N-1 00346 M00S00345.ktsdmp +++| MED1 SX3 X3+B1 LIMIT = LWA+1 00347 M00S00346.ktsdmp +++| IX5 X3-X4 00348 M00S00347.ktsdmp +++| NG X5,MED2 IF TOO MANY WORDS ON FILE - LIMIT = LWA+1 00349 M00S00348.ktsdmp +++| SX3 X4+ LIMIT = FWA+N 00350 M00S00349.ktsdmp +++| MED2 IX7 X2-X3 FWA - LIMIT 00351 M00S00350.ktsdmp +++| PL X7,ERR2 IF FWA .GE. LIMIT 00352 M00S00351.ktsdmp +++| SB2 B1+B1 ROUND UP FWA 00353 M00S00352.ktsdmp +++| SX0 X2+3 00354 M00S00353.ktsdmp +++| AX6 X3,B2 ROUND DOWN LWA 00355 M00S00354.ktsdmp +++| AX0 X0,B2 00356 M00S00355.ktsdmp +++| LX6 X6,B2 00357 M00S00356.ktsdmp +++| LX7 X0,B2 00358 M00S00357.ktsdmp +++| SA6 LW STORE LIMIT 00359 M00S00358.ktsdmp +++| IX0 X7-X2 FIND NUMBER OF WORDS FWA ROUNDED UP 00360 M00S00359.ktsdmp +++| IX6 X6-X4 00361 M00S00360.ktsdmp +++| SA7 FW STORE FWA 00362 M00S00361.ktsdmp +++| IX6 X6+X0 DECREMENT EXCESS WORD COUNT 00363 M00S00362.ktsdmp +++| SA6 MEDA 00364 M00S00363.ktsdmp +++| RJ SKW SKIP WORDS TO FWA 00365 M00S00364.ktsdmp +++| SA1 FW SET SECOND TITLE LINE 00366 M00S00365.ktsdmp +++| RJ COD CONVERT FWA 00367 M00S00366.ktsdmp +++| SA1 MEDC 00368 M00S00367.ktsdmp +++| LX6 3*6 00369 M00S00368.ktsdmp +++| BX7 X1-X6 00370 M00S00369.ktsdmp +++| SA1 LW CONVERT LIMIT 00371 M00S00370.ktsdmp +++| SA7 MEDB+2 00372 M00S00371.ktsdmp +++| RJ COD CONVERT CONSTANT TO DISPLAY 00373 M00S00372.ktsdmp +++| LX6 3*6 00374 M00S00373.ktsdmp +++| SA0 MEDB SET TITLE ADDRESS 00375 M00S00374.ktsdmp +++| SA6 MEDB+3 00376 M00S00375.ktsdmp +++| RJ WTL WRITE TITLE LINES 00377 M00S00376.ktsdmp +++| RJ DCM DUMP CENTRAL MEMORY 00378 M00S00377.ktsdmp +++| SA1 MEDA SKIP EXCESS WORDS 00379 M00S00378.ktsdmp +++| PL X1,KTSX IF NO EXCESS WORDS - RETURN 00380 M00S00379.ktsdmp +++| BX0 -X1 00381 M00S00380.ktsdmp +++| SX0 X0-1 00382 M00S00381.ktsdmp +++| ZR X0,KTSX IF NO EXCESS WORDS - RETURN 00383 M00S00382.ktsdmp +++| RJ SKW SKIP EXCESS WORDS 00384 M00S00383.ktsdmp +++| EQ KTSX RETURN 00385 M00S00384.ktsdmp +++| 00386 M00S00385.ktsdmp +++| MEDA CON 0 STORAGE FOR EXCESS WORD COUNT 00387 M00S00386.ktsdmp +++| MEDB DATA 1H0 SET DOUBLE SPACE 00388 M00S00387.ktsdmp +++| DATA 10HDUMP FROM 00389 M00S00388.ktsdmp +++| CON 0 STORAGE FOR FWA OF DUMP 00390 M00S00389.ktsdmp +++| CON 0 STORAGE FOR LWA OF DUMP 00391 M00S00390.ktsdmp +++| CON 0 LINE TERMINATOR 00392 M00S00391.ktsdmp +++| MEDC CON 2ATO&2A 00393 M00S00392.ktsdmp +++| XPD TITLE PROCESS TABLE 2 - EXCHANGE PACKAGE DUMP. 00394 M00S00393.ktsdmp +++| XPD SPACE 4,15 00395 M00S00394.ktsdmp +++|** XPD - PROCESS EXCHANGE PACKAGE DUMP. 00396 M00S00395.ktsdmp +++|* 00397 M00S00396.ktsdmp +++|* ENTRY (CW - CW+3) = TABLE CONTROL WORDS. 00398 M00S00397.ktsdmp +++|* 00399 M00S00398.ktsdmp +++|* EXIT TO *KTSX*. 00400 M00S00399.ktsdmp +++|* TO *ERR1* - UNKNOWN FILE FORMAT. 00401 M00S00400.ktsdmp +++|* 00402 M00S00401.ktsdmp +++|* USES A - 0, 1, 6, 7. 00403 M00S00402.ktsdmp +++|* X - 0, 1, 6, 7. 00404 M00S00403.ktsdmp +++|* B - 7. 00405 M00S00404.ktsdmp +++|* 00406 M00S00405.ktsdmp +++|* CALLS DCM, DXP, SKW, WTL. 00407 M00S00406.ktsdmp +++|* 00408 M00S00407.ktsdmp +++|* MACROS READW, WRITEC. 00409 M00S00408.ktsdmp +++| 00410 M00S00409.ktsdmp +++| 00411 M00S00410.ktsdmp +++| XPD BSS 0 ENTRY 00412 M00S00411.ktsdmp +++| SA1 CW READ TABLE LENGTH 00413 M00S00412.ktsdmp +++| SB7 X1-20B 00414 M00S00413.ktsdmp +++| NG B7,ERR1 IF .LT. 20B WORDS 00415 M00S00414.ktsdmp +++| READW I,BUF,20B READ EXCHANGE PACKAGE 00416 M00S00415.ktsdmp +++| SA0 XPDA SET TITLE ADDRESS 00417 M00S00416.ktsdmp +++| RJ WTL WRITE TITLE LINES 00418 M00S00417.ktsdmp +++| RJ DXP DUMP EXCHANGE PACKAGE 00419 M00S00418.ktsdmp +++| SX7 B1+ SET EXCHANGE PACKAGE DUMPED INDICATOR 00420 M00S00419.ktsdmp +++| SA1 CW CHECK TASK CONTROL POINT AREA PRESENT 00421 M00S00420.ktsdmp +++| SX0 X1-20B 00422 M00S00421.ktsdmp +++| SA7 EP 00423 M00S00422.ktsdmp +++| ZR X0,KTSX IF NO CONTROL POINT - RETURN 00424 M00S00423.ktsdmp +++| WRITEC O,XPDB LIST CONTROL POINT AREA HEADER 00425 M00S00424.ktsdmp +++| WRITEC O,XPDC 00426 M00S00425.ktsdmp +++| SX7 X0+20B SET DUMP FROM 20 TO 20+M (MOD 4) 00427 M00S00426.ktsdmp +++| IX6 X7-X0 00428 M00S00427.ktsdmp +++| AX7 2 ROUND LWA DOWN 00429 M00S00428.ktsdmp +++| SA6 FW 00430 M00S00429.ktsdmp +++| LX7 2 00431 M00S00430.ktsdmp +++| IX6 X0-X7 00432 M00S00431.ktsdmp +++| SA7 LW 00433 M00S00432.ktsdmp +++| SX6 X6+20B 00434 M00S00433.ktsdmp +++| SA6 XPDD SAVE EXCESS WORD COUNT 00435 M00S00434.ktsdmp +++| RJ DCM DUMP IN CM FORMAT 00436 M00S00435.ktsdmp +++| SA1 XPDD READ EXCESS WORD COUNT 00437 M00S00436.ktsdmp +++| SX0 X1+ 00438 M00S00437.ktsdmp +++| RJ SKW SKIP EXCESS WORDS 00439 M00S00438.ktsdmp +++| EQ KTSX RETURN 00440 M00S00439.ktsdmp +++| 00441 M00S00440.ktsdmp +++| XPDA DATA 1H0 DOUBLE SPACE CARRIAGE CONTROL 00442 M00S00441.ktsdmp +++| DATA C*EXCHANGE PACKAGE.* 00443 M00S00442.ktsdmp +++| XPDB DATA 1H- TRIPLE SPACE CARRIAGE CONTROL 00444 M00S00443.ktsdmp +++| DATA C*TASK CONTROL POINT AREA.* 00445 M00S00444.ktsdmp +++| XPDC DATA 1L BLANK LINE 00446 M00S00445.ktsdmp +++| XPDD CON 0 00447 M00S00446.ktsdmp +++| CBD TITLE PROCESS TABLE 3 - COMMUNICATION BLOCK DUMP. 00448 M00S00447.ktsdmp +++| CBD SPACE 4,15 00449 M00S00448.ktsdmp +++|** CBD - PROCESS COMMUNICATION BLOCK DUMP. 00450 M00S00449.ktsdmp +++|* 00451 M00S00450.ktsdmp +++|* ENTRY (CW - CW+3) = TABLE CONTROL WORDS. 00452 M00S00451.ktsdmp +++|* 00453 M00S00452.ktsdmp +++|* EXIT TO *KTSX*. 00454 M00S00453.ktsdmp +++|* 00455 M00S00454.ktsdmp +++|* USES A - 0, 1, 6, 7. 00456 M00S00455.ktsdmp +++|* X - 0, 1, 6, 7. 00457 M00S00456.ktsdmp +++|* B - 2. 00458 M00S00457.ktsdmp +++|* 00459 M00S00458.ktsdmp +++|* CALLS CDD, COD, DCM, SFN, SKW, WTL. 00460 M00S00459.ktsdmp +++|* 00461 M00S00460.ktsdmp +++|* MACROS WRITEC. 00462 M00S00461.ktsdmp +++| 00463 M00S00462.ktsdmp +++| 00464 M00S00463.ktsdmp +++| CBD BSS 0 ENTRY 00465 M00S00464.ktsdmp +++| SX6 COMC SET FWA OF TASK LOAD 00466 M00S00465.ktsdmp +++| SA1 CW CALCULATE LWA+1 00467 M00S00466.ktsdmp +++| SA6 FW STORE FWA 00468 M00S00467.ktsdmp +++| SX1 X1 NUMBER OF WORDS 00469 M00S00468.ktsdmp +++| SB2 B1+B1 ROUND DOWN NUMBER OF WORDS 00470 M00S00469.ktsdmp +++| AX0 X1,B2 00471 M00S00470.ktsdmp +++| LX0 X0,B2 00472 M00S00471.ktsdmp +++| IX7 X1-X0 NUMBER OF EXCESS WORDS IN TABLE 00473 M00S00472.ktsdmp +++| IX6 X6+X0 SET LWA+1 00474 M00S00473.ktsdmp +++| SX1 COMC+COMCL-1 SET LWA OF COMMUNICATION BLOCK 00475 M00S00474.ktsdmp +++| SA7 CBDC 00476 M00S00475.ktsdmp +++| SA6 LW STORE LIMIT 00477 M00S00476.ktsdmp +++| RJ COD CONVERT LWA 00478 M00S00477.ktsdmp +++| BX6 X4 00479 M00S00478.ktsdmp +++| SA1 CW+B1 SET TITLE LINE 00480 M00S00479.ktsdmp +++| MX0 42 00481 M00S00480.ktsdmp +++| SA6 CBDB 00482 M00S00481.ktsdmp +++| BX1 X0*X1 00483 M00S00482.ktsdmp +++| RJ SFN SPACE FILL NAME 00484 M00S00483.ktsdmp +++| SA6 CBDB+2 00485 M00S00484.ktsdmp +++| SA1 CW+2 CONVERT *TRF* NUMBER 00486 M00S00485.ktsdmp +++| MX0 -24 00487 M00S00486.ktsdmp +++| BX1 -X0*X1 00488 M00S00487.ktsdmp +++| RJ COD CONVERT TO OCTAL DISPLAY CODE 00489 M00S00488.ktsdmp +++| LX6 6 00490 M00S00489.ktsdmp +++| MX0 54 00491 M00S00490.ktsdmp +++| SX1 1RB 00492 M00S00491.ktsdmp +++| BX6 X0*X6 00493 M00S00492.ktsdmp +++| BX6 X6+X1 00494 M00S00493.ktsdmp +++| SA6 CBDB+4 00495 M00S00494.ktsdmp +++| SA1 CW+3 CONVERT CALL ADDRESS 00496 M00S00495.ktsdmp +++| SX1 X1+ 00497 M00S00496.ktsdmp +++| RJ COD CONVERT TO DECIMAL 00498 M00S00497.ktsdmp +++| BX6 X4 00499 M00S00498.ktsdmp +++| SA0 CBDA SET TITLE ADDRESS 00500 M00S00499.ktsdmp +++| SA6 CBDB+6 00501 M00S00500.ktsdmp +++| SA1 EP 00502 M00S00501.ktsdmp +++| NZ X1,CBD1 IF EXCHANGE PACKAGE DUMPED FOR THIS RECORD 00503 M00S00502.ktsdmp +++| RJ WTL WRITE TITLE LINES 00504 M00S00503.ktsdmp +++| EQ CBD2 WRITE BLANK LINE 00505 M00S00504.ktsdmp +++| 00506 M00S00505.ktsdmp +++| CBD1 WRITEC O,CBDA WRITE COMMUNICATION BLOCK HEADER 00507 M00S00506.ktsdmp +++| CBD2 WRITEC O,CBDD 00508 M00S00507.ktsdmp +++| RJ DCM DUMP CENTRAL MEMORY 00509 M00S00508.ktsdmp +++| SA1 CBDC READ EXCESS WORD COUNT 00510 M00S00509.ktsdmp +++| BX0 X1 00511 M00S00510.ktsdmp +++| RJ SKW SKIP EXCESS WORDS 00512 M00S00511.ktsdmp +++| EQ KTSX RETURN 00513 M00S00512.ktsdmp +++| 00514 M00S00513.ktsdmp +++| CBDA DATA 1H- SET TRIPLE SPACE 00515 M00S00514.ktsdmp +++| DATA H*COMMUNICATION BLOCK DUMP FROM "CMBM" TO * 00516 M00S00515.ktsdmp +++| CBDB CON 0 LWA 00517 M00S00516.ktsdmp +++| DATA 10H PROGRAM 00518 M00S00517.ktsdmp +++| CON 0 TASK/PROGRAM NAME 00519 M00S00518.ktsdmp +++| DATA 10H SEQUENCE 00520 M00S00519.ktsdmp +++| CON 0 SEQUENCE NUMBER 00521 M00S00520.ktsdmp +++| DATA 10H ADDRESS 00522 M00S00521.ktsdmp +++| CON 0 CALL ADDRESS 00523 M00S00522.ktsdmp +++| CON 0 LINE TERMINATOR 00524 M00S00523.ktsdmp +++| CBDC CON 0 00525 M00S00524.ktsdmp +++| CBDD DATA 1L BLANK LINE 00526 M00S00525.ktsdmp +++| DBD TITLE PROCESS TABLE 4 - DATA BUFFER DUMP. 00527 M00S00526.ktsdmp +++| DBD SPACE 4,15 00528 M00S00527.ktsdmp +++|** DBD - PROCESS DATA BUFFER DUMP. 00529 M00S00528.ktsdmp +++|* 00530 M00S00529.ktsdmp +++|* ENTRY (CW - CW+4) = TABLE CONTROL WORDS. 00531 M00S00530.ktsdmp +++|* 00532 M00S00531.ktsdmp +++|* EXIT TO *KTSX*. 00533 M00S00532.ktsdmp +++|* TO *ERR1* - IF UNKNOWN FILE FORMAT. 00534 M00S00533.ktsdmp +++|* 00535 M00S00534.ktsdmp +++|* USES A - 0, 1, 2, 6, 7. 00536 M00S00535.ktsdmp +++|* X - 0, 1, 2, 6, 7. 00537 M00S00536.ktsdmp +++|* 00538 M00S00537.ktsdmp +++|* CALLS DCM, OCB, SFN, SKW, WOD, WTL. 00539 M00S00538.ktsdmp +++|* 00540 M00S00539.ktsdmp +++|* MACROS WRITEW. 00541 M00S00540.ktsdmp +++| 00542 M00S00541.ktsdmp +++| 00543 M00S00542.ktsdmp +++| DBD BSS 0 ENTRY 00544 M00S00543.ktsdmp +++| SX6 0 SET FWA OF DUMP 00545 M00S00544.ktsdmp +++| SA1 CW FIND LWA+1 00546 M00S00545.ktsdmp +++| SA6 FW 00547 M00S00546.ktsdmp +++| SX7 X1+ LWA+1 00548 M00S00547.ktsdmp +++| SX1 X1 00549 M00S00548.ktsdmp +++| AX7 2 ROUND DOWN LWA+1 00550 M00S00549.ktsdmp +++| ZR X1,KTSX IF TABLE EMPTY - RETURN 00551 M00S00550.ktsdmp +++| LX7 2 00552 M00S00551.ktsdmp +++| IX6 X1-X7 EXCESS WORDS 00553 M00S00552.ktsdmp +++| NG X1,ERR1 IF N .LT. ZERO 00554 M00S00553.ktsdmp +++| SA7 LW STORE LWA 00555 M00S00554.ktsdmp +++| SA6 DBDF SAVE EXCESS 00556 M00S00555.ktsdmp +++| SA1 CW+1 SET DATA BASE, FILE NAME IN TITLE 00557 M00S00556.ktsdmp +++| MX0 42 00558 M00S00557.ktsdmp +++| BX1 X0*X1 00559 M00S00558.ktsdmp +++| RJ SFN SPACE FILL NAME 00560 M00S00559.ktsdmp +++| SA6 DBDA+3 00561 M00S00560.ktsdmp +++| SA0 DBDA SET FWA OF LINE TO BE WRITTEN 00562 M00S00561.ktsdmp +++| RJ WTL WRITE TITLE LINES 00563 M00S00562.ktsdmp +++| SA1 DBDB SET KEY VALUE 00564 M00S00563.ktsdmp +++| SA2 DBDC 00565 M00S00564.ktsdmp +++| BX6 X1 00566 M00S00565.ktsdmp +++| LX7 X2 00567 M00S00566.ktsdmp +++| SA6 BUFO 00568 M00S00567.ktsdmp +++| SA7 BUFO+1 00569 M00S00568.ktsdmp +++| SA6 BUFO+3 00570 M00S00569.ktsdmp +++| SX7 0 00571 M00S00570.ktsdmp +++| SA1 CW+2 CONVERT KEY VALUE 00572 M00S00571.ktsdmp +++| SA7 BUFO+2 00573 M00S00572.ktsdmp +++| RJ OCB OCTAL CONVERSION TO BUFO+4, +5 00574 M00S00573.ktsdmp +++| SA1 CW+2 SET DISPLAY INTERPRETATION 00575 M00S00574.ktsdmp +++| RJ SFN SPACE FILL NAME 00576 M00S00575.ktsdmp +++| SA2 TERM GET TERMINAL OUTPUT FLAG 00577 M00S00576.ktsdmp +++| SX7 B0+ TERMINATE LINE 00578 M00S00577.ktsdmp +++| NZ X2,DBD1 IF OUTPUT TO TERMINAL 00579 M00S00578.ktsdmp +++| SA6 A6+1 00580 M00S00579.ktsdmp +++| DBD1 SA7 A6+1 00581 M00S00580.ktsdmp +++| SA2 DBDB STORE SECOND KEY VALUE WORD 00582 M00S00581.ktsdmp +++| SA1 CW+3 00583 M00S00582.ktsdmp +++| BX6 X2 00584 M00S00583.ktsdmp +++| SA6 A7+B1 00585 M00S00584.ktsdmp +++| RJ OCB CONVERT WORD 2 00586 M00S00585.ktsdmp +++| SA1 CW+3 00587 M00S00586.ktsdmp +++| RJ SFN SPACE FILL NAME 00588 M00S00587.ktsdmp +++| SA2 TERM GET TERMINAL OUTPUT FLAG 00589 M00S00588.ktsdmp +++| SX7 B0+ 00590 M00S00589.ktsdmp +++| NZ X2,DBD2 IF OUTPUT TO TERMINAL 00591 M00S00590.ktsdmp +++| SA6 A6+1 00592 M00S00591.ktsdmp +++| DBD2 SA7 A6+1 00593 M00S00592.ktsdmp +++| WRITEW O,BUFO,A7-BUFO+1 LIST KEY VALUE 00594 M00S00593.ktsdmp +++| SA1 CW+4 CONVERT PRU NUMBER 00595 M00S00594.ktsdmp +++| RJ WOD CONVERT WORD TO OCTAL DISPLAY 00596 M00S00595.ktsdmp +++| SA1 CW+4 CONVERT STATUS 00597 M00S00596.ktsdmp +++| SA6 DBDD+3 00598 M00S00597.ktsdmp +++| RJ WOD CONVERT WORD TO OCTAL DISPLAY 00599 M00S00598.ktsdmp +++| SA7 DBDE+2 00600 M00S00599.ktsdmp +++| WRITEW O,DBDD,DBDDL LIST PRU, STATUS 00601 M00S00600.ktsdmp +++| RJ DCM DUMP CENTRAL MEMORY BUFFER 00602 M00S00601.ktsdmp +++| SA1 DBDF READ EXCESS WORD COUNT 00603 M00S00602.ktsdmp +++| BX0 X1 00604 M00S00603.ktsdmp +++| RJ SKW SKIP EXCESS WORDS 00605 M00S00604.ktsdmp +++| EQ KTSX RETURN 00606 M00S00605.ktsdmp +++| 00607 M00S00606.ktsdmp +++| DBDA DATA 1H0 DOUBLE SPACE PAGE HEADER 00608 M00S00607.ktsdmp +++| DATA H*DATA BUFFER DUMP OF * 00609 M00S00608.ktsdmp +++| CON 0 DB,FN 00610 M00S00609.ktsdmp +++| CON 0 LINE TERMINATOR 00611 M00S00610.ktsdmp +++| DBDB DATA 10H 00612 M00S00611.ktsdmp +++| DBDC DATA 10HKEY VALUE 00613 M00S00612.ktsdmp +++| DBDD DATA 2L 00614 M00S00613.ktsdmp +++| DATA 10H 00615 M00S00614.ktsdmp +++| DATA 10HPRU 00616 M00S00615.ktsdmp +++| CON 0 PRU NUMBER 00617 M00S00616.ktsdmp +++| CON 0 00618 M00S00617.ktsdmp +++| DBDE DATA 10H 00619 M00S00618.ktsdmp +++| DATA 10HSTATUS 00620 M00S00619.ktsdmp +++| CON 0 STATUS 00621 M00S00620.ktsdmp +++| CON 0 00622 M00S00621.ktsdmp +++| DATA 2L 00623 M00S00622.ktsdmp +++| DBDDL EQU *-DBDD 00624 M00S00623.ktsdmp +++| DBDF CON 0 00625 M00S00624.ktsdmp +++| CFA TITLE SUBROUTINES. 00626 M00S00625.ktsdmp +++| CFA SPACE 4,10 00627 M00S00626.ktsdmp +++|** CFA - CLEAR FILE ARGUMENTS. 00628 M00S00627.ktsdmp +++|* 00629 M00S00628.ktsdmp +++|* EXIT (LB), (DD), AND (DT) RESET TO (CFAA). 00630 M00S00629.ktsdmp +++|* 00631 M00S00630.ktsdmp +++|* USES A - 1, 6, 7. 00632 M00S00631.ktsdmp +++|* X - 1, 6, 7. 00633 M00S00632.ktsdmp +++| 00634 M00S00633.ktsdmp +++| 00635 M00S00634.ktsdmp +++| CFA SUBR ENTRY/EXIT 00636 M00S00635.ktsdmp +++| SA1 CFAA RESET LABEL, DUMP DATE, DUMP TIME 00637 M00S00636.ktsdmp +++| BX6 X1 00638 M00S00637.ktsdmp +++| LX7 X1 00639 M00S00638.ktsdmp +++| SA6 LB 00640 M00S00639.ktsdmp +++| SA7 DD 00641 M00S00640.ktsdmp +++| SA6 DT 00642 M00S00641.ktsdmp +++| EQ CFAX RETURN 00643 M00S00642.ktsdmp +++| 00644 M00S00643.ktsdmp +++| CFAA CON 1H BLANKS 00645 M00S00644.ktsdmp +++| COF SPACE 4,10 00646 M00S00645.ktsdmp +++|** COF - CHECK OUTPUT FILE NAME AND ASSIGNMENT. 00647 M00S00646.ktsdmp +++|* 00648 M00S00647.ktsdmp +++|* EXIT (X2) = FWA OF ERROR MESSAGE - IF ERROR. 00649 M00S00648.ktsdmp +++|* TO *ERR3* - IF OUTPUT FILE IS TERMINAL FILE AND *DMD* 00650 M00S00649.ktsdmp +++|* TYPE DUMP REQUESTED. 00651 M00S00650.ktsdmp +++|* 00652 M00S00651.ktsdmp +++|* USES A - 1, 2, 4, 6, 7. 00653 M00S00652.ktsdmp +++|* X - 1, 2, 4, 6, 7. 00654 M00S00653.ktsdmp +++|* 00655 M00S00654.ktsdmp +++|* CALLS STF. 00656 M00S00655.ktsdmp +++| 00657 M00S00656.ktsdmp +++| 00658 M00S00657.ktsdmp +++| COF SUBR ENTRY/EXIT 00659 M00S00658.ktsdmp +++| SX2 O 00660 M00S00659.ktsdmp +++| RJ STF CHECK FILE ASSIGNMENT 00661 M00S00660.ktsdmp +++| NZ X6,COFX IF OUTPUT NOT ASSIGNED TO TERMINAL 00662 M00S00661.ktsdmp +++| SA1 DF 00663 M00S00662.ktsdmp +++| ZR X1,ERR3 IF DISPLAY DUMP REQUESTED 00664 M00S00663.ktsdmp +++| SA4 COFB TERMINAL DUMP CONTROL WORD 00665 M00S00664.ktsdmp +++| BX6 X4 00666 M00S00665.ktsdmp +++| SA2 COFA CLEAR AUTO EJECT 00667 M00S00666.ktsdmp +++| LX7 X2 00668 M00S00667.ktsdmp +++| SA6 DC NEW DUMP CONTROL WORD 00669 M00S00668.ktsdmp +++| SA7 WTLB 00670 M00S00669.ktsdmp +++| SX6 B1+ SET TERMINAL OUTPUT FLAG 00671 M00S00670.ktsdmp +++| SX7 BUF1+2 00672 M00S00671.ktsdmp +++| SA6 TERM 00673 M00S00672.ktsdmp +++| SA7 IND 00674 M00S00673.ktsdmp +++| SA1 COFC CLEAR OTHER CARRIAGE CONTROL CHARACTERS 00675 M00S00674.ktsdmp +++| BX6 X1 00676 M00S00675.ktsdmp +++| LX7 X1 00677 M00S00676.ktsdmp +++| SA6 MEDB 00678 M00S00677.ktsdmp +++| SA7 XPDA 00679 M00S00678.ktsdmp +++| SA6 XPDB 00680 M00S00679.ktsdmp +++| SA7 CBDA 00681 M00S00680.ktsdmp +++| SA6 DBDA 00682 M00S00681.ktsdmp +++| SA7 WTLA 00683 M00S00682.ktsdmp +++| EQ COFX RETURN 00684 M00S00683.ktsdmp +++| 00685 M00S00684.ktsdmp +++| COFA CON 1L 00686 M00S00685.ktsdmp +++| COFB VFD 6/30B,18/0,18/1,18/2 TERMINAL DUMP CONTROL WORD 00687 M00S00686.ktsdmp +++| COFC DATA 10H BLANK FILLER 00688 M00S00687.ktsdmp +++| DCK SPACE 4,15 00689 M00S00688.ktsdmp +++|** DCK - STRING OUT DATA. 00690 M00S00689.ktsdmp +++|* 00691 M00S00690.ktsdmp +++|* ENTRY (X6) = FIRST CONVERTED WORD OF DUMP. 00692 M00S00691.ktsdmp +++|* (X7) = SECOND CONVERTED WORD OF DUMP. 00693 M00S00692.ktsdmp +++|* (B3) = INDEX OF SPACE. 00694 M00S00693.ktsdmp +++|* (A7) = LOCATION IN DESTINATION LINE. 00695 M00S00694.ktsdmp +++|* 00696 M00S00695.ktsdmp +++|* EXIT WORDS PACKED AND INTERPRETED INTO BUFFER. 00697 M00S00696.ktsdmp +++|* 00698 M00S00697.ktsdmp +++|* USES A - 3, 4, 6, 7. 00699 M00S00698.ktsdmp +++|* X - 2, 3, 4, 6, 7. 00700 M00S00699.ktsdmp +++|* B - 2, 3, 4, 5. 00701 M00S00700.ktsdmp +++| 00702 M00S00701.ktsdmp +++| 00703 M00S00702.ktsdmp +++| DCK SUBR ENTRY/EXIT 00704 M00S00703.ktsdmp +++| SB4 B3 00705 M00S00704.ktsdmp +++| SB5 1 00706 M00S00705.ktsdmp +++| BX3 X6 SAVE (X6) 00707 M00S00706.ktsdmp +++| DCK1 SA4 B4+SBUF+19 00708 M00S00707.ktsdmp +++| SB4 B4-B1 00709 M00S00708.ktsdmp +++| BX6 X4 00710 M00S00709.ktsdmp +++| SA6 B4+SBUF 00711 M00S00710.ktsdmp +++| PL B4,DCK1 IF TRANSFER RESIDUE 00712 M00S00711.ktsdmp +++| NG B7,DCK2 IF NO SPACE PRESENT 00713 M00S00712.ktsdmp +++| SX6 1R 00714 M00S00713.ktsdmp +++| SA6 B3+SBUF 00715 M00S00714.ktsdmp +++| SB3 B3+1 00716 M00S00715.ktsdmp +++| DCK2 SB2 10 00717 M00S00716.ktsdmp +++| MX2 6 00718 M00S00717.ktsdmp +++| DCK3 BX6 X2*X3 00719 M00S00718.ktsdmp +++| LX6 6 00720 M00S00719.ktsdmp +++| SA6 B3+SBUF 00721 M00S00720.ktsdmp +++| SB2 B2-B1 SHIFT COUNT 00722 M00S00721.ktsdmp +++| LX3 6 00723 M00S00722.ktsdmp +++| SB3 B3+1 00724 M00S00723.ktsdmp +++| NZ B2,DCK3 IF COMPLETE STRING 00725 M00S00724.ktsdmp +++| BX3 X7 00726 M00S00725.ktsdmp +++| SB5 B5-B1 00727 M00S00726.ktsdmp +++| ZR B5,DCK2 IF ZERO - PROCESS SECOND WORD 00728 M00S00727.ktsdmp +++| SB5 B1 00729 M00S00728.ktsdmp +++| SB3 B0 00730 M00S00729.ktsdmp +++| DCK4 SB2 10 00731 M00S00730.ktsdmp +++| SX7 0 00732 M00S00731.ktsdmp +++| DCK5 SA3 B3+SBUF 00733 M00S00732.ktsdmp +++| NZ X3,DCK6 IF NOT A 0-CHARACTER 00734 M00S00733.ktsdmp +++| SX3 1R 00735 M00S00734.ktsdmp +++| DCK6 LX7 6 00736 M00S00735.ktsdmp +++| BX7 X7+X3 00737 M00S00736.ktsdmp +++| SB3 B3+B1 00738 M00S00737.ktsdmp +++| SB2 B2-B1 00739 M00S00738.ktsdmp +++| NZ B2,DCK5 IF COMPLETE STRING 00740 M00S00739.ktsdmp +++| SA7 A7+B1 00741 M00S00740.ktsdmp +++| SB5 B5-B1 00742 M00S00741.ktsdmp +++| ZR B5,DCK4 IF ZERO - DO SECOND WORD 00743 M00S00742.ktsdmp +++| EQ DCKX RETURN 00744 M00S00743.ktsdmp +++| DCM SPACE 4,15 00745 M00S00744.ktsdmp +++|** DCM - DUMP CENTRAL MEMORY. 00746 M00S00745.ktsdmp +++|* 00747 M00S00746.ktsdmp +++|* ENTRY (FW) = FWA OF DUMP. 00748 M00S00747.ktsdmp +++|* (LW) = LIMIT ADDRESS OF DUMP. 00749 M00S00748.ktsdmp +++|* 00750 M00S00749.ktsdmp +++|* EXIT TO *ERR1* - IF PREMATURE EOR/EOF/EOI. 00751 M00S00750.ktsdmp +++|* 00752 M00S00751.ktsdmp +++|* USES A - 0, 1, 2, 3, 5, 6, 7. 00753 M00S00752.ktsdmp +++|* X - ALL. 00754 M00S00753.ktsdmp +++|* B - 2, 6, 7. 00755 M00S00754.ktsdmp +++|* 00756 M00S00755.ktsdmp +++|* CALLS COD, OCT, RDW=. 00757 M00S00756.ktsdmp +++|* 00758 M00S00757.ktsdmp +++|* MACROS READW, WRITEW. 00759 M00S00758.ktsdmp +++| 00760 M00S00759.ktsdmp +++| 00761 M00S00760.ktsdmp +++| DCM4 SA1 LA READ ADDRESS 00762 M00S00761.ktsdmp +++| RJ COD CONVERT OCTAL TO DISPLAY 00763 M00S00762.ktsdmp +++| SA1 DB SET BLOCK INDEX 00764 M00S00763.ktsdmp +++| LX6 2*6 00765 M00S00764.ktsdmp +++| SA0 BUF1+X1 00766 M00S00765.ktsdmp +++| SA6 BUF 00767 M00S00766.ktsdmp +++| SB7 X5 00768 M00S00767.ktsdmp +++| RJ OCT LIST MEMORY IN OCTAL 00769 M00S00768.ktsdmp +++| 00770 M00S00769.ktsdmp +++| DCM SUBR ENTRY/EXIT 00771 M00S00770.ktsdmp +++| SA1 FW SET LINE ADDRESS 00772 M00S00771.ktsdmp +++| SA5 DC SET DUMP CONTROL 00773 M00S00772.ktsdmp +++| SX6 X1 00774 M00S00773.ktsdmp +++| BX7 X7-X7 CLEAR BUFFER INDEX 00775 M00S00774.ktsdmp +++| SA6 LA 00776 M00S00775.ktsdmp +++| SA7 DB 00777 M00S00776.ktsdmp +++| READW I,BUF1,X5 READ FIRST BLOCK 00778 M00S00777.ktsdmp +++| DCM1 SA1 LA CONVERT LINE ADDRESS 00779 M00S00778.ktsdmp +++| RJ COD CONVERT OCTAL TO DISPLAY 00780 M00S00779.ktsdmp +++| SA1 DB SET BLOCK INDEX 00781 M00S00780.ktsdmp +++| LX6 2*6 00782 M00S00781.ktsdmp +++| SA0 BUF1+X1 FWA OF MEMORY TO CONVERT 00783 M00S00782.ktsdmp +++| SA6 BUF DESTINATION ADDRESS - 1 00784 M00S00783.ktsdmp +++| SB7 X5 WORD COUNT 00785 M00S00784.ktsdmp +++| RJ OCT LIST MEMORY IN OCTAL 00786 M00S00785.ktsdmp +++| SA5 DC SET DUMP CONTROL 00787 M00S00786.ktsdmp +++| SA1 DB TOGGLE DUMP BLOCK 00788 M00S00787.ktsdmp +++| SX2 X5 00789 M00S00788.ktsdmp +++| BX6 X1-X2 00790 M00S00789.ktsdmp +++| SA6 A1 00791 M00S00790.ktsdmp +++| BX0 X1-X2 00792 M00S00791.ktsdmp +++|* READW I,BUF1+X0,X5 READ NEXT BLOCK 00793 M00S00792.ktsdmp +++| DCM2 SB6 BUF1+X0 00794 M00S00793.ktsdmp +++| SB7 X5+ 00795 M00S00794.ktsdmp +++| SX2 I 00796 M00S00795.ktsdmp +++| RJ RDW= READ SPECIFIED NUMBER OF WORDS 00797 M00S00796.ktsdmp +++| SA3 LA ADVANCE LINE ADDRESS 00798 M00S00797.ktsdmp +++| NZ X1,ERR1 IF EOR/EOF/EOI 00799 M00S00798.ktsdmp +++| SA1 BUF1 LOAD FIRST WORD PAIR 00800 M00S00799.ktsdmp +++| SA2 IND 00801 M00S00800.ktsdmp +++| SA2 X2 00802 M00S00801.ktsdmp +++| LX4 X5,B1 SET WORD COUNT 00803 M00S00802.ktsdmp +++| SB2 X5 00804 M00S00803.ktsdmp +++| BX7 X7-X7 CLEAR DIFFERENCE 00805 M00S00804.ktsdmp +++| SX6 X3+B2 00806 M00S00805.ktsdmp +++| DCM3 BX3 X1-X2 COMPARE WORDS 00807 M00S00806.ktsdmp +++| LX4 1 COUNT WORD 00808 M00S00807.ktsdmp +++| SA1 A1+B1 00809 M00S00808.ktsdmp +++| BX7 X7+X3 ACCUMULATE DIFFERENCES 00810 M00S00809.ktsdmp +++| SA2 A2+B1 00811 M00S00810.ktsdmp +++| NG X4,DCM3 IF .LT. ZERO - LOOP FOR ALL WRODS 00812 M00S00811.ktsdmp +++| SA1 A3-B1 CHECK LIMIT REACHED 00813 M00S00812.ktsdmp +++| IX2 X6-X1 00814 M00S00813.ktsdmp +++| SA6 A3+ STORE ADDRESS 00815 M00S00814.ktsdmp +++| SB6 X2+B2 00816 M00S00815.ktsdmp +++| PL B6,DCM4 IF LIMIT REACHED 00817 M00S00816.ktsdmp +++| NZ X7,DCM1 IF DIFFERENT WORD DETECTED 00818 M00S00817.ktsdmp +++| NG X7,DCM1 IF DIFFERENT WORD DETECTED 00819 M00S00818.ktsdmp +++| NG X5,DCM2 IF DUPLICATE LINE SET 00820 M00S00819.ktsdmp +++| WRITEW O,DCMA,DCMAL 00821 M00S00820.ktsdmp +++| MX1 1 SET DUPLICATE LINE 00822 M00S00821.ktsdmp +++| BX5 X1+X5 00823 M00S00822.ktsdmp +++| EQ DCM2 CONTINUE DUMPING MEMORY 00824 M00S00823.ktsdmp +++| 00825 M00S00824.ktsdmp +++| DCMA DATA 1H BLANKS 00826 M00S00825.ktsdmp +++| DATA C*DUPLICATED LINES.* 00827 M00S00826.ktsdmp +++| DCMAL EQU *-DCMA 00828 M00S00827.ktsdmp +++| DXP SPACE 4,15 00829 M00S00828.ktsdmp +++|** DXP - DUMP EXCHANGE PACKAGE. 00830 M00S00829.ktsdmp +++|* 00831 M00S00830.ktsdmp +++|* ENTRY (BUF - BUF+17B) = EXCHANGE PACKAGE. 00832 M00S00831.ktsdmp +++|* 00833 M00S00832.ktsdmp +++|* EXIT CONVERTED EXCHANGE PACKAGE WRITTEN TO OUTPUT BUFFER. 00834 M00S00833.ktsdmp +++|* 00835 M00S00834.ktsdmp +++|* USES A - 0, 1, 2, 5, 6. 00836 M00S00835.ktsdmp +++|* X - 0, 1, 2, 3, 5, 6. 00837 M00S00836.ktsdmp +++|* B - 2. 00838 M00S00837.ktsdmp +++|* 00839 M00S00838.ktsdmp +++|* CALLS COD, OCB. 00840 M00S00839.ktsdmp +++|* 00841 M00S00840.ktsdmp +++|* MACROS WRITEW. 00842 M00S00841.ktsdmp +++| 00843 M00S00842.ktsdmp +++| 00844 M00S00843.ktsdmp +++| DXP SUBR ENTRY/EXIT 00845 M00S00844.ktsdmp +++| SA0 0 INITIALIZE REGISTER INDEX 00846 M00S00845.ktsdmp +++| SA5 BUF 00847 M00S00846.ktsdmp +++| DXP1 SA1 DXPA+A0 SET REGISTER NAME 00848 M00S00847.ktsdmp +++| SA2 DXPB 00849 M00S00848.ktsdmp +++| MX0 4*6 00850 M00S00849.ktsdmp +++| SB2 X1 SET SHIFT 00851 M00S00850.ktsdmp +++| BX3 X0*X1 00852 M00S00851.ktsdmp +++| LX3 4*6 00853 M00S00852.ktsdmp +++| IX6 X2+X3 00854 M00S00853.ktsdmp +++| MX0 -18 00855 M00S00854.ktsdmp +++| SA6 BUFO 00856 M00S00855.ktsdmp +++| NG X1,DXP2 IF BLANK FIELD 00857 M00S00856.ktsdmp +++| LX2 X5,B2 EXTRACT REGISTER 00858 M00S00857.ktsdmp +++| BX1 -X0*X2 00859 M00S00858.ktsdmp +++| RJ COD CONVERT OCTAL TO DISPLAY 00860 M00S00859.ktsdmp +++| DXP2 LX6 4*6 CONVERT A-REGISTER 00861 M00S00860.ktsdmp +++| SX3 2RA0-2R +A0 00862 M00S00861.ktsdmp +++| IX6 X6+X3 00863 M00S00862.ktsdmp +++| SA6 A6+B1 00864 M00S00863.ktsdmp +++| LX5 -18 00865 M00S00864.ktsdmp +++| SX0 1RB-1R 00866 M00S00865.ktsdmp +++| MX2 -18 00867 M00S00866.ktsdmp +++| BX1 -X2*X5 00868 M00S00867.ktsdmp +++| RJ COD CONVERT OCTAL TO DISPLAY 00869 M00S00868.ktsdmp +++| LX6 3*6 00870 M00S00869.ktsdmp +++| IX6 X6+X0 00871 M00S00870.ktsdmp +++| SA6 A6+B1 00872 M00S00871.ktsdmp +++| LX5 18 CONVERT B-REGISTER 00873 M00S00872.ktsdmp +++| SX0 1R0-1R +A0 00874 M00S00873.ktsdmp +++| MX2 -18 00875 M00S00874.ktsdmp +++| BX1 -X2*X5 00876 M00S00875.ktsdmp +++| LX0 54 00877 M00S00876.ktsdmp +++| RJ COD CONVERT OCTAL TO DISPLAY 00878 M00S00877.ktsdmp +++| LX6 2*6 00879 M00S00878.ktsdmp +++| IX6 X6+X0 00880 M00S00879.ktsdmp +++| SA6 A6+1 00881 M00S00880.ktsdmp +++| BX6 X6-X6 CLEAR LAST WORD 00882 M00S00881.ktsdmp +++| SA6 A6+B1 00883 M00S00882.ktsdmp +++| WRITEW O,BUFO,A6-BUFO+1 00884 M00S00883.ktsdmp +++| SA0 A0+1 ADVANCE REGISTER 00885 M00S00884.ktsdmp +++| SB2 A0-10B 00886 M00S00885.ktsdmp +++| SA5 BUF+A0 READ REGISTER 00887 M00S00886.ktsdmp +++| NZ B2,DXP1 IF MORE A-REGISTERS TO PROCESS 00888 M00S00887.ktsdmp +++| WRITEW O,(=C* *),B1 SPACE 00889 M00S00888.ktsdmp +++| DXP3 SA2 DXPC CONVERT X-REGISTERS 00890 M00S00889.ktsdmp +++| SX3 A0-10B 00891 M00S00890.ktsdmp +++| LX3 2*6 00892 M00S00891.ktsdmp +++| IX6 X2+X3 00893 M00S00892.ktsdmp +++| SA1 BUF+A0 00894 M00S00893.ktsdmp +++| SA6 BUFO 00895 M00S00894.ktsdmp +++| RJ OCB CONVERT OCTAL BY BYTES 00896 M00S00895.ktsdmp +++| BX6 X6-X6 00897 M00S00896.ktsdmp +++| SA6 A6+B1 00898 M00S00897.ktsdmp +++| WRITEW O,BUFO,A6-BUFO+1 00899 M00S00898.ktsdmp +++| SA0 A0+1 ADVANCE REGISTER 00900 M00S00899.ktsdmp +++| SB2 A0-20B 00901 M00S00900.ktsdmp +++| NZ B2,DXP3 IF NOT ZERO - PROCESS END OF REGISTERS 00902 M00S00901.ktsdmp +++| EQ DXPX RETURN 00903 M00S00902.ktsdmp +++| 00904 M00S00903.ktsdmp +++| DXPA VFD 24/0HP,36/24 00905 M00S00904.ktsdmp +++| VFD 24/0HRA,36/24 00906 M00S00905.ktsdmp +++| VFD 24/0HFL,36/24 00907 M00S00906.ktsdmp +++| VFD 24/0HEM,36/12 00908 M00S00907.ktsdmp +++| VFD 24/0HRAE,36/18 00909 M00S00908.ktsdmp +++| VFD 24/0HFLE,36/18 00910 M00S00909.ktsdmp +++| VFD 24/0HMA,36/24 00911 M00S00910.ktsdmp +++| VFD 60/1H 00912 M00S00911.ktsdmp +++| DXPB DATA 6L 00913 M00S00912.ktsdmp +++| DXPC DATA 4AX0 00914 M00S00913.ktsdmp +++| DXPAL EQU *-DXPA LENGTH OF EXCHANGE PACKAGE 00915 M00S00914.ktsdmp +++| ERR SPACE 4,10 00916 M00S00915.ktsdmp +++|** ERR - PROCESS ERROR. 00917 M00S00916.ktsdmp +++|* 00918 M00S00917.ktsdmp +++|* MACROS ABORT, MESSAGE. 00919 M00S00918.ktsdmp +++| 00920 M00S00919.ktsdmp +++| 00921 M00S00920.ktsdmp +++| ERR MESSAGE X2,0,R ISSUE DAYFILE MESSAGE 00922 M00S00921.ktsdmp +++| ABORT 00923 M00S00922.ktsdmp +++| 00924 M00S00923.ktsdmp +++| ERR1 SX2 ERRA * UNKNOWN FILE FORMAT.* 00925 M00S00924.ktsdmp +++| EQ ERR PROCESS ERROR 00926 M00S00925.ktsdmp +++| 00927 M00S00926.ktsdmp +++| ERR2 SX2 ERRB * FWA .GE. LWA+1.* 00928 M00S00927.ktsdmp +++| EQ ERR PROCESS ERROR 00929 M00S00928.ktsdmp +++| 00930 M00S00929.ktsdmp +++| ERR3 SX2 ERRC * DISPLAY DUMP NOT ALLOWED TO TERMINAL.* 00931 M00S00930.ktsdmp +++| EQ ERR PROCESS ERROR 00932 M00S00931.ktsdmp +++| 00933 M00S00932.ktsdmp +++| ERR4 SX2 MBUF * XXXXXXX NOT FOUND.* 00934 M00S00933.ktsdmp +++| EQ ERR PROCESS ERROR 00935 M00S00934.ktsdmp +++| 00936 M00S00935.ktsdmp +++| ERRA DATA C* UNKNOWN FILE FORMAT.* 00937 M00S00936.ktsdmp +++| ERRB DATA C* FWA .GE. LWA+1.* 00938 M00S00937.ktsdmp +++| ERRC DATA C* DISPLAY DUMP NOT ALLOWED TO TERMINAL.* 00939 M00S00938.ktsdmp +++| OCB SPACE 4,15 00940 M00S00939.ktsdmp +++|** OCB - CONVERT OCTAL BY BYTES. 00941 M00S00940.ktsdmp +++|* 00942 M00S00941.ktsdmp +++|* ENTRY (X1) = WORD TO CONVERT. 00943 M00S00942.ktsdmp +++|* (A6) = BUFFER ADDRESS. 00944 M00S00943.ktsdmp +++|* 00945 M00S00944.ktsdmp +++|* EXIT (A6) = BUFFER ADDRESS ADVANCED. 00946 M00S00945.ktsdmp +++|* 00947 M00S00946.ktsdmp +++|* USES A - 1, 6, 7. 00948 M00S00947.ktsdmp +++|* X - ALL. 00949 M00S00948.ktsdmp +++|* 00950 M00S00949.ktsdmp +++|* CALLS WOD. 00951 M00S00950.ktsdmp +++| 00952 M00S00951.ktsdmp +++| 00953 M00S00952.ktsdmp +++| OCB SUBR ENTRY/EXIT 00954 M00S00953.ktsdmp +++| RJ WOD CONVERT WORD (ABCDEFGHIJ KLMNOPQRST) 00955 M00S00954.ktsdmp +++| SA1 OCBA 00956 M00S00955.ktsdmp +++| MX2 -2*6 00957 M00S00956.ktsdmp +++| BX5 -X2*X6 ........IJ 00958 M00S00957.ktsdmp +++| MX0 4*6 00959 M00S00958.ktsdmp +++| BX3 X0*X6 ABCD...... 00960 M00S00959.ktsdmp +++| LX0 -4*6 00961 M00S00960.ktsdmp +++| IX4 X1+X3 ABCD*....* 00962 M00S00961.ktsdmp +++| BX2 X0*X6 00963 M00S00962.ktsdmp +++| LX2 -6 .....EFGH. 00964 M00S00963.ktsdmp +++| BX6 X4+X2 ABCD*EFGH* 00965 M00S00964.ktsdmp +++| LX7 -4*6 QRSTKLMNOP 00966 M00S00965.ktsdmp +++| SA6 A6+B1 00967 M00S00966.ktsdmp +++| MX0 4*6 00968 M00S00967.ktsdmp +++| BX6 X0*X7 QRST...... 00969 M00S00968.ktsdmp +++| LX5 8*6 IJ........ 00970 M00S00969.ktsdmp +++| BX7 -X0*X7 ....KLMNOP 00971 M00S00970.ktsdmp +++| LX7 2*6 ..KLMONP.. 00972 M00S00971.ktsdmp +++| IX2 X5+X7 IJKLMNOP.. 00973 M00S00972.ktsdmp +++| BX3 X0*X2 IJKL...... 00974 M00S00973.ktsdmp +++| LX0 -4*6 00975 M00S00974.ktsdmp +++| IX4 X1+X3 IJKL*....* 00976 M00S00975.ktsdmp +++| BX5 X0*X2 ....MNOP.. 00977 M00S00976.ktsdmp +++| SA1 A1+B1 ....****** 00978 M00S00977.ktsdmp +++| LX5 -6 .....MNOP. 00979 M00S00978.ktsdmp +++| IX7 X4+X5 IJKL*MNOP* 00980 M00S00979.ktsdmp +++| BX6 X1+X6 QRST****** 00981 M00S00980.ktsdmp +++| SA7 A6+B1 00982 M00S00981.ktsdmp +++| SA6 A7+B1 00983 M00S00982.ktsdmp +++| EQ OCBX RETURN 00984 M00S00983.ktsdmp +++| 00985 M00S00984.ktsdmp +++| OCBA VFD 24/0,6/1R ,24/0,6/1R 00986 M00S00985.ktsdmp +++| VFD 24/0,36/6H 00987 M00S00986.ktsdmp +++| OCT SPACE 4,15 00988 M00S00987.ktsdmp +++|** OCT - LIST OCTAL OR OCTAL WITH DISPLAY. 00989 M00S00988.ktsdmp +++|* 00990 M00S00989.ktsdmp +++|* ENTRY (B7) = WORD COUNT. 00991 M00S00990.ktsdmp +++|* (A0) = WORD ADDRESS. 00992 M00S00991.ktsdmp +++|* (A6) = DESTINATION ADDRESS - 1. 00993 M00S00992.ktsdmp +++|* 00994 M00S00993.ktsdmp +++|* EXIT NONE. 00995 M00S00994.ktsdmp +++|* 00996 M00S00995.ktsdmp +++|* USES A - 1, 2, 6, 7. 00997 M00S00996.ktsdmp +++|* X - ALL. 00998 M00S00997.ktsdmp +++|* B - 6, 7. 00999 M00S00998.ktsdmp +++|* 01000 M00S00999.ktsdmp +++|* CALLS WOD, SFN. 01001 M00S01000.ktsdmp +++|* 01002 M00S01001.ktsdmp +++|* MACROS WRITEW. 01003 M00S01002.ktsdmp +++| 01004 M00S01003.ktsdmp +++| 01005 M00S01004.ktsdmp +++| OCT SUBR ENTRY/EXIT 01006 M00S01005.ktsdmp +++| SA1 A0 READ FIRST WORD 01007 M00S01006.ktsdmp +++| SB6 B7 01008 M00S01007.ktsdmp +++| SA2 DF READ CONVERSION TYPE FLAG 01009 M00S01008.ktsdmp +++| ZR X2,OCT2 IF DISPLAY DUMP REQUESTED 01010 M00S01009.ktsdmp +++| OCT1 RJ WOD CONVERT WORD TO DISPLAY 01011 M00S01010.ktsdmp +++| MX5 5*6 01012 M00S01011.ktsdmp +++| BX3 X5*X6 ABCDE..... 01013 M00S01012.ktsdmp +++| SA2 OCTA 01014 M00S01013.ktsdmp +++| LX3 -4*6 ....ABCDE. 01015 M00S01014.ktsdmp +++| BX1 -X5*X6 .....FGHIJ 01016 M00S01015.ktsdmp +++| IX6 X2+X3 ****ABCDE* 01017 M00S01016.ktsdmp +++| SA2 A2+B1 01018 M00S01017.ktsdmp +++| LX1 5*6 FGHIJ..... 01019 M00S01018.ktsdmp +++| BX4 -X5*X7 .....PQRST 01020 M00S01019.ktsdmp +++| MX3 -4*6 01021 M00S01020.ktsdmp +++| IX2 X2+X1 FGHIJ*.... 01022 M00S01021.ktsdmp +++| SA6 A6+B1 01023 M00S01022.ktsdmp +++| LX7 -6*6 OPQRSTKLMN 01024 M00S01023.ktsdmp +++| BX0 -X3*X7 ......KLMN 01025 M00S01024.ktsdmp +++| SA3 A2+B1 01026 M00S01025.ktsdmp +++| IX6 X2+X0 FGHIJ*KLMN 01027 M00S01026.ktsdmp +++| MX5 1*6 01028 M00S01027.ktsdmp +++| SA6 A6+B1 01029 M00S01028.ktsdmp +++| IX4 X3+X4 ***.*PQRST 01030 M00S01029.ktsdmp +++| SB7 B7-B1 01031 M00S01030.ktsdmp +++| BX3 X5*X7 O......... 01032 M00S01031.ktsdmp +++| SA1 A1+B1 NEXT DUMP BLOCK WORD 01033 M00S01032.ktsdmp +++| LX4 3*6 .*PQRST*** 01034 M00S01033.ktsdmp +++| IX6 X3+X4 O*PQRST*** 01035 M00S01034.ktsdmp +++| SA6 A6+B1 01036 M00S01035.ktsdmp +++| NZ B7,OCT1 IF NOT ZERO - CONTINUE CONVERTING 01037 M00S01036.ktsdmp +++| MX6 0 01038 M00S01037.ktsdmp +++| SA6 A6+B1 01039 M00S01038.ktsdmp +++| WRITEW O,BUF,A6-BUF+1 01040 M00S01039.ktsdmp +++| EQ OCTX RETURN 01041 M00S01040.ktsdmp +++| 01042 M00S01041.ktsdmp +++|* LIST MEMORY WITH DISPLAY CODE INTERPRETATION. 01043 M00S01042.ktsdmp +++| 01044 M00S01043.ktsdmp +++| OCT2 RJ WOD CONVERT WORD TO OCTAL 01045 M00S01044.ktsdmp +++| SA6 A6+1 01046 M00S01045.ktsdmp +++| SA7 A6+1 01047 M00S01046.ktsdmp +++| OCT3 SA1 A1+1 NEXT DUMP BLOCK 01048 M00S01047.ktsdmp +++| RJ WOD CONVERT WORD TO OCTAL 01049 M00S01048.ktsdmp +++| SB7 B7-1 01050 M00S01049.ktsdmp +++| ZR B7,OCT4 IF END OF NUMBER FORMATTING 01051 M00S01050.ktsdmp +++| SB2 3 01052 M00S01051.ktsdmp +++| SB3 B2-B7 01053 M00S01052.ktsdmp +++| RJ DCK STRING OUT DATA 01054 M00S01053.ktsdmp +++| EQ OCT3 PROCESS NEXT WORD 01055 M00S01054.ktsdmp +++| 01056 M00S01055.ktsdmp +++| OCT4 SB6 B1 01057 M00S01056.ktsdmp +++| SA1 A0-B1 01058 M00S01057.ktsdmp +++| SB3 3 01059 M00S01058.ktsdmp +++| OCT5 SA1 A1+B1 01060 M00S01059.ktsdmp +++| BX6 X1 01061 M00S01060.ktsdmp +++| SA1 A1+B1 01062 M00S01061.ktsdmp +++| BX7 X1 01063 M00S01062.ktsdmp +++| RJ DCK STRING OUT DATA 01064 M00S01063.ktsdmp +++| SB6 B6-B1 01065 M00S01064.ktsdmp +++| SB7 B7-B1 01066 M00S01065.ktsdmp +++| SB3 4 01067 M00S01066.ktsdmp +++| PL B6,OCT5 IF POSITIVE - CONTINUE COMMENTS 01068 M00S01067.ktsdmp +++| MX6 0 01069 M00S01068.ktsdmp +++| SX7 B0 01070 M00S01069.ktsdmp +++| RJ DCK FLUSH BUFFER AND ADD TERMINATING BYTE 01071 M00S01070.ktsdmp +++| MX2 24 01072 M00S01071.ktsdmp +++| SA1 BUF+13 01073 M00S01072.ktsdmp +++| BX6 X2*X1 SET TERMINATION BYTE 01074 M00S01073.ktsdmp +++| SA6 A1 01075 M00S01074.ktsdmp +++| WRITEW O,BUF,A7-BUF 01076 M00S01075.ktsdmp +++| EQ OCTX RETURN 01077 M00S01076.ktsdmp +++| 01078 M00S01077.ktsdmp +++| OCTA BSS 0 01079 M00S01078.ktsdmp +++| VFD 24/1H ,30/0,6/1H 01080 M00S01079.ktsdmp +++| VFD 30/0,6/1H ,24/0 01081 M00S01080.ktsdmp +++| VFD 18/1H ,6/0,6/1H ,30/0 01082 M00S01081.ktsdmp +++| OCTB CON 1H 01083 M00S01082.ktsdmp +++| SKW SPACE 4,10 01084 M00S01083.ktsdmp +++|** SKW - SKIP WORDS. 01085 M00S01084.ktsdmp +++|* 01086 M00S01085.ktsdmp +++|* ENTRY (X0) = WORD COUNT. 01087 M00S01086.ktsdmp +++|* 01088 M00S01087.ktsdmp +++|* USES X - 0. 01089 M00S01088.ktsdmp +++|* 01090 M00S01089.ktsdmp +++|* MACROS READW. 01091 M00S01090.ktsdmp +++| 01092 M00S01091.ktsdmp +++| 01093 M00S01092.ktsdmp +++| SKW SUBR ENTRY/EXIT 01094 M00S01093.ktsdmp +++| SKW1 ZR X0,SKWX IF NO WORDS TO SKIP - RETURN 01095 M00S01094.ktsdmp +++| SX0 X0-100B 01096 M00S01095.ktsdmp +++| PL X0,SKW2 IF .GE. 100B WORDS TO SKIP 01097 M00S01096.ktsdmp +++| READW I,BUF,X0+100B SKIP 01098 M00S01097.ktsdmp +++| EQ SKWX RETURN 01099 M00S01098.ktsdmp +++| 01100 M00S01099.ktsdmp +++| SKW2 READW I,BUF,100B SKIP 01101 M00S01100.ktsdmp +++| EQ SKW1 LOOP 01102 M00S01101.ktsdmp +++| WTL SPACE 4,10 01103 M00S01102.ktsdmp +++|** WTL - WRITE TITLE LINES. 01104 M00S01103.ktsdmp +++|* 01105 M00S01104.ktsdmp +++|* ENTRY (A0) = ADDRESS OF SECOND TITLE LINE. 01106 M00S01105.ktsdmp +++|* 01107 M00S01106.ktsdmp +++|* MACROS CLOCK, WRITEC, WRITEW. 01108 M00S01107.ktsdmp +++| 01109 M00S01108.ktsdmp +++| 01110 M00S01109.ktsdmp +++| WTL SUBR ENTRY/EXIT 01111 M00S01110.ktsdmp +++| CLOCK TM GET TIME 01112 M00S01111.ktsdmp +++| WRITEW O,WTLA,WTLAL WRITE LINE ONE 01113 M00S01112.ktsdmp +++| WRITEC O,A0 WRITE LINE TWO 01114 M00S01113.ktsdmp +++| WRITEW O,(=C* *),B1 SPACE 01115 M00S01114.ktsdmp +++| WRITEW O,WTLB,B1 SET AUTO EJECT 01116 M00S01115.ktsdmp +++| EQ WTLX RETURN 01117 M00S01116.ktsdmp +++| 01118 M00S01117.ktsdmp +++| WTLA BSS 0 TITLE LINES 01119 M00S01118.ktsdmp +++| DATA 10H1 EJECT PAGE 01120 M00S01119.ktsdmp +++| DATA 10HKTSDMP - 01121 M00S01120.ktsdmp +++| LB CON 0 LABEL 01122 M00S01121.ktsdmp +++| DD CON 0 DUMP DATE 01123 M00S01122.ktsdmp +++| DT CON 0 DUMP TIME 01124 M00S01123.ktsdmp +++| DATA 10H BLANKS 01125 M00S01124.ktsdmp +++| DA CON 0 CURRENT DATE 01126 M00S01125.ktsdmp +++| TM CON 0 CURRENT TIME 01127 M00S01126.ktsdmp +++| CON 0 LINE TERMINATOR 01128 M00S01127.ktsdmp +++| WTLAL EQU *-WTLA 01129 M00S01128.ktsdmp +++| WTLB DATA 1LR SET AUTO EJECT 01130 M00S01129.ktsdmp +++| SPACE 4 01131 M00S01130.ktsdmp +++|* COMMON DECKS. 01132 M00S01131.ktsdmp +++| 01133 M00S01132.ktsdmp +++| 01134 M00S01133.ktsdmp +++|*CALL COMCCDD 01135 M00S01134.ktsdmp +++|*CALL COMCCIO 01136 M00S01135.ktsdmp +++|*CALL COMCCOD 01137 M00S01136.ktsdmp +++|*CALL COMCCPM 01138 M00S01137.ktsdmp +++|*CALL COMCPFM 01139 M00S01138.ktsdmp +++|*CALL COMCRDW 01140 M00S01139.ktsdmp +++|*CALL COMCSFN 01141 M00S01140.ktsdmp +++|*CALL COMCSTF 01142 M00S01141.ktsdmp +++|*CALL COMCSYS 01143 M00S01142.ktsdmp +++|*CALL COMCWOD 01144 M00S01143.ktsdmp +++|*CALL COMCWTC 01145 M00S01144.ktsdmp +++|*CALL COMCWTW 01146 M00S01145.ktsdmp +++| BUFFERS TITLE BUFFERS. 01147 M00S01146.ktsdmp +++|* BUFFERS. 01148 M00S01147.ktsdmp +++| 01149 M00S01148.ktsdmp +++| 01150 M00S01149.ktsdmp +++| USE BUFFERS. 01151 M00S01150.ktsdmp +++| 01152 M00S01151.ktsdmp +++| BUFFERS BSS 0 01153 M00S01152.ktsdmp +++| IBUF EQU BUFFERS INPUT FILE BUFFER 01154 M00S01153.ktsdmp +++| OBUF EQU IBUF+IBUFL OUTPUT FILE BUFFER 01155 M00S01154.ktsdmp +++| BUF EQU OBUF+OBUFL WORKING BUFFER 01156 M00S01155.ktsdmp +++| BUFO EQU BUF+20B EXCHANGE PACKAGE OUTPUT BUFFER 01157 M00S01156.ktsdmp +++| BUF1 EQU BUF+400B DUMP BUFFERS 01158 M00S01157.ktsdmp +++| BUF2 EQU BUF1+4 DUMP BUFFER 01159 M00S01158.ktsdmp +++| SBUF EQU BUF1-24 STRING BUFER FOR DISPLAY CODE 01160 M00S01159.ktsdmp +++| RFL= EQU BUF2+10B 01161 M00S01160.ktsdmp +++| 01162 M00S01161.ktsdmp +++| USE * 01163 M00S01162.ktsdmp +++| PRS TITLE PRESET. 01164 M00S01163.ktsdmp +++|** PRS - PRESET KTSDMP. 01165 M00S01164.ktsdmp +++|* 01166 M00S01165.ktsdmp +++|* EXIT (X5) = .GT. 0 - APPEND *IF* TO *P*. 01167 M00S01166.ktsdmp +++|* (X5) = 0 - LIST *IF* TO *OF*. 01168 M00S01167.ktsdmp +++|* (DA) = CURRENT DATE. 01169 M00S01168.ktsdmp +++|* (DF) = 0 - LIST WITH DISPLAY CODE. 01170 M00S01169.ktsdmp +++|* (DF) = 1 - LIST WITH OCTAL ONLY. 01171 M00S01170.ktsdmp +++|* 01172 M00S01171.ktsdmp +++|* USES B - 7. 01173 M00S01172.ktsdmp +++|* A - 1, 2, 3, 6, 7. 01174 M00S01173.ktsdmp +++|* X - 0, 1, 2, 3, 5, 6, 7. 01175 M00S01174.ktsdmp +++|* 01176 M00S01175.ktsdmp +++|* MACROS ABORT, DATE, MESSAGE. 01177 M00S01176.ktsdmp +++| 01178 M00S01177.ktsdmp +++| 01179 M00S01178.ktsdmp +++| ORG BUFFERS 01180 M00S01179.ktsdmp +++| 01181 M00S01180.ktsdmp +++| PRS SUBR ENTRY/EXIT 01182 M00S01181.ktsdmp +++| SA1 ACTR READ ARGUMENT COUNT 01183 M00S01182.ktsdmp +++| SA2 ARGR READ FIRST ARGUMENT 01184 M00S01183.ktsdmp +++| SB7 X1 01185 M00S01184.ktsdmp +++| MX0 42 01186 M00S01185.ktsdmp +++| ZR B7,PRS2 IF NO ARGUMENTS - COMPLETE PRESETTING 01187 M00S01186.ktsdmp +++| SX3 3 01188 M00S01187.ktsdmp +++| ZR X2,PRS1 IF DEFAULT INPUT FILE 01189 M00S01188.ktsdmp +++| BX6 X0*X2 SET INPUT FILE NAME 01190 M00S01189.ktsdmp +++| IX7 X6+X3 01191 M00S01190.ktsdmp +++| SA7 I 01192 M00S01191.ktsdmp +++| PRS1 SB7 B7-B1 DECREMENT NUMBER OF REMAINING ARGUMENTS 01193 M00S01192.ktsdmp +++| ZR B7,PRS2 IF END OF ARGUMENTS 01194 M00S01193.ktsdmp +++| SA2 A2+B1 READ SECOND ARGUMENT 01195 M00S01194.ktsdmp +++| ZR X2,PRS2 IF DEFAULT OUTPUT FILE NAME 01196 M00S01195.ktsdmp +++| BX6 X0*X2 STORE OUTPUT FILE NAME 01197 M00S01196.ktsdmp +++| IX7 X6+X3 01198 M00S01197.ktsdmp +++| SB7 B7-1 DECREMENT ARGUMENT COUNT 01199 M00S01198.ktsdmp +++| SA7 O 01200 M00S01199.ktsdmp +++| PRS2 SA1 I CHECK FILE NAME CONFLICT 01201 M00S01200.ktsdmp +++| SA3 O 01202 M00S01201.ktsdmp +++| BX6 X1-X3 01203 M00S01202.ktsdmp +++| BX7 X0*X6 01204 M00S01203.ktsdmp +++| ZR X7,PRS5 IF I = O 01205 M00S01204.ktsdmp +++| ZR B7,PRS4 IF ARGUMENT COUNT EXHAUSTED 01206 M00S01205.ktsdmp +++| SA2 A2+B1 READ *APPEND* PARAMETER 01207 M00S01206.ktsdmp +++| SB7 B7-B1 01208 M00S01207.ktsdmp +++| BX2 X0*X2 01209 M00S01208.ktsdmp +++| ZR X2,PRS3 IF NULL ARGUMENT 01210 M00S01209.ktsdmp +++| SX5 1 SET *APPEND* FLAG 01211 M00S01210.ktsdmp +++| ZR B7,PRS4 IF ARGUMENT COUNT EXHAUSTED 01212 M00S01211.ktsdmp +++| PRS3 SA2 A2+B1 READ *OCTAL* PARAMETER 01213 M00S01212.ktsdmp +++| BX2 X0*X2 01214 M00S01213.ktsdmp +++| ZR X2,PRS4 IF NO PARAMETER SPECIFIED 01215 M00S01214.ktsdmp +++| SX6 B1 01216 M00S01215.ktsdmp +++| SA6 DF 01217 M00S01216.ktsdmp +++| PRS4 DATE DA 01218 M00S01217.ktsdmp +++| EQ PRSX RETURN 01219 M00S01218.ktsdmp +++| 01220 M00S01219.ktsdmp +++| PRS5 MESSAGE PRSA,R 01221 M00S01220.ktsdmp +++| ABORT 01222 M00S01221.ktsdmp +++| 01223 M00S01222.ktsdmp +++| PRSA DATA C* FILE NAME CONFLICT.* 01224 M00S01223.ktsdmp +++| SPACE 4 01225 M00S01224.ktsdmp +++| END
cdc/nos2.source/opl.opl871/deck/ktsdmp.txt · Last modified: by 127.0.0.1