1 Modification

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcupc +++|          CTEXT  COMCUPC - UNPACK CONTROL CARD.
00002  M01S00002.comcupc +++| UPC      SPACE  4
00003  M01S00003.comcupc +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcupc +++|          QUAL   COMCUPC
00005  M01S00005.comcupc +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comcupc +++| UPC      SPACE  4
00009  M01S00008.comcupc +++|***       UPC - UNPACK CONTROL CARD.
00010  M01S00009.comcupc +++|*         G. R. MANSFIELD.  70/12/12.
00011  M01S00010.comcupc +++| UPC      SPACE  4
00012  M01S00011.comcupc +++|***              UPC UNPACKS A CONTROL CARD TO INDIVIDUAL PARAMETERS.
00013  M01S00012.comcupc +++|*         THE FOLLOWING CONDITIONS ARE NOTED.
00014  M01S00013.comcupc +++|*         (1.)  IMBEDDED SPACES ARE IGNORED.
00015  M01S00014.comcupc +++|*         (2.)  THE CHARACTERS +-/=,($ ARE CONSIDERED AS PARAMETER
00016  M01S00015.comcupc +++|*                SEPARATORS.
00017  M01S00016.comcupc +++|*         (3.)  THE CHARACTERS ). ARE CONSIDERED AS THE TERMINATION OF
00018  M01S00017.comcupc +++|*                THE CONTROL CARD.
00019  M01S00018.comcupc +++|*         (4.)  CHARACTERS WITH DISPLAY CODE VALUES 0, OR 60B - 77B
00020  M01S00019.comcupc +++|*                ARE ILLEGAL BEFORE THE TERMINATOR.
00021  M01S00020.comcupc +++|*         (5.)  THE PARAMETER MUST CONTAIN 7 OR LESS CHARACTERS.
00022  M01S00021.comcupc +++|*         (6.)  THE PARAMETERS ARE STORED LEFT JUSTIFIED WITH ZERO
00023  M01S00022.comcupc +++|*                FILL.
00024  M01S00023.comcupc +++|*         (7.)   THE CHARACTER , WILL NOT BE PLACED IN THE LOWER
00025  M01S00024.comcupc +++|*                18 BITS OF THE KEYWORD PARAMETER.
00026  M01S00025.comcupc +++|*         (8.)  TWO SUCCESSIVE SEPARATORS OR A SEPARATOR FOLLOWED BY
00027  M01S00026.comcupc +++|*                A TERMINATOR RESULTS IN A PARAMETER OF ALL ZERO.
00028  M01S00027.comcupc +++|*
00029  M01S00028.comcupc +++|*         ENTRY  (X5) = FIRST WORD OF CONTROL CARD.
00030  M01S00029.comcupc +++|*                (A5) = ADDRESS OF FIRST WORD.
00031  M01S00030.comcupc +++|*                (B7) = ADDRESS FOR FIRST PARAMETER.
00032  M01S00031.comcupc +++|*                (B1) = 1.
00033  M01S00032.comcupc +++|*
00034  M01S00033.comcupc +++|*         EXIT   (X6) = 0 IF NO ERROR DURING UNPACK.
00035  M01S00034.comcupc +++|*                (B6) = PARAMETER COUNT.
00036  M01S00035.comcupc +++|*
00037  M01S00036.comcupc +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.
00038  M01S00037.comcupc +++|*                B - 2, 3, 4, 5, 6.
00039  M01S00038.comcupc +++|*                A - 1, 2, 5, 6, 7.
00040  M01S00039.comcupc +++|*
00041  M01S00040.comcupc +++|*         CALLS  NONE.
00042  M01S00041.comcupc +++|
00043  M01S00042.comcupc +++|
00044  M01S00043.comcupc +++| UPC      PS                 ENTRY/EXIT
00045  M01S00044.comcupc +++|          SX3    4100B       (X3) = MASK FOR TERMINATORS
00046  M01S00045.comcupc +++|          SB5    60          (B5) = CONSTANT 60
00047  M01S00046.comcupc +++|          MX0    -6          (X0) = CHARACTER MASK
00048  M01S00047.comcupc +++|          BX6    X6-X6       CLEAR ASSEMBLY
00049  M01S00048.comcupc +++|          SB2    B5          CLEAR CHARACTER COUNT
00050  M01S00049.comcupc +++|          MX2    18          (X2) = EXCESS CHARACTER MASK
00051  M01S00050.comcupc +++|          MX4    1           (X4) = CHARACTER COUNTER
00052  M01S00051.comcupc +++|          SB6    B0          (B6) = ASSEMBLY INDEX
00053  M01S00052.comcupc +++|          EQ     UPC2        ENTER LOOP
00054  M01S00053.comcupc +++|
00055  M01S00054.comcupc +++| UPC1     LX6    6           ADVANCE ASSEMBLY
00056  M01S00055.comcupc +++|          SB2    B2-6
00057  M01S00056.comcupc +++|          BX6    X6+X7
00058  M01S00057.comcupc +++| UPC2     LX5    6           NEXT CHARACTER
00059  M01S00058.comcupc +++|          BX7    -X0*X5
00060  M01S00059.comcupc +++|          SB3    X7-1R9      CHECK CHARACTER
00061  M01S00060.comcupc +++|          LX4    6           ADVANCE DISASSEMBLY
00062  M01S00061.comcupc +++|          PL     X4,UPC3
00063  M01S00062.comcupc +++|          SA5    A5+B1
00064  M01S00063.comcupc +++| UPC3     ZR     X7,UPC5     IF CHARACTER = 00
00065  M01S00064.comcupc +++|          LT     B3,B1,UPC1  IF ALPHA/NUMERIC
00066  M01S00065.comcupc +++|
00067  M01S00066.comcupc +++|          SB4    X7-1R*
00068  M01S00067.comcupc +++|          ZR     B4,UPC1     IF CHARACTER = *
00069  M01S00068.comcupc +++|          SB4    X7-1R       CHECK CHARACTER
00070  M01S00069.comcupc +++|          ZR     B4,UPC2     IF CHARACTER = * *
00071  M01S00070.comcupc +++|          BX1    X2*X6       CHECK ASSEMBLY
00072  M01S00071.comcupc +++|          LX6    X6,B2       LEFT JUSTIFY ASSEMBLY
00073  M01S00072.comcupc +++|          NZ     X1,UPC5     IF > 7 CHARACTERS ASSEMBLED
00074  M01S00073.comcupc +++|          AX1    X3,B3       CHECK FOR TERMINATOR
00075  M01S00074.comcupc +++|          EQ     B4,B1,UPC4  IF SEPARATOR = *,*
00076  M01S00075.comcupc +++|          BX6    X6+X7       INSERT SEPARATOR
00077  M01S00076.comcupc +++| UPC4     SA6    B7+B6       STORE ASSEMBLY
00078  M01S00077.comcupc +++|          SB2    B5          RESET ASSEMBLY
00079  M01S00078.comcupc +++|          BX6    X6-X6
00080  M01S00079.comcupc +++|          LX1    59
00081  M01S00080.comcupc +++|          SB6    B6+B1
00082  M01S00081.comcupc +++|          SA6    A6+B1       CLEAR LAST + 1
00083  M01S00082.comcupc +++|          PL     X1,UPC2     LOOP IF NOT TERMINATRO
00084  M01S00083.comcupc +++|          SA2    A6-1        CLEAR TERMINATOR
00085  M01S00084.comcupc +++|          MX3    42
00086  M01S00085.comcupc +++|          BX7    X3*X2
00087  M01S00086.comcupc +++|          SA7    A2
00088  M01S00087.comcupc +++|          EQ     UPC         RETURN
00089  M01S00088.comcupc +++|
00090  M01S00089.comcupc +++| UPC5     SX6    B1          RETURN ERROR
00091  M01S00090.comcupc +++|          SB6    B0
00092  M01S00091.comcupc +++|          EQ     UPC
00093  M01S00092.comcupc +++|          SPACE  4
00094  M01S00093.comcupc +++|          BASE   *
00095  M01S00094.comcupc +++| QUAL$    IF     -DEF,QUAL$
00096  M01S00095.comcupc +++|          QUAL   *
00097  M01S00096.comcupc +++| UPC      EQU    /COMCUPC/UPC
00098  M01S00097.comcupc +++| QUAL$    ENDIF
00099  M01S00098.comcupc +++|          ENDX