From 48c7901c60e61b343642669978b62b10960a1e69 Mon Sep 17 00:00:00 2001
From: pkali <pawel.kalinowski@gmail.com>
Date: Fri, 4 Aug 2023 23:21:07 -0400
Subject: [PATCH] scroll with paging using shift. will be deleted because it is
 a pain in the

---
 Manuals/manual.asm |  21 ++++++++++++++++++++-
 Manuals/manual.xex | Bin 31132 -> 31174 bytes
 2 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/Manuals/manual.asm b/Manuals/manual.asm
index e493dca..4044f2f 100644
--- a/Manuals/manual.asm
+++ b/Manuals/manual.asm
@@ -22,6 +22,9 @@ start
     mwa #man_text_en top_src
     
 main_loop
+    bit escflag
+    spl:rts  ; EXIT THIS WAY --->
+    mva #0 shiftflag
     mwa top_src src
     mwa #screen dest
 
@@ -70,6 +73,13 @@ next_line
     jmp main_loop
   
 scroll_down
+    lda #1  ; repeat_counter
+    ; make it repeat 10 times if SHIFT is pressed
+    bit shiftflag
+    spl:lda #screen_height
+    sta repeat_counter
+    
+scroll_repeat_loop
     ; find first $ff after top_src and move it there
     ldy #-1
 @     iny
@@ -86,6 +96,8 @@ scroll_down
     ;adw top_src #screen_width
     cpw end_address #man_text_en_end
     scc:mwa start_address top_src
+    dec repeat_counter
+    bne scroll_repeat_loop
     jmp main_loop
 
 scroll_up
@@ -122,7 +134,11 @@ getKeyAfterWait
       cmp #$ff
       beq checkJoyGetKey ; key not pressed, check Joy
       cmp #$f7  ; SHIFT
-      beq checkJoyGetKey
+      bne @+
+      mva #$80 shiftflag
+      bne checkJoyGetKey
+      
+@
     lda kbcode
     cmp #@kbcode._none
     beq checkJoyGetKey
@@ -167,6 +183,7 @@ SelectPressed
     bne getkeyend
 JoyButton
     lda #@kbcode._ret ;Return key
+    mva #$80 shiftflag
 getkeyend
     ldy #0
     sty ATRACT    ; reset atract mode
@@ -208,6 +225,8 @@ joyToKeyTable
     .by $ff             ;0f
 
 escflag .byte 0
+shiftflag .byte 0
+repeat_counter .byte 0
 paddlestate .byte 0
 man_text_en
     ins 'manual.bin'  ;icl 'man_cart_txt_EN.asm'
diff --git a/Manuals/manual.xex b/Manuals/manual.xex
index 86e9969f69ce6d1c9abf94c396809c26e7d052ba..5a31e9b6205f8f7ba8b9e22a5ffe0db1fba93331 100644
GIT binary patch
delta 262
zcmbR9neo_XMvedf1w@W^u59f!U|K2KYsj>+r}qof%3ZB3D@9vdb+(BLFea>I=-n<l
zQC5#JccPDhq=@KA{txUY`99eDsEe#*)Y&d7z_e1TcZcZ2PFaB?6F8Q3wze$oYHdBY
zL-fMsi5vCncWvN+nFrLdmjBYp{~zQ}e!sxJvH@uB1(CI!AQ4_o`;#&k>=!ijY!kg;
zv9^LqlOJdg+lrmbL@#KrZDIN#t57aFLF59%TKNl_Odq&G6w8H;E7dP>uhapW#RE2N
x0Yi&#!rB5R%>$kX&h8ZL-6@(dIhaviq*e4k1h4}sw*UNm{}~uIw=han007;$b#MRx

delta 234
zcmX^1nQ_i%M%n-W1w>|du8i$9U|K2KYsj>+r}qof$_cG4D@9vdCu-<1CQS@C;Qb+T
zlK%tyNxlzyKI$S97sztYn!vHNv$bVu7f{hz{rU+TIAD5!3fA&pI{E*D#L4d;MAmYG
zn7o?yCuJ^JEokWJ6TM)(wt`8MA7~!iik)?$7gW}^Fny3!@E4sRa)Dv3`~^*>58NP%
z<-(4Y>KE8n>Re!2$+Li=#W!JX0h8td&jV-sMSJ^26AB8P7zCIgU~&hepa_#=tmuCT
SU<Xoc|M~g;Z(heJQ2_vVq-Fg8