*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