COUNTERx
Action
Set or retrieve the COUNTER0 or COUNTER1 variable.
For 8052 TIMER2 compatible chips, COUNTER2 can be used too.

Syntax
COUNTERX = var or
var = COUNTERX

Remarks

var A byte, Integer/Word variable or constant that is assigned to the counter.
counterX COUNTER0 , COUNTER1 or COUNTER2.
Use counterX = 0 to reset the counter.
The counter can count from 0 to 255 in mode 2 (8-bit auto reload).
And to 65535 in mode 1(16-bit).
In mode 0 the counter can count to 8192. The MSB and 5 bits of the LSB are used in that case. When you assign a constant to a TIMER/COUNTER in mode 0, the bits will be placed in the right place :
COUNTER0 = &B1_1111_1111_1111_1111 '13 bits
Will be translated for mode 0 into 1111_1111_0001_1111

The counterx variables are intended to set/retrieve the TIMER/COUNTER registers from BASCOM. COUNTER0 = TL0 and TH0.

So the COUNTERx reserved variable is a 16 bit variable.

To set TLx or THx, you can use : TL0 = 5 for example.

Note that the COUNTERx variable operates on both the TIMERS and COUNTER because the TIMERS and COUNTERS are the same thing except for the mode they are working in. To load a reload value, use the LOAD statement.

Important
After access to the counter, the timer/counter is stopped. So when it was running, start it with the statement START COUNTERx

Example
'--------------------------------------------------------------
' (c) 1995-2000 MCS Electronics
'--------------------------------------------------------------
' file: COUNTER.BAS
' demo: COUNTER
'--------------------------------------------------------------
' Connect the timer input P3.4 to a frequency generator
' *TIMER/COUNTER 1 is used for RS-232 baud rate generator
'--------------------------------------------------------------

Dim A As Byte , C As Integer
Config Timer0 = Counter , Gate = Internal , Mode = 1
'Timer0 = counter : timer0 operates as a counter
'Gate = Internal : no external gate control
'Mode = 1 : 16-bit counter


Counter0 = 0 'clear counter
Start Counter0 'enable the counter to count
Do 'set up a loop
A = Inkey() 'check for input
C = Counter0 'get counter value
Print C 'print it
Start TIMER0 'restart the timer
Loop Until A = 27 'until escape is pressed

End

For the next example the ASM code is shown:
COUNTER0 = 1000

Generated code :
Clr TCON.4
Mov tl0,#232
Mov th0,#3