' Name        : BUTX4.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM
' Target PIC  : 8-pin PIC12F675 or similar type
' Hardware    : Lab-X4 board
' Oscillator  : 4MHz internal
' Keywords    : HIGH, LOW
' Description : PICBASIC PRO program to show button press on LED.
'

@ device intrc_osc_noclkout, wdt_off, mclr_off

Define OSCCAL_1K 1 ' PIC12F675, Calibrate internal oscillator

LED Con 0        ' Alias GPIO.0 to LED
PB  Var GPIO.3   ' Alias GPIO.3 to push button

  ANSEL = 0      ' Set all digital
  CMCON = 7      ' Analog comparators off

' Button press turns on LED (MCLRE must not be enabled)
mainloop:
   If PB = 0 Then ' If button pressed...
     Low LED      ' Turn on LED
   Else
     High LED     ' Turn off LED
   Endif

   Goto mainloop  ' Do it forever

   End