A2osX/SYS/KERNEL.S.ARG.txt
2016-09-21 17:20:37 +02:00

76 lines
1.3 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

PR#3
PREFIX /A2OSX.SRC
NEW
INC 1
AUTO 6
.LIST OFF
*--------------------------------------
* Out : A = Command line Arg Count
*--------------------------------------
K.GetArgC jsr S.InitArgPtr1
ldx #0
.1 lda (ZPQuickPtr1)
beq .8
jsr S.NextArgPtr1
inx
bne .1
.8 txa
clc
rts
*--------------------------------------
* In :
* A = Arg Index
* Out :
* CC : Y,A = PStr To Arg[A]
* CS : Out Of Bound
*--------------------------------------
K.GetArgA sta K.GetArgA.Idx
jsr S.InitArgPtr1
lda K.GetArgA.Idx
beq .8
ldx #0
.1 lda (ZPQuickPtr1)
beq .9
cpx K.GetArgA.Idx
beq .8
jsr S.NextArgPtr1
inx
bra .1
.8 >LDYA ZPQuickPtr1
clc
rts
.9 sec
rts
*--------------------------------------
S.InitArgPtr1 ldy #S.PS.hCMDLINE
lda (pPs),y
jsr K.GetMemPtrA
>STYA ZPQuickPtr1
rts
*--------------------------------------
S.NextArgPtr1 lda ZPQuickPtr1
sec
adc (ZPQuickPtr1)
sta ZPQuickPtr1
bcc .8
inc ZPQuickPtr1+1
.8 rts
*--------------------------------------
K.GetArgA.Idx .BS 1
*--------------------------------------
MAN
SAVE SYS/KERNEL.S.ARG
LOAD SYS/KERNEL.S
ASM