         error("expected statement")
       end if
     end if
-    --? s
+
     if length(s) then
       ast = append(ast, s)
     end if
   end while
   return ast
+end function
+
+
+
+function asm(integer op, integer a, integer b, integer c)
+  return op + a * #100 + b * #10000 + c * #1000000
+end function
+
+function asm2(integer op, integer a, integer d)
+  return op + a * #100 + d * #10000
 end function
 
 

    end if

  end for
  
  return bc
end function

procedure disasm(sequence bc)
  integer op, a, b, c, d, sc, sd

  end for
end procedure



disasm(branch_straighten(compile(parse(GLOBAL)) & asm(END,0,0,0)))
