.define __cleanup
.sect .text
.sect .rom
.sect .data
.sect .bss
.extern __cleanup
__cleanup:
tst.b -40(sp)
link a6,#-0
unlk a6
rts