|
Listing 2: An Enhancement
|
| rdm |
|
|
|
| |
clr |
b |
y:xn,x1 |
;get a zero in b, get last random number |
| |
move |
|
x1,a |
|
| |
tst |
a |
#$1d872b,x0 |
;set flags on a, get a 1 in lsb position |
| |
tnr |
x0,b |
|
;if normalized transfer x0 to B1 |
| |
eor |
x1,b |
|
;exclusive-or x1 with a |
| |
asl |
b |
|
;shift bits left once |
| |
move |
b1,y:xn |
|
;save random number |
| |
rts |
|
|
|
|
