Use updated mouse example file

This commit is contained in:
neauoire 2023-08-01 20:41:47 -07:00
parent 14263f3a02
commit c12f2bfc77
3 changed files with 6 additions and 14 deletions

View File

@ -21,7 +21,6 @@ then
clang-format -i src/devices/*
fi
rm -f bin/*
mkdir -p bin
cc ${RELEASE_FLAGS} src/uxnasm.c -o bin/uxnasm

Binary file not shown.

View File

@ -44,6 +44,7 @@ BRK
( clear last cursor )
.pointer/x LDZ2 .Screen/x DEO2
.pointer/y LDZ2 .Screen/y DEO2
;fill-icn .Screen/addr DEO2
[ LIT2 40 -Screen/sprite ] DEO
draw-mouse
( draw new cursor )
@ -128,6 +129,7 @@ JMP2r
DUP2 .Screen/x DEO2
.Screen/y DEO2
#16 .Screen/auto DEO
;fill-icn .Screen/addr DEO2
#40 .Screen/sprite DEOk DEO
( buttons )
#0300
@ -189,22 +191,13 @@ JMP2r
@clear-screen ( -- )
#00 .Screen/auto DEO
.Screen/height DEI2 #03 SFT2 NIP #00
&y
#00 OVR #30 SFT2 .Screen/y DEO2
.Screen/width DEI2 #03 SFT2 NIP #00
&x
#00 OVR #30 SFT2 .Screen/x DEO2
[ LIT2 00 -Screen/sprite ] DEO
INC GTHk ?&x
POP2
INC GTHk ?&y
POP2
#0000 DUP2 .Screen/x DEO2 .Screen/y DEO2
#80 .Screen/pixel DEO
JMP2r
@fill-icn [
ffff ffff ffff ffff ]
@pointer-icn [
80c0 e0f0 f8e0 1000 ]
@mouse-icn [