.title	StkHdl

	.inclu	"b:Global"

	sect	code

;+
; StkIni initsierar MetStk och InlStk.
;-

StkIni:	mov	#MetVar, r2
	mov	#PreLst, r1
	call	GetAdr
	add	MyJob6, r1
	cmp	(r1)+, (r1)+
	mov	(r1), (r2)+		; Edit # f|r  medlemsskap.
	clr	(r2)+			; 1'st  lagrade MEDLEMSSKAP.
	mov	#MetStk, (r2)+
	mov	MyMED1, (r2)+
	clr	(r2)+
	clr	(r2)
	call	PuNeMe			; Push next MEDLEMSSKAP on stack.
	tst	MetVar