; -----------------------------------------------------------
;       Checksummen brennen
;	mit XOR durchlaufend
; -----------------------------------------------------------
; sollte am Ende jeder Veränderung der Parameter erfolgen
; lokal: X1, X2 = Checksummen,
; global ADEPRO Anfangsadresse im EEPROM ,VARANZAHL Anzahl der Variablen
; jede Variable belegt 6 Bytes
13150 X1 = 0:X2 = 0             ; Initialisierung der Checksumvariablen
13155    CUR 1,12:P. "CRC",     ; mitlfd. Zahl
13160 FOR I=(ADEPRO+3) TO (ADEPRO+2+VARANZAHL*6)   ; hohe Sicherheit durch
13170   X1= X1.XOR.XBY(I)       ; durchlaufende xor- und
13200 NEXT
13210 PUSH ADEPRO+1,X1             ; Checksummen speichern
13220 CALL 554BH
13230   POP E:IF E>0 THEN E=21
13240 PUSH ADEPRO+2,X2             ; Checksummen speichern
13250 CALL 554BH
13260   POP E:IF E>0 THEN E=21
13290 RETURN

