// pi gforth interface version 125

#include "pi.h"

int pi_version( void) { return PI_VERSION; }

// functions to retrieve the base address of the various peripheral registers,
// which are global variables in the bcm2835 C library

volatile uint32_t *pi_gpio( void) { return bcm2835_gpio; }

volatile uint32_t *pi_pwm( void) { return bcm2835_pwm; }

volatile uint32_t *pi_clk( void) { return bcm2835_clk; }

volatile uint32_t *pi_pads( void) { return bcm2835_pads; }

volatile uint32_t *pi_spi0( void) { return bcm2835_spi0; }

volatile uint32_t *pi_st( void) { return bcm2835_st; }

volatile uint32_t *pi_bsc0( void) { return bcm2835_bsc0; }

volatile uint32_t *pi_bsc1( void) { return bcm2835_bsc1; }