Directory of image this file is from
This file as a plain text file

*20
/// VRMS
/BASELINE & VRMS ROUTINE.
	 
// NORMALIZE & VRMS ROUTINES.
	 
/BASELINE CORRECTION.
	CLR
	STC BASN
	LDA
	P23		/BASELINE PTS
	AZE I
	JMP DVZ		/NONE
	STC BASL
	 
/GET BASELINE FACTOR.
	FZER
	STORE
	TEM
	SET I 5
KP2000,	2000		/SUM PTR
	 
B2,	LDF 6
	SFLOAT
	4\5
	FADD
	TEM
	STORE
	TEM
	LDA I
BASN,	0		/BSLN PTS DUN
	SAE I
BASL,	0		/TOTAL BSLN PTS
	SKP
	JMP .+4		/DUN
	ADD KP1
	STC BASN
	JMP B2
	 
	SFLOAT
	BASN
	STORE
	TEM1		/N
	LOAD
	TEM		/BSLN SUM
	FDIV
	TEM1		/NOW HAVE MEAN
	FCOMP
	FIX
	FAC
	ISTOR1
	TEME		/BASELINE CONST
	 
/DO BASELINE CORRECTION.
	SET I 7
ENSSIZ,	0		/-DESSAM, CNTR
	SET I 5
	3777		/PNTR
BY,	LDA I 5
	ADD TEME
	STA 5
	XSK I 7
	JMP BY
	 
/DO VRMS CALCULATION; START AFTER BSLN DELAY.
DVZ,	LDA
	KP2000
	ADD BASN	/BSLN PTS
	STC 5		/POST STIM DATA PNTR
	ADD ENSSIZ	/-DESSAM
	ADD BASN
	STA
	7		/POST STIM CNTR
	COM
	STC TEM1
	SFLOAT
	TEM1
	STORE
	TEM1		/N
	FZER
	STORE
	TEM
	 
/DO VRMS SUM.
BVRMS,	SFLOAT
	4\5
	FMUL
	FAC
	FADD
	TEM
	STORE
	TEM
	XSK I 7
	JMP BVRMS
	 
/CALCULATE SINGLE VALUE VRMS.
	LDF 7
	FDIV
	TEM1		/N
	SQRT
	FAC
	FDIV
	VSCL		/ADSCL
	FMUL
	P43		/UV\V
	FMUL
	P42		/MULFAC
	STORE
	P102		/VRMS