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
|
|
|
|
|
|
|
|
; @todo fix primes.p8 (it misses some primes)
|
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-25 00:08:10 +00:00
|
|
|
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)
|
2019-02-24 17:52:48 +00:00
|
|
|
c64.CHROUT('\n')
|
2019-02-25 00:08:10 +00:00
|
|
|
ww2 = (bb as word)*55
|
|
|
|
c64scr.print_w(ww2)
|
2019-02-24 17:52:48 +00:00
|
|
|
c64.CHROUT('\n')
|
2019-02-12 20:53:57 +00:00
|
|
|
|
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
|
|
|
}
|