fields xpin ypin endfields function acc.init -aci begin ->ypin ->xpin return ---------------------------- function acc.get -acg t0 t xp = 2048 yp = 2048 begin xpin waitfor0 xpin waitfor1 now ->t0 xpin waitfor0 now t0 - [acc.scalex] xp [acc.censor] dup ->xp ypin waitfor0 ypin waitfor1 now ->t0 ypin waitfor0 now t0 - [acc.scaley] yp [acc.censor] dup ->yp return load from(acc.myo) *acc.scalex *acc.scaley *acc.censor -------------------------------- function acc.cal begin ->ybias ->xbias return -------------------------------- function acc.scalex -acsx t5ms = 400000 center = 2048 begin t5ms - 5 >> center + xbias - return -------------------------------- function acc.scaley -acsy t5ms = 400000 center = 2048 begin t5ms - 5 >> center + ybias - return -------------------------------- function acc.censor -acce s sp amin = 10 amax = 4085 begin ->sp ->s s amin - ? <{sp go(cexit)} s amax - ? >{sp go(cexit)} s :cexit return load from(num.myo) *num.lim