~rabbits/potato

cad9d54655cfc55a1149ff32c34fee68ef6c1d8c — Devine Lu Linvega 2 months ago 51c82ba
Progress on metadata drawing
1 files changed, 8 insertions(+), 10 deletions(-)

M src/potato.tal
M src/potato.tal => src/potato.tal +8 -10
@@ 1143,20 1143,18 @@ JMP2
@draw-txt ( txt* -- end* )

	#01 .Screen/auto DEO
	.Screen/x DEI2 ,&anchor STR2
	.Screen/x DEI2 STH2
	&w
		LDAk ;draw-chr JSR2
		LDAk #20 LTH ,&no-visible JCN
			LDAk ;draw-chr JSR2
			&no-visible
		LDAk #0a NEQ ,&no-lb JCN
			[ LIT2 &anchor $2 ] ,draw-lb2 JSR
			( TODO: find why this is needed ) DUP POP DUP POP DUP POP
			STH2kr .Screen/x DEO2
			.Screen/y DEI2k #0008 ADD2 ROT DEO2
			&no-lb
		INC2 LDAk ,&w JCN

JMP2r

@draw-lb2 ( anchor* -- )

	.Screen/x DEO2
	.Screen/y DEI2k #0008 ADD2 ROT DEO2
	POP2r

JMP2r