2019-08-05 19:01:41 +00:00
|
|
|
%import c64utils
|
|
|
|
|
%zeropage basicsafe
|
|
|
|
|
|
|
|
|
|
main {
|
|
|
|
|
|
|
|
|
|
byte bb
|
|
|
|
|
ubyte ub
|
|
|
|
|
word ww
|
|
|
|
|
uword uw
|
|
|
|
|
&ubyte membyte=9999
|
|
|
|
|
&uword memword=9999
|
2019-09-11 00:24:44 +00:00
|
|
|
ubyte[] ubarray = [8,8,8]
|
|
|
|
|
uword[] uwarray = [8200, 8200, 8200]
|
|
|
|
|
byte[] bbarray = [8,8,8]
|
|
|
|
|
word[] wwarray = [8200, 8200, 8200]
|
2019-08-05 19:01:41 +00:00
|
|
|
|
2019-08-29 20:31:29 +00:00
|
|
|
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])
|
|
|
|
|
}
|
|
|
|
|
|
2019-08-05 19:01:41 +00:00
|
|
|
sub start() {
|
2020-03-12 23:50:50 +00:00
|
|
|
; TODO call this too: unimplemented()
|
2020-03-12 23:27:33 +00:00
|
|
|
|
2019-08-29 20:31:29 +00:00
|
|
|
lsr(A)
|
|
|
|
|
lsl(A)
|
|
|
|
|
ror(A)
|
|
|
|
|
rol(A)
|
|
|
|
|
ror2(A)
|
|
|
|
|
rol2(A)
|
|
|
|
|
lsr(Y)
|
|
|
|
|
lsl(Y)
|
|
|
|
|
ror(Y)
|
|
|
|
|
rol(Y)
|
|
|
|
|
ror2(Y)
|
|
|
|
|
rol2(Y)
|
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)
|
2019-08-23 19:32:21 +00:00
|
|
|
|
2019-08-05 19:01:41 +00:00
|
|
|
lsl(@(9999))
|
|
|
|
|
lsr(@(9999))
|
|
|
|
|
ror(@(9999))
|
|
|
|
|
rol(@(9999))
|
|
|
|
|
ror2(@(9999))
|
|
|
|
|
rol2(@(9999))
|
2019-08-23 19:32:21 +00:00
|
|
|
|
2020-03-13 00:26:53 +00:00
|
|
|
lsl(@(9999+A))
|
2019-08-23 19:32:21 +00:00
|
|
|
lsr(@(9999+A))
|
|
|
|
|
ror(@(9999+A))
|
|
|
|
|
rol(@(9999+A))
|
|
|
|
|
ror2(@(9999+A))
|
|
|
|
|
rol2(@(9999+A))
|
|
|
|
|
|
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)
|
2020-03-12 23:27:33 +00:00
|
|
|
|
|
|
|
|
check_eval_stack()
|
2019-08-05 19:01:41 +00:00
|
|
|
}
|
2020-03-12 23:27:33 +00:00
|
|
|
|
|
|
|
|
sub check_eval_stack() {
|
|
|
|
|
c64scr.print("x=")
|
|
|
|
|
c64scr.print_ub(X)
|
|
|
|
|
if X==255
|
|
|
|
|
c64scr.print(" ok\n")
|
|
|
|
|
else
|
|
|
|
|
c64scr.print(" error!\n")
|
|
|
|
|
}
|
|
|
|
|
|
2019-08-05 19:01:41 +00:00
|
|
|
}
|
