mirror of
https://github.com/irmen/prog8.git
synced 2024-05-29 01:41:32 +00:00
43 lines
966 B
Lua
43 lines
966 B
Lua
%import textio
|
|
%import test_stack
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
sub start() {
|
|
bool @shared flag
|
|
ubyte @shared bytevar
|
|
uword @shared wordvar
|
|
|
|
; cx16.r1=9999
|
|
; flag = test(42)
|
|
; cx16.r0L, flag = test2(12345, 5566, flag, -42)
|
|
; cx16.r1, flag = test3()
|
|
|
|
wordvar, bytevar, flag = test4()
|
|
wordvar, bytevar, flag = test4()
|
|
|
|
txt.print_uwhex(wordvar, true)
|
|
txt.spc()
|
|
txt.print_bool(flag)
|
|
txt.spc()
|
|
txt.print_ub(bytevar)
|
|
txt.nl()
|
|
}
|
|
|
|
romsub $8000 = test(ubyte arg @A) -> bool @Pc
|
|
romsub $8002 = test2(uword arg @AY, uword arg2 @R1, bool flag @Pc, byte value @X) -> ubyte @A, bool @Pc
|
|
romsub $8003 = test3() -> uword @R1, bool @Pc
|
|
|
|
|
|
asmsub test4() -> uword @AY, ubyte @X, bool @Pc {
|
|
%asm {{
|
|
lda #<$11ee
|
|
ldy #>$11ee
|
|
ldx #42
|
|
sec
|
|
rts
|
|
}}
|
|
}
|
|
}
|