Fix TOUPPER in COUT for Apple][

2025-02-21 08:29:13 +00:00 · 2018-01-10 21:02:43 -08:00 · 2018-01-10 21:02:43 -08:00 · 55c23805b4
commit 55c23805b4
parent f2d7593527
1 changed files with 4 additions and 4 deletions
--- 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