home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / Barfly / Source_Debug / GeneralTest.S < prev    next >
Text File  |  1993-03-21  |  703b  |  53 lines
  1. ;This example doesn't make any sense and is only
  2. ;useful to show some features in the RegWindow
  3. ;and the terminating by a Break-Signal.
  4.  
  5.  
  6. hal0=0
  7. hallo1:
  8.     moveq    #hal0,d0
  9.     moveq    #1,d1
  10. teosjdfkjdsfdjssfsdf:
  11.     moveq    #2,d2
  12.     moveq    #3,d3
  13.     moveq    #4,d4
  14. luf:
  15.     moveq    #5,d5
  16.     moveq    #6,d6
  17.     moveq    #7,d7
  18. pe:
  19.     lea.l    $dff05b,a0
  20.     lea.l    $dff096,a1
  21.     lea.l    $dff1be,a2
  22.     lea.l    $dff1c2,a3
  23.     lea.l    $dff1e4,a4
  24.     lea.l    $dff1f0,a5
  25. loop:
  26.     move.l    4.w,a6
  27.     sub.l    a1,a1
  28.     jsr    -294(a6)
  29.     move.l    d0,a1
  30.     move.l    26(a1),d0
  31.     btst    #12,d0
  32.     bne.s    ende
  33.     add.l    d0,d1
  34.     add.l    d1,d2
  35.     add.l    d2,d3
  36.     add.l    d3,d4
  37.     add.l    d4,d5
  38.     add.l    d5,d6
  39.     bsr.s    test
  40.     swap    d0
  41.     bra.s    loop
  42.  
  43. test:
  44.     moveq    #0,d0
  45.     moveq    #1,d1
  46. loop_0:
  47.     dbra    d1,loop_0
  48.     rts
  49. ende:
  50.     moveq    #1,d0
  51.     rts
  52.  
  53.