From: Christian Groessler <chris@groessler.org>
Date: Wed, 28 May 2014 22:18:55 +0000 (+0200)
Subject: use atari target scrcode macro for atari5200 target, too
X-Git-Tag: V2.15~57^2~8
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=8f2c9f0d8ee1860314898d923e0a9612553b7336;p=cc65

use atari target scrcode macro for atari5200 target, too
---

diff --git a/asminc/atari5200.mac b/asminc/atari5200.mac
index 59d7ff29c..1f8fd3727 100644
--- a/asminc/atari5200.mac
+++ b/asminc/atari5200.mac
@@ -1,66 +1 @@
-; Convert characters to screen codes
-
-; Helper macro that converts and outputs one character
-.macro _scrcode char
-.if 1
-        .if (char >= 96) .and (char <= 127)
-        .byte (char)
-        .else
-        .byte (char - 32)
-        .endif
-.else
-        .if (char >= 0) .and (char <= 31)
-                .byte   (char + 64)
-        .elseif (char >= 32) .and (char <= 95)
-                .byte   (char + 32)
-        .elseif (char >= 96) .and (char <= 127)
-                .byte   char
-        .elseif (char >= 128) .and (char <= 159)
-                .byte   (char + 64)
-        .elseif (char >= 160) .and (char <= 223)
-                .byte   (char - 32)
-        .elseif (char >= 224) .and (char <= 255)
-                .byte   char
-        .else
-                .error  "scrcode: Character constant out of range"
-        .endif
-.endif
-.endmacro
-
-.macro  scrcode arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9
-
-        ; Bail out if next argument is empty
-        .if     .blank (arg1)
-                .exitmacro
-        .endif
-
-        ; Check for a string
-        .if     .match ({arg1}, "")
-
-                ; Walk over all string chars
-                .repeat .strlen (arg1), i
-                        _scrcode        {.strat (arg1, i)}
-                .endrepeat
-
-        ; Check for a number
-        .elseif .match (.left (1, {arg1}), 0)
-
-                ; Just output the number
-                _scrcode        arg1
-
-        ; Check for a character
-        .elseif .match (.left (1, {arg1}), 'a')
-
-                ; Just output the character
-                _scrcode        arg1
-
-        ; Anything else is an error
-        .else
-
-                .error  "scrcode: invalid argument type"
-
-        .endif
-
-        ; Call the macro recursively with the remaining args
-        scrcode arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9
-.endmacro
+.include "atari.mac"