A2osX/SYS/KERNEL.S.ARG.txt

PR#3
PREFIX /A2OSX.BUILD
LOMEM $A00
INC 1
AUTO 6
*/--------------------------------------
* # 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
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+								PR#3
-												Kernel version 0.9 : MEDIA reorganisation
											
										
										
											2017-03-29 15:48:15 +00:00
+								PREFIX /A2OSX.BUILD
-												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
+								*/--------------------------------------
-												Kernel 0.9.1 : Code reorganization & move to CSTR
											
										
										
											2017-08-24 12:46:48 +00:00
+								* # GetArg.A
-												Kernel version 0.9 : MEDIA reorganisation, FORMAT Cmd
											
										
										
											2017-03-30 16:11:31 +00:00
+								* ## 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.9 : MEDIA reorganisation, FORMAT Cmd
											
										
										
											2017-03-30 16:11:31 +00:00
+								* ## Out:
-												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
+								*  CC : success
-												Kernel 0.9.1 : Code reorganization & move to CSTR
											
										
										
											2017-08-24 06:47:31 +00:00
+								*   Y,A = CStr 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 0.9.1 : Code reorganization & move to CSTR (SHELL, History, bugfix)
											
										
										
											2017-09-25 15:50:33 +00:00
+								K.GetArg.A		pha						save requested arg#
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
-												Kernel 0.9.1 : Code reorganization & move to CSTR (SHELL, History, bugfix)
											
										
										
											2017-09-25 15:50:33 +00:00
+												ldy #S.PS.hARGS
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+												lda (pPs),y
-												Kernel 0.9.1 : Code reorganization & move to CSTR
											
										
										
											2017-08-25 06:37:21 +00:00
+												jsr K.GetMemPtr.A
-												Kernel 0.9.1 : Code reorganization & move to CSTR (SHELL, History, bugfix)
											
										
										
											2017-09-25 15:50:33 +00:00
 												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
-												Kernel 0.9.1 : Code reorganization & move to CSTR
											
										
										
											2017-08-24 06:47:31 +00:00
+												inc ZPPtr1+1
-												Kernel 0.9.1 : Code reorganization & move to CSTR (SHELL, History, bugfix)
											
										
										
											2017-09-25 15:50:33 +00:00
+								.4				lda (ZPPtr1)
 												bne .3
-												Kernel 0.9.1 : Code reorganization & move to CSTR
											
										
										
											2017-08-24 06:47:31 +00:00
-												Kernel 0.9.1 : Code reorganization & move to CSTR (SHELL, History, bugfix)
											
										
										
											2017-09-25 15:50:33 +00:00
+												inc ZPPtr1				....and point to next, or ending 0
 												bne .5
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												inc ZPPtr1+1
-												Kernel 0.9.1 : Code reorganization & move to CSTR (SHELL, History, bugfix)
											
										
										
											2017-09-25 15:50:33 +00:00
 								.5				dex
-												Kernel 0.9.1 : Code reorganization & move to CSTR, new RealPath.YA API
											
										
										
											2017-09-28 15:39:12 +00:00
+												bne .1					stop here....
 												lda (ZPPtr1)			at end of ARGS[] ?
 												beq .9
-												Kernel 0.9.1 : Code reorganization & move to CSTR (SHELL, History, bugfix)
											
										
										
											2017-09-25 15:50:33 +00:00
 								.8				>LDYA ZPPtr1
 								.80				clc
 												rts
 								.9				sec
 												rts
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+								*--------------------------------------
 								MAN
-												Kernel version 0.9 : MEDIA reorganisation
											
										
										
											2017-03-29 15:48:15 +00:00
+								SAVE /A2OSX.SRC/SYS/KERNEL.S.ARG
 								LOAD /A2OSX.SRC/SYS/KERNEL.S
-												Kernel version 0.8 (Initial Commit)
											
										
										
											2016-08-17 06:25:58 +00:00
+								ASM