Mercurial > hg > Members > kono > nitros9-code
comparison level1/cmds/shell_21.asm @ 12:42fbf11d282b
Improved commenting
author | boisy |
---|---|
date | Fri, 05 Apr 2002 16:59:01 +0000 |
parents | 25d626c770e9 |
children | 0912ac5dc2ff |
comparison
equal
deleted
inserted
replaced
11:50bca5580dfb | 12:42fbf11d282b |
---|---|
156 rts | 156 rts |
157 L00C9 clr b,u | 157 L00C9 clr b,u |
158 L00CB decb | 158 L00CB decb |
159 bpl L00C9 | 159 bpl L00C9 |
160 rts | 160 rts |
161 L00CF fdb L0286-* | 161 L00CF fdb Comment-* |
162 fcs "*" | 162 fcs "*" |
163 fdb L035B-* | 163 fdb Wait-* |
164 fcs "W" | 164 fcs "W" |
165 fdb L0268-* | 165 fdb Chd-* |
166 fcs "CHD" | 166 fcs "CHD" |
167 fdb L0264-* | 167 fdb Chx-* |
168 fcs "CHX" | 168 fcs "CHX" |
169 fdb L023E-* | 169 fdb Ex-* |
170 fcs "EX" | 170 fcs "EX" |
171 fdb L04BC-* | 171 fdb Kill-* |
172 fcs "KILL" | 172 fcs "KILL" |
173 fdb L027E-* | 173 fdb X-* |
174 fcs "X" | 174 fcs "X" |
175 fdb L0282-* | 175 fdb NOX-* |
176 fcs "-X" | 176 fcs "-X" |
177 fdb L026E-* | 177 fdb Prompt-* |
178 fcs "P" | 178 fcs "P" |
179 fdb L0271-* | 179 fdb NoPrompt-* |
180 fcs "-P" | 180 fcs "-P" |
181 fdb L0276-* | 181 fdb Echo-* |
182 fcs "T" | 182 fcs "T" |
183 fdb L027A-* | 183 fdb NoEcho-* |
184 fcs "-T" | 184 fcs "-T" |
185 fdb L04E8-* | 185 fdb SetPr-* |
186 fcs "SETPR" | 186 fcs "SETPR" |
187 fdb L0209-* | 187 fdb NextCmd-* |
188 fcs ";" | 188 fcs ";" |
189 fdb $0000 | 189 fdb $0000 |
190 L010A fcb $03 | 190 L010A fdb Pipe-* |
191 fcb $5E ^ symbol | 191 fcs "!" |
192 fcb $A1 ! symbol | 192 fdb NextCmd2-* |
193 fdb L0334-* | |
194 fcs ";" | 193 fcs ";" |
195 fdb L034D-* | 194 fdb Backgrnd-* |
196 fcs "&" | 195 fcs "&" |
197 fdb L032D-* | 196 fdb Return-* |
198 fcb $8D | 197 fcb $80+C$CR |
199 L0116 fdb L02CE-* | 198 L0116 fdb ErrRedir-* |
200 fcs ">>" | 199 fcs ">>" |
201 fdb L02C9-* | 200 fdb InRedir-* |
202 fcs "<" | 201 fcs "<" |
203 fdb L02D5-* | 202 fdb OutRedir-* |
204 fcs ">" | 203 fcs ">" |
205 fdb L030F-* | 204 fdb StkSiz-* |
206 fcs "#" | 205 fcs "#" |
207 fdb $0000 | 206 fdb $0000 |
208 L0125 fcb $0d | 207 L0125 fcb $0d |
209 fcc "()" | 208 fcc "()" |
210 fcb $FF | 209 fcb $FF |
310 L01FF leas $02,s | 309 L01FF leas $02,s |
311 lda #C$SPAC | 310 lda #C$SPAC |
312 L0203 cmpa ,x+ | 311 L0203 cmpa ,x+ |
313 beq L0203 | 312 beq L0203 |
314 leax -$01,x | 313 leax -$01,x |
315 L0209 andcc #^Carry | 314 NextCmd andcc #^Carry |
316 rts | 315 rts |
317 L020C pshs y,x | 316 L020C pshs y,x |
318 leay $02,y | 317 leay $02,y |
319 L0210 ldx ,s | 318 L0210 ldx ,s |
320 L0212 lda ,x+ | 319 L0212 lda ,x+ |
338 sty $02,s | 337 sty $02,s |
339 ldd ,y++ | 338 ldd ,y++ |
340 bne L0210 | 339 bne L0210 |
341 comb | 340 comb |
342 puls pc,y,x | 341 puls pc,y,x |
343 L023E lbsr L0195 | 342 |
343 Ex lbsr L0195 | |
344 clra | 344 clra |
345 bsr L0260 | 345 bsr L0260 |
346 bsr L025F | 346 bsr L025F |
347 bsr L025F | 347 bsr L025F |
348 bsr L0286 | 348 bsr Comment |
349 leax $01,x | 349 leax $01,x |
350 tfr x,d | 350 tfr x,d |
351 subd <u0008 | 351 subd <u0008 |
352 std <u0006 | 352 std <u0006 |
353 leas >u00FF,u | 353 leas >u00FF,u |
355 os9 F$Chain | 355 os9 F$Chain |
356 os9 F$Exit | 356 os9 F$Exit |
357 L025F inca | 357 L025F inca |
358 L0260 pshs a | 358 L0260 pshs a |
359 bra L02AB | 359 bra L02AB |
360 L0264 lda #DIR.+EXEC. | 360 |
361 Chx lda #DIR.+EXEC. | |
361 bra L026A | 362 bra L026A |
362 L0268 lda #DIR.+UPDAT. | 363 Chd lda #DIR.+UPDAT. |
363 L026A os9 I$ChgDir | 364 L026A os9 I$ChgDir |
364 rts | 365 rts |
365 L026E clra | 366 Prompt clra |
366 bra L0273 | 367 bra L0273 |
367 L0271 lda #$01 | 368 NoPrompt lda #$01 |
368 L0273 sta <u000F | 369 L0273 sta <u000F |
369 rts | 370 rts |
370 L0276 lda #$01 | 371 Echo lda #$01 |
371 bra L027B | 372 bra L027B |
372 L027A clra | 373 NoEcho clra |
373 L027B sta <u0010 | 374 L027B sta <u0010 |
374 rts | 375 rts |
375 L027E lda #$01 | 376 X lda #$01 |
376 bra L0283 | 377 bra L0283 |
377 L0282 clra | 378 |
379 NOX clra | |
378 L0283 sta <u0011 | 380 L0283 sta <u0011 |
379 rts | 381 rts |
380 L0286 lda #C$CR | 382 Comment lda #C$CR |
381 L0288 cmpa ,x+ | 383 L0288 cmpa ,x+ |
382 bne L0288 | 384 bne L0288 |
383 cmpa ,-x | 385 cmpa ,-x |
384 rts | 386 rts |
385 L028F pshs b,a,cc | 387 L028F pshs b,a,cc |
408 leax <L02B8,pcr | 410 leax <L02B8,pcr |
409 lbsr L00BF | 411 lbsr L00BF |
410 clrb | 412 clrb |
411 coma | 413 coma |
412 rts | 414 rts |
413 L02C9 ldd #$0001 | 415 InRedir ldd #$0001 |
414 bra L02E3 | 416 bra L02E3 |
415 L02CE ldd #$020D | 417 ErrRedir ldd #$020D |
416 stb -$02,x | 418 stb -$02,x |
417 bra L02D7 | 419 bra L02D7 |
418 L02D5 lda #$01 | 420 |
421 OutRedir lda #$01 | |
419 L02D7 ldb #$02 | 422 L02D7 ldb #$02 |
420 bra L02E3 | 423 bra L02E3 |
421 L02DB tst a,u | 424 L02DB tst a,u |
422 bne L02BE | 425 bne L02BE |
423 pshs b,a | 426 pshs b,a |
440 bra L030B | 443 bra L030B |
441 L0306 ldb #PREAD.+READ.+WRITE. | 444 L0306 ldb #PREAD.+READ.+WRITE. |
442 os9 I$Create | 445 os9 I$Create |
443 L030B stb $01,s | 446 L030B stb $01,s |
444 L030D puls pc,b,a | 447 L030D puls pc,b,a |
445 L030F ldb #$0D | 448 |
449 StkSiz ldb #$0D | |
446 stb -$01,x | 450 stb -$01,x |
447 ldb <u0003 | 451 ldb <u0003 |
448 bne L02BE | 452 bne L02BE |
449 lbsr L04CA | 453 lbsr L04CA |
450 eora #'K | 454 eora #'K |
455 mul | 459 mul |
456 tsta | 460 tsta |
457 bne L02BE | 461 bne L02BE |
458 L0328 stb <u0003 | 462 L0328 stb <u0003 |
459 lbra L01E9 | 463 lbra L01E9 |
460 L032D leax -$01,x | 464 Return leax -$01,x |
461 lbsr L03C7 | 465 lbsr L03C7 |
462 bra L0337 | 466 bra L0337 |
463 L0334 lbsr L03C3 | 467 NextCmd2 lbsr L03C3 |
464 L0337 bcs L034A | 468 L0337 bcs L034A |
465 lbsr L028F | 469 lbsr L028F |
466 bsr L035C | 470 bsr L035C |
467 L033E bcs L034A | 471 L033E bcs L034A |
468 lbsr L01E9 | 472 lbsr L01E9 |
469 cmpa #$0D | 473 cmpa #$0D |
470 bne L0349 | 474 bne L0349 |
471 leas $04,s | 475 leas $04,s |
472 L0349 clrb | 476 L0349 clrb |
473 L034A lbra L028F | 477 L034A lbra L028F |
474 L034D lbsr L03C3 | 478 Backgrnd lbsr L03C3 |
475 bcs L034A | 479 bcs L034A |
476 bsr L034A | 480 bsr L034A |
477 ldb #$26 | 481 ldb #$26 |
478 lbsr L0495 | 482 lbsr L0495 |
479 bra L033E | 483 bra L033E |
480 L035B clra | 484 Wait clra |
481 L035C pshs a | 485 L035C pshs a |
482 L035E os9 F$Wait | 486 L035E os9 F$Wait |
483 tst <u000E | 487 tst <u000E |
484 beq L0376 | 488 beq L0376 |
485 ldb <u000E | 489 ldb <u000E |
555 L03FE ldx <u0006 | 559 L03FE ldx <u0006 |
556 leax $05,x | 560 leax $05,x |
557 stx <u0006 | 561 stx <u0006 |
558 ldx <u0004 | 562 ldx <u0004 |
559 ldu $04,s | 563 ldu $04,s |
560 lbsr L02C9 | 564 lbsr InRedir |
561 bcs L045F | 565 bcs L045F |
562 ldu <u0008 | 566 ldu <u0008 |
563 ldd #$5820 | 567 ldd #$5820 |
564 std ,--u | 568 std ,--u |
565 ldd #$5020 | 569 ldd #$5020 |
598 L045F coma | 602 L045F coma |
599 puls pc,u,y,x | 603 puls pc,u,y,x |
600 | 604 |
601 L0462 fcc "/pipe" | 605 L0462 fcc "/pipe" |
602 fcb C$CR | 606 fcb C$CR |
603 L0468 pshs x | 607 Pipe pshs x |
604 leax <L0462,pcr | 608 leax <L0462,pcr |
605 ldd #$0103 | 609 ldd #$0103 |
606 lbsr L02DB | 610 lbsr L02DB |
607 puls x | 611 puls x |
608 bcs L04C9 | 612 bcs L04C9 |
638 std ,x | 642 std ,x |
639 leax ,s | 643 leax ,s |
640 lbsr L00BF | 644 lbsr L00BF |
641 leas $05,s | 645 leas $05,s |
642 puls pc,y,x,b,a | 646 puls pc,y,x,b,a |
643 L04BC bsr L04CA | 647 |
648 Kill bsr L04CA | |
644 cmpb #$02 | 649 cmpb #$02 |
645 bcs L04E5 | 650 bcs L04E5 |
646 tfr b,a | 651 tfr b,a |
647 ldb #S$Kill | 652 ldb #S$Kill |
648 os9 F$Send | 653 os9 F$Send |
662 bcs L04E3 | 667 bcs L04E3 |
663 tstb | 668 tstb |
664 bne L04C9 | 669 bne L04C9 |
665 L04E3 leas $02,s | 670 L04E3 leas $02,s |
666 L04E5 lbra L02BE | 671 L04E5 lbra L02BE |
667 L04E8 bsr L04CA | 672 SetPr bsr L04CA |
668 stb <u0012 | 673 stb <u0012 |
669 lbsr L01E9 | 674 lbsr L01E9 |
670 bsr L04CA | 675 bsr L04CA |
671 lda <u0012 | 676 lda <u0012 |
672 os9 F$SPrior | 677 os9 F$SPrior |