         SYSTEM   FORTLIB
R1       EQU      1
R7       EQU      7
R8       EQU      8
R9       EQU      9
         DEF      MASH,V#MASH
         REF      9SET2
MASH     CSECT    1
         BAL,LL   9SET2
         CHAR     STRNG
         INTG     LNGTH
         LI,R9    0
         LW,R8    *LNGTH
         LW,R7    STRNG
LOOP     SCS,R9   6
         LB,R1    0,R7
         AW,R9    R1
         AI,R7    1
         BDR,R8   LOOP
         LAW,R9   R9
         B        *LC
V#MASH   CSECT    0
         RES      1
STRNG    RES      3
         RES      1
LNGTH    RES      3
         USECT    MASH
         END
