; A Fibonacci number generating program that uses only one byte to store the value.

#Include services.asm

#Program

    #Base 0x4000

start:
  ; Load our initial values into A and B.
  RSTA
  CALL printByteDecimal
  CALL blankSpace
  ; Move the value into B.
  PSHA
  POPB
  ; Load the next starting value into A.
  INIA 0x01
  CALL printByteDecimal
  CALL blankSpace
 loop:
  ADD                       ; Add the values together.
  BRC end                   ; If the value overflows, we're done.
  ; Copy A into B
  PSHA
  POPB
  ; Copy Q into A
  MVQA
  ; Print A.
  CALL printByteDecimal
  CALL blankSpace
  BRI loop                  ; Loop again.
 end:
  CALL lineFeed
  ;HALT
  RSTA
  SWI osExit                ; Return to CosmOS.

#Data

    #Base 0x2000

#Include print.asm