~rabbits/dexe

703ac012eee06a908bb54e26a4093de436b38a51 — neauoire 10 months ago fd25b11
Fixed scrolling bug
1 files changed, 2 insertions(+), 1 deletions(-)

M src/dexe.tal
M src/dexe.tal => src/dexe.tal +2 -1
@@ 494,7 494,7 @@ JMP2

@set-scroll ( scroll* -- )

	DUP2 #30 SFT2 ;data ADD2 .selection/key STZ2
	DUP2 #40 SFT2 ;data ADD2 .selection/key STZ2
		.selection/scroll STZ2

JMP2r


@@ 601,6 601,7 @@ JMP2r

@draw-table ( -- )

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