home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / Barfly / Source / Structs.S < prev    next >
Text File  |  1993-01-20  |  429b  |  40 lines
  1.     xref    func
  2.  
  3. test:
  4.  
  5.     .REG    d7
  6.     .BRANCH    w
  7.  
  8.     .FOR    d0.w = #1 to #10 STEP #2
  9.     addq.w    #1,d1
  10.     .NEXT
  11.     .IF    (a0) + #100 <> #10
  12.     moveq    #0,d0
  13.     .ELSE
  14.     moveq    #1,d0
  15.     .ENDIF
  16.  
  17.     .IF    d0 = #10
  18.     moveq    #0,d0
  19.     .ELSE
  20.     moveq    #1,d0
  21.     .ENDIF
  22.  
  23.  
  24.     .WHILE    d0 <> #0
  25.     addq.w    #1,d1
  26.     .ENDWHILE
  27.  
  28.  
  29.     .CALL    func , test + #100 - #20 , #test
  30.     .RETURN    d1 + d2 + #$100
  31.     .RETURN    (a0)
  32.  
  33.     .DEF    rout , d0.w , d1 , (a0)
  34.     .ENDDEF
  35.  
  36.  
  37.  
  38.     .LET    + #100 - #10 << #7
  39.     .LET    d1 = (a1) - (a0)
  40.