# HG changeset patch
# User boisy
# Date 1188079211 0
# Node ID f9e0961519bff303be8c5c83b4c58a050f80b0dd
# Parent  73a8a7fe0151f80d5534e0bee71adfc67b3f40f8
Fixed issue with stack and copystr routine

diff -r 73a8a7fe0151 -r f9e0961519bf level1/cmds/login.asm
--- a/level1/cmds/login.asm	Fri Aug 24 22:13:57 2007 +0000
+++ b/level1/cmds/login.asm	Sat Aug 25 22:00:11 2007 +0000
@@ -118,8 +118,7 @@
          bne   go@
          puls  x,pc
 
-start    leas  >linebuff,u
-         pshs  y,x
+start    pshs  y,x
          leax  <IcptRtn,pcr
          os9   F$Icpt   
          IFGT  Level-1
@@ -341,11 +340,14 @@
 
 * Entry: X = ptr to string to copy
 *        Y = length of string
-copystr  lda   ,x+
+copystr
+         cmpy  #$0000
+         beq   copyex
+         lda   ,x+
          lbsr  puta
          leay  -$01,y
          bne   copystr
-         rts   
+copyex   rts   
 
 L0347    bsr   copystr
          lbsr  writestr