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

fix bug with insert-n-spaces

This commit is contained in:
~d6 2023-02-14 20:12:46 -05:00
parent 1e30693577
commit 65dec7a259
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
term.tal
View File

@ -977,7 +977,6 @@
@insert-n-spaces ( n* -> ) @insert-n-spaces ( n* -> )
STH2 ( [n*] ) STH2 ( [n*] )
.irm LDZ #00 EQU ?&replace ( [n*] )
eol-addr #0001 SUB2 ( last* [n*] ) eol-addr #0001 SUB2 ( last* [n*] )
STH2kr DUP2 ADD2 SUB2 ( start=last-2n* [n*] ) STH2kr DUP2 ADD2 SUB2 ( start=last-2n* [n*] )
cur-addr SWP2 ( end* start* [n*] ) cur-addr SWP2 ( end* start* [n*] )
@ -987,9 +986,8 @@
STA2 #0002 SUB2 ( end* pos-2* [n* 2n*] ) STA2 #0002 SUB2 ( end* pos-2* [n* 2n*] )
GTH2k #00 EQU ?&loop ( end* pos-2* [n* 2n*] ) GTH2k #00 EQU ?&loop ( end* pos-2* [n* 2n*] )
POP2 POP2 POP2r ( [n*] ) POP2 POP2 POP2r ( [n*] )
&replace ( [n*] ) LIT2r 0000 SWP2r SUB2r ( [-n*] )
LIT2r 0000 SWP2r SUB2r ( [-n*] ) #0200 cur-addr ( 0200 cur* [-n*] )
#0200 cur-addr ( 0200 cur* [-n*] )
&loop2 ( 0200 pos* [-i*] ) &loop2 ( 0200 pos* [-i*] )
STA2k INC2 INC2 INC2r ( 0200 pos+2* [-i+1*] ) STA2k INC2 INC2 INC2r ( 0200 pos+2* [-i+1*] )
ORAkr STHr ?&loop2 ( 0200 pos+2* [-i+1*] ) ORAkr STHr ?&loop2 ( 0200 pos+2* [-i+1*] )