\ cpu-specific part for the runtimer
only forth also hidden also definitions  decimal

env-area th 180 + pointer ticker \ dummy for faster access
code time)	\ (r ret_to  data #time -- )
	\ points to the following code  
	here /token + token,
	r1 r2 ip 3  rp ia!	ldm  \ r1:#time, r2:next-ip
	r4	'body ticker	pcr ldr
	r0	r4 )		ldr  \ r0:tick
	r0	r0	r1	sub  \ r0:used time
	r3 r4 2 r2 db!		ldm  \ r3:calls r4:time
	r3	1		incr
	r4	r4	r0	add							  
	r3 r4 2 r2 ia!		stm c;

code (time	\ (r ret_to -- ret_to  next-ip #time 'timer> )
	r4	'body ticker	 pcr ldr
	r1	r4 )		ldr	\ ticks
	r0	'body time)	adr
	ip	8		incr
	r0 r1 ip 3	rp db!	stm c;


only forth also definitions
