1 Modification

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcsnm +++|          CTEXT  COMCSNM - SET NAME IN MESSAGE.
00002  M01S00002.comcsnm +++|          SPACE  4,10
00003  M01S00003.comcsnm +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcsnm +++|          QUAL   COMCSNM
00005  M01S00005.comcsnm +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1977.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comcsnm +++|          SPACE  4,10
00009  M01S00008.comcsnm +++|***       SNM - SET NAME IN MESSAGE.
00010  M01S00009.comcsnm +++|*         J. L. LARSON.      77/01/14.
00011  M01S00010.comcsnm +++| SNM      SPACE  4,10
00012  M01S00011.comcsnm +++|***              SNM REPLACES OCCURANCES OF THE SEARCH CHARACTER
00013  M01S00012.comcsnm +++|*         WITHIN A MESSAGE OR LINE WITH THE CHARACTERS OF THE GIVEN
00014  M01S00013.comcsnm +++|*         NAME OR NUMBER, ELIMINATING ALL EXCESS OCCURANCES OF THE
00015  M01S00014.comcsnm +++|*         SEARCH CHARACTER, AND GUARENTEEING END OF LINE IN THE NEW
00016  M01S00015.comcsnm +++|*         MESSAGE.  THE ORIGINAL MESSAGE MUST CONTAIN A SUFFICIENT
00017  M01S00016.comcsnm +++|*         NUMBER OF SEARCH CHARACTERS (USUALLY CONSECUTIVE) TO ALLOW
00018  M01S00017.comcsnm +++|*         FOR REPLACEMENT BY THE NAME OR NUMBER (UP TO 10 CHARACTERS).
00019  M01S00018.comcsnm +++|*         THE MESSAGE MUST NOT CONTAIN COLONS (00B) SINCE THEY WILL
00020  M01S00019.comcsnm +++|*         BE INTERPRETTED AS EOL.
00021  M01S00020.comcsnm +++|*
00022  M01S00021.comcsnm +++|*         ENTRY  (B1) = 1.
00023  M01S00022.comcsnm +++|*                (B2) = DISPLAY CODE SEARCH CHARACTER,
00024  M01S00023.comcsnm +++|*                       RIGHT JUSTIFIED, BINARY ZERO FILLED.
00025  M01S00024.comcsnm +++|*                (B3) = OPTIONAL ADDRESS OF ASSEMBLY AREA.
00026  M01S00025.comcsnm +++|*                (B5) = FWA MESSAGE.
00027  M01S00026.comcsnm +++|*                (B5) .LT. 0, USE (B3) AS ADDRESS OF ASSEMBLY AREA.
00028  M01S00027.comcsnm +++|*                (X1) = DISPLAY CODE NAME TO BE SET IN MESSAGE,
00029  M01S00028.comcsnm +++|*                       LEFT JUSTIFIED, BINARY ZERO FILLED.
00030  M01S00029.comcsnm +++|*
00031  M01S00030.comcsnm +++|*         EXIT   (A7) = LWA OF NEW MESSAGE.
00032  M01S00031.comcsnm +++|*                NAME ENTERED INTO MESSAGE IN PLACE OF SEARCH
00033  M01S00032.comcsnm +++|*                CHARACTERS.
00034  M01S00033.comcsnm +++|*
00035  M01S00034.comcsnm +++|*         USES   A - 4, 7.
00036  M01S00035.comcsnm +++|*                B - 3, 4.
00037  M01S00036.comcsnm +++|*                X - 1, 2, 3, 4, 6, 7.
00038  M01S00037.comcsnm +++|
00039  M01S00038.comcsnm +++|
00040  M01S00039.comcsnm +++| SNM4     SX2    B4          INSURE EVEN NUMBER OF CHARACTERS
00041  M01S00040.comcsnm +++|          LX2    -1
00042  M01S00041.comcsnm +++|          PL     X2,SNM6     IF NOT ODD NUMBER OF CHARACTERS
00043  M01S00042.comcsnm +++|          SX3    1R
00044  M01S00043.comcsnm +++|          BX2    -X6*X7
00045  M01S00044.comcsnm +++|          IX2    X2-X3
00046  M01S00045.comcsnm +++|          NZ     X2,SNM5     IF LAST CHARACTER NOT BLANK
00047  M01S00046.comcsnm +++|          AX7    6           REMOVE TRAILING BLANK
00048  M01S00047.comcsnm +++|          SB4    B4+B1
00049  M01S00048.comcsnm +++|          EQ     SNM6        LEFT JUSTIFY LAST WORD OF NEW MESSAGE
00050  M01S00049.comcsnm +++|
00051  M01S00050.comcsnm +++| SNM5     LX7    6           ADD TRAILING BLANK
00052  M01S00051.comcsnm +++|          SB4    B4-1
00053  M01S00052.comcsnm +++|          BX7    X3+X7
00054  M01S00053.comcsnm +++| SNM6     SB4    B4+B4       LEFT JUSTIFY LAST WORD OF NEW MESSAGE
00055  M01S00054.comcsnm +++|          SB3    B4+B4       CALCULATE SHIFT COUNT
00056  M01S00055.comcsnm +++|          MX2    -12
00057  M01S00056.comcsnm +++|          SB4    B3+B4
00058  M01S00057.comcsnm +++|          LX7    X7,B4
00059  M01S00058.comcsnm +++|          SA7    A7+1
00060  M01S00059.comcsnm +++|          BX2    -X2*X7
00061  M01S00060.comcsnm +++|          ZR     X2,SNMX     IF END OF LINE SET
00062  M01S00061.comcsnm +++|          BX7    X7-X7       GUARANTEE END OF LINE
00063  M01S00062.comcsnm +++|          SA7    A7+B1
00064  M01S00063.comcsnm +++|
00065  M01S00064.comcsnm +++| SNM      SUBR               ENTRY/EXIT
00066  M01S00065.comcsnm +++|          SB4    -B5         MESSAGE AREA
00067  M01S00066.comcsnm +++|          SX2    B3-B1       ASSEMBLY AREA - 1
00068  M01S00067.comcsnm +++|          MX6    -6
00069  M01S00068.comcsnm +++|          SB3    B0
00070  M01S00069.comcsnm +++|          NG     B5,SNM0     IF MESSAGE ASSEMBLY AREA SPECIFIED
00071  M01S00070.comcsnm +++|          SB4    B5          MESSAGE AREA
00072  M01S00071.comcsnm +++|          SX2    B5-B1       SET ASSEMBLY AREA = MESSAGE AREA
00073  M01S00072.comcsnm +++| SNM0     SA4    X2          PRESET ASSEMBLY AREA
00074  M01S00073.comcsnm +++|          BX7    X4
00075  M01S00074.comcsnm +++|          SA7    A4+         (A7) = ASSEMBLY AREA - 1
00076  M01S00075.comcsnm +++|          BX7    X7-X7
00077  M01S00076.comcsnm +++|          SA4    B4-B1       (A4) = MESSAGE AREA - 1
00078  M01S00077.comcsnm +++|          SB4    10
00079  M01S00078.comcsnm +++| SNM1     SB3    B3-B1       DECREMENT OLD MESSAGE WORD CHARACTER COUNT
00080  M01S00079.comcsnm +++|          SX3    B2
00081  M01S00080.comcsnm +++|          PL     B3,SNM2     IF MORE CHARACTERS IN OLD MESSAGE WORD
00082  M01S00081.comcsnm +++|          SA4    A4+1        GET NEXT WORD IN ORIGINAL MESSAGE
00083  M01S00082.comcsnm +++|          SB3    9           RESET OLD MESSAGE WORD CHARACTER COUNT
00084  M01S00083.comcsnm +++| SNM2     LX4    6           GET NEXT CHARACTER FROM ORIGINAL MESSAGE
00085  M01S00084.comcsnm +++|          BX2    -X6*X4
00086  M01S00085.comcsnm +++|          ZR     X2,SNM4     IF END OF LINE
00087  M01S00086.comcsnm +++|          IX3    X2-X3
00088  M01S00087.comcsnm +++|          NZ     X3,SNM3     IF NOT SEARCH CHARACTER
00089  M01S00088.comcsnm +++|          LX1    6
00090  M01S00089.comcsnm +++|          ZR     X1,SNM1     IF REPLACEMENT ALREADY COMPLETED
00091  M01S00090.comcsnm +++|          BX2    -X6*X1      GET NEXT CHARACTER FROM SPECIFIED NAME
00092  M01S00091.comcsnm +++|          BX1    X6*X1
00093  M01S00092.comcsnm +++| SNM3     LX7    6           ENTER NEXT CHARACTER INTO NEW MESSAGE WORD
00094  M01S00093.comcsnm +++|          BX7    X7+X2
00095  M01S00094.comcsnm +++|          SB4    B4-1        DECREMENT NEW MESSAGE WORD CHARACTER COUNT
00096  M01S00095.comcsnm +++|          GT     B4,SNM1     IF NEW MESSAGE WORD NOT FULL
00097  M01S00096.comcsnm +++|          SA7    A7+B1       SAVE NEW MESSAGE WORD
00098  M01S00097.comcsnm +++|          BX7    X7-X7
00099  M01S00098.comcsnm +++|          SB4    10          RESET NEW MESSAGE WORD CHARACTER COUNT
00100  M01S00099.comcsnm +++|          EQ     SNM1        CONTINUE BUILDING NEW MESSAGE
00101  M01S00100.comcsnm +++|          SPACE  4,10
00102  M01S00101.comcsnm +++|          BASE   *
00103  M01S00102.comcsnm +++| QUAL$    IF     -DEF,QUAL$
00104  M01S00103.comcsnm +++|          QUAL   *
00105  M01S00104.comcsnm +++| SNM      EQU    /COMCSNM/SNM
00106  M01S00105.comcsnm +++| QUAL$    ENDIF
00107  M01S00106.comcsnm +++| SNM      ENDX