BGAFC Vendégkönyv

Σ: 1 post

TCH (statz)

#1, Főfasz (10466)

2676 | #10e0 | ^ | Idézet | Sat, 31 Jul 2010 12:01:45 +02

84.0.*.*

*.dsl.pool.telekom.hu

Kiváncsi voltam, hogy csinálnak véletlenszámokat különböző módokon assemblyben és találtam egyet, ami nagyon megtetszett. A methódus egy áramkör működését szimulálja, ami 16 bites "véletlen" számokat állít elő és 65536 ciklusonként ismétlődik (no shit :P ).
Az áramkör:

A seed úgy működik, ahogy az áramkörön van. A regiszterben lévő érték a seed és az alapján generál "véletlenszámot". A generált szám is a regiszterben marad és az lesz az új seed.

Na, én lekódoltam ezt három processzorra is. Aki akarja viheti, ha kell neki. :P

Random number generator for Motorola 68000 assembly:

rnd:    move.b  seedlo, d0  
        move.b  seedhi, d1  
  
        asl.b   #$1,    d0  
        eor.b   d1,     d0  
        asl.b   #$2,    d0  
        eor.b   d1,     d0  
        asl.b   #$1,    d0  
        eor.b   d1,     d0  
        lsr.b   #$7,    d0  
  
        asl.w   #$1,    seedhi  
        or.w    d0,     seedlo  
  
seedhi  dc.b    0  
seedlo  dc.b    0

Random number generator for MOS 6502 assembly:

rnd     lda seedlo  
      
        asl      
        eor     seedhi      
        asl      
        asl      
        eor     seedhi      
        asl      
        eor     seedhi   
     
        asl     seedhi      
        asl     seedlo      
        bcc     rnd0      
        inc     seedhi   
     
rnd0    and     #$80      
        beq     rnd1      
        inc     seedlo      
rnd1    rts      
      
seedhi  .byte 0      
seedlo  .byte 0

Random number generator for Zilog Z80 assembly:

rnd:    ld ix, seed         
        ld c, (ix+0)         
        ld b, (ix+1)         
        ld d, b         
        ld e, c         
         
        ld a, c         
        sla b         
        xor b         
        sla b         
        sla b         
        xor b         
        sla b         
        xor b         
        sla a         
        sla a         
        sla a         
        and 1         
        ld c, a         
         
        ld a, d         
        sla a         
        sla e         
        jp nc, rnd0         
        or 1         
rnd0:   ld d, a         
        ld a, e         
        or c         
        ld e, a         
         
        ld (ix+0), e         
        ld (ix+1), d         
         
        ret         
         
seed: dw 0

Nem, sux86-ra nem írom meg. :P Fúj-fúj suksznyócvanhat!