putchar_ptr = $346
csrhinh     = 752
character = $80
rowcrs  = $54
colcrs  = $55
    org $2000

    .proc main
    mva #1 csrhinh
    mva #6 rowcrs
    mva #16 colcrs
    mva #0 character

next_character
    ldx character
    cpx #.len text
    beq stop
    lda text,x
    jsr putchar
    inc character
    jmp next_character

stop    jmp stop

    .proc putchar
    tax
    lda putchar_ptr+$1
    pha
    lda putchar_ptr
    pha
    txa
    rts
    .endp

    .local text
    .byte 'Hi there!',$9b,'new line'
    .endl

    .endp

    run main

LDA ptr+1     * high byte of target routine pointer
PHA           * push down the stack
LDA ptr       * high byte of target routine pointer
PHA           * push down the stack
rts           * 'returning' to the address at TOS