d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove some hardcoded constants

This commit is contained in:
~d6 2023-02-10 21:18:03 -05:00
parent 5944cd09ce
commit 6ce966ce1d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
term.tal
View File

@ -272,9 +272,9 @@
&done BRK
@flash-bell ( -> )
.flash LDZ #01 SUB .flash STZ
#0000 DUP2 .lit-click-x STZ2 .lit-click-y STZ2
#004f .lit-drag-x STZ2 #0017 .lit-drag-y STZ2
.flash LDZk #01 SUB SWP STZ ( ; flash<-flash-1 )
#0000 DUP2 .lit-click-x STZ2 .lit-click-y STZ2
.max-x LDZ2 .lit-drag-x STZ2 .max-y LDZ2 .lit-drag-y STZ2
redraw-selection clear-selection JMP2r
@screen-to-cell ( row* col* -> )
@ -375,8 +375,8 @@
JMP2r ( )
@point-to-coord ( x* y* -> row* col* )
DUP2 #0008 SUB2 min #000c DIV2 #0017 min SWP2 ( row=(y-8)/12* x* )
DUP2 #0008 SUB2 min #0008 DIV2 #004f min JMP2r ( row* col=(x-8)/8* )
DUP2 #0008 SUB2 min #000c DIV2 .max-y LDZ2 min SWP2 ( row=(y-8)/12* x* )
DUP2 #0008 SUB2 min #0008 DIV2 .max-x LDZ2 min JMP2r ( row* col=(x-8)/8* )
@start-selection ( -> )
#01 .is-lit STZ ( )