CSECT   text

        XREF        _myHandler
        XDEF        _myHandlerStub
        
        XREF        _cCloseScreen
        XREF        _OldCloseScreen
        XDEF        _aCloseScreen


_myHandlerStub:
        MOVEM.L A0/A1,-(SP)
        JSR     _myHandler
        ADDQ.L  #8,SP
        RTS
        
_aCloseScreen:
        MOVEM.L     D0-D7/A0-A6,-(SP)        ; save registers on stack 
        MOVE.L      A0,-(SP)                 ; save Screen pointer
        JSR         _cCloseScreen            ; call our C CloseScreen
        ADDQ.L      #4,SP                    ; pop pointer
        MOVEM.L     (SP)+,D0-D7/A0-A6        ; restore registers
        MOVE.L      _OldCloseScreen,A1       ; old CloseSCreen address
        JSR         (A1)                     ; call old routine
        RTS

        END