XDEF FINDCHAR_TEST       
            ABSENTRY FINDCHAR_TEST   
            ORG $800        
NR_OCCURRENCES:
            DS.W 1            
            ORG $4000
STRINGSTART: DC.B "This is a test to count the occurrences of the lower case letter e",0         
FINDCHAR_TEST:
            LDS #$1000
            LDX #STRINGSTART
            PSHX
            LDAA #'e'
            PSHA
            LDX #NR_OCCURRENCES
            PSHX
            BSR FINDCHAR
            LEAS 5,SP
STOP_HERE   BRA STOP_HERE
            
FINDCHAR:   PSHD
            PSHX
            PSHY
            LDX 11,SP
            LDY #0
            LDAA 10,SP
NOT_DONE:   TST 0,X
            BEQ DONE
            CMPA 1,X+
            BNE NOT_DONE
            INY
NOT_FOUND:  BRA NOT_DONE            
DONE:       STY [8,SP]
            PULY
            PULX
            PULD
            RTS

            ORG $FFFE
            DC.W FINDCHAR_TEST