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

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

	ret
;---------------------------------------------------------------------