2020-09-20 21:49:36 +00:00
|
|
|
%import textio
|
2020-12-07 22:29:34 +00:00
|
|
|
%import diskio
|
2020-11-15 16:44:47 +00:00
|
|
|
%import floats
|
2020-12-10 22:30:58 +00:00
|
|
|
%import graphics
|
2020-11-15 14:04:23 +00:00
|
|
|
%zeropage basicsafe
|
2020-11-20 21:15:14 +00:00
|
|
|
%import test_stack
|
2020-12-08 00:02:38 +00:00
|
|
|
%option no_sysinit
|
|
|
|
|
2020-12-08 21:54:20 +00:00
|
|
|
main {
|
2020-12-10 22:30:58 +00:00
|
|
|
sub start () {
|
2020-12-11 20:05:03 +00:00
|
|
|
|
|
|
|
uword bitmap_load_address = progend()
|
|
|
|
uword max_bitmap_size = $9eff - bitmap_load_address ; TODO why is this not optimized away?
|
|
|
|
|
2020-12-12 00:17:30 +00:00
|
|
|
; 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
|
|
|
|
|
2020-12-10 22:30:58 +00:00
|
|
|
uword xx = progend()
|
|
|
|
txt.print_uwhex(xx, 1)
|
|
|
|
txt.print_uwhex(progend(), 1)
|
2020-08-27 17:47:50 +00:00
|
|
|
|
2020-12-13 02:59:02 +00:00
|
|
|
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
|
|
|
|
|
|
|
|
|
2020-12-08 02:28:29 +00:00
|
|
|
test_stack.test()
|
2020-12-03 17:39:32 +00:00
|
|
|
}
|
2020-12-10 22:30:58 +00:00
|
|
|
|
2020-08-27 17:47:50 +00:00
|
|
|
}
|