mirror of
https://github.com/irmen/prog8.git
synced 2024-08-10 14:29:06 +00:00
35 lines
605 B
Lua
35 lines
605 B
Lua
%import textio
|
|
%import diskio
|
|
%import floats
|
|
%zeropage basicsafe
|
|
%import test_stack
|
|
%option no_sysinit
|
|
|
|
main {
|
|
sub start() {
|
|
ubyte error
|
|
|
|
error = error and error!=64 ; TODO fix crash (also for other datatypes)
|
|
ubyte bpp = buffer[7]
|
|
uword num_colors = 1 << bpp ; TODO FIX THIS
|
|
|
|
|
|
|
|
|
|
|
|
ubyte[] barr = [0,0,0]
|
|
uword[] warr = [0,0,0]
|
|
|
|
ubyte xx = 0
|
|
barr[1] = xx+9
|
|
warr[1] = &warr
|
|
|
|
txt.print_ub(barr[1])
|
|
txt.chrout('\n')
|
|
txt.print_uwhex(warr[1],1 )
|
|
txt.chrout('\n')
|
|
|
|
test_stack.test()
|
|
}
|
|
}
|