Fix HL-ZASM subtraction

lua/wire/client/hlzasm/hc_expression.lua

@@ -22,7 +22,7 @@
 
     return { Constant = levelLeaf, CurrentPosition = self:CurrentSourcePosition() }
   else
     return self["Expression_Level"..level](self)
   end
 end
 
@@ -66,9 +66,9 @@
   -- Parse arguments and push them to stack
   local argumentCount = 0
   local argumentExpression = {}
   while not (self:PeekToken() == TOKEN.RPAREN) do
     -- Parse argument
     argumentExpression[#argumentExpression+1] = self:Expression()
 
     -- Go to next one
     argumentCount = argumentCount + 1
@@ -87,9 +87,9 @@
     local pushLeaf
     if argumentExpression[argNo].Memory then
       if argumentExpression[argNo].Memory.CopySize then
         for i=argumentExpression[argNo].Memory.CopySize-1,0,-1 do
         pushLeaf = self:NewLeaf()
         pushLeaf.Comment = " passing large variable, byte "..i
         pushLeaf.Opcode = "push"
         local a = argumentExpression[argNo]
         local copiedArg = {
@@ -107,19 +107,19 @@
     else
       pushLeaf = self:NewLeaf()
       pushLeaf.Opcode = "push"
       pushLeaf.Operands[1] = argumentExpression[argNo]  
       table.insert(genLeaves,pushLeaf)
     end
     else
       pushLeaf = self:NewLeaf()
       pushLeaf.Opcode = "push"
       pushLeaf.Operands[1] = argumentExpression[argNo]  
       table.insert(genLeaves,pushLeaf)
     end
 
     if functionEntry then
       if functionEntry.Parameters[argNo] then
         pushLeaf.Comment = label.Name.." arg #"..argNo.." ("..
           string.lower(
             self.TOKEN_TEXT["TYPE"][2][functionEntry.Parameters[argNo].Type] or
             functionEntry.Parameters[argNo].Type)..
@@ -504,13 +504,17 @@
   local leftLeaf = self:Expression_LevelLeaf(2)
 
   local token = self:PeekToken()
-  if (token == self.TOKEN.PLUS) or
-     (token == self.TOKEN.MINUS) then -- +-
-    -- Treat "-" as negate instead of subtraction FIXME
+  if (token == self.TOKEN.PLUS) then
     if token == self.TOKEN.PLUS then self:NextToken() end
 
     local rightLeaf = self:Expression_LevelLeaf(0)
     return self:NewOpcode("add",leftLeaf,rightLeaf)
+  elseif (token == self.TOKEN.MINUS) then 
+
+    if token == self.TOKEN.MINUS then self:NextToken() end
+
+    local rightLeaf = self:Expression_LevelLeaf(0)
+    return self:NewOpcode("sub",leftLeaf,rightLeaf)
   elseif (token == self.TOKEN.LAND) or
          (token == self.TOKEN.LOR) then -- &&, ||
     self:NextToken()