~rabbits/left

bc7ea9bc78dff02d6d12db10647efb58a148f4a3 — Devine Lu Linvega a month ago 30e5329
Added markers
1 files changed, 14 insertions(+), 8 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +14 -8
@@ 97,6 97,9 @@ BRK
		01 'p :toggle-fixed "FixedWidth $1
	$1

(
@|vectors )

@trap ( -- )

	;on-frame-trap .Screen/vector DEO2


@@ 378,7 381,8 @@ JMP2r

BRK

( actions )
( 
@|actions )

@scroll-to ( line* -- )



@@ 788,7 792,8 @@ JMP

JMP2

( Drawing )
(
@|drawing )

@redraw-all ( -- )



@@ 1122,7 1127,8 @@ JMP2r
JMP2r
	&truncate LIT '. DUP ,draw-chr JSR ,draw-chr JMP

( document )
(
@|document )

@file-new ( -- )



@@ 1132,7 1138,7 @@ JMP2r
	;text #fff8 OVR2 SUB2 ;mclr JSR2
	#0000 .textarea/length STZ2
	( rename to untitled.txt )
	;untitled-txt ;filepath ;scpy JSR2
	;&untitled-txt ;filepath ;scpy JSR2
	( reset position )
	#01 ;draw-state JSR2
	;text ;select-start JSR2


@@ 1145,6 1151,7 @@ JMP2r
	;draw-textarea ( .. )

JMP2
	&untitled-txt "untitled.txt $1

@file-goto ( -- )



@@ 1229,10 1236,8 @@ JMP2

JMP2

@untitled-txt
	"untitled.txt $1

( string generics )
(
@|stdlib )

@msfl ( b* a* len* -- ) STH2 SWP2 EQU2k ,&e JCN &l DUP2k STH2kr ADD2 LDA ROT ROT STA INC2 GTH2k ,&l JCN POP2 POP2 &e POP2r JMP2r
@msfr ( b* a* len* -- ) STH2 EQU2k ,&e JCN &l DUP2 LDAk ROT ROT STH2kr ADD2 STA #0001 SUB2 LTH2k ,&l JCN POP2 POP2 &e POP2r JMP2r


@@ 1249,3 1254,4 @@ JMP2
JMP2r
	&number #30 SUB JMP2r
	&lc #57 SUB JMP2r