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
#0008 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
#0008 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
&row ( y* -> )
@ -383,7 +383,7 @@
JMP2r
@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 ( )
#0780 .File2/len DEO2 ( )
&loop ( )
@ -395,7 +395,7 @@
!&loop ( )
&failed POP2
&done
.paste LDZ #00 EQU ?&end LIT "1 ;bracket-paste JSR2 &end
.paste LDZ #00 EQU ?&end LIT "1 bracket-paste &end
JMP2r
@lit-first-y