mirror of
https://github.com/irmen/prog8.git
synced 2024-11-27 03:50:27 +00:00
112 lines
1.8 KiB
Lua
112 lines
1.8 KiB
Lua
%import c64utils
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
|
|
byte bb
|
|
ubyte ub
|
|
word ww
|
|
uword uw
|
|
&ubyte membyte=9999
|
|
&uword memword=9999
|
|
ubyte[10] ubarray
|
|
uword[10] uwarray
|
|
byte[10] bbarray
|
|
word[10] wwarray
|
|
|
|
sub unimplemented() {
|
|
; TODO implement these asm routines
|
|
lsr(ubarray[1])
|
|
lsl(ubarray[1])
|
|
ror(ubarray[1])
|
|
rol(ubarray[1])
|
|
ror2(ubarray[1])
|
|
rol2(ubarray[1])
|
|
lsr(bbarray[1])
|
|
lsl(bbarray[1])
|
|
|
|
lsr(uwarray[1])
|
|
lsl(uwarray[1])
|
|
ror(uwarray[1])
|
|
rol(uwarray[1])
|
|
ror2(uwarray[1])
|
|
rol2(uwarray[1])
|
|
lsr(wwarray[1])
|
|
lsl(wwarray[1])
|
|
}
|
|
|
|
sub start() {
|
|
unimplemented()
|
|
lsr(A)
|
|
lsl(A)
|
|
ror(A)
|
|
rol(A)
|
|
ror2(A)
|
|
rol2(A)
|
|
lsr(Y)
|
|
lsl(Y)
|
|
ror(Y)
|
|
rol(Y)
|
|
ror2(Y)
|
|
rol2(Y)
|
|
|
|
lsr(bb)
|
|
lsl(bb)
|
|
|
|
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))
|
|
|
|
lsl(@(9999+A))
|
|
lsr(@(9999+A))
|
|
ror(@(9999+A))
|
|
rol(@(9999+A))
|
|
ror2(@(9999+A))
|
|
rol2(@(9999+A))
|
|
|
|
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)
|
|
}
|
|
}
|