Version of the arduino MILLIS function (OshonSoft Basic).

'***********************************************************************
'MILLIS function II, long type geneal counter.
'For replacing absolute pauses generated with WaitMs.
'The _MILLIS() function increments every mSec. so it takes
'approximately 49.7 days To reinitialize.
'That is, it will pass through a zero value.
'************************************************************************
'Pic16F88, OshonSoft Pic Basic Compiler v.8.38
'By COS, 02/2023
'************************************************************************
#define CONFIG = 0x2f50  'Fuse definition.
#define CONFIG2 = 0x3ffc
Define CLOCK_FREQUENCY = 8  'Clock a 8Mhz
'Define SIMULATION_WAITMS_VALUE = 1'Waitms is used activate for simulation.
Include "_FuncionesPic16F88.bas"
'************************************************************************
main:
    'Pin configuration
    AllDigital
    ConfigPin PORTA = Output
    ConfigPin PORTB = Output
    'Clock internal 8Mhz.
    Call _setup_oscillator_mode_select_bit(_oscillator_mode_defined_by_fosc)
    Call _setup_oscillator(_osc_8mhz)
    'Initialize Timer1 desborde 1mSec.
    Call _setup_timer1(_tmr1_internal, _tmr1_div1)
    Call _set_timer1(0xf831)  'Interruption every 1uSec.
    Call _timer1(_on)
    Call _enable_interrupts(_int_timer1)
    'Call _enable_interrupts(_global)
    'Assign names to the Leds
    Symbol LedGreen = RB0
    Symbol LedYellow = RA7
    '********************************************************************
    Dim prev As Long
    Dim prev1 As Long
    prev = 0  'Initialize to zero
    prev1 = 0
    Call _SetUp_MILLIS()  'Initializes _MILLIS
    Call _enable_interrupts(_global)
    'Loop
    While True
       
        Call _MILLIS()  'Update _MILLIS
       
        If (_MILLIS - prev) >= 200 Then  'Wait time in mSec.
            prev = _MILLIS  'The last value of _MILLIS is stored.
            Toggle LedYellow  'Invers the state of the led.
        Endif
       
        If (_MILLIS - prev1) >= 400 Then  'Wait time in mSec.
            prev1 = _MILLIS  'The last value of _MILLIS is stored.
            Toggle LedGreen  'Invers the state of the led.
        Endif
       
    Wend
End                                              
'********************************************************************
'Group of new functions for _MILLIS
Dim _Flag_Millis As Bit
'Inicialize _MILLIS
Proc _SetUp_MILLIS()
    _MILLIS = 0
    Millis = 0
    _Flag_Millis = 0
End Proc                                        
'It hopes that Millis is stable And updates it.
Function _MILLIS() As Long
    _Flag_Millis = 1
    While _Flag_Millis = 1
    Wend
    _MILLIS = Millis
End Function                                    
'Increment the counter Millis
Function Millis() As Long
    Millis++
    _Flag_Millis = 0
End Function
'***********************************************************************
'Interrupt vector
On Interrupt
    Save System
    If _tmr1if Then
        Call _set_timer1(0xf831)  'Reload TMR1 registers to count 1mSec.
        Call Millis()  'Increments _MILLIS every mSec.
    Endif
Resume

function millis() as unsigned long
    dim retval as unsigned long
    
    // read msec counter used in the ISR until we
    // know we weren't interrupted while accessing it
    repeat
        has_updated = 0
        retval = milli
    until (has_updated = 0)
    return retval
end function

function millis() as unsigned long
    dim retval as unsigned long
 loop:   
    // read msec counter used in the ISR until we
    // know we weren't interrupted while accessing it
        has_updated = 0
        retval = milli
    if has_updated = 1 then
        goto loop
    Endif
    return retval
end function

function millis() as unsigned long
 loop: 
// read msec counter used in the ISR until we
// know we weren't interrupted while accessing it
    has_updated = 0
    millis = milli
    if has_updated = 1 then goto loop
end function

function millis() as unsigned long
    INTCON.GIE=0
    millis = milli
    INTCON.GIE=1
end function