correct vertical formatting

data/print-three-upper-math.asm

@@ -1,19 +1,19 @@
-define COLOR_Black 0
-define COLOR_White 1
-define COLOR_Red 2
-define COLOR_Cyan 3
-define COLOR_Purple 4
-define COLOR_Green 5
-define COLOR_Blue 6
-define COLOR_Yellow 7
-define COLOR_Orange 8
-define COLOR_Brown 9
-define COLOR_LightRed 10
-define COLOR_DarkGrey 11
-define COLOR_Grey 12
+define COLOR_Black      0
+define COLOR_White      1
+define COLOR_Red        2
+define COLOR_Cyan       3
+define COLOR_Purple     4
+define COLOR_Green      5
+define COLOR_Blue       6
+define COLOR_Yellow     7
+define COLOR_Orange     8
+define COLOR_Brown      9
+define COLOR_LightRed   10
+define COLOR_DarkGrey   11
+define COLOR_Grey       12
 define COLOR_LightGreen 13
-define COLOR_LightBlue 14
-define COLOR_LightGrey 15
+define COLOR_LightBlue  14
+define COLOR_LightGrey  15
 
 
 define SCREEN TODO

data/print-three-upper.asm

@@ -1,19 +1,19 @@
-define COLOR_Black 0
-define COLOR_White 1
-define COLOR_Red 2
-define COLOR_Cyan 3
-define COLOR_Purple 4
-define COLOR_Green 5
-define COLOR_Blue 6
-define COLOR_Yellow 7
-define COLOR_Orange 8
-define COLOR_Brown 9
-define COLOR_LightRed 10
-define COLOR_DarkGrey 11
-define COLOR_Grey 12
+define COLOR_Black      0
+define COLOR_White      1
+define COLOR_Red        2
+define COLOR_Cyan       3
+define COLOR_Purple     4
+define COLOR_Green      5
+define COLOR_Blue       6
+define COLOR_Yellow     7
+define COLOR_Orange     8
+define COLOR_Brown      9
+define COLOR_LightRed   10
+define COLOR_DarkGrey   11
+define COLOR_Grey       12
 define COLOR_LightGreen 13
-define COLOR_LightBlue 14
-define COLOR_LightGrey 15
+define COLOR_LightBlue  14
+define COLOR_LightGrey  15
 
 
 define SCREEN TODO

firepower-core/src/main/scala/com/htmlism/firepower/core/AsmBlock.scala

@@ -35,9 +35,14 @@ object AsmBlock:
         ys.map(toComment)
 
       case DefinesBlock(kvs) =>
+        val maximumLength =
+          kvs
+            .map(_._1.length)
+            .max
+
         kvs
           .map { case (k, v) =>
-            s"define $k $v"
+            String.format(s"define %-${maximumLength}s $v", k)
           }
 
       case NamedCodeBlock(label, oComment, intents) =>