~rabbits/adelie

d7557fee815bcf89597f79f5376ec1f52565fddd — Devine Lu Linvega 11 months ago d01126f
Do not reset auto byte
1 files changed, 4 insertions(+), 11 deletions(-)

M src/adelie.tal
M src/adelie.tal => src/adelie.tal +4 -11
@@ 164,7 164,7 @@
		BRK

@restart ( -- )
	;src DUP2 load-file
	;src load-file

@start ( -- )
	<start-watch>


@@ 453,7 453,6 @@
	,&x LDR <draw-byte>
	LIT ", <draw-uf2-char>
	,&y LDR <draw-byte>
	[ LIT2 00 -Screen/auto ] DEO
	JMP2r
	&x $1
	&y $1


@@ 534,8 533,7 @@
		&>no-lb
		( draw ) LDAk <draw-uf2-char>
		&resume INC2 LDAk ?&w
	POP2 [ LIT2 00 -Screen/auto ] DEO
	JMP2r
	POP2 JMP2r

@<draw-uf2-char> ( char -- )
	#20 SUB #00 SWP DUP2 #50 SFT2 ;font-uf2/glyphs ADD2 .Screen/addr DEO2


@@ 562,8 560,7 @@
		DEO
		#0002 SUB2 .Screen/x DEO2
		&resume INC2 LDAk ?&w
	POP2 [ LIT2 00 -Screen/auto ] DEO
	JMP2r
	POP2 JMP2r

@<draw-fill> ( color -- )
	STH #0000 DUP2 .Screen/x DEO2


@@ 585,7 582,6 @@
	POP2 .Screen/y DEI2k #0008 ADD2 ROT DEO2
	INC GTHk ?&hloop
	POP2 POPr ,&x LDR2 .Screen/x DEO2
	[ LIT2 00 -Screen/auto ] DEO
	JMP2r

@<draw-icn> ( name* -- )


@@ 612,10 608,7 @@
	( x = 0 ) [ LIT2 &anchor $2 ] .Screen/x DEO2
	( y + 8 ) .Screen/y DEI2k #0008 ADD2 ROT DEO2
	INC DUP ?&y
	POP
	( | end )
	[ LIT2 00 -Screen/auto ] DEO
	JMP2r
	POP JMP2r
	&buf $8

@<draw-line> ( x1* y1* x2* y2* color -- )