home *** CD-ROM | disk | FTP | other *** search
/ Dream 48 / Amiga_Dream_48.iso / Atari / assemblr / pt_src3t.lzh / PT_SRC3T / REPLAY50.S < prev   
Text File  |  1998-01-19  |  983b  |  52 lines
  1. ;Example program how to use PT_SRC50.S.
  2. ;this source shows you how much time PT_SRC50.S takes
  3. ;formula for calcuating the time in procents:
  4. ;n = the number of raster lines the routine takes
  5. ; % = 200*n/625
  6.     opt    a+,o+
  7.  
  8.     pea    sup_rout
  9.     move.w    #$26,-(sp)
  10.     trap    #14
  11.     addq.l    #6,sp
  12.  
  13.     clr.w    -(sp)
  14.     trap    #1
  15.  
  16. sup_rout    bsr    mt_init
  17.     lea    save_vbi,a0
  18.     move.l    $70.w,(a0)
  19.     lea    vbl,a0
  20.     move.l    a0,$70.w
  21.     
  22. main    bsr    wait_sync
  23.  
  24.     lea    $ffff8209.w,a6    ;wait until the screen
  25.     move.b    (a6),d0    ;starts drawings
  26. .clop    cmp.b    (a6),d0
  27.     beq.s    .clop
  28.     not.w    $ffff8240.w
  29.     bsr    mt_update
  30. ; call lower priority TRASH routs from here ->
  31.     not.w    $ffff8240.w
  32.     cmp.b    #185,$fffffc02.w
  33.     bne.s    main
  34.  
  35.     move.l    save_vbi,$70.w
  36.     bsr    mt_end
  37.     rts
  38.  
  39. wait_sync
  40.     move.w    #37,-(sp)
  41.     trap    #14
  42.     addq.l    #2,sp
  43.     rts
  44. vbl    movem.l    d0-d7/a0-a6,-(sp)
  45.     bsr    mt_vbl    ;must be first in vbl
  46. ; your cool code from here ->
  47.  
  48.     movem.l    (sp)+,d0-d7/a0-a6
  49.     dc.w    $4ef9
  50. save_vbi    dc.l    0
  51.     include    "pt_src3t\pt_src50.s"
  52.