*-----------------------------------------------------------
* Title      :
* Written by :
* Date       :
* Description:
*-----------------------------------------------------------
            ORG         $1000
START:

* Put program code here
            MOVE.W      #0,D4
            MOVE.W      #0,D5
            MOVE.W      #0,D6
            MOVE.W      #20,D7          *Sets iterations in loop to #

LOOP        CLR.L   D4

            CLR.L   D6
            MOVE.W  D7,D6
            DIVU    #5,D6
            SWAP    D6

            CLR.L   D5
            MOVE.W  D7,D5
            DIVU    #3,D5
            SWAP    D5

            IF D5 <EQ> #0 THEN
                IF D6 <EQ> #0 THEN
                    LEA         fibuMSG,A1
                ELSE
                    LEA         fizzMSG,A1
                ENDI
            ELSE
                IF D6 <EQ> #0 THEN
                    LEA         buzzMSG,A1
                ELSE
                    LEA         noneMSG,A1
                    MOVE.W       #1,D4
                ENDI
            ENDI

            IF D4 <EQ> #1 THEN
                CLR.L       D1
                CLR.L       D3
                MOVE.W      D7,D1
                MOVEQ       #3,D0
                MOVE.W      D7,D3
                MOVE.L      A0,D3
                TRAP        #15

                MOVE.B      #14,D0
                TRAP        #15
            ELSE
                MOVE.B      #14,D0
                TRAP        #15
            ENDI

            SUB.L       #1,D7
            BNE         LOOP

            SIMHALT

* Put variables and constants here

CR          EQU         $0D
LF          EQU         $0A
noneMSG     dc.b        '',CR,LF,0
fizzMSG     dc.b        'Fizz',CR,LF,0
buzzMSG     dc.b        'Buzz',CR,LF,0
fibuMSG     dc.b        'FizzBuzz',CR,LF,0




            END    START