mirror of
https://github.com/irmen/prog8.git
synced 2024-10-25 00:24:16 +00:00
47 lines
690 B
Lua
47 lines
690 B
Lua
%import c64lib
|
|
|
|
|
|
~ main {
|
|
|
|
sub start() {
|
|
|
|
memset($0400+40*3, 40*8, 81)
|
|
memsetw($0400+40*12, 8*40/2, $80a0)
|
|
memset($0400, 20, 33)
|
|
memcopy($0400, $0400+121, 20)
|
|
|
|
|
|
return
|
|
|
|
ubyte ub1
|
|
ubyte ub2
|
|
byte b1
|
|
byte b2
|
|
uword uw1
|
|
uword uw2
|
|
word w1
|
|
word w2
|
|
|
|
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
|
|
|
|
|
|
ub1=ub2*ub1
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|