mirror of
https://github.com/irmen/prog8.git
synced 2024-08-18 23:29:32 +00:00
50 lines
812 B
Lua
50 lines
812 B
Lua
%import c64flt
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
c64scr.print("spstart:")
|
|
print_stackpointer()
|
|
sub1()
|
|
c64scr.print("spend:")
|
|
print_stackpointer()
|
|
}
|
|
|
|
sub sub1() {
|
|
c64scr.print("sp1:")
|
|
print_stackpointer()
|
|
sub2()
|
|
}
|
|
|
|
sub sub2() {
|
|
c64scr.print("sp2:")
|
|
print_stackpointer()
|
|
exit(65)
|
|
sub3()
|
|
sub3()
|
|
sub3()
|
|
sub3()
|
|
sub3()
|
|
sub3()
|
|
sub3()
|
|
sub3()
|
|
sub3()
|
|
sub3()
|
|
sub3()
|
|
}
|
|
|
|
sub sub3() {
|
|
c64scr.print("sp3:")
|
|
print_stackpointer()
|
|
}
|
|
|
|
sub print_stackpointer() {
|
|
%asm {{
|
|
tsx
|
|
}}
|
|
c64scr.print_ub(X) ; prints stack pointer
|
|
c64.CHROUT('\n')
|
|
}
|
|
}
|