A2osX/SYS/KERNEL.S.ARG.txt

56 lines
1.0 KiB
Plaintext
Raw Normal View History

2017-12-22 21:24:30 +00:00
NEW
PREFIX /A2OSX.BUILD
2017-12-22 21:24:30 +00:00
AUTO 4,1
*/--------------------------------------
* # GetArg.A
* ## In:
* A = argument index.
* ## Out:
* CC : success
* Y,A = CStr To Arg[A]
2016-08-17 06:25:58 +00:00
* CS : Out Of Bound
*\--------------------------------------
K.GetArg.A pha save requested arg#
2016-08-17 06:25:58 +00:00
ldy #S.PS.hARGS
2016-08-17 06:25:58 +00:00
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
2017-01-12 17:43:45 +00:00
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
2016-08-17 06:25:58 +00:00
*--------------------------------------
MAN
SAVE /A2OSX.SRC/SYS/KERNEL.S.ARG
LOAD /A2OSX.SRC/SYS/KERNEL.S
2016-08-17 06:25:58 +00:00
ASM