; IfsAllocSpyStack.asm -- defines AllocSpy stack as part of overlay page
; Copyright Xerox Corporation 1979, 1980

; Last modified February 23, 1980  11:08 AM by Taft

.ent GetAllocSpyCtx

lenStack = 200.

	.srel

GetAllocSpyCtx: .GetAllocSpyCtx

	.nrel

; GetAllocSpyCtx() returns pointer to ctx.  ctx!-1 is length.
; Calling this assembly-language procedure also forces this overlay
; to be swapped into bank 0.

gasc1:	inc 3 0
	lda 3 1 2
	jmp 1 3

.GetAllocSpyCtx:
	sta 3 1 2
	jsr gasc1

	lenStack
	.blk lenStack

	.end