home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / sozobon2 / subs_tos.s < prev    next >
Text File  |  1993-10-23  |  590b  |  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    $dbe6fd1f
  50.