From ae1ec11e85aee5cd50f23f9dea23c9e676efb162 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Thu, 30 Sep 2021 19:57:20 -0700
Subject: [PATCH] Viewport is now responsive

---
 src/main.tal | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/src/main.tal b/src/main.tal
index b4d3ed3..e748b2c 100644
--- a/src/main.tal
+++ b/src/main.tal
@@ -76,7 +76,7 @@
 @file-frame
 	&x $2 &y $2 &x2 $2 &y2 $2 
 @byte-frame
-	&x $2 &y $2 &x2 $2 &y2 $2 
+	&x $2 &y $2 &x2 $2 &y2 $2 &rows $2
 @char-frame
 	&x $2 &y $2 &x2 $2 &y2 $2 
 @tile-frame
@@ -108,13 +108,16 @@
 
 	.frame/x LDZ2 
 		DUP2 .file-frame/x STZ2 #0118 ++ .file-frame/x2 STZ2
-	.frame/y LDZ2 
+	#0020
 		DUP2 .file-frame/y STZ2 #0018 ++ .file-frame/y2 STZ2
 
 	.frame/x LDZ2 
 		DUP2 .byte-frame/x STZ2 #00b8 ++ .byte-frame/x2 STZ2
-	.frame/y LDZ2 #0020 ++
-		DUP2 .byte-frame/y STZ2 #0100 ++ .byte-frame/y2 STZ2
+	.file-frame/y2 LDZ2 #0008 ++
+		.byte-frame/y STZ2 
+	.Screen/height DEI2 #0040 -- .byte-frame/y2 STZ2
+
+	.byte-frame/y2 LDZ2 .byte-frame/y LDZ2 -- 10// .byte-frame/rows STZ2
 
 	.byte-frame/x2 LDZ2 #0008 ++
 		DUP2 .tile-frame/x STZ2 #0010 ++ .tile-frame/x2 STZ2
@@ -487,7 +490,7 @@ RTN
 @follow-selection ( -- )
 
 	.selection/from LDZ2 MEMORY .selection/scroll LDZ2 8** ++ << ,&up JCN
-	.selection/to LDZ2 MEMORY #007f ++ .selection/scroll LDZ2 8** ++  >> ,&down JCN
+	.selection/to LDZ2 MEMORY [ .byte-frame/rows LDZ2 8** #0001 -- ] ++ .selection/scroll LDZ2 8** ++  >> ,&down JCN
 	RTN
 
 	&up
@@ -495,7 +498,7 @@ RTN
 		RTN
 
 	&down
-		.selection/to LDZ2 #0080 -- #0008 ++ ;scroll-to JSR2
+		.selection/to LDZ2 [ .byte-frame/rows LDZ2 8** ] -- #0008 ++ ;scroll-to JSR2
 
 RTN
 
@@ -573,7 +576,7 @@ RTN
 
 @redraw ( -- )
 
-	#0010 #0000 
+	.byte-frame/rows LDZ2 #0000 
 	&loop
 		( addr ) DUP2 8** MEMORY ++ .selection/scroll LDZ2 8** ++ STH2
 		( y ) DUP2 10** .byte-frame/y LDZ2 ++
-- 
2.38.5