prog8/examples/test.p8

%import textio
%option no_sysinit
%zeropage basicsafe

main {
    sub start() {
        ubyte @shared ub = -1
        uword @shared uw = -5555

        txt.print_ubhex(bankof($123456), true)
        txt.spc()
        txt.print_ubhex(msw($123456), true)
        txt.spc()
        txt.print_ubhex(^$123456, true)
        txt.nl()

        txt.print_uwhex(<<$1234567, true)
        txt.spc()
        txt.print_uwhex(lsw($1234567), true)
        txt.spc()
        txt.print_uwhex($1234567 & $ffff, true)
        txt.nl()

        txt.print_uwhex(<<$123456, true)
        txt.spc()
        txt.print_uwhex(lsw($123456), true)
        txt.spc()
        txt.print_uwhex($123456 & $ffff, true)
        txt.nl()
    }
}