From bdf518951399f15a4f8a8d3e8f9760aeae47b186 Mon Sep 17 00:00:00 2001
From: Pedro de Oliveira <falsovsky@gmail.com>
Date: Tue, 12 Aug 2014 05:20:19 +0100
Subject: [PATCH] =?UTF-8?q?Ja=20est=C3=A1=20perfect!!?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 scroller2/main.tap        | Bin 511 -> 509 bytes
 scroller2/scroll_text.asm |  42 +++++++++++++++++++-------------------
 2 files changed, 21 insertions(+), 21 deletions(-)

diff --git a/scroller2/main.tap b/scroller2/main.tap
index 9e0f8e7ba6621e0f7691f60120a432d010a582d2..efa1b9172011a10e0d25886b45fc684fb7a156e3 100644
GIT binary patch
delta 161
zcmey*{Fiw`9!CqKK`BE6bKAr+HO8EYa}PN%T8WqaV^rX>V=xjgQ|u^}VAc{Xt9z=(
zkgut!84|0=U?X`py39`Ox*Y=;O}PG0x$Yl>29pG<9V1Z7<b{k<F4<*D>1Ag-%CyqU
zRIIYgY>cwYcop891aglu$}_z6Qpzkl$fi&yUal?h3n(wf5U&{VUlPdI$}FohVEV>b
HesVGZz3euM

delta 163
zcmey%{GWM39!DFaK`BE6W5>iYHO9P&a}PN&*oj@YV*nv5(XxLG3QQV2R$@Sg2CJ56
znFO<9M`_(tHHLgmP0f&4MFtzmv$17%6Rtm0t^+Dz0?SXH&nV@RTc(s*cDAcbE3-_+
zD!0tWD7TDP;mt`P_b8)0!&@(<?6QMw3U%V;+5*3T@?s3}iV^=Mfqbp(vN{8%Z;a(9
Gp927NXE-td

diff --git a/scroller2/scroll_text.asm b/scroller2/scroll_text.asm
index 4926fc5..12f458f 100644
--- a/scroller2/scroll_text.asm
+++ b/scroller2/scroll_text.asm
@@ -14,30 +14,22 @@ udg_start   equ $ff58   ; User-defined characters, vai até $ffff
                         ; São acessiveis com o caracter $90 até $a4
 
 text_pos    db  0,0
-char_pos    db  0
+first_time  db  1
 
 scroll_text
-    ld a, 22
-    rst $10
-    ld a, 0
-    rst $10
-    ld a, 0
-    rst $10
-
-    ; Verificar se o valor de text_pos já foi alguma vez alterado
-    ld a, (text_pos)    ; Le o primeiro byte
-    cp 0                ; Se for 0 é a primeira vez senão
-    jr nz, segundo_byte ; vou verificar o segundo byte
-    jr z, first_run
-segundo_byte
-    ld a, (text_pos+1)  ; Le o segundo byte
-    cp 0                ; Se for 0 é a primeira vez 
-    jr z, first_run
-    ld hl, (text_pos)   ; Senão usa o valor de (text_pos)
-    jr scroll_text_loop
+    ld a, (first_time)
+    cp $1
+    jr nz, other_runs
 first_run
-    ; Primeira vez a correr, usa o endereço de text
+    ; Primeira vez a correr, usa a posicao 0 da string
+    ld a, 0
+    ld (first_time), a  ; first_time = 0
     ld hl, text         ; Endereço do primeiro chr
+    jr scroll_text_loop
+other_runs
+    ; Usa a posição guardada em text_pos
+    ld hl, (text_pos)
+    
 scroll_text_loop
     ; Por exemplo, a primeira letra é um L. No ASCII do 
     ; Spectrum o valor dela é $4C e com esse valor pretendo
@@ -62,6 +54,13 @@ scroll_text_loop
     call copia_para_udg ; Copia a letra para o UDG#1
                         ; O argumento para a rotina é o valor em HL
 
+    ld a, 22
+    rst $10
+    ld a, 0
+    rst $10
+    ld a, 0
+    rst $10
+
     ld a, $90           ; Imprime UDG#1
     rst $10
 
@@ -72,7 +71,8 @@ scroll_text_loop
     jr z, reset         ; Reset à posição
     jr the_end          ; Continua
 reset
-    ld hl, text         ; Mete a posição na string a 0
+    ld a, 1
+    ld (first_time), a  ; Manda meter a posicao a 0 da proxima vez
 the_end
     ld (text_pos), hl   ; Guarda a posição
     ret