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

optimize things a bit more

This commit is contained in:
~d6 2023-02-18 00:15:44 -05:00
parent ff6b76ba04
commit 92c443fd85
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
term.tal
View File

@ -279,11 +279,11 @@
#0000 draw-border/row #0000 draw-border/row
#0008 draw-border/row #0008 draw-border/row
.rows LDZ2 #000c MUL2 #0010 ADD2 draw-border/row .rows LDZ2 #000c MUL2 #0010 ADD2 draw-border/row
.rows LDZ2 #000c MUL2 #0018 ADD2 draw-border/row .Screen/y DEI2 #0008 ADD2 draw-border/row
#0000 draw-border/col #0000 draw-border/col
#0008 draw-border/col #0008 draw-border/col
.cols LDZ2 #0008 MUL2 #0010 ADD2 draw-border/col .cols LDZ2 #0008 MUL2 #0010 ADD2 draw-border/col
.cols LDZ2 #0008 MUL2 #0018 ADD2 draw-border/col .Screen/x DEI2 #0008 ADD2 draw-border/col
#00 .Screen/auto DEO POP2 !screen-to-cursor #00 .Screen/auto DEO POP2 !screen-to-cursor
&row ( y* -> ) &row ( y* -> )
@ -383,7 +383,7 @@
JMP2r JMP2r
@paste-snarf ( -> ) @paste-snarf ( -> )
.paste LDZ #00 EQU ?&start LIT "0 ;bracket-paste JSR2 &start .paste LDZ #00 EQU ?&start LIT "0 bracket-paste &start
;snarf .File2/name DEO2 ( ) ;snarf .File2/name DEO2 ( )
#0780 .File2/len DEO2 ( ) #0780 .File2/len DEO2 ( )
&loop ( ) &loop ( )
@ -395,7 +395,7 @@
!&loop ( ) !&loop ( )
&failed POP2 &failed POP2
&done &done
.paste LDZ #00 EQU ?&end LIT "1 ;bracket-paste JSR2 &end .paste LDZ #00 EQU ?&end LIT "1 bracket-paste &end
JMP2r JMP2r
@lit-first-y @lit-first-y