Device = 16F1939

Declare Reminders Off
@ CONFIG_REQ = 0 ; Override Compiler's configuration settings
Asm-
__Config _Config1, 0x098C ;FOSC_INTOSC & WDTE_SWDTEN & PWRTE_ON & MCLRE_OFF & CP_OFF & CPD_OFF & BOREN_OFF & CLKOUTEN_OFF & IESO_OFF & FCMEN_OFF 
__Config _Config2, 0x1EFF ;WRT_OFF & VCAPEN_OFF & PLLEN_OFF & STVREN_ON & BORV_LO & LVP_OFF 
Endasm-
Declare Reminders On

;**** End of Fuse Configurator Settings ****
;-------------------------------------------------------------------------------
Declare Xtal = 8
OSCCON = %01110010              'FREQUENCY SET AT 8 MHz
'Xtal = 4
'OSCCON = %01101010              'FREQUENCY SET AT 8 MHz

OSCTUNE = 0                     'CENTER FREQUENCY

Declare Float_Rounding = On
Declare Float_Display_Type = Fast
Declare Watchdog = On
'Declare Optimiser_Level = 1
Declare Dead_Code_Remove On
;Calculated Baudrate = 9615 @ Xtal 8MHz, sERROR = 0,16%
Declare Hserial_RCSTA = 144 ; Enable continuous receive
Declare Hserial_TXSTA = 32  ; Enable transmit, BRGH = 0
Declare Hserial_SPBRG = 12  ; Baud Rate Generator Value
Declare Hserial_Clear = On  ; Clear overflow automatically


'Declare Hserial_TXSTA 36  'high speed 
'Declare Hserial_Clear yes

Declare Adin_Res 10 ' Set the resolution to 10
Declare Adin_Tad 16_FOSC ' Choose the RC osc for ADC samples
'Adin_Tad 8_FOSC ' Choose the RC osc for ADC samples
'Adin_Tad FRC ' Choose the RC osc for ADC samples
Declare Adin_Stime 100 ' Allow 100us for charge time


Dim swTEMP0             As SWord
Symbol HUNDRED          = 100                       ' value for calc

'Pre Load Port Pins
      
 PORTA      = %00000000   ' Preset all ports values !  (MUST be specified)  - TO DO !!!
 PORTB      = %00000000
 PORTC      = %00000000
 PORTD      = %00000000
 PORTE      = %00000000

DelayMS 1000
Clear


swTEMP0 = 10
Repeat

    If swTEMP0 > HUNDRED Then 
        HRSOut SDec swTEMP0," > ",Dec HUNDRED," -> TRUE",13,10
    Else
        HRSOut SDec swTEMP0," > ",Dec HUNDRED," -> FALSE",13,10
    EndIf
    If HUNDRED < swTEMP0 Then 
        HRSOut Dec HUNDRED," < ",SDec swTEMP0," -> TRUE",13,10
    Else
        HRSOut Dec HUNDRED," < ",SDec swTEMP0," -> FALSE",13,10
    EndIf
    HRSOut "-----",13,10

    Dec swTEMP0

Until swTEMP0 = -10

'-------------------------------------------------------------------------------------------------
'##############################################################################
End