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

annotate level1/cmds/dsave.asm @ 1509:f5e2b0e2cf29

Fixed problem in level 1 port of shell_21, bootfile no longer has shell in it.

author	boisy
date	Wed, 14 Jan 2004 15:05:32 +0000
parents	9859ddd89ff8
children	20841f236e32

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 *
1325 84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 962 diff changeset	6 * Edt/Rev YYYY/MM/DD Modified by
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 962 diff changeset	7 * Comment
0 6641a883d6b0 Initial revision boisy parents: diff changeset	8 * ------------------------------------------------------------------
1325 84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 962 diff changeset	9 * 1 2003/01/11 Boisy G. Pitre
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 962 diff changeset	10 * Rewrote in assembly language.
1449 9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	11 *
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	12 * 1r1 2003/12/11 Boisy G. Pitre
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	13 * Fixed -b option so that it prepends device name in front of os9boot
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	14 * filename. Also fixed -b= option to work as well.
0 6641a883d6b0 Initial revision boisy parents: diff changeset	15
6641a883d6b0 Initial revision boisy parents: diff changeset	16 nam dsave
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	17 ttl Multi-file copy utility
0 6641a883d6b0 Initial revision boisy parents: diff changeset	18
6641a883d6b0 Initial revision boisy parents: diff changeset	19 ifp1
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	20 use defsfile
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	21 use rbfdefs
0 6641a883d6b0 Initial revision boisy parents: diff changeset	22 endc
200 e9ce43cc215e Made major changes to headers for consistency and identification boisy parents: 113 diff changeset	23
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	24 * Here are some tweakable options
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	25 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	26 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	27 STACKSZ set 1024 estimated stack size in bytes
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	28 PARMSZ set 256 estimated parameter size in bytes
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	29
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	30 * Module header definitions
0 6641a883d6b0 Initial revision boisy parents: diff changeset	31 tylg set Prgrm+Objct
6641a883d6b0 Initial revision boisy parents: diff changeset	32 atrv set ReEnt+rev
1449 9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	33 rev set $01
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	34 edition set 1
200 e9ce43cc215e Made major changes to headers for consistency and identification boisy parents: 113 diff changeset	35
0 6641a883d6b0 Initial revision boisy parents: diff changeset	36 mod eom,name,tylg,atrv,start,size
200 e9ce43cc215e Made major changes to headers for consistency and identification boisy parents: 113 diff changeset	37
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	38 * Your utility's static storage vars go here
924 c155aac72190 Made cosmetic changes boisy parents: 200 diff changeset	39 org 0
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	40 * 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	41 parmptr rmb 2 pointer to our command line params
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	42 bufptr rmb 2 pointer to user expandable buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	43 bufsiz rmb 2 size of user expandable buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	44 * These vars are used for this example, it will probably change for you
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	45 dirlevel rmb 1 current directory level (0 = top)
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	46 *doexec rmb 1 execute flag
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	47 errcode rmb 1 error code storage
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	48 plistcnt rmb 1 command line pathlist count
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	49 doboot rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	50 indent rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	51 onelevel rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	52 nomakdir rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	53 rewrite rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	54 cpymemsz rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	55 doverify rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	56 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	57 lineptr rmb 2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	58 sopt rmb 1
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	59 ddbt rmb 3 copy of source disk's DD.BT from LSN0
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	60 * vars for pwd integrated code
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	61 fildes rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	62 srcptr rmb 2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	63 dotdotfd rmb 3 LSN of ..
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	64 dotfd rmb 3 LSN of .
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	65 ddcopy rmb 3
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	66 bbuff rmb 64 -b= buffer
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	67 dentry rmb DIR.SZ*2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	68 srcpath rmb 128
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	69 buffend rmb 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	70 pathext rmb 256 extended part of source pathlist
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	71 devname rmb 32
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	72 cleartop equ . everything up to here gets cleared at start
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	73 direntbf rmb DIR.SZ
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	74 * 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	75 * Some utilities won't need this flexibility, some will.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	76 * 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	77 * Note: this buffer must come just before the stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	78 linebuff rmb 256
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	79 IFGT Level-1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	80 bigbuff rmb 8*1024 8K default buffer for Level 2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	81 ELSE
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	82 bigbuff rmb 512 512 byte default buffer for Level 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	83 ENDC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	84 * 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	85 rmb STACKSZ+PARMSZ
0 6641a883d6b0 Initial revision boisy parents: diff changeset	86 size equ .
200 e9ce43cc215e Made major changes to headers for consistency and identification boisy parents: 113 diff changeset	87
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	88 * The utility name and edition goes here
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	89 name fcs /dsave/
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	90 fcb edition
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	91
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	92 * Place constant strings here
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	93 IFNE DOHELP
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	94 HlpMsg fcb C$LF
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	95 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	96 HlpMsgL equ *-HlpMsg
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	97 ENDC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	98
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	99 UnkOpt fcc /unknown option: /
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	100 UnkOptL equ *-UnkOpt
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 ShlEko fcc "t"
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	103 CR fcb C$CR
951 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 Chd fcc "chd"
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 MakDir fcc "makdir"
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
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	111 Cmp fcc "cmp"
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	112 fcb C$CR
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	113
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	114 TMode fcc "tmode"
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	115 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	116 TPause fcc ".1 pause"
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	117 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	118 TNoPause fcc ".1 -pause"
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	119 fcb C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	120
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	121 Load fcc "load"
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 Unlink fcc "unlink"
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 Copy fcc "copy"
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
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	130 OS9Gen fcc "os9gen"
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	131 fcb C$CR
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	132
955 942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	133 OS9Boot fcs "OS9Boot"
953 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
1449 9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	215 pshs x save for later
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	216 cmpb #'= = follows?
955 942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	217 beq DoEqual
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	218 * -b alone, copy default bootfile name to bbuff
1449 9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	219 * first, get device name
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	220 lda #DIR.+READ.
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	221 leax dot,pcr
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	222 os9 I$Open
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	223 lbcs Exit
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	224 leax >bbuff,u
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	225 ldb #PDELIM
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	226 stb ,x+
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	227 ldb #SS.DevNm
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	228 os9 I$GetStt
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	229 lbcs Exit
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	230 os9 I$Close
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	231 os9 F$PrsNam
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	232 lbcs Exit
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	233 lda -1,y
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	234 anda #$7F wipe out hi bit
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	235 sta -1,y
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	236 lda #PDELIM
9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	237 sta ,y+
955 942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	238 leax OS9Boot,pcr
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	239 lbsr StrCpy
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	240 lda #C$CR
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	241 sta ,y
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	242 bra IsItBEx
1449 9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	243 DoEqual leax 1,x move X past '='
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	244 leay bbuff,u point to buffer
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	245 lbsr ParmCpy copy parameter from X to Y
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	246 lda #C$CR
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	247 sta ,y
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	248 lda #C$SPAC
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	249 IsItBLp sta ,-x
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	250 cmpx ,s
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	251 bne IsItBLp
1449 9859ddd89ff8 Fixed bugs in -b option of dsave, modified ChangeLogs boisy parents: 1325 diff changeset	252 clrb so FixCmdLn will not look for more opts
955 942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	253 IsItBEx puls x
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	254 bra FixCmdLn
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	255 IsItE equ *
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	256 * cmpa #'e is it this option?
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	257 * bne IsItI branch if not
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	258 * sta <doexec
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	259 * bra FixCmdLn
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	260 IsItI cmpa #'i is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	261 bne IsItL branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	262 sta <indent
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	263 bra FixCmdLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	264 IsItL cmpa #'l is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	265 bne IsItM branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	266 sta <onelevel
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	267 bra FixCmdLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	268 IsItM cmpa #'m is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	269 bne IsItR branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	270 sta <nomakdir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	271 bra FixCmdLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	272 IsItR cmpa #'r is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	273 bne IsItS branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	274 sta <rewrite
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	275 bra FixCmdLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	276 IsItS cmpa #'s is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	277 bne IsItV branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	278 * add code to parse memsize
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	279 pshs x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	280 lbsr ASC2Byte
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	281 stb <sopt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	282 lda #C$SPAC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	283 SpcNext sta ,-x erase everything after -s
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	284 cmpx ,s
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	285 bne SpcNext
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	286 puls x
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	287 clrb
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	288 bra FixCmdLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	289 IsItV cmpa #'v is it this option?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	290 bne BadOpt branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	291 sta <doverify
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	292 FixCmdLn lda #C$SPAC get space
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	293 sta -$01,x and wipe out option character
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	294 cmpb #'0
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	295 lblt ChkDash start dash option processing again
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	296 lbra GetDash possibly another option following?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	297
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	298 * We branch here if we encounter an unknown option character
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	299 * A = bad option character
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	300 BadOpt leax UnkOpt,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	301 ldy #UnkOptL
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	302 ldb #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	303 pshs d save bad option and CR on stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	304 lda #$02 stderr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	305 os9 I$Write
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	306 leax ,s point X at option char on stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	307 os9 I$WritLn print option and CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	308 puls d clean up stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	309 lbra ShowHelp
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	310
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	311 * At this point options are processed.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	312 * 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	313 * 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	314 * spaces)
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	315 *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	316 * 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	317 * 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	318 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	319 lbne ShowHelp if not, exit with error
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	320 ldx <parmptr get our parameter pointer off stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	321 lbsr SkipSpcs skip any leading spaces
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	322 stx <dstpath save dest path
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	323 lbsr SkipNSpc
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	324 lda #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	325 sta ,x+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	326
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	327 * 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	328 * start processing the dsave
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	329 leax linebuff,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	330 stx <lineptr reset line buffer pointer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	331
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	332 * Get entire pathlist to working directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	333 lbsr pwd
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	334 * Open source device as raw and obtain 24 bit LSN to bootfile
955 942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	335 * ldd #$400D @ + CR
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	336 * pshs d save on stack
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	337 * leax ,s point X to stack
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	338 * lda #READ. read mode
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	339 * os9 I$Open open
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	340 * puls x clean stack
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	341 * lbcs Exit branch if error
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	342 * pshs a save path
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	343 * ldx #0000
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	344 * tfr u,y
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	345 * ldu #DD.BT
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	346 * os9 I$Seek seek to DD.BT in LSN0
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	347 * tfr y,u
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	348 * lbcs Exit
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	349 * leax ddbt,u point to buffer
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	350 * ldy #3 read 3 bytes at DD.BT
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	351 * os9 I$Read
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	352 * lbcs Exit exit of error
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	353 * puls a get path on stack
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	354 * os9 I$Close and close it
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	355
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	356 * Do dsave "pre" commands
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	357 lbsr DoEcho
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	358 ldx <dstpath point to source path
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	359 lbsr DoChd chd to it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	360 lbsr DoPauseOff
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	361 lbsr DoLoadCopy
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	362 tst <doverify
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	363 beq PreRecurse
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	364 lbsr DoLoadCmp
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	365
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	366 * Steps in processing files:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	367 * 0. Open path to '.'
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	368 * 1. Read next directory entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	369 * 2. if directory encountered:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	370 * a. chd entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	371 * b. bsr step 0
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	372 * c. chd ..
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	373 * 3. if eof, goto step 6
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	374 * 4. copy file to dest
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	375 * 5. goto 1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	376 * 6. Close path to source dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	377
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	378 PreRecurse
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	379 leay buffend,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	380 bsr CopyDir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	381
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	382 * Do dsave "post" commands
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	383 tst <doverify
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	384 beq PostRecurse
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	385 lbsr DoUnlinkCmp
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	386 PostRecurse
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	387 lbsr DoUnlinkCopy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	388 lbsr DoPauseOn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	389
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	390 lbra ExitOk
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	391
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	392 CopyDir ldx <srcptr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	393 lda #DIR.+READ. permissions as DIR.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	394 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	395 lbcs CopyRts branch if error
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	396 ldb #PDELIM
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	397 stb ,y+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	398 pshs y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	399 pshs a save path to .
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	400 pshs x,u save regs
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	401 ldx #$0000
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	402 ldu #DIR.SZ*2 seek past two dir entries
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	403 os9 I$Seek skip over . and .. entries of this dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	404 puls x,u get saved regs
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	405 bcs Copy2Ex branch if error
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	406 FileLoop lda ,s get path to . on stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	407 ldy #DIR.SZ get size of directory entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	408 leax direntbf,u point to directory entry buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	409 os9 I$Read read directory entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	410 bcs Copy2Ex branch if error
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	411 tst ,x first byte at x... is it zero?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	412 beq FileLoop yep, empty dir entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	413 ldy 1,s get Y on stack
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	414 lbsr StrCpy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	415 lda #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	416 sta ,y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	417 ldx <srcptr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	418 lda #DIR.+READ. open as directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	419 os9 I$Open open it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	420 bcs ItsAFile if error, it's not a dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	421 os9 I$Close close it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	422 * 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	423 ItsADir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	424 tst <onelevel do we ignore dirs?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	425 bne FileLoop branch if so
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	426 pshs y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	427 ldx 3,s
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	428 lbsr DoMakDir makdir it
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	429 bcc ItsADir2
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	430 os9 F$PErr
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	431 ItsADir2 ldx 3,s
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	432 lbsr DoChd
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	433 bcs FileLoop if error, ignore dir
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	434 inc <dirlevel
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	435 puls y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	436 bsr CopyDir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	437 leax DotDot,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	438 lbsr DoChd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	439 dec <dirlevel
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	440 bra FileLoop
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	441
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	442 * Here, we know that the file we just opened and closed was NOT a directory
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	443 ItsAFile tst <dirlevel are we at root level?
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	444 bne ItsAFile2 no, don't even do os9boot test
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	445 ldx 1,s else get ptr to current filename
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	446 lbsr BootCmp is it os9boot?
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	447 bcs ItsAFile2 no, copy away!
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	448 tst <doboot -b option specified?
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	449 beq FileLoop nope, ignore bootfile
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	450
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	451 * Here we have a file named OS9Boot in the top level directory
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	452 * We must os9gen the sucker
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	453 lbsr BuildOS9Gen
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	454 bra FileLoop
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	455
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	456 ItsAFile2
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	457 ldx 1,s
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	458 lbsr BuildCopy
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	459 tst <doverify verify on?
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	460 beq FileLoop branch if not
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	461 ldx 1,s
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	462 lbsr BuildCmp
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	463 bra FileLoop
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	464 Copy2Ex puls a get path to .
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	465 os9 I$Close close path
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	466 CopyEx leas 2,s
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	467 CopyRts rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	468
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	469 ShowHelp equ *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	470 IFNE DOHELP
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	471 leax >HlpMsg,pcr point to help message
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	472 ldy #HlpMsgL get length
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	473 lda #INDENTSZ std error
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	474 os9 I$WritLn write it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	475 ENDC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	476 ExitOk clrb clear carry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	477 Exit os9 F$Exit and exit
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	478
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	479 * This routine counts the number of non-whitespace characters
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	480 * starting at X
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	481 *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	482 * Entry:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	483 * X = ptr to string (space, comma or CR terminated)
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	484 * Exit:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	485 * Y = length of string
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	486 * X = ptr to byte after string
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	487 StrLen pshs a
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	488 ldy #$0000
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	489 StrLenLp lda ,x+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	490 cmpa #C$SPAC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	491 beq StrLenEx
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	492 cmpa #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	493 beq StrLenEx
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	494 leay 1,y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	495 bra StrLenLp
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	496 StrLenEx puls a,pc
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 * 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	499 * a CR or hi bit char is encountered
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	500 *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	501 * Entry:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	502 * X = ptr to src string
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	503 * Y = ptr to dest string
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	504 * Exit:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	505 * D = number of bytes copied
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	506 * X = ptr to char past src string
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	507 * Y = ptr to char past dest string
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	508 StrCpy pshs u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	509 ldu #$0000
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	510 CopyFnLp lda ,x+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	511 tfr a,b
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	512 anda #$7F
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	513 cmpa #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	514 ble CopyFnEx
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	515 sta ,y+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	516 leau 1,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	517 tstb
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	518 bpl CopyFnLp
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	519 CopyFnEx tfr u,d
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	520 puls u,pc
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	521
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	522 * Works like StrCpy, but stops if a space is encountered
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	523 ParmCpy pshs u
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	524 ldu #$0000
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	525 ParmFnLp lda ,x+
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	526 tfr a,b
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	527 anda #$7F
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	528 cmpa #C$SPAC
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	529 ble ParmFnEx
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	530 sta ,y+
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	531 leau 1,u
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	532 tstb
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	533 bpl ParmFnLp
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	534 ParmFnEx tfr u,d
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	535 puls u,pc
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	536
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	537 * 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	538 * 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	539 BootCmp pshs y,x
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	540 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	541 puls x get pointer to passed filename
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	542 tfr y,d
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	543 leay OS9Boot,pcr
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	544 os9 F$CmpNam
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	545 puls y,pc
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	546
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	547 MakeUp cmpa #'a
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	548 blt MakeUpEx
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	549 cmpa #'z
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	550 bgt MakeUpEx
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	551 anda #$DF make uppercase
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	552 MakeUpEx rts
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	553
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	554 StrHCpy pshs u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	555 ldu #$0000
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	556 HCpyFnLp lda ,x+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	557 beq HCpyFnEx
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	558 tfr a,b
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	559 anda #$7F strip out possible hi bit
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	560 sta ,y+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	561 leau 1,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	562 tstb test copy of byte in B
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	563 bpl HCpyFnLp if hi bit not set, keep going
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	564 * clr ,y+ add null byte at end
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	565 HCpyFnEx tfr u,d
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	566 puls u,pc
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	567
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	568 * This routine skip over spaces
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	569 *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	570 * Entry:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	571 * X = ptr to data to parse
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	572 * Exit:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	573 * X = ptr to first non-whitespace char
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	574 * A = non-whitespace char
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	575 SkipSpcs lda ,x+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	576 cmpa #C$SPAC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	577 beq SkipSpcs
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	578 leax -1,x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	579 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	580
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	581 * This routine skips over everything but spaces, commas and CRs
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	582 *
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	583 * Entry:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	584 * X = ptr to data to parse
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	585 * Exit:
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	586 * X = ptr to first whitespace char
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	587 * A = whitespace char
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	588 SkipNSpc lda ,x+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	589 cmpa #C$SPAC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	590 beq EatOut
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	591 cmpa #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	592 bne SkipNSpc
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	593 EatOut leax -1,x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	594 rts
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
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	597 * Entry: X = directory to make
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	598 DoMakDir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	599 tst <nomakdir do we do the makdir?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	600 bne Ret branch if not
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	601 pshs x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	602 leax MakDir,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	603 bsr CopyCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	604 ldx ,s
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	605 bsr CopyParm
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	606 bsr WriteIt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	607 puls x
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	608 * tst <doexec are we executing?
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	609 * beq Ret if not, just return
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	610 * lda #DIR.+PREAD.+PEXEC.+EXEC.+UPDAT.
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	611 * os9 I$MakDir
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	612 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	613
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	614 * Entry: X = path to chd to
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	615 DoChd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	616 pshs x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	617 leax Chd,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	618 bsr CopyCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	619 ldx ,s
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	620 bsr CopyParm
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	621 bsr WriteIt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	622 puls x
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	623 * tst <doexec are we executing?
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	624 * beq Ret if not, just return
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	625 * lda #DIR.+READ.
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	626 * os9 I$ChgDir
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	627 * bcc Ret
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	628 * os9 F$PErr
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	629 Ret rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	630
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	631 WriteIt ldy #1024
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	632 lda #1
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	633 os9 I$WritLn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	634 Rts rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	635
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	636 DoEcho equ *
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	637 * tst <doexec are we executing?
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	638 * bne Rts if so, ignore this shell command
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	639 leax ShlEko,pcr else point to shell echo command
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	640 bra WriteIt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	641
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	642 * Copy command into linebuff and put space after it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	643 * Entry: X = pointer to command to copy to linebuff
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	644 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	645 * Do level indention if specified
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	646 tst <indent
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	647 beq CopyCmd3
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	648 lda <dirlevel
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	649 beq CopyCmd3
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	650 ldb #$02
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	651 mul
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	652 lda #C$SPAC
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	653 CopyCmd2 sta ,y+
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	654 decb
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	655 bne CopyCmd2
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	656 CopyCmd3 lbsr StrCpy copy command
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	657 lda #C$SPAC get space
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	658 sta ,y+ and store it after command in buff
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	659 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	660
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	661 DoPauseOn
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	662 leax TMode,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	663 bsr CopyCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	664 leax TPause,pcr get pause command
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	665 bsr CopyParm
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	666 bra WriteIt
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	667 * bra ExecCmd
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	668
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	669 * 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	670 CopyParm lbsr StrCpy copy it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	671 lda #C$CR
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	672 sta ,y+ and store CR after command in buff
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	673 leax linebuff,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	674 CPRts rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	675
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	676 * Entry: X = command to execute, with parameters
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	677 *ExecCmd tst <doexec
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	678 * beq CPRts
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	679 * lbsr SkipSpcs skip any leading spaces at X
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	680 * tfr x,y transfer command ptr to Y temporarily
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	681 * lbsr SkipNSpc skip command
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	682 * clr ,x+ clear white space char and move X
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	683 * pshs u save our statics
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	684 * tfr x,u move paramter pointer to Y
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	685 * tfr y,x move command ptr from Y back to X
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	686 * ldy #256
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	687 * clra
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	688 * os9 F$Fork
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	689 * os9 F$Wait
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	690 * bcc ExecRTS
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	691 * os9 F$PErr
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	692 *ExecRTS puls u,pc
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	693
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	694 DoPauseOff
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	695 leax TMode,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	696 bsr CopyCmd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	697 leax TNoPause,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	698 bsr CopyParm
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	699 lbra WriteIt
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	700 * bra ExecCmd
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	701
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	702 DoLoadCmp
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	703 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	704 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	705 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	706 bsr CopyParm copy it to buffer
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	707 lbra WriteIt
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	708 * bra ExecCmd
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	709
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	710 DoUnlinkCmp
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	711 leax Unlink,pcr
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	712 lbsr CopyCmd
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	713 leax Cmp,pcr
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	714 bsr CopyParm
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	715 lbra WriteIt
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	716 * bra ExecCmd
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	717
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	718 DoLoadCopy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	719 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	720 lbsr CopyCmd copy it to buffer
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	721 leax Copy,pcr point to copy command
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	722 bsr CopyParm copy it to buffer
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	723 lbra WriteIt
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	724 * bra ExecCmd
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	725
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	726 DoUnlinkCopy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	727 leax Unlink,pcr
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	728 lbsr CopyCmd
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	729 leax Copy,pcr
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	730 lbsr CopyParm
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	731 lbra WriteIt
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	732 * bra ExecCmd
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	733
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	734 BuildOS9Gen
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	735 pshs x
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	736 leax OS9Gen,pcr
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	737 lbsr CopyCmd
955 942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	738 ldx <dstpath
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	739 lbsr StrCpy copy to buffer
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	740 * write file name, then CR
955 942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	741 lda #C$CR get space
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	742 sta ,y+ and store it after command in buff
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	743 leax linebuff,u
942dd8e50006 -b now fully functional, as well as -b= boisy parents: 954 diff changeset	744 lbsr WriteIt
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	745 leax bbuff,u
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	746 lbsr WriteIt
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	747 leax CR,pc
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	748 lbsr WriteIt
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	749 puls x,pc
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	750
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	751 BuildCmp pshs x
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	752 leax Cmp,pcr
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	753 lbsr CopyCmd
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	754 bra BuildCopy3
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	755
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	756 BuildCopy
953 c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	757 pshs x
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	758 leax Copy,pcr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	759 lbsr CopyCmd
962 8a0993b04c8a * empty log message * boisy parents: 955 diff changeset	760 ldb <sopt -s option specified?
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	761 beq BuildCopy2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	762 lda #'#
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	763 sta ,y+
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	764 lbsr Byte2ASC
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	765 ldd #$4B20 K'space'
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	766 std ,y++
962 8a0993b04c8a * empty log message * boisy parents: 955 diff changeset	767 BuildCopy2
8a0993b04c8a * empty log message * boisy parents: 955 diff changeset	768 tst <rewrite
8a0993b04c8a * empty log message * boisy parents: 955 diff changeset	769 beq BuildCopy3
8a0993b04c8a * empty log message * boisy parents: 955 diff changeset	770 ldd #$2D72 -r
8a0993b04c8a * empty log message * boisy parents: 955 diff changeset	771 std ,y++
8a0993b04c8a * empty log message * boisy parents: 955 diff changeset	772 lda #C$SPAC
8a0993b04c8a * empty log message * boisy parents: 955 diff changeset	773 sta ,y+
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	774 BuildCopy3
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	775 ldx <srcptr get source path from statics
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	776 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	777 lda #C$SPAC get space
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	778 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	779 puls x
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	780 lbsr StrCpy
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	781 lda #C$CR get space
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	782 sta ,y+ and store it after command in buff
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	783 leax linebuff,u
954 9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	784 lbra WriteIt
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	785 * lbsr ExecCmd
9a075092f6ce -b now working closer to original dsave, but BuildOS9Gen routine still boisy parents: 953 diff changeset	786 * rts
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	787
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	788 * Code to get current working directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	789 pwd leax >buffend,u point X to buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	790 * lda #PDELIM get path delimiter
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	791 * sta ,x store at start of buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	792 stx <srcptr store buffer pointer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	793 leax >dot,pcr point to '.'
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	794 bsr open open directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	795 sta <fildes save path
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	796 lbsr rdtwo read '.' and '..' entries
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	797 ldd <dotdotfd get 24 bit LSN of ..
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	798 std <ddcopy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	799 lda <dotdotfd+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	800 sta <ddcopy+2 and save copy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	801 L0052 bsr AtRoot are we at root?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	802 beq L0079 branch if so
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	803 leax >dotdot,pcr else point to '..'
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	804 bsr chdir change directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	805 lda <fildes get path to previous dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	806 os9 I$Close close it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	807 lbcs Exit branch if error
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	808 leax >dot,pcr point X to new current dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	809 bsr open open it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	810 bsr rdtwo read . and .. entires of this dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	811 bsr FindMtch search for match
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	812 bsr L00E2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	813 ldd <dotdotfd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	814 std <ddcopy
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	815 lda <dotdotfd+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	816 sta <ddcopy+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	817 bra L0052
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	818 L0079 lbsr GetDevNm get device name
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	819 lda <fildes get path
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	820 os9 I$Close close
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	821 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	822
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	823 chdir lda #DIR.+READ.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	824 os9 I$ChgDir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	825 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	826
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	827 open lda #DIR.+READ.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	828 os9 I$Open
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	829 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	830
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	831 * Read directory entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	832 read32 lda <fildes
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	833 leax dentry,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	834 ldy #DIR.SZ
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	835 os9 I$Read
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	836 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	837
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	838 FindMtch lda <fildes get path to current dir
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	839 bsr read32 read entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	840 lbcs pwdrts branch if error
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	841 leax dentry,u point to entry buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	842 leax <DIR.FD,x point X to FD LSN
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	843 leay ddcopy,u point Y to copy of LSN
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	844 bsr attop compare the two
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	845 bne FindMtch keep reading until we find match
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	846 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	847
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	848 * Compare 3 bytes at X and Y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	849 attop ldd ,x++
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	850 cmpd ,y++
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	851 bne L00C5
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	852 lda ,x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	853 cmpa ,y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	854 L00C5 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	855
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	856 AtRoot leax dotdotfd,u point X at .. entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	857 leay dotfd,u point Y at . entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	858 bsr attop check if we're at the top
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	859 pwdrts rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	860
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	861 rdtwo bsr read32 * read "." from directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	862 ldd <dentry+DIR.FD
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	863 std <dotfd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	864 lda <dentry+DIR.FD+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	865 sta <dotfd+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	866 bsr read32 * read ".." from directory
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	867 ldd <dentry+DIR.FD
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	868 std <dotdotfd
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	869 lda <dentry+DIR.FD+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	870 sta <dotdotfd+2
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	871 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	872
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	873 * Get name from directory entry
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	874 L00E2 leax dentry,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	875 prsnam os9 F$PrsNam
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	876 lbcs pwdrts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	877 ldx <srcptr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	878 L00EB lda ,-y
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	879 anda #$7F mask hi bit
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	880 sta ,-x save
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	881 decb
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	882 bne L00EB
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	883 lda #PDELIM
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	884 sta ,-x
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	885 stx <srcptr
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	886 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	887
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	888 GetDevNm lda <fildes
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	889 ldb #SS.DevNm
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	890 leax >devname,u
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	891 os9 I$GetStt
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	892 bsr prsnam
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	893 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	894
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	895
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	896 * Entry: X = ptr to ASCII number
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	897 * Exit: B = byte value of ASCII number
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	898 ASC2Byte clrb clear B
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	899 ASC2BLp lda ,x+ get byte from X
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	900 cmpa #'0
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	901 blt ASC2BEx
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	902 suba #'0 make 8 bit integer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	903 cmpa #$09 compare against 9
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	904 bhi ASC2BEx branch if greater
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	905 pshs a else save A
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	906 lda #10 multiply by 10
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	907 mul do it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	908 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	909 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	910 ASC2BEx
c8489e2f382d Virtually 100% working EXCEPT for -b option. also need to support -b=xxx boisy parents: 951 diff changeset	911 * leax -1,x load byte
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	912 rts return
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	913
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	914 * Entry: Y = address to store number
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	915 * B = number to convert
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	916 Byte2ASC lda #$2F start A out just below $30 (0)
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	917 Hundreds inca inc it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	918 subb #100 subtract 100
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	919 bcc Hundreds if result >= 0, continue
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	920 cmpa #'0 zero?
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	921 beq Tens if so, don't add to buffer
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	922 sta ,y+ else save at U and inc.
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	923 Tens lda #$3A start A out just above $39 (9)
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	924 TensLoop deca dec it
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	925 addb #10 add 10
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	926 bcc TensLoop if carry clear, continue
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	927 sta ,y+ save 10's digit
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	928 addb #'0
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	929 stb ,y+ and 1's digit
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	930 rts
062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	931
0 6641a883d6b0 Initial revision boisy parents: diff changeset	932 emod
6641a883d6b0 Initial revision boisy parents: diff changeset	933 eom equ *
951 062d7f4e63b7 Start of new assembly dsave, still needs work boisy parents: 924 diff changeset	934 end

Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/dsave.asm @ 1509:f5e2b0e2cf29