	.title	$deny
	.ident	/x01/
 
	.enabl	lc
	.nlist	bex
 
;
; Utility Routines
; No space
;
; Version x01
;
; David G. Conroy	12-Dec-77
;
 
	.globl	$deny
 
	.mcall	call
	.mcall	callr
	.mcall	return
 
err01:	.asciz	'Out of space ($deny)'
 
	.even
 
;+
; ** $deny - Out of space
;
; This is the default version of the $deny routine. It is loaded from
; the library only if the user has not specified his own routine.  It
; types a message onto the terminal (via $msg) and aborts with an IOT
;-
 
$deny:	mov	#err01,r0	;Put out the message
	call	$msg
	iot			;And die
 
	.end
