|
2824
|
1 * Disassembly by Os9disasm of fopen.r
|
|
|
2
|
|
|
3 section code
|
|
|
4
|
|
|
5 L0000 pshs d
|
|
|
6 stu -2,s
|
|
|
7 bne L0022
|
|
|
8 leau _iob,y
|
|
|
9 lda #$10
|
|
|
10 L000c ldb 7,u
|
|
|
11 andb #3
|
|
|
12 beq L0022
|
|
|
13 leau 13,u
|
|
|
14 deca
|
|
|
15 bne L000c
|
|
|
16 ldd #$00c8
|
|
|
17 std errno,y
|
|
|
18 clra
|
|
|
19 clrb
|
|
|
20 puls x,pc
|
|
|
21 L0022 puls d
|
|
|
22 std 8,u
|
|
|
23 ldd 1,x
|
|
|
24 tsta
|
|
|
25 beq L0037
|
|
|
26 cmpa #$2b
|
|
|
27 beq L0033
|
|
|
28 cmpb #$2b
|
|
|
29 bne L0037
|
|
|
30 L0033 ldb #3
|
|
|
31 bra L0047
|
|
|
32 L0037 ldb ,x
|
|
|
33 cmpb #$72
|
|
|
34 beq L0041
|
|
|
35 cmpb #$64
|
|
|
36 bne L0045
|
|
|
37 L0041 ldb #1
|
|
|
38 bra L0047
|
|
|
39 L0045 ldb #2
|
|
|
40 L0047 orb 7,u
|
|
|
41 stb 7,u
|
|
|
42 ldd 2,u
|
|
|
43 addd 11,u
|
|
|
44 std ,u
|
|
|
45 std 4,u
|
|
|
46 tfr u,d
|
|
|
47 rts
|
|
|
48 L0056 clra
|
|
|
49 clrb
|
|
|
50 pshs d,u
|
|
|
51 ldd 1,x
|
|
|
52 tsta
|
|
|
53 beq L007a
|
|
|
54 cmpa #$78
|
|
|
55 bne L0071
|
|
|
56 cmpb #$2b
|
|
|
57 bne L006c
|
|
|
58 ldd #7
|
|
|
59 bra L0078
|
|
|
60 L006c ldd #4
|
|
|
61 bra L0078
|
|
|
62 L0071 cmpa #$2b
|
|
|
63 bne L00c7
|
|
|
64 ldd #3
|
|
|
65 L0078 std ,s
|
|
|
66 L007a ldb ,x
|
|
|
67 cmpb #$72
|
|
|
68 bne L0086
|
|
|
69 ldd ,s
|
|
|
70 orb #1
|
|
|
71 bra L00d7
|
|
|
72 L0086 cmpb #$61
|
|
|
73 bne L00b2
|
|
|
74 ldd ,s
|
|
|
75 orb #2
|
|
|
76 pshs d
|
|
|
77 pshs u
|
|
|
78 lbsr open
|
|
|
79 leas 4,s
|
|
|
80 std 2,s
|
|
|
81 cmpd #-1
|
|
|
82 beq L00b6
|
|
|
83 ldu #2
|
|
|
84 ldx #0
|
|
|
85 pshs x,u
|
|
|
86 pshs d,x
|
|
|
87 lbsr lseek
|
|
|
88 puls d
|
|
|
89 leas 6,s
|
|
|
90 bra L00e0
|
|
|
91 L00b2 cmpb #$77
|
|
|
92 bne L00c3
|
|
|
93 L00b6 ldd ,s
|
|
|
94 orb #2
|
|
|
95 pshs d
|
|
|
96 pshs u
|
|
|
97 lbsr creat
|
|
|
98 bra L00de
|
|
|
99 L00c3 cmpb #$64
|
|
|
100 beq L00d3
|
|
|
101 L00c7 ldd #$00cb
|
|
|
102 std errno,y
|
|
|
103 ldd #-1
|
|
|
104 bra L00e0
|
|
|
105 L00d3 ldd ,s
|
|
|
106 orb #$81
|
|
|
107 L00d7 pshs d
|
|
|
108 pshs u
|
|
|
109 lbsr open
|
|
|
110 L00de leas 4,s
|
|
|
111 L00e0 leas 4,s
|
|
|
112 rts
|
|
|
113 fdopen: pshs u
|
|
|
114 ldu #0
|
|
|
115 ldx 6,s
|
|
|
116 ldd 4,s
|
|
|
117 bra L011c
|
|
|
118 fopen: pshs u
|
|
|
119 ldx 6,s
|
|
|
120 ldu 4,s
|
|
|
121 lbsr L0056
|
|
|
122 ldu #0
|
|
|
123 std -2,s
|
|
|
124 bpl L011a
|
|
|
125 L00fe clra
|
|
|
126 clrb
|
|
|
127 puls u,pc
|
|
|
128 freopen: pshs u
|
|
|
129 ldd 8,s
|
|
|
130 pshs d
|
|
|
131 lbsr fclose
|
|
|
132 leas 2,s
|
|
|
133 ldx 6,s
|
|
|
134 ldu 4,s
|
|
|
135 lbsr L0056
|
|
|
136 std -2,s
|
|
|
137 bmi L00fe
|
|
|
138 ldu 8,s
|
|
|
139 L011a ldx 6,s
|
|
|
140 L011c lbsr L0000
|
|
|
141 puls u,pc
|
|
|
142
|
|
|
143 endsect
|
|
|
144
|
