/
PROGRAM eq
        FUNCTION eq[a,b,n]
        mov n(r5),r2
        ble 50$
        mov a(r5),r1
        mov b(r5),r0
10$:           
        cmpb (r0)+,(r1)+
        bne 80$
        sob r2,10$
50$:           
        RET #1
80$:           
        RET #0
.end