1985-07-26 12:51:45 +00:00
|
|
|
.define _tell
|
1987-01-16 16:49:46 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-07-26 12:51:45 +00:00
|
|
|
.extern _tell
|
1987-01-16 16:49:46 +00:00
|
|
|
.sect .text
|
1985-07-26 12:51:45 +00:00
|
|
|
_tell:
|
|
|
|
|
enter[], 0
|
|
|
|
|
movd 1,tos
|
|
|
|
|
movd 0,tos
|
|
|
|
|
movd 8(fp),tos
|
|
|
|
|
jsr @_lseek
|
|
|
|
|
adjspd -12
|
|
|
|
|
exit []
|
|
|
|
|
ret 0
|
