cdc:nos2.source:opl.opl871:deck:note
Deck NOTE
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.note +++| IDENT NOTE,FET 00002 M01S00002.note +++| ABS 00003 M01S00003.note +++| SST 00004 M01S00004.note +++| SYSCOM B1 00005 M01S00005.note +++| 00006 M01S00006.note +++| ENTRY BLOCK 00007 M01S00007.note +++| ENTRY ENTER 00008 M01S00008.note +++| ENTRY NOTE 00009 M01S00009.note +++| ENTRY RFL= 00010 M01S00010.note +++| 00011 M01S00011.note +++|*COMMENT NOTE - ENTER DELIMITED LINES INTO FILE.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M02S00012.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1977. 00013 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00014 M01S00013.note +++| TITLE NOTE - ENTER DELIMITED LINES INTO FILE. 00015 M01S00014.note +++| SPACE 4 00016 M01S00015.note +++|*** NOTE - ENTER DELIMITED LINES INTO FILE. 00017 M01S00016.note +++|* J.C.BOHNHOFF. 75/05/04. 00018 M01S00017.note +++|* W.F.ANSLEY. 77/02/03. 00019 M01S00018.note +++|* R.K.MYERS. 84/01/04. 00020 M01S00019.note +++| SPACE 4 00021 M01S00020.note +++|*** NOTE TAKES DELIMITED LINES FROM THE CALL COMMAND 00022 M01S00021.note +++|* AND WRITES THEM INDIVIDUALLY TO A FILE. THIS FILE MAY BE USED 00023 M01S00022.note +++|* AS A PROCEDURE. 00024 M01S00023.note +++| NOTE SPACE 4,45 00025 M01S00024.note +++|*** THE COMMAND - 00026 M01S00025.note +++|* 00027 M01S00026.note +++|* BLOCK(LFN,P1,P2)/BLINE 1/BLINE 2/BLINE N 00028 M01S00027.note +++|* OR 00029 M01S00028.note +++|* ENTER./COMMAND 1/COMMAND 2/COMMAND N 00030 M01S00029.note +++|* OR 00031 M01S00030.note +++|* NOTE(LFN,NR)/LINE 1/LINE 2/LINE N 00032 M01S00031.note +++|* 00033 M01S00032.note +++|* ASSUMED PARAMETERS. 00034 M01S00033.note +++|* LFN = *OUTPUT*. 00035 M01S00034.note +++|* NR OMITTED = AUTOMATIC REWIND BEFORE AND AFTER (*NOTE*).
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00036 M02S00035.note3 ---|* R OMITTED = NO REWIND BEFORE (*BLOCK*). 00037 M01S00001.note3 +++|* P1 OMITTED = NO REWIND BEFORE (*BLOCK*). 00038 M01S00036.note +++|* 00039 M01S00037.note +++|* WHERE ) MAY BE PERIOD OR RIGHT PARENTHESIS. 00040 M01S00038.note +++|* LFN IS A FILE NAME TO RECEIVE THE LINES. IF ABSENT, 00041 M01S00039.note +++|* *OUTPUT* IS ASSUMED.
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00042 M02S00040.note3 ---|* NR INDICATES THE FILE SHOULD NOT BE REWOUND (EITHER
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00043 M02S00041.note3 ---|* INITIALLY OR DURING TERMINATION). 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 M01S00042.note +++|* P1 CAN EITHER BE *R* OR *NR*, DENOTING WHETHER 00047 M01S00043.note +++|* THE FILE SHOULD BE REWOUND BEFORE PROCESSING. 00048 M01S00044.note +++|* P2 CAN BE ANY USER SPECIFIED CARRIAGE CONTROL
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00049 M02S00045.note3 ---|* CHARACTER (ONLY 1 IS USED), BUT NO CHECKING
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00050 M02S00046.note3 ---|* IS PERFORMED AS TO ITS VALIDITY. 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 M01S00047.note +++|* / MAY BE ANY CHARACTER TO DELIMIT THE INDIVIDUAL 00055 M01S00048.note +++|* COMMANDS. IT MUST IMMEDIATELY FOLLOW THE PERIOD 00056 M01S00049.note +++|* OR RIGHT PARENTHESIS. A RIGHT BLANK WILL BE 00057 M01S00050.note +++|* GENERATED FOR EACH OCCURRENCE OF CONSECUTIVE 00058 M01S00051.note +++|* DELIMITERS. 00059 M01S00052.note +++|* COMMAND I IS ANY VALID COMMAND. A 00060 M01S00053.note +++|* PERIOD IS APPENDED TO ANY COMMAND THAT DOES NOT 00061 M01S00054.note +++|* ALREADY HAVE A TERMINATOR (A *.* OR A *)*). 00062 M01S00055.note +++|* LINE I IS ANY TEXT. IT IS TREATED THE SAME AS A 00063 M01S00056.note +++|* COMMAND EXCEPT THAT A BLANK IS APPENDED TO 00064 M01S00057.note +++|* EACH LINE INSTEAD OF A PERIOD. 00065 M01S00058.note +++|* BLINE I IS ANY TEXT STRING OF UP TO 9 00066 M01S00059.note +++|* CHARACTERS IN LENGTH, WHICH IS TO BE PRINTED 00067 M01S00060.note +++|* IN EXPANDED FORMAT TO FILE LFN. THERE ARE 00068 M01S00061.note +++|* SPECIAL TEXT STRINGS FOR WHICH CURRENT DATA 00069 M01S00062.note +++|* ABOUT THE JOB WILL BE SUBSTITUTED. THESE ARE - 00070 M01S00063.note +++|* 00071 M01S00064.note +++|* STRING SUBSTITUTED DATA 00072 M01S00065.note +++|* ------ ----------- ---- 00073 M01S00066.note +++|* DATE CURRENT DATE 00074 M01S00067.note +++|* JSN JOB SEQUENCE NAME 00075 M01S00068.note +++|* TIME CURRENT TIME 00076 M01S00069.note +++|* UJN USER JOB NAME 00077 M01S00070.note +++|* USER USER NAME 00078 M01S00071.note +++|* 00079 M01S00072.note +++|* 00080 M01S00073.note +++|* *ENTER* WRITES THE COMMANDS TO AN INTERNAL FILE 00081 M01S00074.note +++|* *ZZZZZG0* AND THEN EXECUTES A *ZZZZZG0.* COMMAND 00082 M01S00075.note +++|* TO PROCESS THE COMMANDS. 00083 M01S00076.note +++|* 00084 M01S00077.note +++|* FOR EXAMPLE - 00085 M01S00078.note +++|* ENTER./LDSET(LIB=ULIB)/LOAD(A)/LOAD(LGO)/NOGO. 00086 M01S00079.note +++|* RESULTS IN - 00087 M01S00080.note +++|* LDSET(LIB=ULIB) 00088 M01S00081.note +++|* LOAD(A) 00089 M01S00082.note +++|* LOAD(LGO) 00090 M01S00083.note +++|* NOGO. 00091 M01S00084.note +++|* 00092 M01S00085.note +++|* *NOTE* WRITES THE LINES TO A FILE. 00093 M01S00086.note +++|* 00094 M01S00087.note +++|* FOR EXAMPLE - 00095 M01S00088.note +++|* NOTE(MESSAGE)/ CANT GET THE FILE 00096 M01S00089.note +++|* RESULTS IN FILE MESSAGE CONTAINING - 00097 M01S00090.note +++|* CANT GET THE FILE 00098 M01S00091.note +++| SPACE 4 00099 M01S00092.note +++|*** DAYFILE MESSAGES ISSUED. 00100 M01S00093.note +++|* 00101 M01S00094.note +++|* * TOO MANY PARAMETERS.* 00102 M01S00095.note +++|* MORE THAN TWO PARAMETERS WERE SPECIFIED ON THE CALL 00103 M01S00096.note +++|* COMMAND. 00104 M01S00097.note +++|* 00105 M01S00098.note +++|* * NO TERMINATOR IN COMMAND CALL.* 00106 M01S00099.note +++|* NO TERMINATOR WAS FOUND BEFORE THE LEADING DELIMITER 00107 M01S00100.note +++|* OF THE CALL COMMAND. 00108 M01S00101.note +++|* 00109 M01S00102.note +++|* * INCORRECT -NR- PARAMETER.*
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00110 M02S00103.note3 ---|* A PARAMETER OTHER THAN *NR* WAS USED TO INITIATE
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00111 M02S00104.note3 ---|* NO REWIND OF THE FILE. 00112 M01S00007.note3 +++|* A PARAMETER OTHER THAN *NR*, *R* OR NULL WAS PASSED 00113 M01S00008.note3 +++|* TO *NOTE* AS THE SECOND PARAMETER. 00114 M01S00105.note +++|* 00115 M01S00106.note +++|* * INCORRECT -R/NR- PARAMETER.* 00116 M01S00107.note +++|* A PARAMETER OTHER THAN *R*, *NR* OR NULL WAS PASSED 00117 M01S00108.note +++|* TO *BLOCK* AS THE SECOND PARAMETER. 00118 M01S00109.note +++| TITLE SYMBOLS AND DATA. 00119 M01S00110.note +++|* COMMON DECKS. 00120 M01S00111.note +++| 00121 M01S00112.note +++| 00122 M01S00113.note +++|*CALL COMCMAC 00123 M01S00114.note +++|*CALL COMSQAC 00124 M01S00115.note +++| SPACE 4 00125 M01S00116.note +++|* SYMBOL DEFINITIONS. 00126 M01S00117.note +++| 00127 M01S00118.note +++| 00128 M01S00119.note +++| PBUFL EQU 3 *QAC*/*PEEK* BUFFER LENGTH 00129 M01S00120.note +++| SBUFL EQU 3001B SCRATCH/OUTPUT BUFFER LENGTH 00130 M01S00121.note +++| SPACE 4 00131 M01S00122.note +++|* FET. 00132 M01S00123.note +++| 00133 M01S00124.note +++| 00134 M01S00125.note +++| ORG 110B 00135 M01S00126.note +++| FET BSS 0 00136 M01S00127.note +++| 00137 M01S00128.note +++| S BSS 0 SCRATCH 00138 M01S00129.note +++| ZZZZZG0 FILEB SBUF,SBUFL 00139 M01S00130.note +++| SPACE 4 00140 M01S00131.note +++|* DATA LOCATIONS. 00141 M01S00132.note +++| 00142 M01S00133.note +++| 00143 M01S00134.note +++| BLKF CON 0 *BLOCK* FLAG 00144 M01S00135.note +++| CCCH DATA 1L1 CARRIAGE CONTROL CHARACTER 00145 M01S00136.note +++| DATE CON 0 CURRENT DATE 00146 M01S00137.note +++| JSNM CON 0 JOB SEQUENCE NAME 00147 M01S00138.note +++| NLIP CON 0 NUMBER OF LINES IN PAGE 00148 M01S00139.note +++| NR CON 0 NO REWIND FLAG 00149 M01S00140.note +++| TIME CON 0 CURRENT TIME 00150 M01S00141.note +++| UJNM CON 0 USER JOB NAME 00151 M01S00142.note +++| USER CON 0 USER NAME 00152 M01S00143.note +++| QACB SPACE 4,10 00153 M01S00144.note +++|* *QAC* PARAMETER BLOCK. 00154 M01S00145.note +++| 00155 M01S00146.note +++| QACB VFD 50/0,9/PKFC,1/0 REQUEST PREFIX PORTION 00156 M01S00147.note +++| VFD 36/0,6/11,18/PBUF 00157 M01S00148.note +++| VFD 42/0,18/PBUF 00158 M01S00149.note +++| VFD 42/0,18/PBUF 00159 M01S00150.note +++| VFD 42/0,18/PBUF+PBUFL 00160 M01S00151.note +++| QBSC VFD 60/0 SELECTION CRITERIA PORTION 00161 M01S00152.note +++| VFD 60/0 00162 M01S00153.note +++| VFD 60/100B 00163 M01S00154.note +++| VFD 12/2B,48/0 00164 M01S00155.note +++| VFD 60/0 00165 M01S00156.note +++| VFD 60/0 00166 M01S00157.note +++| VFD 60/0 00167 M01S00158.note +++| QBPF VFD 60/-0 PEEK FUNCTION PORTION 00168 M01S00159.note +++| VFD 12/-0,48/0 00169 M01S00160.note +++| VFD 48/0,12/UJPB+JSPB JSN AND USER JOBNAME 00170 M01S00161.note +++| VFD 60/0 00171 M01S00162.note +++| 00172 M01S00163.note +++| 00173 M01S00164.note +++|* *QAC*/*PEEK* BUFFER. 00174 M01S00165.note +++| 00175 M01S00166.note +++| PBUF BSSZ PBUFL 00176 M01S00167.note +++| TITLE COMMAND PROCESSORS. 00177 M01S00168.note +++| BLOCK SPACE 4,10 00178 M01S00169.note +++|** BLOCK - WRITE BLOCK LETTERS TO FILE. 00179 M01S00170.note +++| 00180 M01S00171.note +++| 00181 M01S00172.note +++| BLOCK BSS 0 ENTRY 00182 M01S00173.note +++| SB1 1
| Line S00174 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00183 M02S00174.note3 ---| SX6 B1 00184 M01S00009.note3 +++| SX6 B1+ 00185 M01S00175.note +++| SA6 BLKF SET *BLOCK* FLAG
| Line S00176 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00186 M02S00176.note3 ---| SA1 ACTR GET ARGUMENT COUNT
| Line S00177 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00187 M02S00177.note3 ---| MX0 42
| Line S00178 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00188 M02S00178.note3 ---| SB2 X1
| Line S00179 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00189 M02S00179.note3 ---| SA1 ARGR READ FIRST ARGUMENT
| Line S00180 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00190 M02S00180.note3 ---| BX1 X0*X1
| Line S00181 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00191 M02S00181.note3 ---| NZ X1,BLO1 IF ARGUMENT PRESENT
| Line S00182 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00192 M02S00182.note3 ---| SA1 =0LOUTPUT SET DEFAULT FILE NAME 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 M01S00183.note +++| BLO1 SX7 B1 SET STATUS
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00200 M02S00184.note3 ---| BX6 X7+X1 00201 M01S00016.note3 +++| BX6 X7+X6 00202 M01S00185.note +++| SA6 S SET FILE NAME
| Line S00186 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00203 M02S00186.note3 ---| SB4 3
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00204 M02S00187.note3 ---| GT B2,B4,NOT6 IF TOO MANY PARAMETERS
| Line S00188 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00205 M02S00188.note3 ---| LE B2,B1,BLO2 IF ZERO OR ONE PARAMETER
| Line S00189 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00206 M02S00189.note3 ---| SA1 ARGR+1 READ SECOND ARGUMENT 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 M01S00190.note +++| SX2 1RR
| Line S00191 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00212 M02S00191.note3 ---| SX3 2RNR 00213 M01S00021.note3 +++| LX3 -12 00214 M01S00192.note +++| LX2 -6
| Line S00193 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00215 M02S00193.note3 ---| LX3 -12
| Line S00194 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00216 M02S00194.note3 ---| BX4 X0*X1
| Line S00195 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00217 M02S00195.note3 ---| BX2 X4-X2 CHECK IF *R*
| Line S00196 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00218 M02S00196.note3 ---| ZR X4,BLO2 IF NO PARAMETER SPECIFIED
| Line S00197 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00219 M02S00197.note3 ---| BX3 X4-X3 00220 M01S00022.note3 +++| BX3 X6-X3 00221 M01S00023.note3 +++| BX2 X6-X2 CHECK IF *R* 00222 M01S00198.note +++| ZR X3,BLO2 IF *NR* SPECIFIED 00223 M01S00199.note +++| NZ X2,BLO4 IF NOT *R* 00224 M01S00200.note +++| REWIND S,R
| Line S00201 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00225 M02S00201.note3 ---| BLO2 LT B2,B4,BLO3 IF ONLY 2 PARAMETERS
| Line S00202 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00226 M02S00202.note3 ---| SA1 ARGR+2 READ THIRD ARGUMENT
| Line S00203 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00227 M02S00203.note3 ---| MX6 6 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 M01S00204.note +++| BX6 X6*X1 ISOLATE TO 1 CHARACTER
| Line S00205 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00233 M02S00205.note3 ---| ZR X6,BLO3 IF NULL PARAMETER SPECIFIED 00234 M01S00206.note +++| SA6 CCCH SET USER SPECIFIED CARRIAGE CONTROL 00235 M01S00207.note +++| BLO3 GETPAGE BLOA GET PAGE SIZE PARAMETERS 00236 M01S00208.note +++| SA1 BLOA 00237 M01S00209.note +++| MX6 -8 00238 M01S00210.note +++| LX1 -20 00239 M01S00211.note +++| BX6 -X6*X1 NUMBER OF LINES ON PAGE 00240 M01S00212.note +++| SA6 NLIP 00241 M01S00213.note +++| WRITEW S,CCCH,1 WRITE CARRIAGE CONTROL CHARACTER 00242 M01S00214.note +++| SX7 1R SET TERMINATOR 00243 M01S00215.note +++| RJ WDL WRITE DELIMITED LINES 00244 M01S00216.note +++| ENDRUN 00245 M01S00217.note +++| 00246 M01S00218.note +++|* PROCESS INCORRECT PARAMETERS. 00247 M01S00219.note +++| 00248 M01S00220.note +++| BLO4 MESSAGE (=C* INCORRECT -R/NR- PARAMETER.*),,R 00249 M01S00221.note +++| ABORT 00250 M01S00222.note +++| 00251 M01S00223.note +++| 00252 M01S00224.note +++| BLOA BSS 2 *GETPAGE* PARAMETER BLOCK 00253 M01S00225.note +++| ENTER SPACE 4,10 00254 M01S00226.note +++|** ENTER - PLACE COMMANDS FROM CALL COMMAND INTO 00255 M01S00227.note +++|* FILE *ZZZZZG0*, AND THEN CALL FILE *ZZZZZG0*. 00256 M01S00228.note +++| 00257 M01S00229.note +++| 00258 M01S00230.note +++| ENTER BSS 0 ENTRY 00259 M01S00231.note +++| SB1 1 00260 M01S00028.note3 +++| RJ ICP INITIALIZE COMMAND PARAMETERS 00261 M01S00232.note +++| REWIND S,R REWIND SCRATCH FILE 00262 M01S00233.note +++| WRITEW S,ENTA,ENTAL WRITE PROCEDURE HEADER 00263 M01S00234.note +++| SX7 1R. SET TERMINATOR 00264 M01S00235.note +++| RJ WDL WRITE DELIMITED LINES 00265 M01S00236.note +++| EXCST (=C*ZZZZZG0.*) ENTER CALL COMMAND 00266 M01S00237.note +++| 00267 M01S00238.note +++| ENTA DATA C*.PROC,ZZZZZG0.* 00268 M01S00239.note +++| DATA C*$RETURN,ZZZZZG0.* 00269 M01S00240.note +++| ENTAL EQU *-ENTA 00270 M01S00241.note +++| NOTE SPACE 4 00271 M01S00242.note +++|** NOTE - PLACE LINES FROM CALL COMMAND INTO SPECIFIED FILE. 00272 M01S00243.note +++| 00273 M01S00244.note +++| 00274 M01S00245.note +++| NOTE BSS 0 ENTRY
| Line S00246 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00275 M02S00246.note3 ---| SB1 1 SET CONSTANT 1
| Line S00247 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00276 M02S00247.note3 ---| SA1 ACTR CHECK ARGUMENT COUNT 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 M01S00248.note +++| MX0 42
| Line S00249 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00286 M02S00249.note3 ---| SB2 X1
| Line S00250 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00287 M02S00250.note3 ---| SA1 ARGR READ FIRST ARGUMENT
| Line S00251 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00288 M02S00251.note3 ---| NZ B2,NOT1 IF ARGUMENTS PRESENT
| Line S00252 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00289 M02S00252.note3 ---| SA1 =0LOUTPUT SET DEFAULT FILE NAME
| Line S00253 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00290 M02S00253.note3 ---| NOT1 BX3 X0*X1 FILE NAME
| Line S00254 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00291 M02S00254.note3 ---| SA2 S SET NAME 00292 M01S00255.note +++| BX7 -X0*X2 FILE STATUS
| Line S00256 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00293 M02S00256.note3 ---| NZ X3,NOT2 IF NAME SPECIFIED
| Line S00257 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00294 M02S00257.note3 ---| SA3 =0LOUTPUT SET DEFAULT FILE NAME
| Line S00258 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00295 M02S00258.note3 ---| NOT2 BX6 X3+X7 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 M01S00259.note +++| SX7 1R SET TERMINATOR
| Line S00260 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00311 M02S00260.note3 ---| SA6 A2
| Line S00261 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00312 M02S00261.note3 ---| SB3 B1+B1
| Line S00262 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00313 M02S00262.note3 ---| GT B2,B3,NOT6 IF TOO MANY PARAMETERS
| Line S00263 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00314 M02S00263.note3 ---| LT B2,B3,NOT3 IF ZERO OR ONE PARAMETER
| Line S00264 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00315 M02S00264.note3 ---| SA1 ARGR+1 READ SECOND ARGUMENT
| Line S00265 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00316 M02S00265.note3 ---| SX2 2RNR
| Line S00266 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00317 M02S00266.note3 ---| LX2 -12
| Line S00267 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00318 M02S00267.note3 ---| BX1 X0*X1
| Line S00268 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00319 M02S00268.note3 ---| BX2 X1-X2 CHECK IF *NR*
| Line S00269 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00320 M02S00269.note3 ---| NZ X2,NOT7 IF NOT *NR* 00321 M01S00270.note +++| SA7 NR INDICATE NO REWIND IN EFFECT 00322 M01S00271.note +++| EQ NOT4 00323 M01S00272.note +++|* 00324 M01S00273.note +++| NOT3 REWIND S,R 00325 M01S00274.note +++| SX7 1R 00326 M01S00275.note +++| NOT4 RJ WDL WRITE DELIMITED LINES 00327 M01S00276.note +++| SA1 NR 00328 M01S00277.note +++| NZ X1,NOT5 IF NO REWIND SELECTED 00329 M01S00278.note +++| REWIND S 00330 M01S00279.note +++| NOT5 ENDRUN 00331 M01S00280.note +++|
| Line S00281 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00332 M02S00281.note3 ---|* PROCESS TOO MANY PARAMTERES. 00333 M01S00051.note3 +++|* PROCESS TOO MANY PARAMETERS. 00334 M01S00282.note +++| 00335 M01S00283.note +++| NOT6 MESSAGE (=C* TOO MANY PARAMETERS.*),,R 00336 M01S00284.note +++| ABORT 00337 M01S00285.note +++| 00338 M01S00286.note +++|* PROCESS INCORRECT PARAMETERS 00339 M01S00287.note +++| 00340 M01S00288.note +++| NOT7 MESSAGE (=C* INCORRECT -NR- PARAMETER.*),,R 00341 M01S00289.note +++| ABORT 00342 M01S00290.note +++| TITLE SUBROUTINES. 00343 M01S00291.note +++| CNW SPACE 4,10 00344 M01S00292.note +++|** CNW - CENTER NAME IN WORD. 00345 M01S00293.note +++|* 00346 M01S00294.note +++|* ENTRY (X1) = NAME (LEFT JUSTIFIED, ZERO FILLED). 00347 M01S00295.note +++|* 00348 M01S00296.note +++|* EXIT (X6) = CENTERED NAME. 00349 M01S00297.note +++|* 00350 M01S00298.note +++|* USES X - 1, 7. 00351 M01S00299.note +++|* B - 2. 00352 M01S00300.note +++|* 00353 M01S00301.note +++|* CALLS SFN. 00354 M01S00302.note +++| 00355 M01S00303.note +++| 00356 M01S00304.note +++| CNW SUBR ENTRY/EXIT 00357 M01S00305.note +++| RJ SFN SPACE FILL NAME 00358 M01S00306.note +++| ZR X7,CNWX IF 10-CHARACTER NAME 00359 M01S00307.note +++| CX7 X7 NUMBER OF BITS IN NAME 00360 M01S00308.note +++| SX1 6 00361 M01S00309.note +++| IX7 X7/X1 NUMBER OF CHARACTERS IN NAME 00362 M01S00310.note +++| SX1 10 NUMBER OF CHARACTERS IN WORD 00363 M01S00311.note +++| IX7 X1-X7 00364 M01S00312.note +++| AX7 1 NUMBER OF CHARACTERS TO RIGHT SHIFT 00365 M01S00313.note +++| LX7 1 00366 M01S00314.note +++| SB2 X7 00367 M01S00315.note +++| LX7 1 00368 M01S00316.note +++| SB2 X7+B2 NUMBER OF BITS TO RIGHT SHIFT 00369 M01S00317.note +++| SB2 B2-60 00370 M01S00318.note +++| AX6 B2 CENTER NAME (CIRCULAR LEFT SHIFT) 00371 M01S00319.note +++| EQ CNWX RETURN 00372 M01S00320.note +++| CSP SPACE 4,15 00373 M01S00321.note +++|** CSP - CHECK FOR SUBSTITUTIBLE PARAMETERS. 00374 M01S00322.note +++|* 00375 M01S00323.note +++|* ENTRY (B6) = FWA OF DELIMITED STRING TO TEST. 00376 M01S00324.note +++|* (B7) = COUNT OF CHARACTERS IN STRING. 00377 M01S00325.note +++|* 00378 M01S00326.note +++|* EXIT (X4) = PACKED WORD TO BE PRINTED. 00379 M01S00327.note +++|* 00380 M01S00328.note +++|* USES X - 1, 2, 3, 4, 5, 6. 00381 M01S00329.note +++|* A - 1, 2, 4, 6. 00382 M01S00330.note +++|* B - 2, 3, 4, 5. 00383 M01S00331.note +++|* 00384 M01S00332.note +++|* CALLS CNW, GJS. 00385 M01S00333.note +++|* 00386 M01S00334.note +++|* MACROS CLOCK, DATE, SYSTEM, USERNUM. 00387 M01S00335.note +++| 00388 M01S00336.note +++| 00389 M01S00337.note +++| CSP SUBR ENTRY/EXIT 00390 M01S00338.note +++| SB4 B6 00391 M01S00339.note +++| SB5 60 00392 M01S00340.note +++| BX1 X1-X1 00393 M01S00341.note +++| SB2 10 MAXIMUM CHARACTERS 00394 M01S00342.note +++| SB3 B7-2 00395 M01S00343.note +++| LT B3,B2,CSP1 IF CORRECT NUMBER OF CHARACTERS 00396 M01S00344.note +++| SB3 9 RESET CHARACTER COUNT 00397 M01S00345.note +++| CSP1 SA2 B4 GET NEXT CHARACTER 00398 M01S00346.note +++| LX1 6 00399 M01S00347.note +++| BX1 X1+X2 PACK CHARACTER 00400 M01S00348.note +++| SB4 B4+B1 00401 M01S00349.note +++| SB5 B5-6 DECREMENT SHIFT COUNT 00402 M01S00350.note +++| SB3 B3-B1 DECREMENT CHARACTER COUNT 00403 M01S00351.note +++| PL B3,CSP1 IF MORE CHARACTERS 00404 M01S00352.note +++| LX1 B5 LEFT JUSTIFY STRING 00405 M01S00353.note +++| SA2 CSPA 00406 M01S00354.note +++| MX3 42 00407 M01S00355.note +++| CSP2 BX6 X3*X2 CHECK FOR SUBSTITUTIBLE PARAMETER 00408 M01S00356.note +++| BX6 X1-X6 00409 M01S00357.note +++| ZR X6,CSP3 IF SUBSTITUTIBLE PARAMETER FOUND 00410 M01S00358.note +++| SA2 A2+B1 00411 M01S00359.note +++| NZ X2,CSP2 IF NOT AT END OF MATCH TABLE 00412 M01S00360.note +++| 00413 M01S00361.note +++|* SPECIFIED STRING NOT FOUND IN TABLE. 00414 M01S00362.note +++| 00415 M01S00363.note +++| RJ CNW CENTER STRING ON LINE 00416 M01S00364.note +++| BX4 X6 00417 M01S00365.note +++| EQ CSPX RETURN 00418 M01S00366.note +++| 00419 M01S00367.note +++|* CALL SUBSTITUTION PROCESSOR. 00420 M01S00368.note +++| 00421 M01S00369.note +++| CSP3 SB2 X2 GET PROCESSOR ADDRESS 00422 M01S00370.note +++| JP B2 PROCESS SUBSTITUTION 00423 M01S00371.note +++| 00424 M01S00372.note +++|* GET CURRENT DATE. 00425 M01S00373.note +++| 00426 M01S00374.note +++| CSP4 SA4 DATE 00427 M01S00375.note +++| NZ X4,CSPX IF DATE ALREADY AVAILABLE 00428 M01S00376.note +++| DATE DATE 00429 M01S00377.note +++| SA1 DATE 00430 M01S00378.note +++| SX6 1R &1R. CHANGE LAST CHARACTER TO SPACE 00431 M01S00379.note +++| BX6 X1-X6 00432 M01S00380.note +++| SA6 A1 00433 M01S00381.note +++| EQ CSP4 RETURN DATE 00434 M01S00382.note +++| 00435 M01S00383.note +++|* GET CURRENT TIME. 00436 M01S00384.note +++| 00437 M01S00385.note +++| CSP5 SA4 TIME 00438 M01S00386.note +++| NZ X4,CSPX IF TIME ALREADY AVAILABLE 00439 M01S00387.note +++| CLOCK TIME 00440 M01S00388.note +++| SA1 TIME 00441 M01S00389.note +++| SX6 1R &1R. CHANGE LAST CHARACTER TO SPACE 00442 M01S00390.note +++| BX6 X1-X6 00443 M01S00391.note +++| SA6 A1 00444 M01S00392.note +++| EQ CSP5 RETURN TIME 00445 M01S00393.note +++| 00446 M01S00394.note +++|* GET USER NAME. 00447 M01S00395.note +++| 00448 M01S00396.note +++| CSP6 SA4 USER 00449 M01S00397.note +++| NZ X4,CSPX IF USER NAME ALREADY AVAILABLE 00450 M01S00398.note +++| USERNUM USER 00451 M01S00399.note +++| SA1 USER 00452 M01S00400.note +++| RJ CNW CENTER USER NAME IN WORD 00453 M01S00401.note +++| SA6 A1 00454 M01S00402.note +++| EQ CSP6 RETURN USER NAME 00455 M01S00403.note +++| 00456 M01S00404.note +++|* GET JSN. 00457 M01S00405.note +++| 00458 M01S00406.note +++| CSP7 SA4 JSNM 00459 M01S00407.note +++| NZ X4,CSPX IF JSN ALREADY AVAILABLE 00460 M01S00408.note +++| RJ GJS GET JSN 00461 M01S00409.note +++| EQ CSP7 RETURN JSN 00462 M01S00410.note +++| 00463 M01S00411.note +++|* GET UJN. 00464 M01S00412.note +++| 00465 M01S00413.note +++| CSP9 SA4 UJNM 00466 M01S00414.note +++| NZ X4,CSPX IF UJN ALREADY AVAILABLE 00467 M01S00415.note +++| SA1 JSNM 00468 M01S00416.note +++| NZ X1,CSP10 IF JSN ALREADY AVAILABLE 00469 M01S00417.note +++| RJ GJS GET JSN FOR *QAC* CALL 00470 M01S00418.note +++| CSP10 SYSTEM QAC,R,QACB CALL *QAC* FOR UJN 00471 M01S00419.note +++| SA1 PBUF+1 00472 M01S00420.note +++| MX3 42 00473 M01S00421.note +++| BX1 X3*X1 ISOLATE UJN 00474 M01S00422.note +++| RJ CNW CENTER UJN IN WORD 00475 M01S00423.note +++| SA6 UJNM 00476 M01S00424.note +++| EQ CSP9 RETURN UJN 00477 M01S00425.note +++| 00478 M01S00426.note +++| 00479 M01S00427.note +++| CSPA BSS 0 TABLE OF SUBSTITUTION PROCESSORS 00480 M01S00428.note +++| VFD 42/0LDATE,18/CSP4 00481 M01S00429.note +++| VFD 42/0LTIME,18/CSP5 00482 M01S00430.note +++| VFD 42/0LUSER,18/CSP6 00483 M01S00431.note +++| VFD 42/0LJSN,18/CSP7 00484 M01S00432.note +++| VFD 42/0LUJN,18/CSP9 00485 M01S00433.note +++| CON 0 00486 M01S00434.note +++| EXP SPACE 4,20 00487 M01S00435.note +++|** EXP - EXPAND CHARACTERS. 00488 M01S00436.note +++|* 00489 M01S00437.note +++|* EXPAND EACH CHARACTER OF A TEN CHARACTER STRING INTO A 00490 M01S00438.note +++|* PATTERN OF CHARACTERS IN A 10X10 MATRIX, AND WRITE THE 00491 M01S00439.note +++|* EXPANSION ONTO FILE *S*. CERTAIN SPECIAL STRINGS WILL 00492 M01S00440.note +++|* HAVE VALUES SUBSTITUTED BEFORE EXPANSION (SEE *CSP*). 00493 M01S00441.note +++|* A PAGE EJECT WILL BE WRITTEN IF THE PAGE IS FULL. 00494 M01S00442.note +++|* 00495 M01S00443.note +++|* ENTRY (B6) = FWA OF DELIMITED STRING TO EXPAND. 00496 M01S00444.note +++|* (B7) = COUNT OF CHARACTERS IN STRING. 00497 M01S00445.note +++|* 00498 M01S00446.note +++|* EXIT EXPANDED BLOCK LETTERS WRITTEN TO FILE. 00499 M01S00447.note +++|* 00500 M01S00448.note +++|* USES X - 1, 2, 3, 4, 5, 6. 00501 M01S00449.note +++|* A - 1, 2, 6. 00502 M01S00450.note +++|* 00503 M01S00451.note +++|* CALLS BAN, CSP. 00504 M01S00452.note +++|* 00505 M01S00453.note +++|* MACROS WRITEW. 00506 M01S00454.note +++| 00507 M01S00455.note +++| 00508 M01S00456.note +++| EXP SUBR ENTRY/EXIT 00509 M01S00457.note +++| RJ CSP CHECK FOR SUBSTITUTIBLE PARAMETERS 00510 M01S00458.note +++| SA2 LBUF EXPAND LINE TO *LBUF* 00511 M01S00459.note +++| RJ BAN 00512 M01S00460.note +++| SX5 A2-LBUF LENGTH OF BUFFER 00513 M01S00461.note +++| SA1 EXPA UPDATE LINE COUNT 00514 M01S00462.note +++| SX6 X1+/COMCBAN/LNCH+2 00515 M01S00463.note +++| SA2 NLIP 00516 M01S00464.note +++| SA6 A1 00517 M01S00465.note +++| ZR X1,EXP2 IF TOP OF FIRST PAGE 00518 M01S00466.note +++| IX2 X2-X6 00519 M01S00467.note +++| PL X2,EXP1 IF ROOM ON CURRENT PAGE 00520 M01S00468.note +++| SX6 /COMCBAN/LNCH+2 RESET LINE COUNT FOR NEW PAGE 00521 M01S00469.note +++| SA6 A1 00522 M01S00470.note +++| WRITEW S,(=2L1 ),1 ISSUE PAGE EJECT 00523 M01S00471.note +++| EQ EXP2 WRITE EXPANDED LINE TO FILE 00524 M01S00472.note +++| 00525 M01S00473.note +++| EXP1 WRITEW S,(=2L0 ),1 ISSUE DOUBLE SPACE 00526 M01S00474.note +++| EXP2 WRITEW S,LBUF,X5 WRITE EXPANDED LINE TO FILE 00527 M01S00475.note +++| EQ EXPX RETURN 00528 M01S00476.note +++| 00529 M01S00477.note +++| 00530 M01S00478.note +++| EXPA CON 0 NUMBER OF LINES ALREADY ON CURRENT PAGE 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 M01S00479.note +++| GJS SPACE 4,15 00559 M01S00480.note +++|** GJS - GET JOB SEQUENCE NAME. 00560 M01S00481.note +++|* 00561 M01S00482.note +++|* EXIT (QBSC+2) SET WITH JSN FOR *QAC* CALL. 00562 M01S00483.note +++|* (JSNM) = CENTERED JSN. 00563 M01S00484.note +++|* 00564 M01S00485.note +++|* USES X - 1, 6. 00565 M01S00486.note +++|* A - 1, 6. 00566 M01S00487.note +++|* 00567 M01S00488.note +++|* CALLS CNW. 00568 M01S00489.note +++|* 00569 M01S00490.note +++|* MACROS GETJN. 00570 M01S00491.note +++| 00571 M01S00492.note +++| 00572 M01S00493.note +++| GJS SUBR ENTRY/EXIT 00573 M01S00494.note +++| GETJN QBSC+2 GET JSN 00574 M01S00495.note +++| SA1 QBSC+2 SET JSN FOR POSSIBLE *QAC* CALL 00575 M01S00496.note +++| SX6 100B SET JSN FLAG 00576 M01S00497.note +++| BX6 X1+X6 00577 M01S00498.note +++| SA6 A1 00578 M01S00499.note +++| RJ CNW CENTER JSN 00579 M01S00500.note +++| SA6 JSNM SET CENTERED JSN 00580 M01S00501.note +++| EQ GJSX RETURN 00581 M01S00502.note +++| WDL SPACE 4,20 00582 M01S00503.note +++|** WDL - WRITE DELIMITED LINES. 00583 M01S00504.note +++|* 00584 M01S00505.note +++|* ENTRY (X7) = TERMINATOR TO BE APPENDED TO EACH LINE. 00585 M01S00506.note +++|* (S) SET WITH PROPER FILE NAME. 00586 M01S00507.note +++|* 00587 M01S00508.note +++|* EXIT FILE WRITTEN WITH EOR. 00588 M01S00509.note +++|* 00589 M01S00510.note +++|* USES X - ALL. 00590 M01S00511.note +++|* A - 0, 1, 2, 5, 6, 7. 00591 M01S00512.note +++|* B - 2, 5, 6, 7. 00592 M01S00513.note +++|*
| Line S00514 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00593 M02S00514.note3 ---|* CALLS CSP, EXP, USB. 00594 M01S00079.note3 +++|* CALLS EXP. 00595 M01S00515.note +++|* 00596 M01S00516.note +++|* MACROS ABORT, MESSAGE, WRITER, WRITES, WRITEW. 00597 M01S00517.note +++| 00598 M01S00518.note +++| 00599 M01S00519.note +++| WDL SUBR ENTRY/EXIT 00600 M01S00520.note +++| SA7 WDLA SAVE TERMINATOR
| Line S00521 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00601 M02S00521.note3 ---|
| Line S00522 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00602 M02S00522.note3 ---|* UNPACK CALL COMMAND.
| Line S00523 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00603 M02S00523.note3 ---|
| Line S00524 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00604 M02S00524.note3 ---| SB2 CCDR UNPACK CALL COMMAND
| Line S00525 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00605 M02S00525.note3 ---| RJ USB
| Line S00526 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00606 M02S00526.note3 ---| SA2 USBC LWA OF STRING 00607 M01S00080.note3 +++| SA2 USBC LWA OF COMMAND IN STRING BUFFER 00608 M01S00527.note +++| MX6 -1 ASSURE STRING TERMINATION 00609 M01S00528.note +++| SA0 B0 CLEAR LINE COUNT 00610 M01S00529.note +++|
| Line S00530 Modification History | |
|---|---|
M01 (Added by) | note |
M02 (Updated by) | note3 |
Seq # *Modification Id* Act ----------------------------+ 00611 M02S00530.note3 ---|* REMOVE TRAILING BLANKS. 00612 M01S00081.note3 +++|* REMOVE TRAILING BLANKS FROM COMMAND. 00613 M01S00531.note +++| 00614 M01S00532.note +++| WDL0.1 SA1 X2+ 00615 M01S00533.note +++| SX2 X2-1 00616 M01S00534.note +++| SX1 X1-1R 00617 M01S00535.note +++| ZR X1,WDL0.1 IF BLANK CHARACTER 00618 M01S00536.note +++| 00619 M01S00537.note +++|* FIND BEGINNING OF LINES TO BE WRITTEN. 00620 M01S00538.note +++| 00621 M01S00539.note +++| SA5 USBB FIND DELIMITER 00622 M01S00540.note +++| SA6 X2+2 00623 M01S00541.note +++| SA6 X2+3 00624 M01S00542.note +++| WDL1 NG X5,WDL11 IF NO TERMINATION 00625 M01S00543.note +++| SX6 X5-1R. 00626 M01S00544.note +++| SX7 X5-1R) 00627 M01S00545.note +++| SA5 A5+1 00628 M01S00546.note +++| ZR X6,WDL2 IF TERMINATOR 00629 M01S00547.note +++| NZ X7,WDL1 IF NOT TERMINATOR 00630 M01S00548.note +++| WDL2 BX0 X5 DELIMITER 00631 M01S00549.note +++| SA5 A5+B1 FIRST CHARACTER OF FIRST LINE 00632 M01S00550.note +++| BX6 X0 00633 M01S00551.note +++| SB6 A5 SET FWA OF LINE 00634 M01S00552.note +++| SA6 WDLB SAVE DELIMITER 00635 M01S00553.note +++| SB5 B0 INITIALIZE LINE TERMINATOR FLAG 00636 M01S00554.note +++| 00637 M01S00555.note +++|* WRITE DELIMITED LINES. 00638 M01S00556.note +++| 00639 M01S00557.note +++| WDL3 NG X5,WDL8 IF END OF STRING 00640 M01S00558.note +++| BX6 X5-X0 CHECK DELIMITER 00641 M01S00559.note +++| SX4 X5-1R. 00642 M01S00560.note +++| SX3 X5-1R) 00643 M01S00561.note +++| ZR X4,WDL4 IF TERMINATOR 00644 M01S00562.note +++| NZ X3,WDL5 IF NOT TERMINATOR 00645 M01S00563.note +++| WDL4 SB5 1 INDICATE TERMINATOR IN THIS LINE 00646 M01S00564.note +++| WDL5 SA5 A5+1 00647 M01S00565.note +++| NZ X6,WDL3 IF NOT DELIMITER 00648 M01S00566.note +++| SA1 WDLA TERMINATE LINE 00649 M01S00567.note +++| SB7 A5 WRITE LINE 00650 M01S00568.note +++| BX7 X1 00651 M01S00569.note +++| SB7 B7-B6 LENGTH OF LINE 00652 M01S00570.note +++| SA7 A5-B1 00653 M01S00571.note +++| SA1 BLKF 00654 M01S00572.note +++| NZ X1,WDL7 IF *BLOCK* CALL 00655 M01S00573.note +++| ZR B5,WDL6 IF LINE TERMINATOR NOT FOUND 00656 M01S00574.note +++| SB7 B7-1 DO NOT ADD TERMINATOR 00657 M01S00575.note +++| WDL6 WRITES S,B6,B7 00658 M01S00576.note +++| SB6 A5 SET FWA OF LINE 00659 M01S00577.note +++| SB5 B0 INITIALIZE LINE TERMINATOR FLAG 00660 M01S00578.note +++| EQ WDL3 LOOP TO STRING TERMINATOR 00661 M01S00579.note +++| 00662 M01S00580.note +++| WDL7 RJ EXP EXPAND CHARACTERS 00663 M01S00581.note +++| SA5 A5 RESTORE (X5) 00664 M01S00582.note +++| SA2 WDLB RESTORE DELIMITER 00665 M01S00583.note +++| SB6 A5 SET FWA OF LINE 00666 M01S00584.note +++| BX0 X2 00667 M01S00585.note +++| EQ WDL3 LOOP TO STRING TERMINATOR 00668 M01S00586.note +++| 00669 M01S00587.note +++|* WRITE LAST LINE. 00670 M01S00588.note +++| 00671 M01S00589.note +++| WDL8 SB7 A5+B1 WRITE LAST LINE 00672 M01S00590.note +++| SA1 WDLA TERMINATE LINE 00673 M01S00591.note +++| SB7 B7-B6 LENGTH OF LINE 00674 M01S00592.note +++| BX7 X1 00675 M01S00593.note +++| SA7 A5 00676 M01S00594.note +++| SA1 BLKF 00677 M01S00595.note +++| NZ X1,WDL10 IF *BLOCK* CALL 00678 M01S00596.note +++| ZR B5,WDL9 IF LINE TERMINATOR NOT FOUND 00679 M01S00597.note +++| SB7 B7-1 DO NOT ADD LINE TERMINATOR 00680 M01S00598.note +++| WDL9 WRITES S,B6,B7 00681 M01S00599.note +++| WRITER S,R END FILE 00682 M01S00600.note +++| EQ WDLX RETURN 00683 M01S00601.note +++| 00684 M01S00602.note +++| WDL10 RJ EXP EXPAND CHARACTERS 00685 M01S00603.note +++| WRITEW S,(=2L0 ),1 ISSUE DOUBLE SPACE 00686 M01S00604.note +++| WRITER S,R END FILE 00687 M01S00605.note +++| EQ WDLX RETURN 00688 M01S00606.note +++| 00689 M01S00607.note +++| WDL11 MESSAGE (=C* NO TERMINATOR IN COMMAND CALL.*) 00690 M01S00608.note +++| ABORT 00691 M01S00609.note +++| 00692 M01S00610.note +++| WDLA CON 0 HOLDS LINE TERMINATOR 00693 M01S00611.note +++| WDLB CON 0 STRING DELIMITER 00694 M01S00612.note +++| SPACE 4 00695 M01S00613.note +++|* COMMON DECKS. 00696 M01S00614.note +++| 00697 M01S00615.note +++| 00698 M01S00616.note +++| LIST X 00699 M01S00617.note +++| SMCH$ EQU 1 ENCODE SMALL CHARACTERS 00700 M01S00618.note +++|*CALL COMCBAN 00701 M01S00619.note +++| LIST * 00702 M01S00620.note +++|*CALL COMCCIO 00703 M01S00621.note +++|*CALL COMCCPM 00704 M01S00622.note +++|*CALL COMCSFN 00705 M01S00623.note +++|*CALL COMCSYS 00706 M01S00624.note +++|*CALL COMCUSB 00707 M01S00082.note3 +++| LIT EQ 1 ALLOW LITERAL PARAMETERS 00708 M01S00083.note3 +++|*CALL COMCPOP 00709 M01S00625.note +++|*CALL COMCWTS 00710 M01S00626.note +++|*CALL COMCWTW 00711 M01S00627.note +++| LIST X 00712 M01S00628.note +++|*CALL COMTBAN 00713 M01S00629.note +++| LIST * 00714 M01S00630.note +++| SPACE 4 00715 M01S00631.note +++| USE BUFFER 00716 M01S00632.note +++| SPACE 4 00717 M01S00633.note +++|* BUFFER. 00718 M01S00634.note +++| 00719 M01S00635.note +++| 00720 M01S00636.note +++| SBUF EQU * SCRATCH BUFFER 00721 M01S00637.note +++| LBUF EQU SBUF+SBUFL LINE BUFFER 00722 M01S00638.note +++| RFL= EQU LBUF+134D 00723 M01S00639.note +++| 00724 M01S00640.note +++| 00725 M01S00641.note +++| END
cdc/nos2.source/opl.opl871/deck/note.txt · Last modified: by 127.0.0.1