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