From 8f2c9f0d8ee1860314898d923e0a9612553b7336 Mon Sep 17 00:00:00 2001
From: Christian Groessler <chris@groessler.org>
Date: Thu, 29 May 2014 00:18:55 +0200
Subject: [PATCH] use atari target scrcode macro for atari5200 target, too

---
 asminc/atari5200.mac | 67 +-------------------------------------------
 1 file changed, 1 insertion(+), 66 deletions(-)

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"
-- 
2.39.5