| adamdunkels | 8c82a5a | 2004-08-09 20:16:37 +0000 | [diff] [blame] | 1 | ;--------------------------------------------------------------------- |
| 2 | .importzp ptr1 |
| oliverschmidt | 2390ac3 | 2004-09-05 14:36:04 +0000 | [diff] [blame] | 3 | .export _lc_set |
| adamdunkels | eb8a966 | 2004-09-01 20:46:31 +0000 | [diff] [blame] | 4 | .export _lc_resume |
| adamdunkels | 8c82a5a | 2004-08-09 20:16:37 +0000 | [diff] [blame] | 5 | ;--------------------------------------------------------------------- |
| oliverschmidt | 2390ac3 | 2004-09-05 14:36:04 +0000 | [diff] [blame] | 6 | _lc_set: |
| 7 | sta ptr1 |
| 8 | stx ptr1+1 |
| 9 | tsx |
| 10 | lda $0102,x |
| 11 | ldy #$01 |
| 12 | sta (ptr1),y |
| 13 | lda $0101,x |
| 14 | dey |
| 15 | sta (ptr1),y |
| adamdunkels | 8c82a5a | 2004-08-09 20:16:37 +0000 | [diff] [blame] | 16 | rts |
| 17 | ;--------------------------------------------------------------------- |
| adamdunkels | eb8a966 | 2004-09-01 20:46:31 +0000 | [diff] [blame] | 18 | _lc_resume: |
| adamdunkels | 8c82a5a | 2004-08-09 20:16:37 +0000 | [diff] [blame] | 19 | sta ptr1 |
| 20 | stx ptr1+1 |
| oliverschmidt | 2390ac3 | 2004-09-05 14:36:04 +0000 | [diff] [blame] | 21 | ldy #$01 |
| 22 | lda (ptr1),y |
| 23 | beq :+ |
| 24 | tsx |
| 25 | sta $0102,x |
| 26 | dey |
| 27 | lda (ptr1),y |
| 28 | sta $0101,x |
| 29 | : rts |
| adamdunkels | 8c82a5a | 2004-08-09 20:16:37 +0000 | [diff] [blame] | 30 | ;--------------------------------------------------------------------- |