|
2824
|
1 * Disassembly by Os9disasm of defdrive.r
|
|
|
2
|
|
|
3 * class D external label equates
|
|
|
4
|
|
|
5 D0000 equ $0000
|
|
|
6
|
|
|
7 * class X external label equates
|
|
|
8
|
|
|
9 X0000 equ $0000
|
|
|
10
|
|
|
11 section bss
|
|
|
12
|
|
|
13 * Uninitialized data (class B)
|
|
|
14 B0000 rmb 12
|
|
|
15 * Initialized Data (class G)
|
|
|
16
|
|
|
17 endsect
|
|
|
18
|
|
|
19 section code
|
|
|
20
|
|
|
21 getdrive: pshs u
|
|
|
22 leas -7,s
|
|
|
23 clra
|
|
|
24 clrb
|
|
|
25 pshs d
|
|
|
26 ldd #$000c
|
|
|
27 pshs d
|
|
|
28 leax >L0061,pcr
|
|
|
29 pshs x
|
|
|
30 lbsr modlink
|
|
|
31 leas 6,s
|
|
|
32 std ,s
|
|
|
33 cmpd #-1
|
|
|
34 beq L005b
|
|
|
35 ldd ,s
|
|
|
36 ldx ,s
|
|
|
37 addd 16,x
|
|
|
38 std 5,s
|
|
|
39 leau B0000,y
|
|
|
40 bra L0033
|
|
|
41 L002f ldb 4,s
|
|
|
42 stb ,u+
|
|
|
43 L0033 ldx 5,s
|
|
|
44 leax 1,x
|
|
|
45 stx 5,s
|
|
|
46 ldb -1,x
|
|
|
47 stb 4,s
|
|
|
48 bgt L002f
|
|
|
49 ldb 4,s
|
|
|
50 clra
|
|
|
51 andb #$7f
|
|
|
52 stb ,u+
|
|
|
53 clra
|
|
|
54 clrb
|
|
|
55 stb ,u
|
|
|
56 ldd ,s
|
|
|
57 pshs d
|
|
|
58 lbsr munlink
|
|
|
59 leas 2,s
|
|
|
60 leax B0000,y
|
|
|
61 tfr x,d
|
|
|
62 bra L005d
|
|
|
63 L005b clra
|
|
|
64 clrb
|
|
|
65 L005d leas 7,s
|
|
|
66 puls u,pc
|
|
|
67 L0061 rola
|
|
|
68 jmp 9,s
|
|
|
69 fcb $74
|
|
|
70 fcb $00
|
|
|
71
|
|
|
72 endsect
|
|
|
73
|
