mirror of
https://github.com/irmen/prog8.git
synced 2024-07-28 18:29:40 +00:00
39 lines
492 B
Lua
39 lines
492 B
Lua
%import c64lib
|
|
%import c64utils
|
|
%import c64flt
|
|
%zeropage dontuse
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
|
|
uword uw
|
|
ubyte ub
|
|
|
|
; uw = uw>>0
|
|
; uw = uw>>7
|
|
ub = uw>>8 as ubyte
|
|
A++
|
|
uw = uw>>8
|
|
A++
|
|
uw = msb(uw)
|
|
|
|
; uw <<= 1
|
|
; uw >>= 1
|
|
;
|
|
; ub <<= 1
|
|
; ub >>= 1
|
|
;
|
|
; uw *= 2
|
|
; ub *= 2
|
|
}
|
|
|
|
|
|
asmsub aa(byte arg @ Y) clobbers() {
|
|
%asm {{
|
|
rts
|
|
}}
|
|
}
|
|
|
|
}
|