From 9b7ab8f4a14c7b523d2d6f39d4741a28db80dc0f Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Mon, 22 May 2023 16:50:51 -0700 Subject: [PATCH] Created move routine --- gui/dads/dads.tal | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/gui/dads/dads.tal b/gui/dads/dads.tal index d34033c..7b94c1f 100644 --- a/gui/dads/dads.tal +++ b/gui/dads/dads.tal @@ -52,11 +52,9 @@ BRK @|core ) @pick ( x y -- * ) - ( clamp ) DUP #04 GTH ?&bounds OVR #03 GTH ?&bounds - ,&t STR2 #0900 &l @@ -65,7 +63,6 @@ BRK &end POP2 #ffff - JMP2r &bounds ( bounds* -- 0* ) POP2 #0000 @@ -89,16 +86,19 @@ JMP2r DUP2 #ffff EQU2 ?&blank DUP2 #0000 EQU2 ?&blank ( up ) - DUP2 #00ff can-move phex/b #0a18 DEO + #00ff OVR2 OVR2 can-move ?&move POP2 ( right ) - DUP2 #0001 can-move phex/b #0a18 DEO + #0001 OVR2 OVR2 can-move ?&move POP2 ( down ) - DUP2 #0100 can-move phex/b #0a18 DEO + #0100 OVR2 OVR2 can-move ?&move POP2 ( left ) - DUP2 #ff00 can-move phex/b #0a18 DEO + #ff00 OVR2 OVR2 can-move ?&move POP2 POP2 JMP2r +&move ( block* offset* -- ) + phex #2018 DEO phex #0a18 DEO +JMP2r &blank ( block* -- ) POP2 JMP2r