|
2824
|
1 * Disassembly by Os9disasm of setbase.r
|
|
|
2
|
|
|
3 section code
|
|
|
4
|
|
|
5 _setbase: pshs u
|
|
|
6 ldu 4,s
|
|
|
7 ldb 7,u
|
|
|
8 bitb #$c0
|
|
|
9 bne L0029
|
|
|
10 leas -32,s
|
|
|
11 leax ,s
|
|
|
12 ldd 8,u
|
|
|
13 pshs d,x
|
|
|
14 clra
|
|
|
15 clrb
|
|
|
16 pshs d
|
|
|
17 lbsr getstat
|
|
|
18 ldb #$40
|
|
|
19 lda 6,s
|
|
|
20 beq L0022
|
|
|
21 ldb #$80
|
|
|
22 L0022 leas 38,s
|
|
|
23 orb 7,u
|
|
|
24 stb 7,u
|
|
|
25 L0029 lda 6,u
|
|
|
26 ora #$80
|
|
|
27 sta 6,u
|
|
|
28 andb #$0c
|
|
|
29 bne L006c
|
|
|
30 ldd 11,u
|
|
|
31 bne L003c
|
|
|
32 ldd #$0100
|
|
|
33 std 11,u
|
|
|
34 L003c ldd 2,u
|
|
|
35 bne L0051
|
|
|
36 ldd 11,u
|
|
|
37 pshs d
|
|
|
38 lbsr ibrk
|
|
|
39 leas 2,s
|
|
|
40 std 2,u
|
|
|
41 cmpd #-1
|
|
|
42 beq L0055
|
|
|
43 L0051 ldb #8
|
|
|
44 bra L0060
|
|
|
45 L0055 leax 10,u
|
|
|
46 stx 2,u
|
|
|
47 ldd #1
|
|
|
48 std 11,u
|
|
|
49 ldb #4
|
|
|
50 L0060 orb 7,u
|
|
|
51 stb 7,u
|
|
|
52 ldd 2,u
|
|
|
53 addd 11,u
|
|
|
54 std 4,u
|
|
|
55 std ,u
|
|
|
56 L006c puls u,pc
|
|
|
57
|
|
|
58 endsect
|
|
|
59
|
