Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/edit.asm @ 2758:e4a0f58a5f9b
Found that people who do not have the envirornment variable NITROS9DIR set before building the project get a error missing file "/rules.mak". Found this is caused do to the fact that the code to set this envirornment variable is in the rules.mak which can't get loaded.
To fix this the code needed to set the envirornment variable that is in the rules.mak is now in the makefile(s) right before the include for the rules.mak file. This should fix the problem for those who do not have the NITROS9DIR envirornment variable preset.
author | drencor-xeen |
---|---|
date | Mon, 14 Jan 2013 14:37:46 -0600 |
parents | 84ea83668304 |
children | f1ec894ef120 |
rev | line source |
---|---|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
1 ******************************************************************** |
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
2 * Edit - Line editor |
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
3 * |
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
4 * $Id$ |
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
5 * |
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
925
diff
changeset
|
6 * Edt/Rev YYYY/MM/DD Modified by |
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
925
diff
changeset
|
7 * Comment |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
8 * ------------------------------------------------------------------ |
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
925
diff
changeset
|
9 * 3 ????/??/?? |
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
925
diff
changeset
|
10 * From Tandy OS-9 Level One VR 02.00.00. |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
11 |
195 | 12 nam Edit |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
13 ttl Line editor |
195 | 14 |
15 * Disassembled 02/07/05 22:33:05 by Disasm v1.6 (C) 1988 by RML | |
16 | |
17 ifp1 | |
18 use defsfile | |
19 endc | |
20 | |
21 tylg set Prgrm+Objct | |
22 atrv set ReEnt+rev | |
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
925
diff
changeset
|
23 rev set $00 |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
24 edition set 3 |
195 | 25 |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
26 L0000 mod eom,name,tylg,atrv,start,size |
195 | 27 |
924 | 28 org 0 |
195 | 29 u0000 rmb 1 |
30 u0001 rmb 1 | |
31 u0002 rmb 1 | |
32 u0003 rmb 1 | |
33 u0004 rmb 1 | |
34 u0005 rmb 1 | |
35 u0006 rmb 1 | |
36 u0007 rmb 1 | |
37 u0008 rmb 1 | |
38 u0009 rmb 1 | |
39 u000A rmb 1 | |
40 u000B rmb 1 | |
41 u000C rmb 1 | |
42 u000D rmb 1 | |
43 u000E rmb 1 | |
44 u000F rmb 1 | |
45 u0010 rmb 1 | |
46 u0011 rmb 1 | |
47 u0012 rmb 2 | |
48 u0014 rmb 2 | |
49 u0016 rmb 2 | |
50 u0018 rmb 2 | |
51 u001A rmb 2 | |
52 u001C rmb 2 | |
53 u001E rmb 2 | |
54 u0020 rmb 1 | |
55 u0021 rmb 2 | |
56 u0023 rmb 1 | |
57 u0024 rmb 1 | |
58 u0025 rmb 1 | |
59 u0026 rmb 1 | |
60 u0027 rmb 2 | |
61 u0029 rmb 1 | |
62 u002A rmb 1 | |
63 u002B rmb 2 | |
64 u002D rmb 2 | |
65 u002F rmb 1 | |
66 u0030 rmb 2 | |
67 u0032 rmb 4 | |
68 u0036 rmb 1 | |
69 u0037 rmb 1 | |
70 u0038 rmb 1 | |
71 u0039 rmb 1 | |
72 u003A rmb 1 | |
73 u003B rmb 1 | |
74 u003C rmb 1 | |
75 u003D rmb 1 | |
76 u003E rmb 1 | |
77 u003F rmb 1 | |
78 u0040 rmb 1 | |
79 u0041 rmb 1 | |
80 u0042 rmb 1 | |
81 u0043 rmb 1 | |
82 u0044 rmb 1 | |
83 u0045 rmb 2 | |
84 u0047 rmb 1 | |
85 u0048 rmb 1 | |
86 u0049 rmb 2 | |
87 u004B rmb 2 | |
88 u004D rmb 1 | |
89 u004E rmb 1 | |
90 u004F rmb 2 | |
91 u0051 rmb 4 | |
92 u0055 rmb 2 | |
93 u0057 rmb 13 | |
94 u0064 rmb 7 | |
95 u006B rmb 2 | |
96 u006D rmb 2 | |
97 u006F rmb 5 | |
98 u0074 rmb 7 | |
99 u007B rmb 14 | |
100 u0089 rmb 1 | |
101 u008A rmb 4 | |
102 u008E rmb 16 | |
103 u009E rmb 7 | |
104 u00A5 rmb 1 | |
105 u00A6 rmb 11 | |
106 u00B1 rmb 3 | |
107 u00B4 rmb 2 | |
108 u00B6 rmb 15 | |
109 u00C5 rmb 8 | |
110 u00CD rmb 2 | |
111 u00CF rmb 2 | |
112 u00D1 rmb 2 | |
113 u00D3 rmb 2 | |
114 u00D5 rmb 1 | |
115 u00D6 rmb 18 | |
116 u00E8 rmb 4 | |
117 u00EC rmb 1 | |
118 u00ED rmb 10 | |
119 u00F7 rmb 4 | |
120 u00FB rmb 3 | |
121 u00FE rmb 121 | |
122 u0177 rmb 255 | |
123 u0276 rmb 40 | |
124 u029E rmb 384 | |
125 u041E rmb 2049 | |
126 size equ . | |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
127 |
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
128 name fcs /Edit/ |
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
129 fcb edition |
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
130 |
925 | 131 fcc "(C)1981Microware" |
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
132 |
195 | 133 L0022 fcb $01 |
134 lbra L0292 | |
135 lbra L0C38 | |
136 lbra L0BEC | |
137 lbra L0BE3 | |
138 lbra L100F | |
139 lbra L0770 | |
140 lbra L06EA | |
141 lbra L0716 | |
142 lbra L073F | |
143 lbra L04A1 | |
144 lbra L046B | |
145 lbra L05D6 | |
146 lbra L0626 | |
147 lbra L0094 | |
148 lbra L0B96 | |
149 lbra L0B01 | |
150 L0053 lda #$00 | |
151 sta <u0023,u | |
152 rti | |
153 L0059 ldx <u000E | |
154 jmp ,x | |
155 L005D lda <u0026 | |
156 lbsr L0107 | |
157 lda #$3A | |
158 lbsr L0107 | |
159 ldx <u0012 | |
160 leax >$0177,x | |
161 lda <u000A | |
162 ldy #$0080 | |
163 os9 I$ReadLn | |
164 bcc L0081 | |
165 cmpb #$D3 | |
166 lbeq L114D | |
167 lbra L12AA | |
168 L0081 rts | |
169 L0082 pshs x,b,a | |
170 lbsr L06D7 | |
171 bsr L008B | |
172 puls pc,x,b,a | |
173 L008B pshs b,a | |
174 lbsr L0130 | |
175 bsr L0094 | |
176 puls pc,b,a | |
177 L0094 pshs y,x,b,a | |
178 cmpd #$0000 | |
179 beq L00C6 | |
180 leay d,x | |
181 pshs y | |
182 L00A0 tst <u0037 | |
183 beq L00AC | |
184 lda #$20 | |
185 bsr L0107 | |
186 bsr L0107 | |
187 bsr L0107 | |
188 L00AC tst <u0023 | |
189 beq L00C4 | |
190 lda ,x+ | |
191 bsr L0107 | |
192 cmpx ,s | |
193 beq L00BE | |
194 cmpa #$0D | |
195 bne L00AC | |
196 bra L00A0 | |
197 L00BE cmpa #$0D | |
198 beq L00C4 | |
199 bsr L00FF | |
200 L00C4 puls y | |
201 L00C6 puls pc,y,x,b,a | |
202 L00C8 pshs y,b,a | |
203 ldd <u0002 | |
204 tstb | |
205 beq L00E0 | |
206 cmpa ,s | |
207 bne L00E0 | |
208 ldd <u0021 | |
209 addd #$0001 | |
210 std <u0021 | |
211 ldb <u0020 | |
212 adcb #$00 | |
213 stb <u0020 | |
214 L00E0 bsr L0130 | |
215 tfr d,y | |
216 lda ,s | |
217 os9 I$Write | |
218 lbcs L12AA | |
219 puls pc,y,b,a | |
220 L00EF pshs a | |
221 bsr L00FF | |
222 lda <u0037 | |
223 clr <u0037 | |
224 bsr L008B | |
225 sta <u0037 | |
226 puls pc,a | |
227 L00FD bsr L00FF | |
228 L00FF pshs a | |
229 lda #$0D | |
230 bsr L0107 | |
231 puls pc,a | |
232 L0107 pshs y,x,a | |
233 lda <u000B | |
234 ldy #$0001 | |
235 tfr s,x | |
236 tst <u0041 | |
237 bmi L0119 | |
238 tst <u003E | |
239 beq L0120 | |
240 L0119 os9 I$WritLn | |
241 lbcs L12AA | |
242 L0120 puls pc,y,x,a | |
243 L0122 pshs x | |
244 lda ,x+ | |
245 cmpa #$0D | |
246 lbeq L1272 | |
247 bsr L0132 | |
248 puls pc,x | |
249 L0130 lda #$0D | |
250 L0132 pshs y,x | |
251 ldb #$0D | |
252 ldy #$0000 | |
253 L013A cmpx <u001C | |
254 beq L014C | |
255 leay $01,y | |
256 cmpb ,x | |
257 beq L014C | |
258 cmpa ,x+ | |
259 bne L013A | |
260 leay -$01,y | |
261 bra L0152 | |
262 L014C cmpa #$0D | |
263 lbne L1272 | |
264 L0152 tfr y,d | |
265 cmpd #$0000 | |
266 puls pc,y,x | |
267 L015A pshs u,x,b,a | |
268 os9 F$PrsNam | |
269 puls pc,u,x,b,a | |
270 start equ * | |
271 tfr u,d | |
272 std <u0012 | |
273 sts <u001E | |
274 leas >u041E,u | |
275 addd #$041F | |
276 std <u0014 | |
277 std <u0016 | |
278 std <u001C | |
279 std <u001A | |
280 pshs u,y,x,b,a | |
281 leax >L0022,pcr | |
282 stx <u000C | |
283 leax >L005D,pcr | |
284 stx <u000E | |
285 leax >L09DD,pcr | |
286 stx <u0010 | |
287 ldd #$0000 | |
288 std <u0051 | |
289 std <u006F | |
290 std <u0089 | |
291 leax >L1482,pcr | |
292 stx <u004D | |
293 leax >L13CF,pcr | |
294 stx <u006B | |
295 leax >L0000,pcr | |
296 stx <u004F | |
297 stx <u006D | |
298 leax >L13B0,pcr | |
299 lda #$01 | |
300 os9 F$Link | |
301 bcs L01B5 | |
302 jsr ,y | |
303 L01B5 leax >L13B6,pcr | |
304 lda #$01 | |
305 os9 F$Link | |
306 bcs L01C2 | |
307 jsr ,y | |
308 L01C2 puls u,y,x,b,a | |
309 lda #$FF | |
310 sta <u0041 | |
311 inca | |
312 sta <u0001 | |
313 sta <u0003 | |
314 sta <u0005 | |
315 sta <u0007 | |
316 sta <u000A | |
317 sta <u003D | |
318 inca | |
319 sta <u000B | |
320 sta <u003E | |
321 sta <u0040 | |
322 lda #$45 | |
323 sta <u0026 | |
324 clr <u0036 | |
325 lbsr L0691 | |
326 cmpa #$0D | |
327 beq L0260 | |
328 lbsr L015A | |
329 bcs L0259 | |
330 lda #$01 | |
331 stx <u0032 | |
332 os9 I$Open | |
333 bcs L024B | |
334 ldb #$01 | |
335 std <u0000 | |
336 pshs x | |
337 leay >u00F7,u | |
338 leax >L139F,pcr | |
339 ldd #$0007 | |
340 lbsr L0B96 | |
341 pshs y | |
342 ldx <u0032 | |
343 L020F cmpx $02,s | |
344 beq L0220 | |
345 lda ,x+ | |
346 sta ,y+ | |
347 cmpa #$2F | |
348 bne L020F | |
349 sty ,s | |
350 bra L020F | |
351 L0220 puls y | |
352 leax >L13A7,pcr | |
353 ldd #$0008 | |
354 lbsr L0B96 | |
355 ldx <u0032 | |
356 ldd ,s | |
357 subd <u0032 | |
358 sty <u0032 | |
359 lbsr L0B96 | |
360 lda #$0D | |
361 sta ,y | |
362 puls x | |
363 lbsr L0691 | |
364 cmpa #$0D | |
365 bne L024B | |
366 leax >u00FE,u | |
367 inc <u0036 | |
368 L024B ldd #$020B | |
369 os9 I$Create | |
370 bcs L025B | |
371 ldb #$02 | |
372 std <u0002 | |
373 bra L0260 | |
374 L0259 ldb #$D8 | |
203 | 375 L025B orcc #Carry |
195 | 376 os9 F$Exit |
377 L0260 ldy #$0000 | |
378 sty <u0024 | |
379 lda #$42 | |
380 lbsr L06EA | |
381 lbsr L073F | |
382 lda #$42 | |
383 ldy #$0001 | |
384 lbsr L06EA | |
385 leax >L0053,pcr | |
386 ldu <u0012 | |
387 os9 F$Icpt | |
388 tst <u0001 | |
389 beq L028F | |
390 ldd <u001E | |
391 subd <u001C | |
392 subd #$0400 | |
393 lbsr L0F43 | |
394 L028F lbsr L00FD | |
395 L0292 ldu <u0012 | |
396 leas >u041E,u | |
397 leax >u029E,u | |
398 stx <u0045 | |
399 stx <u0047 | |
400 leax <-$28,x | |
401 stx <u0049 | |
402 lda #$FF | |
403 sta <u0041 | |
404 sta <u0023 | |
405 lda <u0040 | |
406 sta <u003E | |
407 clr <u003B | |
408 clr <u003A | |
409 clr <u003C | |
410 lda #$01 | |
411 sta <u0037 | |
412 tst <u003D | |
413 beq L02CB | |
414 tst <u0039 | |
415 bne L02CB | |
416 leax >L1398,pcr | |
417 lbsr L00EF | |
418 lbsr L00FF | |
419 L02CB clr <u003D | |
420 clr <u0039 | |
421 lbsr L0059 | |
422 leax >u0177,u | |
423 lbsr L0130 | |
424 leay d,x | |
425 sty <u002B | |
426 ldy #$0000 | |
427 sty <u0029 | |
428 leau >u0276,u | |
429 stu <u0027 | |
430 lda ,x | |
431 cmpa #$20 | |
432 bne L02F8 | |
433 leax $01,x | |
434 lbsr L0BDE | |
435 bra L0292 | |
436 L02F8 cmpa #$0D | |
437 bne L0308 | |
438 ldx <u001A | |
439 lbsr L06B2 | |
440 stx <u001A | |
441 lbsr L008B | |
442 bra L0292 | |
443 L0308 bsr L0310 | |
444 lbsr L00FF | |
445 lbra L0292 | |
446 L0310 ldd <u0043 | |
447 pshs b,a | |
448 ldd <u0045 | |
449 std <u0043 | |
450 pshs b,a | |
451 lda <u003E | |
452 pshs a | |
453 clr <u002F | |
454 inc <u0041 | |
455 L0322 cmpx <u002B | |
456 lbcc L03B8 | |
457 lbsr L0691 | |
458 cmpa #$0D | |
459 bne L0335 | |
460 leax $01,x | |
461 clr <u002F | |
462 bra L0322 | |
463 L0335 ldd <u0027 | |
464 pshs b,a | |
465 stu <u0027 | |
466 ldd <u0029 | |
467 pshs b,a | |
468 ldd <u002B | |
469 pshs b,a | |
470 pshs u | |
471 lbsr L0691 | |
472 sta <u0038 | |
473 lbsr L03D3 | |
474 pshs x | |
475 pshs u | |
476 leax <L039D,pcr | |
477 pshu x | |
478 pshu u | |
479 tfr d,x | |
480 lda <u0038 | |
481 tst <u003B | |
482 bne L0372 | |
483 tst <u003C | |
484 bne L0372 | |
485 tst <u003D | |
486 beq L0397 | |
487 tst <u003A | |
488 bne L0372 | |
489 cmpa #$3A | |
490 bne L0372 | |
491 stb <u003D | |
492 L0372 cmpa #$5B | |
493 bne L0378 | |
494 inc <u003A | |
495 L0378 cmpa #$5D | |
496 bne L039D | |
497 dec <u003A | |
498 bpl L039D | |
499 tst <u003C | |
500 bne L0395 | |
501 lbsr L0964 | |
502 tst <u003B | |
503 bne L038F | |
504 clr <u003D | |
505 bra L039D | |
506 L038F clr <u003B | |
507 bra L039D | |
508 bra L039D | |
509 L0395 clr <u003C | |
510 L0397 lda <u0041 | |
511 clr <u0039 | |
512 jsr ,y | |
513 L039D puls u | |
514 puls x | |
515 puls u | |
516 puls b,a | |
517 std <u002B | |
518 puls b,a | |
519 std <u0029 | |
520 puls b,a | |
521 std <u0027 | |
522 tst <u0023 | |
523 lbeq L127B | |
524 lbra L0322 | |
525 L03B8 dec <u0041 | |
526 puls a | |
527 sta <u003E | |
528 puls b,a | |
529 std <u0045 | |
530 puls b,a | |
531 std <u0043 | |
532 tst <u003D | |
533 beq L03D2 | |
534 lda #$01 | |
535 sta <u003D | |
536 clr <u003C | |
537 clr <u003B | |
538 L03D2 rts | |
539 L03D3 lbsr L0691 | |
540 bsr L040E | |
541 beq L0400 | |
542 leax $01,x | |
543 lbsr L04A1 | |
544 lbeq L1269 | |
545 pshs y | |
546 tfr d,y | |
547 ldd ,y | |
548 leay d,y | |
549 sty <u002B | |
550 ldy ,s | |
551 lbsr L04F4 | |
552 tfr y,d | |
553 puls y | |
554 sty <u0029 | |
555 leay >L0310,pcr | |
556 rts | |
557 L0400 pshs b,a | |
558 lbsr L04F4 | |
559 ldd #$0000 | |
560 std <u0029 | |
561 std <u002B | |
562 puls pc,y | |
563 L040E ldb ,x+ | |
564 lbsr L04D0 | |
565 tfr a,b | |
566 L0415 ldy <u0012 | |
567 leay <$4D,y | |
568 cmpb #$2E | |
569 bne L0425 | |
570 ldy <u0012 | |
571 leay <$6B,y | |
572 L0425 sty <u004B | |
573 ldy ,y | |
574 L042B lda ,y | |
575 bne L043C | |
576 ldy <u004B | |
577 leay $04,y | |
578 sty <u004B | |
579 ldy ,y | |
580 beq L045D | |
581 L043C cmpb #$2E | |
582 beq L0446 | |
583 cmpb ,y+ | |
584 bne L044A | |
585 bra L044E | |
586 L0446 bsr L046B | |
587 beq L044E | |
588 L044A bsr L0462 | |
589 bra L042B | |
590 L044E pshs y | |
591 bsr L0462 | |
592 ldd -$02,y | |
593 ldy <u004B | |
594 addd $02,y | |
203 | 595 orcc #Zero |
195 | 596 puls pc,y |
597 L045D leax -$01,x | |
203 | 598 andcc #^Zero |
195 | 599 rts |
600 L0462 lda ,y+ | |
601 cmpa #$0D | |
602 bne L0462 | |
603 leay $02,y | |
604 rts | |
605 L046B pshs y,x,b,a | |
606 lda ,y | |
607 bsr L04DA | |
608 bne L049D | |
609 L0473 sty $04,s | |
610 lda ,y+ | |
611 bsr L04D0 | |
612 bne L0491 | |
613 pshs a | |
614 lda ,x+ | |
615 bsr L04D0 | |
616 cmpa ,s+ | |
617 beq L0473 | |
618 L0486 sty $04,s | |
619 lda ,y+ | |
620 bsr L04DA | |
621 beq L0486 | |
622 bra L049D | |
623 L0491 lda ,x | |
624 bsr L04DA | |
625 beq L049D | |
626 stx $02,s | |
203 | 627 orcc #Zero |
195 | 628 bra L049F |
203 | 629 L049D andcc #^Zero |
195 | 630 L049F puls pc,y,x,b,a |
631 L04A1 pshs u | |
632 ldu <u0014 | |
633 lbsr L0691 | |
634 L04A8 lda u0004,u | |
635 cmpa #$4D | |
636 bne L04C0 | |
637 leay u000B,u | |
638 lbsr L069A | |
639 bsr L046B | |
640 beq L04C4 | |
641 ldd ,u | |
642 leau d,u | |
643 cmpu <u001C | |
644 bcs L04A8 | |
203 | 645 L04C0 orcc #Zero |
195 | 646 puls pc,u |
647 L04C4 lbsr L069A | |
648 lbsr L0691 | |
649 tfr u,d | |
203 | 650 andcc #^Zero |
195 | 651 puls pc,u |
652 L04D0 cmpa #$61 | |
653 bcs L04DA | |
654 cmpa #$7A | |
655 bhi L04DA | |
656 suba #$20 | |
657 L04DA cmpa #$5F | |
658 beq L04EE | |
659 cmpa #$41 | |
660 bcs L04F1 | |
661 cmpa #$5A | |
662 bls L04EE | |
663 cmpa #$61 | |
664 bcs L04F1 | |
665 cmpa #$7A | |
666 bhi L04F1 | |
203 | 667 L04EE orcc #Zero |
195 | 668 rts |
203 | 669 L04F1 andcc #^Zero |
195 | 670 rts |
671 L04F4 clr <u0042 | |
672 pshs b,a | |
673 L04F8 lbsr L069A | |
674 lbsr L0691 | |
675 bsr L052B | |
676 L0500 cmpa #$0D | |
677 beq L0525 | |
678 cmpa #$4C | |
679 bne L050F | |
680 pshu x | |
681 lbsr L06C2 | |
682 bra L0525 | |
683 L050F cmpa #$23 | |
684 bne L0517 | |
685 bsr L0540 | |
686 bra L04F8 | |
687 L0517 cmpa #$24 | |
688 lbne L1287 | |
689 L051D bsr L0553 | |
690 cmpa #$24 | |
691 beq L051D | |
692 bra L0500 | |
693 L0525 ldb <u0042 | |
694 pshu b | |
695 puls pc,b,a | |
696 L052B lbsr L069A | |
697 pshs a | |
698 cmpa #$0D | |
699 beq L053E | |
700 inc <u0042 | |
701 L0536 leay $01,y | |
702 lda ,y | |
703 bsr L04DA | |
704 beq L0536 | |
705 L053E puls pc,a | |
706 L0540 pshs b,a | |
707 lda ,x | |
708 cmpa #$23 | |
709 bne L054C | |
710 bsr L05B3 | |
711 bra L0551 | |
712 L054C lbsr L05D6 | |
713 pshu b,a | |
714 L0551 puls pc,b,a | |
715 L0553 pshs b | |
716 lbsr L0691 | |
717 cmpa #$24 | |
718 bne L0562 | |
719 bsr L05B3 | |
720 bsr L052B | |
721 bra L057E | |
722 L0562 pshu x | |
723 lbsr L0122 | |
724 leax d,x | |
725 leax $02,x | |
726 bsr L052B | |
727 cmpa #$24 | |
728 bne L057E | |
729 pshs x,a | |
730 lbsr L0691 | |
731 cmpa #$24 | |
732 puls x,a | |
733 beq L057E | |
734 leax -$01,x | |
735 L057E puls pc,b | |
736 L0580 pshs y,x,a | |
737 ldy <u0029 | |
738 ldb #$00 | |
739 L0587 lbsr L069A | |
740 cmpa #$0D | |
741 beq L05AB | |
742 lbsr L0691 | |
743 addb #$01 | |
744 lda ,x+ | |
745 cmpa ,y+ | |
746 bne L059E | |
747 lbsr L046B | |
748 beq L05AD | |
749 L059E ldx $01,s | |
750 L05A0 lda ,y+ | |
751 lbsr L04DA | |
752 beq L05A0 | |
753 leay -$01,y | |
754 bra L0587 | |
755 L05AB ldb #$00 | |
756 L05AD stx $01,s | |
757 cmpb #$00 | |
758 puls pc,y,x,a | |
759 L05B3 pshs y | |
760 lda ,x | |
761 cmpa #$24 | |
762 beq L05C1 | |
763 cmpa #$23 | |
764 lbne L1287 | |
765 L05C1 bsr L0580 | |
766 lbeq L1290 | |
767 ldy <u0027 | |
768 negb | |
769 addb $04,y | |
770 lslb | |
771 leay $05,y | |
772 ldd b,y | |
773 pshu b,a | |
774 puls pc,y | |
775 L05D6 lda ,x | |
776 cmpa #$2A | |
777 bne L05E3 | |
778 leax $01,x | |
779 ldd #$FFFF | |
780 bra L05F3 | |
781 L05E3 ldd #$0000 | |
782 bsr L0600 | |
783 bne L05EF | |
784 ldd #$0001 | |
785 bra L05F3 | |
786 L05EF bsr L0600 | |
787 bne L05EF | |
788 L05F3 rts | |
789 L05F4 beq L0606 | |
790 com <u00E8 | |
791 neg <u0064 | |
792 neg <u000A | |
793 neg <u0001 | |
794 neg <u0000 | |
795 L0600 pshs y,b,a | |
796 ldb ,x | |
797 subb #$30 | |
798 L0606 cmpb #$0A | |
799 bcc L0622 | |
800 leax $01,x | |
801 lda #$00 | |
802 ldy #$000A | |
803 L0612 addd ,s | |
804 lbcs L1266 | |
805 leay -$01,y | |
806 bne L0612 | |
807 std ,s | |
203 | 808 andcc #^Zero |
195 | 809 puls pc,y,b,a |
203 | 810 L0622 orcc #Zero |
195 | 811 puls pc,y,b,a |
812 L0626 pshs y,x,b,a | |
813 leax >L05F4,pcr | |
814 ldy #$2F20 | |
815 L0630 leay >$0100,y | |
816 subd ,x | |
817 bcc L0630 | |
818 addd ,x++ | |
819 pshs b,a | |
820 ldd ,x | |
821 tfr y,d | |
822 beq L0659 | |
823 ldy #$2F30 | |
824 cmpd #$3020 | |
825 bne L0652 | |
826 ldy #$2F20 | |
827 tfr b,a | |
828 L0652 lbsr L0107 | |
829 puls b,a | |
830 bra L0630 | |
831 L0659 lbsr L0107 | |
832 leas $02,s | |
833 puls pc,y,x,b,a | |
834 L0660 pshs x,b,a | |
835 ldx <u0027 | |
836 ldd -$02,x | |
837 puls pc,x,b,a | |
838 L0668 pshs x,b,a | |
839 tst <u0023 | |
840 beq L0683 | |
841 ldx <u0027 | |
842 ldd -$02,x | |
843 beq L0683 | |
844 cmpd #$FFFF | |
845 bne L067E | |
203 | 846 andcc #^Zero |
195 | 847 bra L0683 |
848 L067E subd #$0001 | |
849 std -$02,x | |
850 L0683 puls pc,x,b,a | |
851 L0685 pshs x,b,a | |
852 ldx <u0027 | |
853 ldd -$02,x | |
854 cmpd #$FFFF | |
855 puls pc,x,b,a | |
856 L0691 lda ,x+ | |
857 cmpa #$20 | |
858 beq L0691 | |
859 leax -$01,x | |
860 rts | |
861 L069A lda ,y+ | |
862 cmpa #$20 | |
863 beq L069A | |
864 leay -$01,y | |
865 rts | |
866 L06A3 pshs b,a | |
867 ldd <u001C | |
868 sty <u001C | |
869 bsr L06B2 | |
870 pshs cc | |
871 std <u001C | |
872 puls pc,b,a,cc | |
873 L06B2 pshs a | |
874 L06B4 cmpx <u001C | |
875 beq L06C0 | |
876 lda ,x+ | |
877 cmpa #$0D | |
878 bne L06B4 | |
203 | 879 andcc #^Zero |
195 | 880 L06C0 puls pc,a |
881 L06C2 cmpx <u001C | |
882 beq L06CE | |
883 bsr L06B2 | |
884 cmpx <u0018 | |
885 beq L06CE | |
886 leax -$01,x | |
203 | 887 L06CE andcc #^Zero |
195 | 888 rts |
889 L06D1 bsr L06D7 | |
890 beq L06E9 | |
891 leax -$01,x | |
892 L06D7 pshs a | |
893 L06D9 cmpx <u0018 | |
894 beq L06E7 | |
895 lda ,-x | |
896 cmpa #$0D | |
897 bne L06D9 | |
898 leax $01,x | |
203 | 899 andcc #^Zero |
195 | 900 L06E7 puls a |
901 L06E9 rts | |
902 L06EA pshs y,x,b,a | |
903 ldd #$000B | |
904 ldy <u001C | |
905 lbsr L0BC0 | |
906 leax d,y | |
907 sty <u0016 | |
908 stx <u001C | |
909 stx <u0018 | |
910 stx <u001A | |
911 std ,y | |
912 std $02,y | |
913 lda ,s | |
914 sta $04,y | |
915 ldd $04,s | |
916 std $05,y | |
917 ldd <u0000 | |
918 std <u0004 | |
919 ldd <u0002 | |
920 std <u0006 | |
921 puls pc,y,x,b,a | |
922 L0716 pshs y,x,b,a | |
923 stx <u001A | |
924 ldd ,x | |
925 lbsr L0BEC | |
926 nega | |
927 negb | |
928 sbca #$00 | |
929 ldx <u001C | |
930 leax d,x | |
931 stx <u0016 | |
932 leay $0B,x | |
933 sty <u0018 | |
934 ldd $02,x | |
935 leay d,x | |
936 sty <u001A | |
937 ldd $07,x | |
938 std <u0004 | |
939 ldd $09,x | |
940 std <u0006 | |
941 puls pc,y,x,b,a | |
942 L073F pshs y,x,b,a | |
943 ldx <u0016 | |
944 ldd <u001C | |
945 subd <u0016 | |
946 std ,x | |
947 ldd <u001A | |
948 subd <u0016 | |
949 std $02,x | |
950 ldd <u0004 | |
951 std $07,x | |
952 ldd <u0006 | |
953 std $09,x | |
954 lda $04,x | |
955 cmpa #$42 | |
956 bne L0763 | |
957 ldd $05,x | |
958 std <u0024 | |
959 bra L076E | |
960 L0763 ldy <u0014 | |
961 sty <u001A | |
962 ldd ,x | |
963 lbsr L0C38 | |
964 L076E puls pc,y,x,b,a | |
965 L0770 pshs b,a | |
966 ldx <u0014 | |
967 L0774 lda $04,x | |
968 cmpa #$42 | |
969 bne L0781 | |
970 ldd ,s | |
971 cmpd $05,x | |
972 beq L0788 | |
973 L0781 lbsr L089B | |
974 bcs L0774 | |
203 | 975 andcc #^Zero |
195 | 976 L0788 puls pc,b,a |
977 ldx <u0012 | |
978 ldd u0005,u | |
979 addd #$041F | |
980 leax d,x | |
981 cmpx <u001C | |
982 bls L07A1 | |
983 os9 F$Mem | |
984 lbcs L12AA | |
985 sty <u001E | |
986 L07A1 pulu pc,u | |
987 lbsr L0922 | |
988 lbsr L00FF | |
989 ldd <u001C | |
990 subd <u0014 | |
991 lbsr L0626 | |
992 lda #$20 | |
993 lbsr L0107 | |
994 lbsr L0107 | |
995 ldd <u001E | |
996 subd <u0014 | |
997 lbsr L0626 | |
998 lbsr L00FF | |
999 lbra L0929 | |
1000 ldx <u0016 | |
1001 lda $04,x | |
1002 cmpa #$42 | |
1003 lbne L127E | |
1004 ldd <u001C | |
1005 subd <u0016 | |
1006 std ,x | |
1007 ldd u0005,u | |
1008 cmpd $05,x | |
1009 beq L07F9 | |
1010 bsr L0770 | |
1011 beq L07F3 | |
1012 ldd #$000B | |
1013 lbsr L0BC0 | |
1014 lbsr L073F | |
1015 lda #$42 | |
1016 ldy u0005,u | |
1017 lbsr L06EA | |
1018 pulu pc,u | |
1019 L07F3 lbsr L073F | |
1020 lbsr L0716 | |
1021 L07F9 pulu pc,u | |
1022 tst <u0041 | |
1023 lbne L127E | |
1024 ldx <u0016 | |
1025 lda $04,x | |
1026 cmpa #$42 | |
1027 lbne L127E | |
1028 ldx $05,x | |
1029 ldy <u0024 | |
1030 pshs y,x | |
1031 ldx u0005,u | |
1032 lbsr L0691 | |
1033 cmpa $01,x | |
1034 bne L0825 | |
1035 lbsr L073F | |
1036 lda #$4D | |
1037 lbsr L06EA | |
1038 bra L0836 | |
1039 L0825 leax $01,x | |
1040 lbsr L04A1 | |
1041 lbeq L1278 | |
1042 lbsr L073F | |
1043 tfr d,x | |
1044 lbsr L0716 | |
1045 L0836 puls y,x | |
1046 stx <u0024 | |
1047 sty <u002D | |
1048 lda #$4D | |
1049 sta <u0026 | |
1050 pulu pc,u | |
1051 lbsr L0922 | |
1052 leax >L13C6,pcr | |
1053 lbsr L00EF | |
1054 ldx <u0014 | |
1055 L084F ldb $04,x | |
1056 cmpb #$42 | |
1057 bne L0873 | |
1058 ldd $05,x | |
1059 cmpx <u0016 | |
1060 beq L0863 | |
1061 cmpd <u0024 | |
1062 beq L0866 | |
1063 lda #$20 | |
1064 fcb $8C | |
1065 L0863 fdb $862A | |
1066 fcb $8C | |
1067 L0866 fdb $8624 | |
1068 lbsr L0107 | |
1069 ldd $05,x | |
1070 lbsr L0626 | |
1071 lbsr L00FF | |
1072 L0873 bsr L089B | |
1073 bcs L084F | |
1074 leax >L13BE,pcr | |
1075 lbsr L00EF | |
1076 ldx <u0014 | |
1077 L0880 pshs x | |
1078 lda $04,x | |
1079 cmpa #$4D | |
1080 bne L0893 | |
1081 leax $0B,x | |
1082 lbsr L008B | |
1083 puls x | |
1084 bsr L089B | |
1085 bcs L0880 | |
1086 L0893 lbsr L00FF | |
1087 lbsr L0929 | |
1088 pulu pc,u | |
1089 L089B pshs b,a | |
1090 ldd ,x | |
1091 leax d,x | |
1092 cmpx <u001C | |
1093 puls pc,b,a | |
1094 tst <u0041 | |
1095 lbne L127E | |
1096 ldx u0005,u | |
1097 lda ,x+ | |
1098 pshs a | |
1099 lbsr L0691 | |
1100 lbsr L04A1 | |
1101 lbeq L1278 | |
1102 tfr d,y | |
1103 ldd ,y | |
1104 ldx <u001A | |
1105 pshs x,b,a | |
1106 sty <u001A | |
1107 lbsr L0BEC | |
1108 ldd <u0016 | |
1109 subd ,s | |
1110 std <u0016 | |
1111 ldd <u0018 | |
1112 subd ,s | |
1113 std <u0018 | |
1114 ldd <u001C | |
1115 subd ,s | |
1116 std <u001C | |
1117 puls x | |
1118 puls b,a | |
1119 pshs x | |
1120 subd ,s++ | |
1121 std <u001A | |
1122 pulu pc,u | |
1123 pshs u | |
1124 ldx u0005,u | |
1125 lbsr L0130 | |
1126 tfr d,y | |
1127 tfr x,u | |
1128 leax <L090C,pcr | |
1129 lda #$01 | |
1130 ldb #$00 | |
1131 os9 F$Fork | |
1132 lbcs L12AA | |
1133 os9 F$Wait | |
1134 tstb | |
1135 lbne L12AA | |
1136 puls u | |
1137 pulu pc,u | |
1138 L090C fcc "SHELL" | |
1139 fcb C$CR | |
1140 L0912 fcb $ec,$45 | |
1141 beq L0918 | |
1142 lda #$01 | |
1143 L0918 sta <u003E | |
1144 tst <u0041 | |
1145 bne L0920 | |
1146 sta <u0040 | |
1147 L0920 pulu pc,u | |
1148 L0922 lda <u003E | |
1149 sta <u003F | |
1150 inc <u003E | |
1151 rts | |
1152 L0929 lda <u003F | |
1153 sta <u003E | |
1154 rts | |
1155 ldx ,u | |
1156 ldx $02,x | |
1157 ldy <u0045 | |
1158 cmpy <u0049 | |
1159 lbls L128D | |
1160 stx ,--y | |
1161 ldx #$0000 | |
1162 stx ,--y | |
1163 sty <u0045 | |
1164 pulu pc,u | |
1165 ldx <u0045 | |
1166 ldd ,x | |
1167 addd #$0001 | |
1168 std ,x | |
1169 cmpd u0005,u | |
1170 bcs L095A | |
1171 bsr L0964 | |
1172 pulu pc,u | |
1173 L095A ldy $02,x | |
1174 ldx ,u | |
1175 sty $02,x | |
1176 pulu pc,u | |
1177 L0964 pshs x | |
1178 ldx <u0045 | |
1179 leax $04,x | |
1180 cmpx <u0043 | |
1181 lbhi L128A | |
1182 stx <u0045 | |
1183 puls pc,x | |
1184 bsr L0922 | |
1185 ldx <u001A | |
1186 lbsr L0660 | |
1187 beq L098A | |
1188 L097D lbsr L008B | |
1189 lbsr L06B2 | |
1190 beq L098A | |
1191 lbsr L0668 | |
1192 bne L097D | |
1193 L098A bsr L0929 | |
1194 pulu pc,u | |
1195 bsr L0922 | |
1196 lbsr L0660 | |
1197 beq L09AF | |
1198 ldx <u001A | |
1199 lbsr L06D7 | |
1200 bra L09A1 | |
1201 L099C lbsr L06D1 | |
1202 beq L09A6 | |
1203 L09A1 lbsr L0668 | |
1204 bne L099C | |
1205 L09A6 pshs x | |
1206 ldd <u001A | |
1207 subd ,s++ | |
1208 lbsr L0094 | |
1209 L09AF lbsr L0929 | |
1210 pulu pc,u | |
1211 inc <u002F | |
1212 ldd u0005,u | |
1213 std <u0030 | |
1214 bne L09BE | |
1215 clr <u002F | |
1216 L09BE pulu pc,u | |
1217 L09C0 lbsr L06B2 | |
1218 beq L09D4 | |
1219 L09C5 pshs b,a | |
1220 ldd <u0030 | |
1221 lbsr L0B01 | |
1222 puls b,a | |
1223 bne L09C0 | |
1224 cmpx <u001A | |
1225 bcs L09C0 | |
1226 L09D4 rts | |
1227 L09D5 pshs y,x | |
1228 ldx <u0010 | |
1229 stx $02,s | |
1230 puls pc,x | |
1231 L09DD pshs y,b,a | |
1232 ldx <u001A | |
1233 lda ,y+ | |
1234 tst <u002F | |
1235 beq L09E9 | |
1236 bsr L09C5 | |
1237 L09E9 pshs y,x | |
1238 L09EB cmpa ,y | |
1239 beq L0A0B | |
1240 ldb ,y+ | |
1241 cmpx <u001C | |
1242 bcc L0A05 | |
1243 cmpb ,x+ | |
1244 beq L09EB | |
1245 puls y,x | |
1246 leax $01,x | |
1247 tst <u002F | |
1248 beq L09E9 | |
1249 bsr L09C0 | |
1250 bra L09E9 | |
203 | 1251 L0A05 orcc #Carry |
195 | 1252 bra L0A0B |
203 | 1253 andcc #^Carry |
195 | 1254 L0A0B puls y,x |
1255 puls pc,y,b,a | |
1256 L0A0F lbsr L1126 | |
1257 tst <u0041 | |
1258 bne L0A29 | |
1259 tst <u003D | |
1260 beq L0A29 | |
1261 inc <u0039 | |
1262 lbsr L0922 | |
1263 leax >L1318,pcr | |
1264 lbsr L00EF | |
1265 lbsr L0929 | |
1266 L0A29 pulu pc,u | |
1267 L0A2B pshs y,x,b,a | |
1268 lbsr L0660 | |
203 | 1269 andcc #^Carry |
195 | 1270 beq L0A4E |
1271 ldx u0005,u | |
1272 lbsr L0122 | |
1273 L0A39 ldy u0005,u | |
1274 bsr L09D5 | |
1275 bcs L0A4E | |
1276 lbsr L0082 | |
1277 leax d,x | |
1278 stx <u001A | |
1279 lbsr L0668 | |
1280 bne L0A39 | |
203 | 1281 andcc #^Carry |
195 | 1282 L0A4E puls pc,y,x,b,a |
1283 L0A50 pshs y,x,b,a | |
1284 lbsr L0660 | |
203 | 1285 andcc #^Carry |
195 | 1286 beq L0A94 |
1287 ldx u0005,u | |
1288 lbsr L0122 | |
1289 pshs b,a | |
1290 ldx u0007,u | |
1291 lbsr L0122 | |
1292 pshs b,a | |
1293 L0A67 ldd $02,s | |
1294 subd ,s | |
1295 lbsr L0BC0 | |
1296 ldy u0007,u | |
1297 lbsr L09D5 | |
1298 bcs L0A92 | |
1299 stx <u001A | |
1300 ldd ,s | |
1301 lbsr L100F | |
1302 ldx u0005,u | |
1303 leax $01,x | |
1304 ldd $02,s | |
1305 lbsr L0BE3 | |
1306 ldx <u001A | |
1307 lbsr L0082 | |
1308 lbsr L0668 | |
1309 bne L0A67 | |
203 | 1310 andcc #^Carry |
195 | 1311 L0A92 leas $04,s |
1312 L0A94 puls pc,y,x,b,a | |
1313 lbsr L0A2B | |
1314 lbcs L0A0F | |
1315 rts | |
1316 lbsr L0A50 | |
1317 lbcs L0A0F | |
1318 rts | |
1319 ldx <u001A | |
1320 lbsr L0A50 | |
1321 bra L0AB2 | |
1322 ldx <u001A | |
1323 lbsr L0A2B | |
1324 L0AB2 pshs cc | |
1325 cmpx <u001A | |
1326 beq L0ABF | |
1327 ldx <u001A | |
1328 lbsr L06D7 | |
1329 stx <u001A | |
1330 L0ABF puls cc | |
1331 lbcs L0A0F | |
1332 rts | |
1333 lbsr L0660 | |
1334 beq L0AFF | |
1335 ldx u0005,u | |
1336 lbsr L0122 | |
1337 leax $01,x | |
1338 L0AD2 pshs x,b,a | |
1339 ldx <u001A | |
1340 cmpx <u001C | |
1341 bcs L0ADF | |
1342 lbsr L1126 | |
1343 bra L0AFF | |
1344 L0ADF lbsr L06C2 | |
1345 ldd ,s | |
1346 lbsr L0BC0 | |
1347 stx <u001A | |
1348 ldx $02,s | |
1349 lbsr L0BE3 | |
1350 ldx <u001A | |
1351 lbsr L0082 | |
1352 lbsr L06B2 | |
1353 stx <u001A | |
1354 puls x,b,a | |
1355 lbsr L0668 | |
1356 bne L0AD2 | |
1357 L0AFF pulu pc,u | |
1358 L0B01 pshs y | |
1359 cmpd #$0000 | |
1360 beq L0B26 | |
1361 tfr d,y | |
1362 lbsr L06D7 | |
1363 L0B0E lda ,x | |
1364 cmpa #$0D | |
1365 beq L0B20 | |
1366 cmpx <u001C | |
1367 bcc L0B20 | |
1368 leax $01,x | |
1369 leay -$01,y | |
1370 bne L0B0E | |
1371 leax -$01,x | |
1372 L0B20 tfr y,d | |
1373 cmpd #$0000 | |
1374 L0B26 puls pc,y | |
1375 lbsr L0660 | |
1376 beq L0B5C | |
1377 ldx <u001A | |
1378 ldd u0005,u | |
1379 bsr L0B01 | |
1380 stx <u001A | |
1381 std u0005,u | |
1382 beq L0B5C | |
1383 tfr d,y | |
1384 lbsr L0668 | |
1385 beq L0B5C | |
1386 leay -$01,y | |
1387 lda #$20 | |
1388 ldx <u001C | |
1389 pshs x | |
1390 L0B48 cmpx <u001E | |
1391 lbcc L126F | |
1392 sta ,x+ | |
1393 lbsr L0668 | |
1394 bne L0B48 | |
1395 tfr y,d | |
1396 puls x | |
1397 lbsr L0BE3 | |
1398 L0B5C pulu pc,u | |
1399 lbsr L0660 | |
1400 beq L0B94 | |
1401 ldx <u001A | |
1402 lbsr L06D7 | |
1403 pshs x | |
1404 ldx u0005,u | |
1405 lbsr L0122 | |
1406 leax $01,x | |
1407 ldy <u001C | |
1408 L0B74 bsr L0B96 | |
1409 lbeq L126F | |
1410 lbsr L0668 | |
1411 bne L0B74 | |
1412 ldx <u001C | |
1413 tfr y,d | |
1414 subd <u001C | |
1415 bsr L0BE3 | |
1416 lda #$0D | |
1417 bsr L0BB5 | |
1418 ldx ,s | |
1419 ldd <u001A | |
1420 subd ,s++ | |
1421 lbsr L0094 | |
1422 L0B94 pulu pc,u | |
1423 L0B96 pshs u,x,b,a | |
1424 tfr d,u | |
1425 L0B9A cmpy <u001E | |
1426 bcc L0BB1 | |
1427 cmpu #$0000 | |
1428 beq L0BAD | |
1429 lda ,x+ | |
1430 sta ,y+ | |
1431 leau -u0001,u | |
1432 bra L0B9A | |
203 | 1433 L0BAD andcc #^Zero |
195 | 1434 puls pc,u,x,b,a |
203 | 1435 L0BB1 orcc #Zero |
195 | 1436 puls pc,u,x,b,a |
1437 L0BB5 pshs x,b,a | |
1438 tfr s,x | |
1439 ldd #$0001 | |
1440 bsr L0BE3 | |
1441 puls pc,x,b,a | |
1442 L0BC0 pshs x | |
1443 ldx <u001C | |
1444 leax d,x | |
1445 cmpx <u001E | |
1446 lbcc L126F | |
1447 puls pc,x | |
1448 L0BCE pshs y | |
1449 ldy <u001C | |
1450 bsr L0B96 | |
1451 lbeq L126F | |
1452 sty <u001C | |
1453 puls pc,y | |
1454 L0BDE lda #$0D | |
1455 lbsr L0132 | |
1456 L0BE3 bsr L0BCE | |
1457 bsr L0C38 | |
1458 addd <u001A | |
1459 std <u001A | |
1460 rts | |
1461 L0BEC pshs u,y,x,b,a | |
1462 cmpd #$0000 | |
1463 beq L0C36 | |
1464 std <u00CF | |
1465 ldd <u001A | |
1466 subd <u001C | |
1467 tfr d,y | |
1468 addd ,s | |
1469 std <u00D1 | |
1470 ldd <u001C | |
1471 subd <u00CF | |
1472 std <u00D3 | |
1473 ldx <u001C | |
1474 lda ,-x | |
1475 stx <u00D5 | |
1476 sta <u00CD | |
1477 bra L0C22 | |
1478 L0C10 cmpx <u00D5 | |
1479 bne L0C1E | |
1480 lda <u00CD | |
1481 sta ,u | |
1482 lda ,-x | |
1483 stx <u00D5 | |
1484 sta <u00CD | |
1485 L0C1E leay $01,y | |
1486 beq L0C36 | |
1487 L0C22 ldd <u00D1 | |
1488 L0C24 tfr x,u | |
1489 leax d,x | |
1490 lda ,x | |
1491 sta ,u | |
1492 cmpx <u00D3 | |
1493 bcc L0C10 | |
1494 ldd <u00CF | |
1495 leay $01,y | |
1496 bne L0C24 | |
1497 L0C36 puls pc,u,y,x,b,a | |
1498 L0C38 pshs b,a | |
1499 ldd <u001C | |
1500 subd <u001A | |
1501 subd ,s | |
1502 bsr L0BEC | |
1503 puls pc,b,a | |
1504 lbsr L0660 | |
1505 beq L0CAF | |
1506 ldd <u0024 | |
1507 lbsr L0770 | |
1508 pshs x | |
1509 ldd ,x | |
1510 leay d,x | |
1511 leax $0B,x | |
1512 pshs x | |
1513 L0C58 pshs y | |
1514 cmpx ,s++ | |
1515 bne L0C63 | |
1516 lbsr L1126 | |
1517 bra L0C6D | |
1518 L0C63 lbsr L06A3 | |
1519 beq L0C6D | |
1520 lbsr L0668 | |
1521 bne L0C58 | |
1522 L0C6D tfr x,d | |
1523 subd ,s | |
1524 puls y,x | |
1525 pshs b,a | |
1526 lbsr L0094 | |
1527 ldd $02,y | |
1528 subd #$000B | |
1529 subd ,s | |
1530 bcc L0C84 | |
1531 ldd #$0000 | |
1532 L0C84 addd #$000B | |
1533 std $02,y | |
1534 ldd ,y | |
1535 subd ,s | |
1536 std ,y | |
1537 ldd <u0016 | |
1538 subd ,s | |
1539 std <u0016 | |
1540 ldd <u0018 | |
1541 subd ,s | |
1542 std <u0018 | |
1543 puls b,a | |
1544 ldy <u001A | |
1545 stx <u001A | |
1546 ldx <u001C | |
1547 sty <u001C | |
1548 lbsr L0BEC | |
1549 stx <u001C | |
1550 sty <u001A | |
1551 L0CAF pulu pc,u | |
1552 lbsr L0660 | |
1553 beq L0D0D | |
1554 ldx <u001C | |
1555 pshs x | |
1556 ldd <u0024 | |
1557 lbsr L0770 | |
1558 pshs x | |
1559 ldx <u001A | |
1560 pshs x | |
1561 L0CC5 cmpx <u001C | |
1562 bcs L0CCE | |
1563 lbsr L1126 | |
1564 bra L0CD8 | |
1565 L0CCE lbsr L06B2 | |
1566 beq L0CD8 | |
1567 lbsr L0668 | |
1568 bne L0CC5 | |
1569 L0CD8 tfr x,d | |
1570 subd ,s | |
1571 puls y,x | |
1572 lbsr L0094 | |
1573 leax d,x | |
1574 pshs x,b,a | |
1575 stx <u001C | |
1576 ldd ,y | |
1577 addd ,s | |
1578 std ,y | |
1579 ldd $02,y | |
1580 leax d,y | |
1581 stx <u001A | |
1582 addd ,s | |
1583 std $02,y | |
1584 ldd <u0016 | |
1585 addd ,s | |
1586 std <u0016 | |
1587 ldd <u0018 | |
1588 addd ,s | |
1589 std <u0018 | |
1590 puls y,x,b,a | |
1591 lbsr L0C38 | |
1592 stx <u001A | |
1593 sty <u001C | |
1594 L0D0D pulu pc,u | |
1595 tst <u0005 | |
1596 beq L0D4D | |
1597 lbsr L0660 | |
1598 beq L0D7A | |
1599 ldx <u001C | |
1600 L0D1A leay >$0080,x | |
1601 cmpy <u001E | |
1602 bls L0D28 | |
1603 bsr L0D68 | |
1604 lbra L126F | |
1605 L0D28 lda <u0004 | |
1606 ldy #$0080 | |
1607 os9 I$ReadLn | |
1608 bcc L0D5F | |
1609 pshs b | |
1610 bsr L0D68 | |
1611 puls b | |
1612 cmpb #$D3 | |
1613 lbne L12AA | |
1614 ldd <u0004 | |
1615 cmpd <u0000 | |
1616 beq L0D4D | |
1617 os9 I$Close | |
1618 lbcs L12AA | |
1619 L0D4D clr <u0005 | |
1620 lbsr L1126 | |
1621 tst <u0041 | |
1622 bne L0D5D | |
1623 leax >L138A,pcr | |
1624 lbsr L00EF | |
1625 L0D5D bra L0D7A | |
1626 L0D5F tfr y,d | |
1627 leax d,x | |
1628 lbsr L0668 | |
1629 bne L0D1A | |
1630 L0D68 tfr x,d | |
1631 subd <u001C | |
1632 ldx <u001A | |
1633 pshs x,b,a | |
1634 ldx <u001C | |
1635 lbsr L0BE3 | |
1636 puls x,b,a | |
1637 lbsr L0094 | |
1638 L0D7A rts | |
1639 tst <u0007 | |
1640 lbeq L1275 | |
1641 lbsr L0660 | |
1642 beq L0DB5 | |
1643 ldy <u001A | |
1644 L0D89 tfr y,x | |
1645 lbsr L0130 | |
1646 bne L0D9D | |
1647 bsr L0DA9 | |
1648 lbsr L1126 | |
1649 leax >L137C,pcr | |
1650 lbsr L00EF | |
1651 rts | |
1652 L0D9D leay d,x | |
1653 lda <u0006 | |
1654 lbsr L00C8 | |
1655 lbsr L0668 | |
1656 bne L0D89 | |
1657 L0DA9 ldx <u001A | |
1658 tfr y,d | |
1659 subd <u001A | |
1660 lbsr L0094 | |
1661 lbsr L100F | |
1662 L0DB5 rts | |
1663 ldd <u0004 | |
1664 cmpd <u0000 | |
1665 beq L0DC9 | |
1666 tstb | |
1667 beq L0DC9 | |
1668 os9 I$Close | |
1669 lbcs L12AA | |
1670 clr <u0005 | |
1671 L0DC9 ldx u0005,u | |
1672 ldb ,x+ | |
1673 cmpb ,x | |
1674 bne L0DD7 | |
1675 ldd <u0000 | |
1676 std <u0004 | |
1677 pulu pc,u | |
1678 L0DD7 lbsr L0EC6 | |
1679 lbne L12A8 | |
1680 lda #$01 | |
1681 os9 I$Open | |
1682 lbcs L12AA | |
1683 ldb #$01 | |
1684 std <u0004 | |
1685 pulu pc,u | |
1686 ldd <u0006 | |
1687 cmpd <u0002 | |
1688 beq L0E00 | |
1689 tstb | |
1690 beq L0E00 | |
1691 os9 I$Close | |
1692 lbcs L12AA | |
1693 clr <u0007 | |
1694 L0E00 ldx u0005,u | |
1695 ldb ,x+ | |
1696 cmpb ,x | |
1697 bne L0E0E | |
1698 ldd <u0002 | |
1699 std <u0006 | |
1700 pulu pc,u | |
1701 L0E0E lbsr L0EC6 | |
1702 lbne L12A8 | |
1703 ldd #$021B | |
1704 os9 I$Create | |
1705 lbcs L12AA | |
1706 ldb #$01 | |
1707 std <u0006 | |
1708 pulu pc,u | |
1709 ldx u0005,u | |
1710 ldb ,x+ | |
1711 lbsr L0EC6 | |
1712 lbne L12A8 | |
1713 lda #$01 | |
1714 os9 I$Open | |
1715 lbcs L12AA | |
1716 sta <u0008 | |
1717 L0E3B ldx <u001C | |
1718 ldy #$000B | |
1719 bsr L0EB7 | |
1720 lda <u0008 | |
1721 os9 I$Read | |
1722 bcs L0E6E | |
1723 lda $04,x | |
1724 cmpa #$4D | |
1725 beq L0E58 | |
1726 ldd $05,x | |
1727 beq L0E58 | |
1728 ldb #$D3 | |
1729 bra L0E6E | |
1730 L0E58 clr $08,x | |
1731 clr $0A,x | |
1732 ldd ,x | |
1733 subd #$000B | |
1734 tfr d,y | |
1735 leax $0B,x | |
1736 bsr L0EB7 | |
1737 lda <u0008 | |
1738 os9 I$Read | |
1739 bcc L0E7F | |
1740 L0E6E pshs b | |
1741 lda <u0008 | |
1742 os9 I$Close | |
1743 puls b | |
1744 cmpb #$D3 | |
1745 lbne L12AA | |
1746 pulu pc,u | |
1747 L0E7F lbsr L0691 | |
1748 pshs x | |
1749 lbsr L04A1 | |
1750 puls x | |
1751 bne L0E3B | |
1752 lbsr L008B | |
1753 ldx <u001C | |
1754 ldd ,x | |
1755 ldy <u001A | |
1756 leax d,x | |
1757 stx <u001C | |
1758 pshs y,b,a | |
1759 ldx <u0014 | |
1760 stx <u001A | |
1761 lbsr L0C38 | |
1762 ldd <u0016 | |
1763 addd ,s | |
1764 std <u0016 | |
1765 ldd <u0018 | |
1766 addd ,s | |
1767 std <u0018 | |
1768 puls y,b,a | |
1769 leay d,y | |
1770 sty <u001A | |
1771 bra L0E3B | |
1772 L0EB7 pshs y,b,a | |
1773 tfr y,d | |
1774 leay d,x | |
1775 cmpy <u001E | |
1776 lbcc L126F | |
1777 puls pc,y,b,a | |
1778 L0EC6 lbsr L0691 | |
1779 pshs y,x | |
1780 leay ,x | |
1781 L0ECD cmpb ,y+ | |
1782 bne L0ECD | |
1783 pshs y | |
1784 lbsr L015A | |
1785 bcs L0EE1 | |
1786 cmpy ,s++ | |
1787 bcc L0EE1 | |
203 | 1788 orcc #Zero |
195 | 1789 puls pc,y,x |
203 | 1790 L0EE1 andcc #^Zero |
195 | 1791 puls pc,y,x |
1792 ldx #$FFFF | |
1793 pshs x | |
1794 ldx u0007,u | |
1795 leax $01,x | |
1796 lbsr L0691 | |
1797 L0EF1 lbsr L04A1 | |
1798 lbeq L1278 | |
1799 pshs b,a | |
1800 lbsr L0691 | |
1801 ldy u0007,u | |
1802 cmpa ,y | |
1803 bne L0EF1 | |
1804 ldx u0005,u | |
1805 ldb ,x+ | |
1806 bsr L0EC6 | |
1807 lbne L12A8 | |
1808 ldd #$021B | |
1809 os9 I$Create | |
1810 lbcs L12AA | |
1811 sta <u0008 | |
1812 L0F1A puls x | |
1813 cmpx #$FFFF | |
1814 beq L0F3C | |
1815 ldd #$0000 | |
1816 std $05,x | |
1817 ldy ,x | |
1818 lda <u0008 | |
1819 os9 I$Write | |
1820 bcc L0F1A | |
1821 pshs b | |
1822 lda <u0008 | |
1823 os9 I$Close | |
1824 puls b | |
1825 lbra L12AA | |
1826 L0F3C lda <u0008 | |
1827 os9 I$Close | |
1828 pulu pc,u | |
1829 L0F43 tst <u0001 | |
1830 beq L0F8E | |
1831 ldx <u001C | |
1832 leay d,x | |
1833 leay >$0080,y | |
1834 cmpy <u001E | |
1835 bcs L0F5D | |
1836 cmpd #$0080 | |
1837 bcs L0F8E | |
1838 subd #$0080 | |
1839 L0F5D tfr d,y | |
1840 lda <u0000 | |
1841 os9 I$Read | |
1842 bcs L0F77 | |
1843 tfr y,d | |
1844 leax d,x | |
1845 stx <u001C | |
1846 ldy #$0080 | |
1847 lda <u0000 | |
1848 os9 I$ReadLn | |
1849 bcc L0F88 | |
1850 L0F77 cmpb #$D3 | |
1851 lbne L12AA | |
1852 leax >L138A,pcr | |
1853 lbsr L00EF | |
1854 clr <u0005 | |
1855 bra L0F8E | |
1856 L0F88 tfr y,d | |
1857 leax d,x | |
1858 stx <u001C | |
1859 L0F8E rts | |
1860 tst <u0003 | |
1861 beq L0FA8 | |
1862 ldx <u0018 | |
1863 ldd <u001A | |
1864 subd <u0018 | |
1865 tfr d,y | |
1866 lda <u0002 | |
1867 os9 I$Write | |
1868 stx <u001A | |
1869 tfr y,d | |
1870 bsr L100F | |
1871 bsr L0F43 | |
1872 L0FA8 pulu pc,u | |
1873 lbsr L0660 | |
1874 beq L0FD4 | |
1875 ldx <u001A | |
1876 lbsr L06D7 | |
1877 stx <u001A | |
1878 pshs x | |
1879 L0FB8 cmpx <u001C | |
1880 bne L0FC1 | |
1881 lbsr L1126 | |
1882 bra L0FCE | |
1883 L0FC1 lbsr L008B | |
1884 lbsr L06B2 | |
1885 beq L0FCE | |
1886 lbsr L0668 | |
1887 bne L0FB8 | |
1888 L0FCE tfr x,d | |
1889 subd ,s++ | |
1890 bsr L100F | |
1891 L0FD4 pulu pc,u | |
1892 lbsr L0660 | |
1893 beq L0FFA | |
1894 ldx <u001A | |
1895 pshs x | |
1896 L0FDF cmpx <u001C | |
1897 bne L0FE8 | |
1898 lbsr L1126 | |
1899 bra L0FEF | |
1900 L0FE8 leax $01,x | |
1901 lbsr L0668 | |
1902 bne L0FDF | |
1903 L0FEF tfr x,d | |
1904 subd ,s | |
1905 puls x | |
1906 lbsr L0094 | |
1907 bsr L100F | |
1908 L0FFA pulu pc,u | |
1909 ldx <u001A | |
1910 lbsr L0130 | |
1911 beq L100D | |
1912 subd #$0001 | |
1913 beq L100D | |
1914 bsr L100F | |
1915 lbsr L0082 | |
1916 L100D pulu pc,u | |
1917 L100F pshs b,a | |
1918 lbsr L0BEC | |
1919 ldd <u001C | |
1920 subd ,s | |
1921 std <u001C | |
1922 puls pc,b,a | |
1923 lbsr L0660 | |
1924 beq L1035 | |
1925 ldx <u001A | |
1926 L1023 cmpx <u0018 | |
1927 bne L102C | |
1928 lbsr L1126 | |
1929 bra L1033 | |
1930 L102C leax -$01,x | |
1931 lbsr L0668 | |
1932 bne L1023 | |
1933 L1033 stx <u001A | |
1934 L1035 pulu pc,u | |
1935 lbsr L0660 | |
1936 beq L1035 | |
1937 ldx <u001A | |
1938 L103E cmpx <u001C | |
1939 bne L1047 | |
1940 lbsr L1126 | |
1941 bra L1033 | |
1942 L1047 leax $01,x | |
1943 lbsr L0668 | |
1944 bne L103E | |
1945 bra L1033 | |
1946 ldx <u001A | |
1947 lbsr L0660 | |
1948 bne L105C | |
1949 lbsr L06C2 | |
1950 bra L106F | |
1951 L105C cmpx <u001C | |
1952 bne L1065 | |
1953 lbsr L1126 | |
1954 bra L106F | |
1955 L1065 lbsr L06B2 | |
1956 beq L106F | |
1957 lbsr L0668 | |
1958 bne L105C | |
1959 L106F stx <u001A | |
1960 lbsr L008B | |
1961 pulu pc,u | |
1962 ldx <u001A | |
1963 lbsr L0660 | |
1964 bne L1082 | |
1965 lbsr L06D7 | |
1966 bra L106F | |
1967 L1082 cmpx <u0018 | |
1968 bne L108B | |
1969 lbsr L1126 | |
1970 bra L106F | |
1971 L108B lbsr L06D1 | |
1972 beq L106F | |
1973 lbsr L0668 | |
1974 bne L1082 | |
1975 bra L106F | |
1976 ldx <u0018 | |
1977 stx <u001A | |
1978 pulu pc,u | |
1979 ldx <u001C | |
1980 stx <u001A | |
1981 pulu pc,u | |
1982 lda #$01 | |
1983 sta <u003C | |
1984 clr <u003A | |
1985 pulu pc,u | |
1986 L10AB lda #$01 | |
1987 sta <u003D | |
1988 clr <u003A | |
1989 pulu pc,u | |
1990 L10B3 clra | |
1991 sta <u003D | |
1992 sta <u003A | |
1993 pulu pc,u | |
1994 ldx <u001A | |
1995 cmpx <u001C | |
1996 beq L10AB | |
1997 lda ,x | |
1998 cmpa #$0D | |
1999 beq L10AB | |
2000 bra L10B3 | |
2001 ldx <u001A | |
2002 cmpx <u001C | |
2003 beq L10B3 | |
2004 lda ,x | |
2005 cmpa #$0D | |
2006 beq L10B3 | |
2007 bra L10AB | |
2008 ldx <u001A | |
2009 cmpx <u001C | |
2010 bne L10B3 | |
2011 bra L10AB | |
2012 ldx <u001A | |
2013 cmpx <u001C | |
2014 beq L10B3 | |
2015 bra L10AB | |
2016 bsr L10F2 | |
2017 bne L10AB | |
2018 bra L10B3 | |
2019 bsr L10F2 | |
2020 beq L10AB | |
2021 bra L10B3 | |
2022 L10F2 ldx u0005,u | |
2023 ldy <u001A | |
2024 ldb ,x+ | |
2025 L10F9 cmpb ,x | |
2026 beq L110A | |
2027 cmpy <u001C | |
2028 beq L1108 | |
2029 lda ,x+ | |
2030 cmpa ,y+ | |
2031 beq L10F9 | |
203 | 2032 L1108 andcc #^Zero |
195 | 2033 L110A rts |
2034 tst <u0005 | |
2035 bne L10B3 | |
2036 bra L10AB | |
2037 lda <u0005 | |
2038 beq L10B3 | |
2039 bra L10AB | |
2040 ldd u0005,u | |
2041 beq L10B3 | |
2042 bra L10AB | |
2043 lda #$00 | |
2044 lbsr L0685 | |
2045 beq L10B3 | |
2046 bra L10AB | |
2047 L1126 pshs a | |
2048 lbsr L0685 | |
2049 beq L1133 | |
2050 lda #$01 | |
2051 sta <u003D | |
2052 clr <u003A | |
2053 L1133 puls pc,a | |
2054 lda #$00 | |
2055 sta <u003D | |
2056 sta <u003A | |
2057 inca | |
2058 sta <u003B | |
2059 pulu pc,u | |
2060 | |
2061 lda #$00 | |
2062 sta <u003A | |
2063 inca | |
2064 sta <u003D | |
2065 sta <u003B | |
2066 pulu pc,u | |
2067 pulu pc,u | |
2068 L114D tst <u0041 | |
2069 lbne L127E | |
2070 ldx <u0016 | |
2071 lda $04,x | |
2072 cmpa #$42 | |
2073 beq L11C5 | |
2074 ldx <u001C | |
2075 cmpx <u0018 | |
2076 lbeq L1281 | |
2077 lda #$0D | |
2078 cmpa -$01,x | |
2079 beq L1175 | |
2080 leax $01,x | |
2081 cmpx <u001E | |
2082 lbcc L126F | |
2083 sta -$01,x | |
2084 stx <u001C | |
2085 L1175 ldx <u0018 | |
2086 lbsr L0691 | |
2087 lbsr L04DA | |
2088 lbne L1281 | |
2089 pshs x | |
2090 L1183 lda ,x+ | |
2091 lbsr L04DA | |
2092 beq L1183 | |
2093 cmpa #$20 | |
2094 beq L119C | |
2095 cmpa #$0D | |
2096 beq L119C | |
2097 cmpa #$24 | |
2098 beq L119C | |
2099 cmpa #$23 | |
2100 lbne L1281 | |
2101 L119C ldx ,s | |
2102 lbsr L04A1 | |
2103 lbne L1284 | |
2104 ldb #$2E | |
2105 puls x | |
2106 lbsr L0415 | |
2107 lbeq L1284 | |
2108 lbsr L073F | |
2109 ldd <u0024 | |
2110 lbsr L0770 | |
2111 lbsr L0716 | |
2112 ldd <u002D | |
2113 std <u0024 | |
2114 lda #$45 | |
2115 sta <u0026 | |
2116 pulu pc,u | |
2117 L11C5 ldd #$0001 | |
2118 lbsr L0770 | |
2119 cmpx <u0016 | |
2120 beq L11D2 | |
2121 lbra L126C | |
2122 L11D2 ldy <u0012 | |
2123 leay >$0089,y | |
2124 L11D9 ldx ,y++ | |
2125 beq L11E4 | |
2126 jsr ,x | |
2127 os9 F$UnLink | |
2128 bra L11D9 | |
2129 L11E4 ldx <u0018 | |
2130 ldd <u001C | |
2131 subd <u0018 | |
2132 tfr d,y | |
2133 L11EC ldd <u0002 | |
2134 cmpb #$00 | |
2135 beq L1261 | |
2136 os9 I$Write | |
2137 bcs L1263 | |
2138 ldx <u0014 | |
2139 ldd <u001E | |
2140 subd <u0014 | |
2141 tfr d,y | |
2142 ldd <u0000 | |
2143 cmpb #$00 | |
2144 beq L1261 | |
2145 os9 I$Read | |
2146 bcc L11EC | |
2147 cmpb #$D3 | |
2148 bne L1263 | |
2149 tst <u0036 | |
2150 beq L1261 | |
2151 ldd <u001E | |
2152 subd <u0014 | |
2153 os9 F$Mem | |
2154 bcs L1263 | |
2155 lda <u0000 | |
2156 os9 I$Close | |
2157 bcs L1263 | |
2158 lda <u0002 | |
2159 os9 I$Close | |
2160 bcs L1263 | |
2161 ldx <u0032 | |
2162 os9 I$Delete | |
2163 bcs L1261 | |
2164 ldy <u0032 | |
2165 L1233 ldx <u0032 | |
2166 L1235 lda ,y+ | |
2167 sta ,x+ | |
2168 cmpa #$2F | |
2169 beq L1233 | |
2170 cmpa #$0D | |
2171 bne L1235 | |
2172 ldy <u0012 | |
2173 leax >$00FE,y | |
2174 tfr x,u | |
2175 lbsr L0130 | |
2176 leax >$00F7,y | |
2177 tfr d,y | |
2178 ldd #$0100 | |
2179 os9 F$Fork | |
2180 bcs L1263 | |
2181 os9 F$Wait | |
2182 tstb | |
2183 bne L1263 | |
2184 L1261 ldb #$00 | |
2185 L1263 os9 F$Exit | |
2186 L1266 ldb #$00 | |
2187 L1268 fcb $8C | |
2188 L1269 fdb $C60B | |
2189 fcb $8C | |
2190 L126C fdb $C613 | |
2191 fcb $8C | |
2192 L126F fdb $C622 | |
2193 L1271 fcb $8C | |
2194 L1272 fdb $C633 | |
2195 fcb $8C | |
2196 L1275 fdb $C641 | |
2197 fcb $8C | |
2198 L1278 fdb $C64F | |
2199 fcb $8C | |
2200 L127B fdb $C659 | |
2201 fcb $8C | |
2202 L127E fdb $C65F | |
2203 fcb $8C | |
2204 L1281 fdb $C66D | |
2205 fcb $8C | |
2206 L1284 fdb $C67C | |
2207 fcb $8C | |
2208 L1287 fdb $C687 | |
2209 fcb $8C | |
2210 L128A fdb $C694 | |
2211 fcb $8C | |
2212 L128D fdb $C694 | |
2213 fcb $8C | |
2214 L1290 fdb $C6A5 | |
2215 lda #$FF | |
2216 sta <u0023 | |
2217 inc <u003E | |
2218 leax >L12C9,pcr | |
2219 clra | |
2220 leax d,x | |
2221 lbsr L00EF | |
2222 lbsr L00FF | |
2223 lbra L0292 | |
2224 L12A8 ldb #$D7 | |
2225 L12AA inc <u003E | |
2226 pshs b | |
2227 leax <L12C5,pcr | |
2228 ldy #$0004 | |
2229 lda <u000B | |
2230 os9 I$Write | |
2231 puls b | |
2232 os9 F$PErr | |
2233 lbsr L00FF | |
2234 lbra L0292 | |
2235 L12C5 fcc "OS9 " | |
2236 L12C9 fcc "BAD NUMBER" | |
2237 fcb C$CR | |
2238 fcc "WHAT ??" | |
2239 fcb C$CR | |
2240 fcc "* NOT BUF #1 *" | |
2241 fcb C$CR | |
2242 fcc "*WORKSPACE FULL*" | |
2243 fcb C$CR | |
2244 fcc "MISSING DELIM" | |
2245 fcb C$CR | |
2246 fcc "*FILE CLOSED*" | |
2247 fcb C$CR | |
2248 L1318 fcc "NOT FOUND" | |
2249 fcb C$CR | |
2250 fcc "BREAK" | |
2251 fcb C$CR | |
2252 fcc "MACRO IS OPEN" | |
2253 fcb C$CR | |
2254 fcc "BAD MACRO NAME" | |
2255 fcb C$CR | |
2256 fcc "DUPL MACRO" | |
2257 fcb C$CR | |
2258 fcc "BAD VAR LIST" | |
2259 fcb C$CR | |
2260 fcc "BRACKET MISMATCH" | |
2261 fcb C$CR | |
2262 fcc "UNDEFINED VAR" | |
2263 fcb C$CR | |
2264 L137C fcc "*END OF TEXT*" | |
2265 fcb C$CR | |
2266 L138A fcc "*END OF FILE*" | |
2267 fcb C$CR | |
2268 L1398 fcc "*FAIL*" | |
2269 fcb C$CR | |
2270 L139F fcc "RENAME " | |
2271 fcb C$CR | |
2272 L13A7 fcc "SCRATCH " | |
2273 fcb C$CR | |
2274 L13B0 fcc "EDTP2" | |
2275 fcb C$CR | |
2276 L13B6 fcc "EDTLIB1" | |
2277 fcb C$CR | |
2278 L13BE fcc "MACROS:" | |
2279 fcb C$CR | |
2280 L13C6 fcc "BUFFERS:" | |
2281 fcb C$CR | |
2282 L13CF fcc "MAC$" | |
2283 fcb C$CR | |
2284 fdb $07FB | |
2285 fcc "EOF" | |
2286 fcb C$CR | |
2287 fdb $1111 | |
2288 fcc "NEOF" | |
2289 fcb C$CR | |
2290 fdb $110B | |
2291 fcc "EOB" | |
2292 fcb C$CR | |
2293 fdb $10DE" | |
2294 fcc "NEOB" | |
2295 fcb C$CR | |
2296 fdb $10d6 | |
2297 fcc "EOL" | |
2298 fcb C$CR | |
2299 fdb $10c8 | |
2300 fcc "NEOL" | |
2301 fcb C$CR | |
2302 fdb $10ba | |
2303 fcc "ZERO#" | |
2304 fcb C$CR | |
2305 fdb $1117 | |
2306 fcc "STAR#" | |
2307 fcb C$CR | |
2308 fdb $111d | |
2309 fcc "STR$" | |
2310 fcb C$CR | |
2311 fdb $10e6 | |
2312 fcc "NSTR$" | |
2313 fcb C$CR | |
2314 fdb $10ec | |
2315 fcc "DIR" | |
2316 fcb C$CR | |
2317 fdb $0843 | |
2318 fcc "S" | |
2319 fcb C$CR | |
2320 fdb $1135 | |
2321 fcc "F" | |
2322 fcb C$CR | |
2323 fdb $1140 | |
2324 fcc "SEARCH#$" | |
2325 fcb C$CR | |
2326 fdb $0a96 | |
2327 fcc "CHANGE#$$" | |
2328 fcb C$CR | |
2329 fdb $0a9e | |
2330 fcc "LOAD$" | |
2331 fcb C$CR | |
2332 fdb $0e25 | |
2333 fcc "SAVE$$" | |
2334 fcb C$CR | |
2335 fdb $0ee5 | |
2336 fcc "SIZE" | |
2337 fcb C$CR | |
2338 fdb $07a3 | |
2339 fcc "DEL$" | |
2340 fcb C$CR | |
2341 fdb $08a5 | |
2342 fcc "READ$" | |
2343 fcb C$CR | |
2344 fdb $0db6 | |
2345 fcc "WRITE$" | |
2346 fcb C$CR | |
2347 fdb $0ded | |
2348 fcc "SHELL L" | |
2349 fcb C$CR | |
2350 fdb $08e7 | |
2351 fcc "NEW" | |
2352 fcb C$CR | |
2353 fdb $0f8f | |
2354 | |
2355 fcb $00 | |
2356 L1482 fdb $4123,$0d09,$b44c,$230d,$0974,$5823,$0d09 | |
2357 fdb $8e2b,$230d,$1050,$2d23,$0d10,$7644,$230d,$0faa | |
2358 fdb $4523,$240d,$0ac6,$3c23,$0d10,$1c3e,$230d,$1037 | |
2359 fdb $4923,$240d,$0b5e,$4b23,$0d0f,$d653,$2324,$0d0a | |
2360 fdb $ad43,$2324,$240d,$0aa6,$550d,$0ffc,$5423,$0d0b | |
2361 fdb $2842,$230d,$07c5,$5e0d,$1097,$2f0d,$109d,$4d23 | |
2362 fdb $0d07,$8a56,$230d,$0912,$4723,$0d0c,$4450,$230d | |
2363 fdb $0cb1,$5b0d,$092e,$5d23,$0d09,$483a,$0d10,$a352 | |
2364 fdb $230d,$0d0f,$5723,$0d0d,$7b21,$4c0d,$114b,$510d | |
2365 fdb $114d | |
2366 fcb $00 | |
2367 | |
2368 emod | |
2369 eom equ * | |
2370 end | |
2371 |