2824
|
1 * Disassembly by Os9disasm of rand.r
|
|
2
|
|
3 * class D external label equates
|
|
4
|
|
5 D0000 equ $0000
|
|
6
|
|
7 section bss
|
|
8
|
|
9 * Initialized Data (class G)
|
|
10 G0000 fcb $00
|
|
11 fcb $00
|
|
12 fcb $00
|
|
13 fcb $01
|
|
14
|
|
15 endsect
|
|
16
|
|
17 section code
|
|
18
|
|
19 rand: pshs u
|
|
20 leax G0000,y
|
|
21 ldd ,x
|
|
22 ldu 2,x
|
|
23 pshs d,u
|
|
24 leax >L003d,pcr
|
|
25 lbsr _lmul
|
|
26 ldd ,x
|
|
27 ldu 2,x
|
|
28 pshs d,u
|
|
29 leax >L0041,pcr
|
|
30 lbsr _ladd
|
|
31 leau G0000,y
|
|
32 ldd ,x
|
|
33 ldx 2,x
|
|
34 std ,u
|
|
35 stx 2,u
|
|
36 anda #$7f
|
|
37 puls u,pc
|
|
38 srand: leax G0000,y
|
|
39 ldd 2,s
|
|
40 std 2,x
|
|
41 clra
|
|
42 clrb
|
|
43 std ,x
|
|
44 rts
|
|
45 L003d fcb $41
|
|
46 ldb #$4e
|
|
47 fcb $6d
|
|
48 L0041 neg D0000
|
|
49 leax -7,y
|
|
50
|
|
51 endsect
|
|
52
|