A_SUBROUTINE:
        CALL    SAVE_CONTEXT
; a work
        CALL    RESTORE_CONTEXT
        RET