A2osX/SYS/KERNEL.S.ARG.txt

PR#3
PREFIX /A2OSX.SRC
LOMEM $A00
INC 1
AUTO 6
*/--------------------------------------
* #GetArgC
* Returns argument count in the process command line.
* ##In:
*  none.
* ##Out: 
*  A = Command line Arg Count (Including /path/cmd)
*\--------------------------------------
K.GetArgC		jsr ARG.InitArgPtr1

				ldx #0
				
.1				lda (ZPPtr1)
				beq .8
				
				jsr ARG.NextArgPtr1
				inx
				bne .1
				
.8				txa
				rts
*/--------------------------------------
* #GetArgA
* ##In:
*  A = argument index.
* ##Out: 
*  CC : success
*   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 (ZPPtr1)
				beq .9
				
.2				cpx #$ff				Self Modified
				beq .8
				
				jsr ARG.NextArgPtr1
				inx
				bra .1
				
.8				>LDYA ZPPtr1
				clc
				rts
				
.9				sec
				rts
*--------------------------------------
ARG.InitArgPtr1	ldy #S.PS.hCMDLINE	
				lda (pPs),y
				jsr K.GetMemPtrA
				>STYA ZPPtr1
				rts
*--------------------------------------
ARG.NextArgPtr1	lda ZPPtr1
				sec
				adc (ZPPtr1)
				sta ZPPtr1
				bcc .8
				inc ZPPtr1+1
.8				rts	
*--------------------------------------
MAN
SAVE SYS/KERNEL.S.ARG
LOAD SYS/KERNEL.S
ASM
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+								PR#3
 								PREFIX /A2OSX.SRC
-												Kernel version 0.9 : BLOCK DEVICES, extended S.DEV struct to store ROM entry point,BUS/DEV....moved the whole code to 16 Bytes S.DEV (Max 32 devices)
											
										
										
											2017-03-15 16:44:15 +00:00
+								LOMEM $A00
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+								INC 1
 								AUTO 6
-												Kernel version 0.8 : BUGFIX in CD: not processing .. correctly, missing ending / when changing to another volume. BUGFIX in LS:File count missing one.
Additional Kernel API Documentation
LIBSTR deleted, now Kernel API
											
										
										
											2016-10-24 15:54:43 +00:00
+								*/--------------------------------------
 								* #GetArgC
-												Kernel version 0.8 : added PWD alias in SHELL, modified LS to display DIR/ instead of /DIR
											
										
										
											2016-10-25 06:58:15 +00:00
+								* Returns argument count in the process command line.
-												Kernel version 0.8 : BUGFIX in CD: not processing .. correctly, missing ending / when changing to another volume. BUGFIX in LS:File count missing one.
Additional Kernel API Documentation
LIBSTR deleted, now Kernel API
											
										
										
											2016-10-24 15:54:43 +00:00
+								* ##In:
 								*  none.
 								* ##Out:
 								*  A = Command line Arg Count (Including /path/cmd)
 								*\--------------------------------------
-												Kernel version 0.8 : INIT2/INIT3 OK

											
										
										
											2016-09-29 15:30:15 +00:00
+								K.GetArgC		jsr ARG.InitArgPtr1
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
 												ldx #0
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								.1				lda (ZPPtr1)
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+												beq .8
-												Kernel version 0.8 : INIT2/INIT3 OK

											
										
										
											2016-09-29 15:30:15 +00:00
+												jsr ARG.NextArgPtr1
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+												inx
 												bne .1
 								.8				txa
 												rts
-												Kernel version 0.8 : BUGFIX in CD: not processing .. correctly, missing ending / when changing to another volume. BUGFIX in LS:File count missing one.
Additional Kernel API Documentation
LIBSTR deleted, now Kernel API
											
										
										
											2016-10-24 15:54:43 +00:00
+								*/--------------------------------------
 								* #GetArgA
 								* ##In:
-												Kernel version 0.8 : added PWD alias in SHELL, modified LS to display DIR/ instead of /DIR
											
										
										
											2016-10-25 06:58:15 +00:00
+								*  A = argument index.
-												Kernel version 0.8 : BUGFIX in CD: not processing .. correctly, missing ending / when changing to another volume. BUGFIX in LS:File count missing one.
Additional Kernel API Documentation
LIBSTR deleted, now Kernel API
											
										
										
											2016-10-24 15:54:43 +00:00
+								* ##Out:
 								*  CC : success
 								*   Y,A = PStr To Arg[A]
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+								*  CS : Out Of Bound
-												Kernel version 0.8 : BUGFIX in CD: not processing .. correctly, missing ending / when changing to another volume. BUGFIX in LS:File count missing one.
Additional Kernel API Documentation
LIBSTR deleted, now Kernel API
											
										
										
											2016-10-24 15:54:43 +00:00
+								*\--------------------------------------
-												Kernel version 0.8 : MLI API Removed
											
										
										
											2016-09-26 16:00:52 +00:00
+								K.GetArgA		sta .2+1
-												Kernel version 0.8 : INIT2/INIT3 OK

											
										
										
											2016-09-29 15:30:15 +00:00
+												jsr ARG.InitArgPtr1
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
-												Kernel version 0.8 : MLI API Removed
											
										
										
											2016-09-26 16:00:52 +00:00
+												lda .2+1
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+												beq .8
 												ldx #0
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								.1				lda (ZPPtr1)
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+												beq .9
-												Kernel version 0.8 : MLI API Removed
											
										
										
											2016-09-26 16:00:52 +00:00
+								.2				cpx #$ff				Self Modified
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+												beq .8
-												Kernel version 0.8 : INIT2/INIT3 OK

											
										
										
											2016-09-29 15:30:15 +00:00
+												jsr ARG.NextArgPtr1
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+												inx
 												bra .1
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								.8				>LDYA ZPPtr1
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+												clc
 												rts
 								.9				sec
 												rts
 								*--------------------------------------
-												Kernel version 0.8 : INIT2/INIT3 OK

											
										
										
											2016-09-29 15:30:15 +00:00
+								ARG.InitArgPtr1	ldy #S.PS.hCMDLINE
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+												lda (pPs),y
-												Kernel version 0.8 : API cleanup/reorg
											
										
										
											2016-09-21 15:20:37 +00:00
+												jsr K.GetMemPtrA
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												>STYA ZPPtr1
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+												rts
 								*--------------------------------------
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								ARG.NextArgPtr1	lda ZPPtr1
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+												sec
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												adc (ZPPtr1)
 												sta ZPPtr1
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+												bcc .8
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												inc ZPPtr1+1
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+								.8				rts
 								*--------------------------------------
 								MAN
 								SAVE SYS/KERNEL.S.ARG
 								LOAD SYS/KERNEL.S
 								ASM