mirror of
https://github.com/irmen/prog8.git
synced 2024-08-09 23:29:01 +00:00
31 lines
800 B
Lua
31 lines
800 B
Lua
%import textio
|
|
%import diskio
|
|
%import floats
|
|
%import graphics
|
|
%zeropage basicsafe
|
|
%import test_stack
|
|
%option no_sysinit
|
|
|
|
main {
|
|
sub start () {
|
|
|
|
uword bitmap_load_address = progend()
|
|
uword max_bitmap_size = $9eff - bitmap_load_address ; TODO why is this not optimized away?
|
|
|
|
; foo(2**x) ; TODO arg is zero if x=8, in the function. Param type uword. fix that . also check bit shift
|
|
; foo($0001<<x) ; TODO fix crash
|
|
|
|
uword xx = progend()
|
|
txt.print_uwhex(xx, 1)
|
|
txt.print_uwhex(progend(), 1)
|
|
|
|
uword scanline_data_ptr= $6000
|
|
uword pixptr = x/8 + scanline_data_ptr ; TODO why is this code so much larger than the following:
|
|
uword pixptr2 = scanline_data_ptr + x/8
|
|
|
|
|
|
test_stack.test()
|
|
}
|
|
|
|
}
|