;cal200.spt SPice20212 demo/calibration using MMi200 with LCD
;Changes for MS12 are noted.

;Use for MS12 only		ON		20	;MS12 backlight

;Initialize the SPice connector for 3 analog inputs
		SetU		0,3
		SetU		1,3
		SetU		2,3
		SPiceConfigU

;Main program loop:

Loop:
;This section displays the raw analog readings on the
;top line of the display. Full scale is always 255 counts

		AnInE			;Use AnInC on MS12
		OBLCD_SetCur	0,0
		OBLCD_UDecDispXFW

		AnInF			;Use AnInD on MS12
		OBLCD_SetCur	0,6
		OBLCD_UDecDispXFW

		AnInG			;Use AnInE on MS12
		OBLCD_SetCur	0,12
		OBLCD_UDecDispXFW

;This section displays the readings as voltages.
;The scale factor initially loaded into Q will determine the
;full scale range, i.e. the voltage corresponding to 255
;raw counts.

;The scale factor is Vfs/255, where Vfs is the required full scale voltage.

		fLoadQ		0.5176	;1.035  for FS=265V (240V+10%)
					;0.5176 for FS=132V (120V+10%)

		AnInE			;Use AnInC on MS12
		OBLCD_SetCur	1,0
		Float
		fMul
		OBLCD_fDispW	3,0

		AnInF			;Use AnInD on MS12
		OBLCD_SetCur	1,6
		Float
		fMul
		OBLCD_fDispW	3,0

		AnInG			;Use AnInE on MS12
		OBLCD_SetCur	1,12
		Float
		fMul
		OBLCD_fDispW	3,0

		GoTo		Loop