mirror of
https://github.com/irmen/prog8.git
synced 2024-10-17 10:24:55 +00:00
25 lines
425 B
Lua
25 lines
425 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
sub start() {
|
|
move()
|
|
}
|
|
|
|
sub move() {
|
|
ubyte mb = cx16.mouse_pos()
|
|
ubyte @shared xx = cx16.r0H
|
|
ubyte @shared yy = cx16.r0L
|
|
func(cx16.r0H)
|
|
func(cx16.r0L)
|
|
cx16.vpoke(1, $fc08+2, cx16.r0H)
|
|
cx16.vpoke(1, $fc08+3, cx16.r0L)
|
|
}
|
|
|
|
asmsub func(ubyte qq @A) {
|
|
%asm {{
|
|
rts
|
|
}}
|
|
}
|
|
}
|