minor editspublic

1 files changed, 3 insertions, 0 deletions

diff --git a/Assembler.hs b/Assembler.hs
index ca79a48..47959ea 100644
--- a/Assembler.hs
+++ b/Assembler.hs
@@ -80,12 +80,15 @@ stripJunk xs = filter (not . null) $ (filter (not . (flip elem " \t")) . head .
 stripLabels :: [[Char]] -> [[Char]]
 stripLabels = filter (not . (elem '('))
 
+-- For labels
 addLabels :: [[Char]] -> Int -> Map [Char] [Char] -> Map [Char] [Char]
 addLabels [] _ table = table
 addLabels ((hd:tl):rest) addr table
   | hd == '(' = addLabels rest addr (Map.insert (init tl) (int2Bin16 addr) table)
   | otherwise = addLabels rest (addr + 1) table
 
+-- For variables, addr is the current instruction address, vaddr is the
+-- variable memory address (to be assigned)
 addSyms :: [[Char]] -> Int -> Int -> Map [Char] [Char] -> Map [Char] [Char]
 addSyms [] _ _ table = table
 addSyms ((hd:tl):rest) addr vaddr table