| ;--------------------------------------------------------------------- |
| ;; .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 |
| ;--------------------------------------------------------------------- |