mirror of
https://github.com/irmen/prog8.git
synced 2024-12-28 12:32:34 +00:00
76 lines
1.2 KiB
Lua
76 lines
1.2 KiB
Lua
%import c64utils
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
|
|
byte bb
|
|
ubyte ub
|
|
word ww
|
|
uword uw
|
|
&ubyte membyte=9999
|
|
&uword memword=9999
|
|
ubyte[10] barray
|
|
|
|
sub start() {
|
|
lsr(A)
|
|
lsl(A)
|
|
ror(A)
|
|
rol(A)
|
|
ror2(A)
|
|
rol2(A)
|
|
lsr(membyte)
|
|
lsl(membyte)
|
|
ror(membyte)
|
|
rol(membyte)
|
|
ror2(membyte)
|
|
rol2(membyte)
|
|
lsr(memword)
|
|
lsl(memword)
|
|
ror(memword)
|
|
rol(memword)
|
|
ror2(memword)
|
|
rol2(memword)
|
|
lsl(@(9999))
|
|
lsr(@(9999))
|
|
ror(@(9999))
|
|
rol(@(9999))
|
|
ror2(@(9999))
|
|
rol2(@(9999))
|
|
lsr(barray[1])
|
|
lsl(barray[1])
|
|
ror(barray[1])
|
|
rol(barray[1])
|
|
ror2(barray[1])
|
|
rol2(barray[1])
|
|
|
|
|
|
bb /= 2
|
|
bb >>= 1
|
|
bb *= 4
|
|
bb <<= 2
|
|
|
|
ub /= 2
|
|
ub >>= 1
|
|
ub *= 4
|
|
ub <<= 2
|
|
rol(ub)
|
|
ror(ub)
|
|
rol2(ub)
|
|
ror2(ub)
|
|
|
|
ww /= 2
|
|
ww >>= 1
|
|
ww *= 4
|
|
ww <<= 2
|
|
|
|
uw /= 2
|
|
uw >>= 1
|
|
uw *= 4
|
|
uw <<= 2
|
|
rol(uw)
|
|
ror(uw)
|
|
rol2(uw)
|
|
ror2(uw)
|
|
}
|
|
}
|