home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 332.lha / AmigaAsmPreprocessor_v0.2 / fibo.p < prev    next >
Text File  |  1990-01-06  |  206b  |  25 lines
  1. ;
  2. ; fibo.p -- preprocessor test
  3. ;
  4.  
  5.     xdef    fibo
  6.  
  7. fibo    move.w    d2,-(sp)
  8. {
  9.     d2 d0 = .
  10.     ifne
  11.         d0 #1 = .
  12.         d1 #0 = .
  13.         begin
  14.             d2 #1 - .
  15.         while
  16.             d0 d1 :=: d1 + .
  17.         repeat
  18.     then
  19. }
  20.     move.w (sp)+,d2
  21.     rts
  22.  
  23.     end
  24.  
  25.