Members/kono/nitros9-code: level1/cmds/dsave.asm annotate

annotate level1/cmds/dsave.asm @ 953:c8489e2f382d

Virtually 100% working EXCEPT for -b option. also need to support -b=xxx

author	boisy
date	Fri, 24 Jan 2003 21:43:13 +0000
parents	062d7f4e63b7
children	9a075092f6ce

rev	line source
0 6641a883d6b0 Initial revision boisy parents: diff changeset	1 ********************************************************************
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	2 * dsave - Multi-file copy utility
0 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 *
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	6 * Syntax: dsave [<opts>] <destpath>
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	7 * Opts :
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	8 * -b = include bootfile (doesn't work)
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	9 * -e = execute files
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	10 * -i = indent dir levels
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	11 * -l = only one dir level
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	12 * -m = omit makdirs
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	13 * -r = force rewrite on copy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	14 * -s = alter copy mem size
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	15 * -v = verify copied files
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	16 *
0 6641a883d6b0 Initial revision boisy parents: diff changeset	17 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision boisy parents: diff changeset	18 * ------------------------------------------------------------------
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	19 * 1 Put your development info here BGP 03/01/11
0 6641a883d6b0 Initial revision boisy parents: diff changeset	20
6641a883d6b0 Initial revision boisy parents: diff changeset	21 nam dsave
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	22 ttl Multi-file copy utility
0 6641a883d6b0 Initial revision boisy parents: diff changeset	23
6641a883d6b0 Initial revision boisy parents: diff changeset	24 ifp1
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	25 use defsfile
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	26 use rbfdefs
0 6641a883d6b0 Initial revision boisy parents: diff changeset	27 endc
200 e9ce43cc215e Made major changes to headers for consistency and identification boisy parents: 113 diff changeset	28
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	29 * Here are some tweakable options
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	30 DOHELP set 0 1 = include help info
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	31 INDENTSZ set 2 number of spaces to indent when -i is used
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	32 STACKSZ set 1024 estimated stack size in bytes
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	33 PARMSZ set 256 estimated parameter size in bytes
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	34
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	35 * Module header definitions
0 6641a883d6b0 Initial revision boisy parents: diff changeset	36 tylg set Prgrm+Objct
6641a883d6b0 Initial revision boisy parents: diff changeset	37 atrv set ReEnt+rev
6641a883d6b0 Initial revision boisy parents: diff changeset	38 rev set $01
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	39 edition set 1
200 e9ce43cc215e Made major changes to headers for consistency and identification boisy parents: 113 diff changeset	40
0 6641a883d6b0 Initial revision boisy parents: diff changeset	41 mod eom,name,tylg,atrv,start,size
200 e9ce43cc215e Made major changes to headers for consistency and identification boisy parents: 113 diff changeset	42
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	43 * Your utility's static storage vars go here
924 c155aac72190 Made cosmetic changes boisy parents: 200 diff changeset	44 org 0
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	45 * These vars are used by the base template and shouldn't be removed
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	46 parmptr rmb 2 pointer to our command line params
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	47 bufptr rmb 2 pointer to user expandable buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	48 bufsiz rmb 2 size of user expandable buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	49 * These vars are used for this example, it will probably change for you
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	50 dirlevel rmb 1 current directory level
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	51 doexec rmb 1 execute flag
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	52 errcode rmb 1 error code storage
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	53 plistcnt rmb 1 command line pathlist count
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	54 doboot rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	55 indent rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	56 onelevel rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	57 nomakdir rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	58 rewrite rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	59 cpymemsz rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	60 doverify rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	61 dstpath rmb 2 pointer to second (optional) pathlist on cmd line
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	62 lineptr rmb 2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	63 sopt rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	64 * vars for pwd integrated code
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	65 fildes rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	66 srcptr rmb 2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	67 dotdotfd rmb 3 LSN of ..
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	68 dotfd rmb 3 LSN of .
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	69 ddcopy rmb 3
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	70 dentry rmb DIR.SZ*2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	71 srcpath rmb 128
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	72 buffend rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	73 pathext rmb 256 extended part of source pathlist
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	74 devname rmb 32
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	75 cleartop equ . everything up to here gets cleared at start
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	76 direntbf rmb DIR.SZ
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	77 * Next is a user adjustable buffer with # modifier on command line.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	78 * Some utilities won't need this flexibility, some will.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	79 * Currently set up to be larger for Level 2 than Level 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	80 * Note: this buffer must come just before the stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	81 linebuff rmb 256
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	82 IFGT Level-1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	83 bigbuff rmb 8*1024 8K default buffer for Level 2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	84 ELSE
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	85 bigbuff rmb 512 512 byte default buffer for Level 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	86 ENDC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	87 * Finally the stack for any PSHS/PULS/BSR/LBSRs that we might do
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	88 rmb STACKSZ+PARMSZ
0 6641a883d6b0 Initial revision boisy parents: diff changeset	89 size equ .
200 e9ce43cc215e Made major changes to headers for consistency and identification boisy parents: 113 diff changeset	90
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	91 * The utility name and edition goes here
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	92 name fcs /dsave/
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	93 fcb edition
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	94
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	95 * Place constant strings here
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	96 IFNE DOHELP
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	97 HlpMsg fcb C$LF
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	98 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	99 HlpMsgL equ *-HlpMsg
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	100 ENDC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	101
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	102 UnkOpt fcc /unknown option: /
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	103 UnkOptL equ *-UnkOpt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	104
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	105 ShlEko fcc "t"
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	106 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	107
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	108 Chd fcc "chd"
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	109 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	110
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	111 MakDir fcc "makdir"
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	112 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	113
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	114 Cmp fcc "cmp"
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	115 fcb C$CR
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	116
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	117 TMode fcc "tmode"
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	118 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	119 TPause fcc ".1 pause"
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	120 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	121 TNoPause fcc ".1 -pause"
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	122 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	123
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	124 Load fcc "load"
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	125 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	126
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	127 Unlink fcc "unlink"
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	128 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	129
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	130 Copy fcc "copy"
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	131 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	132
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	133 OS9Boot fcc "OS9BOOT "
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	134
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	135 DotDot fcc "."
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	136 Dot fcc "."
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	137 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	138
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	139 * Here's how registers are set when this process is forked:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	140 *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	141 * +-----------------+ <-- Y (highest address)
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	142 * ! Parameter !
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	143 * ! Area !
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	144 * +-----------------+ <-- X, SP
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	145 * ! Data Area !
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	146 * +-----------------+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	147 * ! Direct Page !
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	148 * +-----------------+ <-- U, DP (lowest address)
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	149 *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	150 * D = parameter area size
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	151 * PC = module entry point abs. address
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	152 * CC = F=0, I=0, others undefined
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	153
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	154 * The start of the program is here.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	155 * Before any command line processing is done, we clear out
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	156 * our static memory from U to cleartop, then determine the
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	157 * size of our data area (minus the stack).
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	158 start pshs u,x save registers for later
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	159 leax cleartop,u point to end of area to zero out
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	160 IFNE H6309
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	161 subr u,x subtract U from X
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	162 tfr x,w and put X in W
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	163 clr ,-s put a zero on the stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	164 tfm s,u+ and use TFM to clear starting at U
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	165 leas 1,s clean up the stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	166 ELSE
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	167 pshs x save end pointer on stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	168 clrnxt clr ,u+ clear out
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	169 cmpu ,s done?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	170 bne clrnxt branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	171 leas 2,s else clear stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	172 ENDC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	173 puls x,u and restore our earlier saved registers
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	174 leay bigbuff,u point Y to copy buffer offset in U
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	175 stx <parmptr save parameter pointer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	176 sty <bufptr save pointer to buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	177 tfr s,d place top of stack in D
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	178 IFNE H6309
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	179 subr y,d
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	180 ELSE
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	181 pshs y save Y on stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	182 subd ,s++ get size of space between copybuf and X
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	183 ENDC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	184 subd #STACKSZ+PARMSZ subtract out our stack/param size
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	185 std <bufsiz size of our buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	186
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	187 * At this point we have determined our buffer space and saved pointers
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	188 * for later use. Now we will parse the command line for options that
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	189 * begin with a dash.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	190 * Note that X will NOT point to a space, but to either a CR (if no
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	191 * parameters were passed) or the first non-space character of the
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	192 * parameter.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	193 * Here we merely grab the byte at X into A and test for end of line,
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	194 * exiting if so. Utilities that don't require arguments should
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	195 * comment out the following three lines.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	196 lda ,x get first char
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	197 cmpa #C$CR CR?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	198 lbeq ShowHelp if so, no parameters... show help and exit
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	199 GetChar lda ,x+ get next character on cmd line
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	200 cmpa #C$CR CR?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	201 lbeq DoDSave if so, do whatever this utility does
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	202 cmpa #'- is it an option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	203 beq GetDash if so, process it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	204 inc <plistcnt else must be a non-option argument (file)
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	205 lbsr SkipNSpc move past the argument
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	206 ChkDash lbsr SkipSpcs and any following spaces
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	207 bra GetChar start processing again
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	208 GetDash lda #C$SPAC get a space char
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	209 sta -1,x and wipe out the dash from the cmd line
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	210 GetDash2 ldd ,x+ load option char and char following
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	211 ora #$20 make lowercase
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	212 IsItB cmpa #'b is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	213 bne IsItE branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	214 sta <doboot
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	215 bra FixCmdLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	216 IsItE cmpa #'e is it this option?
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	217 bne IsItI branch if not
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	218 sta <doexec
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	219 bra FixCmdLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	220 IsItI cmpa #'i is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	221 bne IsItL branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	222 sta <indent
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	223 bra FixCmdLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	224 IsItL cmpa #'l is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	225 bne IsItM branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	226 sta <onelevel
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	227 bra FixCmdLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	228 IsItM cmpa #'m is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	229 bne IsItR branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	230 sta <nomakdir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	231 bra FixCmdLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	232 IsItR cmpa #'r is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	233 bne IsItS branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	234 sta <rewrite
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	235 bra FixCmdLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	236 IsItS cmpa #'s is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	237 bne IsItV branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	238 * add code to parse memsize
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	239 pshs x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	240 lbsr ASC2Byte
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	241 stb <sopt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	242 lda #C$SPAC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	243 SpcNext sta ,-x erase everything after -s
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	244 cmpx ,s
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	245 bne SpcNext
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	246 puls x
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	247 clrb
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	248 bra FixCmdLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	249 IsItV cmpa #'v is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	250 bne BadOpt branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	251 sta <doverify
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	252 FixCmdLn lda #C$SPAC get space
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	253 sta -$01,x and wipe out option character
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	254 cmpb #'0
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	255 lblt ChkDash start dash option processing again
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	256 lbra GetDash possibly another option following?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	257
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	258 * We branch here if we encounter an unknown option character
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	259 * A = bad option character
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	260 BadOpt leax UnkOpt,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	261 ldy #UnkOptL
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	262 ldb #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	263 pshs d save bad option and CR on stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	264 lda #$02 stderr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	265 os9 I$Write
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	266 leax ,s point X at option char on stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	267 os9 I$WritLn print option and CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	268 puls d clean up stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	269 lbra ShowHelp
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	270
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	271 * At this point options are processed.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	272 * We load X with our parameter pointer and go down the command line
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	273 * looking at each file to process (options have been wiped out with
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	274 * spaces)
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	275 *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	276 * Note, the following two instructions may not be needed, depending on
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	277 * if your utility requires a non-option on the command line.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	278 DoDSave dec <plistcnt we should have only one path on cmdline
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	279 lbne ShowHelp if not, exit with error
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	280 ldx <parmptr get our parameter pointer off stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	281 lbsr SkipSpcs skip any leading spaces
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	282 stx <dstpath save dest path
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	283 lbsr SkipNSpc
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	284 lda #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	285 sta ,x+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	286
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	287 * Here we have src and possibly destination pathlist. Now we can
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	288 * start processing the dsave
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	289 leax linebuff,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	290 stx <lineptr reset line buffer pointer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	291
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	292 * Get entire pathlist to working directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	293 lbsr pwd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	294
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	295 * Do dsave "pre" commands
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	296 lbsr DoEcho
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	297 ldx <dstpath point to source path
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	298 lbsr DoChd chd to it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	299 lbsr DoPauseOff
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	300 lbsr DoLoadCopy
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	301 tst <doverify
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	302 beq PreRecurse
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	303 lbsr DoLoadCmp
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	304
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	305 * Steps in processing files:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	306 * 0. Open path to '.'
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	307 * 1. Read next directory entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	308 * 2. if directory encountered:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	309 * a. chd entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	310 * b. bsr step 0
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	311 * c. chd ..
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	312 * 3. if eof, goto step 6
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	313 * 4. copy file to dest
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	314 * 5. goto 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	315 * 6. Close path to source dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	316
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	317 PreRecurse
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	318 leay buffend,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	319 bsr CopyDir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	320
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	321 * Do dsave "post" commands
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	322 tst <doverify
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	323 beq PostRecurse
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	324 lbsr DoUnlinkCmp
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	325 PostRecurse
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	326 lbsr DoUnlinkCopy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	327 lbsr DoPauseOn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	328
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	329 lbra ExitOk
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	330
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	331 CopyDir ldx <srcptr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	332 lda #DIR.+READ. permissions as DIR.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	333 os9 I$Open open directory
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	334 lbcs CopyRts branch if error
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	335 ldb #PDELIM
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	336 stb ,y+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	337 pshs y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	338 pshs a save path to .
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	339 pshs x,u save regs
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	340 ldx #$0000
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	341 ldu #DIR.SZ*2 seek past two dir entries
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	342 os9 I$Seek skip over . and .. entries of this dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	343 puls x,u get saved regs
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	344 bcs Copy2Ex branch if error
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	345 FileLoop lda ,s get path to . on stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	346 ldy #DIR.SZ get size of directory entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	347 leax direntbf,u point to directory entry buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	348 os9 I$Read read directory entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	349 bcs Copy2Ex branch if error
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	350 tst ,x first byte at x... is it zero?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	351 beq FileLoop yep, empty dir entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	352 ldy 1,s get Y on stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	353 lbsr StrCpy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	354 lda #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	355 sta ,y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	356 ldx <srcptr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	357 lda #DIR.+READ. open as directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	358 os9 I$Open open it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	359 bcs ItsAFile if error, it's not a dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	360 os9 I$Close close it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	361 * Here, we know that the file we just opened and closed was a directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	362 ItsADir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	363 tst <onelevel do we ignore dirs?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	364 bne FileLoop branch if so
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	365 pshs y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	366 ldx 3,s
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	367 lbsr DoMakDir makdir it
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	368 bcc ItsADir2
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	369 os9 F$PErr
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	370 ItsADir2 ldx 3,s
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	371 lbsr DoChd
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	372 bcs FileLoop if error, ignore dir
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	373 inc <dirlevel
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	374 puls y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	375 bsr CopyDir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	376 leax DotDot,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	377 lbsr DoChd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	378 dec <dirlevel
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	379 bra FileLoop
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	380
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	381 * Here, we know that the file we just opened and closed was NOT a directory
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	382 ItsAFile tst <doboot test for allowance of os9boot
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	383 bne ItsAFile2 branch if so
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	384 ldx 1,s
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	385 lbsr BootCmp compare against os9boot
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	386 beq FileLoop if a match, don't copy
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	387 ItsAFile2
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	388 ldx 1,s
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	389 lbsr BuildCopy
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	390 tst <doverify verify on?
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	391 beq FileLoop branch if not
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	392 ldx 1,s
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	393 lbsr BuildCmp
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	394 bra FileLoop
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	395 Copy2Ex puls a get path to .
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	396 os9 I$Close close path
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	397 CopyEx leas 2,s
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	398 CopyRts rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	399
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	400 ShowHelp equ *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	401 IFNE DOHELP
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	402 leax >HlpMsg,pcr point to help message
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	403 ldy #HlpMsgL get length
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	404 lda #INDENTSZ std error
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	405 os9 I$WritLn write it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	406 ENDC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	407 ExitOk clrb clear carry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	408 Exit os9 F$Exit and exit
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	409
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	410 * This routine counts the number of non-whitespace characters
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	411 * starting at X
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	412 *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	413 * Entry:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	414 * X = ptr to string (space, comma or CR terminated)
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	415 * Exit:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	416 * Y = length of string
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	417 * X = ptr to byte after string
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	418 StrLen pshs a
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	419 ldy #$0000
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	420 StrLenLp lda ,x+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	421 cmpa #C$SPAC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	422 beq StrLenEx
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	423 cmpa #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	424 beq StrLenEx
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	425 leay 1,y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	426 bra StrLenLp
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	427 StrLenEx puls a,pc
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	428
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	429 * This routine copies a string of text from X to Y until
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	430 * a CR or hi bit char is encountered
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	431 *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	432 * Entry:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	433 * X = ptr to src string
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	434 * Y = ptr to dest string
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	435 * Exit:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	436 * D = number of bytes copied
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	437 * X = ptr to char past src string
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	438 * Y = ptr to char past dest string
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	439 StrCpy pshs u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	440 ldu #$0000
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	441 CopyFnLp lda ,x+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	442 tfr a,b
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	443 anda #$7F
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	444 cmpa #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	445 ble CopyFnEx
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	446 sta ,y+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	447 leau 1,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	448 tstb
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	449 bpl CopyFnLp
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	450 * clr ,y+ add null byte at end
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	451 CopyFnEx tfr u,d
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	452 puls u,pc
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	453
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	454 * Compare two filenames to see if they match
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	455 * X = filename to compare against OS9boot
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	456 BootCmp pshs y,x
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	457 lbsr StrLen get length of passed filename
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	458 puls x get pointer to passed filename
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	459 cmpy #7 compare stlren of X against OS9Boot
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	460 bne FileCmpEx if not the same length, they aren't equal
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	461 * Here we know the filenames are the same length
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	462 ldb #6
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	463 FIleCmp2 leay OS9Boot,pcr
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	464 lda b,x
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	465 bsr MakeUp
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	466 cmpa b,y
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	467 bne FileCmpEx
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	468 decb
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	469 bpl FileCmp2
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	470 clrb clear carry
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	471 puls y,pc
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	472 FileCmpEx orcc #Carry
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	473 puls y,pc
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	474
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	475 MakeUp cmpa #'a
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	476 blt MakeUpEx
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	477 cmpa #'z
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	478 bgt MakeUpEx
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	479 anda #$DF make uppercase
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	480 MakeUpEx rts
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	481
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	482 StrHCpy pshs u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	483 ldu #$0000
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	484 HCpyFnLp lda ,x+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	485 beq HCpyFnEx
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	486 tfr a,b
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	487 anda #$7F strip out possible hi bit
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	488 sta ,y+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	489 leau 1,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	490 tstb test copy of byte in B
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	491 bpl HCpyFnLp if hi bit not set, keep going
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	492 * clr ,y+ add null byte at end
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	493 HCpyFnEx tfr u,d
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	494 puls u,pc
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	495
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	496 * This routine skip over spaces
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	497 *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	498 * Entry:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	499 * X = ptr to data to parse
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	500 * Exit:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	501 * X = ptr to first non-whitespace char
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	502 * A = non-whitespace char
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	503 SkipSpcs lda ,x+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	504 cmpa #C$SPAC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	505 beq SkipSpcs
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	506 leax -1,x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	507 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	508
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	509 * This routine skips over everything but spaces, commas and CRs
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	510 *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	511 * Entry:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	512 * X = ptr to data to parse
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	513 * Exit:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	514 * X = ptr to first whitespace char
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	515 * A = whitespace char
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	516 SkipNSpc lda ,x+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	517 cmpa #C$SPAC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	518 beq EatOut
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	519 cmpa #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	520 bne SkipNSpc
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	521 EatOut leax -1,x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	522 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	523
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	524
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	525 * Entry: X = directory to make
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	526 DoMakDir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	527 tst <nomakdir do we do the makdir?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	528 bne Ret branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	529 pshs x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	530 leax MakDir,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	531 bsr CopyCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	532 ldx ,s
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	533 bsr CopyParm
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	534 bsr WriteIt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	535 puls x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	536 tst <doexec are we executing?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	537 beq Ret if not, just return
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	538 lda #DIR.+PREAD.+PEXEC.+EXEC.+UPDAT.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	539 os9 I$MakDir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	540 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	541
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	542 * Entry: X = path to chd to
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	543 DoChd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	544 pshs x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	545 leax Chd,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	546 bsr CopyCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	547 ldx ,s
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	548 bsr CopyParm
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	549 bsr WriteIt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	550 puls x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	551 tst <doexec are we executing?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	552 beq Ret if not, just return
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	553 lda #DIR.+READ.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	554 os9 I$ChgDir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	555 bcc Ret
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	556 os9 F$PErr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	557 Ret rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	558
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	559 WriteIt ldy #1024
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	560 lda #1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	561 os9 I$WritLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	562 Rts rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	563
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	564 DoEcho tst <doexec are we executing?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	565 bne Rts if so, ignore this shell command
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	566 leax ShlEko,pcr else point to shell echo command
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	567 bra WriteIt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	568
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	569 * Copy command into linebuff and put space after it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	570 * Entry: X = pointer to command to copy to linebuff
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	571 CopyCmd leay linebuff,u and point Y to line buffer
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	572 * Do level indention if specified
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	573 tst <indent
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	574 beq CopyCmd3
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	575 lda <dirlevel
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	576 beq CopyCmd3
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	577 ldb #$02
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	578 mul
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	579 lda #C$SPAC
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	580 CopyCmd2 sta ,y+
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	581 decb
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	582 bne CopyCmd2
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	583 CopyCmd3 lbsr StrCpy copy command
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	584 lda #C$SPAC get space
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	585 sta ,y+ and store it after command in buff
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	586 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	587
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	588 DoPauseOn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	589 leax TMode,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	590 bsr CopyCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	591 leax TPause,pcr get pause command
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	592 bsr CopyParm
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	593 bsr WriteIt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	594 bra ExecCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	595
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	596 * Copy parameters into linebuff and put CR after it, then write it out to stdout
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	597 CopyParm lbsr StrCpy copy it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	598 lda #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	599 sta ,y+ and store CR after command in buff
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	600 leax linebuff,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	601 CPRts rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	602
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	603 * Entry: X = command to execute, with parameters
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	604 ExecCmd tst <doexec
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	605 beq CPRts
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	606 lbsr SkipSpcs skip any leading spaces at X
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	607 tfr x,y transfer command ptr to Y temporarily
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	608 lbsr SkipNSpc skip command
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	609 clr ,x+ clear white space char and move X
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	610 pshs u save our statics
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	611 tfr x,u move paramter pointer to Y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	612 tfr y,x move command ptr from Y back to X
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	613 ldy #256
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	614 clra
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	615 os9 F$Fork
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	616 os9 F$Wait
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	617 bcc ExecRTS
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	618 os9 F$PErr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	619 ExecRTS puls u,pc
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	620
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	621 DoPauseOff
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	622 leax TMode,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	623 bsr CopyCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	624 leax TNoPause,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	625 bsr CopyParm
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	626 lbsr WriteIt
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	627 bra ExecCmd
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	628
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	629 DoLoadCmp
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	630 leax Load,pcr point to load command
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	631 bsr CopyCmd copy it to buffer
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	632 leax Cmp,pcr point to copy command
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	633 bsr CopyParm copy it to buffer
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	634 lbsr WriteIt
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	635 bra ExecCmd
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	636
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	637 DoUnlinkCmp
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	638 leax Unlink,pcr
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	639 lbsr CopyCmd
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	640 leax Cmp,pcr
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	641 bsr CopyParm
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	642 lbsr WriteIt
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	643 bra ExecCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	644
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	645 DoLoadCopy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	646 leax Load,pcr point to load command
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	647 lbsr CopyCmd copy it to buffer
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	648 leax Copy,pcr point to copy command
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	649 bsr CopyParm copy it to buffer
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	650 lbsr WriteIt
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	651 bra ExecCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	652
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	653 DoUnlinkCopy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	654 leax Unlink,pcr
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	655 lbsr CopyCmd
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	656 leax Copy,pcr
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	657 lbsr CopyParm
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	658 lbsr WriteIt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	659 bra ExecCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	660
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	661 BuildCmp pshs x
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	662 leax Cmp,pcr
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	663 lbsr CopyCmd
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	664 bra BuildCopy3
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	665
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	666 BuildCopy
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	667 pshs x
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	668 leax Copy,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	669 lbsr CopyCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	670 tst <rewrite
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	671 beq BuildCopy2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	672 ldd #$2D72 -r
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	673 std ,y++
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	674 lda #C$SPAC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	675 sta ,y+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	676 BuildCopy2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	677 ldb <sopt -s option specified?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	678 beq BuildCopy3
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	679 lda #'#
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	680 sta ,y+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	681 lbsr Byte2ASC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	682 ldd #$4B20 K'space'
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	683 std ,y++
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	684 BuildCopy3
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	685 ldx <srcptr get source path from statics
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	686 lbsr StrCpy copy to buffer
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	687 lda #C$SPAC get space
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	688 sta ,y+ and store it after command in buff
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	689 puls x
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	690 lbsr StrCpy
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	691 lda #C$CR get space
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	692 sta ,y+ and store it after command in buff
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	693 leax linebuff,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	694 lbsr WriteIt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	695 lbsr ExecCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	696 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	697
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	698 * Code to get current working directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	699 pwd leax >buffend,u point X to buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	700 * lda #PDELIM get path delimiter
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	701 * sta ,x store at start of buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	702 stx <srcptr store buffer pointer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	703 leax >dot,pcr point to '.'
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	704 bsr open open directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	705 sta <fildes save path
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	706 lbsr rdtwo read '.' and '..' entries
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	707 ldd <dotdotfd get 24 bit LSN of ..
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	708 std <ddcopy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	709 lda <dotdotfd+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	710 sta <ddcopy+2 and save copy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	711 L0052 bsr AtRoot are we at root?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	712 beq L0079 branch if so
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	713 leax >dotdot,pcr else point to '..'
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	714 bsr chdir change directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	715 lda <fildes get path to previous dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	716 os9 I$Close close it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	717 lbcs Exit branch if error
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	718 leax >dot,pcr point X to new current dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	719 bsr open open it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	720 bsr rdtwo read . and .. entires of this dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	721 bsr FindMtch search for match
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	722 bsr L00E2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	723 ldd <dotdotfd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	724 std <ddcopy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	725 lda <dotdotfd+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	726 sta <ddcopy+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	727 bra L0052
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	728 L0079 lbsr GetDevNm get device name
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	729 lda <fildes get path
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	730 os9 I$Close close
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	731 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	732
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	733 chdir lda #DIR.+READ.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	734 os9 I$ChgDir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	735 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	736
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	737 open lda #DIR.+READ.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	738 os9 I$Open
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	739 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	740
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	741 * Read directory entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	742 read32 lda <fildes
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	743 leax dentry,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	744 ldy #DIR.SZ
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	745 os9 I$Read
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	746 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	747
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	748 FindMtch lda <fildes get path to current dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	749 bsr read32 read entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	750 lbcs pwdrts branch if error
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	751 leax dentry,u point to entry buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	752 leax <DIR.FD,x point X to FD LSN
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	753 leay ddcopy,u point Y to copy of LSN
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	754 bsr attop compare the two
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	755 bne FindMtch keep reading until we find match
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	756 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	757
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	758 * Compare 3 bytes at X and Y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	759 attop ldd ,x++
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	760 cmpd ,y++
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	761 bne L00C5
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	762 lda ,x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	763 cmpa ,y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	764 L00C5 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	765
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	766 AtRoot leax dotdotfd,u point X at .. entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	767 leay dotfd,u point Y at . entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	768 bsr attop check if we're at the top
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	769 pwdrts rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	770
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	771 rdtwo bsr read32 * read "." from directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	772 ldd <dentry+DIR.FD
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	773 std <dotfd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	774 lda <dentry+DIR.FD+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	775 sta <dotfd+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	776 bsr read32 * read ".." from directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	777 ldd <dentry+DIR.FD
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	778 std <dotdotfd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	779 lda <dentry+DIR.FD+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	780 sta <dotdotfd+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	781 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	782
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	783 * Get name from directory entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	784 L00E2 leax dentry,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	785 prsnam os9 F$PrsNam
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	786 lbcs pwdrts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	787 ldx <srcptr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	788 L00EB lda ,-y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	789 anda #$7F mask hi bit
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	790 sta ,-x save
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	791 decb
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	792 bne L00EB
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	793 lda #PDELIM
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	794 sta ,-x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	795 stx <srcptr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	796 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	797
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	798 GetDevNm lda <fildes
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	799 ldb #SS.DevNm
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	800 leax >devname,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	801 os9 I$GetStt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	802 bsr prsnam
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	803 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	804
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	805
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	806 * Entry: X = ptr to ASCII number
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	807 * Exit: B = byte value of ASCII number
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	808 ASC2Byte clrb clear B
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	809 ASC2BLp lda ,x+ get byte from X
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	810 cmpa #'0
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	811 blt ASC2BEx
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	812 suba #'0 make 8 bit integer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	813 cmpa #$09 compare against 9
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	814 bhi ASC2BEx branch if greater
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	815 pshs a else save A
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	816 lda #10 multiply by 10
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	817 mul do it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	818 addb ,s+ add on stack
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	819 bcc ASC2BLp if overflow clear, do it again
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	820 ASC2BEx
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	821 * leax -1,x load byte
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	822 rts return
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	823
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	824 * Entry: Y = address to store number
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	825 * B = number to convert
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	826 Byte2ASC lda #$2F start A out just below $30 (0)
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	827 Hundreds inca inc it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	828 subb #100 subtract 100
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	829 bcc Hundreds if result >= 0, continue
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	830 cmpa #'0 zero?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	831 beq Tens if so, don't add to buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	832 sta ,y+ else save at U and inc.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	833 Tens lda #$3A start A out just above $39 (9)
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	834 TensLoop deca dec it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	835 addb #10 add 10
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	836 bcc TensLoop if carry clear, continue
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	837 sta ,y+ save 10's digit
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	838 addb #'0
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	839 stb ,y+ and 1's digit
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	840 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	841
0 6641a883d6b0 Initial revision boisy parents: diff changeset	842 emod
6641a883d6b0 Initial revision boisy parents: diff changeset	843 eom equ *
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	844 end

Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/dsave.asm @ 953:c8489e2f382d