From 49fa0c2180fc2ba4d8c1559f75f80f2712623d1f Mon Sep 17 00:00:00 2001
From: Christopher RYU <software-ryucats@disavowed.jp>
Date: Fri, 28 Jul 2023 08:26:15 +0900
Subject: [PATCH] Use screen code macro for readability.

---
 firmware/legend.s | 104 +++++++++++++++++++++++++++++++---------------
 1 file changed, 70 insertions(+), 34 deletions(-)

diff --git a/firmware/legend.s b/firmware/legend.s
index 58303f1..ddc904e 100644
--- a/firmware/legend.s
+++ b/firmware/legend.s
@@ -5,6 +5,7 @@ PRBL2		:= $F94A
 HOME		:= $FC58
 COUT		:= $FDED
 
+.MACPACK apple2
 .org $c600
 
         ldx     #$20	; controller signature
@@ -29,8 +30,7 @@ loop1:	iny
         bne     LC617
 LC627:	beq     LC627
 
-info:	.byte $8d, $bc, $ad, $ad, $cb, $c5, $d9, $c2
-	.byte $cf, $c1, $d2, $c4
+info:	scrcode $0d, "<--KEYBOARD"
 
 .ifdef MICROSCI
 ; ROM checksum 5ddcbbf1
@@ -47,11 +47,12 @@ info:	.byte $8d, $bc, $ad, $ad, $cb, $c5, $d9, $c2
 ;             XXXXXXX   XXXXXXX   XXXXXXX
 ;               3.2      INFO    3.3&PASCAL
 
-	.byte $08, $d5, $ad, $d3
-	.byte $c3, $c9, $08, $d2, $c5, $c1, $d2, $ad
-	.byte $ad, $be, $8d, $8d, $08, $ad, $ad, $ad
-	.byte $ad, $ad, $ad, $ad, $ad, $ad, $ca, $d5
-	.byte $cd, $d0, $c5, $d2, $ad, $ad
+	.byte $08
+    scrcode "U-SCI"
+    .byte $08
+    scrcode "REAR-->", $0d, $0d
+    .byte $08
+    scrcode "---------JUMPER--------"
 .else
 ; ROM checksum 5dfc32ca
 ;	<--KEYBOARD      ACE 1000      REAR-->
@@ -67,31 +68,66 @@ info:	.byte $8d, $bc, $ad, $ad, $cb, $c5, $d9, $c2
 ;             XXXXXXX   XXXXXXX   XXXXXXX
 ;               3.2      INFO    3.3&PASCAL
 
-	.byte $06, $c1, $c3, $c5
-	.byte $a0, $b1, $b0, $b0, $b0, $06, $d2, $c5
-	.byte $c1, $d2, $ad, $ad, $be, $8d, $8d, $07
-	.byte $a0, $02, $ad, $ad, $ad, $ad, $ad, $ad
-	.byte $ca, $d5, $cd, $d0, $c5, $d2
+    .byte $06
+    scrcode "ACE 1000"
+    .byte $06
+    scrcode "REAR-->", $0d, $0d
+    .byte $07
+    scrcode " "
+    .byte $02
+    scrcode "------JUMPER------"
 .endif
-	.byte $ad, $ad
-	.byte $ad, $ad, $ad, $ad, $8d, $07, $a1, $0b
-	.byte $a1, $0b, $a1, $8d, $07, $d6, $0b, $d6
-	.byte $0b, $d6, $8d, $8d, $06, $a3, $a3, $a3
-	.byte $a0, $a1, $a0, $a1, $03, $a1, $a0, $a3
-	.byte $a3, $a3, $a0, $a1, $03, $a1, $a0, $a1
-	.byte $a0, $a3, $a3, $a3, $8d, $06, $a3, $a3
-	.byte $a3, $a0, $a1, $a0, $a1, $03, $a1, $a0
-	.byte $a3, $a3, $a3, $a0, $a1, $03, $a1, $a0
-	.byte $a1, $a0, $a3, $a3, $a3, $8d, $06, $a3
-	.byte $a3, $a3, $a0, $a1, $a0, $a1, $03, $a1
-	.byte $a0, $a3, $a3, $a3, $a0, $a1, $03, $a1
-	.byte $a0, $a1, $a0, $a3, $a3, $a3, $8d, $06
-	.byte $a3, $a3, $a3, $a0, $a1, $a0, $a1, $03
-	.byte $a1, $a0, $a3, $a3, $a3, $a0, $a1, $03
-	.byte $a1, $a0, $a1, $a0, $a3, $a3, $a3, $8d
-	.byte $06, $d8, $d8, $d8, $d8, $d8, $d8, $d8
-	.byte $03, $d8, $d8, $d8, $d8, $d8, $d8, $d8
-	.byte $03, $d8, $d8, $d8, $d8, $d8, $d8, $d8
-	.byte $8d, $08, $b3, $ae, $b2, $06, $c9, $ce
-	.byte $c6, $cf, $04, $b3, $ae, $b3, $a6, $d0
-	.byte $c1, $d3, $c3, $c1, $cc, $8d, $8d
+    scrcode $0d
+    .byte $07
+    scrcode "!"
+    .byte $0b
+    scrcode "!"
+    .byte $0b
+    scrcode "!"
+    scrcode $0d
+    .byte $07
+    scrcode "V"
+    .byte $0b
+    scrcode "V"
+    .byte $0b
+    scrcode "V", $0d, $0d
+    .byte $06
+    scrcode "### ! !"
+    .byte $03
+    scrcode "! ### !"
+    .byte $03
+    scrcode "! ! ###", $0d
+
+    .byte $06
+    scrcode "### ! !"
+    .byte $03
+    scrcode "! ### !"
+    .byte $03
+    scrcode "! ! ###", $0d
+
+    .byte $06
+    scrcode "### ! !"
+    .byte $03
+    scrcode "! ### !"
+    .byte $03
+    scrcode "! ! ###", $0d
+
+    .byte $06
+    scrcode "### ! !"
+    .byte $03
+    scrcode "! ### !"
+    .byte $03
+    scrcode "! ! ###", $0d
+
+    .byte $06
+    scrcode "XXXXXXX"
+    .byte $03
+    scrcode "XXXXXXX"
+    .byte $03
+    scrcode "XXXXXXX", $0d
+    .byte $08
+    scrcode "3.2"
+    .byte $06
+    scrcode "INFO"
+    .byte $04
+    scrcode "3.3&PASCAL", $0d, $0d