mirror of
https://github.com/irmen/prog8.git
synced 2024-09-07 03:54:27 +00:00
42 lines
798 B
Lua
42 lines
798 B
Lua
%import string
|
|
%import textio
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
sub start() {
|
|
uword[] values = [1111,2222,3333,4444]
|
|
|
|
@($2000) = 'a'
|
|
@($2001) = 'b'
|
|
@($2002) = 'c'
|
|
@($2003) = 0
|
|
|
|
asmfunc([999,888,777])
|
|
asmfunc(values)
|
|
asmfunc($2000)
|
|
txt.nl()
|
|
func([999,888,777])
|
|
func(values)
|
|
func($2000)
|
|
}
|
|
|
|
asmsub asmfunc(uword[] thing @AY) {
|
|
%asm {{
|
|
sta func.thing
|
|
sty func.thing+1
|
|
jmp func
|
|
}}
|
|
}
|
|
|
|
sub func(uword[] thing) {
|
|
uword t2 = thing as uword
|
|
ubyte length = string.length(thing)
|
|
txt.print_uwhex(thing, true)
|
|
txt.nl()
|
|
txt.print_ub(length)
|
|
txt.nl()
|
|
txt.print(thing)
|
|
txt.nl()
|
|
}
|
|
}
|