4.zad

START   ORG $1000

    LEA ispis1, A1
    MOVE.B #14, D0
    TRAP #15

    LEA dat_naziv, A1
    MOVE.B #2, D0
    TRAP #15

    MOVE.B #51, D0
     TRAP #15

    MOVE.B #53, D0
    MOVE.L #100, D2
    LEA sadrzaj, A1
    TRAP #15

    MOVE.B #14, D0
    LEA ispis2, A1
    TRAP #15

    MOVE.B #13, D0
    LEA sadrzaj, A1
    TRAP #15

    MOVE.B #13, D0
    LEA ispis3, A1
    TRAP #15

        LEA sadrzaj, A3

novi_broj
        MOVE.L #0, D5
        MOVE.L #0, D1
prebroj_znamenke
        MOVE.B (A3)+, D4
        CMP #32, D4
        BEQ kreiraj_broj
        CMP #46, D4
        BEQ kreiraj_broj
        ADD #1, D5
        JMP prebroj_znamenke
kreiraj_broj
        MOVE.L #1, D7
        MOVE.L A3, A2
        SUB #2, A2
nova_znamenka
        MOVE.L #0, D6
        MOVE.B (A2), D6

        SUB #1, A2
        SUB #48, D6
        MULU D7, D6
        ADD D6, D1
        MULU #10, D7
        SUB #1, D5
        CMP #0, D5
        BEQ ispisi
        JMP nova_znamenka


ispisi      MOVE.L #3, D0
        SUB #1, D1
        TRAP #15
        MOVE.L #32, D1
        MOVE.L #6, D0
        TRAP #15

        CMP #46, D4
        BNE novi_broj

        MOVE.B  #9,D0
        TRAP    #15     Halt Simulator
        STOP #$2000


ispis1  DC.B 'Unesite ime datoteke: ', 0
ispis2  DC.B 'Ispis iz datoteke: ', $D, $A, 0
ispis3  DC.B 'Rjesenje: ', 0
ispis4  DC.B 'Unesite niz koji zelite zamjeniti: ', 0
ispis5  DC.B 'Unesite niz za zamjenu: ', 0


dat_naziv   DS.B 30
sadrzaj     DS.B 100
        END START