.FLAGS CAPITALIZE;.STANDARD
.TITLE <CMPS - ^^COMPARE STRING FUNCTION
.PAGE
.INDENT 50
<CMPS
.SKIP 1
.CENTER
<CMPS - ^^COMPARE STRING FUNCTION
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <CMPS\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ <CMPS COMPARES TWO BYTE STRINGS AND RETURNS A VERDICT OF GREATER,
EQUALS OF LESS THAN ZERO.  ^THE STRINGS ARE SCANNED FROM LEFT TO RIGHT
UNTIL A PAIR IS FOUND WHICH ARE NOT EQUAL.  ^IF THE <ASCII VALUES OF THE TWO
BYTES IS LESS, THEN THE RESULT OF THE FUNCTION IS LESS ETC.  ^IF NONE OF
THE CHARACTERS DIFFER, THE RESULT IS EQUAL.
.PARAGRAPH
^THE SPECIAL CHARACTER '\' (BACKSLASH - NOT THE DIVISION OPERATOR)
IS A "WILD CARD" MATCH CHARACTER.  ^IF THIS CHARACTER OCCURS IN EITHER OF
THE STRINGS, IT ALWAYS MATCHES ANY CHARACTER IN THE OTHER STRING.
.SKIP
.PARAGRAPH
^THE TWO STRINGS ARE TERMINATED BY:
.SKIP
.INDENT -5
1)   ^A NULL BYTE.
.BREAK
.INDENT -5
2) ^THE <LEN'TH BYTE IF THE LEN ARGUMENT IS PRESENT AND
A NULL IS NOT ENCOUNTERED FIRST.
.INDENT -5
3)  ^THE <MAXLEN'TH BYTE IF THE LEN ARGUMENT IS MISSING.
(SEE THE SETMAX SUBROUTINE FOR THE DEFAULT MALUE OF MAXLEN AND HOW TO CHANGE
IT).
.INDENT -5
4)   ^TRAILING SPACES.  ^THIS IS ONLY SIGNIFICANT IF ONE OF THE STRINGS IS
TERMINATED BY A NULL.  ^IF THE OTHER STRING WAS EQUAL UP TO THAT POINT, AND
ALL THE REST OF IT'S CHARACTERS ARE SPACES, THE STRINGS ARE CONSIDERED TO BE
EQUAL.
.PAGE
.INDENT -10
^^CALLABLE:\\ FROM <FORTRAN- VERDICT=^^CMPS\\(STRNG1,STRNG2[,LEN])
.SKIP
<MACRO-11 CONVENTION
.SKIP
.INDENT -5
^R0 MUST POINT TO THE FIRST CHARACTER OF THE FIRST STRING.
.INDENT -5
^R1 MUST POINT TO THE SECOND STRING.
.INDENT -5
^R2 MUST CONTAIN THE MAXIMUM LENGTH TO SCAN THE TWO STRINGS.
.SKIP
.INDENT -5
^^CALL WITH\\
.SKIP
^^JSR      PC,$CMPS\\
.SKIP
^R0 RETURNS THE VERDICT.
.BREAK
^R1 POINTS SOMEWHERE IN THE SECOND STRING OF PAST IT.
.BREAK
^R2 CONTAINS SOME NUMBER LESS THAN OR EQUAL THE VALUE BEFORE THE CALL.
.BREAK
^ALL OTHER REGISTERS ARE UNCHANGED.
.INDENT -10
^^PARAMETERS:\\ 
.SKIP
.INDENT -9
<STRING1-- THE FIRST STRING
.SK
.I -9
^^STRING2\\--^THE SECOND STRING.
.SK;.I -9
^^LEN------^THE MAXIMUM LENGTH TO SCAN THE TWO STRINGS.
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ 
.LEFT MARGIN 2
.NOFILL
.SKIP
^^C GET THE LENGTH OF THIS STRING AND TAG ON A NULL
C 
	LSUB0=LEN(INPBUF) !IGNORE THE TRAILING SPACES
	INPBUF(LSUB0)=0   !TAG ON A NULL.
	IF(CMPS(INBUF,BUF,80)) 100,120,180 
	.
	.
	.
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^^MIKE HIGGINS
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ ^^SUPERMAC
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <CMPS
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP0:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ 21-<MAR-78
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ NOT FORMALLY MAINTAINED.
.SKIP 1
.INDENT -10