{LPS22HB altitude sensor demo program} _clkfreq = 180_000_000 CON CONSTANT_NAME = 0 VAR long symbol long pressure1,temperature1,old_samples1,new_samples1,delta1 long pressure2,temperature2,old_samples2,new_samples2,delta2 long baud, address OBJ Altitude : "LPS22HB dual revb" ser : "jm_serial" PUB main() waitms(40) Altitude.start() ' 184 or 186 baud := 2_000_000 ser.start(baud) 'Set up scope debug("`scope s pos 0 0 size 1200 600 samples 300 ") debug("`s 'LS22 #1' 4077000 4079000 400 100 12") debug("`s 'LS22 #2' 4077000 4079000 400 100 ") repeat waitms(100) old_samples1 := new_samples1 old_samples2 := new_samples2 pressure1, temperature1, new_samples1, pressure2, temperature2,new_samples2 := Altitude.get_pressure() delta1 := new_samples1-old_samples1 delta2 := new_samples2-old_samples2 'if (pressure1 < 4077000) and (pressure1 > 4080000) debug(`s `(pressure1,pressure2+2500)) '(`s , sdec_(pressure2)) 'ser.fstr5(string("samples per second: %d temperature: %d pressure: %d %d %s"),delta1,temperature1,pressure1,pressure2,@cr) PRI private_method_name() DAT cr byte 13