 sequence regs
 regs = repeat(0, 255)
 -- regs 0 is reserved for zero
-
-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
 
 procedure show_regs()
   for i = 1 to length(regs) do

        error("expected statement")
      end if
    end if
    --? s
    if length(s) then
      ast = append(ast, s)
    end if
  end while
  return ast
end function



  end for
end procedure



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