User Tools

Site Tools


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