Suche: Zufallsroutine für 8086

CroMagnon · 26. November 2019

Hallo,

da mich das Thema Weihnachtswichteln beschäftigt, und ich das Video dazu auch interessant finde (denn erstaunlicherweise besteht die Wahrscheinlichkeit, dass mind. 1 Teilnehmer sich selbst bewichtelt, bei 63%), habe ich ein 8086-Assembler-Programm geschrieben. Das Problem der fehlenden Zufälligkeit habe ich dabei erstmal ausgelassen, denn das scheint doch länger zu dauern. Stattdessen werden die Paarungen durch Tastendruck ermittelt, was aufgrund der hohen Geschwindigkeit ausreichend zufällig sein sollte.

Dennoch hätte ich gerne eine brauchbare Zufallsroutine, um den "Zufall" auch programmgesteuert ablaufen zu lassen. Hat zufällig jemand eine akzeptable Routine für 8086-Assembler oder einen Link zu passendem Code ?

Oldie · 26. November 2019

Gehts auch in Basic ?

Peter z80.eu · 26. November 2019

Du kannst via "INT 1A" Dir die Systemzeit ins Register CX:DX holen, und machst danach mit Hilfe eines SEED-Werts eine MODULO Kalkulation.

Also so in etwa:

Code

MOV     AH, 00h   ; interrupt to get system timer in CX:DX INT     1AH
mov     [PRN], dx
call    CalcNew   ; -> AX is a random number
xor     dx, dx
mov     cx, 10
div     cx        ; here dx contains the remainder - from 0 to 9
add     dl, '0'   ; to ascii from '0' to '9'
mov     ah, 02h   ; call interrupt to display a value in DL
int     21h
call    CalcNew   ; -> AX is another random number
...
ret

; ----------------
; inputs: none  (modifies PRN seed variable)
; clobbers: DX.  returns: AX = next random number
CalcNew:    mov     ax, 25173          ; LCG Multiplier
    mul     word ptr [PRN]     ; DX:AX = LCG multiplier * seed
    add     ax, 13849          ; Add LCG increment value
    ; Modulo 65536, AX = (multiplier*seed+increment) mod 65536
    mov     [PRN], ax          ; Update seed = return value
    ret

Alles anzeigen

CroMagnon · 27. November 2019

Da die Routine Zufallsziffern zwischen 0 und 9 liefert, wollte ich den Bereich variabilisieren. Dabei kam Überraschendes zu Tage.

Ein Test mit 2.000 Ziffern lieferte, wie zu erwarten, ziemlich unterschiedliche Ziffernfolgen (Bild 1).

Eine Zählroutine mit je 60.000 Aufrufen zeigte auch eine passable Gleichverteilung der Ziffern (Bild 2).

Doch ein Test von Un -/Gerade, was mir als erster Ansatzpunkt zur Variabilisierung des Bereichs einfiel, zeigte einen konsequenten Wechsel von Ungerade und Gerade (Bild 3). Bei genauerer Betrachtung der Zufallsziffernfolgen sticht das dann auch ins Auge.

Peter z80.eu · 27. November 2019

Na dass die Routine nicht wirklich zufällige Werte auf einen großen Zahlenraum bietet, war eigentlich schon vorher klar. Du kannst für bessere Zufälligkeit auch bestimmte Register von Grafikkarten nehmen, aber wirklich bessere Werte kriegst Du nur mit größeren Zahlen (also nicht 32 Bit Werte wie von dem Timer) hin, die Du Modulo (Nachkommastellen sozusagen) nach einer arithmetische Operation betrachtest.

Besser wären auf jeden Fall auch Seed-Werte, die durch Mausbewegungen des Benutzers bspw. ermittelst.

Tags