p19b.asm

moveptr  .macro
         ldy #\1     ;Set ptr offset
         lda (ptr),y ;Load lo ptr byte
         pha
         iny
         lda (ptr),y ;Load hi ptr byte
         sta ptr+1   ;Save hi ptr byte
         pla
         sta ptr     ;Save lo ptr byte
         .endm

writeptr .macro      ;ptr,to,offset
         ldy #\3
         lda \1
         sta (\2),y
         iny
         lda \1+1
         sta (\2),y
         .endm

saveptr  .macro
         lda \1
         pha
         lda \1+1
         pha
         .endm

fetchptr .macro
         pla
         sta \1+1
         pla
         sta \1     ;Save lo ptr byte
         .endm

copyptr  .macro     ;copy ptr from,to
         lda \1
         sta \2
         lda \1+1
         sta \2+1
         .endm

incptr   .macro     ;Increment a pointer
         inc \1     ;Inc ptr lo byte
         bne end
         inc \1+1   ;Inc ptr hi byte
end
         .endm