A2osX/SYS/KERNEL.S.ARG.txt
2016-09-29 17:30:15 +02:00

74 lines
1.2 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 ARG.InitArgPtr1
ldx #0
.1 lda (ZPQuickPtr1)
beq .8
jsr ARG.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 .2+1
jsr ARG.InitArgPtr1
lda .2+1
beq .8
ldx #0
.1 lda (ZPQuickPtr1)
beq .9
.2 cpx #$ff Self Modified
beq .8
jsr ARG.NextArgPtr1
inx
bra .1
.8 >LDYA ZPQuickPtr1
clc
rts
.9 sec
rts
*--------------------------------------
ARG.InitArgPtr1 ldy #S.PS.hCMDLINE
lda (pPs),y
jsr K.GetMemPtrA
>STYA ZPQuickPtr1
rts
*--------------------------------------
ARG.NextArgPtr1 lda ZPQuickPtr1
sec
adc (ZPQuickPtr1)
sta ZPQuickPtr1
bcc .8
inc ZPQuickPtr1+1
.8 rts
*--------------------------------------
MAN
SAVE SYS/KERNEL.S.ARG
LOAD SYS/KERNEL.S
ASM