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

annotate level1/cmds/dsave.asm @ 1531:20841f236e32

'use rbfdefs' moved to upper defsfile

author	boisy
date	Fri, 16 Apr 2004 23:38:19 +0000
parents	9859ddd89ff8
children	40322608e006

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

Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/dsave.asm @ 1531:20841f236e32