home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 332.lha / AmigaAsmPreprocessor_v0.2 / fibo.a < prev    next >
Encoding:
Text File  |  1990-01-06  |  239 b   |  25 lines
  1. ;
  2. ; fibo.p -- preprocessor test
  3. ;
  4.  
  5.     xdef    fibo
  6.  
  7. fibo    move.w    d2,-(sp)
  8.     move.w d0,d2
  9.     beq if.000
  10.     move.w #1,d0
  11.     move.w #0,d1
  12. beg.001
  13.     sub.w #1,d2
  14.     beq whl.002
  15.     exg.w d1,d0
  16.     add.w d1,d0
  17.     bra beg.001
  18. whl.002
  19. if.000
  20.     move.w (sp)+,d2
  21.     rts
  22.  
  23.     end
  24.  
  25.