home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / compiler / sozobon / scsrc20 / hcc / subs_tos.s < prev    next >
Text File  |  1991-02-22  |  541b  |  50 lines
  1.     .globl _lclr
  2.     .text
  3. _lclr:
  4.     link    a6,#0
  5.  
  6.     move.l    8(a6),a0
  7.     move    12(a6),d0
  8.     bra    L5
  9. L4:
  10.     clr.l    (a0)+
  11. L5:
  12.     dbf    d0,L4
  13.  
  14.     unlk    a6
  15.     rts
  16.  
  17.     .globl _lcpy
  18.     .text
  19. _lcpy:
  20.     link    a6,#0
  21.  
  22.     move.l    8(a6),a0
  23.     move.l    12(a6),a1
  24.     move    16(a6),d0
  25.     bra    L8
  26. L7:
  27.     move.l    (a1)+,(a0)+
  28. L8:
  29.     dbf    d0,L7
  30.  
  31.     unlk    a6
  32.     rts
  33.  
  34.     .data
  35.     .globl    _f_zero
  36. _f_zero:
  37.     .dc.l    0
  38.     .globl    _f_ten
  39. _f_ten:
  40.     .dc.l    $a0000044
  41.     .globl    _f_tenth
  42. _f_tenth:
  43.     .dc.l    $cccccd3d
  44.     .globl    _f_e10
  45. _f_e10:
  46.     .dc.l    $9502f962
  47.     .globl    _f_em10
  48. _f_em10:
  49.     .dc.l    $dbe6ff1f
  50.