pruio.bi

Go to the documentation of this file.

#IFNDEF __PRUIO_COMPILING__
#INCLIB "pruio"
#ENDIF
' PruIo global declarations.
#INCLUDE ONCE "pruio_globals.bi"
' Header for ADC part.
#INCLUDE ONCE "pruio_adc.bi"
' Header for GPIO part.
#INCLUDE ONCE "pruio_gpio.bi"
' Header for PWMSS part, containing modules QEP, CAP and PWM.
#INCLUDE ONCE "pruio_pwmss.bi"
' Header for TIMER part.
#INCLUDE ONCE "pruio_timer.bi"
' Header for interrupt controller.
#INCLUDE ONCE "pruio_intc.bi"


#DEFINE BallCheck(_T_,_R_) IF Ball > PRUIO_AZ_BALL THEN .Errr = @"unknown" _T_ " pin number" : RETURN _R_



ENUM BBTypes
  BBB2x46 = 0 
  PBB2x36 = 1 
  BB_Blue = 2 
END ENUM



ENUM AdcStepMask
  AIN0 = &b000000010 
  AIN1 = &b000000100 
  AIN2 = &b000001000 
  AIN3 = &b000010000 
  AIN4 = &b000100000 
  AIN5 = &b001000000 
  AIN6 = &b010000000 
  AIN7 = &b100000000 
END ENUM



ENUM ActivateDevice
  PRUIO_ACT_PRU1   = &b0000000000001 
  PRUIO_ACT_ADC    = &b0000000000010 
  PRUIO_ACT_GPIO0  = &b0000000000100 
  PRUIO_ACT_GPIO1  = &b0000000001000 
  PRUIO_ACT_GPIO2  = &b0000000010000 
  PRUIO_ACT_GPIO3  = &b0000000100000 
  PRUIO_ACT_PWM0   = &b0000001000000 
  PRUIO_ACT_PWM1   = &b0000010000000 
  PRUIO_ACT_PWM2   = &b0000100000000 
  PRUIO_ACT_TIM4   = &b0001000000000 
  PRUIO_ACT_TIM5   = &b0010000000000 
  PRUIO_ACT_TIM6   = &b0100000000000 
  PRUIO_ACT_TIM7   = &b1000000000000 
  PRUIO_DEF_ACTIVE = &b1111111111111 
  PRUIO_ACT_FREMUX = &b1000000000000000 
END ENUM



TYPE BallSet
  AS UInt32 DeAd                 
  AS UInt8  Value(PRUIO_AZ_BALL) 
END TYPE



TYPE setPinFunc AS FUNCTION CDECL( _
    BYVAL Top AS Pruio_ PTR _
  , BYVAL Ball AS UInt8 _
  , BYVAL Mo AS UInt8) AS ZSTRING PTR



TYPE PruIo
  AS ZSTRING PTR _
    Errr = 0    

  AS AdcUdt PTR Adc     
  AS GpioUdt PTR Gpio   
  AS PwmssUdt PTR PwmSS 
  AS TimerUdt PTR TimSS 
  AS PwmMod PTR Pwm     
  AS CapMod PTR Cap     
  AS QepMod PTR Qep     
  AS TimerUdt PTR Tim   

  AS  UInt32 PTR DRam 
  AS BallSet PTR _
    Init _      
  , Conf        
  AS ANY PTR _
    ERam _      
  , DInit _     
  , DConf _     
  , MOffs       
  AS UInt8 PTR _
    BallInit _  
  , BallConf    
  AS UInt32 _
    EAddr     _ 
  , ESize     _ 
  , DSize     _ 
  , PruNo     _ 
  , PruIRam   _ 
  , PruDRam   _ 
  , PruIntNo    
  AS Int16 _
    ParOffs _   
  , DevAct      

  AS UInt32 _
    BbType _ 
  , MuxFnr   
  AS ZSTRING PTR MuxAcc 

   '& FUNCTION_CDECL_AS_ZSTRING_PTR (setPin) (BYVAL_AS_Pruio__PTR Top, BYVAL_AS_UInt8 Ball, BYVAL_AS_UInt8 Mo); /*
  setPin AS setPinFunc '& */

  
  AS UInt8 BallGpio(PRUIO_AZ_BALL) = { _
     32,  33,  34,  35,  36,   37,  38,  39,  22,  23 _
  ,  26,  27,  44,  45,  46,   47,  48,  49,  50,  51 _ ' 10
  ,  52,  53,  54,  55,  56,   57,  58,  59,  30,  31 _
  ,  60,  61,  62,  63,  64,   65,  66,  67,  68,  69 _ ' 30
  ,  70,  71,  72,  73,  74,   75,  76,  77,  78,  79 _
  ,  80,  81,   8,   9,  10,   11,  86,  87,  88,  89 _ ' 50
  ,  90,  91,  92,  93,  94,   95,  96,  97,  98,  99 _
  , 100,  16,  17,  21,  28,  105, 106,  82,  83,  84 _ ' 70
  ,  85,  29,   0,   1,   2,    3,   4,   5,   6,   7 _
  ,  40,  41,  42,  43,  12,   13,  14,  15, 101, 102 _ ' 90
  , 110, 111, 112, 113, 114,  115, 116, 117,  19,  20}

  
  AS tpruss_intc_initdata PTR IntcInit = @DEF_INTC_INIT
  AS UInt32 WaitCycles 

  DECLARE CONSTRUCTOR( _
    BYVAL AS UInt16 = PRUIO_DEF_ACTIVE _
  , BYVAL AS UInt8  = PRUIO_DEF_AVRAGE _
  , BYVAL AS UInt32 = PRUIO_DEF_ODELAY _
  , BYVAL AS UInt8  = PRUIO_DEF_SDELAY)
  DECLARE DESTRUCTOR()
  DECLARE FUNCTION config CDECL( _
    BYVAL AS UInt32 = PRUIO_DEF_SAMPLS _
  , BYVAL AS UInt32 = PRUIO_DEF_STPMSK _
  , BYVAL AS UInt32 = PRUIO_DEF_TIMERV _
  , BYVAL AS UInt16 = PRUIO_DEF_LSLMOD) AS ZSTRING PTR
  DECLARE FUNCTION Pin CDECL( _
    BYVAL AS UInt8 _
  , BYVAL AS UInt8 = 1) AS ZSTRING PTR
  DECLARE FUNCTION nameBall CDECL( _
    BYVAL AS UInt8) AS ZSTRING PTR
  DECLARE FUNCTION rb_start CDECL() AS ZSTRING PTR
  DECLARE FUNCTION mm_start CDECL( _
    BYVAL AS UInt32 = 0 _
  , BYVAL AS UInt32 = 0 _
  , BYVAL AS UInt32 = 0 _
  , BYVAL AS UInt32 = 0) AS ZSTRING PTR
END TYPE