ozexitto.asm
bitfixer_bitfixer/dg/z88dk/libsrc/oz/ozmisc/ozexitto.asm
;
;	Sharp OZ family functions
;
;	ported from the OZ-7xx SDK by by Alexander R. Pruss
;	by Stefano Bodrato - Oct. 2003
;
;
;
; ------
; $Id: ozexitto.asm,v 1.3 2015/01/19 01:33:02 pauloscustodio Exp $
;

	PUBLIC	ozexitto
	
	EXTERN	ozkeyclear
	EXTERN	ozungetch2
	EXTERN	cleanup		;exit


ozexitto:

	call ozkeyclear
	pop bc ;; retval
	pop hl ;; key
	
	push hl ;; put two copies of key on stack
	push hl
	call ozungetch2
	pop hl  ;; use previous copy of key on stack as argument
	call ozungetch2
	jp cleanup

