.title	sbreak
;	copyright (c) 1980 by Whitesmiths, Ltd.
;	buy storage from system

	.globl	sbreak
	.globl	lib$get_vm

	.psect	c$text,shr,nowrt,quad
sbreak:
	.word	^O0		; (bytes)
	pushl	#0
	pushal	(sp)
	pushal	4(ap)
	calls	#2,G^lib$get_vm
	blbc	r0,$1
	movl	(sp)+,r0
	ret
$1:
	clrl		r0
	ret
	.end