; File:       exithdlr.s
; Version:    1.00
; Author:     (c) Miles Sabin, 1996
; Purpose:    veneer for rts_exit_handler

; Change log:
;   3/12/96   v. 1.00

              AREA     |C$code|, CODE, READONLY

              IMPORT   rts_exit_handler
              IMPORT   _stub_rootStackChunk

              EXPORT   rts_exit_handler_veneer

rts_exit_handler_veneer
              ldr      a1,= _stub_rootStackChunk
              ldr      a1, [a1]
              ldr      a2, [a1, #12]
              add      sp, a1, a2
              add      sl, a1, #560
              mov      fp, #0
              b        rts_exit_handler;

              END
