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