From 55c23805b4cc51424f2263283ec876d6c9d9f42a Mon Sep 17 00:00:00 2001
From: Dave Schmenk <dschmenk@gmail.com>
Date: Wed, 10 Jan 2018 21:02:43 -0800
Subject: [PATCH] Fix TOUPPER in COUT for Apple][

---
 src/vmsrc/cmd.pla | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/vmsrc/cmd.pla b/src/vmsrc/cmd.pla
index 592c75e..44b92e6 100755
--- a/src/vmsrc/cmd.pla
+++ b/src/vmsrc/cmd.pla
@@ -349,8 +349,8 @@ asm memxcpy(dst,src,size)#0
         RTS
 end
 asm crout()#0
-        LDA     #$0D
-        BNE     +
+        LDA     #$8D
+        BNE     ++
 end
 //
 // CHAR OUT
@@ -358,12 +358,12 @@ end
 //
 asm cout(c)#0
         LDA     ESTKL,X
-        INX
         BIT     $BF98
         BMI     +
         JSR     TOUPR
 +       ORA     #$80
-        BIT     ROMEN
+        INX
+++      BIT     ROMEN
         JSR     $FDED
         BIT     LCRDEN+LCBNK2
         RTS