prog8/examples/test.p8

43 lines
1.1 KiB
Plaintext
Raw Normal View History

2019-02-12 20:53:57 +00:00
%import c64utils
%zeropage basicsafe
2019-01-26 21:46:01 +00:00
~ main {
2019-02-14 01:23:59 +00:00
; @todo test memset/memcopy (there's a bug in memcopy?)
2019-02-25 00:08:10 +00:00
; @todo see problem in looplabelproblem.p8
2019-02-25 00:37:05 +00:00
; @todo add docs for '@zp' tag in variable datatype declarations (including forloop loopvars)
; @todo gradle fatJar should include the antlr runtime jar
2019-02-25 00:37:05 +00:00
; 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"
2019-02-23 21:13:12 +00:00
2019-02-21 00:31:33 +00:00
sub start() {
2019-02-25 00:08:10 +00:00
uword ypos=4
2019-02-25 00:08:10 +00:00
byte bb=44
byte bb2
word ww=4444
word ww2
2019-02-25 00:08:10 +00:00
bb2 = bb*55
ww2 = ww*55
uword x = sin8u(bb) as uword + 50 ; @todo fix "cannot assign word to uword"
2019-02-25 00:37:05 +00:00
;ypos += 5000 ; @todo fix "cannot assign word to uword"
2019-02-25 00:08:10 +00:00
;
; 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)
2019-02-12 20:53:57 +00:00
2019-02-25 00:08:10 +00:00
;memsetw($0400+(ypos+1)*40, 20, $4455)
;memsetw($0400+(ypos+3)*40, 20, $4455)
2019-02-23 21:13:12 +00:00
}
}