2019-01-22 21:52:43 +00:00
|
|
|
%import c64lib
|
2019-01-20 16:45:57 +00:00
|
|
|
|
2019-01-02 22:32:41 +00:00
|
|
|
|
2018-12-04 21:30:35 +00:00
|
|
|
~ main {
|
2019-01-01 20:47:19 +00:00
|
|
|
|
2019-01-05 17:02:17 +00:00
|
|
|
sub start() {
|
2019-01-06 07:17:18 +00:00
|
|
|
|
2019-01-22 23:19:29 +00:00
|
|
|
memset($0400+40*3, 40*8, 81)
|
|
|
|
memsetw($0400+40*12, 8*40/2, $80a0)
|
|
|
|
memset($0400, 20, 33)
|
|
|
|
memcopy($0400, $0400+121, 20)
|
2019-01-22 21:52:43 +00:00
|
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
|
2019-01-19 15:00:30 +00:00
|
|
|
ubyte ub1
|
|
|
|
ubyte ub2
|
|
|
|
byte b1
|
|
|
|
byte b2
|
|
|
|
uword uw1
|
|
|
|
uword uw2
|
|
|
|
word w1
|
|
|
|
word w2
|
|
|
|
|
2019-01-19 17:34:22 +00:00
|
|
|
memory ubyte mub1 = $c000
|
|
|
|
memory ubyte mub2 = $c001
|
|
|
|
memory uword muw1 = $c100
|
|
|
|
memory uword muw2 = $c102
|
|
|
|
|
|
|
|
ubyte[3] uba1
|
|
|
|
byte[3] ba1
|
|
|
|
uword[3] uwa1
|
|
|
|
word[3] wa1
|
|
|
|
ubyte[3] uba2
|
|
|
|
byte[3] ba2
|
|
|
|
uword[3] uwa2
|
|
|
|
word[3] wa2
|
2019-01-19 15:00:30 +00:00
|
|
|
|
|
|
|
|
2019-01-20 23:00:26 +00:00
|
|
|
ub1=ub2*ub1
|
2019-01-19 15:00:30 +00:00
|
|
|
|
2019-01-15 23:28:30 +00:00
|
|
|
}
|
|
|
|
|
2019-01-17 22:05:57 +00:00
|
|
|
|
2019-01-02 22:32:41 +00:00
|
|
|
}
|
2019-01-12 17:11:36 +00:00
|
|
|
|