mirror of
https://github.com/irmen/prog8.git
synced 2024-09-16 16:55:50 +00:00
43 lines
932 B
Lua
43 lines
932 B
Lua
%import c64utils
|
|
%zeropage basicsafe
|
|
|
|
~ main {
|
|
|
|
; @todo test memset/memcopy (there's a bug in memcopy?)
|
|
|
|
; @todo see problem in looplabelproblem.p8
|
|
|
|
; @todo fix primes.p8 (it misses some primes)
|
|
|
|
sub start() {
|
|
|
|
uword ypos=4
|
|
|
|
byte bb=44
|
|
byte bb2
|
|
word ww=4444
|
|
word ww2
|
|
|
|
bb2 = bb*55
|
|
ww2 = ww*55
|
|
|
|
ww2 = bb * 55.w ; @todo why is this resulting in a byte?
|
|
ypos += 5000 ; @todo fix "cannot assign word to uword"
|
|
c64scr.print_w(ww2)
|
|
c64.CHROUT('\n')
|
|
ww2 = (bb as word)*55
|
|
c64scr.print_w(ww2)
|
|
c64.CHROUT('\n')
|
|
|
|
;
|
|
; memset($0400+(ypos+0)*40, 40, 1)
|
|
; memset($0400+(ypos+1)*40, 40, 2)
|
|
; memset($0400+(ypos+2)*40, 40, 3)
|
|
; memset($0400+(ypos+3)*40, 40, 4)
|
|
|
|
;memsetw($0400+(ypos+1)*40, 20, $4455)
|
|
;memsetw($0400+(ypos+3)*40, 20, $4455)
|
|
|
|
}
|
|
}
|