	.TITLE	ASKI
;
;
	.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-Feb-84
;
;
	.page
	.sbttl	code
;
;
	.globl	iskfio,$askac
;
	.enabl lsb
;
	.psect	$ask$
;
;
iasko::
asko::
	mov	#2,iparam	;say its octal
	br	10$		;br to common code
;
;
iaski::
aski::
	mov	#1,iparam	;say its integer
10$:	call	$askac		;call arg. checker 
	call	iskfio		;call F4 routine
	return			;return to caller
;
;
	.end
