From da22c90d33fcd4466f770f54755dbb886530f6ee Mon Sep 17 00:00:00 2001
From: Greg King <gregdk@users.sf.net>
Date: Tue, 9 Jan 2018 04:48:39 -0500
Subject: [PATCH] Shrank Telestrat initcwd.s by 3 bytes.

Changing when a loop test is done allowed the removal of an extra STA instruction.
---
 libsrc/telestrat/initcwd.s | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/libsrc/telestrat/initcwd.s b/libsrc/telestrat/initcwd.s
index f359ebeb4..dc3c53257 100644
--- a/libsrc/telestrat/initcwd.s
+++ b/libsrc/telestrat/initcwd.s
@@ -10,22 +10,19 @@
 
 
 initcwd:
-       
         ldx     #PWD_PTR
         BRK_TELEMON XVARS
-        
+
         sta     ptr1
         sty     ptr1+1
-        
+
         ldy     #$00
-        
-loop:        
+loop:
         lda     (ptr1),y
-        beq     done
         sta     __cwd,y
+        beq     done
         iny
         bne     loop
-       
-done:   
-        sta     __cwd,y
+
+done:
         rts
-- 
2.39.2