text    START   0
        LDCH    #97
        +STCH   @screenp

        LDA     screenp
        ADD     #1
        STA     screenp

        LDCH    #97
        +STCH   #0xb801

halt    J   halt

screenp  WORD    0xb800
        END text