use ...../defs/os9defs.a

 psect cfinish_a,0,0,1,0,0
* normal exit - buffers flushed if there are any
exit: lbsr _dumprof profile dump (if necessary)
 lbsr _tidyup

* abnormal exit - no buffer flushing
* the argument to either exit entry is taken to be the
* F$EXIT status
_exit: ldd 2,s get the exit status
 os9 F$EXIT and bye-bye!
 endsect