; 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