mirror of
https://github.com/irmen/prog8.git
synced 2024-07-19 04:28:56 +00:00
50 lines
1.3 KiB
Lua
50 lines
1.3 KiB
Lua
%import c64utils
|
|
%zeropage basicsafe
|
|
|
|
~ main {
|
|
|
|
; @todo test memset/memcopy (there's a bug in memcopy?)
|
|
|
|
; @todo see problem in looplabelproblem.p8
|
|
|
|
; @todo add docs for '@zp' tag in variable datatype declarations (including forloop loopvars)
|
|
|
|
; word ww2; byte bb; ww2 = bb * 55.w ; @todo why is this compiling, but resulting in a byte?
|
|
; uword x = sin8u(bb) as uword + 50 ; @todo fix "cannot assign word to uword"
|
|
; uword ypos=4; ypos += 5000 ; @todo fix "cannot assign word to uword"
|
|
|
|
|
|
sub start() {
|
|
|
|
uword ypos=4
|
|
|
|
byte bb=44
|
|
byte bb2
|
|
word ww=4444
|
|
word ww2
|
|
|
|
bb2 = bb*55
|
|
ww2 = ww*55
|
|
|
|
;uword x = sin8u(bb) as uword + 50 ; @todo fix "cannot assign word to uword"
|
|
;ypos += 5000 ; @todo fix "cannot assign word to uword"
|
|
|
|
ww2 = bb * 55.w ; @todo why is this compiling, but resulting in a byte?
|
|
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)
|
|
|
|
}
|
|
}
|