mirror of
https://github.com/irmen/prog8.git
synced 2025-01-13 10:29:52 +00:00
32 lines
572 B
Lua
32 lines
572 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
sub start() {
|
|
ubyte @shared bytevar
|
|
uword @shared wordvar
|
|
|
|
wordvar, bytevar = test4()
|
|
if_cs
|
|
txt.print("true! ")
|
|
else
|
|
txt.print("false! ")
|
|
|
|
txt.print_uwhex(wordvar, true)
|
|
txt.spc()
|
|
txt.print_ub(bytevar)
|
|
txt.nl()
|
|
}
|
|
|
|
asmsub test4() -> uword @AY, ubyte @X, bool @Pc {
|
|
%asm {{
|
|
lda #<$11ee
|
|
ldy #>$11ee
|
|
ldx #42
|
|
clc
|
|
rts
|
|
}}
|
|
}
|
|
}
|