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