35 lines
784 B
Plaintext
35 lines
784 B
Plaintext
* 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
|