mirror of
https://github.com/irmen/prog8.git
synced 2025-02-08 00:31:01 +00:00
22 lines
384 B
Lua
22 lines
384 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
|
|
main {
|
|
sub start() {
|
|
uword[2] array1
|
|
|
|
array1[1] = $0122
|
|
txt.print_uwhex(array1[1], true)
|
|
txt.nl()
|
|
rol(array1[1])
|
|
txt.print_uwhex(array1[1], true)
|
|
txt.nl()
|
|
sys.set_carry()
|
|
ror(array1[1])
|
|
txt.print_uwhex(array1[1], true)
|
|
txt.nl()
|
|
}
|
|
}
|