*-----------------------------------------------------------
* Title      :
* Written by :
* Date       :
* Description:
*-----------------------------------------------------------

    ORG    $1000

MESSAGE DC.B    'INSERISCI UNA STRINGA CHE TERMINA CON # ',0
INPUT   DS.L    1
START:        

    *Output - Stampa a video il contenuto di A1 *
    LEA MESSAGE,A1
    MOVE.B  #14,D0
    TRAP #15


    *Legge da tastiera (max 80 caratteri) e salva all'indirizzo indicato da A1 i caratteri
    *mentre in d1.w salva la lunghezza*
    MOVEA   #$1200,a1
    MOVE.B  #2,D0
    TRAP    #15
    CLR.L   D6
    MOVE.B  #'#',D3
CICLO    
    MOVE.B  (A1)+,D4
    CMP.B   D4,D3
    BEQ FINECICLO
    ADD.B   #1,D6
    JMP     CICLO

FINECICLO   
    *Accende i led
    move.l  #$E00010,A0
    move.b    D6,(A0)
    
    STOP		#$2700
    
    END START


*~Font name~Courier New~
*~Font size~10~
*~Tab type~1~
*~Tab size~4~