ASM 8Bit-LFSR

[SeDa (Gast)]

Hallo,

hier ein ASM Code für ein 8Bit-LFSR mit dem Primitiven Polynom 8, 6, 5, 
4 den ich gerade schnell geschrieben habe.

LFSR:
  MOV temp, rand    ;alten Wert laden
  SWAP temp  ;temp Bit 3 zu Bit 7
  ANDI temp, 0b1000000  ;temp Bit 7 freistellen
  EOR rand, temp  ;EOR rand Bit 7 und "Bit 3"
  MOV temp, rand  ;alten Wert laden
  LSL temp  ;temp Bit 6 in Carry, Bit 5 zu Bit 7
  LSL temp
  LSL temp
  ANDI temp, 0b1000000  ;temp Bit 7 freistellen
  EOR rand, temp  ;EOR rand Bit 7 und "Bit 5"
  ROR temp      ;Carry zu temp Bit 7
  ANDI temp, 0b1000000  ;temp Bit 7 freistellen
  EOR temp, rand  ;EOR rand Bit 7 und "Bit 6"
  LSL temp  ;temp Bit 7 in Carry
  ROL rand  ;Carry in rand Bit 0

  RET

Fällt jemandem noch eine kürzere Methode ein?

[SeDa (Gast)]

So, da ist mir selber eine ein Takt kürzere Methode eingefallen:

LFSR3:
  MOV temp, rand  ;alten Wert laden
  SWAP temp  ;temp Bit 3 zu Bit 7
  ANDI temp, 0b1000000  ;temp Bit 7 freistellen
  EOR rand, temp  ;EOR rand Bit 7 und "Bit 3"
  MOV temp, rand  ;alten Wert laden
  LSR temp  ;temp Bit 4 zu 3 und Bit 5 zu 4
  SWAP temp  ;temp Bit 3 zu 7 und Bit 4 zu 0
  LSL temp  ;temp Bit 7 in Carry und Bit 0 wiederherstellen
  LSR temp
  ADC temp, null  ;Quasi EOR temp Bit 0 und Carry
  LSL rand  ;rand Bit 7 (enthält bereits EOR aus Bit 7 und 3) in Carry
  ADC temp, null  ;Quasi EOR temp Bit 0 (enthält EOR aus rand Bit 5 und 6) und Carry (enthält EOR aus rand Bit 7 und 3)
  ANDI temp, 0b0000001  ;temp Bit 0 (enthält EOR aus allen) freistellen
  OR rand, temp  ;temp Bit 0 an rand anhängen

  RET

Findet jemand Fehler oder eine bessere Methode?

[Dr.PillePalle (Gast)]

;**********************************
Init_Random:        ;first time
  ldi  TEMP,$AA  ;Init the random number generator
  mov  RAND1,TEMP  ;since a 00,00,00 state will not
  mov  RAND2,TEMP  ;progress.
  mov  RAND3,TEMP  ;you can get a timer to pre load first time
  ret

;**********************************************************
; simple 24bit random generator
;**********************************************************
random:
  push temp
  rol  RAND1    ;Shift the bits ->Carry
  rol  RAND2    ;RAND are register or Ram
  rol  RAND3
  BRCC rr2
  ldi TEMP,0x87
  eor RAND1,TEMP
rr2:
  pop temp
  ret