Subversion Repositories ssbcc

# Copyright 2014, Sinclair R.F., Inc.
 
def fetchvector(ad):
  """
  Built-in macro to move multiple bytes from memory to the data stack.  The byte
  at the specified memory address is stored at the top of the data stack with
  subsequent bytes store below it.\n
  Usage:
    .fetchvector(variable,N)
  where
    variable    is the name of a variable
    N           is the constant number of bytes to transfer\n
  The effect is to push the values u_LSB=variable[N-1], ..., u_msb=variable[0]
  onto the data stack.\n
  ( - u_LSB ... u_MSB )
  """
 
  def length(ad,argument):
    return int(argument[1]['value']) + 1;
 
  # Add the macro to the list of recognized macros.
  ad.AddMacro('.fetchvector', length, [
                                        ['','symbol'],
                                        ['','singlevalue','symbol']
                                      ]);
 
  # Define the macro functionality.
  def emitFunction(ad,fp,argument):
    variableName = argument[0]['value'];
    (addr,ixBank,bankName) = ad.Emit_GetAddrAndBank(variableName);
    N = int(argument[1]['value']);
    ad.EmitPush(fp,addr+N-1,'%s+%d' % (variableName,N-1));
    for dummy in range(N-1):
      ad.EmitOpcode(fp,ad.specialInstructions['fetch-'] | ixBank,'fetch- '+bankName);
    ad.EmitOpcode(fp,ad.specialInstructions['fetch'] | ixBank,'fetch '+bankName);
  ad.EmitFunction['.fetchvector'] = emitFunction;