2019-08-05 19:01:41 +00:00
|
|
|
%import c64utils
|
|
|
|
|
%zeropage basicsafe
|
|
|
|
|
|
2019-08-17 09:49:30 +00:00
|
|
|
; TODO implement asm generation for all operation in here
|
|
|
|
|
|
2019-08-05 19:01:41 +00:00
|
|
|
main {
|
|
|
|
|
|
|
|
|
|
byte bb
|
|
|
|
|
ubyte ub
|
|
|
|
|
word ww
|
|
|
|
|
uword uw
|
|
|
|
|
&ubyte membyte=9999
|
|
|
|
|
&uword memword=9999
|
2019-08-21 22:34:17 +00:00
|
|
|
ubyte[10] ubarray
|
|
|
|
|
byte[10] bbarray
|
2019-08-05 19:01:41 +00:00
|
|
|
|
|
|
|
|
sub start() {
|
|
|
|
|
lsr(A)
|
|
|
|
|
lsl(A)
|
|
|
|
|
ror(A)
|
|
|
|
|
rol(A)
|
|
|
|
|
ror2(A)
|
|
|
|
|
rol2(A)
|
2019-08-21 22:34:17 +00:00
|
|
|
|
|
|
|
|
lsr(bb)
|
|
|
|
|
lsl(bb)
|
|
|
|
|
|
2019-08-05 19:01:41 +00:00
|
|
|
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))
|
2019-08-21 22:34:17 +00:00
|
|
|
lsr(ubarray[1])
|
|
|
|
|
lsl(ubarray[1])
|
|
|
|
|
ror(ubarray[1])
|
|
|
|
|
rol(ubarray[1])
|
|
|
|
|
ror2(ubarray[1])
|
|
|
|
|
rol2(ubarray[1])
|
|
|
|
|
lsr(bbarray[1])
|
|
|
|
|
lsl(bbarray[1])
|
2019-08-05 19:01:41 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
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)
|
|
|
|
|
}
|
|
|
|
|
}
|
