1985-07-26 12:51:45 +00:00
|
|
|
.define _profil
|
1987-01-16 16:34:45 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-07-26 12:51:45 +00:00
|
|
|
.extern _profil
|
1987-01-16 16:34:45 +00:00
|
|
|
.sect .text
|
1985-07-26 12:51:45 +00:00
|
|
|
_profil:
|
|
|
|
|
enter[], 0
|
|
|
|
|
addr 8(fp),r7
|
|
|
|
|
movd 16,r0
|
|
|
|
|
addd r0,r7
|
|
|
|
|
1:
|
|
|
|
|
subd 4,r7
|
|
|
|
|
movd 0(r7),tos
|
|
|
|
|
acbd -4,r0,1b
|
|
|
|
|
movd 44,tos
|
|
|
|
|
jsr @.mon
|
|
|
|
|
exit []
|
|
|
|
|
ret 0
|
