; Practical 3  1/EI/A
;
; Nicholas Piper

    CLR d0
    CLR d1
    MOVEA.L #s,A0      ; put the address of the string in A0
ml:
    MOVE.B (A0)+,D1
    CMP.B #$0,D1       ; if the byte is $0 then we are done.
    BEQ aw
    CMP.B #$20,D1      ; if the byte is $20 then don't count it
    BEQ ml
    ADDI #1,D0
    BRA ml
aw:
    JSR $ff00

s:
.STRINGZ "This is a test string."
.ALIGN