	.TITLE	ASKJ
;
;
	.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	13-Jul-83
;
;
; Revised:	Ray Carpenter	29-Feb-84
;
;
	.page
	.sbttl	code
;
;
	.globl	iskfj,$askac
;
	.enabl lsb
;
	.psect	$ask$
;
;
iaskj::
askj::
	mov	#1,iparam	;say its decimal integer
10$:	call	$askac		;call arg. checker 
	call	iskfj		;call F4 routine
	return			;return to caller
;
;
	.end
