|
2824
|
1 * Disassembly by Os9disasm of stat.r
|
|
|
2
|
|
|
3 section code
|
|
|
4
|
|
|
5 * OS-9 system function equates
|
|
|
6
|
|
|
7 I$GetStt equ $8d
|
|
|
8 I$SetStt equ $8e
|
|
|
9
|
|
|
10 getstat: pshs y,u
|
|
|
11 lda 9,s
|
|
|
12 ldb 7,s
|
|
|
13 beq L003c
|
|
|
14 cmpb #1
|
|
|
15 beq L003e
|
|
|
16 cmpb #2
|
|
|
17 beq L0024
|
|
|
18 cmpb #5
|
|
|
19 beq L0024
|
|
|
20 cmpb #6
|
|
|
21 beq L003e
|
|
|
22 cmpb #$0e
|
|
|
23 beq L003c
|
|
|
24 cmpb #$0f
|
|
|
25 beq L0039
|
|
|
26 ldb #$d0
|
|
|
27 bra L0029
|
|
|
28 L0024 os9 I$GetStt
|
|
|
29 bcc L002e
|
|
|
30 L0029 puls y,u
|
|
|
31 lbra _os9err
|
|
|
32 L002e stx [10,s]
|
|
|
33 ldx 10,s
|
|
|
34 stu 2,x
|
|
|
35 clrb
|
|
|
36 clra
|
|
|
37 puls y,u,pc
|
|
|
38 L0039 ldy 12,s
|
|
|
39 L003c ldx 10,s
|
|
|
40 L003e os9 I$GetStt
|
|
|
41 puls y,u
|
|
|
42 lbra _sysret
|
|
|
43 setstat: pshs y,u
|
|
|
44 lda 9,s
|
|
|
45 ldb 7,s
|
|
|
46 beq L0096
|
|
|
47 cmpb #2
|
|
|
48 beq L0094
|
|
|
49 cmpb #3
|
|
|
50 beq L0096
|
|
|
51 cmpb #4
|
|
|
52 beq L0091
|
|
|
53 cmpb #$0a
|
|
|
54 beq L00a6
|
|
|
55 cmpb #$0b
|
|
|
56 beq L0096
|
|
|
57 cmpb #$0c
|
|
|
58 beq L00a6
|
|
|
59 cmpb #$0d
|
|
|
60 beq L009a
|
|
|
61 cmpb #$0f
|
|
|
62 beq L0096
|
|
|
63 cmpb #$10
|
|
|
64 beq L0096
|
|
|
65 cmpb #$11
|
|
|
66 beq L0094
|
|
|
67 cmpb #$14
|
|
|
68 beq L0091
|
|
|
69 cmpb #$15
|
|
|
70 beq L0091
|
|
|
71 cmpb #$19
|
|
|
72 beq L0091
|
|
|
73 cmpb #$1a
|
|
|
74 beq L0096
|
|
|
75 cmpb #$1b
|
|
|
76 beq L00a6
|
|
|
77 ldb #$d0
|
|
|
78 puls y,u
|
|
|
79 lbra _os9err
|
|
|
80 L0091 ldy 14,s
|
|
|
81 L0094 ldu 12,s
|
|
|
82 L0096 ldx 10,s
|
|
|
83 bra L00a6
|
|
|
84 L009a tfr a,b
|
|
|
85 lda 11,s
|
|
|
86 ldx 12,s
|
|
|
87 ldy 14,s
|
|
|
88 ldu 16,s
|
|
|
89 L00a6 os9 I$SetStt
|
|
|
90 puls y,u
|
|
|
91 lbra _sysret
|
|
|
92
|
|
|
93 endsect
|
|
|
94
|
