.ident /20APR1/
; 20-APR-81 15:51:44
.iif ndf $temp$ $temp$=0
$top$=.
$auto$=$temp$
.enabl lc
; Mp version as of: 28-jan-81
	.title  eq
a=10.
b=12.
n=14.
eq::
	jsr r0,$$csav
	add #$auto$,sp
	$auto.=$auto$
	$auto$=$temp$
        i=r2
        char.a=r3
        char.b=r4
	mov #1,i
eq1=.
	cmp i,n(r5)
	BLE eq3
	JMP  eq2
eq3=.
	JSR PC,work
	INC i
	JMP eq1		;back to top
eq2=.
	mov #1,r0
	jmp $$cret
work:
	mov i,-2.(r5)
	DEC -2.(r5)
	mov -2.(r5),r1
	add a(r5),r1
	movb (r1),r0
	mov r0,char.a
	mov i,-2.(r5)
	DEC -2.(r5)
	mov -2.(r5),r1
	add b(r5),r1
	movb (r1),r0
	mov r0,char.b
	cmp char.b,#'.
	BEQ eq4
	BR eq7
eq4:	JMP eq8
eq7:
	cmp char.b,#'a
	BLO eq9
	cmp char.b,#'z
	BHI eq12
	BR eq15
eq12=.
	BR eq9
eq15=.
	BIC #40,char.b
eq9=.			; 
eq11=.
	cmp char.a,#'a
	BLO eq16
	cmp char.a,#'z
	BHI eq19
	BR eq22
eq19=.
	BR eq16
eq22=.
	BIC #40,char.a
eq16=.			; 
eq18=.
	cmp char.a,char.b
	BEQ eq23
	clr r0
	jmp $$cret
eq23=.			; 
eq25=.
eq8=.			; 
eq6=.
	rts pc
$temp$=-4.
.END