****Ein Zufallszahlendgenerator für Zahlen zwischen 0 und 127**** 

MODL:  DC.L 0
       DC.L 0
       DC   $10
       DC.B 'MRND..'

OFF    OPD   $4E4F
DPC    OPD   $4E43
RETN   OPD   $4E4C
ENTR   OPD.V  29
EPAR   OPD.V  19

VARD   OPD.V  13             *FLOAT(55)
VARF   OPD.V  12             *FLOAT(23)
VARX   OPD.V  11             *FIXED(31)
VARW   OPD.V  10             *FIXED(15)

BILDM   EQU $FFFF8206
BILDL   EQU BILDM+2

>RND:  ENTR   4.L
       VARW   0.Z
       EPAR
       OFF
       MOVEA.L 0.X,A1
       MOVE    =20,D2

ANF    OFF
       MOVE    BILDL,D0
       ANDI    =$D8FF,SR
       ASR     =1,D0
       ANDI    =$7F,D0
       BNE     EXIT
       SUBQ    =1,D2
       BNE     ANF

EXIT   MOVE    D0,(A1)
       RETN

       END