Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- *-------------------------------------------------------------------------------------------------------
- * Title : FizzBuzz
- * Written by : Joseph Marrey N0818799
- * Date : 1st May 2019
- * Description: Completes the FizzBuzz game based on number originally stored in Data Register 7
- *-------------------------------------------------------------------------------------------------------
- ORG $1000
- START:
- * Put program code here
- MOVE.W #0,D4
- MOVE.W #0,D5
- MOVE.W #0,D6
- MOVE.W #30,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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
