Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:common:comcsrt
Common COMCSRT
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comcsrt +++| CTEXT COMCSRT - SET RECORD TYPE. 00002 M00S00002.comcsrt +++| SRT SPACE 4 00003 M00S00003.comcsrt +++| IF -DEF,QUAL$,1 00004 M00S00004.comcsrt +++| QUAL COMCSRT 00005 M00S00005.comcsrt +++| BASE D
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.comcsrt +++| SRT SPACE 4 00009 M00S00008.comcsrt +++|*** SRT - SET RECORD TYPE. 00010 M00S00009.comcsrt +++|* G. R. MANSFIELD. 70/10/09. 00011 M00S00010.comcsrt +++|* ADAPTED FROM SUBROUTINE *CPT* IN *LIBEDIT*. 00012 M00S00011.comcsrt +++|* 00013 M00S00012.comcsrt +++|* *SRT* IDENTIFIES THE FORMAT OF A RECORD FROM THE DATA 00014 M00S00013.comcsrt +++|* LOCATED IN A WORKING BUFFER DEFINED BY THE CALLER. 00015 M00S00014.comcsrt +++|* THE TYPE IS RETURNED AS FOLLOWS - 00016 M00S00015.comcsrt +++|* 00017 M00S00016.comcsrt +++|* NUMBER TYPE FORMAT 00018 M00S00017.comcsrt +++|* 00019 M00S00018.comcsrt +++|* 0 TEXT UNRECOGNIZED 00020 M00S00019.comcsrt +++|* 1 PP PP PROGRAM 00021 M00S00020.comcsrt +++|* 3 REL RELOCATABLE SUBPROGRAM 00022 M00S00021.comcsrt +++|* 4 OVL OVERLAY 00023 M00S00022.comcsrt +++|* 5 ULIB USER LIBRARY 00024 M00S00023.comcsrt +++|* 6 OPL MODIFY OPL DECK 00025 M00S00024.comcsrt +++|* 7 OPLC MODIFY OPL COMMON DECK 00026 M00S00025.comcsrt +++|* 8 OPLD MODIFY OPL DIRECTORY 00027 M00S00026.comcsrt +++|* 9 ABS ABSOLUTE PROGRAM 00028 M00S00027.comcsrt +++|* 10 PPU PPU PROGRAM 00029 M00S00028.comcsrt +++|* 14 CAP FAST DYNAMIC LOAD CAPSULE 00030 M00S00029.comcsrt +++|* 16 PROC PROCEDURE RECORD
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00031 M01S00001.251l664 +++|* 20 PPL 16-BIT PP PROGRAM 00032 M00S00030.comcsrt +++|* 00033 M00S00031.comcsrt +++|* IF TYPE NUMBER AND RECORD NAME = 0, RECORD IS ZERO LENGTH. 00034 M00S00032.comcsrt +++|* 00035 M00S00033.comcsrt +++|* ENTRY (X1) = LAST WORD ADDRESS + 1 OF DATA. 00036 M00S00034.comcsrt +++|* (X2) = START OF BLOCK IN MEMORY. 00037 M00S00035.comcsrt +++|* (B1) = 1. 00038 M00S00036.comcsrt +++|* 00039 M00S00037.comcsrt +++|* EXIT (X6) = RECORD NAME AND TYPE. 00040 M00S00038.comcsrt +++|* (X7) = RECORD NAME, 0 FILL. 00041 M00S00039.comcsrt +++|* 00042 M00S00040.comcsrt +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 00043 M00S00041.comcsrt +++|* B - 2, 3. 00044 M00S00042.comcsrt +++|* A - 1, 2, 4.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00045 M01S00002.251l664 +++| SPACE 4,10 00046 M01S00003.251l664 +++|* CALL *COMSSRT* IF NOT ALREADY CALLED. 00047 M01S00004.251l664 +++| 00048 M01S00005.251l664 +++|*CALLC COMSSRT 00049 M00S00043.comcsrt +++| 00050 M00S00044.comcsrt +++| 00051 M00S00045.comcsrt +++| SRT15 MX6 0 CLEAR NAMES 00052 M00S00046.comcsrt +++| SX7 B0 00053 M00S00047.comcsrt +++| 00054 M00S00048.comcsrt +++| SRT PS ENTRY/EXIT 00055 M00S00049.comcsrt +++| IX6 X1-X2 NUMBER OF DATA WORDS 00056 M00S00050.comcsrt +++| ZR X6,SRT15 IF ZERO LENGTH RECORD 00057 M00S00051.comcsrt +++| SX4 B1+B1 00058 M00S00052.comcsrt +++| SX7 X6-2 NUMBER OF DATA WORDS - 2 00059 M00S00053.comcsrt +++| SA1 X2 CHECK FIRST WORD 00060 M00S00054.comcsrt +++| BX6 X1 (X6) = PROGRAM NAME 00061 M00S00055.comcsrt +++| MX0 -12 00062 M00S00056.comcsrt +++| LX2 X1 (X2) = RECORD NAME 00063 M00S00057.comcsrt +++| LX1 12 00064 M00S00058.comcsrt +++| BX3 -X0*X1 00065 M00S00059.comcsrt +++| SB3 X3-7700B 00066 M00S00060.comcsrt +++| NZ B3,SRT1 IF NO 7700 TABLE 00067 M00S00061.comcsrt +++| SA2 A1+B1 GET NAME FROM 7700 TABLE 00068 M00S00062.comcsrt +++| 00069 M00S00063.comcsrt +++|* CHECK FOR A VALID 7700 TABLE. 00070 M00S00064.comcsrt +++|* THERE MUST BE WC+2 DATA WORDS FOR A VALID 7700 TABLE. 00071 M00S00065.comcsrt +++| 00072 M00S00066.comcsrt +++| LX1 12 CHECK 7700 WORD COUNT .LE. REAL LENGTH 00073 M00S00067.comcsrt +++| BX3 -X0*X1 00074 M00S00068.comcsrt +++| IX7 X7-X3 00075 M00S00069.comcsrt +++| PL X7,SRT0 IF VALID 7700 TABLE 00076 M00S00070.comcsrt +++| SA2 A1 GET TEXT RECORD NAME 00077 M00S00071.comcsrt +++| SX3 B0 PROCESS AS TEXT RECORD 00078 M00S00072.comcsrt +++| SRT0 SB2 B0 REPORT *TEXT* FOR *UCF* TYPE
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00079 M01S00006.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE 00080 M00S00073.comcsrt +++| ZR X3,SRT12 IF UPDATE COMPRESSED COMPILE FILE 00081 M00S00074.comcsrt +++| SB3 X2 CHECK SEQUENCE NUMBER 00082 M00S00075.comcsrt +++| NZ B3,SRT12 IF MODIFY COMPRESSED COMPILE FILE 00083 M00S00076.comcsrt +++| 00084 M00S00077.comcsrt +++|* CHECK FIRST WORD BEYOND 7700 TABLE FOR *LDSET* TABLE. 00085 M00S00078.comcsrt +++| 00086 M00S00079.comcsrt +++| SB3 X3 GET FIRST WORD BEYOND 7700 TABLE 00087 M00S00080.comcsrt +++| SA1 A2+B3 00088 M00S00081.comcsrt +++| BX6 X1 00089 M00S00082.comcsrt +++| LX1 12 POSITION FOR 7000 TABLE CHECK 00090 M00S00083.comcsrt +++| BX3 -X0*X1 00091 M00S00084.comcsrt +++| IX7 X7-X4 INSURE WORD AFTER *LDSET* TABLE 00092 M00S00085.comcsrt +++| 00093 M00S00086.comcsrt +++|* CHECK FOR *OPLD* AND *LDSET* TABLES. 00094 M00S00087.comcsrt +++|* THERE MAY OR MAY NOT BE A 7700 TABLE. 00095 M00S00088.comcsrt +++|* THERE MUST BE WC+1 MORE DATA WORDS FOR A VALID 7000 TABLE. 00096 M00S00089.comcsrt +++| 00097 M00S00090.comcsrt +++| SRT1 SB2 X3-7000B 00098 M00S00091.comcsrt +++| NZ B2,SRT2 IF NO 7000 TABLE 00099 M00S00092.comcsrt +++| LX1 12 CHECK FOR WC = 0 (*OPLD* TABLE) 00100 M00S00093.comcsrt +++| BX3 -X0*X1 00101 M00S00094.comcsrt +++| ZR X3,SRT5 IF OPLD TYPE 00102 M00S00095.comcsrt +++| SB3 X3+B1 00103 M00S00096.comcsrt +++| SX7 X7+B1 IGNORE FIRST WORD IF NO 7700 TABLE 00104 M00S00097.comcsrt +++| SB2 B0 SET TEXT RECORD TYPE
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00105 M01S00007.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE 00106 M00S00098.comcsrt +++| IX7 X7-X3 00107 M00S00099.comcsrt +++| NG X7,SRT12 IF NOT VALID 7000 TABLE 00108 M00S00100.comcsrt +++| SA1 A1+B3 00109 M00S00101.comcsrt +++| BX6 X1 (X6) = FIRST WORD OF PROGRAM 00110 M00S00102.comcsrt +++| 00111 M00S00103.comcsrt +++|* CHECK FOR AND PROCESS CONTROL LANGUAGE PROCEDURE RECORDS. 00112 M00S00104.comcsrt +++| 00113 M00S00105.comcsrt +++| SRT2 SA4 SRTB CHECK FOR .PROC, 00114 M00S00106.comcsrt +++| MX0 36 00115 M00S00107.comcsrt +++| BX3 X0*X6 00116 M00S00108.comcsrt +++| BX4 X3-X4 00117 M00S00109.comcsrt +++| NZ X4,SRT5 IF NOT .PROC, 00118 M00S00110.comcsrt +++| LX6 36 GET FIRST FOUR LETTERS OF NAME 00119 M00S00111.comcsrt +++| MX0 24 00120 M00S00112.comcsrt +++| BX6 X0*X6 00121 M00S00113.comcsrt +++| SA1 A1+B1 GET LAST THREE CHARACTERS OF NAME 00122 M00S00114.comcsrt +++| MX0 18 00123 M00S00115.comcsrt +++| BX4 X0*X1 00124 M00S00116.comcsrt +++| LX4 -24 00125 M00S00117.comcsrt +++| BX6 X6+X4 00126 M00S00118.comcsrt +++| MX0 -6 00127 M00S00119.comcsrt +++| LX4 X6 00128 M00S00120.comcsrt +++| SB2 -B1 00129 M00S00121.comcsrt +++| SB3 7 00130 M00S00122.comcsrt +++| SRT3 LX4 6 00131 M00S00123.comcsrt +++| BX3 -X0*X4 00132 M00S00124.comcsrt +++| SX2 X3-1R9-1 CHECK FOR SEPARATOR 00133 M00S00125.comcsrt +++| PL X2,SRT4 IF END OF NAME 00134 M00S00126.comcsrt +++| SB3 B3-1 00135 M00S00127.comcsrt +++| SB2 B2+6 00136 M00S00128.comcsrt +++| NZ B3,SRT3 IF SEVEN LETTERS NOT PROCESSED YET 00137 M00S00129.comcsrt +++| SRT4 MX0 1 BUILD MASK 00138 M00S00130.comcsrt +++| AX0 B2
| Line S00131 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00139 M01S00131.251l664 ---| SX2 16 TYPE = 16
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00140 M01S00008.251l664 +++| SX2 PRRT TYPE = PROC 00141 M00S00132.comcsrt +++| BX7 X0*X6 00142 M00S00133.comcsrt +++| IX6 X7+X2 00143 M00S00134.comcsrt +++| PL B2,SRT RETURN IF NAME PRESENT 00144 M00S00135.comcsrt +++| SX7 1R RETURN SPACE FOR NAME 00145 M00S00136.comcsrt +++| LX7 48 00146 M00S00137.comcsrt +++| BX6 X7+X2 00147 M00S00138.comcsrt +++| EQ SRT 00148 M00S00139.comcsrt +++| 00149 M00S00140.comcsrt +++|* IDENTIFY PP PROGRAM FORMAT. 00150 M00S00141.comcsrt +++|* CHARACTER 3 " 0, 00151 M00S00142.comcsrt +++|* CHARACTER 4 = 0, 00152 M00S00143.comcsrt +++|* BYTE 3 = 0, 00153 M00S00144.comcsrt +++|* BYTE 4 " 0. 00154 M00S00145.comcsrt +++|* IF CHARACTER 1 IS ALPHA, BYT2 2 " 0. 00155 M00S00146.comcsrt +++| 00156 M00S00147.comcsrt +++| SRT5 SA1 SRTA =77000077770000B
| Line S00148 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00157 M01S00148.251l664 ---| SB2 B0 TYPE = 0
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00158 M01S00009.251l664 +++| SB2 B0 TYPE = TEXT 00159 M01S00010.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE 00160 M00S00149.comcsrt +++| BX3 X1*X6 CHECK FOR NAME ;3-CHARACTERS AND BYTE 3=0 00161 M00S00150.comcsrt +++| MX0 12 00162 M00S00151.comcsrt +++| BX1 X0*X6 CHECK FOR NUMERIC FIRST CHARACTER 00163 M00S00152.comcsrt +++| LX0 48 00164 M00S00153.comcsrt +++| BX4 X0*X6 CHECK FOR 3-CHARACTER NAME 00165 M00S00154.comcsrt +++| LX1 12 00166 M00S00155.comcsrt +++| LX0 48 00167 M00S00156.comcsrt +++| NZ X3,SRT7 IF NAME .GT. 3 CHARACTERS OR BYTE 3 .NE. 0 00168 M00S00157.comcsrt +++| ZR X4,SRT7 IF NAME .LT. 3 CHARACTERS 00169 M00S00158.comcsrt +++| SB3 X1-2R0A 00170 M00S00159.comcsrt +++| BX3 X0*X6 00171 M00S00160.comcsrt +++| MX0 6 00172 M00S00161.comcsrt +++| LX0 54 00173 M00S00162.comcsrt +++| BX7 X0*X6 00174 M00S00163.comcsrt +++| ZR X7,SRT7 IF CHARACTER TWO = 0 00175 M00S00164.comcsrt +++| PL B3,SRT6 IF NUMERIC PP NAME 00176 M00S00165.comcsrt +++| ZR X3,SRT7 IF NO LOAD ADDRESS 00177 M00S00166.comcsrt +++| SRT6 MX0 18 00178 M00S00167.comcsrt +++| SB3 X6 00179 M00S00168.comcsrt +++| ZR B3,SRT12 IF ZERO LENGTH PROGRAM
| Line S00169 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00180 M01S00169.251l664 ---| SB2 B1 TYPE = 1
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00181 M01S00011.251l664 +++| SB2 B1 TYPE = PP 00182 M01S00012.251l664 +++| ERRNZ PPRT-1 CODE ASSUMES VALUE 00183 M00S00170.comcsrt +++| BX2 X0*X2 00184 M00S00171.comcsrt +++| EQ SRT12 EXIT 00185 M00S00172.comcsrt +++| 00186 M00S00173.comcsrt +++|* CHECK FOR. 00187 M00S00174.comcsrt +++|* REL 00188 M00S00175.comcsrt +++|* ULIB 00189 M00S00176.comcsrt +++|* OPL 00190 M00S00177.comcsrt +++|* OPLC 00191 M00S00178.comcsrt +++|* OPLD 00192 M00S00179.comcsrt +++|* ABS 00193 M00S00180.comcsrt +++|* PPU 00194 M00S00181.comcsrt +++|
| Line S00182 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00195 M01S00182.251l664 ---| SRT7 SB2 3 TYPE = 3
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00196 M01S00013.251l664 +++| SRT7 SB2 RLRT TYPE = REL 00197 M00S00183.comcsrt +++| SB3 X1-3400B 00198 M00S00184.comcsrt +++| ZR B3,SRT12 IF RELOCATABLE
| Line S00185 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00199 M01S00185.251l664 ---| SB2 5 TYPE = 5
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00200 M01S00014.251l664 +++| SB2 ULRT TYPE = ULIB 00201 M00S00186.comcsrt +++| SB3 X1-7600B 00202 M00S00187.comcsrt +++| ZR B3,SRT12 IF USER LIBRARY
| Line S00188 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00203 M01S00188.251l664 ---| SB2 6 TYPE = 6
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00204 M01S00015.251l664 +++| SB2 OPRT TYPE = OPL 00205 M00S00189.comcsrt +++| SB3 X1-7001B 00206 M00S00190.comcsrt +++| ZR B3,SRT12 IF OLD PROGRAM LIBRARY
| Line S00191 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00207 M01S00191.251l664 ---| SB2 7 TYPE = 7
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00208 M01S00016.251l664 +++| SB2 OCRT TYPE = OPLC 00209 M00S00192.comcsrt +++| SB3 X1-7002B 00210 M00S00193.comcsrt +++| ZR B3,SRT12 IF OPL COMMON DECK
| Line S00194 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00211 M01S00194.251l664 ---| SB2 8 TYPE = 8
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00212 M01S00017.251l664 +++| SB2 ODRT TYPE = OPLD 00213 M00S00195.comcsrt +++| SB3 X1-7000B 00214 M00S00196.comcsrt +++| ZR B3,SRT12 IF OPL DIRECTORY
| Line S00197 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00215 M01S00197.251l664 ---| SB2 14D TYPE = 14
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00216 M01S00018.251l664 +++| SB2 CART TYPE = CAP 00217 M00S00198.comcsrt +++| SB3 X1-6000B 00218 M00S00199.comcsrt +++| ZR B3,SRT12 IF CAP
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00219 M01S00019.251l664 +++| SB2 PLRT TYPE = PPL 00220 M01S00020.251l664 +++| SB3 X1-6100B 00221 M01S00021.251l664 +++| ZR B3,SRT12 IF 16-BIT PP PROGRAM
| Line S00200 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00222 M01S00200.251l664 ---| SB2 9 TYPE = 9
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00223 M01S00022.251l664 +++| SB2 ABRT TYPE = ABS 00224 M00S00201.comcsrt +++| SB3 X1-5400B 00225 M00S00202.comcsrt +++| NZ B3,SRT8 IF NOT *5400* TABLE 00226 M00S00203.comcsrt +++| LX0 12 00227 M00S00204.comcsrt +++| BX0 X0*X6 CHECK OVERLAY LEVELS 00228 M00S00205.comcsrt +++| ZR X0,SRT12 IF 00,00 OVERLAY 00229 M00S00206.comcsrt +++| JP SRT10 CHECK NAME 00230 M00S00207.comcsrt +++| 00231 M00S00208.comcsrt +++| SRT8 SB3 X1-5300B 00232 M00S00209.comcsrt +++| NZ B3,SRT9 IF NOT *ACPM* TYPE 00233 M00S00210.comcsrt +++| SB3 X6+ 00234 M00S00211.comcsrt +++| NG B3,SRT12 IF NOT ABS TYPE *ACPM* 00235 M00S00212.comcsrt +++| JP SRT10 CHECK NAME 00236 M00S00213.comcsrt +++| 00237 M00S00214.comcsrt +++| SRT9 SB3 X1-5100B 00238 M00S00215.comcsrt +++| ZR B3,SRT12 IF ABS
| Line S00216 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00239 M01S00216.251l664 ---| SB2 10 TYPE = 10
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00240 M01S00023.251l664 +++| SB2 PURT TYPE = PPU 00241 M00S00217.comcsrt +++| SB3 X1-5200B 00242 M00S00218.comcsrt +++| ZR B3,SRT12 IF PPU 00243 M00S00219.comcsrt +++| SB3 X1-5000B 00244 M00S00220.comcsrt +++| NZ B3,SRT11 IF NOT OVERLAY
| Line S00221 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00245 M01S00221.251l664 ---| SRT10 SB2 4
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00246 M01S00024.251l664 +++| SRT10 SB2 OVRT TYPE = OVL 00247 M00S00222.comcsrt +++| BX7 X2-X6 00248 M00S00223.comcsrt +++| NZ X7,SRT12 IF NAME .NE. FIRST WORD OF PROGRAM
| Line S00224 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00249 M01S00224.251l664 ---| SRT11 SB2 B0+ TYPE =0
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00250 M01S00025.251l664 +++| SRT11 SB2 B0+ TYPE = TEXT 00251 M01S00026.251l664 +++| ERRNZ TXRT CODE ASSUMES VALUE 00252 M00S00225.comcsrt +++| 00253 M00S00226.comcsrt +++|* SET NAME AND TYPE. 00254 M00S00227.comcsrt +++| 00255 M00S00228.comcsrt +++| SRT12 MX0 42 00256 M00S00229.comcsrt +++| SX4 1R CHECK FOR TRAILING SPACES 00257 M00S00230.comcsrt +++| BX7 X0*X2 00258 M00S00231.comcsrt +++| LX4 12 00259 M00S00232.comcsrt +++| MX2 6 00260 M00S00233.comcsrt +++| LX2 -42 00261 M00S00234.comcsrt +++| SRT13 LX4 6 00262 M00S00235.comcsrt +++| NG X2,SRT14 IF END OF WORD 00263 M00S00236.comcsrt +++| LX2 6 POSITION MASK 00264 M00S00237.comcsrt +++| BX3 X2*X7 00265 M00S00238.comcsrt +++| ZR X3,SRT13 IF COLON OR NULL CHARACTER 00266 M00S00239.comcsrt +++| BX6 X4-X3 00267 M00S00240.comcsrt +++| NZ X6,SRT14 IF NOT BLANK 00268 M00S00241.comcsrt +++| BX7 -X2*X7 DELETE TRAILING SPACE 00269 M00S00242.comcsrt +++| EQ SRT13 CHECK NEXT CHARACTER 00270 M00S00243.comcsrt +++| 00271 M00S00244.comcsrt +++| SRT14 SX6 B2 TYPE 00272 M00S00245.comcsrt +++| IX6 X6+X7 00273 M00S00246.comcsrt +++| EQ SRT RETURN 00274 M00S00247.comcsrt +++| 00275 M00S00248.comcsrt +++| SRTA CON 77000077770000B 00276 M00S00249.comcsrt +++| SRTB CON 6L.PROC, 00277 M00S00250.comcsrt +++| SPACE 4 00278 M00S00251.comcsrt +++| BASE * 00279 M00S00252.comcsrt +++| QUAL$ IF -DEF,QUAL$ 00280 M00S00253.comcsrt +++| QUAL * 00281 M00S00254.comcsrt +++| SRT EQU /COMCSRT/SRT 00282 M00S00255.comcsrt +++| QUAL$ ENDIF 00283 M00S00256.comcsrt +++| ENDX
cdc/nos2.source/opl.opl871/common/comcsrt.txt · Last modified: (external edit)