home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
program
/
compiler
/
sozobon
/
scsrc20
/
hcc
/
subs_tos.s
< prev
next >
Wrap
Text File
|
1991-02-22
|
541b
|
50 lines
.globl _lclr
.text
_lclr:
link a6,#0
move.l 8(a6),a0
move 12(a6),d0
bra L5
L4:
clr.l (a0)+
L5:
dbf d0,L4
unlk a6
rts
.globl _lcpy
.text
_lcpy:
link a6,#0
move.l 8(a6),a0
move.l 12(a6),a1
move 16(a6),d0
bra L8
L7:
move.l (a1)+,(a0)+
L8:
dbf d0,L7
unlk a6
rts
.data
.globl _f_zero
_f_zero:
.dc.l 0
.globl _f_ten
_f_ten:
.dc.l $a0000044
.globl _f_tenth
_f_tenth:
.dc.l $cccccd3d
.globl _f_e10
_f_e10:
.dc.l $9502f962
.globl _f_em10
_f_em10:
.dc.l $dbe6ff1f