DORNCC: B-calib nomalization on the last sample

ahepam/Makefile

@@ -4,7 +4,11 @@ include ../irena/libirena.make
 .PRECIOUS: %.dat %.AHA
 
 %.AHA: %.dat ahepamfile
-	./ahepamfile < $< > $@
+	./ahepamfile $(CAT_BANANA) < $< > $@
+
+ifneq ($(BANANA),)
+  CAT_BANANA := `cat $(BANANA)`
+endif
 
 %.doS: %.AHA
 	./AHEPAM.awk 'doS(){}' $< > $@

flash_NMAHEPAM/CRONFLY.RC

@@ -7,7 +7,7 @@
 @s/if S&1: i2c/run; s/exit
 @s/if S&2: pres/inj; s/exit
 @s/if S&4: v hk_count=1; s/exit
-dorn/fifo/strobe/inj 0x30
+@dorn/fifo/strobe/inj 0x30
 @s/if sd_status & 0xc00: var sd_write_size=0
 @s/if ! sd_write_size: s/exe "MICROSD.RC"
 @s/if ! udp_rx_cmd: var udp_size=0

flash_NMAHEPAM/DORNCC.RC

@@ -22,8 +22,8 @@
 @v $A[6] =  -1082
 @v $A[7] =  -1888
 @v $X = 0
-@s/for 7: v $Y=$A[7-i]*$3/0x10000; v $X=$X-$Y; dorn/b [$1,$2,7-i] $Y
+@s/for 7: v $Y=$A[i]*$3/0x10000; v $X=$X-$Y; dorn/b [$1,$2,i] $Y
-@dorn/b [$1,$2,0] $X
+@dorn/b [$1,$2,7] $X
 @dorn/l3 [$1,$2,0] -3686
 @dorn/l3 [$1,$2,1] 16027
 @dorn/l3 [$1,$2,2] 12898

nmahepam.py

@@ -57,10 +57,10 @@ def AHBGOa():
     for c in SSDd+SSDe: thres(0,c,8)
 
 
-def aenable(sl=None, hk=True, ev=True, **aa):
+def aenable(sl=None, hk=True, ev=True, what=None, **aa):
     cmd("s/cron 'CRON.RC'")
     fifo_enable(sl=sl, hk=hk, ev=ev, **aa)
-    enable()
+    enable(what=what)
 
 def adisable():
     cmd("s/cron/none")