From c0f2ac3163d92b2251ebe43d1b77735a6a7a5f97 Mon Sep 17 00:00:00 2001
From: Erik Stenman <happi@happihacking.com>
Date: Wed, 20 Feb 2019 09:49:11 +0100
Subject: [PATCH] Instructions are uppercase.

---
 src/aeb_fate_code.erl | 26 +++++++++++++-------------
 src/aefateasm.erl     |  5 ++---
 2 files changed, 15 insertions(+), 16 deletions(-)

diff --git a/src/aeb_fate_code.erl b/src/aeb_fate_code.erl
index e6ad225..4f8a489 100644
--- a/src/aeb_fate_code.erl
+++ b/src/aeb_fate_code.erl
@@ -75,43 +75,43 @@ sub(Dest, Left, Right) ->
     {'SUB', Dest, Left, Right}.
 
 mul(Dest, Left, Right) ->
-    {'mul', Dest, Left, Right}.
+    {'MUL', Dest, Left, Right}.
 
 divide(Dest, Left, Right) ->
-    {'div', Dest, Left, Right}.
+    {'DIV', Dest, Left, Right}.
 
 modulo(Dest, Left, Right) ->
-    {'mod', Dest, Left, Right}.
+    {'MOD', Dest, Left, Right}.
 
 pow(Dest, Left, Right) ->
-    {'pow', Dest, Left, Right}.
+    {'POW', Dest, Left, Right}.
 
 lt(Dest, Left, Right) ->
-    {'lt', Dest, Left, Right}.
+    {'LT', Dest, Left, Right}.
 
 gt(Dest, Left, Right) ->
-    {'gt', Dest, Left, Right}.
+    {'GT', Dest, Left, Right}.
 
 elt(Dest, Left, Right) ->
-    {'elt', Dest, Left, Right}.
+    {'ELT', Dest, Left, Right}.
 
 egt(Dest, Left, Right) ->
-    {'egt', Dest, Left, Right}.
+    {'EGT', Dest, Left, Right}.
 
 eq(Dest, Left, Right) ->
-    {'eq', Dest, Left, Right}.
+    {'EQ', Dest, Left, Right}.
 
 neq(Dest, Left, Right) ->
-    {'neq', Dest, Left, Right}.
+    {'NEQ', Dest, Left, Right}.
 
 and_op(Dest, Left, Right) ->
-    {'and', Dest, Left, Right}.
+    {'AND', Dest, Left, Right}.
 
 or_op(Dest, Left, Right) ->
-    {'or', Dest, Left, Right}.
+    {'OR', Dest, Left, Right}.
 
 not_op(Dest, Arg) ->
-    {'not', Dest, Arg}.
+    {'NOT', Dest, Arg}.
 
 tuple(Size) when is_integer(Size) ->
     {'TUPLE', ?i(Size)}.
diff --git a/src/aefateasm.erl b/src/aefateasm.erl
index db7910e..12183ce 100644
--- a/src/aefateasm.erl
+++ b/src/aefateasm.erl
@@ -45,7 +45,7 @@ assemble(File, Opts) ->
         undefined ->
             Asm = aeb_fate_asm:read_file(File),
             {Env, BC} = aeb_fate_asm:asm_to_bytecode(Asm, Opts),
-            case Verbose of 
+            case Verbose of
                 true ->
                     io:format("Env: ~0p~n", [Env]);
                 false -> ok
@@ -54,5 +54,4 @@ assemble(File, Opts) ->
         OutFile ->
             aeb_fate_asm:assemble_file(File, OutFile, Opts)
     end.
-    
-    
+