Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/copy.asm @ 200:e9ce43cc215e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made major changes to headers for consistency and identification
author boisy
date Mon, 15 Jul 2002 03:42:42 +0000
parents fad2545d83fc
children 1810b051d07e
comparison
equal deleted inserted replaced
199:9a72b8091dff 200:e9ce43cc215e
1 ******************************************************************** 1 ********************************************************************
2 * progname - program module 2 * Copy - Copy files
3 * 3 *
4 * $Id$ 4 * $Id$
5 * 5 *
6 * Ed. Comments Who YY/MM/DD 6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------ 7 * ------------------------------------------------------------------
8 * - Original Tandy distribution version 8 * 9 From Tandy OS-9 Level Two VR 02.00.01
9 *
10 *
11 9
12 nam Copy 10 nam Copy
13 ttl program module 11 ttl Copy files
14 12
15 * Disassembled 02/07/06 13:08:43 by Disasm v1.6 (C) 1988 by RML 13 * Disassembled 02/07/06 13:08:43 by Disasm v1.6 (C) 1988 by RML
16 14
17 ifp1 15 ifp1
18 use defsfile 16 use defsfile
19 endc 17 endc
20 18
21 tylg set Prgrm+Objct 19 tylg set Prgrm+Objct
22 atrv set ReEnt+rev 20 atrv set ReEnt+rev
23 rev set $01 21 rev set $01
22 edition set 9
24 23
25 mod eom,name,tylg,atrv,start,size 24 mod eom,name,tylg,atrv,start,size
26 25
27 u0000 rmb 1 26 u0000 rmb 1
28 u0001 rmb 1 27 u0001 rmb 1
38 u0010 rmb 16 37 u0010 rmb 16
39 u0020 rmb 480 38 u0020 rmb 480
40 u0200 rmb 256 39 u0200 rmb 256
41 u0300 rmb 4096 40 u0300 rmb 4096
42 size equ . 41 size equ .
43 name equ * 42
44 fcs /Copy/ 43 name fcs /Copy/
45 fcb $09 44 fcb edition
46 45
47 L0012 fcc "Ready SOURCE, hit C to continue: " 46 L0012 fcc "Ready SOURCE, hit C to continue: "
48 L0033 fcc "Ready DESTINATION, hit C to continue: " 47 L0033 fcc "Ready DESTINATION, hit C to continue: "
49 L0059 fcb C$CR 48 L0059 fcb C$CR
50 L005A fcc "Use: Copy <Path1> <Path2> [-s]" 49 L005A fcc "Use: Copy <Path1> <Path2> [-s]"