Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/del.asm @ 474:31ce96b2dc9d
entered: chdir chmod qsort strass toupper tsleep wait
| author | roug |
|---|---|
| date | Sun, 06 Oct 2002 09:10:36 +0000 |
| parents | e9ce43cc215e |
| children | 27f21cba6b30 |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * Del - File deletion utility | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * Ed. Comments Who YY/MM/DD | |
| 7 * ------------------------------------------------------------------ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
11
diff
changeset
|
8 * 5 From Tandy OS-9 Level One VR 02.00.00 |
| 0 | 9 |
| 10 nam Del | |
| 11 ttl File deletion utility | |
| 12 | |
| 13 * Disassembled 98/09/10 22:43:13 by Disasm v1.6 (C) 1988 by RML | |
| 14 | |
| 15 ifp1 | |
| 16 use defsfile | |
| 17 endc | |
| 18 | |
| 19 tylg set Prgrm+Objct | |
| 20 atrv set ReEnt+rev | |
| 21 rev set $01 | |
| 22 edition set 5 | |
| 23 | |
| 24 mod eom,name,tylg,atrv,start,size | |
| 25 | |
| 26 InPath rmb 1 | |
| 27 rmb 450 | |
| 28 size equ . | |
| 29 | |
| 30 name fcs /Del/ | |
| 31 fcb edition | |
| 32 | |
| 33 HelpMsg fcb C$LF | |
| 34 fcc "Use: Del [-x] <path> {<path>} [-x]" | |
| 35 fcb C$CR | |
| 36 | |
| 37 start lda ,x | |
| 38 cmpa #C$CR | |
| 39 beq L0093 | |
| 40 lda #1 | |
| 41 sta <InPath | |
| 42 bsr L0054 | |
| 43 leax -1,x | |
| 44 L0043 lda <InPath | |
| 45 os9 I$DeletX | |
| 46 bcs L0051 | |
| 47 lda ,x | |
| 48 cmpa #C$CR | |
| 49 bne L0043 | |
| 50 clrb | |
| 51 L0051 os9 F$Exit | |
| 52 L0054 lda ,x+ | |
| 53 cmpa #C$SPAC | |
| 54 beq L0054 | |
| 55 cmpa #C$COMA | |
| 56 beq L0054 | |
| 57 cmpa #'- | |
| 58 bne L0067 | |
| 59 bsr L0086 | |
| 60 leax 1,x | |
| 61 rts | |
| 62 L0067 pshs x | |
| 63 L0069 lda ,x+ | |
| 64 cmpa #C$SPAC | |
| 65 beq L0069 | |
| 66 cmpa #C$COMA | |
| 67 beq L0069 | |
| 68 cmpa #'- | |
| 69 beq L007E | |
| 70 cmpa #C$CR | |
| 71 bne L0069 | |
| 72 L007B puls x | |
| 73 rts | |
| 74 L007E bsr L0086 | |
| 75 lda #C$CR | |
| 76 sta -2,x | |
| 77 bra L007B | |
| 78 L0086 lda ,x+ | |
| 11 | 79 eora #'X |
| 0 | 80 anda #$DF |
| 81 bne L0093 | |
| 82 lda #$04 | |
| 83 sta <InPath | |
| 84 rts | |
| 85 L0093 leax >HelpMsg,pcr | |
| 86 ldy #80 | |
| 87 clra | |
| 88 os9 I$WritLn | |
| 89 clrb | |
| 90 bra L0051 | |
| 91 | |
| 92 emod | |
| 93 eom equ * | |
| 94 end | |
| 95 |