| kthacker | 6de6775 | 2006-04-17 15:02:26 +0000 | [diff] [blame] | 1 | ;--------------------------------------------------------------------- |
| 2 | ;; .globl ptr1 | ||||
| 3 | ;--------------------------------------------------------------------- | ||||
| 4 | _lc_set:: | ||||
| 5 | ;; sta ptr1 | ||||
| 6 | ;; stx ptr1+1 | ||||
| 7 | ;; tsx | ||||
| 8 | ;; lda $0102,x | ||||
| 9 | ;; ldy #$01 | ||||
| 10 | ;; sta (ptr1),y | ||||
| 11 | ;; lda $0101,x | ||||
| 12 | ;; dey | ||||
| 13 | ;; sta (ptr1),y | ||||
| 14 | |||||
| 15 | ret | ||||
| 16 | ;--------------------------------------------------------------------- | ||||
| 17 | _lc_resume:: | ||||
| 18 | ;; sta ptr1 | ||||
| 19 | ;; stx ptr1+1 | ||||
| 20 | ;; ldy #$01 | ||||
| 21 | ;; lda (ptr1),y | ||||
| 22 | ;; beq :+ | ||||
| 23 | ;; tsx | ||||
| 24 | ;; sta $0102,x | ||||
| 25 | ;; dey | ||||
| 26 | ;; lda (ptr1),y | ||||
| 27 | ;; sta $0101,x | ||||
| 28 | |||||
| 29 | ret | ||||
| 30 | ;--------------------------------------------------------------------- | ||||