mirror of https://git.sr.ht/~rabbits/left
Use System/expansion for msfr
This commit is contained in:
parent
6456311a20
commit
51210d6efb
21
src/left.tal
21
src/left.tal
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue