cdc:nos2.source:opl.opl871:deck:ktsdmp
Deck KTSDMP
1 Modification
Listing Sections
- Deck KTSDMP Start
- Deck KTSDMP Part 1 (Line 1884)
- Deck KTSDMP Part 2 (Line 3860)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.ktsdmp +++| IDENT KTSDMP,FETS 00002 M01S00002.ktsdmp +++| ABS 00003 M01S00003.ktsdmp +++| SST LA 00004 M01S00004.ktsdmp +++| ENTRY KTSDMP 00005 M01S00005.ktsdmp +++| ENTRY RFL= 00006 M01S00006.ktsdmp +++| SYSCOM B1 00007 M01S00007.ktsdmp +++|*COMMENT KTSDMP - *TAF* TASK MEMORY DUMP.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M02S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP.1978. 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M01S00009.ktsdmp +++| TITLE KTSDMP - KTS MEMORY DUMP. 00011 M01S00010.ktsdmp +++| SPACE 4 00012 M01S00011.ktsdmp +++|***** KTSDMP - KTS MEMORY DUMP. 00013 M01S00012.ktsdmp +++|* J. C. BOHNHOFF. 72/09/23. 00014 M01S00013.ktsdmp +++|* W. E. MARTIN. 78/08/30. 00015 M01S00014.ktsdmp +++| SPACE 4,20 00016 M01S00015.ktsdmp +++|*** *KTSDMP* IS AUTOMATICALLY CALLED BY THE TRANSACTION FACILITY 00017 M01S00016.ktsdmp +++|* TO PROCESS A MEMORY DUMP AFTER A TASK ABORT OR AN EXPLICIT 00018 M01S00017.ktsdmp +++|* *CMDUMP* REQUEST. IF THE *P* OPTION IS USED, AN 00019 M01S00018.ktsdmp +++|* INSTALLATION MAY KEEP A RUNNING STACK OF MEMORY DUMPS TO BE 00020 M01S00019.ktsdmp +++|* SELECTIVELY LISTED AT SOME LATER TIME. TO LIST ALL DUMPS 00021 M01S00020.ktsdmp +++|* ON THE PERMANENT DUMP FILE, ATTACH THE FILE AND EXECUTE 00022 M01S00021.ktsdmp +++|* *KTSDMP*. ALL DUMP RECORDS ON THE FILE WILL BE PROCESSED. 00023 M01S00022.ktsdmp +++|* TO LIST ONLY SELECTED DUMPS, ATTACH THE PERMANENT FILE 00024 M01S00023.ktsdmp +++|* AND EXTRACT THE DESIRED DUMP RECORDS USING *GTR* - 00025 M01S00024.ktsdmp +++|* THEN EXECUTE *KTSDMP* TO PROCESS THE EXTRACTED RECORDS. 00026 M01S00025.ktsdmp +++|* THE INPUT FILE FORMAT IS DESCRIBED IN THE *KTSDMP* 00027 M01S00026.ktsdmp +++|* DOCUMENTATION. ITEMS THAT MAY BE LISTED INCLUDE - 00028 M01S00027.ktsdmp +++|* 00029 M01S00028.ktsdmp +++|* CENTRAL MEMORY OF A TASK OR PROGRAM. 00030 M01S00029.ktsdmp +++|* EXCHANGE PACKAGE OF A TASK. 00031 M01S00030.ktsdmp +++|* CONTROL POINT AREA OF A TASK. 00032 M01S00031.ktsdmp +++|* COMMUNICATION BLOCK OF A TASK. 00033 M01S00032.ktsdmp +++|* DATA BUFFERS. 00034 M01S00033.ktsdmp +++| SPACE 4,20 00035 M01S00034.ktsdmp +++|*** CONTROL CARD CALL. 00036 M01S00035.ktsdmp +++|* 00037 M01S00036.ktsdmp +++|* KTSDMP(IF,OF,P,O) 00038 M01S00037.ktsdmp +++|* 00039 M01S00038.ktsdmp +++|* IF - INPUT FILE NAME. 00040 M01S00039.ktsdmp +++|* IF ABSENT - *INPUT*. 00041 M01S00040.ktsdmp +++|* 00042 M01S00041.ktsdmp +++|* OF - OUTPUT FILE NAME. 00043 M01S00042.ktsdmp +++|* IF ABSENT - *OUTPUT*. 00044 M01S00043.ktsdmp +++|* 00045 M01S00044.ktsdmp +++|* P - IF PRESENT - *APPEND* FILE *IF* ON DIRECT ACCESS 00046 M01S00045.ktsdmp +++|* PERMANENT FILE *OF*. THE JOB MUST BE RUNNING WITH 00047 M01S00046.ktsdmp +++|* THE PROPER USER NUMBER, AND FILE *OF* MUST BE 00048 M01S00047.ktsdmp +++|* DEFINED. FURTHER, AN END-OF-FILE IS NOT COPIED TO 00049 M01S00048.ktsdmp +++|* *OF*. 00050 M01S00049.ktsdmp +++|* 00051 M01S00050.ktsdmp +++|* O - *OCTAL* FORMAT IF SPECIFIED - OTHERWISE DEFAULT 00052 M01S00051.ktsdmp +++|* IS *DISPLAY*. 00053 M01S00052.ktsdmp +++| SPACE 4,25 00054 M01S00053.ktsdmp +++|*** DAYFILE MESSAGES ISSUED. 00055 M01S00054.ktsdmp +++|* 00056 M01S00055.ktsdmp +++|* * DISPLAY DUMP NOT ALLOWED TO TERMINAL.* 00057 M01S00056.ktsdmp +++|* A DISPLAY DUMP (DEFAULT) IS NOT ALLOWED TO AN 00058 M01S00057.ktsdmp +++|* INTER-ACTIVE TERMINAL. OCTAL DUMPS, OBTAINED WITH 00059 M01S00058.ktsdmp +++|* THE *O* CONTROL CARD PARAMETER, ARE ALLOWED. 00060 M01S00059.ktsdmp +++|* 00061 M01S00060.ktsdmp +++|* * FILE NAME CONFLICT.* 00062 M01S00061.ktsdmp +++|* THE INPUT FILE NAME IS THE SAME AS THE OUTPUT FILE 00063 M01S00062.ktsdmp +++|* NAME. 00064 M01S00063.ktsdmp +++|* 00065 M01S00064.ktsdmp +++|* * FWA .GE. LWA+1.* 00066 M01S00065.ktsdmp +++|* DUMP FIRST WORD ADDRESS IS GIVEN AS .GE. THE LAST WORD 00067 M01S00066.ktsdmp +++|* ADDRESS + 1. 00068 M01S00067.ktsdmp +++|* 00069 M01S00068.ktsdmp +++|* * KTSDMP COMPLETE.* 00070 M01S00069.ktsdmp +++|* DUMP COMPLETED NORMALLY. 00071 M01S00070.ktsdmp +++|* 00072 M01S00071.ktsdmp +++|* * UNKNOWN FILE FORMAT.* 00073 M01S00072.ktsdmp +++|* FILE DOES NOT CONFORM TO THE FORMAT RULES ESTABLISHED. 00074 M01S00073.ktsdmp +++|* 00075 M01S00074.ktsdmp +++|* * XXXXXXX NOT FOUND.* 00076 M01S00075.ktsdmp +++|* THE FILE SPECIFIED ON THE P-PARAMETER WAS NOT FOUND 00077 M01S00076.ktsdmp +++|* IN THE USER-S PERMANENT FILE CATALOG. 00078 M01S00077.ktsdmp +++| SPACE 4,80 00079 M01S00078.ktsdmp +++|** DUMP INPUT FILE FORMAT - 00080 M01S00079.ktsdmp +++|* 00081 M01S00080.ktsdmp +++|* THE DUMP INPUT FILE IS COMPOSED OF AT LEAST ONE RECORD 00082 M01S00081.ktsdmp +++|* COMPRISED OF SEVERAL TABLES, EACH CONTAINING DATA PERTAINING 00083 M01S00082.ktsdmp +++|* TO A TYPE OF DUMP AS DESCRIBED ABOVE. SEVERAL RECORDS MAY 00084 M01S00083.ktsdmp +++|* APPEAR IN THE FILE, EACH STARTING A NEW DUMP SEQUENCE. 00085 M01S00084.ktsdmp +++|* ALL TABLES EXCEPT TABLE-0 MAY APPEAR IN ANY ORDER AND MAY 00086 M01S00085.ktsdmp +++|* BE REPEATED INDEFINITELY OR MAY BE SUPPRESSED. 00087 M01S00086.ktsdmp +++|* 00088 M01S00087.ktsdmp +++|* RECORD FORMAT - 00089 M01S00088.ktsdmp +++|* 00090 M01S00089.ktsdmp +++|* WORD 1 - RECORD NAME. 00091 M01S00090.ktsdmp +++|*T WD1 42/ NAME,18/ 0
Figure WD1
00092 M01S00091.ktsdmp +++|* 00093 M01S00092.ktsdmp +++|* WHERE - NAME MAY BE USED BY OTHER UTILITIES TO IDENTIFY 00094 M01S00093.ktsdmp +++|* THE RECORD. 00095 M01S00094.ktsdmp +++|* 00096 M01S00095.ktsdmp +++|* TABLE 0 - GENERAL INFORMATION. 00097 M01S00096.ktsdmp +++|*T GIN 12/ 2000B,30/ 0,18/ 0
Figure GIN
00098 M01S00097.ktsdmp +++|*T, 60/ LABEL
Figure
00099 M01S00098.ktsdmp +++|*T, 60/ DUMP DATE
Figure
00100 M01S00099.ktsdmp +++|*T, 60/ DUMP TIME
Figure
00101 M01S00100.ktsdmp +++|*T, 60/ RESERVED
Figure
00102 M01S00101.ktsdmp +++|* 00103 M01S00102.ktsdmp +++|* WHERE - LABEL IS USED FOR IDENTIFICATION IN TITLE LINES. 00104 M01S00103.ktsdmp +++|* DUMP DATE IS THE DATE UPON WHICH THE INPUT FILE WAS 00105 M01S00104.ktsdmp +++|* CREATED. 00106 M01S00105.ktsdmp +++|* DUMP TIME IS THE TIME AT WHICH THE INPUT FILE WAS 00107 M01S00106.ktsdmp +++|* CREATED. 00108 M01S00107.ktsdmp +++|* 00109 M01S00108.ktsdmp +++|* TABLE 1 - MEMORY DUMP. 00110 M01S00109.ktsdmp +++|*T MED 12/ 2001B,30/ 0,18/ N
Figure MED
00111 M01S00110.ktsdmp +++|*T, 42/ 0,18/ FWA
Figure
00112 M01S00111.ktsdmp +++|*T, 42/ 0,18/ LWA
Figure
00113 M01S00112.ktsdmp +++|*T, 60/ RESERVED
Figure
00114 M01S00113.ktsdmp +++|*T, 60/ RESERVED
Figure
00115 M01S00114.ktsdmp +++|*T, 60/ ... FIRST OF N WORDS OF MEMORY TO DUMP ...
Figure
00116 M01S00115.ktsdmp +++|* 00117 M01S00116.ktsdmp +++|* WHERE - FWA IS THE FIRST WORD ADDRESS OF THE DUMP AREA. 00118 M01S00117.ktsdmp +++|* FWA IS ROUNDED UP TO A MULTIPLE OF FOUR, AND LWA IS 00119 M01S00118.ktsdmp +++|* THE LAST WORD ADDRESS OF THE DUMP AREA. LWA IS 00120 M01S00119.ktsdmp +++|* IS ROUNDED DOWN TO A MULTIPLE OF FOUR. 00121 M01S00120.ktsdmp +++|* 00122 M01S00121.ktsdmp +++|* TABLE 2 - EXCHANGE PACKAGE. 00123 M01S00122.ktsdmp +++|*T EXP 12/ 2002B,30/ 0,18/ N
Figure EXP
00124 M01S00123.ktsdmp +++|*T, 60/ RESERVED
Figure
00125 M01S00124.ktsdmp +++|*T, 60/ RESERVED
Figure
00126 M01S00125.ktsdmp +++|*T, 60/ RESERVED
Figure
00127 M01S00126.ktsdmp +++|*T, 60/ RESERVED
Figure
00128 M01S00127.ktsdmp +++|*T, 60/ ... FIRST OF 20B WORDS OF EXCHANGE PACKAGE ...
Figure
00129 M01S00128.ktsdmp +++|*T, 60/ ... FIRST OF *M* WORDS OF TASK CONTROL POINT AREA ...
Figure
00130 M01S00129.ktsdmp +++|* 00131 M01S00130.ktsdmp +++|* WHERE - *N* IS THE TOTAL OF 20B EXCHANGE PACKAGE WORDS 00132 M01S00131.ktsdmp +++|* PLUS *M* TASK CONTROL POINT WORDS. 00133 M01S00132.ktsdmp +++|* 00134 M01S00133.ktsdmp +++|* TABLE 3 - COMMUNICATION BLOCK. 00135 M01S00134.ktsdmp +++|*T CMB 12/ 2003B,30/ 0,18/ N
Figure CMB
00136 M01S00135.ktsdmp +++|*T, 42/ TASK NAME,18/ 0
Figure
00137 M01S00136.ktsdmp +++|*T, 36/ 0 ,24/ SEQUENCE NUMBER
Figure
00138 M01S00137.ktsdmp +++|*T, 42/ 0 ,18/ ADDRESS
Figure
00139 M01S00138.ktsdmp +++|*T, 60/ RESERVED
Figure
00140 M01S00139.ktsdmp +++|*T, 60/ ... FIRST OF *N* WORDS OF COMMUNICATION BLOCK ...
Figure
00141 M01S00140.ktsdmp +++|* 00142 M01S00141.ktsdmp +++|* WHERE - SEQUENCE NUMBER IS THE TRANSACTION SEQUENCE NUMBER. 00143 M01S00142.ktsdmp +++|* ADDRESS IS THE ADDRESS FROM WHICH THE DUMP WAS 00144 M01S00143.ktsdmp +++|* CALLED. 00145 M01S00144.ktsdmp +++|* 00146 M01S00145.ktsdmp +++|* TABLE 4 - DATA BUFFERS. 00147 M01S00146.ktsdmp +++|*T DAB 12/ 2004B,30/ 0,18/N
Figure DAB
00148 M01S00147.ktsdmp +++|*T, 6/ DB,36/ FILE NAME,18/ 0
Figure
00149 M01S00148.ktsdmp +++|*T, 60/ .. FIRST OF 2 WORDS OF CURRENT KEY VALUE ...
Figure
00150 M01S00149.ktsdmp +++|*T, 60/ ... ...
Figure
00151 M01S00150.ktsdmp +++|*T, 30/ CURRENT PRU ADDRESS,30/ CURRENT FILE STATUS
Figure
00152 M01S00151.ktsdmp +++|*T, 60/ .. FIRST OF N WORDS OF DATA BUFFER TO DUMP ...
Figure
00153 M01S00152.ktsdmp +++|* 00154 M01S00153.ktsdmp +++|* WHERE - DB IS THE DATA BASE NAME. 00155 M01S00154.ktsdmp +++| TITLE MACRO DEFINITIONS. 00156 M01S00155.ktsdmp +++|* COMMON TEXT. 00157 M01S00156.ktsdmp +++| 00158 M01S00157.ktsdmp +++| 00159 M01S00158.ktsdmp +++|*CALL COMSPFM 00160 M01S00159.ktsdmp +++|*CALL COMCMAC 00161 M01S00160.ktsdmp +++|*CALL COMKMAC 00162 M01S00161.ktsdmp +++| TRXCOM 00163 M01S00162.ktsdmp +++| SPACE 4 00164 M01S00163.ktsdmp +++|* ASSEMBLY CONSTANTS. 00165 M01S00164.ktsdmp +++| 00166 M01S00165.ktsdmp +++| 00167 M01S00166.ktsdmp +++| CMBM OCTMIC COMC FWA OF COMMUNICATION BLOCK 00168 M01S00167.ktsdmp +++| IBUFL EQU 1001B INPUT BUFFER SIZE 00169 M01S00168.ktsdmp +++| OBUFL EQU 4001B OUTPUT BUFFER SIZE 00170 M01S00169.ktsdmp +++| SPACE 4 00171 M01S00170.ktsdmp +++|* FET DEFINITIONS. 00172 M01S00171.ktsdmp +++| 00173 M01S00172.ktsdmp +++| 00174 M01S00173.ktsdmp +++| ORG 115B 00175 M01S00174.ktsdmp +++| 00176 M01S00175.ktsdmp +++| FETS BSS 0 00177 M01S00176.ktsdmp +++| 00178 M01S00177.ktsdmp +++| I BSS 0 INPUT FILE 00179 M01S00178.ktsdmp +++| INPUT FILEB IBUF,IBUFL 00180 M01S00179.ktsdmp +++| 00181 M01S00180.ktsdmp +++| O BSS 0 OUTPUT FILE 00182 M01S00181.ktsdmp +++| OUTPUT FILEC OBUF,OBUFL,FET=CFLM 00183 M01S00182.ktsdmp +++| TITLE GLOBAL STORAGE. 00184 M01S00183.ktsdmp +++|* GLOBAL STORAGE. 00185 M01S00184.ktsdmp +++| 00186 M01S00185.ktsdmp +++| 00187 M01S00186.ktsdmp +++| CW BSSZ 5 TABLE CONTROL WORDS 00188 M01S00187.ktsdmp +++| FW CON 0 FWA OF DUMP 00189 M01S00188.ktsdmp +++| LW CON 0 LWA OF DUMP 00190 M01S00189.ktsdmp +++| LA CON 0 LINE ADDRESS 00191 M01S00190.ktsdmp +++| DB CON 0 DUMP BLOCK INDEX 00192 M01S00191.ktsdmp +++| DC VFD 6/36B,18/,18/2,18/4 DUMP CONTROL 00193 M01S00192.ktsdmp +++| EP CON 0 EXCHANGE PACKAGE DUMP INDICATOR 00194 M01S00193.ktsdmp +++| IND CON BUF2 00195 M01S00194.ktsdmp +++| DF CON 0 DISPLAY/OCTAL DUMP FLAG 00196 M01S00195.ktsdmp +++| TERM CON 0 TERMINAL OUTPUT FLAG (IF SET) 00197 M01S00196.ktsdmp +++| ZR CON 0 ZERO WORD 00198 M01S00197.ktsdmp +++| MBUF BSSZ 3 *PFM* ERROR MESSAGE BUFFER 00199 M01S00198.ktsdmp +++| TITLE MAIN PROGRAM. 00200 M01S00199.ktsdmp +++|** MAIN PROGRAM. 00201 M01S00200.ktsdmp +++| 00202 M01S00201.ktsdmp +++| 00203 M01S00202.ktsdmp +++| KTSDMP SB1 1 00204 M01S00203.ktsdmp +++| RJ PRS PRESET PROGRAM 00205 M01S00204.ktsdmp +++| NZ X5,KTS5 IF *APPEND* TO PERMAMENT FILE OPERATION 00206 M01S00205.ktsdmp +++| 00207 M01S00206.ktsdmp +++|* PROCESS DUMP LIST. 00208 M01S00207.ktsdmp +++| 00209 M01S00208.ktsdmp +++| KTS1 SX7 0 CLEAR EXCHANGE PACKAGE DUMPED INDICATOR 00210 M01S00209.ktsdmp +++| SA7 EP 00211 M01S00210.ktsdmp +++| RJ COF CHECK OUTPUT FILE 00212 M01S00211.ktsdmp +++| READ I START READ OF DUMP RECORD 00213 M01S00212.ktsdmp +++| READW I,CW,B1 SKIP RECORD NAME 00214 M01S00213.ktsdmp +++| NZ X1,KTS2 IF EOR/EOF/EOI 00215 M01S00214.ktsdmp +++| 00216 M01S00215.ktsdmp +++|* RETURN FROM DUMP PROCESSORS. 00217 M01S00216.ktsdmp +++| 00218 M01S00217.ktsdmp +++| KTSX READW I,CW,5 READ TABLE CONTROL WORDS 00219 M01S00218.ktsdmp +++| NZ X1,KTS2 IF EOR/EOF/EOI 00220 M01S00219.ktsdmp +++| SA1 CW PROCESS TABLE 00221 M01S00220.ktsdmp +++| UX6,B7 X1 00222 M01S00221.ktsdmp +++| NG B7,ERR1 IF UNKNOWN TABLE 00223 M01S00222.ktsdmp +++| SB7 B7-TCTPL 00224 M01S00223.ktsdmp +++| PL B7,ERR1 IF UNKNOWN TABLE 00225 M01S00224.ktsdmp +++| JP TCTP+TCTPL+B7 EXECUTE DUMP PROCESSOR 00226 M01S00225.ktsdmp +++| 00227 M01S00226.ktsdmp +++| KTS2 NG X1,KTS3 IF EOF/EOI 00228 M01S00227.ktsdmp +++| WRITER O,R END OUTPUT RECORD 00229 M01S00228.ktsdmp +++| RJ CFA CLEAR FILE ARGUMENTS 00230 M01S00229.ktsdmp +++| EQ KTS1 LOOP TO END OF FILE 00231 M01S00230.ktsdmp +++| 00232 M01S00231.ktsdmp +++| KTS3 WRITER O,R END OUTPUT RECORD 00233 M01S00232.ktsdmp +++| KTS4 MESSAGE (=C* KTSDMP COMPLETE.*) 00234 M01S00233.ktsdmp +++| ENDRUN 00235 M01S00234.ktsdmp +++| 00236 M01S00235.ktsdmp +++|* APPEND *IF* TO PERMENANT FILE *OF*. 00237 M01S00236.ktsdmp +++| 00238 M01S00237.ktsdmp +++| KTS5 SA1 O+B1 SET *EP* BIT 00239 M01S00238.ktsdmp +++| SX2 B1 00240 M01S00239.ktsdmp +++| LX2 44 00241 M01S00240.ktsdmp +++| BX6 X1+X2 00242 M01S00241.ktsdmp +++| SX7 MBUF SET ERROR MESSAGE RETURN ADDRESS 00243 M01S00242.ktsdmp +++| SA6 A1 00244 M01S00243.ktsdmp +++| SA7 O+CFPW 00245 M01S00244.ktsdmp +++| KTS6 ATTACH O,,,,M 00246 M01S00245.ktsdmp +++| SA1 X2 CHECK ERROR FLAG 00247 M01S00246.ktsdmp +++| MX0 -8 00248 M01S00247.ktsdmp +++| LX1 -10 00249 M01S00248.ktsdmp +++| BX2 -X0*X1 00250 M01S00249.ktsdmp +++| ZR X2,KTS7 IF NO ERROR ON ATTACH 00251 M01S00250.ktsdmp +++| SX2 X2-1 00252 M01S00251.ktsdmp +++| NZ X2,ERR4 IF NOT *FILE BUSY* 00253 M01S00252.ktsdmp +++| BX6 X0*X1 CLEAR STATUS FIELD 00254 M01S00253.ktsdmp +++| LX6 10 00255 M01S00254.ktsdmp +++| SA6 A1+ 00256 M01S00255.ktsdmp +++| ROLLOUT ZR WAIT FOR FILE NOT BUSY 00257 M01S00256.ktsdmp +++| EQ KTS6 RETRY OPERATION 00258 M01S00257.ktsdmp +++| 00259 M01S00258.ktsdmp +++| KTS7 SA1 A1+B1 CLEAR *EP* BIT 00260 M01S00259.ktsdmp +++| MX2 -1 00261 M01S00260.ktsdmp +++| SX7 B0 CLEAR ERROR ADDRESS 00262 M01S00261.ktsdmp +++| LX2 44 00263 M01S00262.ktsdmp +++| BX6 X1*X2 00264 M01S00263.ktsdmp +++| SA7 O+CFPW 00265 M01S00264.ktsdmp +++| SA6 A1 00266 M01S00265.ktsdmp +++| SKIPEI O POSITION TO WRITE AT EOI 00267 M01S00266.ktsdmp +++| KTS8 READ I COPY RECORD 00268 M01S00267.ktsdmp +++| RECALL O 00269 M01S00268.ktsdmp +++| KTS9 READW I,BUF,100B 00270 M01S00269.ktsdmp +++| NZ X1,KTS10 IF EOR/EOF/EOI 00271 M01S00270.ktsdmp +++| WRITEW O,BUF,100B 00272 M01S00271.ktsdmp +++| EQ KTS9 LOOP TO EOR 00273 M01S00272.ktsdmp +++| 00274 M01S00273.ktsdmp +++| KTS10 NG X1,KTS4 IF EOF/EOI 00275 M01S00274.ktsdmp +++| WRITEW O,BUF,X1-BUF TERMINATE RECORD 00276 M01S00275.ktsdmp +++| WRITER O 00277 M01S00276.ktsdmp +++| EQ KTS8 LOOP TO EOF 00278 M01S00277.ktsdmp +++| SPACE 4 00279 M01S00278.ktsdmp +++|* TABLE OF FUNCTION PROCESSORS. 00280 M01S00279.ktsdmp +++| 00281 M01S00280.ktsdmp +++| TCTP BSS 0 00282 M01S00281.ktsdmp +++| LOC 0 00283 M01S00282.ktsdmp +++| EQ GIN GENERAL INFORMATION 00284 M01S00283.ktsdmp +++| EQ MED MEMORY DUMP 00285 M01S00284.ktsdmp +++| EQ XPD EXCHANGE PACKAGE DUMP 00286 M01S00285.ktsdmp +++| EQ CBD COMMUNICATION BLOCK DUMP 00287 M01S00286.ktsdmp +++| EQ DBD DATA BUFFER DUMP 00288 M01S00287.ktsdmp +++| TCTPL BSS 0 LENGTH OF TABLE 00289 M01S00288.ktsdmp +++| LOC *O 00290 M01S00289.ktsdmp +++| GIN TITLE PROCESS TABLE 0 - GENERAL INFORMATION. 00291 M01S00290.ktsdmp +++| GIN SPACE 4,10 00292 M01S00291.ktsdmp +++|** GIN - PROCESS GENERAL INFORMATION TABLE. 00293 M01S00292.ktsdmp +++|* 00294 M01S00293.ktsdmp +++|* ENTRY (CW - CW+3) = TABLE CONTROL WORDS. 00295 M01S00294.ktsdmp +++|* 00296 M01S00295.ktsdmp +++|* EXIT TO *KTSX*. 00297 M01S00296.ktsdmp +++|* 00298 M01S00297.ktsdmp +++|* USES A - 1, 2, 3, 6, 7. 00299 M01S00298.ktsdmp +++|* X - 0, 1, 2, 3, 6, 7. 00300 M01S00299.ktsdmp +++|* 00301 M01S00300.ktsdmp +++|* CALLS SKW. 00302 M01S00301.ktsdmp +++| 00303 M01S00302.ktsdmp +++| 00304 M01S00303.ktsdmp +++| GIN BSS 0 ENTRY 00305 M01S00304.ktsdmp +++| SA1 CW+1 READ LABEL 00306 M01S00305.ktsdmp +++| SA2 A1+B1 READ DUMP DATE 00307 M01S00306.ktsdmp +++| SA3 A2+B1 READ DUMP TIME 00308 M01S00307.ktsdmp +++| BX6 X1 00309 M01S00308.ktsdmp +++| LX7 X2 00310 M01S00309.ktsdmp +++| SA6 LB STORE LABEL 00311 M01S00310.ktsdmp +++| SA7 DD STORE DUMP DATE 00312 M01S00311.ktsdmp +++| SA1 A1-B1 READ TABLE LENGTH 00313 M01S00312.ktsdmp +++| BX6 X3 00314 M01S00313.ktsdmp +++| SX0 X1+ 00315 M01S00314.ktsdmp +++| SA6 DT STORE DUMP TIME 00316 M01S00315.ktsdmp +++| RJ SKW SKIP EXCESS WORDS IN TABLE 00317 M01S00316.ktsdmp +++| EQ KTSX RETURN 00318 M01S00317.ktsdmp +++| MED TITLE PROCESS TABLE 1 - MEMORY DUMP. 00319 M01S00318.ktsdmp +++| MED SPACE 4,15 00320 M01S00319.ktsdmp +++|** MED - PROCESS MEMORY DUMP TABLE. 00321 M01S00320.ktsdmp +++|* 00322 M01S00321.ktsdmp +++|* ENTRY (CW - CW+3) = TABLE CONTROL WORDS. 00323 M01S00322.ktsdmp +++|* 00324 M01S00323.ktsdmp +++|* EXIT TO *KTSX*. 00325 M01S00324.ktsdmp +++|* TO *ERR1* - IF UNKNOWN FILE FORMAT. 00326 M01S00325.ktsdmp +++|* TO *ERR2* - IF FWA .GE. LWA+1. 00327 M01S00326.ktsdmp +++|* 00328 M01S00327.ktsdmp +++|* USES A - 0, 1, 2, 3, 6, 7. 00329 M01S00328.ktsdmp +++|* X - ALL. 00330 M01S00329.ktsdmp +++|* B - 2. 00331 M01S00330.ktsdmp +++|* 00332 M01S00331.ktsdmp +++|* CALLS COD, DCM, SKW, WTL. 00333 M01S00332.ktsdmp +++| 00334 M01S00333.ktsdmp +++| 00335 M01S00334.ktsdmp +++| MED BSS 0 ENTRY 00336 M01S00335.ktsdmp +++| SA1 CW READ TABLE LENGTH 00337 M01S00336.ktsdmp +++| SA2 A1+B1 READ FWA 00338 M01S00337.ktsdmp +++| SA3 A2+B1 READ LWA 00339 M01S00338.ktsdmp +++| SX1 X1 N 00340 M01S00339.ktsdmp +++| SX2 X2 FWA 00341 M01S00340.ktsdmp +++| SX3 X3 LWA 00342 M01S00341.ktsdmp +++| IX4 X2+X1 FWA+N 00343 M01S00342.ktsdmp +++| NG X2,ERR1 IF FWA .LT. 0 00344 M01S00343.ktsdmp +++| NZ X3,MED1 IF LWA .NE. 0 00345 M01S00344.ktsdmp +++| SX3 X4-1 LWA = FWA+N-1 00346 M01S00345.ktsdmp +++| MED1 SX3 X3+B1 LIMIT = LWA+1 00347 M01S00346.ktsdmp +++| IX5 X3-X4 00348 M01S00347.ktsdmp +++| NG X5,MED2 IF TOO MANY WORDS ON FILE - LIMIT = LWA+1 00349 M01S00348.ktsdmp +++| SX3 X4+ LIMIT = FWA+N 00350 M01S00349.ktsdmp +++| MED2 IX7 X2-X3 FWA - LIMIT 00351 M01S00350.ktsdmp +++| PL X7,ERR2 IF FWA .GE. LIMIT 00352 M01S00351.ktsdmp +++| SB2 B1+B1 ROUND UP FWA 00353 M01S00352.ktsdmp +++| SX0 X2+3 00354 M01S00353.ktsdmp +++| AX6 X3,B2 ROUND DOWN LWA 00355 M01S00354.ktsdmp +++| AX0 X0,B2 00356 M01S00355.ktsdmp +++| LX6 X6,B2 00357 M01S00356.ktsdmp +++| LX7 X0,B2 00358 M01S00357.ktsdmp +++| SA6 LW STORE LIMIT 00359 M01S00358.ktsdmp +++| IX0 X7-X2 FIND NUMBER OF WORDS FWA ROUNDED UP 00360 M01S00359.ktsdmp +++| IX6 X6-X4 00361 M01S00360.ktsdmp +++| SA7 FW STORE FWA 00362 M01S00361.ktsdmp +++| IX6 X6+X0 DECREMENT EXCESS WORD COUNT 00363 M01S00362.ktsdmp +++| SA6 MEDA 00364 M01S00363.ktsdmp +++| RJ SKW SKIP WORDS TO FWA 00365 M01S00364.ktsdmp +++| SA1 FW SET SECOND TITLE LINE 00366 M01S00365.ktsdmp +++| RJ COD CONVERT FWA 00367 M01S00366.ktsdmp +++| SA1 MEDC 00368 M01S00367.ktsdmp +++| LX6 3*6 00369 M01S00368.ktsdmp +++| BX7 X1-X6 00370 M01S00369.ktsdmp +++| SA1 LW CONVERT LIMIT 00371 M01S00370.ktsdmp +++| SA7 MEDB+2 00372 M01S00371.ktsdmp +++| RJ COD CONVERT CONSTANT TO DISPLAY 00373 M01S00372.ktsdmp +++| LX6 3*6 00374 M01S00373.ktsdmp +++| SA0 MEDB SET TITLE ADDRESS 00375 M01S00374.ktsdmp +++| SA6 MEDB+3 00376 M01S00375.ktsdmp +++| RJ WTL WRITE TITLE LINES 00377 M01S00376.ktsdmp +++| RJ DCM DUMP CENTRAL MEMORY 00378 M01S00377.ktsdmp +++| SA1 MEDA SKIP EXCESS WORDS 00379 M01S00378.ktsdmp +++| PL X1,KTSX IF NO EXCESS WORDS - RETURN 00380 M01S00379.ktsdmp +++| BX0 -X1 00381 M01S00380.ktsdmp +++| SX0 X0-1 00382 M01S00381.ktsdmp +++| ZR X0,KTSX IF NO EXCESS WORDS - RETURN 00383 M01S00382.ktsdmp +++| RJ SKW SKIP EXCESS WORDS 00384 M01S00383.ktsdmp +++| EQ KTSX RETURN 00385 M01S00384.ktsdmp +++| 00386 M01S00385.ktsdmp +++| MEDA CON 0 STORAGE FOR EXCESS WORD COUNT 00387 M01S00386.ktsdmp +++| MEDB DATA 1H0 SET DOUBLE SPACE 00388 M01S00387.ktsdmp +++| DATA 10HDUMP FROM 00389 M01S00388.ktsdmp +++| CON 0 STORAGE FOR FWA OF DUMP 00390 M01S00389.ktsdmp +++| CON 0 STORAGE FOR LWA OF DUMP 00391 M01S00390.ktsdmp +++| CON 0 LINE TERMINATOR 00392 M01S00391.ktsdmp +++| MEDC CON 2ATO&2A 00393 M01S00392.ktsdmp +++| XPD TITLE PROCESS TABLE 2 - EXCHANGE PACKAGE DUMP. 00394 M01S00393.ktsdmp +++| XPD SPACE 4,15 00395 M01S00394.ktsdmp +++|** XPD - PROCESS EXCHANGE PACKAGE DUMP. 00396 M01S00395.ktsdmp +++|* 00397 M01S00396.ktsdmp +++|* ENTRY (CW - CW+3) = TABLE CONTROL WORDS. 00398 M01S00397.ktsdmp +++|* 00399 M01S00398.ktsdmp +++|* EXIT TO *KTSX*. 00400 M01S00399.ktsdmp +++|* TO *ERR1* - UNKNOWN FILE FORMAT. 00401 M01S00400.ktsdmp +++|* 00402 M01S00401.ktsdmp +++|* USES A - 0, 1, 6, 7. 00403 M01S00402.ktsdmp +++|* X - 0, 1, 6, 7. 00404 M01S00403.ktsdmp +++|* B - 7. 00405 M01S00404.ktsdmp +++|* 00406 M01S00405.ktsdmp +++|* CALLS DCM, DXP, SKW, WTL. 00407 M01S00406.ktsdmp +++|* 00408 M01S00407.ktsdmp +++|* MACROS READW, WRITEC. 00409 M01S00408.ktsdmp +++| 00410 M01S00409.ktsdmp +++| 00411 M01S00410.ktsdmp +++| XPD BSS 0 ENTRY 00412 M01S00411.ktsdmp +++| SA1 CW READ TABLE LENGTH 00413 M01S00412.ktsdmp +++| SB7 X1-20B 00414 M01S00413.ktsdmp +++| NG B7,ERR1 IF .LT. 20B WORDS 00415 M01S00414.ktsdmp +++| READW I,BUF,20B READ EXCHANGE PACKAGE 00416 M01S00415.ktsdmp +++| SA0 XPDA SET TITLE ADDRESS 00417 M01S00416.ktsdmp +++| RJ WTL WRITE TITLE LINES 00418 M01S00417.ktsdmp +++| RJ DXP DUMP EXCHANGE PACKAGE 00419 M01S00418.ktsdmp +++| SX7 B1+ SET EXCHANGE PACKAGE DUMPED INDICATOR 00420 M01S00419.ktsdmp +++| SA1 CW CHECK TASK CONTROL POINT AREA PRESENT 00421 M01S00420.ktsdmp +++| SX0 X1-20B 00422 M01S00421.ktsdmp +++| SA7 EP 00423 M01S00422.ktsdmp +++| ZR X0,KTSX IF NO CONTROL POINT - RETURN 00424 M01S00423.ktsdmp +++| WRITEC O,XPDB LIST CONTROL POINT AREA HEADER 00425 M01S00424.ktsdmp +++| WRITEC O,XPDC 00426 M01S00425.ktsdmp +++| SX7 X0+20B SET DUMP FROM 20 TO 20+M (MOD 4) 00427 M01S00426.ktsdmp +++| IX6 X7-X0 00428 M01S00427.ktsdmp +++| AX7 2 ROUND LWA DOWN 00429 M01S00428.ktsdmp +++| SA6 FW 00430 M01S00429.ktsdmp +++| LX7 2 00431 M01S00430.ktsdmp +++| IX6 X0-X7 00432 M01S00431.ktsdmp +++| SA7 LW 00433 M01S00432.ktsdmp +++| SX6 X6+20B 00434 M01S00433.ktsdmp +++| SA6 XPDD SAVE EXCESS WORD COUNT 00435 M01S00434.ktsdmp +++| RJ DCM DUMP IN CM FORMAT 00436 M01S00435.ktsdmp +++| SA1 XPDD READ EXCESS WORD COUNT 00437 M01S00436.ktsdmp +++| SX0 X1+ 00438 M01S00437.ktsdmp +++| RJ SKW SKIP EXCESS WORDS 00439 M01S00438.ktsdmp +++| EQ KTSX RETURN 00440 M01S00439.ktsdmp +++| 00441 M01S00440.ktsdmp +++| XPDA DATA 1H0 DOUBLE SPACE CARRIAGE CONTROL 00442 M01S00441.ktsdmp +++| DATA C*EXCHANGE PACKAGE.* 00443 M01S00442.ktsdmp +++| XPDB DATA 1H- TRIPLE SPACE CARRIAGE CONTROL 00444 M01S00443.ktsdmp +++| DATA C*TASK CONTROL POINT AREA.* 00445 M01S00444.ktsdmp +++| XPDC DATA 1L BLANK LINE 00446 M01S00445.ktsdmp +++| XPDD CON 0 00447 M01S00446.ktsdmp +++| CBD TITLE PROCESS TABLE 3 - COMMUNICATION BLOCK DUMP. 00448 M01S00447.ktsdmp +++| CBD SPACE 4,15 00449 M01S00448.ktsdmp +++|** CBD - PROCESS COMMUNICATION BLOCK DUMP. 00450 M01S00449.ktsdmp +++|* 00451 M01S00450.ktsdmp +++|* ENTRY (CW - CW+3) = TABLE CONTROL WORDS. 00452 M01S00451.ktsdmp +++|* 00453 M01S00452.ktsdmp +++|* EXIT TO *KTSX*. 00454 M01S00453.ktsdmp +++|* 00455 M01S00454.ktsdmp +++|* USES A - 0, 1, 6, 7. 00456 M01S00455.ktsdmp +++|* X - 0, 1, 6, 7. 00457 M01S00456.ktsdmp +++|* B - 2. 00458 M01S00457.ktsdmp +++|* 00459 M01S00458.ktsdmp +++|* CALLS CDD, COD, DCM, SFN, SKW, WTL. 00460 M01S00459.ktsdmp +++|* 00461 M01S00460.ktsdmp +++|* MACROS WRITEC. 00462 M01S00461.ktsdmp +++| 00463 M01S00462.ktsdmp +++| 00464 M01S00463.ktsdmp +++| CBD BSS 0 ENTRY 00465 M01S00464.ktsdmp +++| SX6 COMC SET FWA OF TASK LOAD 00466 M01S00465.ktsdmp +++| SA1 CW CALCULATE LWA+1 00467 M01S00466.ktsdmp +++| SA6 FW STORE FWA 00468 M01S00467.ktsdmp +++| SX1 X1 NUMBER OF WORDS 00469 M01S00468.ktsdmp +++| SB2 B1+B1 ROUND DOWN NUMBER OF WORDS 00470 M01S00469.ktsdmp +++| AX0 X1,B2 00471 M01S00470.ktsdmp +++| LX0 X0,B2 00472 M01S00471.ktsdmp +++| IX7 X1-X0 NUMBER OF EXCESS WORDS IN TABLE 00473 M01S00472.ktsdmp +++| IX6 X6+X0 SET LWA+1 00474 M01S00473.ktsdmp +++| SX1 COMC+COMCL-1 SET LWA OF COMMUNICATION BLOCK 00475 M01S00474.ktsdmp +++| SA7 CBDC 00476 M01S00475.ktsdmp +++| SA6 LW STORE LIMIT 00477 M01S00476.ktsdmp +++| RJ COD CONVERT LWA 00478 M01S00477.ktsdmp +++| BX6 X4 00479 M01S00478.ktsdmp +++| SA1 CW+B1 SET TITLE LINE 00480 M01S00479.ktsdmp +++| MX0 42 00481 M01S00480.ktsdmp +++| SA6 CBDB 00482 M01S00481.ktsdmp +++| BX1 X0*X1 00483 M01S00482.ktsdmp +++| RJ SFN SPACE FILL NAME 00484 M01S00483.ktsdmp +++| SA6 CBDB+2 00485 M01S00484.ktsdmp +++| SA1 CW+2 CONVERT *TRF* NUMBER 00486 M01S00485.ktsdmp +++| MX0 -24 00487 M01S00486.ktsdmp +++| BX1 -X0*X1 00488 M01S00487.ktsdmp +++| RJ COD CONVERT TO OCTAL DISPLAY CODE 00489 M01S00488.ktsdmp +++| LX6 6 00490 M01S00489.ktsdmp +++| MX0 54 00491 M01S00490.ktsdmp +++| SX1 1RB 00492 M01S00491.ktsdmp +++| BX6 X0*X6 00493 M01S00492.ktsdmp +++| BX6 X6+X1 00494 M01S00493.ktsdmp +++| SA6 CBDB+4 00495 M01S00494.ktsdmp +++| SA1 CW+3 CONVERT CALL ADDRESS 00496 M01S00495.ktsdmp +++| SX1 X1+ 00497 M01S00496.ktsdmp +++| RJ COD CONVERT TO DECIMAL 00498 M01S00497.ktsdmp +++| BX6 X4 00499 M01S00498.ktsdmp +++| SA0 CBDA SET TITLE ADDRESS 00500 M01S00499.ktsdmp +++| SA6 CBDB+6 00501 M01S00500.ktsdmp +++| SA1 EP 00502 M01S00501.ktsdmp +++| NZ X1,CBD1 IF EXCHANGE PACKAGE DUMPED FOR THIS RECORD 00503 M01S00502.ktsdmp +++| RJ WTL WRITE TITLE LINES 00504 M01S00503.ktsdmp +++| EQ CBD2 WRITE BLANK LINE 00505 M01S00504.ktsdmp +++| 00506 M01S00505.ktsdmp +++| CBD1 WRITEC O,CBDA WRITE COMMUNICATION BLOCK HEADER 00507 M01S00506.ktsdmp +++| CBD2 WRITEC O,CBDD 00508 M01S00507.ktsdmp +++| RJ DCM DUMP CENTRAL MEMORY 00509 M01S00508.ktsdmp +++| SA1 CBDC READ EXCESS WORD COUNT 00510 M01S00509.ktsdmp +++| BX0 X1 00511 M01S00510.ktsdmp +++| RJ SKW SKIP EXCESS WORDS 00512 M01S00511.ktsdmp +++| EQ KTSX RETURN 00513 M01S00512.ktsdmp +++| 00514 M01S00513.ktsdmp +++| CBDA DATA 1H- SET TRIPLE SPACE 00515 M01S00514.ktsdmp +++| DATA H*COMMUNICATION BLOCK DUMP FROM "CMBM" TO * 00516 M01S00515.ktsdmp +++| CBDB CON 0 LWA 00517 M01S00516.ktsdmp +++| DATA 10H PROGRAM 00518 M01S00517.ktsdmp +++| CON 0 TASK/PROGRAM NAME 00519 M01S00518.ktsdmp +++| DATA 10H SEQUENCE 00520 M01S00519.ktsdmp +++| CON 0 SEQUENCE NUMBER 00521 M01S00520.ktsdmp +++| DATA 10H ADDRESS 00522 M01S00521.ktsdmp +++| CON 0 CALL ADDRESS 00523 M01S00522.ktsdmp +++| CON 0 LINE TERMINATOR 00524 M01S00523.ktsdmp +++| CBDC CON 0 00525 M01S00524.ktsdmp +++| CBDD DATA 1L BLANK LINE 00526 M01S00525.ktsdmp +++| DBD TITLE PROCESS TABLE 4 - DATA BUFFER DUMP. 00527 M01S00526.ktsdmp +++| DBD SPACE 4,15 00528 M01S00527.ktsdmp +++|** DBD - PROCESS DATA BUFFER DUMP. 00529 M01S00528.ktsdmp +++|* 00530 M01S00529.ktsdmp +++|* ENTRY (CW - CW+4) = TABLE CONTROL WORDS. 00531 M01S00530.ktsdmp +++|* 00532 M01S00531.ktsdmp +++|* EXIT TO *KTSX*. 00533 M01S00532.ktsdmp +++|* TO *ERR1* - IF UNKNOWN FILE FORMAT. 00534 M01S00533.ktsdmp +++|* 00535 M01S00534.ktsdmp +++|* USES A - 0, 1, 2, 6, 7. 00536 M01S00535.ktsdmp +++|* X - 0, 1, 2, 6, 7. 00537 M01S00536.ktsdmp +++|* 00538 M01S00537.ktsdmp +++|* CALLS DCM, OCB, SFN, SKW, WOD, WTL. 00539 M01S00538.ktsdmp +++|* 00540 M01S00539.ktsdmp +++|* MACROS WRITEW. 00541 M01S00540.ktsdmp +++| 00542 M01S00541.ktsdmp +++| 00543 M01S00542.ktsdmp +++| DBD BSS 0 ENTRY 00544 M01S00543.ktsdmp +++| SX6 0 SET FWA OF DUMP 00545 M01S00544.ktsdmp +++| SA1 CW FIND LWA+1 00546 M01S00545.ktsdmp +++| SA6 FW 00547 M01S00546.ktsdmp +++| SX7 X1+ LWA+1 00548 M01S00547.ktsdmp +++| SX1 X1 00549 M01S00548.ktsdmp +++| AX7 2 ROUND DOWN LWA+1 00550 M01S00549.ktsdmp +++| ZR X1,KTSX IF TABLE EMPTY - RETURN 00551 M01S00550.ktsdmp +++| LX7 2 00552 M01S00551.ktsdmp +++| IX6 X1-X7 EXCESS WORDS 00553 M01S00552.ktsdmp +++| NG X1,ERR1 IF N .LT. ZERO 00554 M01S00553.ktsdmp +++| SA7 LW STORE LWA 00555 M01S00554.ktsdmp +++| SA6 DBDF SAVE EXCESS 00556 M01S00555.ktsdmp +++| SA1 CW+1 SET DATA BASE, FILE NAME IN TITLE 00557 M01S00556.ktsdmp +++| MX0 42 00558 M01S00557.ktsdmp +++| BX1 X0*X1 00559 M01S00558.ktsdmp +++| RJ SFN SPACE FILL NAME 00560 M01S00559.ktsdmp +++| SA6 DBDA+3 00561 M01S00560.ktsdmp +++| SA0 DBDA SET FWA OF LINE TO BE WRITTEN 00562 M01S00561.ktsdmp +++| RJ WTL WRITE TITLE LINES 00563 M01S00562.ktsdmp +++| SA1 DBDB SET KEY VALUE 00564 M01S00563.ktsdmp +++| SA2 DBDC 00565 M01S00564.ktsdmp +++| BX6 X1 00566 M01S00565.ktsdmp +++| LX7 X2 00567 M01S00566.ktsdmp +++| SA6 BUFO 00568 M01S00567.ktsdmp +++| SA7 BUFO+1 00569 M01S00568.ktsdmp +++| SA6 BUFO+3 00570 M01S00569.ktsdmp +++| SX7 0 00571 M01S00570.ktsdmp +++| SA1 CW+2 CONVERT KEY VALUE 00572 M01S00571.ktsdmp +++| SA7 BUFO+2 00573 M01S00572.ktsdmp +++| RJ OCB OCTAL CONVERSION TO BUFO+4, +5 00574 M01S00573.ktsdmp +++| SA1 CW+2 SET DISPLAY INTERPRETATION 00575 M01S00574.ktsdmp +++| RJ SFN SPACE FILL NAME 00576 M01S00575.ktsdmp +++| SA2 TERM GET TERMINAL OUTPUT FLAG 00577 M01S00576.ktsdmp +++| SX7 B0+ TERMINATE LINE 00578 M01S00577.ktsdmp +++| NZ X2,DBD1 IF OUTPUT TO TERMINAL 00579 M01S00578.ktsdmp +++| SA6 A6+1 00580 M01S00579.ktsdmp +++| DBD1 SA7 A6+1 00581 M01S00580.ktsdmp +++| SA2 DBDB STORE SECOND KEY VALUE WORD 00582 M01S00581.ktsdmp +++| SA1 CW+3 00583 M01S00582.ktsdmp +++| BX6 X2 00584 M01S00583.ktsdmp +++| SA6 A7+B1 00585 M01S00584.ktsdmp +++| RJ OCB CONVERT WORD 2 00586 M01S00585.ktsdmp +++| SA1 CW+3 00587 M01S00586.ktsdmp +++| RJ SFN SPACE FILL NAME 00588 M01S00587.ktsdmp +++| SA2 TERM GET TERMINAL OUTPUT FLAG 00589 M01S00588.ktsdmp +++| SX7 B0+ 00590 M01S00589.ktsdmp +++| NZ X2,DBD2 IF OUTPUT TO TERMINAL 00591 M01S00590.ktsdmp +++| SA6 A6+1 00592 M01S00591.ktsdmp +++| DBD2 SA7 A6+1 00593 M01S00592.ktsdmp +++| WRITEW O,BUFO,A7-BUFO+1 LIST KEY VALUE 00594 M01S00593.ktsdmp +++| SA1 CW+4 CONVERT PRU NUMBER 00595 M01S00594.ktsdmp +++| RJ WOD CONVERT WORD TO OCTAL DISPLAY 00596 M01S00595.ktsdmp +++| SA1 CW+4 CONVERT STATUS 00597 M01S00596.ktsdmp +++| SA6 DBDD+3 00598 M01S00597.ktsdmp +++| RJ WOD CONVERT WORD TO OCTAL DISPLAY 00599 M01S00598.ktsdmp +++| SA7 DBDE+2 00600 M01S00599.ktsdmp +++| WRITEW O,DBDD,DBDDL LIST PRU, STATUS 00601 M01S00600.ktsdmp +++| RJ DCM DUMP CENTRAL MEMORY BUFFER 00602 M01S00601.ktsdmp +++| SA1 DBDF READ EXCESS WORD COUNT 00603 M01S00602.ktsdmp +++| BX0 X1 00604 M01S00603.ktsdmp +++| RJ SKW SKIP EXCESS WORDS 00605 M01S00604.ktsdmp +++| EQ KTSX RETURN 00606 M01S00605.ktsdmp +++| 00607 M01S00606.ktsdmp +++| DBDA DATA 1H0 DOUBLE SPACE PAGE HEADER 00608 M01S00607.ktsdmp +++| DATA H*DATA BUFFER DUMP OF * 00609 M01S00608.ktsdmp +++| CON 0 DB,FN 00610 M01S00609.ktsdmp +++| CON 0 LINE TERMINATOR 00611 M01S00610.ktsdmp +++| DBDB DATA 10H 00612 M01S00611.ktsdmp +++| DBDC DATA 10HKEY VALUE 00613 M01S00612.ktsdmp +++| DBDD DATA 2L 00614 M01S00613.ktsdmp +++| DATA 10H 00615 M01S00614.ktsdmp +++| DATA 10HPRU 00616 M01S00615.ktsdmp +++| CON 0 PRU NUMBER 00617 M01S00616.ktsdmp +++| CON 0 00618 M01S00617.ktsdmp +++| DBDE DATA 10H 00619 M01S00618.ktsdmp +++| DATA 10HSTATUS 00620 M01S00619.ktsdmp +++| CON 0 STATUS 00621 M01S00620.ktsdmp +++| CON 0 00622 M01S00621.ktsdmp +++| DATA 2L 00623 M01S00622.ktsdmp +++| DBDDL EQU *-DBDD 00624 M01S00623.ktsdmp +++| DBDF CON 0 00625 M01S00624.ktsdmp +++| CFA TITLE SUBROUTINES. 00626 M01S00625.ktsdmp +++| CFA SPACE 4,10 00627 M01S00626.ktsdmp +++|** CFA - CLEAR FILE ARGUMENTS. 00628 M01S00627.ktsdmp +++|* 00629 M01S00628.ktsdmp +++|* EXIT (LB), (DD), AND (DT) RESET TO (CFAA). 00630 M01S00629.ktsdmp +++|* 00631 M01S00630.ktsdmp +++|* USES A - 1, 6, 7. 00632 M01S00631.ktsdmp +++|* X - 1, 6, 7. 00633 M01S00632.ktsdmp +++| 00634 M01S00633.ktsdmp +++| 00635 M01S00634.ktsdmp +++| CFA SUBR ENTRY/EXIT 00636 M01S00635.ktsdmp +++| SA1 CFAA RESET LABEL, DUMP DATE, DUMP TIME 00637 M01S00636.ktsdmp +++| BX6 X1 00638 M01S00637.ktsdmp +++| LX7 X1 00639 M01S00638.ktsdmp +++| SA6 LB 00640 M01S00639.ktsdmp +++| SA7 DD 00641 M01S00640.ktsdmp +++| SA6 DT 00642 M01S00641.ktsdmp +++| EQ CFAX RETURN 00643 M01S00642.ktsdmp +++| 00644 M01S00643.ktsdmp +++| CFAA CON 1H BLANKS 00645 M01S00644.ktsdmp +++| COF SPACE 4,10 00646 M01S00645.ktsdmp +++|** COF - CHECK OUTPUT FILE NAME AND ASSIGNMENT. 00647 M01S00646.ktsdmp +++|* 00648 M01S00647.ktsdmp +++|* EXIT (X2) = FWA OF ERROR MESSAGE - IF ERROR. 00649 M01S00648.ktsdmp +++|* TO *ERR3* - IF OUTPUT FILE IS TERMINAL FILE AND *DMD* 00650 M01S00649.ktsdmp +++|* TYPE DUMP REQUESTED. 00651 M01S00650.ktsdmp +++|* 00652 M01S00651.ktsdmp +++|* USES A - 1, 2, 4, 6, 7. 00653 M01S00652.ktsdmp +++|* X - 1, 2, 4, 6, 7. 00654 M01S00653.ktsdmp +++|* 00655 M01S00654.ktsdmp +++|* CALLS STF. 00656 M01S00655.ktsdmp +++| 00657 M01S00656.ktsdmp +++| 00658 M01S00657.ktsdmp +++| COF SUBR ENTRY/EXIT 00659 M01S00658.ktsdmp +++| SX2 O 00660 M01S00659.ktsdmp +++| RJ STF CHECK FILE ASSIGNMENT 00661 M01S00660.ktsdmp +++| NZ X6,COFX IF OUTPUT NOT ASSIGNED TO TERMINAL 00662 M01S00661.ktsdmp +++| SA1 DF 00663 M01S00662.ktsdmp +++| ZR X1,ERR3 IF DISPLAY DUMP REQUESTED 00664 M01S00663.ktsdmp +++| SA4 COFB TERMINAL DUMP CONTROL WORD 00665 M01S00664.ktsdmp +++| BX6 X4 00666 M01S00665.ktsdmp +++| SA2 COFA CLEAR AUTO EJECT 00667 M01S00666.ktsdmp +++| LX7 X2 00668 M01S00667.ktsdmp +++| SA6 DC NEW DUMP CONTROL WORD 00669 M01S00668.ktsdmp +++| SA7 WTLB 00670 M01S00669.ktsdmp +++| SX6 B1+ SET TERMINAL OUTPUT FLAG 00671 M01S00670.ktsdmp +++| SX7 BUF1+2 00672 M01S00671.ktsdmp +++| SA6 TERM 00673 M01S00672.ktsdmp +++| SA7 IND 00674 M01S00673.ktsdmp +++| SA1 COFC CLEAR OTHER CARRIAGE CONTROL CHARACTERS 00675 M01S00674.ktsdmp +++| BX6 X1 00676 M01S00675.ktsdmp +++| LX7 X1 00677 M01S00676.ktsdmp +++| SA6 MEDB 00678 M01S00677.ktsdmp +++| SA7 XPDA 00679 M01S00678.ktsdmp +++| SA6 XPDB 00680 M01S00679.ktsdmp +++| SA7 CBDA 00681 M01S00680.ktsdmp +++| SA6 DBDA 00682 M01S00681.ktsdmp +++| SA7 WTLA 00683 M01S00682.ktsdmp +++| EQ COFX RETURN 00684 M01S00683.ktsdmp +++| 00685 M01S00684.ktsdmp +++| COFA CON 1L 00686 M01S00685.ktsdmp +++| COFB VFD 6/30B,18/0,18/1,18/2 TERMINAL DUMP CONTROL WORD 00687 M01S00686.ktsdmp +++| COFC DATA 10H BLANK FILLER 00688 M01S00687.ktsdmp +++| DCK SPACE 4,15 00689 M01S00688.ktsdmp +++|** DCK - STRING OUT DATA. 00690 M01S00689.ktsdmp +++|* 00691 M01S00690.ktsdmp +++|* ENTRY (X6) = FIRST CONVERTED WORD OF DUMP. 00692 M01S00691.ktsdmp +++|* (X7) = SECOND CONVERTED WORD OF DUMP. 00693 M01S00692.ktsdmp +++|* (B3) = INDEX OF SPACE. 00694 M01S00693.ktsdmp +++|* (A7) = LOCATION IN DESTINATION LINE. 00695 M01S00694.ktsdmp +++|* 00696 M01S00695.ktsdmp +++|* EXIT WORDS PACKED AND INTERPRETED INTO BUFFER. 00697 M01S00696.ktsdmp +++|* 00698 M01S00697.ktsdmp +++|* USES A - 3, 4, 6, 7. 00699 M01S00698.ktsdmp +++|* X - 2, 3, 4, 6, 7. 00700 M01S00699.ktsdmp +++|* B - 2, 3, 4, 5. 00701 M01S00700.ktsdmp +++| 00702 M01S00701.ktsdmp +++| 00703 M01S00702.ktsdmp +++| DCK SUBR ENTRY/EXIT 00704 M01S00703.ktsdmp +++| SB4 B3 00705 M01S00704.ktsdmp +++| SB5 1 00706 M01S00705.ktsdmp +++| BX3 X6 SAVE (X6) 00707 M01S00706.ktsdmp +++| DCK1 SA4 B4+SBUF+19 00708 M01S00707.ktsdmp +++| SB4 B4-B1 00709 M01S00708.ktsdmp +++| BX6 X4 00710 M01S00709.ktsdmp +++| SA6 B4+SBUF 00711 M01S00710.ktsdmp +++| PL B4,DCK1 IF TRANSFER RESIDUE 00712 M01S00711.ktsdmp +++| NG B7,DCK2 IF NO SPACE PRESENT 00713 M01S00712.ktsdmp +++| SX6 1R 00714 M01S00713.ktsdmp +++| SA6 B3+SBUF 00715 M01S00714.ktsdmp +++| SB3 B3+1 00716 M01S00715.ktsdmp +++| DCK2 SB2 10 00717 M01S00716.ktsdmp +++| MX2 6 00718 M01S00717.ktsdmp +++| DCK3 BX6 X2*X3 00719 M01S00718.ktsdmp +++| LX6 6 00720 M01S00719.ktsdmp +++| SA6 B3+SBUF 00721 M01S00720.ktsdmp +++| SB2 B2-B1 SHIFT COUNT 00722 M01S00721.ktsdmp +++| LX3 6 00723 M01S00722.ktsdmp +++| SB3 B3+1 00724 M01S00723.ktsdmp +++| NZ B2,DCK3 IF COMPLETE STRING 00725 M01S00724.ktsdmp +++| BX3 X7 00726 M01S00725.ktsdmp +++| SB5 B5-B1 00727 M01S00726.ktsdmp +++| ZR B5,DCK2 IF ZERO - PROCESS SECOND WORD 00728 M01S00727.ktsdmp +++| SB5 B1 00729 M01S00728.ktsdmp +++| SB3 B0 00730 M01S00729.ktsdmp +++| DCK4 SB2 10 00731 M01S00730.ktsdmp +++| SX7 0 00732 M01S00731.ktsdmp +++| DCK5 SA3 B3+SBUF 00733 M01S00732.ktsdmp +++| NZ X3,DCK6 IF NOT A 0-CHARACTER 00734 M01S00733.ktsdmp +++| SX3 1R 00735 M01S00734.ktsdmp +++| DCK6 LX7 6 00736 M01S00735.ktsdmp +++| BX7 X7+X3 00737 M01S00736.ktsdmp +++| SB3 B3+B1 00738 M01S00737.ktsdmp +++| SB2 B2-B1 00739 M01S00738.ktsdmp +++| NZ B2,DCK5 IF COMPLETE STRING 00740 M01S00739.ktsdmp +++| SA7 A7+B1 00741 M01S00740.ktsdmp +++| SB5 B5-B1 00742 M01S00741.ktsdmp +++| ZR B5,DCK4 IF ZERO - DO SECOND WORD 00743 M01S00742.ktsdmp +++| EQ DCKX RETURN 00744 M01S00743.ktsdmp +++| DCM SPACE 4,15 00745 M01S00744.ktsdmp +++|** DCM - DUMP CENTRAL MEMORY. 00746 M01S00745.ktsdmp +++|* 00747 M01S00746.ktsdmp +++|* ENTRY (FW) = FWA OF DUMP. 00748 M01S00747.ktsdmp +++|* (LW) = LIMIT ADDRESS OF DUMP. 00749 M01S00748.ktsdmp +++|* 00750 M01S00749.ktsdmp +++|* EXIT TO *ERR1* - IF PREMATURE EOR/EOF/EOI. 00751 M01S00750.ktsdmp +++|* 00752 M01S00751.ktsdmp +++|* USES A - 0, 1, 2, 3, 5, 6, 7. 00753 M01S00752.ktsdmp +++|* X - ALL. 00754 M01S00753.ktsdmp +++|* B - 2, 6, 7. 00755 M01S00754.ktsdmp +++|* 00756 M01S00755.ktsdmp +++|* CALLS COD, OCT, RDW=. 00757 M01S00756.ktsdmp +++|* 00758 M01S00757.ktsdmp +++|* MACROS READW, WRITEW. 00759 M01S00758.ktsdmp +++| 00760 M01S00759.ktsdmp +++| 00761 M01S00760.ktsdmp +++| DCM4 SA1 LA READ ADDRESS 00762 M01S00761.ktsdmp +++| RJ COD CONVERT OCTAL TO DISPLAY 00763 M01S00762.ktsdmp +++| SA1 DB SET BLOCK INDEX 00764 M01S00763.ktsdmp +++| LX6 2*6 00765 M01S00764.ktsdmp +++| SA0 BUF1+X1 00766 M01S00765.ktsdmp +++| SA6 BUF 00767 M01S00766.ktsdmp +++| SB7 X5 00768 M01S00767.ktsdmp +++| RJ OCT LIST MEMORY IN OCTAL 00769 M01S00768.ktsdmp +++| 00770 M01S00769.ktsdmp +++| DCM SUBR ENTRY/EXIT 00771 M01S00770.ktsdmp +++| SA1 FW SET LINE ADDRESS 00772 M01S00771.ktsdmp +++| SA5 DC SET DUMP CONTROL 00773 M01S00772.ktsdmp +++| SX6 X1 00774 M01S00773.ktsdmp +++| BX7 X7-X7 CLEAR BUFFER INDEX 00775 M01S00774.ktsdmp +++| SA6 LA 00776 M01S00775.ktsdmp +++| SA7 DB 00777 M01S00776.ktsdmp +++| READW I,BUF1,X5 READ FIRST BLOCK 00778 M01S00777.ktsdmp +++| DCM1 SA1 LA CONVERT LINE ADDRESS 00779 M01S00778.ktsdmp +++| RJ COD CONVERT OCTAL TO DISPLAY 00780 M01S00779.ktsdmp +++| SA1 DB SET BLOCK INDEX 00781 M01S00780.ktsdmp +++| LX6 2*6 00782 M01S00781.ktsdmp +++| SA0 BUF1+X1 FWA OF MEMORY TO CONVERT 00783 M01S00782.ktsdmp +++| SA6 BUF DESTINATION ADDRESS - 1 00784 M01S00783.ktsdmp +++| SB7 X5 WORD COUNT 00785 M01S00784.ktsdmp +++| RJ OCT LIST MEMORY IN OCTAL 00786 M01S00785.ktsdmp +++| SA5 DC SET DUMP CONTROL 00787 M01S00786.ktsdmp +++| SA1 DB TOGGLE DUMP BLOCK 00788 M01S00787.ktsdmp +++| SX2 X5 00789 M01S00788.ktsdmp +++| BX6 X1-X2 00790 M01S00789.ktsdmp +++| SA6 A1 00791 M01S00790.ktsdmp +++| BX0 X1-X2 00792 M01S00791.ktsdmp +++|* READW I,BUF1+X0,X5 READ NEXT BLOCK 00793 M01S00792.ktsdmp +++| DCM2 SB6 BUF1+X0 00794 M01S00793.ktsdmp +++| SB7 X5+ 00795 M01S00794.ktsdmp +++| SX2 I 00796 M01S00795.ktsdmp +++| RJ RDW= READ SPECIFIED NUMBER OF WORDS 00797 M01S00796.ktsdmp +++| SA3 LA ADVANCE LINE ADDRESS 00798 M01S00797.ktsdmp +++| NZ X1,ERR1 IF EOR/EOF/EOI 00799 M01S00798.ktsdmp +++| SA1 BUF1 LOAD FIRST WORD PAIR 00800 M01S00799.ktsdmp +++| SA2 IND 00801 M01S00800.ktsdmp +++| SA2 X2 00802 M01S00801.ktsdmp +++| LX4 X5,B1 SET WORD COUNT 00803 M01S00802.ktsdmp +++| SB2 X5 00804 M01S00803.ktsdmp +++| BX7 X7-X7 CLEAR DIFFERENCE 00805 M01S00804.ktsdmp +++| SX6 X3+B2 00806 M01S00805.ktsdmp +++| DCM3 BX3 X1-X2 COMPARE WORDS 00807 M01S00806.ktsdmp +++| LX4 1 COUNT WORD 00808 M01S00807.ktsdmp +++| SA1 A1+B1 00809 M01S00808.ktsdmp +++| BX7 X7+X3 ACCUMULATE DIFFERENCES 00810 M01S00809.ktsdmp +++| SA2 A2+B1 00811 M01S00810.ktsdmp +++| NG X4,DCM3 IF .LT. ZERO - LOOP FOR ALL WRODS 00812 M01S00811.ktsdmp +++| SA1 A3-B1 CHECK LIMIT REACHED 00813 M01S00812.ktsdmp +++| IX2 X6-X1 00814 M01S00813.ktsdmp +++| SA6 A3+ STORE ADDRESS 00815 M01S00814.ktsdmp +++| SB6 X2+B2 00816 M01S00815.ktsdmp +++| PL B6,DCM4 IF LIMIT REACHED 00817 M01S00816.ktsdmp +++| NZ X7,DCM1 IF DIFFERENT WORD DETECTED 00818 M01S00817.ktsdmp +++| NG X7,DCM1 IF DIFFERENT WORD DETECTED 00819 M01S00818.ktsdmp +++| NG X5,DCM2 IF DUPLICATE LINE SET 00820 M01S00819.ktsdmp +++| WRITEW O,DCMA,DCMAL 00821 M01S00820.ktsdmp +++| MX1 1 SET DUPLICATE LINE 00822 M01S00821.ktsdmp +++| BX5 X1+X5 00823 M01S00822.ktsdmp +++| EQ DCM2 CONTINUE DUMPING MEMORY 00824 M01S00823.ktsdmp +++| 00825 M01S00824.ktsdmp +++| DCMA DATA 1H BLANKS 00826 M01S00825.ktsdmp +++| DATA C*DUPLICATED LINES.* 00827 M01S00826.ktsdmp +++| DCMAL EQU *-DCMA 00828 M01S00827.ktsdmp +++| DXP SPACE 4,15 00829 M01S00828.ktsdmp +++|** DXP - DUMP EXCHANGE PACKAGE. 00830 M01S00829.ktsdmp +++|* 00831 M01S00830.ktsdmp +++|* ENTRY (BUF - BUF+17B) = EXCHANGE PACKAGE. 00832 M01S00831.ktsdmp +++|* 00833 M01S00832.ktsdmp +++|* EXIT CONVERTED EXCHANGE PACKAGE WRITTEN TO OUTPUT BUFFER. 00834 M01S00833.ktsdmp +++|* 00835 M01S00834.ktsdmp +++|* USES A - 0, 1, 2, 5, 6. 00836 M01S00835.ktsdmp +++|* X - 0, 1, 2, 3, 5, 6. 00837 M01S00836.ktsdmp +++|* B - 2. 00838 M01S00837.ktsdmp +++|* 00839 M01S00838.ktsdmp +++|* CALLS COD, OCB. 00840 M01S00839.ktsdmp +++|* 00841 M01S00840.ktsdmp +++|* MACROS WRITEW. 00842 M01S00841.ktsdmp +++| 00843 M01S00842.ktsdmp +++| 00844 M01S00843.ktsdmp +++| DXP SUBR ENTRY/EXIT 00845 M01S00844.ktsdmp +++| SA0 0 INITIALIZE REGISTER INDEX 00846 M01S00845.ktsdmp +++| SA5 BUF 00847 M01S00846.ktsdmp +++| DXP1 SA1 DXPA+A0 SET REGISTER NAME 00848 M01S00847.ktsdmp +++| SA2 DXPB 00849 M01S00848.ktsdmp +++| MX0 4*6 00850 M01S00849.ktsdmp +++| SB2 X1 SET SHIFT 00851 M01S00850.ktsdmp +++| BX3 X0*X1 00852 M01S00851.ktsdmp +++| LX3 4*6 00853 M01S00852.ktsdmp +++| IX6 X2+X3 00854 M01S00853.ktsdmp +++| MX0 -18 00855 M01S00854.ktsdmp +++| SA6 BUFO 00856 M01S00855.ktsdmp +++| NG X1,DXP2 IF BLANK FIELD 00857 M01S00856.ktsdmp +++| LX2 X5,B2 EXTRACT REGISTER 00858 M01S00857.ktsdmp +++| BX1 -X0*X2 00859 M01S00858.ktsdmp +++| RJ COD CONVERT OCTAL TO DISPLAY 00860 M01S00859.ktsdmp +++| DXP2 LX6 4*6 CONVERT A-REGISTER 00861 M01S00860.ktsdmp +++| SX3 2RA0-2R +A0 00862 M01S00861.ktsdmp +++| IX6 X6+X3 00863 M01S00862.ktsdmp +++| SA6 A6+B1 00864 M01S00863.ktsdmp +++| LX5 -18 00865 M01S00864.ktsdmp +++| SX0 1RB-1R 00866 M01S00865.ktsdmp +++| MX2 -18 00867 M01S00866.ktsdmp +++| BX1 -X2*X5 00868 M01S00867.ktsdmp +++| RJ COD CONVERT OCTAL TO DISPLAY 00869 M01S00868.ktsdmp +++| LX6 3*6 00870 M01S00869.ktsdmp +++| IX6 X6+X0 00871 M01S00870.ktsdmp +++| SA6 A6+B1 00872 M01S00871.ktsdmp +++| LX5 18 CONVERT B-REGISTER 00873 M01S00872.ktsdmp +++| SX0 1R0-1R +A0 00874 M01S00873.ktsdmp +++| MX2 -18 00875 M01S00874.ktsdmp +++| BX1 -X2*X5 00876 M01S00875.ktsdmp +++| LX0 54 00877 M01S00876.ktsdmp +++| RJ COD CONVERT OCTAL TO DISPLAY 00878 M01S00877.ktsdmp +++| LX6 2*6 00879 M01S00878.ktsdmp +++| IX6 X6+X0 00880 M01S00879.ktsdmp +++| SA6 A6+1 00881 M01S00880.ktsdmp +++| BX6 X6-X6 CLEAR LAST WORD 00882 M01S00881.ktsdmp +++| SA6 A6+B1 00883 M01S00882.ktsdmp +++| WRITEW O,BUFO,A6-BUFO+1 00884 M01S00883.ktsdmp +++| SA0 A0+1 ADVANCE REGISTER 00885 M01S00884.ktsdmp +++| SB2 A0-10B 00886 M01S00885.ktsdmp +++| SA5 BUF+A0 READ REGISTER 00887 M01S00886.ktsdmp +++| NZ B2,DXP1 IF MORE A-REGISTERS TO PROCESS 00888 M01S00887.ktsdmp +++| WRITEW O,(=C* *),B1 SPACE 00889 M01S00888.ktsdmp +++| DXP3 SA2 DXPC CONVERT X-REGISTERS 00890 M01S00889.ktsdmp +++| SX3 A0-10B 00891 M01S00890.ktsdmp +++| LX3 2*6 00892 M01S00891.ktsdmp +++| IX6 X2+X3 00893 M01S00892.ktsdmp +++| SA1 BUF+A0 00894 M01S00893.ktsdmp +++| SA6 BUFO 00895 M01S00894.ktsdmp +++| RJ OCB CONVERT OCTAL BY BYTES 00896 M01S00895.ktsdmp +++| BX6 X6-X6 00897 M01S00896.ktsdmp +++| SA6 A6+B1 00898 M01S00897.ktsdmp +++| WRITEW O,BUFO,A6-BUFO+1 00899 M01S00898.ktsdmp +++| SA0 A0+1 ADVANCE REGISTER 00900 M01S00899.ktsdmp +++| SB2 A0-20B 00901 M01S00900.ktsdmp +++| NZ B2,DXP3 IF NOT ZERO - PROCESS END OF REGISTERS 00902 M01S00901.ktsdmp +++| EQ DXPX RETURN 00903 M01S00902.ktsdmp +++| 00904 M01S00903.ktsdmp +++| DXPA VFD 24/0HP,36/24 00905 M01S00904.ktsdmp +++| VFD 24/0HRA,36/24 00906 M01S00905.ktsdmp +++| VFD 24/0HFL,36/24 00907 M01S00906.ktsdmp +++| VFD 24/0HEM,36/12 00908 M01S00907.ktsdmp +++| VFD 24/0HRAE,36/18 00909 M01S00908.ktsdmp +++| VFD 24/0HFLE,36/18 00910 M01S00909.ktsdmp +++| VFD 24/0HMA,36/24 00911 M01S00910.ktsdmp +++| VFD 60/1H 00912 M01S00911.ktsdmp +++| DXPB DATA 6L 00913 M01S00912.ktsdmp +++| DXPC DATA 4AX0 00914 M01S00913.ktsdmp +++| DXPAL EQU *-DXPA LENGTH OF EXCHANGE PACKAGE 00915 M01S00914.ktsdmp +++| ERR SPACE 4,10 00916 M01S00915.ktsdmp +++|** ERR - PROCESS ERROR. 00917 M01S00916.ktsdmp +++|* 00918 M01S00917.ktsdmp +++|* MACROS ABORT, MESSAGE. 00919 M01S00918.ktsdmp +++| 00920 M01S00919.ktsdmp +++| 00921 M01S00920.ktsdmp +++| ERR MESSAGE X2,0,R ISSUE DAYFILE MESSAGE 00922 M01S00921.ktsdmp +++| ABORT 00923 M01S00922.ktsdmp +++| 00924 M01S00923.ktsdmp +++| ERR1 SX2 ERRA * UNKNOWN FILE FORMAT.* 00925 M01S00924.ktsdmp +++| EQ ERR PROCESS ERROR 00926 M01S00925.ktsdmp +++| 00927 M01S00926.ktsdmp +++| ERR2 SX2 ERRB * FWA .GE. LWA+1.* 00928 M01S00927.ktsdmp +++| EQ ERR PROCESS ERROR 00929 M01S00928.ktsdmp +++| 00930 M01S00929.ktsdmp +++| ERR3 SX2 ERRC * DISPLAY DUMP NOT ALLOWED TO TERMINAL.* 00931 M01S00930.ktsdmp +++| EQ ERR PROCESS ERROR 00932 M01S00931.ktsdmp +++| 00933 M01S00932.ktsdmp +++| ERR4 SX2 MBUF * XXXXXXX NOT FOUND.* 00934 M01S00933.ktsdmp +++| EQ ERR PROCESS ERROR 00935 M01S00934.ktsdmp +++| 00936 M01S00935.ktsdmp +++| ERRA DATA C* UNKNOWN FILE FORMAT.* 00937 M01S00936.ktsdmp +++| ERRB DATA C* FWA .GE. LWA+1.* 00938 M01S00937.ktsdmp +++| ERRC DATA C* DISPLAY DUMP NOT ALLOWED TO TERMINAL.* 00939 M01S00938.ktsdmp +++| OCB SPACE 4,15 00940 M01S00939.ktsdmp +++|** OCB - CONVERT OCTAL BY BYTES. 00941 M01S00940.ktsdmp +++|* 00942 M01S00941.ktsdmp +++|* ENTRY (X1) = WORD TO CONVERT. 00943 M01S00942.ktsdmp +++|* (A6) = BUFFER ADDRESS. 00944 M01S00943.ktsdmp +++|* 00945 M01S00944.ktsdmp +++|* EXIT (A6) = BUFFER ADDRESS ADVANCED. 00946 M01S00945.ktsdmp +++|* 00947 M01S00946.ktsdmp +++|* USES A - 1, 6, 7. 00948 M01S00947.ktsdmp +++|* X - ALL. 00949 M01S00948.ktsdmp +++|* 00950 M01S00949.ktsdmp +++|* CALLS WOD. 00951 M01S00950.ktsdmp +++| 00952 M01S00951.ktsdmp +++| 00953 M01S00952.ktsdmp +++| OCB SUBR ENTRY/EXIT 00954 M01S00953.ktsdmp +++| RJ WOD CONVERT WORD (ABCDEFGHIJ KLMNOPQRST) 00955 M01S00954.ktsdmp +++| SA1 OCBA 00956 M01S00955.ktsdmp +++| MX2 -2*6 00957 M01S00956.ktsdmp +++| BX5 -X2*X6 ........IJ 00958 M01S00957.ktsdmp +++| MX0 4*6 00959 M01S00958.ktsdmp +++| BX3 X0*X6 ABCD...... 00960 M01S00959.ktsdmp +++| LX0 -4*6 00961 M01S00960.ktsdmp +++| IX4 X1+X3 ABCD*....* 00962 M01S00961.ktsdmp +++| BX2 X0*X6 00963 M01S00962.ktsdmp +++| LX2 -6 .....EFGH. 00964 M01S00963.ktsdmp +++| BX6 X4+X2 ABCD*EFGH* 00965 M01S00964.ktsdmp +++| LX7 -4*6 QRSTKLMNOP 00966 M01S00965.ktsdmp +++| SA6 A6+B1 00967 M01S00966.ktsdmp +++| MX0 4*6 00968 M01S00967.ktsdmp +++| BX6 X0*X7 QRST...... 00969 M01S00968.ktsdmp +++| LX5 8*6 IJ........ 00970 M01S00969.ktsdmp +++| BX7 -X0*X7 ....KLMNOP 00971 M01S00970.ktsdmp +++| LX7 2*6 ..KLMONP.. 00972 M01S00971.ktsdmp +++| IX2 X5+X7 IJKLMNOP.. 00973 M01S00972.ktsdmp +++| BX3 X0*X2 IJKL...... 00974 M01S00973.ktsdmp +++| LX0 -4*6 00975 M01S00974.ktsdmp +++| IX4 X1+X3 IJKL*....* 00976 M01S00975.ktsdmp +++| BX5 X0*X2 ....MNOP.. 00977 M01S00976.ktsdmp +++| SA1 A1+B1 ....****** 00978 M01S00977.ktsdmp +++| LX5 -6 .....MNOP. 00979 M01S00978.ktsdmp +++| IX7 X4+X5 IJKL*MNOP* 00980 M01S00979.ktsdmp +++| BX6 X1+X6 QRST****** 00981 M01S00980.ktsdmp +++| SA7 A6+B1 00982 M01S00981.ktsdmp +++| SA6 A7+B1 00983 M01S00982.ktsdmp +++| EQ OCBX RETURN 00984 M01S00983.ktsdmp +++| 00985 M01S00984.ktsdmp +++| OCBA VFD 24/0,6/1R ,24/0,6/1R 00986 M01S00985.ktsdmp +++| VFD 24/0,36/6H 00987 M01S00986.ktsdmp +++| OCT SPACE 4,15 00988 M01S00987.ktsdmp +++|** OCT - LIST OCTAL OR OCTAL WITH DISPLAY. 00989 M01S00988.ktsdmp +++|* 00990 M01S00989.ktsdmp +++|* ENTRY (B7) = WORD COUNT. 00991 M01S00990.ktsdmp +++|* (A0) = WORD ADDRESS. 00992 M01S00991.ktsdmp +++|* (A6) = DESTINATION ADDRESS - 1. 00993 M01S00992.ktsdmp +++|* 00994 M01S00993.ktsdmp +++|* EXIT NONE. 00995 M01S00994.ktsdmp +++|* 00996 M01S00995.ktsdmp +++|* USES A - 1, 2, 6, 7. 00997 M01S00996.ktsdmp +++|* X - ALL. 00998 M01S00997.ktsdmp +++|* B - 6, 7. 00999 M01S00998.ktsdmp +++|* 01000 M01S00999.ktsdmp +++|* CALLS WOD, SFN. 01001 M01S01000.ktsdmp +++|* 01002 M01S01001.ktsdmp +++|* MACROS WRITEW. 01003 M01S01002.ktsdmp +++| 01004 M01S01003.ktsdmp +++| 01005 M01S01004.ktsdmp +++| OCT SUBR ENTRY/EXIT 01006 M01S01005.ktsdmp +++| SA1 A0 READ FIRST WORD 01007 M01S01006.ktsdmp +++| SB6 B7 01008 M01S01007.ktsdmp +++| SA2 DF READ CONVERSION TYPE FLAG 01009 M01S01008.ktsdmp +++| ZR X2,OCT2 IF DISPLAY DUMP REQUESTED 01010 M01S01009.ktsdmp +++| OCT1 RJ WOD CONVERT WORD TO DISPLAY 01011 M01S01010.ktsdmp +++| MX5 5*6 01012 M01S01011.ktsdmp +++| BX3 X5*X6 ABCDE..... 01013 M01S01012.ktsdmp +++| SA2 OCTA 01014 M01S01013.ktsdmp +++| LX3 -4*6 ....ABCDE. 01015 M01S01014.ktsdmp +++| BX1 -X5*X6 .....FGHIJ 01016 M01S01015.ktsdmp +++| IX6 X2+X3 ****ABCDE* 01017 M01S01016.ktsdmp +++| SA2 A2+B1 01018 M01S01017.ktsdmp +++| LX1 5*6 FGHIJ..... 01019 M01S01018.ktsdmp +++| BX4 -X5*X7 .....PQRST 01020 M01S01019.ktsdmp +++| MX3 -4*6 01021 M01S01020.ktsdmp +++| IX2 X2+X1 FGHIJ*.... 01022 M01S01021.ktsdmp +++| SA6 A6+B1 01023 M01S01022.ktsdmp +++| LX7 -6*6 OPQRSTKLMN 01024 M01S01023.ktsdmp +++| BX0 -X3*X7 ......KLMN 01025 M01S01024.ktsdmp +++| SA3 A2+B1 01026 M01S01025.ktsdmp +++| IX6 X2+X0 FGHIJ*KLMN 01027 M01S01026.ktsdmp +++| MX5 1*6 01028 M01S01027.ktsdmp +++| SA6 A6+B1 01029 M01S01028.ktsdmp +++| IX4 X3+X4 ***.*PQRST 01030 M01S01029.ktsdmp +++| SB7 B7-B1 01031 M01S01030.ktsdmp +++| BX3 X5*X7 O......... 01032 M01S01031.ktsdmp +++| SA1 A1+B1 NEXT DUMP BLOCK WORD 01033 M01S01032.ktsdmp +++| LX4 3*6 .*PQRST*** 01034 M01S01033.ktsdmp +++| IX6 X3+X4 O*PQRST*** 01035 M01S01034.ktsdmp +++| SA6 A6+B1 01036 M01S01035.ktsdmp +++| NZ B7,OCT1 IF NOT ZERO - CONTINUE CONVERTING 01037 M01S01036.ktsdmp +++| MX6 0 01038 M01S01037.ktsdmp +++| SA6 A6+B1 01039 M01S01038.ktsdmp +++| WRITEW O,BUF,A6-BUF+1 01040 M01S01039.ktsdmp +++| EQ OCTX RETURN 01041 M01S01040.ktsdmp +++| 01042 M01S01041.ktsdmp +++|* LIST MEMORY WITH DISPLAY CODE INTERPRETATION. 01043 M01S01042.ktsdmp +++| 01044 M01S01043.ktsdmp +++| OCT2 RJ WOD CONVERT WORD TO OCTAL 01045 M01S01044.ktsdmp +++| SA6 A6+1 01046 M01S01045.ktsdmp +++| SA7 A6+1 01047 M01S01046.ktsdmp +++| OCT3 SA1 A1+1 NEXT DUMP BLOCK 01048 M01S01047.ktsdmp +++| RJ WOD CONVERT WORD TO OCTAL 01049 M01S01048.ktsdmp +++| SB7 B7-1 01050 M01S01049.ktsdmp +++| ZR B7,OCT4 IF END OF NUMBER FORMATTING 01051 M01S01050.ktsdmp +++| SB2 3 01052 M01S01051.ktsdmp +++| SB3 B2-B7 01053 M01S01052.ktsdmp +++| RJ DCK STRING OUT DATA 01054 M01S01053.ktsdmp +++| EQ OCT3 PROCESS NEXT WORD 01055 M01S01054.ktsdmp +++| 01056 M01S01055.ktsdmp +++| OCT4 SB6 B1 01057 M01S01056.ktsdmp +++| SA1 A0-B1 01058 M01S01057.ktsdmp +++| SB3 3 01059 M01S01058.ktsdmp +++| OCT5 SA1 A1+B1 01060 M01S01059.ktsdmp +++| BX6 X1 01061 M01S01060.ktsdmp +++| SA1 A1+B1 01062 M01S01061.ktsdmp +++| BX7 X1 01063 M01S01062.ktsdmp +++| RJ DCK STRING OUT DATA 01064 M01S01063.ktsdmp +++| SB6 B6-B1 01065 M01S01064.ktsdmp +++| SB7 B7-B1 01066 M01S01065.ktsdmp +++| SB3 4 01067 M01S01066.ktsdmp +++| PL B6,OCT5 IF POSITIVE - CONTINUE COMMENTS 01068 M01S01067.ktsdmp +++| MX6 0 01069 M01S01068.ktsdmp +++| SX7 B0 01070 M01S01069.ktsdmp +++| RJ DCK FLUSH BUFFER AND ADD TERMINATING BYTE 01071 M01S01070.ktsdmp +++| MX2 24 01072 M01S01071.ktsdmp +++| SA1 BUF+13 01073 M01S01072.ktsdmp +++| BX6 X2*X1 SET TERMINATION BYTE 01074 M01S01073.ktsdmp +++| SA6 A1 01075 M01S01074.ktsdmp +++| WRITEW O,BUF,A7-BUF 01076 M01S01075.ktsdmp +++| EQ OCTX RETURN 01077 M01S01076.ktsdmp +++| 01078 M01S01077.ktsdmp +++| OCTA BSS 0 01079 M01S01078.ktsdmp +++| VFD 24/1H ,30/0,6/1H 01080 M01S01079.ktsdmp +++| VFD 30/0,6/1H ,24/0 01081 M01S01080.ktsdmp +++| VFD 18/1H ,6/0,6/1H ,30/0 01082 M01S01081.ktsdmp +++| OCTB CON 1H 01083 M01S01082.ktsdmp +++| SKW SPACE 4,10 01084 M01S01083.ktsdmp +++|** SKW - SKIP WORDS. 01085 M01S01084.ktsdmp +++|* 01086 M01S01085.ktsdmp +++|* ENTRY (X0) = WORD COUNT. 01087 M01S01086.ktsdmp +++|* 01088 M01S01087.ktsdmp +++|* USES X - 0. 01089 M01S01088.ktsdmp +++|* 01090 M01S01089.ktsdmp +++|* MACROS READW. 01091 M01S01090.ktsdmp +++| 01092 M01S01091.ktsdmp +++| 01093 M01S01092.ktsdmp +++| SKW SUBR ENTRY/EXIT 01094 M01S01093.ktsdmp +++| SKW1 ZR X0,SKWX IF NO WORDS TO SKIP - RETURN 01095 M01S01094.ktsdmp +++| SX0 X0-100B 01096 M01S01095.ktsdmp +++| PL X0,SKW2 IF .GE. 100B WORDS TO SKIP 01097 M01S01096.ktsdmp +++| READW I,BUF,X0+100B SKIP 01098 M01S01097.ktsdmp +++| EQ SKWX RETURN 01099 M01S01098.ktsdmp +++| 01100 M01S01099.ktsdmp +++| SKW2 READW I,BUF,100B SKIP 01101 M01S01100.ktsdmp +++| EQ SKW1 LOOP 01102 M01S01101.ktsdmp +++| WTL SPACE 4,10 01103 M01S01102.ktsdmp +++|** WTL - WRITE TITLE LINES. 01104 M01S01103.ktsdmp +++|* 01105 M01S01104.ktsdmp +++|* ENTRY (A0) = ADDRESS OF SECOND TITLE LINE. 01106 M01S01105.ktsdmp +++|* 01107 M01S01106.ktsdmp +++|* MACROS CLOCK, WRITEC, WRITEW. 01108 M01S01107.ktsdmp +++| 01109 M01S01108.ktsdmp +++| 01110 M01S01109.ktsdmp +++| WTL SUBR ENTRY/EXIT 01111 M01S01110.ktsdmp +++| CLOCK TM GET TIME 01112 M01S01111.ktsdmp +++| WRITEW O,WTLA,WTLAL WRITE LINE ONE 01113 M01S01112.ktsdmp +++| WRITEC O,A0 WRITE LINE TWO 01114 M01S01113.ktsdmp +++| WRITEW O,(=C* *),B1 SPACE 01115 M01S01114.ktsdmp +++| WRITEW O,WTLB,B1 SET AUTO EJECT 01116 M01S01115.ktsdmp +++| EQ WTLX RETURN 01117 M01S01116.ktsdmp +++| 01118 M01S01117.ktsdmp +++| WTLA BSS 0 TITLE LINES 01119 M01S01118.ktsdmp +++| DATA 10H1 EJECT PAGE 01120 M01S01119.ktsdmp +++| DATA 10HKTSDMP - 01121 M01S01120.ktsdmp +++| LB CON 0 LABEL 01122 M01S01121.ktsdmp +++| DD CON 0 DUMP DATE 01123 M01S01122.ktsdmp +++| DT CON 0 DUMP TIME 01124 M01S01123.ktsdmp +++| DATA 10H BLANKS 01125 M01S01124.ktsdmp +++| DA CON 0 CURRENT DATE 01126 M01S01125.ktsdmp +++| TM CON 0 CURRENT TIME 01127 M01S01126.ktsdmp +++| CON 0 LINE TERMINATOR 01128 M01S01127.ktsdmp +++| WTLAL EQU *-WTLA 01129 M01S01128.ktsdmp +++| WTLB DATA 1LR SET AUTO EJECT 01130 M01S01129.ktsdmp +++| SPACE 4 01131 M01S01130.ktsdmp +++|* COMMON DECKS. 01132 M01S01131.ktsdmp +++| 01133 M01S01132.ktsdmp +++| 01134 M01S01133.ktsdmp +++|*CALL COMCCDD 01135 M01S01134.ktsdmp +++|*CALL COMCCIO 01136 M01S01135.ktsdmp +++|*CALL COMCCOD 01137 M01S01136.ktsdmp +++|*CALL COMCCPM 01138 M01S01137.ktsdmp +++|*CALL COMCPFM 01139 M01S01138.ktsdmp +++|*CALL COMCRDW 01140 M01S01139.ktsdmp +++|*CALL COMCSFN 01141 M01S01140.ktsdmp +++|*CALL COMCSTF 01142 M01S01141.ktsdmp +++|*CALL COMCSYS 01143 M01S01142.ktsdmp +++|*CALL COMCWOD 01144 M01S01143.ktsdmp +++|*CALL COMCWTC 01145 M01S01144.ktsdmp +++|*CALL COMCWTW 01146 M01S01145.ktsdmp +++| BUFFERS TITLE BUFFERS. 01147 M01S01146.ktsdmp +++|* BUFFERS. 01148 M01S01147.ktsdmp +++| 01149 M01S01148.ktsdmp +++| 01150 M01S01149.ktsdmp +++| USE BUFFERS. 01151 M01S01150.ktsdmp +++| 01152 M01S01151.ktsdmp +++| BUFFERS BSS 0 01153 M01S01152.ktsdmp +++| IBUF EQU BUFFERS INPUT FILE BUFFER 01154 M01S01153.ktsdmp +++| OBUF EQU IBUF+IBUFL OUTPUT FILE BUFFER 01155 M01S01154.ktsdmp +++| BUF EQU OBUF+OBUFL WORKING BUFFER 01156 M01S01155.ktsdmp +++| BUFO EQU BUF+20B EXCHANGE PACKAGE OUTPUT BUFFER 01157 M01S01156.ktsdmp +++| BUF1 EQU BUF+400B DUMP BUFFERS 01158 M01S01157.ktsdmp +++| BUF2 EQU BUF1+4 DUMP BUFFER 01159 M01S01158.ktsdmp +++| SBUF EQU BUF1-24 STRING BUFER FOR DISPLAY CODE 01160 M01S01159.ktsdmp +++| RFL= EQU BUF2+10B 01161 M01S01160.ktsdmp +++| 01162 M01S01161.ktsdmp +++| USE * 01163 M01S01162.ktsdmp +++| PRS TITLE PRESET. 01164 M01S01163.ktsdmp +++|** PRS - PRESET KTSDMP. 01165 M01S01164.ktsdmp +++|* 01166 M01S01165.ktsdmp +++|* EXIT (X5) = .GT. 0 - APPEND *IF* TO *P*. 01167 M01S01166.ktsdmp +++|* (X5) = 0 - LIST *IF* TO *OF*. 01168 M01S01167.ktsdmp +++|* (DA) = CURRENT DATE. 01169 M01S01168.ktsdmp +++|* (DF) = 0 - LIST WITH DISPLAY CODE. 01170 M01S01169.ktsdmp +++|* (DF) = 1 - LIST WITH OCTAL ONLY. 01171 M01S01170.ktsdmp +++|* 01172 M01S01171.ktsdmp +++|* USES B - 7. 01173 M01S01172.ktsdmp +++|* A - 1, 2, 3, 6, 7. 01174 M01S01173.ktsdmp +++|* X - 0, 1, 2, 3, 5, 6, 7. 01175 M01S01174.ktsdmp +++|* 01176 M01S01175.ktsdmp +++|* MACROS ABORT, DATE, MESSAGE. 01177 M01S01176.ktsdmp +++| 01178 M01S01177.ktsdmp +++| 01179 M01S01178.ktsdmp +++| ORG BUFFERS 01180 M01S01179.ktsdmp +++| 01181 M01S01180.ktsdmp +++| PRS SUBR ENTRY/EXIT 01182 M01S01181.ktsdmp +++| SA1 ACTR READ ARGUMENT COUNT 01183 M01S01182.ktsdmp +++| SA2 ARGR READ FIRST ARGUMENT 01184 M01S01183.ktsdmp +++| SB7 X1 01185 M01S01184.ktsdmp +++| MX0 42 01186 M01S01185.ktsdmp +++| ZR B7,PRS2 IF NO ARGUMENTS - COMPLETE PRESETTING 01187 M01S01186.ktsdmp +++| SX3 3 01188 M01S01187.ktsdmp +++| ZR X2,PRS1 IF DEFAULT INPUT FILE 01189 M01S01188.ktsdmp +++| BX6 X0*X2 SET INPUT FILE NAME 01190 M01S01189.ktsdmp +++| IX7 X6+X3 01191 M01S01190.ktsdmp +++| SA7 I 01192 M01S01191.ktsdmp +++| PRS1 SB7 B7-B1 DECREMENT NUMBER OF REMAINING ARGUMENTS 01193 M01S01192.ktsdmp +++| ZR B7,PRS2 IF END OF ARGUMENTS 01194 M01S01193.ktsdmp +++| SA2 A2+B1 READ SECOND ARGUMENT 01195 M01S01194.ktsdmp +++| ZR X2,PRS2 IF DEFAULT OUTPUT FILE NAME 01196 M01S01195.ktsdmp +++| BX6 X0*X2 STORE OUTPUT FILE NAME 01197 M01S01196.ktsdmp +++| IX7 X6+X3 01198 M01S01197.ktsdmp +++| SB7 B7-1 DECREMENT ARGUMENT COUNT 01199 M01S01198.ktsdmp +++| SA7 O 01200 M01S01199.ktsdmp +++| PRS2 SA1 I CHECK FILE NAME CONFLICT 01201 M01S01200.ktsdmp +++| SA3 O 01202 M01S01201.ktsdmp +++| BX6 X1-X3 01203 M01S01202.ktsdmp +++| BX7 X0*X6 01204 M01S01203.ktsdmp +++| ZR X7,PRS5 IF I = O 01205 M01S01204.ktsdmp +++| ZR B7,PRS4 IF ARGUMENT COUNT EXHAUSTED 01206 M01S01205.ktsdmp +++| SA2 A2+B1 READ *APPEND* PARAMETER 01207 M01S01206.ktsdmp +++| SB7 B7-B1 01208 M01S01207.ktsdmp +++| BX2 X0*X2 01209 M01S01208.ktsdmp +++| ZR X2,PRS3 IF NULL ARGUMENT 01210 M01S01209.ktsdmp +++| SX5 1 SET *APPEND* FLAG 01211 M01S01210.ktsdmp +++| ZR B7,PRS4 IF ARGUMENT COUNT EXHAUSTED 01212 M01S01211.ktsdmp +++| PRS3 SA2 A2+B1 READ *OCTAL* PARAMETER 01213 M01S01212.ktsdmp +++| BX2 X0*X2 01214 M01S01213.ktsdmp +++| ZR X2,PRS4 IF NO PARAMETER SPECIFIED 01215 M01S01214.ktsdmp +++| SX6 B1 01216 M01S01215.ktsdmp +++| SA6 DF 01217 M01S01216.ktsdmp +++| PRS4 DATE DA 01218 M01S01217.ktsdmp +++| EQ PRSX RETURN 01219 M01S01218.ktsdmp +++| 01220 M01S01219.ktsdmp +++| PRS5 MESSAGE PRSA,R 01221 M01S01220.ktsdmp +++| ABORT 01222 M01S01221.ktsdmp +++| 01223 M01S01222.ktsdmp +++| PRSA DATA C* FILE NAME CONFLICT.* 01224 M01S01223.ktsdmp +++| SPACE 4 01225 M01S01224.ktsdmp +++| END 01226 M01S00014.ktsdmp +++|LIBTASK
| Line S38099 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @016386 |
M02 (Yanked) (Updated by) | @050308 |
M03 (Yanked) (Updated by) | @058191 |
Seq # *Modification Id* Act ----------------------------+ 01227 M03S38099.@058191 ---| 01228 M01S00004.ktsdmp +++| ENTRY LIBTASK 01229 M01S00005.ktsdmp +++| ENTRY RFL= 01230 M01S00001.@000006 +++| ENTRY SSJ= 01231 M01S00006.ktsdmp +++| SYSCOM B1 01232 M01S00007.ktsdmp +++| LIBTASK TITLE LIBTASK - TASK LIBRARY EDITING PROGRAM. 01233 M01S00008.ktsdmp +++|*COMMENT LIBTASK - TASK LIBRARY EDITING PROGRAM.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000007 |
Seq # *Modification Id* Act ----------------------------+ 01234 M02S00009.@000007 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1971. 01235 M01S00001.@000007 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01236 M01S00010.ktsdmp +++| LIBTASK SPACE 4,10 01237 M01S00011.ktsdmp +++|***** LIBTASK - TASK LIBRARY BUILDING AND EDITING PROGRAM. 01238 M01S00012.ktsdmp +++|* 01239 M01S00013.ktsdmp +++|* J. R. HOGUE. 1971. 01240 M01S00014.ktsdmp +++|* K. R. COMBS. 1972. 01241 M01S00015.ktsdmp +++|* M. M. CHEN. 1978. 01242 M01S00016.ktsdmp +++|* R. G. PARKHOUSE. 80/04/15. 01243 M01S00017.ktsdmp +++|* E. D. REDIG. 81/03/06. 01244 M01S00018.ktsdmp +++| SPACE 4 01245 M01S00019.ktsdmp +++|*** *LIBTASK* BUILDS THE TASK LIBRARY USED BY THE TRANSACTION 01246 M01S00020.ktsdmp +++|* EXECUTIVE AND PLACES BOTH A TASK DIRECTORY AND A TRANSACTION 01247 M01S00021.ktsdmp +++|* DIRECTORY ON THE LAST RECORD OF THE LIBRARY. 01248 M01S00022.ktsdmp +++|* 01249 M01S00023.ktsdmp +++|* TO MAKE CHANGES TO THE LIBRARY WHILE THE TRANSACTION SYSTEM 01250 M01S00024.ktsdmp +++|* IS RUNNING, *LIBTASK* ADDS THE NEW TASK BINARIES TO THE END 01251 M01S00025.ktsdmp +++|* OF THE LIBRARY FILE AND REWRITES AN UPDATED DIRECTORY ON THE 01252 M01S00026.ktsdmp +++|* LAST RECORD. THEN, VIA THE OPERATING SYSTEM *SIC* REQUEST, 01253 M01S00027.ktsdmp +++|* *LIBTASK* INFORMS THE TRANSACTION EXECUTIVE THAT A CHANGE 01254 M01S00028.ktsdmp +++|* WAS MADE AND THE EXECUTIVE READS IN THE NEW DIRECTORY. 01255 M01S00029.ktsdmp +++|* 01256 M01S00030.ktsdmp +++|* *LIBTASK* DOES NOT DEFINE THE INITIAL LIBRARY FILE. THIS 01257 M01S00031.ktsdmp +++|* MUST BE DONE PRIOR TO A *LIBTASK* CREATION RUN. 01258 M01S00032.ktsdmp +++| SPACE 4,10
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01259 M02S00033.@000003 ---|*** CONTROL STATEMENT CALL. 01260 M01S00001.@000003 +++|*** THE COMMAND. 01261 M01S00034.ktsdmp +++|* 01262 M01S00035.ktsdmp +++|* LIBTASK(P1,P2,,PN) 01263 M01S00036.ktsdmp +++|* 01264 M01S00037.ktsdmp +++|* THE PARAMETERS P(I) MAY INCLUDE THE FOLLOWING (IN ANY ORDER) 01265 M01S00038.ktsdmp +++|* AND MUST BE IN ONE OF THE FORMS 01266 M01S00039.ktsdmp +++|* 01267 M01S00040.ktsdmp +++|* * * - (NONE) ASSUME FIRST DEFAULT VALUE. 01268 M01S00041.ktsdmp +++|* P - ASSUME ALTERNATE DEFAULT VALUE. 01269 M01S00042.ktsdmp +++|* P=X - SUBSTITUTE *X* FOR ANY ASSUMED VALUE OF *P*. 01270 M01S00043.ktsdmp +++|* 01271 M01S00044.ktsdmp +++|* I - FILE CONTAINING INPUT DIRECTIVES.
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01272 M02S00045.@000003 ---|* Z - TAKE DIRECTIVES ONLY FROM CONTROL CARD. 01273 M01S00002.@000003 +++|* Z - TAKE DIRECTIVES ONLY FROM COMMAND. 01274 M01S00046.ktsdmp +++|* EXAMPLE - 01275 M01S00047.ktsdmp +++|* LIBTASK(...,Z,...)XDDDDDXDDDDXDDD 01276 M01S00048.ktsdmp +++|* WHERE X IS ANY CHARACTER NOT IN D. 01277 M01S00049.ktsdmp +++|* D IS A LIBTASK DIRECTIVE. 01278 M01S00050.ktsdmp +++|* B - FILE CONTAINING BINARIES TO ADD TO TASK LIBRARY FILE. 01279 M01S00051.ktsdmp +++|* L - FILE CONTAINING LIST OF ACTIONS TAKEN. 01280 M01S00052.ktsdmp +++|* P - TASK LIBRARY FILE. 01281 M01S00053.ktsdmp +++|* N - NEW TASK LIBRARY FILE. 01282 M01S00054.ktsdmp +++|* CR - CREATE A NEW LIBRARY FILE. 01283 M01S00055.ktsdmp +++|* TT - SEND MESSAGE TO *TAF* TO READ NEW DIRECTORY. 01284 M01S00056.ktsdmp +++|* PR - PURGE OLD BINARIES AND DIRECTORIES. 01285 M01S00057.ktsdmp +++|* DA - DISABLE ATTACHES AND RETURNS. 01286 M01S00058.ktsdmp +++|* LO - LIST OPTION FOR TASKS/TRANSACTIONS AND ATTRIBUTES. 01287 M01S00059.ktsdmp +++|* TN - TASK OR TRANSACTION NAME USED IN CONJUNCTION WITH *LO*. 01288 M01S00060.ktsdmp +++|* 01289 M01S00061.ktsdmp +++|* DEFAULT PARAMETER SUBSTITUTION VALUES. 01290 M01S00062.ktsdmp +++|* 01291 M01S00063.ktsdmp +++|* EQUIVALENCED FIRST ALTERNATE 01292 M01S00064.ktsdmp +++|* PARAMETERS DEFAULT DEFAULT - COMMENT - 01293 M01S00065.ktsdmp +++|* 01294 M01S00066.ktsdmp +++|* I *INPUT* *COMPILE* 01295 M01S00067.ktsdmp +++|* B *LGOB* *LGO* TASK BINARY FILE. 01296 M01S00068.ktsdmp +++|* L *OUTPUT* *OUTPUT* OUTPUT FILE. 01297 M01S00069.ktsdmp +++|* P *TASKLIB* TASK LIBRARY FILE. 01298 M01S00070.ktsdmp +++|* N *SCRATCH* *TASKLIB* NEW TASK LIBRARY FILE. 01299 M01S00071.ktsdmp +++|* LO 0 *A* LIST OPTION. 01300 M01S00072.ktsdmp +++|* TN 0 0 TASK OR TRANSACTION NAME. 01301 M01S00073.ktsdmp +++|* 01302 M01S00074.ktsdmp +++|* SINGLE FIRST ALTERNATE 01303 M01S00075.ktsdmp +++|* PARAMETERS DEFAULT DEFAULT - COMMENT - 01304 M01S00076.ktsdmp +++|*
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01305 M02S00077.@000003 ---|* Z *NOT Z* *Z* DIRECTIVES FROM CONTROL CARD. 01306 M01S00003.@000003 +++|* Z *NOT Z* *Z* DIRECTIVES FROM COMMAND. 01307 M01S00078.ktsdmp +++|* CR *NOT CR* *CR* CREATE A NEW LIBRARY FILE. 01308 M01S00079.ktsdmp +++|* TT *NOT TT* *TT* TELL *TAF* ABOUT CHANGE. 01309 M01S00080.ktsdmp +++|* PR *NOT PR* *PR* PURGE OLD RECORDS 01310 M01S00081.ktsdmp +++|* DA *NOT DA* *DA* SKIP ATTACHES OF LIBRARY FILE 01311 M01S00082.ktsdmp +++| SPACE 4,45 01312 M01S00083.ktsdmp +++|*** DESCRIPTION OF PARAMETER OPTIONS. 01313 M01S00084.ktsdmp +++|* 01314 M01S00085.ktsdmp +++|* CR - THE CREATE OPTION IS USED TO CREATE A NEW TASK LIBRARY. 01315 M01S00086.ktsdmp +++|* IF *TAF* IS RUNNING BUT DOES NOT HAVE A FILE ATTACHED BY THE 01316 M01S00087.ktsdmp +++|* NEW TASK LIBRARY NAME, A CREATE MAY BE DONE. OTHERWISE, IT 01317 M01S00088.ktsdmp +++|* MAY NOT BE USED WHILE *TAF* IS RUNNING. THE *P* FILE MUST 01318 M01S00089.ktsdmp +++|* HAVE BEEN PREVIOUSLY DEFINED. LIBTASK READS ONE TASK 01319 M01S00090.ktsdmp +++|* AT A TIME FROM THE *B* FILE, CHECKS FOR AN INPUT DIRECTIVE 01320 M01S00091.ktsdmp +++|* FOR THE TASK, CONSTRUCTS A DIRECTORY ENTRY AND INSERTS THE 01321 M01S00092.ktsdmp +++|* ENTRY IN ALPHABETICAL ORDER IN THE LIBRARY DIRECTORY. THE 01322 M01S00093.ktsdmp +++|* DIRECTORY IS WRITTEN AT THE END OF THE LIBRARY. 01323 M01S00094.ktsdmp +++|* 01324 M01S00095.ktsdmp +++|* PR - THE PURGE OPTION IS USED TO REMOVE INACTIVE TASK 01325 M01S00096.ktsdmp +++|* BINARIES AND OLD DIRECTORIES FROM THE TASK LIBRARY. 01326 M01S00097.ktsdmp +++|* THIS OPTION MAY BE USED WHILE *TAF* IS RUNNING AND THE 01327 M01S00098.ktsdmp +++|* TASK LIBRARY TO BE PURGED IS NOT ATTACHED BY *TAF*. 01328 M01S00099.ktsdmp +++|* *LIBTASK* PROCESSES THE REPLACEMENT FILE *B* 01329 M01S00100.ktsdmp +++|* AND THE INPUT DIRECTIVES NORMALLY, COPIES THE 01330 M01S00101.ktsdmp +++|* ENTIRE LIBRARY TO A SCRATCH FILE, THEN TRANSFERS THE CURRENT 01331 M01S00102.ktsdmp +++|* BINARY FOR EACH TASK IN THE LIBRARY TO THE SCRATCH FILE. 01332 M01S00103.ktsdmp +++|* HOWEVER, IF THE *N* OPTION IS SPECIFIED, ONLY THE CURRENT 01333 M01S00104.ktsdmp +++|* BINARIES ARE TRANSFERRED DIRECTLY TO THE SCRATCH FILE, 01334 M01S00105.ktsdmp +++|* WHICH HAS BECOME THE NEWLY DEFINED TASK LIBRARY. THE 01335 M01S00106.ktsdmp +++|* DIRECTORY IS UPDATED AND WRITTEN AT THE END IN EACH CASE. 01336 M01S00107.ktsdmp +++|* THEREFORE, ONLY ONE COPY OF EACH TASK AND ONE DIRECTORY 01337 M01S00108.ktsdmp +++|* REMAINS IN THE LIBRARY. 01338 M01S00109.ktsdmp +++|* 01339 M01S00110.ktsdmp +++|* TT - THE TELL *TAF* OPTION IS USED TO INFORM *TAF* THAT A 01340 M01S00111.ktsdmp +++|* CHANGE HAS OCCURRED IN THE TASK LIBRARY WHEN A LIBTASK 01341 M01S00112.ktsdmp +++|* TAKES PLACE WHILE *TAF* IS RUNNING. THE PARAMETER HAS 01342 M01S00113.ktsdmp +++|* NO EFFECT IF *TAF* IS NOT RUNNING. NORMAL PROCESSING 01343 M01S00114.ktsdmp +++|* OCCURS, AFTER WHICH INTERCONTROL POINT COMMUNICATION IS USED 01344 M01S00115.ktsdmp +++|* TO INFORM *TAF* TO READ IN THE NEW DIRECTORY. 01345 M01S00116.ktsdmp +++|* 01346 M01S00117.ktsdmp +++|* DA - THE DISABLE ATTACH OPTION IS USED TO ALLOW A USER 01347 M01S00118.ktsdmp +++|* COMPLETE CONTROL OF HIS PERMANENT FILES. THIS OPTION 01348 M01S00119.ktsdmp +++|* DISABLES ALL ATTACHES AND RETURNS OF THE TASK LIBRARY FILES. 01349 M01S00120.ktsdmp +++|* THE EXCEPTION TO THIS IS IF THE *TT* OPTION IS ALSO 01350 M01S00121.ktsdmp +++|* SPECIFIED. LIBTASK WILL THEN RETURN THE TASK LIBRARY 01351 M01S00122.ktsdmp +++|* FILE SO THAT *TAF* MAY REATTACH THE FILE TO UPDATE ITS 01352 M01S00123.ktsdmp +++|* TABLES. 01353 M01S00124.ktsdmp +++|* 01354 M01S00125.ktsdmp +++|* LO - THE LIST OPTION PRODUCES A REPORT OF TASKS AND THEIR 01355 M01S00126.ktsdmp +++|* ATTRIBUTES, TRANSACTION NAMES WITH ATTRIBUTES AND NAMES 01356 M01S00127.ktsdmp +++|* OF MEMBER TASKS. WHEN LISTING TASK NAMES WITH TRANSACTION 01357 M01S00128.ktsdmp +++|* NAMES, THOSE TASKS WHICH DO NOT EXIST IN THE DATA BASE 01358 M01S00129.ktsdmp +++|* LIBRARY ARE FLAGGED. 01359 M01S00130.ktsdmp +++| SPACE 4,70 01360 M01S00131.ktsdmp +++|*** INPUT FILE DIRECTIVE FORMAT. 01361 M01S00132.ktsdmp +++|* 01362 M01S00133.ktsdmp +++|* 1. TASK DIRECTIVE. 01363 M01S00134.ktsdmp +++|* 01364 M01S00135.ktsdmp +++|* TO ENTER ALTERNATE VALUES FOR A TASK, A DIRECTIVE CARD MAY 01365 M01S00136.ktsdmp +++|* BE ENTERED IN THE DIRECTIVE FILE. 01366 M01S00137.ktsdmp +++|*
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01367 M02S00138.@000003 ---|* DIRECTORY CONTROL CARD FORMAT. 01368 M01S00004.@000003 +++|* DIRECTORY COMMAND FORMAT. 01369 M01S00139.ktsdmp +++|* 01370 M01S00140.ktsdmp +++|* *NAME P1,P2,,,PN. 01371 M01S00141.ktsdmp +++|* 01372 M01S00142.ktsdmp +++|* NAME = TASK NAME OF TASK ON FILE *B*. 01373 M01S00143.ktsdmp +++|* 01374 M01S00144.ktsdmp +++|* THE PARAMETERS P(I) MAY INCLUDE THE FOLLOWING (IN ANY ORDER) 01375 M01S00145.ktsdmp +++|* AND MUST BE IN ONE OF THE FORMS : 01376 M01S00146.ktsdmp +++|* 01377 M01S00147.ktsdmp +++|* * * - (NONE) ASSUME FIRST DEFAULT VALUE 01378 M01S00148.ktsdmp +++|* P - ASSUME ALTERNATE DEFAULT VALUE 01379 M01S00149.ktsdmp +++|* P=X - SUBSTITUTE *X* FOR ANY ASSUMED VALUE OF *P* 01380 M01S00150.ktsdmp +++|* 01381 M01S00151.ktsdmp +++|* BP - BEGINNING PRIORITY. 01382 M01S00152.ktsdmp +++|* MP - MAXIMUM PRIORITY (FUTURE USE). 01383 M01S00153.ktsdmp +++|* QL - QUEUE LIMIT. 01384 M01S00154.ktsdmp +++|* S - SYSTEM TASK. 01385 M01S00155.ktsdmp +++|* C - CORE RESIDENT. 01386 M01S00156.ktsdmp +++|* SC - COMMUNICATION BLOCK SOLICITED FLAG. 01387 M01S00157.ktsdmp +++|* D - DESTRUCTIVE CODE.
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01388 M02S00158.@000003 ---|* E - ECS RESIDENT (FUTURE USE). 01389 M01S00005.@000003 +++|* E - EXTENDED MEMORY RESIDENT (FUTURE USE). 01390 M01S00159.ktsdmp +++|* O - TASK ON/OFF. 01391 M01S00160.ktsdmp +++|* Q - QUEUING FORCED FOR ADDITIONAL ACTIVE COPIES OF TASK. 01392 M01S00161.ktsdmp +++|* R - REDUCE FL (CM RESIDENT TASK ONLY). 01393 M01S00162.ktsdmp +++|* 01394 M01S00163.ktsdmp +++|* EQUIVALENCED FIRST ALTERNATE 01395 M01S00164.ktsdmp +++|* PARAMETERS DEFAULT DEFAULT - COMMENT - 01396 M01S00165.ktsdmp +++|* 01397 M01S00166.ktsdmp +++|* BP 20B 25B BEGINNING TASK PRIORITY. 01398 M01S00167.ktsdmp +++|* EF 0 0 DEFAULT EXPANDABLE FL. 01399 M01S00168.ktsdmp +++|* MP 40B 50B MAXIMUM TASK PRIORITY. 01400 M01S00169.ktsdmp +++|* QL 3B 5B QUEUE LIMIT FOR A TASK. 01401 M01S00170.ktsdmp +++|* 01402 M01S00171.ktsdmp +++|* SINGLE FIRST ALTERNATE 01403 M01S00172.ktsdmp +++|* PARAMETERS DEFAULT DEFAULT - COMMENT - 01404 M01S00173.ktsdmp +++|* 01405 M01S00174.ktsdmp +++|* R 0 0 REDUCE FL 01406 M01S00175.ktsdmp +++|* S *NOT S* *S* SYSTEM TASK. 01407 M01S00176.ktsdmp +++|* C *DISK* *CORE* RESIDENCE OF TASK BINARY. 01408 M01S00177.ktsdmp +++|* D *NOT D* *D* DESTRUCTIVE CODE INDICATOR.
| Line S00178 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01409 M02S00178.@000003 ---|* E *NOT E* *E* ECS RESIDENT. 01410 M01S00006.@000003 +++|* E *NOT E* *E* EXTENDED MEMORY RESIDENT. 01411 M01S00179.ktsdmp +++|* O *ON* *OFF* TASK ON/OFF. 01412 M01S00180.ktsdmp +++|* DL *NOT DL* *DL* DELETE TASK. 01413 M01S00181.ktsdmp +++|* IG *NOT IG* *IG* IGNORE TASK. 01414 M01S00182.ktsdmp +++|* SC *NOT SC* *SC* COM. BLK. SOLICITED 01415 M01S00183.ktsdmp +++|* Q *NORMAL* *QUEUE* QUEUE FOR ADDITIONAL COPIES. 01416 M01S00184.ktsdmp +++|* 01417 M01S00185.ktsdmp +++|* 01418 M01S00186.ktsdmp +++|* 2. TRANSACTION DIRECTIVE. 01419 M01S00187.ktsdmp +++|* 01420 M01S00188.ktsdmp +++|* TO NAME A TRANSACTION AND SPECIFY TASKS COMPRISING THE NAMED 01421 M01S00189.ktsdmp +++|* TRANSACTION. TO SPECIFY DATA MANAGERS USED BY THE TRANSACTION 01422 M01S00190.ktsdmp +++|* AND SPECIFY THE RECOVERABLE ATTRIBUTE. 01423 M01S00191.ktsdmp +++|* 01424 M01S00192.ktsdmp +++|* DIRECTIVE FORMAT. 01425 M01S00193.ktsdmp +++|* 01426 M01S00194.ktsdmp +++|* /TNAME,T1=TSK1,T2=TSK2,T3=TSK3,T4=TSK4,T5=TSK5,RC,DM=DMID,DL. 01427 M01S00195.ktsdmp +++|* 01428 M01S00196.ktsdmp +++|* TNAME = 1-7 ALPHANUMERIC CHARACTER TRANSACTION UNIT NAME. 01429 M01S00197.ktsdmp +++|* TSK(I) = TASKS COMPRISING TRANSACTION. 01430 M01S00198.ktsdmp +++|* RC = TRANSACTION IS RECOVERABLE. 01431 M01S00199.ktsdmp +++|* DMID = DATA MANAGERS USED(C - *CRM*, D - *CDCS*, CD - BOTH) 01432 M01S00200.ktsdmp +++|* DL = DELETE NAMED TRANSACTION. 01433 M01S00201.ktsdmp +++| SPACE 4,10 01434 M01S00202.ktsdmp +++|*** DOCUMENTATION CONVENTIONS. 01435 M01S00203.ktsdmp +++|*
| Line S00204 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01436 M02S00204.@000003 ---|* B FILE NAME DENOTED BY CONTROL STATEMENT *B* PARAMETER.
| Line S00205 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01437 M02S00205.@000003 ---|* N FILE NAME DENOTED BY CONTROL STATEMENT *N* PARAMETER.
| Line S00206 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01438 M02S00206.@000003 ---|* P FILE NAME DENOTED BY CONTROL STATEMENT *P* PARAMETER. 01439 M01S00007.@000003 +++|* B FILE NAME DENOTED BY COMMAND *B* PARAMETER. 01440 M01S00008.@000003 +++|* N FILE NAME DENOTED BY COMMAND *N* PARAMETER. 01441 M01S00009.@000003 +++|* P FILE NAME DENOTED BY COMMAND *P* PARAMETER. 01442 M01S00207.ktsdmp +++|* TLD TASK LIBRARY DIRECTORY. 01443 M01S00208.ktsdmp +++|* TRD TRANSACTION DIRECTORY. 01444 M01S00209.ktsdmp +++| SPACE 4,10 01445 M01S00210.ktsdmp +++|*** DAYFILE MESSAGES. 01446 M01S00211.ktsdmp +++|* 01447 M01S00212.ktsdmp +++|* ERRA BINARY RECORD WAS LESS THAN 640 WORDS LONG. 01448 M01S00213.ktsdmp +++|* ERRB BINARY RECORD WAS NETHER ABSOLUTE NOR OVERLAY FORMAT.
| Line S00214 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01449 M02S00214.@000003 ---|* PRSB CONTROL CARD ARGUMENT ERRORS. 01450 M01S00010.@000003 +++|* PRSB LIBTASK COMMAND ARGUMENT ERRORS. 01451 M01S00215.ktsdmp +++|* ERCB CONFLICTING LIBTASK OPTIONS - CR, PR. 01452 M01S00216.ktsdmp +++|* ERCC CONFLICTING LIBTASK OPTIONS - CR, TT. 01453 M01S00217.ktsdmp +++|* ERCD CONFLICTING LIBTASK OPTIONS - PR, TT. 01454 M01S00218.ktsdmp +++|* ERCF CONFLICTING LIBTASK OPTIONS - P=0, -N. 01455 M01S00219.ktsdmp +++|* ERCH CONFLICTING LIBTASK OPTIONS - TT, N. 01456 M01S00220.ktsdmp +++|* INPB DIRECTIVE ERRORS. 01457 M01S00221.ktsdmp +++|* ERRF DIRECTORY IS FULL - NO MORE ADDITIONS ALLOWED. 01458 M01S00222.ktsdmp +++|* LIBK FILE NOT ATTACHED - LFN.
| Line S00223 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01459 M02S00223.@000003 ---|* ERRD ILLEGAL FWA FOR LOAD. 01460 M01S00011.@000003 +++|* ERRD INCORRECT FWA FOR LOAD. 01461 M01S00224.ktsdmp +++|* ATTD LIBRARY FILE TIME OUT. 01462 M01S00225.ktsdmp +++|* ERRE LIBTASK ERROR CONDITION UNKNOWN. 01463 M01S00226.ktsdmp +++|* LIBJ LIBTASK ERRORS. 01464 M01S00227.ktsdmp +++|* ATTE LIBTASK - PFM ERROR DETECTED. 01465 M01S00228.ktsdmp +++|* TOVA TABLE OVERFLOW - TOO MANY TASKS. 01466 M01S00229.ktsdmp +++|* LIBF TASK EDITING COMPLETE. 01467 M01S00230.ktsdmp +++|* PRSD TASK LIBRARY DIRECTORY EMPTY. 01468 M01S00231.ktsdmp +++|* PRSE TASK LIBRARY DIRECTORY ERROR. 01469 M01S00232.ktsdmp +++|* PRSC TASK LIBRARY DIRECTORY TOO LONG. 01470 M01S00233.ktsdmp +++|* ERCO TASKLIB MUST NOT START WITH THE LETTER Z. 01471 M01S00234.ktsdmp +++|* ERCL TN REQUIRES EITHER LO=T OR LO=X.
| Line S00235 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01472 M02S00235.@000003 ---|* PRSF TT OPTION REQUIRES USER NUMBER. 01473 M01S00012.@000003 +++|* PRSF TT OPTION REQUIRES USER NAME. 01474 M01S00236.ktsdmp +++|* PRSG TRANSACTION DIRECTORY EMPTY. 01475 M01S00237.ktsdmp +++|* PRSH TRANSACTION DIRECTORY TOO LONG. 01476 M01S00238.ktsdmp +++|* PRSI TRANSACTION DIRECTORY ERROR. 01477 M01S00002.@000006 +++|* PRSJ USER NOT VALIDATED FOR ONLINE TASK LIBRARY UPDATES. 01478 M01S00239.ktsdmp +++|* ERCM VALID LO OPTIONS ARE LO, LO=A, LO=T OR LO=X. 01479 M01S00240.ktsdmp +++|* PLOG XXXXXXX NOT IN DIRECTORY. 01480 M01S00241.ktsdmp +++| SPACE 4,10 01481 M01S00242.ktsdmp +++| QUAL$ EQU 0 PROGRAM WILL HANDLE QUAL 01482 M01S00243.ktsdmp +++|*CALL COMCMAC 01483 M01S00244.ktsdmp +++|*CALL COMCMTM 01484 M01S00245.ktsdmp +++| LIST X 01485 M01S00246.ktsdmp +++|*CALL COMKFLD 01486 M01S00247.ktsdmp +++|*CALL COMKTLD 01487 M01S00248.ktsdmp +++| LIST -X 01488 M01S00003.@000006 +++|*CALL COMSPRD 01489 M01S00249.ktsdmp +++|*CALL COMSSSD 01490 M01S00004.@000006 +++|*CALL COMSSSJ 01491 M01S00250.ktsdmp +++|
| Line S00251 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000006 |
Seq # *Modification Id* Act ----------------------------+ 01492 M02S00251.@000006 ---| ORG 103B 01493 M01S00005.@000006 +++| ORG 104B 01494 M01S00252.ktsdmp +++| FETS TITLE FETS AND DATA STORAGE. 01495 M01S00253.ktsdmp +++| FETS BSS 0 01496 M01S00254.ktsdmp +++| 01497 M01S00255.ktsdmp +++| I BSS 0 01498 M01S00256.ktsdmp +++| INPUT FILEB IBUF,IBUFL,FET=7 DIRECTIVE INPUT FILE 01499 M01S00257.ktsdmp +++| 01500 M01S00258.ktsdmp +++| B BSS 0 01501 M01S00259.ktsdmp +++| LGOB FILEB BBUF,BBUFL TASK BINARY FILE 01502 M01S00260.ktsdmp +++| 01503 M01S00261.ktsdmp +++| O BSS 0 01504 M01S00262.ktsdmp +++| OUTPUT FILEC OBUF,OBUFL OUTPUT FILE 01505 M01S00263.ktsdmp +++| 01506 M01S00264.ktsdmp +++| P BSS 0 01507 M01S00265.ktsdmp +++| TASKLIB RFILEB PBUF,PBUFL,EPR,FET=11 TASK LIBRARY FILE 01508 M01S00266.ktsdmp +++| 01509 M01S00267.ktsdmp +++| SF BSS 0 01510 M01S00268.ktsdmp +++| N BSS 0 01511 M01S00269.ktsdmp +++| SCRATCH RFILEB SBUF,SBUFL,EPR,FET=11 NEW/SCRATCH LIBRARY FILE 01512 M01S00270.ktsdmp +++| 01513 M01S00271.ktsdmp +++| LATLD BSS 1 ACTUAL LWA OF TLD 01514 M01S00272.ktsdmp +++| LWTLD BSS 1 CURRENT LWA OF TLD 01515 M01S00273.ktsdmp +++| LWOLD BSS 1 LWA OF BASE TLD FOR RUNNING SYSTEM 01516 M01S00274.ktsdmp +++| TSKDI BSS 1 TASK DISK INDEX 01517 M01S00275.ktsdmp +++| TSKNM BSS 1 TASK NAME 01518 M01S00276.ktsdmp +++| TSKNE BSS 1 TASK NAME AND ENTRY POINT 01519 M01S00277.ktsdmp +++| TSKFL BSS 1 TASK FIELD LENGTH 01520 M01S00278.ktsdmp +++| EOFF CON 0 END OF BINARY FILE FLAG 01521 M01S00279.ktsdmp +++| BFEF CON 0 BINARY FILE ERROR FLAG 01522 M01S00280.ktsdmp +++| FSLT BSS 1 FREE SPACE LEFT IN TLD 01523 M01S00281.ktsdmp +++| CRES CON 0 CORE RESIDENT TASK COUNT 01524 M01S00282.ktsdmp +++| 01525 M01S00283.ktsdmp +++| LATRD CON 0 LWA OF TRD BEFORE SORT 01526 M01S00284.ktsdmp +++| LWTRD CON 0 LWA OF TRD 01527 M01S00285.ktsdmp +++| FSTR CON 0 FREE SPACE LEFT IN TRD 01528 M01S00286.ktsdmp +++| MTRD CON 0 TRD UPDATED FLAG 01529 M01S00287.ktsdmp +++| TRDE CON 0 TRD EXISTS FLAG 01530 M01S00288.ktsdmp +++|
| Line S00289 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01531 M02S00289.@000003 ---| Z CON 0 TO TAKE DIRECTIVES FROM CONTROL STATEMENT 01532 M01S00013.@000003 +++| Z CON 0 TO TAKE DIRECTIVES FROM CONTROL COMMAND 01533 M01S00290.ktsdmp +++| PR CON 0 TO PURGE OLD COPIES 01534 M01S00291.ktsdmp +++| CR CON 0 TO CREATE A LIBRARY FILE OR NOT TO CREATE 01535 M01S00292.ktsdmp +++| TT CON 0 TELL *TAF* ABOUT NEW DIRECTORY 01536 M01S00293.ktsdmp +++| DA CON 0 DISABLE ATTACH AND RETURN 01537 M01S00294.ktsdmp +++| AT CON 0 ATTACHED BY *TAF* FLAG 01538 M01S00295.ktsdmp +++| PN CON 0 FILE *F* AND *N* NOT EQUAL FLAG 01539 M01S00296.ktsdmp +++| LO CON 0 LIST OPTION 01540 M01S00297.ktsdmp +++| XTN CON 0 TASK OR TRANSACTION UNIT NAME FOR *LO* 01541 M01S00298.ktsdmp +++| 01542 M01S00299.ktsdmp +++| FWLD EQU 111B FWA OF SINGLE ENTRY POINT PROGRAM 01543 M01S00300.ktsdmp +++| RECN CON 0 RECORDS READ FROM BINARY FILE 01544 M01S00301.ktsdmp +++| CBP EQU 3533B DEFAULT BEGINNING TASK PRIORITY 01545 M01S00302.ktsdmp +++| ABP EQU 3540B ALTERNATE BEGINNING TASK PRIORITY 01546 M01S00303.ktsdmp +++| MNBP EQU 10B MINIMUM BEGINNING PRIORITY 01547 M01S00304.ktsdmp +++| MXBP EQU 70B MAXIMUM BEGINNING PRIORITY 01548 M01S00305.ktsdmp +++| CMP EQU 3733B DEFAULT MAXIMUM TASK PRIORITY 01549 M01S00306.ktsdmp +++| AMP EQU 4033B ALTERNATE MAXIMUM TASK PRIORITY 01550 M01S00307.ktsdmp +++| MNMP EQU 10B MINIMUM MAXIMUM PRIORITY 01551 M01S00308.ktsdmp +++| MXMP EQU 70B MAXIMUM MAXIMUM PRIORITY 01552 M01S00309.ktsdmp +++| CQL EQU 3336B DEFAULT TASK QUEUE LIMIT 01553 M01S00310.ktsdmp +++| AQL EQU 3340B ALTERNATE TASK QUEUE LIMIT 01554 M01S00311.ktsdmp +++| MINQL EQU 1 MINIMUM QUEUE LIMIT 01555 M01S00312.ktsdmp +++| MAXQL EQU 5 MAXIMUM QUEUE LIMIT 01556 M01S00313.ktsdmp +++| EFL EQU 0 DEFAULT EXPANDABLE FIELD LENGTH BY TASK 01557 M01S00314.ktsdmp +++| MAXEF EQU 300000B MAXIMUM EXPANDABLE FL 01558 M01S00315.ktsdmp +++| CC EQU 0 DEFAULT CORE RESIDENCE VALUE 01559 M01S00316.ktsdmp +++| CD EQU 1 DEFAULT FOR DESTRUCTIVE TASKS 01560 M01S00317.ktsdmp +++| CS EQU 0 DEFAULT SYSTEM TASK INDICATOR 01561 M01S00318.ktsdmp +++| CO EQU 0 DEFAULT ON/OFF INDICATOR 01562 M01S00319.ktsdmp +++| CE EQU 0 DEFAULT ECS RESIDENCE INDICATOR 01563 M01S00320.ktsdmp +++| CDL EQU 0 DEFAULT DELETE DIRECTORY 01564 M01S00321.ktsdmp +++| CQ EQU 0 DEFAULT QUEUING CONTROL 01565 M01S00322.ktsdmp +++| CRE EQU 0 DEFAULT REDUCE FL 01566 M01S00323.ktsdmp +++| TLQUSM DECMIC TLQUS 01567 M01S00324.ktsdmp +++| MLQU EQU 1S"TLQUSM" MULTIPLIER OF *CQ* 01568 M01S00325.ktsdmp +++| BP VFD 12/CBP,48/0 BEGINNING PRIORITY FOR A TASK 01569 M01S00326.ktsdmp +++| MP VFD 12/CMP,48/0 MAXIMUM TASK PRIORITY 01570 M01S00327.ktsdmp +++| EF CON EFL EXPANDABLE FIELD LENGTH BY TASK 01571 M01S00328.ktsdmp +++| QL VFD 12/CQL,48/0 TASK QUEUE LIMIT 01572 M01S00329.ktsdmp +++| C CON CC*10B CORE RESIDENT DIRECTORY INFORMATION 01573 M01S00330.ktsdmp +++| D CON CD*20B DESTRUCTIVE CODE DIRECTORY INFORMATION 01574 M01S00331.ktsdmp +++| S CON CS*40B SYSTEM TASK DIRECTORY INFORMATION 01575 M01S00332.ktsdmp +++| OO CON CO*02B ON/OFF BIT
| Line S00333 Modification History | |
|---|---|
M01 (Added by) | ktsdmp |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01576 M02S00333.@000003 ---| E CON CE*04B ECS RESIDENT BIT 01577 M01S00014.@000003 +++| E CON CE*04B EXTENDED MEMORY RESIDENT BIT 01578 M01S00334.ktsdmp +++| DL CON CDL*01B DELETE BIT 01579 M01S00335.ktsdmp +++| Q CON CQ*MLQU QUEUING CONTROL BIT 01580 M01S00336.ktsdmp +++| R CON CRE REDUCE FL FLAG 01581 M01S00337.ktsdmp +++| IG CON 0 IGNORE TASK 01582 M01S00338.ktsdmp +++| SC CON 0 SOLICITED FLAG 01583 M01S00339.ktsdmp +++| 01584 M01S00340.ktsdmp +++| TSK1 CON 0 TASK 1 01585 M01S00341.ktsdmp +++| TSK2 CON 0 TASK 2 01586 M01S00342.ktsdmp +++| TSK3 CON 0 TASK 3 01587 M01S00343.ktsdmp +++| TSK4 CON 0 TASK 4 01588 M01S00344.ktsdmp +++| TSK5 CON 0 TASK 5 01589 M01S00345.ktsdmp +++| RC CON 0 RECOVER TRANSACTION 01590 M01S00346.ktsdmp +++| DM CON 0 DATA MANAGER(S) USED 01591 M01S00347.ktsdmp +++| TDL CON 0 DELETE TRANSACTION 01592 M01S00348.ktsdmp +++| 01593 M01S00349.ktsdmp +++| JOBORG BSS 1 JOB ORIGIN CODE 01594 M01S00350.ktsdmp +++| ENDH CON 10H0LAST MODI 01595 M01S00351.ktsdmp +++| CON 10HFICATION 01596 M01S00352.ktsdmp +++| CON 10H - 01597 M01S00353.ktsdmp +++| LAST BSSZ 3 01598 M01S00354.ktsdmp +++| ENDHL EQU *-ENDH 01599 M01S00355.ktsdmp +++| 01600 M01S00356.ktsdmp +++| 01601 M01S00357.ktsdmp +++| LREC TABLE TASKS ON TASK LIBRARY 01602 M01S00358.ktsdmp +++| 01603 M01S00359.ktsdmp +++| RREC TABLE RECORDS REPLACED TABLE 01604 M01S00360.ktsdmp +++| 01605 M01S00361.ktsdmp +++| IREC TABLE RECORDS INSERTED TABLE 01606 M01S00362.ktsdmp +++| 01607 M01S00363.ktsdmp +++| DRTC TABLE INPUT DIRECTIVES 01608 M01S00364.ktsdmp +++| 01609 M01S00365.ktsdmp +++| TDCH TABLE DIRECTIVES CHANGED TABLE 01610 M01S00366.ktsdmp +++| 01611 M01S00367.ktsdmp +++| TDRC TABLE DIRECTIVES CHANGED 01612 M01S00368.ktsdmp +++| 01613 M01S00369.ktsdmp +++| TDIG TABLE IGNORE TASK 01614 M01S00370.ktsdmp +++| 01615 M01S00371.ktsdmp +++| TTIN TABLE TRANSACTION UNITS INSERTED 01616 M01S00372.ktsdmp +++| 01617 M01S00373.ktsdmp +++| TTCN TABLE TRANSACTION UNITS CHANGED 01618 M01S00374.ktsdmp +++| 01619 M01S00375.ktsdmp +++| TTNE TABLE TRANSACTION UNITS WITH NONEXISTENT TASKS 01620 M01S00006.@000006 +++| 01621 M01S00007.@000006 +++| SSJ= BSS 0 SPECIAL SYSTEM JOB PARAMETER BLOCK 01622 M01S00008.@000006 +++| VFD 36/0,12/LTCS,12/UJSI 01623 M01S00009.@000006 +++| BSSZ SSJL-1 01624 M01S00376.ktsdmp +++| LIB TITLE MAIN PROGRAM. 01625 M01S00377.ktsdmp +++|** LIB - LIBTASK MAIN PROGRAM. 01626 M01S00378.ktsdmp +++|* 01627 M01S00379.ktsdmp +++|* LIB READS THE BINARIES AND BUILDS NEW ENTRIES 01628 M01S00380.ktsdmp +++|* AT THE END OF THE LIBRARY FILE. ONE BINARY RECORD (TASK) AT 01629 M01S00381.ktsdmp +++|* A TIME IS READ FROM THE B FILE AND WRITTEN ON THE P FILE. A 01630 M01S00382.ktsdmp +++|* NEW DIRECTORY ENTRY IS CREATED IF THIS IS A NEW TASK, OR THE 01631 M01S00383.ktsdmp +++|* EXISTING ENTRY IS UPDATED. IF THE CR OPTION IS SET, THE 01632 M01S00384.ktsdmp +++|* DIRECTORY ENTRIES ARE ARRANGED ALPHABETICALLY, ELSE NEW 01633 M01S00385.ktsdmp +++|* ENTRIES ARE ADDED AT THE END OF THE DIRECTORY. 01634 M01S00386.ktsdmp +++|* THE STORAGE AREAS OF *PRS* AND RELATED ROUTINES ARE USED 01635 M01S00387.ktsdmp +++|* FOR TASK LIBRARY DIRECTORY RESIDENT AFTER *PRS* IS CALLED. 01636 M01S00388.ktsdmp +++| 01637 M01S00389.ktsdmp +++| 01638 M01S00390.ktsdmp +++| LIBTASK RJ PRS INITIALIZE LIBTASK 01639 M01S00391.ktsdmp +++| 01640 M01S00392.ktsdmp +++|* CHECK CREATION RUN. 01641 M01S00393.ktsdmp +++| 01642 M01S00394.ktsdmp +++| SA1 B 01643 M01S00395.ktsdmp +++| ZR X1,LIB0 IF NO BINARY FILE 01644 M01S00396.ktsdmp +++| REWIND B,R 01645 M01S00397.ktsdmp +++| READ B INITIATE READ 01646 M01S00398.ktsdmp +++| LIB0 SA1 CR 01647 M01S00399.ktsdmp +++| SA2 PR 01648 M01S00400.ktsdmp +++| ZR X1,LIB1 IF NOT A CREATION RUN 01649 M01S00401.ktsdmp +++| RJ PCR CREATE A NEW LIBRARY 01650 M01S00402.ktsdmp +++| EQ LIB4 PROCESS OUTPUT 01651 M01S00403.ktsdmp +++| 01652 M01S00404.ktsdmp +++|* CHECK PURGE RUN. 01653 M01S00405.ktsdmp +++| 01654 M01S00406.ktsdmp +++| LIB1 SA3 TT 01655 M01S00407.ktsdmp +++| ZR X2,LIB2 IF NOT A PURGE RUN 01656 M01S00408.ktsdmp +++| RJ PIT PURGE INACTIVE TASKS 01657 M01S00409.ktsdmp +++| EQ LIB4 PROCESS OUTPUT 01658 M01S00410.ktsdmp +++| 01659 M01S00411.ktsdmp +++|* CHECK TELL *TAF* RUN. 01660 M01S00412.ktsdmp +++| 01661 M01S00413.ktsdmp +++| LIB2 ZR X3,LIB3 IF NOT A TELL *TAF* RUN 01662 M01S00414.ktsdmp +++| RJ PTT TELL *TAF* 01663 M01S00415.ktsdmp +++| EQ LIB4 PROCESS OUTPUT 01664 M01S00416.ktsdmp +++| 01665 M01S00417.ktsdmp +++| LIB3 RJ PNP PROCESS NO PARAMETERS 01666 M01S00418.ktsdmp +++| LIB4 SA1 JOBORG 01667 M01S00419.ktsdmp +++| ZR X1,LIB5 IF INTERACTIVE INPUT 01668 M01S00420.ktsdmp +++| SA1 L.LREC 01669 M01S00421.ktsdmp +++| ZR X1,LIB5 IF NO TASKS ON OLD DIRECTORY 01670 M01S00422.ktsdmp +++| 01671 M01S00423.ktsdmp +++|* WRITE NAMES OF TASKS ON OLD DIRECTORY. 01672 M01S00424.ktsdmp +++| 01673 M01S00425.ktsdmp +++| WRITEW O,LIBE,LIBEL 01674 M01S00426.ktsdmp +++| SX2 2 01675 M01S00427.ktsdmp +++| RJ ALC ADVANCE LINE COUNT 01676 M01S00428.ktsdmp +++| SA1 F.LREC START OF NAMES 01677 M01S00429.ktsdmp +++| SA5 L.LREC COUNT OF NAMES 01678 M01S00430.ktsdmp +++| SB7 X1 01679 M01S00431.ktsdmp +++| SX1 X5 01680 M01S00432.ktsdmp +++| RJ /COMCSST/SST SORT TABLE 01681 M01S00433.ktsdmp +++| SA1 F.LREC START OF NAMES 01682 M01S00434.ktsdmp +++| RJ LRL LIST RECORD LIST 01683 M01S00435.ktsdmp +++| LIB5 SA1 L.IREC 01684 M01S00436.ktsdmp +++| ZR X1,LIB6 IF NO RECORDS INSERTED 01685 M01S00437.ktsdmp +++| 01686 M01S00438.ktsdmp +++|* WRITE NAMES OF RECORDS INSERTED. 01687 M01S00439.ktsdmp +++| 01688 M01S00440.ktsdmp +++| WRITEW O,LIBC,LIBCL 01689 M01S00441.ktsdmp +++| SX2 2 01690 M01S00442.ktsdmp +++| RJ ALC ADVANCE LINE COUNT 01691 M01S00443.ktsdmp +++| SA1 F.IREC START OF INSERTED RECORD NAMES 01692 M01S00444.ktsdmp +++| SA5 L.IREC COUNT OF INSERTED RECORD NAMES 01693 M01S00445.ktsdmp +++| SB7 X1 01694 M01S00446.ktsdmp +++| SX1 X5 01695 M01S00447.ktsdmp +++| RJ /COMCSST/SST SORT TABLE 01696 M01S00448.ktsdmp +++| SA1 F.IREC START OF INSERTED RECORD NAMES 01697 M01S00449.ktsdmp +++| RJ LRL LIST RECORD LIST 01698 M01S00450.ktsdmp +++| LIB6 SA1 L.RREC 01699 M01S00451.ktsdmp +++| ZR X1,LIB7 IF NO RECORDS REPLACED 01700 M01S00452.ktsdmp +++| 01701 M01S00453.ktsdmp +++|* WRITE NAMES OF RECORDS REPLACED. 01702 M01S00454.ktsdmp +++| 01703 M01S00455.ktsdmp +++| WRITEW O,LIBD,LIBDL 01704 M01S00456.ktsdmp +++| SX2 2 01705 M01S00457.ktsdmp +++| RJ ALC ADVANCE LINE COUNT 01706 M01S00458.ktsdmp +++| SA1 F.RREC START OF REPLACED RECORD NAMES 01707 M01S00459.ktsdmp +++| SA5 L.RREC COUNT OF RECORD NAMES 01708 M01S00460.ktsdmp +++| SB7 X1 01709 M01S00461.ktsdmp +++| SX1 X5 01710 M01S00462.ktsdmp +++| RJ /COMCSST/SST SORT TABLE 01711 M01S00463.ktsdmp +++| SA1 F.RREC START OF REPLACED RECORD NAMES 01712 M01S00464.ktsdmp +++| RJ LRL LIST RECORD LIST 01713 M01S00465.ktsdmp +++| LIB7 SA1 L.TDRC 01714 M01S00466.ktsdmp +++| ZR X1,LIB8 IF NO DIRECTIVES CHANGED 01715 M01S00467.ktsdmp +++| 01716 M01S00468.ktsdmp +++|* WRITE NAMES OF DIRECTIVES CHANGED. 01717 M01S00469.ktsdmp +++| 01718 M01S00470.ktsdmp +++| WRITEW O,LIBL,LIBLL 01719 M01S00471.ktsdmp +++| SX2 2 01720 M01S00472.ktsdmp +++| RJ ALC ADVANCE LINE COUNT 01721 M01S00473.ktsdmp +++| SA1 F.TDRC START OF DIRECTIVE CHANGE NAMES 01722 M01S00474.ktsdmp +++| SA5 L.TDRC COUNT OF NAMES 01723 M01S00475.ktsdmp +++| SB7 X1 01724 M01S00476.ktsdmp +++| SX1 X5 01725 M01S00477.ktsdmp +++| RJ /COMCSST/SST SORT TABLE 01726 M01S00478.ktsdmp +++| SA1 F.TDRC START OF DIRECTIVE CHANGE NAMES 01727 M01S00479.ktsdmp +++| RJ LRL LIST RECORD LIST 01728 M01S00480.ktsdmp +++| LIB8 SA1 L.TTIN 01729 M01S00481.ktsdmp +++| ZR X1,LIB9 IF NO TRANSACTION UNITS INSERTED 01730 M01S00482.ktsdmp +++| 01731 M01S00483.ktsdmp +++|* WRITE NAMES OF TRANSACTION UNITS INSERTED. 01732 M01S00484.ktsdmp +++| 01733 M01S00485.ktsdmp +++| WRITEW O,LIBN,LIBNL 01734 M01S00486.ktsdmp +++| SX2 2 01735 M01S00487.ktsdmp +++| RJ ALC ADVANCE LINE COUNT 01736 M01S00488.ktsdmp +++| SB2 B1 WORDS PER ENTRY 01737 M01S00489.ktsdmp +++| SA1 F.TTIN 01738 M01S00490.ktsdmp +++| SB6 X1 FWA OF TABLE 01739 M01S00491.ktsdmp +++| SA1 L.TTIN LENGTH OF TABLE 01740 M01S00492.ktsdmp +++| SB3 LIBQ TEMPORARY BUFFER 01741 M01S00493.ktsdmp +++| MX0 42 MASK 01742 M01S00494.ktsdmp +++| RJ SSR SORT TABLE 01743 M01S00495.ktsdmp +++| SA1 F.TTIN 01744 M01S00496.ktsdmp +++| SA5 L.TTIN 01745 M01S00497.ktsdmp +++| RJ LRL LIST RECORD LIST 01746 M01S00498.ktsdmp +++| LIB9 SA1 L.TTCN 01747 M01S00499.ktsdmp +++| ZR X1,LIB10 IF NO TRANSACTION UNITS CHANGED 01748 M01S00500.ktsdmp +++| 01749 M01S00501.ktsdmp +++|* WRITE NAMES OF TRANSACTION UNITS CHANGED. 01750 M01S00502.ktsdmp +++| 01751 M01S00503.ktsdmp +++| WRITEW O,LIBO,LIBOL 01752 M01S00504.ktsdmp +++| SX2 2 01753 M01S00505.ktsdmp +++| RJ ALC ADVANCE LINE COUNT 01754 M01S00506.ktsdmp +++| SB2 B1 WORDS PER ENTRY 01755 M01S00507.ktsdmp +++| SA1 F.TTCN 01756 M01S00508.ktsdmp +++| SB6 X1 FWA OF TABLE 01757 M01S00509.ktsdmp +++| SA1 L.TTCN LENGTH OF TABLE 01758 M01S00510.ktsdmp +++| SB3 LIBQ TEMPORARY BUFFER 01759 M01S00511.ktsdmp +++| MX0 42 MASK 01760 M01S00512.ktsdmp +++| RJ SSR SORT TABLE 01761 M01S00513.ktsdmp +++| SA1 F.TTCN 01762 M01S00514.ktsdmp +++| SA5 L.TTCN 01763 M01S00515.ktsdmp +++| RJ LRL LIST RECORD LIST 01764 M01S00516.ktsdmp +++| LIB10 SA1 L.TTNE 01765 M01S00517.ktsdmp +++| ZR X1,LIB11 IF NO TRANSACTION UNITS WITH NONEXISTENT 01766 M01S00518.ktsdmp +++| 01767 M01S00519.ktsdmp +++|* WRITE NAMES OF TRANSACTION UNITS WITH NONEXISTENT TASKS. 01768 M01S00520.ktsdmp +++| 01769 M01S00521.ktsdmp +++| WRITEW O,LIBP,LIBPL 01770 M01S00522.ktsdmp +++| SX2 2 01771 M01S00523.ktsdmp +++| RJ ALC ADVANCE LINE COUNT 01772 M01S00524.ktsdmp +++| SB2 B1 WORDS PER ENTRY 01773 M01S00525.ktsdmp +++| SA1 F.TTNE 01774 M01S00526.ktsdmp +++| SB6 X1 FWA OF TABLE 01775 M01S00527.ktsdmp +++| SA1 L.TTNE LENGTH OF TABLE 01776 M01S00528.ktsdmp +++| SB3 LIBQ TEMPORARY BUFFER 01777 M01S00529.ktsdmp +++| MX0 42 MASK 01778 M01S00530.ktsdmp +++| RJ SSR SORT TABLE 01779 M01S00531.ktsdmp +++| SA1 F.TTNE 01780 M01S00532.ktsdmp +++| SA5 L.TTNE 01781 M01S00533.ktsdmp +++| RJ LRL LIST RECORD LIST 01782 M01S00534.ktsdmp +++| 01783 M01S00535.ktsdmp +++|* PROCESS LIST OPTION IF USED. 01784 M01S00536.ktsdmp +++| 01785 M01S00537.ktsdmp +++| LIB11 SA1 LO 01786 M01S00538.ktsdmp +++| ZR X1,LIB12 IF NO *LO* OPTION 01787 M01S00539.ktsdmp +++| RJ PLO PROCESS LIST OPTION 01788 M01S00540.ktsdmp +++| 01789 M01S00541.ktsdmp +++|* WRITE TIME AND DATE OF MOST RECENT LIBRARY MODIFICATION. 01790 M01S00542.ktsdmp +++| 01791 M01S00543.ktsdmp +++| LIB12 SA1 RECN 01792 M01S00544.ktsdmp +++| NZ X1,LIB13 IF *B* FILE USED 01793 M01S00545.ktsdmp +++| SA1 TLDHD PLACE DIRECTORY DATE IN OUTPUT LINE 01794 M01S00546.ktsdmp +++| BX6 X1 01795 M01S00547.ktsdmp +++| SA6 LAST 01796 M01S00548.ktsdmp +++| SA1 TLDHT PLACE DIRECTORY TIME IN OUTPUT LINE 01797 M01S00549.ktsdmp +++| BX6 X1 01798 M01S00550.ktsdmp +++| SA6 LAST+1 01799 M01S00551.ktsdmp +++| LIB13 WRITEW O,ENDH,ENDHL WRITE DATE AND TIME OF LAST MODIFICATION 01800 M01S00552.ktsdmp +++| WRITER O FLUSH OUTPUT FILE 01801 M01S00010.@000006 +++| SETFS O,0 PREVENT RETURN OF OUTPUT FILE 01802 M01S00553.ktsdmp +++| SA1 BFEF 01803 M01S00554.ktsdmp +++| ZR X1,LIB14 IF NO ERRORS ON *B* OR *PLO* 01804 M01S00555.ktsdmp +++| MESSAGE LIBJ * LIBTASK ERRORS.* 01805 M01S00556.ktsdmp +++| ABORT 01806 M01S00557.ktsdmp +++| 01807 M01S00558.ktsdmp +++| LIB14 MESSAGE LIBF * TASK EDITING COMPLETE.* 01808 M01S00559.ktsdmp +++| ENDRUN 01809 M01S00560.ktsdmp +++| 01810 M01S00561.ktsdmp +++|* TLD VALUES FOR CURRENT TASK. 01811 M01S00562.ktsdmp +++| 01812 M01S00563.ktsdmp +++| LIBA VFD 48/0,6/0,6/0 WORD 2 OF TLD 01813 M01S00564.ktsdmp +++| VFD 1/CS,1/CD,1/CC,3/0,18/0,18/0,18/0 01814 M01S00565.ktsdmp +++| 01815 M01S00566.ktsdmp +++|* DEFAULT VALUES FOR ALL TASKS. 01816 M01S00567.ktsdmp +++| 01817 M01S00568.ktsdmp +++| LIBB VFD 48/0,6/0,6/0 WORD 2 OF TLD 01818 M01S00569.ktsdmp +++| VFD 1/CS,1/CD,1/CC,3/0,18/0,18/0,18/0 01819 M01S00570.ktsdmp +++| LIBC DATA C* RECORDS INSERTED INTO LIBRARY FILE - * 01820 M01S00571.ktsdmp +++| LIBCL EQU *-LIBC 01821 M01S00572.ktsdmp +++| LIBD DATA C* RECORDS REPLACED IN LIBRARY FILE - * 01822 M01S00573.ktsdmp +++| LIBDL EQU *-LIBD 01823 M01S00574.ktsdmp +++| LIBE DATA C* RECORDS ON OLD TASK LIBRARY FILE - * 01824 M01S00575.ktsdmp +++| CON 8L 01825 M01S00576.ktsdmp +++| LIBEL EQU *-LIBE 01826 M01S00577.ktsdmp +++| LIBF DATA C* TASK EDITING COMPLETE.* 01827 M01S00578.ktsdmp +++| LIBG DATA C* COPYING * 01828 M01S00579.ktsdmp +++| LIBH VFD 18/0,12/TRSI,30/0 REPLY WORD FOR *SIC* MACRO 01829 M01S00580.ktsdmp +++| LIBI VFD 12/2002B,30/0,18/LIBIL 01830 M01S00581.ktsdmp +++| VFD 42/0,18/0 01831 M01S00582.ktsdmp +++| CON 0 TASK LIBRARY NAME 01832 M01S00583.ktsdmp +++| LIBIL EQU *-LIBI LENGTH OF PARAMETER BLOCK 01833 M01S00584.ktsdmp +++| LIBJ DATA C* LIBTASK ERRORS.* 01834 M01S00585.ktsdmp +++| LIBK DATA C* FILE NOT ATTACHED - * 01835 M01S00586.ktsdmp +++| LIBL DATA C* DIRECTIVE ENTRIES CHANGED IN TASK LIBRARY DIRECTORY. 01836 M01S00587.ktsdmp +++|,* 01837 M01S00588.ktsdmp +++| CON 8L 01838 M01S00589.ktsdmp +++| LIBLL EQU *-LIBL 01839 M01S00590.ktsdmp +++| LIBM DATA C*IGNORING * 01840 M01S00591.ktsdmp +++| LIBN DATA C* TRANSACTION NAMES INSERTED.* 01841 M01S00592.ktsdmp +++| CON 8L 01842 M01S00593.ktsdmp +++| LIBNL EQU *-LIBN 01843 M01S00594.ktsdmp +++| LIBO DATA C* TRANSACTION NAMES CHANGED.* 01844 M01S00595.ktsdmp +++| CON 8L 01845 M01S00596.ktsdmp +++| LIBOL EQU *-LIBO 01846 M01S00597.ktsdmp +++| LIBP DATA C* TRANSACTION NAMES CONTAINING NONEXISTENT TASKS.* 01847 M01S00598.ktsdmp +++| CON 8L 01848 M01S00599.ktsdmp +++| LIBPL EQU *-LIBP 01849 M01S00600.ktsdmp +++| LIBQ CON 0 TEMPORARY BUFFER FOR *SSR* 01850 M01S00601.ktsdmp +++| TITLE SUBROUTINES. 01851 M01S00602.ktsdmp +++| ALC SPACE 4,15 01852 M01S00603.ktsdmp +++|** ALC - ADVANCE LINE COUNT. 01853 M01S00604.ktsdmp +++|* 01854 M01S00605.ktsdmp +++|* ADVANCE THE LINE COUNT FOR THE OUTPUT FILE PAGE AND 01855 M01S00606.ktsdmp +++|* CHECK FOR END OF PAGE. 01856 M01S00607.ktsdmp +++|* 01857 M01S00608.ktsdmp +++|* ENTRY (X2) = LINE COUNT IF NOT 1. 01858 M01S00609.ktsdmp +++|* 01859 M01S00610.ktsdmp +++|* EXIT LINE COUNT ADVANCED. 01860 M01S00611.ktsdmp +++|* 01861 M01S00612.ktsdmp +++|* USES A - 1, 6, 7. 01862 M01S00613.ktsdmp +++|* B - 2. 01863 M01S00614.ktsdmp +++|* X - 1, 2, 4, 6, 7. 01864 M01S00615.ktsdmp +++|* 01865 M01S00616.ktsdmp +++|* CALLS CDD, STL. 01866 M01S00617.ktsdmp +++| 01867 M01S00618.ktsdmp +++| 01868 M01S00619.ktsdmp +++| ALC SUBR ENTRY/EXIT 01869 M01S00620.ktsdmp +++| SA1 ALCA LINE COUNT 01870 M01S00621.ktsdmp +++| IX7 X1+X2 01871 M01S00622.ktsdmp +++| SA7 A1 LINE COUNT ADVANCED 01872 M01S00623.ktsdmp +++| SB2 X1-58 01873 M01S00624.ktsdmp +++| NG B2,ALCX IF NOT AT END OF PAGE 01874 M01S00625.ktsdmp +++| SA1 ALCB 01875 M01S00626.ktsdmp +++| SX7 X1+1 ADVANCE PAGE COUNT 01876 M01S00627.ktsdmp +++| SA7 ALCB 01877 M01S00628.ktsdmp +++| RJ CDD CONVERT TO DECIMAL DISPLAY CODE 01878 M01S00629.ktsdmp +++| MX4 30 01879 M01S00630.ktsdmp +++| SA1 STLAP HEADER PAGE WORD 01880 M01S00631.ktsdmp +++| BX2 X4*X1 01881 M01S00632.ktsdmp +++| BX6 -X4*X6 01882 M01S00633.ktsdmp +++| BX6 X6+X2 01883 M01S00634.ktsdmp +++| SA6 A1+ NEW PAGE NUMBER INSERTED
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/ktsdmp.txt · Last modified: by 127.0.0.1