Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/del.asm @ 0:6641a883d6b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children 50bca5580dfb
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
1 ********************************************************************
2 * Del - File deletion utility
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 3 Original Tandy distribution version BGP
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+
79 eora #$58
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