2019-02-12 20:53:57 +00:00
|
|
|
%import c64utils
|
2019-02-02 23:14:56 +00:00
|
|
|
%zeropage basicsafe
|
2019-01-26 21:46:01 +00:00
|
|
|
|
2019-02-02 23:14:56 +00:00
|
|
|
~ main {
|
2019-01-27 20:25:16 +00:00
|
|
|
|
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)
|
2019-02-27 22:07:12 +00:00
|
|
|
; @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-24 17:52:48 +00:00
|
|
|
|
2019-02-25 00:08:10 +00:00
|
|
|
uword ypos=4
|
2019-02-24 17:52:48 +00:00
|
|
|
|
2019-02-25 00:08:10 +00:00
|
|
|
byte bb=44
|
|
|
|
byte bb2
|
|
|
|
word ww=4444
|
|
|
|
word ww2
|
2019-02-24 17:52:48 +00:00
|
|
|
|
2019-02-25 00:08:10 +00:00
|
|
|
bb2 = bb*55
|
|
|
|
ww2 = ww*55
|
2019-02-24 17:52:48 +00:00
|
|
|
|
2019-02-27 22:07:12 +00:00
|
|
|
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
|
|
|
|
2019-02-24 17:52:48 +00:00
|
|
|
}
|
2019-01-27 17:33:21 +00:00
|
|
|
}
|