~rabbits/dexe

bf690159c2fffafdeb3ad409155b2702888e41a6 — neauoire 1 year, 8 months ago 703ac01
Draw position
1 files changed, 18 insertions(+), 4 deletions(-)

M src/dexe.tal
M src/dexe.tal => src/dexe.tal +18 -4
@@ 75,7 75,7 @@

	( char frame )
	.asm-frame/x2 LDZ2 #0008 ADD2
		DUP2 .char-frame/x STZ2 #003f ADD2 .char-frame/x2 STZ2
		DUP2 .char-frame/x STZ2 #007f ADD2 .char-frame/x2 STZ2
	.byte-frame/y LDZ2 .char-frame/y STZ2
	.byte-frame/y2 LDZ2 .char-frame/y2 STZ2



@@ 313,7 313,7 @@ BRK
@on-touch-char ( x* y* -> )

	( stash addr* )
	.char-frame/y LDZ2 SUB2 #34 SFT2 NIP STH
	.char-frame/y LDZ2 SUB2 #44 SFT2 NIP STH
	.char-frame/x LDZ2 SUB2 #03 SFT2 NIP STHr ADD
	#00 SWP .selection/key LDZ2 ADD2
	STH2


@@ 581,10 581,19 @@ JMP2
@redraw ( -- )

	;draw-options JSR2
	;draw-position JSR2
	,draw-table ( .. )

JMP

@draw-position ( -- )

	.options-frame/x LDZ2 #0028 ADD2 .Screen/x DEO2
	.options-frame/y LDZ2 .Screen/y DEO2
	.selection/from LDZ2 ;data SUB2 #01 ;draw-short JSR2

JMP2r

@draw-spacer ( -- )

	#01 .Screen/auto DEO


@@ 601,7 610,6 @@ JMP2r

@draw-table ( -- )

	.selection/key LDZ2 ;print JSR2 #0a18 DEO
	.frame/rows LDZ2 #0000
	&loop
		( addr ) DUP2 #40 SFT2 .selection/key LDZ2 ADD2 STH2


@@ 783,7 791,7 @@ JMP2r

@draw-filepath ( color -- )

	.options-frame/x LDZ2 #0028 ADD2 .Screen/x DEO2
	.options-frame/x LDZ2 #0050 ADD2 .Screen/x DEO2
	.options-frame/y LDZ2 .Screen/y DEO2
	;filepath ( scroll )
		DUP2 ;slen JSR2 #0014 GTH2k STH


@@ 834,6 842,12 @@ JMP2

JMP2r

@draw-short ( short* color -- )

	STH
	SWP STHkr ,draw-byte JSR
	STHr

@draw-byte ( byte color -- )

	STH