nimet:          mov.l       #text_MP, ER5
                bsr         teksti
                mov.l       #text4, ER5
                bsr         teksti
                mov.l       #text5, ER5
                bsr         teksti
                bra         wait_RDRF
teksti:         mov.b       @ER5+, R0L
                beq         pois
wait_TDRE2:     btst        #7, @SSR_0
                beq         wait_TDRE2
                mov.b       R0L, @TDR_0
                bclr        #7, @SSR_0
                bra         teksti
pois:           rts

text4:          .sdata      "Juuso Koro  212262"<h'0d><00>
text5:          .sdata      "Lauri Pudas 225331"<h'0d><00>
text_MP:        .sdata      "Mikroprosessorit, Morse"<h'0d><00>
                .section    vektorit,code,locate=0
                .data.l     start
                .end