Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ORG $0
- DC.L $8000 This is the stack pointer value after a "reset"
- DC.L START This is the first instruction to execute
- ORG $1000
- START LEA $1500,SP
- CLR D0
- CLR D1
- CLR D2
- CLR D3
- CLR D4
- CLR D5
- CLR D6
- CLR D7
- MOVE #0,D3 FIRST NUM
- MOVE #1,D4 SECOND NUM
- BSR SUBROUTINE
- LEA 2(A7),A7
- STOP #$2700
- SUBROUTINE MOVE #6,6(A7)
- MOVE #0,D5 F(1)
- MOVE #1,D6 F(0)
- CMP 6(A7),D5 IF ITS 0
- BEQ EQUAL1 RETURN 1
- CMP 6(A7),D6 IF ITS 1
- BEQ EQUAL1 RETURN 1
- CMP 6(A7),D6 IF ITS BIGGER THAN 1
- BGT B1 GO TO B1
- MOVE #1,D0 ELSE RETURN ONE
- B1 MOVE D4,D7 ADD FIRST NUM AND SECOND NUM TO D1
- ADD D3,D4
- MOVE D7,D3
- ADD #1,D2 COUNT++
- CMP 6(A7),D2 COMPARE COUNT AND N
- BEQ FIB
- BRA B1
- FIB MOVE D1,6(A7)
- MOVE 6(A7),D0
- RTS
- EQUAL1 MOVE #1,D0
- EXIT
- STOP #$2700
- END START
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement