mirror of
https://github.com/irmen/prog8.git
synced 2024-10-18 16:24:26 +00:00
49 lines
906 B
Lua
49 lines
906 B
Lua
%import c64utils
|
|
%import c64flt
|
|
|
|
~ main {
|
|
|
|
sub start() {
|
|
|
|
uword[4] uwa = 5
|
|
ubyte[4] uba = 5
|
|
word[4] wa = 5
|
|
byte[4] ba = 5
|
|
float[4] fa = 5.123
|
|
str naam = "irmen"
|
|
float ff = 3.4444
|
|
|
|
uword addr
|
|
|
|
addr = naam
|
|
addr = uwa
|
|
addr = fa
|
|
|
|
pairAX(naam)
|
|
pairAX("hello")
|
|
pairAX("hello2")
|
|
pairAX("hello2")
|
|
pairAX("hello2")
|
|
pairAY("hello2")
|
|
pairAY("hello2")
|
|
pairXY("hello2")
|
|
pairXY("hello2")
|
|
pairAX(uwa)
|
|
pairAX(fa)
|
|
pairAY(naam)
|
|
pairAY(uwa)
|
|
pairAY(fa)
|
|
pairXY(naam)
|
|
pairXY(uwa)
|
|
pairXY(fa)
|
|
|
|
}
|
|
|
|
asmsub pairAX(uword address @ AX) -> clobbers() -> () {
|
|
}
|
|
asmsub pairAY(uword address @ AY) -> clobbers() -> () {
|
|
}
|
|
asmsub pairXY(uword address @ XY) -> clobbers() -> () {
|
|
}
|
|
}
|