~rabbits/orca-toy

8b6eeebb81b15752310085a74ad16f9930b86f00 — neauoire 1 year, 7 months ago a9a67f1
Cleanup
1 files changed, 12 insertions(+), 4 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +12 -4
@@ 355,10 355,18 @@ BRK
	BRK

	&arrows ( button -> )
		DUP #f0 AND #10 ! ,&no-up JCN    [ #00ff ROT ,&move JMP ] &no-up
		DUP #f0 AND #20 ! ,&no-down JCN  [ #0001 ROT ,&move JMP ] &no-down
		DUP #f0 AND #40 ! ,&no-left JCN  [ #ff00 ROT ,&move JMP ] &no-left
		DUP #f0 AND #80 ! ,&no-right JCN [ #0100 ROT ,&move JMP ] &no-right
		DUP #f0 AND #10 ! ,&no-up JCN    
			#00ff ROT ,&move JMP 
			&no-up
		DUP #f0 AND #20 ! ,&no-down JCN  
			#0001 ROT ,&move JMP 
			&no-down
		DUP #f0 AND #40 ! ,&no-left JCN  
			#ff00 ROT ,&move JMP 
			&no-left
		DUP #f0 AND #80 ! ,&no-right JCN 
			#0100 ROT ,&move JMP 
			&no-right
		POP BRK
		&move 
		;edit-selection JSR2