Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/del.asm @ 2763:c03464c24b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed a minor typo in the arcadepak's makefile related to DriveWire3 and Becker. Updated makefile with new option nightlytest. Run option is "make nightlytest". You also need to test environment variable TESTSSHDIR and TESTSSHSERVER before using it. Also updated the nightly option so if the SOURCEUSER environment variable is not set it will report it.
author drencor-xeen
date Wed, 16 Jan 2013 17:33:46 -0600
parents 84ea83668304
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * Del - File deletion utility
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
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: 924
diff changeset
7 * Comment
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
8 * ------------------------------------------------------------------
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
9 * 5 ????/??/??
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
10 * From Tandy OS-9 Level One VR 02.00.00.
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
11 *
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
12 * 6 2003/01/13 Boisy G. Pitre
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
13 * Now option can be anywhere on command line, and all files will be
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
14 * deleted. Also made smaller.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 nam Del
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 ttl File deletion utility
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 * Disassembled 98/09/10 22:43:13 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24
921
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 832
diff changeset
25 DOHELP set 0
832
94475d26192c Added DOHELP conditional
boisy
parents: 831
diff changeset
26
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 atrv set ReEnt+rev
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
29 rev set $00
831
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
30 edition set 6
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33
924
c155aac72190 Made cosmetic changes
boisy
parents: 921
diff changeset
34 org 0
831
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
35 amode rmb 1
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
36 rmb 250
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
37 stack rmb 200
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 name fcs /Del/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42
832
94475d26192c Added DOHELP conditional
boisy
parents: 831
diff changeset
43 IFNE DOHELP
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 HelpMsg fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 fcc "Use: Del [-x] <path> {<path>} [-x]"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 fcb C$CR
832
94475d26192c Added DOHELP conditional
boisy
parents: 831
diff changeset
47 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48
831
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
49 start lda ,x get first char on command line
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
50 cmpa #C$CR carriage return?
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
51 beq ShowHelp if so, no params, show help
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
52 lda #READ.
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
53 sta <amode
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
54 pshs x save param pointer
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
55 bsr GetOpts get opts
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
56 puls x get param pointer
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
57 L0043 lda <amode
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 os9 I$DeletX
831
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
59 bcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 lda ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 cmpa #C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 bne L0043
831
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
63 ExitOk clrb
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
64 Exit os9 F$Exit
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
65
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
66 GetOpts ldd ,x+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 cmpa #C$SPAC
831
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
68 beq GetOpts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 cmpa #C$COMA
831
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
70 beq GetOpts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 cmpa #C$CR
831
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
72 beq Return
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
73 cmpa #'-
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
74 bne SkipName
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
75 eorb #'X
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
76 andb #$DF
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
77 bne ShowHelp
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
78 lda #EXEC.
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
79 sta <amode
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
80 ldd #$2020
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
81 std -1,x write over option
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
82 SkipName lda ,x+
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
83 cmpa #C$SPAC
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
84 beq GetOpts
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
85 cmpa #C$COMA
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
86 beq GetOpts
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
87 CheckCR cmpa #C$CR
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
88 bne SkipName
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
89 Return rts
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
90
832
94475d26192c Added DOHELP conditional
boisy
parents: 831
diff changeset
91 ShowHelp equ *
94475d26192c Added DOHELP conditional
boisy
parents: 831
diff changeset
92 IFNE DOHELP
94475d26192c Added DOHELP conditional
boisy
parents: 831
diff changeset
93 leax >HelpMsg,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
94 ldy #80
831
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
95 lda #2 stderr
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
96 os9 I$WritLn write help
832
94475d26192c Added DOHELP conditional
boisy
parents: 831
diff changeset
97 ENDC
831
27f21cba6b30 Optimzed, now del deletes all files regardless of where -x is on command line
boisy
parents: 200
diff changeset
98 bra ExitOk
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 end
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103