NEW
PREFIX /A2OSX.BUILD
AUTO 4,1
*/--------------------------------------
* # GetArg.A
* ## In:
*  A = argument index.
* ## Out: 
*  CC : success
*   Y,A = CStr To Arg[A]
*  CS : Out Of Bound
*\--------------------------------------
K.GetArg.A		pha						save requested arg#
				
				ldy #S.PS.hARGS	
				lda (pPs),y
				jsr K.GetMemPtr.A

				plx						we want 0 ?

				beq .80					yes, returns MemPtr

				>STYA ZPPtr1			no, save it
								
.1				lda (ZPPtr1)			end of ARG[]
				beq .9					yes, not found....
				
.3				inc ZPPtr1				skip next one....
				bne .4
				inc ZPPtr1+1
				
.4				lda (ZPPtr1)
				bne .3
				
				inc ZPPtr1				....and point to next, or ending 0
				bne .5
				inc ZPPtr1+1

.5				dex
				bne .1					stop here....
				
				lda (ZPPtr1)			at end of ARGS[] ?
				beq .9

.8				>LDYA ZPPtr1
.80				clc
				rts

.9				sec
				rts	
*--------------------------------------
MAN
SAVE /A2OSX.SRC/SYS/KERNEL.S.ARG
LOAD /A2OSX.SRC/SYS/KERNEL.S
ASM