mirror of
https://github.com/irmen/prog8.git
synced 2024-10-02 13:57:28 +00:00
27 lines
416 B
Lua
27 lines
416 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
|
|
uword ptr = $4000
|
|
uword ww
|
|
|
|
pokew($4000, $98cf)
|
|
ww = peekw($4000)
|
|
txt.print_uwhex(ww,1)
|
|
txt.nl()
|
|
|
|
pokew(ptr, $98cf)
|
|
ww = peekw(ptr)
|
|
txt.print_uwhex(ww,1)
|
|
txt.nl()
|
|
|
|
pokew(ptr+2, $1234)
|
|
ww = peekw(ptr+2)
|
|
txt.print_uwhex(ww,1)
|
|
txt.nl()
|
|
}
|
|
}
|