mirror of
https://github.com/irmen/prog8.git
synced 2024-09-07 19:54:26 +00:00
31 lines
464 B
Lua
31 lines
464 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
ubyte uu
|
|
cx16.rambank(1)
|
|
sys.memcopy(&banked.double, $a000, 100)
|
|
cx16.rambank(0)
|
|
txt.nl()
|
|
|
|
uword ww
|
|
uu = 99
|
|
txt.print_ub(uu)
|
|
txt.nl()
|
|
callfar($01, $a000, &uu)
|
|
txt.print_ub(uu)
|
|
}
|
|
}
|
|
|
|
|
|
banked {
|
|
asmsub double(ubyte number @A) -> ubyte @A {
|
|
%asm {{
|
|
asl a
|
|
rts
|
|
}}
|
|
}
|
|
}
|