2017-01-18 04:25:09 +00:00
|
|
|
|
Tue Jan 17 2017 23:24 Page 1
|
2017-01-16 16:26:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
***************************************
|
|
|
|
|
|
** WDC 65C816 Macro Assembler **
|
|
|
|
|
|
** **
|
|
|
|
|
|
** Version 3.49.1- Feb 6 2006 **
|
|
|
|
|
|
***************************************
|
|
|
|
|
|
|
|
|
|
|
|
1 ;:ts=8
|
|
|
|
|
|
2 00000001 R0 equ 1
|
|
|
|
|
|
3 00000005 R1 equ 5
|
|
|
|
|
|
4 00000009 R2 equ 9
|
|
|
|
|
|
5 0000000D R3 equ 13
|
|
|
|
|
|
6 ;#include <stdio.h>
|
|
|
|
|
|
7 ;#include <fcntl.h>
|
|
|
|
|
|
8 ;
|
|
|
|
|
|
9 ;
|
|
|
|
|
|
10 ;void main(void) {
|
|
|
|
|
|
11 code
|
|
|
|
|
|
12 xdef ~~main
|
|
|
|
|
|
13 func
|
|
|
|
|
|
14 ~~main:
|
|
|
|
|
|
15 longa on
|
|
|
|
|
|
16 longi on
|
|
|
|
|
|
17 00:0000: 3B tsc
|
|
|
|
|
|
18 00:0001: 38 sec
|
2017-01-18 04:06:12 +00:00
|
|
|
|
19 00:0002: E9 08 00 sbc #L2
|
2017-01-16 16:26:35 +00:00
|
|
|
|
20 00:0005: 1B tcs
|
|
|
|
|
|
21 00:0006: 0B phd
|
|
|
|
|
|
22 00:0007: 5B tcd
|
2017-01-18 04:06:12 +00:00
|
|
|
|
23 ; FILE *fp;
|
|
|
|
|
|
24 ;
|
2017-01-18 04:25:09 +00:00
|
|
|
|
25 ; #asm
|
2017-01-18 04:06:12 +00:00
|
|
|
|
26 00000000 fp_1 set 0
|
2017-01-18 04:25:09 +00:00
|
|
|
|
27 ; phk
|
|
|
|
|
|
28 ; plb
|
|
|
|
|
|
29 ; #endasm
|
|
|
|
|
|
30 asmstart
|
|
|
|
|
|
31 00:0008: 4B phk
|
|
|
|
|
|
32 00:0009: AB plb
|
|
|
|
|
|
33 asmend
|
|
|
|
|
|
34 ;
|
|
|
|
|
|
35 ; fputs("hello, world\n", stdout);
|
|
|
|
|
|
36 00:000A: A9 xx xx lda #<~~_iob+20
|
|
|
|
|
|
37 00:000D: 85 01 sta <R0
|
|
|
|
|
|
38 xref _BEG_DATA
|
|
|
|
|
|
39 00:000F: A9 xx xx lda #_BEG_DATA>>16
|
|
|
|
|
|
40 00:0012: 85 03 sta <R0+2
|
|
|
|
|
|
41 00:0014: D4 03 pei <R0+2
|
|
|
|
|
|
42 00:0016: D4 01 pei <R0
|
|
|
|
|
|
43 00:0018: F4 xx xx pea #^L1
|
|
|
|
|
|
44 00:001B: F4 xx xx pea #<L1
|
|
|
|
|
|
45 00:001E: 22 xx xx xx jsl ~~fputs
|
|
|
|
|
|
46 ;
|
|
|
|
|
|
47 ; fp = fopen("file.txt", "wb");
|
|
|
|
|
|
48 00:0022: F4 xx xx pea #^L1+23
|
|
|
|
|
|
49 00:0025: F4 xx xx pea #<L1+23
|
|
|
|
|
|
50 00:0028: F4 xx xx pea #^L1+14
|
|
|
|
|
|
51 00:002B: F4 xx xx pea #<L1+14
|
|
|
|
|
|
52 00:002E: 22 xx xx xx jsl ~~fopen
|
|
|
|
|
|
Tue Jan 17 2017 23:24 Page 2
|
2017-01-16 16:26:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
2017-01-18 04:25:09 +00:00
|
|
|
|
53 00:0032: 85 05 sta <L3+fp_1
|
|
|
|
|
|
54 00:0034: 86 07 stx <L3+fp_1+2
|
|
|
|
|
|
55 ; fclose(fp);
|
|
|
|
|
|
56 00:0036: D4 07 pei <L3+fp_1+2
|
|
|
|
|
|
57 00:0038: D4 05 pei <L3+fp_1
|
|
|
|
|
|
58 00:003A: 22 xx xx xx jsl ~~fclose
|
|
|
|
|
|
59 ;}
|
|
|
|
|
|
60 L4:
|
|
|
|
|
|
61 00:003E: 2B pld
|
|
|
|
|
|
62 00:003F: 3B tsc
|
|
|
|
|
|
63 00:0040: 18 clc
|
|
|
|
|
|
64 00:0041: 69 08 00 adc #L2
|
|
|
|
|
|
65 00:0044: 1B tcs
|
|
|
|
|
|
66 00:0045: 6B rtl
|
|
|
|
|
|
67 00000008 L2 equ 8
|
|
|
|
|
|
68 00000005 L3 equ 5
|
|
|
|
|
|
69 ends
|
|
|
|
|
|
70 efunc
|
|
|
|
|
|
71 data
|
|
|
|
|
|
72 L1:
|
|
|
|
|
|
73 00:0000: 68 65 6C 6C db $68,$65,$6C,$6C,$6F,$2C,$20,$77,$6F,$72,
|
2017-01-18 04:06:12 +00:00
|
|
|
|
$6C,$64,$0A,$00,$66
|
|
|
|
|
|
00:0004: 6F 2C 20 77
|
|
|
|
|
|
00:0008: 6F 72 6C 64
|
|
|
|
|
|
00:000C: 0A 00 66
|
2017-01-18 04:25:09 +00:00
|
|
|
|
74 00:000F: 69 6C 65 2E db $69,$6C,$65,$2E,$74,$78,$74,$00,$77,$62,
|
2017-01-18 04:06:12 +00:00
|
|
|
|
$00
|
|
|
|
|
|
00:0013: 74 78 74 00
|
|
|
|
|
|
00:0017: 77 62 00
|
2017-01-18 04:25:09 +00:00
|
|
|
|
75 00:001A: ends
|
|
|
|
|
|
76 ;
|
|
|
|
|
|
77 ;// these stubs are not provided in the library bu
|
2017-01-16 16:26:35 +00:00
|
|
|
|
t could call gs/os.
|
2017-01-18 04:25:09 +00:00
|
|
|
|
78 ;
|
|
|
|
|
|
79 ;int open(const char *name, int mode) {
|
|
|
|
|
|
80 code
|
|
|
|
|
|
81 xdef ~~open
|
|
|
|
|
|
82 func
|
|
|
|
|
|
83 ~~open:
|
|
|
|
|
|
84 longa on
|
|
|
|
|
|
85 longi on
|
|
|
|
|
|
86 00:0046: 3B tsc
|
|
|
|
|
|
87 00:0047: 38 sec
|
|
|
|
|
|
88 00:0048: E9 00 00 sbc #L6
|
|
|
|
|
|
89 00:004B: 1B tcs
|
|
|
|
|
|
90 00:004C: 0B phd
|
|
|
|
|
|
91 00:004D: 5B tcd
|
|
|
|
|
|
92 00000004 name_0 set 4
|
|
|
|
|
|
93 00000008 mode_0 set 8
|
|
|
|
|
|
94 ; return -1;
|
|
|
|
|
|
95 00:004E: A9 FF FF lda #$ffff
|
|
|
|
|
|
96 L8:
|
|
|
|
|
|
97 00:0051: A8 tay
|
|
|
|
|
|
98 00:0052: A5 02 lda <L6+2
|
|
|
|
|
|
99 00:0054: 85 08 sta <L6+2+6
|
|
|
|
|
|
100 00:0056: A5 01 lda <L6+1
|
|
|
|
|
|
101 00:0058: 85 07 sta <L6+1+6
|
|
|
|
|
|
102 00:005A: 2B pld
|
|
|
|
|
|
Tue Jan 17 2017 23:24 Page 3
|
2017-01-16 16:26:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
2017-01-18 04:25:09 +00:00
|
|
|
|
103 00:005B: 3B tsc
|
|
|
|
|
|
104 00:005C: 18 clc
|
|
|
|
|
|
105 00:005D: 69 06 00 adc #L6+6
|
|
|
|
|
|
106 00:0060: 1B tcs
|
|
|
|
|
|
107 00:0061: 98 tya
|
|
|
|
|
|
108 00:0062: 6B rtl
|
|
|
|
|
|
109 ;}
|
|
|
|
|
|
110 00000000 L6 equ 0
|
|
|
|
|
|
111 00000001 L7 equ 1
|
|
|
|
|
|
112 ends
|
|
|
|
|
|
113 efunc
|
|
|
|
|
|
114 ;
|
|
|
|
|
|
115 ;int close(int fd) {
|
|
|
|
|
|
116 code
|
|
|
|
|
|
117 xdef ~~close
|
|
|
|
|
|
118 func
|
|
|
|
|
|
119 ~~close:
|
|
|
|
|
|
120 longa on
|
|
|
|
|
|
121 longi on
|
|
|
|
|
|
122 00:0063: 3B tsc
|
|
|
|
|
|
123 00:0064: 38 sec
|
|
|
|
|
|
124 00:0065: E9 00 00 sbc #L9
|
|
|
|
|
|
125 00:0068: 1B tcs
|
|
|
|
|
|
126 00:0069: 0B phd
|
|
|
|
|
|
127 00:006A: 5B tcd
|
|
|
|
|
|
128 00000004 fd_0 set 4
|
|
|
|
|
|
129 ; return -1;
|
|
|
|
|
|
130 00:006B: A9 FF FF lda #$ffff
|
|
|
|
|
|
131 L11:
|
|
|
|
|
|
132 00:006E: A8 tay
|
|
|
|
|
|
133 00:006F: A5 02 lda <L9+2
|
|
|
|
|
|
134 00:0071: 85 04 sta <L9+2+2
|
|
|
|
|
|
135 00:0073: A5 01 lda <L9+1
|
|
|
|
|
|
136 00:0075: 85 03 sta <L9+1+2
|
|
|
|
|
|
137 00:0077: 2B pld
|
|
|
|
|
|
138 00:0078: 3B tsc
|
|
|
|
|
|
139 00:0079: 18 clc
|
|
|
|
|
|
140 00:007A: 69 02 00 adc #L9+2
|
|
|
|
|
|
141 00:007D: 1B tcs
|
|
|
|
|
|
142 00:007E: 98 tya
|
|
|
|
|
|
143 00:007F: 6B rtl
|
|
|
|
|
|
144 ;}
|
|
|
|
|
|
145 00000000 L9 equ 0
|
|
|
|
|
|
146 00000001 L10 equ 1
|
|
|
|
|
|
147 ends
|
|
|
|
|
|
148 efunc
|
|
|
|
|
|
149 ;
|
|
|
|
|
|
150 ;size_t read(int fd, void *buffer, size_t count) {
|
|
|
|
|
|
151 code
|
|
|
|
|
|
152 xdef ~~read
|
|
|
|
|
|
153 func
|
|
|
|
|
|
154 ~~read:
|
|
|
|
|
|
155 longa on
|
|
|
|
|
|
156 longi on
|
|
|
|
|
|
157 00:0080: 3B tsc
|
|
|
|
|
|
158 00:0081: 38 sec
|
|
|
|
|
|
159 00:0082: E9 00 00 sbc #L12
|
|
|
|
|
|
160 00:0085: 1B tcs
|
|
|
|
|
|
Tue Jan 17 2017 23:24 Page 4
|
2017-01-16 16:26:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
2017-01-18 04:25:09 +00:00
|
|
|
|
161 00:0086: 0B phd
|
|
|
|
|
|
162 00:0087: 5B tcd
|
|
|
|
|
|
163 00000004 fd_0 set 4
|
|
|
|
|
|
164 00000006 buffer_0 set 6
|
|
|
|
|
|
165 0000000A count_0 set 10
|
|
|
|
|
|
166 ; return -1;
|
|
|
|
|
|
167 00:0088: A9 FF FF lda #$ffff
|
|
|
|
|
|
168 L14:
|
|
|
|
|
|
169 00:008B: A8 tay
|
|
|
|
|
|
170 00:008C: A5 02 lda <L12+2
|
|
|
|
|
|
171 00:008E: 85 0A sta <L12+2+8
|
|
|
|
|
|
172 00:0090: A5 01 lda <L12+1
|
|
|
|
|
|
173 00:0092: 85 09 sta <L12+1+8
|
|
|
|
|
|
174 00:0094: 2B pld
|
|
|
|
|
|
175 00:0095: 3B tsc
|
|
|
|
|
|
176 00:0096: 18 clc
|
|
|
|
|
|
177 00:0097: 69 08 00 adc #L12+8
|
|
|
|
|
|
178 00:009A: 1B tcs
|
|
|
|
|
|
179 00:009B: 98 tya
|
|
|
|
|
|
180 00:009C: 6B rtl
|
|
|
|
|
|
181 ;}
|
|
|
|
|
|
182 00000000 L12 equ 0
|
|
|
|
|
|
183 00000001 L13 equ 1
|
|
|
|
|
|
184 ends
|
|
|
|
|
|
185 efunc
|
|
|
|
|
|
186 ;
|
|
|
|
|
|
187 ;size_t write(int fd, void *buffer, size_t count)
|
2017-01-16 16:26:35 +00:00
|
|
|
|
{
|
2017-01-18 04:25:09 +00:00
|
|
|
|
188 code
|
|
|
|
|
|
189 xdef ~~write
|
|
|
|
|
|
190 func
|
|
|
|
|
|
191 ~~write:
|
|
|
|
|
|
192 longa on
|
|
|
|
|
|
193 longi on
|
|
|
|
|
|
194 00:009D: 3B tsc
|
|
|
|
|
|
195 00:009E: 38 sec
|
|
|
|
|
|
196 00:009F: E9 02 00 sbc #L15
|
|
|
|
|
|
197 00:00A2: 1B tcs
|
|
|
|
|
|
198 00:00A3: 0B phd
|
|
|
|
|
|
199 00:00A4: 5B tcd
|
|
|
|
|
|
200 00000004 fd_0 set 4
|
|
|
|
|
|
201 00000006 buffer_0 set 6
|
|
|
|
|
|
202 0000000A count_0 set 10
|
|
|
|
|
|
203 ; static struct {
|
|
|
|
|
|
204 ; unsigned pCount;
|
|
|
|
|
|
205 ; unsigned refNum;
|
|
|
|
|
|
206 ; void *dataBuffer;
|
|
|
|
|
|
207 ; unsigned long requestCount;
|
|
|
|
|
|
208 ; unsigned long transferCount;
|
|
|
|
|
|
209 ; unsigned cachePriority;
|
|
|
|
|
|
210 ; } dcb;
|
|
|
|
|
|
211 udata
|
|
|
|
|
|
212 L10001:
|
|
|
|
|
|
213 00:0000: ds 18
|
|
|
|
|
|
214 00:0012: ends
|
|
|
|
|
|
215 ;
|
|
|
|
|
|
216 ; unsigned tool_error = 0x0043;
|
|
|
|
|
|
217 ;
|
|
|
|
|
|
Tue Jan 17 2017 23:24 Page 5
|
2017-01-16 16:26:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
2017-01-18 04:25:09 +00:00
|
|
|
|
218 ; dcb.pCount = 4;
|
|
|
|
|
|
219 00000000 tool_error_1 set 0
|
|
|
|
|
|
220 00:00A5: A9 43 00 lda #$43
|
|
|
|
|
|
221 00:00A8: 85 01 sta <L16+tool_error_1
|
|
|
|
|
|
222 00:00AA: A9 04 00 lda #$4
|
|
|
|
|
|
223 00:00AD: 8D xx xx sta |L10001
|
|
|
|
|
|
224 ; dcb.refNum = fd+1;
|
|
|
|
|
|
225 00:00B0: A5 06 lda <L15+fd_0
|
|
|
|
|
|
226 00:00B2: 1A ina
|
|
|
|
|
|
227 00:00B3: 8D xx xx sta |L10001+2
|
|
|
|
|
|
228 ; dcb.dataBuffer = buffer;
|
|
|
|
|
|
229 00:00B6: A5 08 lda <L15+buffer_0
|
|
|
|
|
|
230 00:00B8: 8D xx xx sta |L10001+4
|
|
|
|
|
|
231 00:00BB: A5 0A lda <L15+buffer_0+2
|
|
|
|
|
|
232 00:00BD: 8D xx xx sta |L10001+4+2
|
|
|
|
|
|
233 ; dcb.requestCount = count;
|
|
|
|
|
|
234 00:00C0: A5 0C lda <L15+count_0
|
|
|
|
|
|
235 00:00C2: 8D xx xx sta |L10001+8
|
|
|
|
|
|
236 00:00C5: 9C xx xx stz |L10001+8+2
|
|
|
|
|
|
237 ; #asm
|
|
|
|
|
|
238 ; pea #^%%dcb
|
|
|
|
|
|
239 ; pea #%%dcb
|
|
|
|
|
|
240 ; pea #$2012
|
|
|
|
|
|
241 ; jsl $e100b0
|
|
|
|
|
|
242 ; sta %%tool_error;
|
|
|
|
|
|
243 ; #endasm
|
|
|
|
|
|
244 asmstart
|
|
|
|
|
|
245 00:00C8: F4 xx xx pea #^L10001
|
|
|
|
|
|
246 00:00CB: F4 xx xx pea #L10001
|
|
|
|
|
|
247 00:00CE: F4 12 20 pea #$2012
|
|
|
|
|
|
248 00:00D1: 22 B0 00 E1 jsl $e100b0
|
|
|
|
|
|
249 00:00D5: 85 01 sta <L16+tool_error_1;
|
|
|
|
|
|
250 asmend
|
|
|
|
|
|
251 ; if (tool_error) return -1;
|
|
|
|
|
|
252 00:00D7: A5 01 lda <L16+tool_error_1
|
|
|
|
|
|
253 00:00D9: D0 03 bne L17
|
|
|
|
|
|
254 00:00DB: 82 15 00 brl L10002
|
|
|
|
|
|
255 L17:
|
|
|
|
|
|
256 00:00DE: A9 FF FF lda #$ffff
|
|
|
|
|
|
257 L18:
|
|
|
|
|
|
258 00:00E1: A8 tay
|
|
|
|
|
|
259 00:00E2: A5 04 lda <L15+2
|
|
|
|
|
|
260 00:00E4: 85 0C sta <L15+2+8
|
|
|
|
|
|
261 00:00E6: A5 03 lda <L15+1
|
|
|
|
|
|
262 00:00E8: 85 0B sta <L15+1+8
|
|
|
|
|
|
263 00:00EA: 2B pld
|
|
|
|
|
|
264 00:00EB: 3B tsc
|
|
|
|
|
|
265 00:00EC: 18 clc
|
|
|
|
|
|
266 00:00ED: 69 0A 00 adc #L15+8
|
|
|
|
|
|
267 00:00F0: 1B tcs
|
|
|
|
|
|
268 00:00F1: 98 tya
|
|
|
|
|
|
269 00:00F2: 6B rtl
|
|
|
|
|
|
270 ; return dcb.transferCount;
|
|
|
|
|
|
271 L10002:
|
|
|
|
|
|
272 00:00F3: AD xx xx lda |L10001+12
|
|
|
|
|
|
273 00:00F6: 82 E8 FF brl L18
|
|
|
|
|
|
274 ;}
|
|
|
|
|
|
275 00000002 L15 equ 2
|
|
|
|
|
|
Tue Jan 17 2017 23:24 Page 6
|
2017-01-16 16:26:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
2017-01-18 04:25:09 +00:00
|
|
|
|
276 00000001 L16 equ 1
|
|
|
|
|
|
277 ends
|
|
|
|
|
|
278 efunc
|
|
|
|
|
|
279 ;
|
|
|
|
|
|
280 ;long lseek(int fd, long offset, int whence) {
|
|
|
|
|
|
281 code
|
|
|
|
|
|
282 xdef ~~lseek
|
|
|
|
|
|
283 func
|
|
|
|
|
|
284 ~~lseek:
|
|
|
|
|
|
285 longa on
|
|
|
|
|
|
286 longi on
|
|
|
|
|
|
287 00:00F9: 3B tsc
|
|
|
|
|
|
288 00:00FA: 38 sec
|
|
|
|
|
|
289 00:00FB: E9 00 00 sbc #L19
|
|
|
|
|
|
290 00:00FE: 1B tcs
|
|
|
|
|
|
291 00:00FF: 0B phd
|
|
|
|
|
|
292 00:0100: 5B tcd
|
|
|
|
|
|
293 00000004 fd_0 set 4
|
|
|
|
|
|
294 00000006 offset_0 set 6
|
|
|
|
|
|
295 0000000A whence_0 set 10
|
|
|
|
|
|
296 ; return -1;
|
|
|
|
|
|
297 00:0101: A9 FF FF lda #$ffff
|
|
|
|
|
|
298 00:0104: AA tax
|
|
|
|
|
|
299 00:0105: A9 FF FF lda #$ffff
|
|
|
|
|
|
300 L21:
|
|
|
|
|
|
301 00:0108: A8 tay
|
|
|
|
|
|
302 00:0109: A5 02 lda <L19+2
|
|
|
|
|
|
303 00:010B: 85 0A sta <L19+2+8
|
|
|
|
|
|
304 00:010D: A5 01 lda <L19+1
|
|
|
|
|
|
305 00:010F: 85 09 sta <L19+1+8
|
|
|
|
|
|
306 00:0111: 2B pld
|
|
|
|
|
|
307 00:0112: 3B tsc
|
|
|
|
|
|
308 00:0113: 18 clc
|
|
|
|
|
|
309 00:0114: 69 08 00 adc #L19+8
|
|
|
|
|
|
310 00:0117: 1B tcs
|
|
|
|
|
|
311 00:0118: 98 tya
|
|
|
|
|
|
312 00:0119: 6B rtl
|
|
|
|
|
|
313 ;}
|
|
|
|
|
|
314 00000000 L19 equ 0
|
|
|
|
|
|
315 00000001 L20 equ 1
|
|
|
|
|
|
316 ends
|
|
|
|
|
|
317 efunc
|
|
|
|
|
|
318 ;
|
|
|
|
|
|
319 ;int creat(const char *name, int mode) {
|
|
|
|
|
|
320 code
|
|
|
|
|
|
321 xdef ~~creat
|
|
|
|
|
|
322 func
|
|
|
|
|
|
323 ~~creat:
|
|
|
|
|
|
324 longa on
|
|
|
|
|
|
325 longi on
|
|
|
|
|
|
326 00:011A: 3B tsc
|
|
|
|
|
|
327 00:011B: 38 sec
|
|
|
|
|
|
328 00:011C: E9 00 00 sbc #L22
|
|
|
|
|
|
329 00:011F: 1B tcs
|
|
|
|
|
|
330 00:0120: 0B phd
|
|
|
|
|
|
331 00:0121: 5B tcd
|
|
|
|
|
|
332 00000004 name_0 set 4
|
|
|
|
|
|
333 00000008 mode_0 set 8
|
|
|
|
|
|
Tue Jan 17 2017 23:24 Page 7
|
2017-01-16 16:26:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
2017-01-18 04:25:09 +00:00
|
|
|
|
334 ; return -1;
|
|
|
|
|
|
335 00:0122: A9 FF FF lda #$ffff
|
|
|
|
|
|
336 L24:
|
|
|
|
|
|
337 00:0125: A8 tay
|
|
|
|
|
|
338 00:0126: A5 02 lda <L22+2
|
|
|
|
|
|
339 00:0128: 85 08 sta <L22+2+6
|
|
|
|
|
|
340 00:012A: A5 01 lda <L22+1
|
|
|
|
|
|
341 00:012C: 85 07 sta <L22+1+6
|
|
|
|
|
|
342 00:012E: 2B pld
|
|
|
|
|
|
343 00:012F: 3B tsc
|
|
|
|
|
|
344 00:0130: 18 clc
|
|
|
|
|
|
345 00:0131: 69 06 00 adc #L22+6
|
|
|
|
|
|
346 00:0134: 1B tcs
|
|
|
|
|
|
347 00:0135: 98 tya
|
|
|
|
|
|
348 00:0136: 6B rtl
|
|
|
|
|
|
349 ;}
|
|
|
|
|
|
350 00000000 L22 equ 0
|
|
|
|
|
|
351 00000001 L23 equ 1
|
|
|
|
|
|
352 ends
|
|
|
|
|
|
353 efunc
|
|
|
|
|
|
354 ;
|
|
|
|
|
|
355 ;int unlink(const char *name) {
|
|
|
|
|
|
356 code
|
|
|
|
|
|
357 xdef ~~unlink
|
|
|
|
|
|
358 func
|
|
|
|
|
|
359 ~~unlink:
|
|
|
|
|
|
360 longa on
|
|
|
|
|
|
361 longi on
|
|
|
|
|
|
362 00:0137: 3B tsc
|
|
|
|
|
|
363 00:0138: 38 sec
|
|
|
|
|
|
364 00:0139: E9 00 00 sbc #L25
|
|
|
|
|
|
365 00:013C: 1B tcs
|
|
|
|
|
|
366 00:013D: 0B phd
|
|
|
|
|
|
367 00:013E: 5B tcd
|
|
|
|
|
|
368 00000004 name_0 set 4
|
|
|
|
|
|
369 ; return -1;
|
|
|
|
|
|
370 00:013F: A9 FF FF lda #$ffff
|
|
|
|
|
|
371 L27:
|
|
|
|
|
|
372 00:0142: A8 tay
|
|
|
|
|
|
373 00:0143: A5 02 lda <L25+2
|
|
|
|
|
|
374 00:0145: 85 06 sta <L25+2+4
|
|
|
|
|
|
375 00:0147: A5 01 lda <L25+1
|
|
|
|
|
|
376 00:0149: 85 05 sta <L25+1+4
|
|
|
|
|
|
377 00:014B: 2B pld
|
|
|
|
|
|
378 00:014C: 3B tsc
|
|
|
|
|
|
379 00:014D: 18 clc
|
|
|
|
|
|
380 00:014E: 69 04 00 adc #L25+4
|
|
|
|
|
|
381 00:0151: 1B tcs
|
|
|
|
|
|
382 00:0152: 98 tya
|
|
|
|
|
|
383 00:0153: 6B rtl
|
|
|
|
|
|
384 ;}
|
|
|
|
|
|
385 00000000 L25 equ 0
|
|
|
|
|
|
386 00000001 L26 equ 1
|
|
|
|
|
|
387 ends
|
|
|
|
|
|
388 efunc
|
|
|
|
|
|
389 ;
|
|
|
|
|
|
390 ;int isatty(int fd) {
|
|
|
|
|
|
391 code
|
|
|
|
|
|
Tue Jan 17 2017 23:24 Page 8
|
2017-01-16 19:02:34 +00:00
|
|
|
|
|
|
|
|
|
|
|
2017-01-18 04:25:09 +00:00
|
|
|
|
392 xdef ~~isatty
|
|
|
|
|
|
393 func
|
|
|
|
|
|
394 ~~isatty:
|
|
|
|
|
|
395 longa on
|
|
|
|
|
|
396 longi on
|
|
|
|
|
|
397 00:0154: 3B tsc
|
|
|
|
|
|
398 00:0155: 38 sec
|
|
|
|
|
|
399 00:0156: E9 00 00 sbc #L28
|
|
|
|
|
|
400 00:0159: 1B tcs
|
|
|
|
|
|
401 00:015A: 0B phd
|
|
|
|
|
|
402 00:015B: 5B tcd
|
|
|
|
|
|
403 00000004 fd_0 set 4
|
|
|
|
|
|
404 ; return -1;
|
|
|
|
|
|
405 00:015C: A9 FF FF lda #$ffff
|
|
|
|
|
|
406 L30:
|
|
|
|
|
|
407 00:015F: A8 tay
|
|
|
|
|
|
408 00:0160: A5 02 lda <L28+2
|
|
|
|
|
|
409 00:0162: 85 04 sta <L28+2+2
|
|
|
|
|
|
410 00:0164: A5 01 lda <L28+1
|
|
|
|
|
|
411 00:0166: 85 03 sta <L28+1+2
|
|
|
|
|
|
412 00:0168: 2B pld
|
|
|
|
|
|
413 00:0169: 3B tsc
|
|
|
|
|
|
414 00:016A: 18 clc
|
|
|
|
|
|
415 00:016B: 69 02 00 adc #L28+2
|
|
|
|
|
|
416 00:016E: 1B tcs
|
|
|
|
|
|
417 00:016F: 98 tya
|
|
|
|
|
|
418 00:0170: 6B rtl
|
|
|
|
|
|
419 ;}
|
|
|
|
|
|
420 00000000 L28 equ 0
|
|
|
|
|
|
421 00000001 L29 equ 1
|
|
|
|
|
|
422 ends
|
|
|
|
|
|
423 efunc
|
|
|
|
|
|
424 ;
|
|
|
|
|
|
425 ;
|
|
|
|
|
|
426 ;#pragma section udata=heap
|
|
|
|
|
|
427 heap section
|
|
|
|
|
|
428 00:0000: ends
|
|
|
|
|
|
429 ;char __heap[8192];
|
|
|
|
|
|
430 ;void *heap_start = (void *)__heap;
|
|
|
|
|
|
431 data
|
|
|
|
|
|
432 xdef ~~heap_start
|
|
|
|
|
|
433 ~~heap_start:
|
|
|
|
|
|
434 00:001A: xx xx xx xx dl ~~__heap
|
|
|
|
|
|
435 00:001E: ends
|
|
|
|
|
|
436 ;void *heap_end = (void *)&__heap[8092];
|
|
|
|
|
|
437 data
|
|
|
|
|
|
438 xdef ~~heap_end
|
|
|
|
|
|
439 ~~heap_end:
|
|
|
|
|
|
440 00:001E: xx xx xx xx dl ~~__heap+8092
|
|
|
|
|
|
441 00:0022: ends
|
|
|
|
|
|
442 ;
|
|
|
|
|
|
443 xref ~~fputs
|
|
|
|
|
|
444 xref ~~fopen
|
|
|
|
|
|
445 xref ~~fclose
|
|
|
|
|
|
446 heap
|
|
|
|
|
|
447 xdef ~~__heap
|
|
|
|
|
|
448 ~~__heap
|
|
|
|
|
|
449 00:0000: ds 8192
|
|
|
|
|
|
Tue Jan 17 2017 23:24 Page 9
|
2017-01-18 04:06:12 +00:00
|
|
|
|
|
|
|
|
|
|
|
2017-01-18 04:25:09 +00:00
|
|
|
|
450 00:2000: ends
|
|
|
|
|
|
451 xref ~~_iob
|
|
|
|
|
|
452 end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Lines assembled: 452
|
2017-01-16 16:26:35 +00:00
|
|
|
|
Errors: 0
|
