prog8/examples/test.p8

%import textio
%import syslib
%zeropage basicsafe


main {

    sub start() {

        ; TODO fix multi- string concatenation:
;        txt.print("\nCommands are:\n"+
;            "buy   jump      inf     cash\n" +
;            "sell  teleport  market  hold\n" +
;            "fuel  galhyp    local   quit\n")

        str name = "irmen de jong"
        uword strptr = &name


        txt.print_ub(strlen("1234"))
        txt.chrout('\n')
        txt.print_ub(strlen(name))
        txt.chrout('\n')
        txt.print_uwhex(strptr, 1)
        txt.chrout('\n')
        txt.print(strptr)
        txt.chrout('\n')
        txt.print_ub(strlen(strptr))
        txt.chrout('\n')

        ubyte q
        for q in 0 to 255 {
            txt.print_ub(q)
            txt.chrout(' ')
            ;txt.print_uw(q*4)       ; TODO fix
;            txt.chrout(' ')
            txt.print_uw(q*$0004)       ; TODO fix
            txt.chrout('\n')
        }


    }

    asmsub testX() {
        %asm {{
            stx  _saveX
            lda  #13
            jsr  txt.chrout
            lda  _saveX
            jsr  txt.print_ub
            lda  #13
            jsr  txt.chrout
            ldx  _saveX
            rts
_saveX   .byte 0
        }}
    }
}