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