September 2017 Update

Task/String-matching/360-Assembly/string-matching.360

@@ -0,0 +1,34 @@
+*        String matching           04/04/2017
+STRMATCH CSECT
+         USING  STRMATCH,R15
+         XPRNT  SS,L'SS
+*
+         CLC    SS(L'S1),S1
+         BNE    NOT1
+         XPRNT  =C'-- STARTS WITH',14
+         XPRNT  S1,L'S1
+NOT1     EQU    *
+*
+         CLC    SS+L'SS-L'S2(L'S2),S2
+         BNE    NOT2
+         XPRNT  =C'-- ENDS WITH',12
+         XPRNT  S2,L'S2
+NOT2     EQU    *
+*
+         LA     R0,L'SS-L'S3+1
+         LA     R1,SS
+LOOP     CLC    0(L'S3,R1),S3
+         BNE    NOT3
+         XPRNT  =C'-- CONTAINS',11
+         XPRNT  S3,L'S3
+NOT3     LA     R1,1(R1)
+         BCT    R0,LOOP
+*
+         BR     R14
+SS       DC     CL6'ABCDEF'
+S1       DC     CL2'AB'
+S2       DC     CL2'EF'
+S3       DC     CL2'CD'
+PG       DC     CL80' '
+         YREGS
+         END    STRMATCH