( GPIOinit)
( 3rd June 2016)

CR ." GPIOinit"

( Info on register addresses: ***********)
( Note: Rev 1 Pi uses BSC0 on pins 3 & 5; Rev 2 uses BSC1)
(       Rev 1: &2020_0000; Rev 2: 2080_0000 for base address of registers
          Pi2: &3F200000  for GPIO base address)
( board nos: 12 for Rev2; 17 for B+)

OSCLI" RMEnsure GPIO 0.00 RMLoad GPIO"
OSCLI" RMEnsure GPIO 0.40 ERROR HELP can't find GPIO module"

FLOAD" GPio_pi"
getboard
1 VARIABLE qPi2

: qPi_type 
  brdno @ 17 = IF 1 qPi2 ! ELSE 2 qPi2 ! ENDIF ;

qPi_type




