;---------------------------------------------------------------------
	.importzp ptr1
	.export _lc_set
	.export _lc_resume
;---------------------------------------------------------------------
_lc_set:
	sta ptr1
	stx ptr1+1
	tsx
	lda $0102,x
	ldy #$01
	sta (ptr1),y
	lda $0101,x
	dey
	sta (ptr1),y
	rts
;---------------------------------------------------------------------
_lc_resume:	
	sta ptr1
	stx ptr1+1
	ldy #$01
	lda (ptr1),y
	beq :+
	tsx
	sta $0102,x
	dey
	lda (ptr1),y
	sta $0101,x
:	rts
;---------------------------------------------------------------------