Subversion Repositories ssbcc

# Copyright 2014, Sinclair R.F., Inc.
 
def outport(ad):
  """
  Built-in macro to write the top of the data stack to the specified output
  port.\n
  Usage:
    .outport(O_name[,op])
  where
    O_name      is the name of the output port
    op          is an optional argument to override the default "drop"
                instruction\n
  The effect is:  Write T to the specified output port.\n
  ( u - )
  """
 
  # Add the macro to the list of recognized macros.
  ad.AddMacro('.outport', 3, [
                               ['','symbol'],
                               ['drop','instruction','singlemacro','singlevalue','symbol']
                             ]);
 
  # Define the macro functionality.
  def emitFunction(ad,fp,argument):
    outportName = argument[0]['value'];
    if not ad.IsOutport(outportName):
      raise asmDef.AsmException('Symbol "%s" is either not an output port or is a strobe-only outport at %s' % (outportName,argument[0]['loc']));
    ad.EmitPush(fp,ad.OutportAddress(outportName) & 0xFF,outportName);
    ad.EmitOpcode(fp,ad.InstructionOpcode('outport'),'outport');
    ad.EmitOptArg(fp,argument[1]);
 
  ad.EmitFunction['.outport'] = emitFunction;