cerca lettera

ORG $8000
STRINGA DC.B 'no one likes you',0
SUM DS.W 1

* Inizio area codice del MAIN
ORG $8400
MAIN ADDA #-2,SP
PEA STRINGA
JSR CONTA
MOVE.W 4(SP),SUM
ADDA #6,SP
CLR.L D0-D5/A0-A5
STOP #$2000

*Inizio subroutine
ORG $8800
CONTA LINK A6,#0
MOVEM.L A0/D0-D2,-(SP)
CLR.L D2
MOVEA.L 8(A6),A0
CICLO MOVE.B (A0)+,D1
BEQ FINE
CMP #32,D1
BEQ CICLO
ADD #1,D2
BRA CICLO
FINE MOVE D2,12(A6)
MOVEM.L (SP)+,A0/D0-D2
UNLK A6
RTS


END MAIN