mirror of
https://github.com/irmen/prog8.git
synced 2024-07-30 01:29:08 +00:00
48 lines
840 B
Lua
48 lines
840 B
Lua
%import textio
|
|
%import test_stack
|
|
%import string
|
|
%zeropage dontuse
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
|
|
string.copy()
|
|
|
|
ubyte @shared dummy
|
|
word b1 = 1111
|
|
byte b2 = 22
|
|
word b3 = 3333
|
|
dummy++
|
|
labelz()
|
|
labelz(1)
|
|
printz(1)
|
|
printz(1,2,3,4,5,6)
|
|
func(-b1,-b2,-b3 , 3, 4, 5)
|
|
|
|
labelz:
|
|
|
|
}
|
|
|
|
sub printz(word a1, byte a2, word a3) {
|
|
txt.print_w(a1)
|
|
txt.spc()
|
|
txt.print_b(a2)
|
|
txt.spc()
|
|
txt.print_w(a3)
|
|
txt.nl()
|
|
}
|
|
asmsub func(word a1 @XY, byte a2 @A, word a3 @R0) {
|
|
%asm {{
|
|
stx printz.a1
|
|
sty printz.a1+1
|
|
sta printz.a2
|
|
lda cx16.r0
|
|
sta printz.a3
|
|
lda cx16.r0+1
|
|
sta printz.a3+1
|
|
jmp printz
|
|
}}
|
|
}
|
|
}
|