mirror of
https://github.com/irmen/prog8.git
synced 2024-11-20 03:32:05 +00:00
28 lines
479 B
Lua
28 lines
479 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
|
|
uword ptr = $4000
|
|
|
|
@(ptr) = $34
|
|
@(ptr+1) = $ea
|
|
|
|
txt.print_ubhex(@(ptr), 1)
|
|
txt.print_ubhex(@(ptr+1), 1)
|
|
txt.nl()
|
|
|
|
uword ww = mkword(@(ptr+1), @(ptr)) ; TODO FIX
|
|
txt.print_uwhex(ww,1)
|
|
txt.nl()
|
|
|
|
ubyte low = @(ptr)
|
|
ubyte high = @(ptr+1)
|
|
ww = mkword(high, low)
|
|
txt.print_uwhex(ww,1)
|
|
txt.nl()
|
|
}
|
|
}
|