cdc:nos2.source:opl.opl871:deck:note
Deck NOTE
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.note +++| IDENT NOTE,FET 00002 M00S00002.note +++| ABS 00003 M00S00003.note +++| SST 00004 M00S00004.note +++| SYSCOM B1 00005 M00S00005.note +++| 00006 M00S00006.note +++| ENTRY BLOCK 00007 M00S00007.note +++| ENTRY ENTER 00008 M00S00008.note +++| ENTRY NOTE 00009 M00S00009.note +++| ENTRY RFL= 00010 M00S00010.note +++| 00011 M00S00011.note +++|*COMMENT NOTE - ENTER DELIMITED LINES INTO FILE.
| Line S00012 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00012.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1977.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00013 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00014 M00S00013.note +++| TITLE NOTE - ENTER DELIMITED LINES INTO FILE. 00015 M00S00014.note +++| SPACE 4 00016 M00S00015.note +++|*** NOTE - ENTER DELIMITED LINES INTO FILE. 00017 M00S00016.note +++|* J.C.BOHNHOFF. 75/05/04. 00018 M00S00017.note +++|* W.F.ANSLEY. 77/02/03. 00019 M00S00018.note +++|* R.K.MYERS. 84/01/04. 00020 M00S00019.note +++| SPACE 4 00021 M00S00020.note +++|*** NOTE TAKES DELIMITED LINES FROM THE CALL COMMAND 00022 M00S00021.note +++|* AND WRITES THEM INDIVIDUALLY TO A FILE. THIS FILE MAY BE USED 00023 M00S00022.note +++|* AS A PROCEDURE. 00024 M00S00023.note +++| NOTE SPACE 4,45 00025 M00S00024.note +++|*** THE COMMAND - 00026 M00S00025.note +++|* 00027 M00S00026.note +++|* BLOCK(LFN,P1,P2)/BLINE 1/BLINE 2/BLINE N 00028 M00S00027.note +++|* OR 00029 M00S00028.note +++|* ENTER./COMMAND 1/COMMAND 2/COMMAND N 00030 M00S00029.note +++|* OR 00031 M00S00030.note +++|* NOTE(LFN,NR)/LINE 1/LINE 2/LINE N 00032 M00S00031.note +++|* 00033 M00S00032.note +++|* ASSUMED PARAMETERS. 00034 M00S00033.note +++|* LFN = *OUTPUT*. 00035 M00S00034.note +++|* NR OMITTED = AUTOMATIC REWIND BEFORE AND AFTER (*NOTE*).
| Line S00035 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00036 M01S00035.note3 ---|* R OMITTED = NO REWIND BEFORE (*BLOCK*).
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00037 M01S00001.note3 +++|* P1 OMITTED = NO REWIND BEFORE (*BLOCK*). 00038 M00S00036.note +++|* 00039 M00S00037.note +++|* WHERE ) MAY BE PERIOD OR RIGHT PARENTHESIS. 00040 M00S00038.note +++|* LFN IS A FILE NAME TO RECEIVE THE LINES. IF ABSENT, 00041 M00S00039.note +++|* *OUTPUT* IS ASSUMED.
| Line S00040 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00042 M01S00040.note3 ---|* NR INDICATES THE FILE SHOULD NOT BE REWOUND (EITHER 00043 M01S00041.note3 ---|* INITIALLY OR DURING TERMINATION).
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00044 M01S00002.note3 +++|* NR CAN EITHER BE *NR* OR *R*, DENOTING WHETHER THE 00045 M01S00003.note3 +++|* FILE SHOULD BE REWOUND BEFORE AND AFTER PROCESSING. 00046 M00S00042.note +++|* P1 CAN EITHER BE *R* OR *NR*, DENOTING WHETHER 00047 M00S00043.note +++|* THE FILE SHOULD BE REWOUND BEFORE PROCESSING. 00048 M00S00044.note +++|* P2 CAN BE ANY USER SPECIFIED CARRIAGE CONTROL
| Line S00045 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00049 M01S00045.note3 ---|* CHARACTER (ONLY 1 IS USED), BUT NO CHECKING 00050 M01S00046.note3 ---|* IS PERFORMED AS TO ITS VALIDITY.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00051 M01S00004.note3 +++|* CHARACTER (ONLY THE FIRST CHARACTER IS USED), BUT 00052 M01S00005.note3 +++|* NO VALIDITY CHECKING IS PERFORMED. LITERALS ($-$) 00053 M01S00006.note3 +++|* OR THE WORD *SPACE* WILL ALSO BE ACCEPTED. 00054 M00S00047.note +++|* / MAY BE ANY CHARACTER TO DELIMIT THE INDIVIDUAL 00055 M00S00048.note +++|* COMMANDS. IT MUST IMMEDIATELY FOLLOW THE PERIOD 00056 M00S00049.note +++|* OR RIGHT PARENTHESIS. A RIGHT BLANK WILL BE 00057 M00S00050.note +++|* GENERATED FOR EACH OCCURRENCE OF CONSECUTIVE 00058 M00S00051.note +++|* DELIMITERS. 00059 M00S00052.note +++|* COMMAND I IS ANY VALID COMMAND. A 00060 M00S00053.note +++|* PERIOD IS APPENDED TO ANY COMMAND THAT DOES NOT 00061 M00S00054.note +++|* ALREADY HAVE A TERMINATOR (A *.* OR A *)*). 00062 M00S00055.note +++|* LINE I IS ANY TEXT. IT IS TREATED THE SAME AS A 00063 M00S00056.note +++|* COMMAND EXCEPT THAT A BLANK IS APPENDED TO 00064 M00S00057.note +++|* EACH LINE INSTEAD OF A PERIOD. 00065 M00S00058.note +++|* BLINE I IS ANY TEXT STRING OF UP TO 9 00066 M00S00059.note +++|* CHARACTERS IN LENGTH, WHICH IS TO BE PRINTED 00067 M00S00060.note +++|* IN EXPANDED FORMAT TO FILE LFN. THERE ARE 00068 M00S00061.note +++|* SPECIAL TEXT STRINGS FOR WHICH CURRENT DATA 00069 M00S00062.note +++|* ABOUT THE JOB WILL BE SUBSTITUTED. THESE ARE - 00070 M00S00063.note +++|* 00071 M00S00064.note +++|* STRING SUBSTITUTED DATA 00072 M00S00065.note +++|* ------ ----------- ---- 00073 M00S00066.note +++|* DATE CURRENT DATE 00074 M00S00067.note +++|* JSN JOB SEQUENCE NAME 00075 M00S00068.note +++|* TIME CURRENT TIME 00076 M00S00069.note +++|* UJN USER JOB NAME 00077 M00S00070.note +++|* USER USER NAME 00078 M00S00071.note +++|* 00079 M00S00072.note +++|* 00080 M00S00073.note +++|* *ENTER* WRITES THE COMMANDS TO AN INTERNAL FILE 00081 M00S00074.note +++|* *ZZZZZG0* AND THEN EXECUTES A *ZZZZZG0.* COMMAND 00082 M00S00075.note +++|* TO PROCESS THE COMMANDS. 00083 M00S00076.note +++|* 00084 M00S00077.note +++|* FOR EXAMPLE - 00085 M00S00078.note +++|* ENTER./LDSET(LIB=ULIB)/LOAD(A)/LOAD(LGO)/NOGO. 00086 M00S00079.note +++|* RESULTS IN - 00087 M00S00080.note +++|* LDSET(LIB=ULIB) 00088 M00S00081.note +++|* LOAD(A) 00089 M00S00082.note +++|* LOAD(LGO) 00090 M00S00083.note +++|* NOGO. 00091 M00S00084.note +++|* 00092 M00S00085.note +++|* *NOTE* WRITES THE LINES TO A FILE. 00093 M00S00086.note +++|* 00094 M00S00087.note +++|* FOR EXAMPLE - 00095 M00S00088.note +++|* NOTE(MESSAGE)/ CANT GET THE FILE 00096 M00S00089.note +++|* RESULTS IN FILE MESSAGE CONTAINING - 00097 M00S00090.note +++|* CANT GET THE FILE 00098 M00S00091.note +++| SPACE 4 00099 M00S00092.note +++|*** DAYFILE MESSAGES ISSUED. 00100 M00S00093.note +++|* 00101 M00S00094.note +++|* * TOO MANY PARAMETERS.* 00102 M00S00095.note +++|* MORE THAN TWO PARAMETERS WERE SPECIFIED ON THE CALL 00103 M00S00096.note +++|* COMMAND. 00104 M00S00097.note +++|* 00105 M00S00098.note +++|* * NO TERMINATOR IN COMMAND CALL.* 00106 M00S00099.note +++|* NO TERMINATOR WAS FOUND BEFORE THE LEADING DELIMITER 00107 M00S00100.note +++|* OF THE CALL COMMAND. 00108 M00S00101.note +++|* 00109 M00S00102.note +++|* * INCORRECT -NR- PARAMETER.*
| Line S00103 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00110 M01S00103.note3 ---|* A PARAMETER OTHER THAN *NR* WAS USED TO INITIATE 00111 M01S00104.note3 ---|* NO REWIND OF THE FILE.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00112 M01S00007.note3 +++|* A PARAMETER OTHER THAN *NR*, *R* OR NULL WAS PASSED 00113 M01S00008.note3 +++|* TO *NOTE* AS THE SECOND PARAMETER. 00114 M00S00105.note +++|* 00115 M00S00106.note +++|* * INCORRECT -R/NR- PARAMETER.* 00116 M00S00107.note +++|* A PARAMETER OTHER THAN *R*, *NR* OR NULL WAS PASSED 00117 M00S00108.note +++|* TO *BLOCK* AS THE SECOND PARAMETER. 00118 M00S00109.note +++| TITLE SYMBOLS AND DATA. 00119 M00S00110.note +++|* COMMON DECKS. 00120 M00S00111.note +++| 00121 M00S00112.note +++| 00122 M00S00113.note +++|*CALL COMCMAC 00123 M00S00114.note +++|*CALL COMSQAC 00124 M00S00115.note +++| SPACE 4 00125 M00S00116.note +++|* SYMBOL DEFINITIONS. 00126 M00S00117.note +++| 00127 M00S00118.note +++| 00128 M00S00119.note +++| PBUFL EQU 3 *QAC*/*PEEK* BUFFER LENGTH 00129 M00S00120.note +++| SBUFL EQU 3001B SCRATCH/OUTPUT BUFFER LENGTH 00130 M00S00121.note +++| SPACE 4 00131 M00S00122.note +++|* FET. 00132 M00S00123.note +++| 00133 M00S00124.note +++| 00134 M00S00125.note +++| ORG 110B 00135 M00S00126.note +++| FET BSS 0 00136 M00S00127.note +++| 00137 M00S00128.note +++| S BSS 0 SCRATCH 00138 M00S00129.note +++| ZZZZZG0 FILEB SBUF,SBUFL 00139 M00S00130.note +++| SPACE 4 00140 M00S00131.note +++|* DATA LOCATIONS. 00141 M00S00132.note +++| 00142 M00S00133.note +++| 00143 M00S00134.note +++| BLKF CON 0 *BLOCK* FLAG 00144 M00S00135.note +++| CCCH DATA 1L1 CARRIAGE CONTROL CHARACTER 00145 M00S00136.note +++| DATE CON 0 CURRENT DATE 00146 M00S00137.note +++| JSNM CON 0 JOB SEQUENCE NAME 00147 M00S00138.note +++| NLIP CON 0 NUMBER OF LINES IN PAGE 00148 M00S00139.note +++| NR CON 0 NO REWIND FLAG 00149 M00S00140.note +++| TIME CON 0 CURRENT TIME 00150 M00S00141.note +++| UJNM CON 0 USER JOB NAME 00151 M00S00142.note +++| USER CON 0 USER NAME 00152 M00S00143.note +++| QACB SPACE 4,10 00153 M00S00144.note +++|* *QAC* PARAMETER BLOCK. 00154 M00S00145.note +++| 00155 M00S00146.note +++| QACB VFD 50/0,9/PKFC,1/0 REQUEST PREFIX PORTION 00156 M00S00147.note +++| VFD 36/0,6/11,18/PBUF 00157 M00S00148.note +++| VFD 42/0,18/PBUF 00158 M00S00149.note +++| VFD 42/0,18/PBUF 00159 M00S00150.note +++| VFD 42/0,18/PBUF+PBUFL 00160 M00S00151.note +++| QBSC VFD 60/0 SELECTION CRITERIA PORTION 00161 M00S00152.note +++| VFD 60/0 00162 M00S00153.note +++| VFD 60/100B 00163 M00S00154.note +++| VFD 12/2B,48/0 00164 M00S00155.note +++| VFD 60/0 00165 M00S00156.note +++| VFD 60/0 00166 M00S00157.note +++| VFD 60/0 00167 M00S00158.note +++| QBPF VFD 60/-0 PEEK FUNCTION PORTION 00168 M00S00159.note +++| VFD 12/-0,48/0 00169 M00S00160.note +++| VFD 48/0,12/UJPB+JSPB JSN AND USER JOBNAME 00170 M00S00161.note +++| VFD 60/0 00171 M00S00162.note +++| 00172 M00S00163.note +++| 00173 M00S00164.note +++|* *QAC*/*PEEK* BUFFER. 00174 M00S00165.note +++| 00175 M00S00166.note +++| PBUF BSSZ PBUFL 00176 M00S00167.note +++| TITLE COMMAND PROCESSORS. 00177 M00S00168.note +++| BLOCK SPACE 4,10 00178 M00S00169.note +++|** BLOCK - WRITE BLOCK LETTERS TO FILE. 00179 M00S00170.note +++| 00180 M00S00171.note +++| 00181 M00S00172.note +++| BLOCK BSS 0 ENTRY 00182 M00S00173.note +++| SB1 1
| Line S00174 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00183 M01S00174.note3 ---| SX6 B1
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00184 M01S00009.note3 +++| SX6 B1+ 00185 M00S00175.note +++| SA6 BLKF SET *BLOCK* FLAG
| Line S00176 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00186 M01S00176.note3 ---| SA1 ACTR GET ARGUMENT COUNT 00187 M01S00177.note3 ---| MX0 42 00188 M01S00178.note3 ---| SB2 X1 00189 M01S00179.note3 ---| SA1 ARGR READ FIRST ARGUMENT 00190 M01S00180.note3 ---| BX1 X0*X1 00191 M01S00181.note3 ---| NZ X1,BLO1 IF ARGUMENT PRESENT 00192 M01S00182.note3 ---| SA1 =0LOUTPUT SET DEFAULT FILE NAME
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00193 M01S00010.note3 +++| RJ ICP INITIALIZE COMMAND PARAMETERS 00194 M01S00011.note3 +++| ZR B6,BLO0 IF NO PARAMETERS 00195 M01S00012.note3 +++| RJ POP READ FILE NAME PARAMETER 00196 M01S00013.note3 +++| NZ X6,BLO1 IF PARAMETER PRESENT 00197 M01S00014.note3 +++| BLO0 SA1 =0LOUTPUT SET DEFAULT FILE NAME 00198 M01S00015.note3 +++| BX6 X1 00199 M00S00183.note +++| BLO1 SX7 B1 SET STATUS
| Line S00184 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00200 M01S00184.note3 ---| BX6 X7+X1
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00201 M01S00016.note3 +++| BX6 X7+X6 00202 M00S00185.note +++| SA6 S SET FILE NAME
| Line S00186 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00203 M01S00186.note3 ---| SB4 3 00204 M01S00187.note3 ---| GT B2,B4,NOT6 IF TOO MANY PARAMETERS 00205 M01S00188.note3 ---| LE B2,B1,BLO2 IF ZERO OR ONE PARAMETER 00206 M01S00189.note3 ---| SA1 ARGR+1 READ SECOND ARGUMENT
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00207 M01S00017.note3 +++| ZR B6,BLO3 IF NO MORE PARAMETERS 00208 M01S00018.note3 +++| RJ POP READ *R/NR* PARAMETER 00209 M01S00019.note3 +++| ZR X6,BLO2 IF NULL PARAMETER 00210 M01S00020.note3 +++| SX3 2RNR 00211 M00S00190.note +++| SX2 1RR
| Line S00191 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00212 M01S00191.note3 ---| SX3 2RNR
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00213 M01S00021.note3 +++| LX3 -12 00214 M00S00192.note +++| LX2 -6
| Line S00193 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00215 M01S00193.note3 ---| LX3 -12 00216 M01S00194.note3 ---| BX4 X0*X1 00217 M01S00195.note3 ---| BX2 X4-X2 CHECK IF *R* 00218 M01S00196.note3 ---| ZR X4,BLO2 IF NO PARAMETER SPECIFIED 00219 M01S00197.note3 ---| BX3 X4-X3
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00220 M01S00022.note3 +++| BX3 X6-X3 00221 M01S00023.note3 +++| BX2 X6-X2 CHECK IF *R* 00222 M00S00198.note +++| ZR X3,BLO2 IF *NR* SPECIFIED 00223 M00S00199.note +++| NZ X2,BLO4 IF NOT *R* 00224 M00S00200.note +++| REWIND S,R
| Line S00201 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00225 M01S00201.note3 ---| BLO2 LT B2,B4,BLO3 IF ONLY 2 PARAMETERS 00226 M01S00202.note3 ---| SA1 ARGR+2 READ THIRD ARGUMENT 00227 M01S00203.note3 ---| MX6 6
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00228 M01S00024.note3 +++| BLO2 ZR B6,BLO3 IF NO MORE PARAMETERS 00229 M01S00025.note3 +++| RJ POP READ CARRIAGE CONTROL PARAMETER 00230 M01S00026.note3 +++| ZR X6,BLO3 IF NULL PARAMETER SPECIFIED 00231 M01S00027.note3 +++| MX1 6 00232 M00S00204.note +++| BX6 X6*X1 ISOLATE TO 1 CHARACTER
| Line S00205 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00233 M01S00205.note3 ---| ZR X6,BLO3 IF NULL PARAMETER SPECIFIED 00234 M00S00206.note +++| SA6 CCCH SET USER SPECIFIED CARRIAGE CONTROL 00235 M00S00207.note +++| BLO3 GETPAGE BLOA GET PAGE SIZE PARAMETERS 00236 M00S00208.note +++| SA1 BLOA 00237 M00S00209.note +++| MX6 -8 00238 M00S00210.note +++| LX1 -20 00239 M00S00211.note +++| BX6 -X6*X1 NUMBER OF LINES ON PAGE 00240 M00S00212.note +++| SA6 NLIP 00241 M00S00213.note +++| WRITEW S,CCCH,1 WRITE CARRIAGE CONTROL CHARACTER 00242 M00S00214.note +++| SX7 1R SET TERMINATOR 00243 M00S00215.note +++| RJ WDL WRITE DELIMITED LINES 00244 M00S00216.note +++| ENDRUN 00245 M00S00217.note +++| 00246 M00S00218.note +++|* PROCESS INCORRECT PARAMETERS. 00247 M00S00219.note +++| 00248 M00S00220.note +++| BLO4 MESSAGE (=C* INCORRECT -R/NR- PARAMETER.*),,R 00249 M00S00221.note +++| ABORT 00250 M00S00222.note +++| 00251 M00S00223.note +++| 00252 M00S00224.note +++| BLOA BSS 2 *GETPAGE* PARAMETER BLOCK 00253 M00S00225.note +++| ENTER SPACE 4,10 00254 M00S00226.note +++|** ENTER - PLACE COMMANDS FROM CALL COMMAND INTO 00255 M00S00227.note +++|* FILE *ZZZZZG0*, AND THEN CALL FILE *ZZZZZG0*. 00256 M00S00228.note +++| 00257 M00S00229.note +++| 00258 M00S00230.note +++| ENTER BSS 0 ENTRY 00259 M00S00231.note +++| SB1 1
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00260 M01S00028.note3 +++| RJ ICP INITIALIZE COMMAND PARAMETERS 00261 M00S00232.note +++| REWIND S,R REWIND SCRATCH FILE 00262 M00S00233.note +++| WRITEW S,ENTA,ENTAL WRITE PROCEDURE HEADER 00263 M00S00234.note +++| SX7 1R. SET TERMINATOR 00264 M00S00235.note +++| RJ WDL WRITE DELIMITED LINES 00265 M00S00236.note +++| EXCST (=C*ZZZZZG0.*) ENTER CALL COMMAND 00266 M00S00237.note +++| 00267 M00S00238.note +++| ENTA DATA C*.PROC,ZZZZZG0.* 00268 M00S00239.note +++| DATA C*$RETURN,ZZZZZG0.* 00269 M00S00240.note +++| ENTAL EQU *-ENTA 00270 M00S00241.note +++| NOTE SPACE 4 00271 M00S00242.note +++|** NOTE - PLACE LINES FROM CALL COMMAND INTO SPECIFIED FILE. 00272 M00S00243.note +++| 00273 M00S00244.note +++| 00274 M00S00245.note +++| NOTE BSS 0 ENTRY
| Line S00246 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00275 M01S00246.note3 ---| SB1 1 SET CONSTANT 1 00276 M01S00247.note3 ---| SA1 ACTR CHECK ARGUMENT COUNT
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00277 M01S00029.note3 +++| SB1 1 00278 M01S00030.note3 +++| RJ ICP INITIALIZE COMMAND PARAMETERS 00279 M01S00031.note3 +++| ZR B6,NOT1 IF NO PARAMETERS 00280 M01S00032.note3 +++| RJ POP READ FILE NAME PARAMETER 00281 M01S00033.note3 +++| NZ X6,NOT2 IF FILE NAME PRESENT 00282 M01S00034.note3 +++| NOT1 SA1 =0LOUTPUT SET DEFAULT FILE NAME 00283 M01S00035.note3 +++| BX6 X1 00284 M01S00036.note3 +++| NOT2 SA2 S SET NAME 00285 M00S00248.note +++| MX0 42
| Line S00249 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00286 M01S00249.note3 ---| SB2 X1 00287 M01S00250.note3 ---| SA1 ARGR READ FIRST ARGUMENT 00288 M01S00251.note3 ---| NZ B2,NOT1 IF ARGUMENTS PRESENT 00289 M01S00252.note3 ---| SA1 =0LOUTPUT SET DEFAULT FILE NAME 00290 M01S00253.note3 ---| NOT1 BX3 X0*X1 FILE NAME 00291 M01S00254.note3 ---| SA2 S SET NAME 00292 M00S00255.note +++| BX7 -X0*X2 FILE STATUS
| Line S00256 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00293 M01S00256.note3 ---| NZ X3,NOT2 IF NAME SPECIFIED 00294 M01S00257.note3 ---| SA3 =0LOUTPUT SET DEFAULT FILE NAME 00295 M01S00258.note3 ---| NOT2 BX6 X3+X7
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00296 M01S00037.note3 +++| BX6 X6+X7 00297 M01S00038.note3 +++| SA6 A2 00298 M01S00039.note3 +++| ZR B6,NOT3 IF NO MORE PARAMETERS 00299 M01S00040.note3 +++| RJ POP READ *NR* PARAMETER 00300 M01S00041.note3 +++| NZ B6,NOT6 IF TOO MANY PARAMETERS 00301 M01S00042.note3 +++| ZR X6,NOT3 IF NULL PARAMETER 00302 M01S00043.note3 +++| SX3 1RR 00303 M01S00044.note3 +++| SX2 2RNR 00304 M01S00045.note3 +++| LX3 -6 00305 M01S00046.note3 +++| LX2 -12 00306 M01S00047.note3 +++| BX3 X6-X3 CHECK IF *R* 00307 M01S00048.note3 +++| BX2 X6-X2 CHECK IF *NR* 00308 M01S00049.note3 +++| ZR X3,NOT3 IF *R* 00309 M01S00050.note3 +++| NZ X2,NOT7 IF NOT *NR* 00310 M00S00259.note +++| SX7 1R SET TERMINATOR
| Line S00260 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00311 M01S00260.note3 ---| SA6 A2 00312 M01S00261.note3 ---| SB3 B1+B1 00313 M01S00262.note3 ---| GT B2,B3,NOT6 IF TOO MANY PARAMETERS 00314 M01S00263.note3 ---| LT B2,B3,NOT3 IF ZERO OR ONE PARAMETER 00315 M01S00264.note3 ---| SA1 ARGR+1 READ SECOND ARGUMENT 00316 M01S00265.note3 ---| SX2 2RNR 00317 M01S00266.note3 ---| LX2 -12 00318 M01S00267.note3 ---| BX1 X0*X1 00319 M01S00268.note3 ---| BX2 X1-X2 CHECK IF *NR* 00320 M01S00269.note3 ---| NZ X2,NOT7 IF NOT *NR* 00321 M00S00270.note +++| SA7 NR INDICATE NO REWIND IN EFFECT 00322 M00S00271.note +++| EQ NOT4 00323 M00S00272.note +++|* 00324 M00S00273.note +++| NOT3 REWIND S,R 00325 M00S00274.note +++| SX7 1R 00326 M00S00275.note +++| NOT4 RJ WDL WRITE DELIMITED LINES 00327 M00S00276.note +++| SA1 NR 00328 M00S00277.note +++| NZ X1,NOT5 IF NO REWIND SELECTED 00329 M00S00278.note +++| REWIND S 00330 M00S00279.note +++| NOT5 ENDRUN 00331 M00S00280.note +++|
| Line S00281 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00332 M01S00281.note3 ---|* PROCESS TOO MANY PARAMTERES.
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00333 M01S00051.note3 +++|* PROCESS TOO MANY PARAMETERS. 00334 M00S00282.note +++| 00335 M00S00283.note +++| NOT6 MESSAGE (=C* TOO MANY PARAMETERS.*),,R 00336 M00S00284.note +++| ABORT 00337 M00S00285.note +++| 00338 M00S00286.note +++|* PROCESS INCORRECT PARAMETERS 00339 M00S00287.note +++| 00340 M00S00288.note +++| NOT7 MESSAGE (=C* INCORRECT -NR- PARAMETER.*),,R 00341 M00S00289.note +++| ABORT 00342 M00S00290.note +++| TITLE SUBROUTINES. 00343 M00S00291.note +++| CNW SPACE 4,10 00344 M00S00292.note +++|** CNW - CENTER NAME IN WORD. 00345 M00S00293.note +++|* 00346 M00S00294.note +++|* ENTRY (X1) = NAME (LEFT JUSTIFIED, ZERO FILLED). 00347 M00S00295.note +++|* 00348 M00S00296.note +++|* EXIT (X6) = CENTERED NAME. 00349 M00S00297.note +++|* 00350 M00S00298.note +++|* USES X - 1, 7. 00351 M00S00299.note +++|* B - 2. 00352 M00S00300.note +++|* 00353 M00S00301.note +++|* CALLS SFN. 00354 M00S00302.note +++| 00355 M00S00303.note +++| 00356 M00S00304.note +++| CNW SUBR ENTRY/EXIT 00357 M00S00305.note +++| RJ SFN SPACE FILL NAME 00358 M00S00306.note +++| ZR X7,CNWX IF 10-CHARACTER NAME 00359 M00S00307.note +++| CX7 X7 NUMBER OF BITS IN NAME 00360 M00S00308.note +++| SX1 6 00361 M00S00309.note +++| IX7 X7/X1 NUMBER OF CHARACTERS IN NAME 00362 M00S00310.note +++| SX1 10 NUMBER OF CHARACTERS IN WORD 00363 M00S00311.note +++| IX7 X1-X7 00364 M00S00312.note +++| AX7 1 NUMBER OF CHARACTERS TO RIGHT SHIFT 00365 M00S00313.note +++| LX7 1 00366 M00S00314.note +++| SB2 X7 00367 M00S00315.note +++| LX7 1 00368 M00S00316.note +++| SB2 X7+B2 NUMBER OF BITS TO RIGHT SHIFT 00369 M00S00317.note +++| SB2 B2-60 00370 M00S00318.note +++| AX6 B2 CENTER NAME (CIRCULAR LEFT SHIFT) 00371 M00S00319.note +++| EQ CNWX RETURN 00372 M00S00320.note +++| CSP SPACE 4,15 00373 M00S00321.note +++|** CSP - CHECK FOR SUBSTITUTIBLE PARAMETERS. 00374 M00S00322.note +++|* 00375 M00S00323.note +++|* ENTRY (B6) = FWA OF DELIMITED STRING TO TEST. 00376 M00S00324.note +++|* (B7) = COUNT OF CHARACTERS IN STRING. 00377 M00S00325.note +++|* 00378 M00S00326.note +++|* EXIT (X4) = PACKED WORD TO BE PRINTED. 00379 M00S00327.note +++|* 00380 M00S00328.note +++|* USES X - 1, 2, 3, 4, 5, 6. 00381 M00S00329.note +++|* A - 1, 2, 4, 6. 00382 M00S00330.note +++|* B - 2, 3, 4, 5. 00383 M00S00331.note +++|* 00384 M00S00332.note +++|* CALLS CNW, GJS. 00385 M00S00333.note +++|* 00386 M00S00334.note +++|* MACROS CLOCK, DATE, SYSTEM, USERNUM. 00387 M00S00335.note +++| 00388 M00S00336.note +++| 00389 M00S00337.note +++| CSP SUBR ENTRY/EXIT 00390 M00S00338.note +++| SB4 B6 00391 M00S00339.note +++| SB5 60 00392 M00S00340.note +++| BX1 X1-X1 00393 M00S00341.note +++| SB2 10 MAXIMUM CHARACTERS 00394 M00S00342.note +++| SB3 B7-2 00395 M00S00343.note +++| LT B3,B2,CSP1 IF CORRECT NUMBER OF CHARACTERS 00396 M00S00344.note +++| SB3 9 RESET CHARACTER COUNT 00397 M00S00345.note +++| CSP1 SA2 B4 GET NEXT CHARACTER 00398 M00S00346.note +++| LX1 6 00399 M00S00347.note +++| BX1 X1+X2 PACK CHARACTER 00400 M00S00348.note +++| SB4 B4+B1 00401 M00S00349.note +++| SB5 B5-6 DECREMENT SHIFT COUNT 00402 M00S00350.note +++| SB3 B3-B1 DECREMENT CHARACTER COUNT 00403 M00S00351.note +++| PL B3,CSP1 IF MORE CHARACTERS 00404 M00S00352.note +++| LX1 B5 LEFT JUSTIFY STRING 00405 M00S00353.note +++| SA2 CSPA 00406 M00S00354.note +++| MX3 42 00407 M00S00355.note +++| CSP2 BX6 X3*X2 CHECK FOR SUBSTITUTIBLE PARAMETER 00408 M00S00356.note +++| BX6 X1-X6 00409 M00S00357.note +++| ZR X6,CSP3 IF SUBSTITUTIBLE PARAMETER FOUND 00410 M00S00358.note +++| SA2 A2+B1 00411 M00S00359.note +++| NZ X2,CSP2 IF NOT AT END OF MATCH TABLE 00412 M00S00360.note +++| 00413 M00S00361.note +++|* SPECIFIED STRING NOT FOUND IN TABLE. 00414 M00S00362.note +++| 00415 M00S00363.note +++| RJ CNW CENTER STRING ON LINE 00416 M00S00364.note +++| BX4 X6 00417 M00S00365.note +++| EQ CSPX RETURN 00418 M00S00366.note +++| 00419 M00S00367.note +++|* CALL SUBSTITUTION PROCESSOR. 00420 M00S00368.note +++| 00421 M00S00369.note +++| CSP3 SB2 X2 GET PROCESSOR ADDRESS 00422 M00S00370.note +++| JP B2 PROCESS SUBSTITUTION 00423 M00S00371.note +++| 00424 M00S00372.note +++|* GET CURRENT DATE. 00425 M00S00373.note +++| 00426 M00S00374.note +++| CSP4 SA4 DATE 00427 M00S00375.note +++| NZ X4,CSPX IF DATE ALREADY AVAILABLE 00428 M00S00376.note +++| DATE DATE 00429 M00S00377.note +++| SA1 DATE 00430 M00S00378.note +++| SX6 1R &1R. CHANGE LAST CHARACTER TO SPACE 00431 M00S00379.note +++| BX6 X1-X6 00432 M00S00380.note +++| SA6 A1 00433 M00S00381.note +++| EQ CSP4 RETURN DATE 00434 M00S00382.note +++| 00435 M00S00383.note +++|* GET CURRENT TIME. 00436 M00S00384.note +++| 00437 M00S00385.note +++| CSP5 SA4 TIME 00438 M00S00386.note +++| NZ X4,CSPX IF TIME ALREADY AVAILABLE 00439 M00S00387.note +++| CLOCK TIME 00440 M00S00388.note +++| SA1 TIME 00441 M00S00389.note +++| SX6 1R &1R. CHANGE LAST CHARACTER TO SPACE 00442 M00S00390.note +++| BX6 X1-X6 00443 M00S00391.note +++| SA6 A1 00444 M00S00392.note +++| EQ CSP5 RETURN TIME 00445 M00S00393.note +++| 00446 M00S00394.note +++|* GET USER NAME. 00447 M00S00395.note +++| 00448 M00S00396.note +++| CSP6 SA4 USER 00449 M00S00397.note +++| NZ X4,CSPX IF USER NAME ALREADY AVAILABLE 00450 M00S00398.note +++| USERNUM USER 00451 M00S00399.note +++| SA1 USER 00452 M00S00400.note +++| RJ CNW CENTER USER NAME IN WORD 00453 M00S00401.note +++| SA6 A1 00454 M00S00402.note +++| EQ CSP6 RETURN USER NAME 00455 M00S00403.note +++| 00456 M00S00404.note +++|* GET JSN. 00457 M00S00405.note +++| 00458 M00S00406.note +++| CSP7 SA4 JSNM 00459 M00S00407.note +++| NZ X4,CSPX IF JSN ALREADY AVAILABLE 00460 M00S00408.note +++| RJ GJS GET JSN 00461 M00S00409.note +++| EQ CSP7 RETURN JSN 00462 M00S00410.note +++| 00463 M00S00411.note +++|* GET UJN. 00464 M00S00412.note +++| 00465 M00S00413.note +++| CSP9 SA4 UJNM 00466 M00S00414.note +++| NZ X4,CSPX IF UJN ALREADY AVAILABLE 00467 M00S00415.note +++| SA1 JSNM 00468 M00S00416.note +++| NZ X1,CSP10 IF JSN ALREADY AVAILABLE 00469 M00S00417.note +++| RJ GJS GET JSN FOR *QAC* CALL 00470 M00S00418.note +++| CSP10 SYSTEM QAC,R,QACB CALL *QAC* FOR UJN 00471 M00S00419.note +++| SA1 PBUF+1 00472 M00S00420.note +++| MX3 42 00473 M00S00421.note +++| BX1 X3*X1 ISOLATE UJN 00474 M00S00422.note +++| RJ CNW CENTER UJN IN WORD 00475 M00S00423.note +++| SA6 UJNM 00476 M00S00424.note +++| EQ CSP9 RETURN UJN 00477 M00S00425.note +++| 00478 M00S00426.note +++| 00479 M00S00427.note +++| CSPA BSS 0 TABLE OF SUBSTITUTION PROCESSORS 00480 M00S00428.note +++| VFD 42/0LDATE,18/CSP4 00481 M00S00429.note +++| VFD 42/0LTIME,18/CSP5 00482 M00S00430.note +++| VFD 42/0LUSER,18/CSP6 00483 M00S00431.note +++| VFD 42/0LJSN,18/CSP7 00484 M00S00432.note +++| VFD 42/0LUJN,18/CSP9 00485 M00S00433.note +++| CON 0 00486 M00S00434.note +++| EXP SPACE 4,20 00487 M00S00435.note +++|** EXP - EXPAND CHARACTERS. 00488 M00S00436.note +++|* 00489 M00S00437.note +++|* EXPAND EACH CHARACTER OF A TEN CHARACTER STRING INTO A 00490 M00S00438.note +++|* PATTERN OF CHARACTERS IN A 10X10 MATRIX, AND WRITE THE 00491 M00S00439.note +++|* EXPANSION ONTO FILE *S*. CERTAIN SPECIAL STRINGS WILL 00492 M00S00440.note +++|* HAVE VALUES SUBSTITUTED BEFORE EXPANSION (SEE *CSP*). 00493 M00S00441.note +++|* A PAGE EJECT WILL BE WRITTEN IF THE PAGE IS FULL. 00494 M00S00442.note +++|* 00495 M00S00443.note +++|* ENTRY (B6) = FWA OF DELIMITED STRING TO EXPAND. 00496 M00S00444.note +++|* (B7) = COUNT OF CHARACTERS IN STRING. 00497 M00S00445.note +++|* 00498 M00S00446.note +++|* EXIT EXPANDED BLOCK LETTERS WRITTEN TO FILE. 00499 M00S00447.note +++|* 00500 M00S00448.note +++|* USES X - 1, 2, 3, 4, 5, 6. 00501 M00S00449.note +++|* A - 1, 2, 6. 00502 M00S00450.note +++|* 00503 M00S00451.note +++|* CALLS BAN, CSP. 00504 M00S00452.note +++|* 00505 M00S00453.note +++|* MACROS WRITEW. 00506 M00S00454.note +++| 00507 M00S00455.note +++| 00508 M00S00456.note +++| EXP SUBR ENTRY/EXIT 00509 M00S00457.note +++| RJ CSP CHECK FOR SUBSTITUTIBLE PARAMETERS 00510 M00S00458.note +++| SA2 LBUF EXPAND LINE TO *LBUF* 00511 M00S00459.note +++| RJ BAN 00512 M00S00460.note +++| SX5 A2-LBUF LENGTH OF BUFFER 00513 M00S00461.note +++| SA1 EXPA UPDATE LINE COUNT 00514 M00S00462.note +++| SX6 X1+/COMCBAN/LNCH+2 00515 M00S00463.note +++| SA2 NLIP 00516 M00S00464.note +++| SA6 A1 00517 M00S00465.note +++| ZR X1,EXP2 IF TOP OF FIRST PAGE 00518 M00S00466.note +++| IX2 X2-X6 00519 M00S00467.note +++| PL X2,EXP1 IF ROOM ON CURRENT PAGE 00520 M00S00468.note +++| SX6 /COMCBAN/LNCH+2 RESET LINE COUNT FOR NEW PAGE 00521 M00S00469.note +++| SA6 A1 00522 M00S00470.note +++| WRITEW S,(=2L1 ),1 ISSUE PAGE EJECT 00523 M00S00471.note +++| EQ EXP2 WRITE EXPANDED LINE TO FILE 00524 M00S00472.note +++| 00525 M00S00473.note +++| EXP1 WRITEW S,(=2L0 ),1 ISSUE DOUBLE SPACE 00526 M00S00474.note +++| EXP2 WRITEW S,LBUF,X5 WRITE EXPANDED LINE TO FILE 00527 M00S00475.note +++| EQ EXPX RETURN 00528 M00S00476.note +++| 00529 M00S00477.note +++| 00530 M00S00478.note +++| EXPA CON 0 NUMBER OF LINES ALREADY ON CURRENT PAGE
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00531 M01S00052.note3 +++| ICP SPACE 4,15 00532 M01S00053.note3 +++|** ICP - INITIALIZE COMMAND PARAMETERS. 00533 M01S00054.note3 +++|* 00534 M01S00055.note3 +++|* ICP INITIALIZES THE COMMAND STRING BUFFER FOR SUBSEQUENT 00535 M01S00056.note3 +++|* EXTRACTION OF PARAMETERS VIA *POP*. 00536 M01S00057.note3 +++|* 00537 M01S00058.note3 +++|* EXIT (B6) .EQ. 0 IF TERMINATOR ENCOUNTERED. 00538 M01S00059.note3 +++|* .NE. 0 = INDEX TO NEXT CHARACTER IN BUFFER. 00539 M01S00060.note3 +++|* (USCB) = EXPANDED COMMAND, 1 CHARACTER PER WORD. 00540 M01S00061.note3 +++|* 00541 M01S00062.note3 +++|* USES X - 1. 00542 M01S00063.note3 +++|* A - 1. 00543 M01S00064.note3 +++|* B - 2, 6. 00544 M01S00065.note3 +++|* 00545 M01S00066.note3 +++|* CALLS POP, USB. 00546 M01S00067.note3 +++| 00547 M01S00068.note3 +++| 00548 M01S00069.note3 +++| ICP2 RJ POP SKIP PAST COMMAND NAME 00549 M01S00070.note3 +++| 00550 M01S00071.note3 +++| ICP SUBR ENTRY/EXIT 00551 M01S00072.note3 +++| SB2 CCDR COMMAND 00552 M01S00073.note3 +++| RJ USB UNPACK DATA BLOCK TO STRING BUFFER 00553 M01S00074.note3 +++| ICP1 SA1 B6+ SKIP PREFIX $, /, SPACE 00554 M01S00075.note3 +++| SX1 X1-1R9-1 00555 M01S00076.note3 +++| NG X1,ICP2 IF ALPHANUMERIC CHARACTER 00556 M01S00077.note3 +++| SB6 B6+1 00557 M01S00078.note3 +++| EQ ICP1 CHECK NEXT CHARACTER 00558 M00S00479.note +++| GJS SPACE 4,15 00559 M00S00480.note +++|** GJS - GET JOB SEQUENCE NAME. 00560 M00S00481.note +++|* 00561 M00S00482.note +++|* EXIT (QBSC+2) SET WITH JSN FOR *QAC* CALL. 00562 M00S00483.note +++|* (JSNM) = CENTERED JSN. 00563 M00S00484.note +++|* 00564 M00S00485.note +++|* USES X - 1, 6. 00565 M00S00486.note +++|* A - 1, 6. 00566 M00S00487.note +++|* 00567 M00S00488.note +++|* CALLS CNW. 00568 M00S00489.note +++|* 00569 M00S00490.note +++|* MACROS GETJN. 00570 M00S00491.note +++| 00571 M00S00492.note +++| 00572 M00S00493.note +++| GJS SUBR ENTRY/EXIT 00573 M00S00494.note +++| GETJN QBSC+2 GET JSN 00574 M00S00495.note +++| SA1 QBSC+2 SET JSN FOR POSSIBLE *QAC* CALL 00575 M00S00496.note +++| SX6 100B SET JSN FLAG 00576 M00S00497.note +++| BX6 X1+X6 00577 M00S00498.note +++| SA6 A1 00578 M00S00499.note +++| RJ CNW CENTER JSN 00579 M00S00500.note +++| SA6 JSNM SET CENTERED JSN 00580 M00S00501.note +++| EQ GJSX RETURN 00581 M00S00502.note +++| WDL SPACE 4,20 00582 M00S00503.note +++|** WDL - WRITE DELIMITED LINES. 00583 M00S00504.note +++|* 00584 M00S00505.note +++|* ENTRY (X7) = TERMINATOR TO BE APPENDED TO EACH LINE. 00585 M00S00506.note +++|* (S) SET WITH PROPER FILE NAME. 00586 M00S00507.note +++|* 00587 M00S00508.note +++|* EXIT FILE WRITTEN WITH EOR. 00588 M00S00509.note +++|* 00589 M00S00510.note +++|* USES X - ALL. 00590 M00S00511.note +++|* A - 0, 1, 2, 5, 6, 7. 00591 M00S00512.note +++|* B - 2, 5, 6, 7. 00592 M00S00513.note +++|*
| Line S00514 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00593 M01S00514.note3 ---|* CALLS CSP, EXP, USB.
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00594 M01S00079.note3 +++|* CALLS EXP. 00595 M00S00515.note +++|* 00596 M00S00516.note +++|* MACROS ABORT, MESSAGE, WRITER, WRITES, WRITEW. 00597 M00S00517.note +++| 00598 M00S00518.note +++| 00599 M00S00519.note +++| WDL SUBR ENTRY/EXIT 00600 M00S00520.note +++| SA7 WDLA SAVE TERMINATOR
| Line S00521 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00601 M01S00521.note3 ---| 00602 M01S00522.note3 ---|* UNPACK CALL COMMAND. 00603 M01S00523.note3 ---| 00604 M01S00524.note3 ---| SB2 CCDR UNPACK CALL COMMAND 00605 M01S00525.note3 ---| RJ USB 00606 M01S00526.note3 ---| SA2 USBC LWA OF STRING
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00607 M01S00080.note3 +++| SA2 USBC LWA OF COMMAND IN STRING BUFFER 00608 M00S00527.note +++| MX6 -1 ASSURE STRING TERMINATION 00609 M00S00528.note +++| SA0 B0 CLEAR LINE COUNT 00610 M00S00529.note +++|
| Line S00530 Modification History | |
|---|---|
M01 (Removed by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00611 M01S00530.note3 ---|* REMOVE TRAILING BLANKS.
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00612 M01S00081.note3 +++|* REMOVE TRAILING BLANKS FROM COMMAND. 00613 M00S00531.note +++| 00614 M00S00532.note +++| WDL0.1 SA1 X2+ 00615 M00S00533.note +++| SX2 X2-1 00616 M00S00534.note +++| SX1 X1-1R 00617 M00S00535.note +++| ZR X1,WDL0.1 IF BLANK CHARACTER 00618 M00S00536.note +++| 00619 M00S00537.note +++|* FIND BEGINNING OF LINES TO BE WRITTEN. 00620 M00S00538.note +++| 00621 M00S00539.note +++| SA5 USBB FIND DELIMITER 00622 M00S00540.note +++| SA6 X2+2 00623 M00S00541.note +++| SA6 X2+3 00624 M00S00542.note +++| WDL1 NG X5,WDL11 IF NO TERMINATION 00625 M00S00543.note +++| SX6 X5-1R. 00626 M00S00544.note +++| SX7 X5-1R) 00627 M00S00545.note +++| SA5 A5+1 00628 M00S00546.note +++| ZR X6,WDL2 IF TERMINATOR 00629 M00S00547.note +++| NZ X7,WDL1 IF NOT TERMINATOR 00630 M00S00548.note +++| WDL2 BX0 X5 DELIMITER 00631 M00S00549.note +++| SA5 A5+B1 FIRST CHARACTER OF FIRST LINE 00632 M00S00550.note +++| BX6 X0 00633 M00S00551.note +++| SB6 A5 SET FWA OF LINE 00634 M00S00552.note +++| SA6 WDLB SAVE DELIMITER 00635 M00S00553.note +++| SB5 B0 INITIALIZE LINE TERMINATOR FLAG 00636 M00S00554.note +++| 00637 M00S00555.note +++|* WRITE DELIMITED LINES. 00638 M00S00556.note +++| 00639 M00S00557.note +++| WDL3 NG X5,WDL8 IF END OF STRING 00640 M00S00558.note +++| BX6 X5-X0 CHECK DELIMITER 00641 M00S00559.note +++| SX4 X5-1R. 00642 M00S00560.note +++| SX3 X5-1R) 00643 M00S00561.note +++| ZR X4,WDL4 IF TERMINATOR 00644 M00S00562.note +++| NZ X3,WDL5 IF NOT TERMINATOR 00645 M00S00563.note +++| WDL4 SB5 1 INDICATE TERMINATOR IN THIS LINE 00646 M00S00564.note +++| WDL5 SA5 A5+1 00647 M00S00565.note +++| NZ X6,WDL3 IF NOT DELIMITER 00648 M00S00566.note +++| SA1 WDLA TERMINATE LINE 00649 M00S00567.note +++| SB7 A5 WRITE LINE 00650 M00S00568.note +++| BX7 X1 00651 M00S00569.note +++| SB7 B7-B6 LENGTH OF LINE 00652 M00S00570.note +++| SA7 A5-B1 00653 M00S00571.note +++| SA1 BLKF 00654 M00S00572.note +++| NZ X1,WDL7 IF *BLOCK* CALL 00655 M00S00573.note +++| ZR B5,WDL6 IF LINE TERMINATOR NOT FOUND 00656 M00S00574.note +++| SB7 B7-1 DO NOT ADD TERMINATOR 00657 M00S00575.note +++| WDL6 WRITES S,B6,B7 00658 M00S00576.note +++| SB6 A5 SET FWA OF LINE 00659 M00S00577.note +++| SB5 B0 INITIALIZE LINE TERMINATOR FLAG 00660 M00S00578.note +++| EQ WDL3 LOOP TO STRING TERMINATOR 00661 M00S00579.note +++| 00662 M00S00580.note +++| WDL7 RJ EXP EXPAND CHARACTERS 00663 M00S00581.note +++| SA5 A5 RESTORE (X5) 00664 M00S00582.note +++| SA2 WDLB RESTORE DELIMITER 00665 M00S00583.note +++| SB6 A5 SET FWA OF LINE 00666 M00S00584.note +++| BX0 X2 00667 M00S00585.note +++| EQ WDL3 LOOP TO STRING TERMINATOR 00668 M00S00586.note +++| 00669 M00S00587.note +++|* WRITE LAST LINE. 00670 M00S00588.note +++| 00671 M00S00589.note +++| WDL8 SB7 A5+B1 WRITE LAST LINE 00672 M00S00590.note +++| SA1 WDLA TERMINATE LINE 00673 M00S00591.note +++| SB7 B7-B6 LENGTH OF LINE 00674 M00S00592.note +++| BX7 X1 00675 M00S00593.note +++| SA7 A5 00676 M00S00594.note +++| SA1 BLKF 00677 M00S00595.note +++| NZ X1,WDL10 IF *BLOCK* CALL 00678 M00S00596.note +++| ZR B5,WDL9 IF LINE TERMINATOR NOT FOUND 00679 M00S00597.note +++| SB7 B7-1 DO NOT ADD LINE TERMINATOR 00680 M00S00598.note +++| WDL9 WRITES S,B6,B7 00681 M00S00599.note +++| WRITER S,R END FILE 00682 M00S00600.note +++| EQ WDLX RETURN 00683 M00S00601.note +++| 00684 M00S00602.note +++| WDL10 RJ EXP EXPAND CHARACTERS 00685 M00S00603.note +++| WRITEW S,(=2L0 ),1 ISSUE DOUBLE SPACE 00686 M00S00604.note +++| WRITER S,R END FILE 00687 M00S00605.note +++| EQ WDLX RETURN 00688 M00S00606.note +++| 00689 M00S00607.note +++| WDL11 MESSAGE (=C* NO TERMINATOR IN COMMAND CALL.*) 00690 M00S00608.note +++| ABORT 00691 M00S00609.note +++| 00692 M00S00610.note +++| WDLA CON 0 HOLDS LINE TERMINATOR 00693 M00S00611.note +++| WDLB CON 0 STRING DELIMITER 00694 M00S00612.note +++| SPACE 4 00695 M00S00613.note +++|* COMMON DECKS. 00696 M00S00614.note +++| 00697 M00S00615.note +++| 00698 M00S00616.note +++| LIST X 00699 M00S00617.note +++| SMCH$ EQU 1 ENCODE SMALL CHARACTERS 00700 M00S00618.note +++|*CALL COMCBAN 00701 M00S00619.note +++| LIST * 00702 M00S00620.note +++|*CALL COMCCIO 00703 M00S00621.note +++|*CALL COMCCPM 00704 M00S00622.note +++|*CALL COMCSFN 00705 M00S00623.note +++|*CALL COMCSYS 00706 M00S00624.note +++|*CALL COMCUSB
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00707 M01S00082.note3 +++| LIT EQ 1 ALLOW LITERAL PARAMETERS 00708 M01S00083.note3 +++|*CALL COMCPOP 00709 M00S00625.note +++|*CALL COMCWTS 00710 M00S00626.note +++|*CALL COMCWTW 00711 M00S00627.note +++| LIST X 00712 M00S00628.note +++|*CALL COMTBAN 00713 M00S00629.note +++| LIST * 00714 M00S00630.note +++| SPACE 4 00715 M00S00631.note +++| USE BUFFER 00716 M00S00632.note +++| SPACE 4 00717 M00S00633.note +++|* BUFFER. 00718 M00S00634.note +++| 00719 M00S00635.note +++| 00720 M00S00636.note +++| SBUF EQU * SCRATCH BUFFER 00721 M00S00637.note +++| LBUF EQU SBUF+SBUFL LINE BUFFER 00722 M00S00638.note +++| RFL= EQU LBUF+134D 00723 M00S00639.note +++| 00724 M00S00640.note +++| 00725 M00S00641.note +++| END
cdc/nos2.source/opl.opl871/deck/note.txt · Last modified: (external edit)