	.TITLE	ASKR
;
;
	.IDENT	/Y07.00/
;
;
;
	.ENABL LC
;
;
;	Copyright (C) Shell Research Ltd. 1979
;
;
; The copyright in this computer program and associated  user
; instructions contained in this document is the property of 
; Shell Research Ltd.. No guarantee is given or may be implied
; as to the adequacy of the program or its suitability for any
; particular purpose and no liability is accepted for any loss
; or damage arising out of its use.
;
;
;
; Version:	Y07
;
;
; Author:	R J Carpenter	12-Nov-79
;
;
; Revised:	R J Carpenter	29-Mar-84
;
;
	.page
	.sbttl	code
;
;
	.globl	iskfr,$askac
;
	.psect	$ask$
;
iaskr::
askr::
	movb	qclc,-(sp)	;save entry case conversion state
	movb	#377,qclc	;must convert for 10E3 style numbers
	call	$askac		;call arg. checker 
	call	iskfr		;call F4 routine 
	movb	(sp)+,qclc	;restore entry case conversion state
	return			;return to caller
;
;
	.end
