neauoire
/
left
mirror of https://git.sr.ht/~rabbits/left
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Use System/expansion for msfr

This commit is contained in:
Devine Lu Linvega 2024-03-20 10:47:20 -07:00
parent 6456311a20
commit 51210d6efb
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/left.tal
View File

@ -60,7 +60,7 @@
( name ) "Left 0a ( name ) "Left 0a
( details ) "A 20 "Text 20 "Editor 0a ( details ) "A 20 "Text 20 "Editor 0a
( author ) "By 20 "Hundred 20 "Rabbits 0a ( author ) "By 20 "Hundred 20 "Rabbits 0a
( date ) "17 20 "Mar 20 "2024 $1 ( date ) "20 20 "Mar 20 "2024 $1
01 01
( > ) 83 =appicon ( > ) 83 =appicon
@ -370,7 +370,7 @@
POP2 POP JMP2r POP2 POP JMP2r
@<insert-char> ( c addr* -- ) @<insert-char> ( c addr* -- )
DUP2 #0001 SUB2 get-eof #0001 <msfr> DUP2 #0001 <msfr>
STA STA
#0001 !mod-length #0001 !mod-length
@ -1059,7 +1059,7 @@
STH2kr .File/length DEO2 STH2kr .File/length DEO2
( | erase when selection length ) ( | erase when selection length )
has-empty? ?{ erase-selection } has-empty? ?{ erase-selection }
( push right ) get-from #0001 SUB2 get-eof STH2kr <msfr> ( push right ) get-from STH2kr <msfr>
STH2kr mod-length get-from .File/read DEO2 STH2kr mod-length get-from .File/read DEO2
get-from STH2r ADD2 !<select-a> get-from STH2r ADD2 !<select-a>
@ -1551,14 +1551,13 @@
JMP2r JMP2r
&mmu 01 &length 0000 0000 &src 0000 0000 &dst 0000 &mmu 01 &length 0000 0000 &src 0000 0000 &dst 0000
@<msfr> ( b* a* len* -- ) @<msfr> ( a* distance* -- )
STH2 ADD2k ,&dst STR2
EQU2k ?{ OVR2 ,&src STR2
&>l ( -- ) POP2 get-eof SWP2 SUB2 ,&length STR2
DUP2 LDAk ROT ROT STH2kr ADD2 STA ;&mmu .System/expansion DEO2
#0001 SUB2 LTH2k ?&>l JMP2r
POP2 POP2 } &mmu 02 &length 0000 0000 &src 0000 0000 &dst 0000
POP2r JMP2r
@sseg? ( a* b* -- bool ) @sseg? ( a* b* -- bool )
STH2 STH2