A2osX/SYS/KERNEL.S.PFT.txt

PR#3
PREFIX /A2OSX.BUILD
LOMEM $A00
INC 1
AUTO 6
*--------------------------------------
* K.PFTAdd
*  In : 
*  Out : 
*--------------------------------------
K.PFTAdd		
				clc
				rts
*--------------------------------------
* K.PFTRemove
*  In : 
*  Out : 
*--------------------------------------
K.PFTRemove		
				clc
				rts
*--------------------------------------
* PFT.CheckPath___
*  In : 
*   PULLW/Y,A = PATH (PSTR)
*  Out : 
*--------------------------------------
PFT.CheckPathSTK
				lda (pStack)			read PTR.LO on top of stack
				pha
				ldy #1
				lda (pStack),y			read PTR.HI on top of stack
				ply
PFT.CheckPathYA
				stx S.PFT.SYSCALL		save #SYSCALL
				>STYA ZPPtr1
				
				>LDYAI FltMgr.Table
				>STYA ZPPtr2
				
.1				lda (ZPPtr2)		Get Filter Len
				beq .9					End Of Table, Exit
				tay 
				lda (ZPPtr1),y		is there a "/" at this point in SRC path?
				cmp #'/'
				bne .8
				
.2				lda (ZPPtr1),y	 				
				cmp (ZPPtr2),y	
				bne .8
				dey
				bne .2
				
				ldy #S.PFT.HANDLER
				lda (ZPPtr2),y		get hLib
				jsr K.GetMemPtrA
				>STYA .3+1
				
				lda S.PFT.SYSCALL		getback #SYSCALL
				sec
				sbc #SYS.FOpen-4		0=Lib.load, 2=Lib.Unload
				tax

				pla						discard JSR return @
				pla
				
				>LDYA ZPPtr1		restore passed params
.3				jmp $ffff
				
				
.8				lda ZPPtr2
				clc
				adc (ZPPtr2)		Add STR len
				adc #S.PFT
				sta ZPPtr2
				bcc .1
				
.9				>LDYA ZPPtr1		restore passed params
				ldx S.PFT.SYSCALL
				rts
*--------------------------------------
* PFT.Check___
*  In : 
*   PULLB/A = hFILE/hDIR
*  Out : 
*--------------------------------------
PFT.CheckNodeSTK
				lda (pStack)			read hFILE on top of stack
PFT.CheckNodeA	stx S.PFT.SYSCALL		save #SYSCALL
				sta S.PFT.hFILE
				jsr K.GetMemPtrA			X = unmidified
				>STYA ZPPtr1
				lda (ZPPtr1)
				beq .9						Handler is 0, back to kernel....
				
				jsr K.GetMemPtrA
				>STYA .1+1
				
				lda S.PFT.SYSCALL		getback #SYSCALL
				sec
				sbc #SYS.FOpen-4		0=Lib.load, 2=Lib.Unload
				tax

				pla						discard JSR return @
				pla
				
				lda S.PFT.hFILE			restore passed params
.1				jmp $ffff

				
.9				lda S.PFT.hFILE
				rts
*--------------------------------------
S.PFT.hFILE		.BS 1
S.PFT.SYSCALL	.BS 1
*--------------------------------------
MAN
SAVE /A2OSX.SRC/SYS/KERNEL.S.PFT
LOAD /A2OSX.SRC/SYS/KERNEL.S
ASM
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +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
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+								INC 1
 								AUTO 6
 								*--------------------------------------
-												Kernel version 0.8 : MLI API Removed
											
										
										
											2016-09-26 16:00:52 +00:00
+								* K.PFTAdd
 								*  In :
 								*  Out :
 								*--------------------------------------
 								K.PFTAdd
 												clc
 												rts
 								*--------------------------------------
 								* K.PFTRemove
 								*  In :
 								*  Out :
 								*--------------------------------------
 								K.PFTRemove
 												clc
 												rts
 								*--------------------------------------
-												Kernel version 0.8 : INIT2/INIT3 OK

											
										
										
											2016-09-29 15:30:15 +00:00
+								* PFT.CheckPath___
-												Kernel version 0.8 : MLI API Removed
											
										
										
											2016-09-26 16:00:52 +00:00
+								*  In :
 								*   PULLW/Y,A = PATH (PSTR)
 								*  Out :
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+								*--------------------------------------
-												Kernel version 0.8 : INIT2/INIT3 OK

											
										
										
											2016-09-29 15:30:15 +00:00
+								PFT.CheckPathSTK
-												Kernel : Implementing new FILE API with Path Filtering
											
										
										
											2016-08-26 15:10:38 +00:00
+												lda (pStack)			read PTR.LO on top of stack
 												pha
 												ldy #1
 												lda (pStack),y			read PTR.HI on top of stack
 												ply
-												Kernel version 0.8 : INIT2/INIT3 OK

											
										
										
											2016-09-29 15:30:15 +00:00
+								PFT.CheckPathYA
-												Kernel : Implementing new FILE API with Path Filtering
											
										
										
											2016-08-26 15:10:38 +00:00
+												stx S.PFT.SYSCALL		save #SYSCALL
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												>STYA ZPPtr1
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
-												Kernel version 0.8 : Fixed bug in STAT (AUXTYPE) preventing relocation
											
										
										
											2016-10-03 06:18:46 +00:00
+												>LDYAI FltMgr.Table
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												>STYA ZPPtr2
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								.1				lda (ZPPtr2)		Get Filter Len
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+												beq .9					End Of Table, Exit
 												tay
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												lda (ZPPtr1),y		is there a "/" at this point in SRC path?
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+												cmp #'/'
 												bne .8
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								.2				lda (ZPPtr1),y
 												cmp (ZPPtr2),y
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+												bne .8
 												dey
 												bne .2
-												Kernel version 0.8 (In Progress)
											
										
										
											2016-08-28 20:48:01 +00:00
+												ldy #S.PFT.HANDLER
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												lda (ZPPtr2),y		get hLib
-												Kernel version 0.8 : API cleanup/reorg
											
										
										
											2016-09-21 15:20:37 +00:00
+												jsr K.GetMemPtrA
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+												>STYA .3+1
-												Kernel : Implementing new FILE API with Path Filtering
											
										
										
											2016-08-26 15:10:38 +00:00
+												lda S.PFT.SYSCALL		getback #SYSCALL
 												sec
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												sbc #SYS.FOpen-4		0=Lib.load, 2=Lib.Unload
-												Kernel : Implementing new FILE API with Path Filtering
											
										
										
											2016-08-26 15:10:38 +00:00
+												tax
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+												pla						discard JSR return @
 												pla
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												>LDYA ZPPtr1		restore passed params
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+								.3				jmp $ffff
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								.8				lda ZPPtr2
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+												clc
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												adc (ZPPtr2)		Add STR len
-												Kernel : Implementing new FILE API with Path Filtering
											
										
										
											2016-08-26 15:10:38 +00:00
+												adc #S.PFT
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												sta ZPPtr2
-												Kernel : Implementing new FILE API with Path Filtering
											
										
										
											2016-08-26 15:10:38 +00:00
+												bcc .1
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								.9				>LDYA ZPPtr1		restore passed params
-												Kernel : Implementing new FILE API with Path Filtering
											
										
										
											2016-08-26 15:10:38 +00:00
+												ldx S.PFT.SYSCALL
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+												rts
 								*--------------------------------------
-												Kernel version 0.8 : INIT2/INIT3 OK

											
										
										
											2016-09-29 15:30:15 +00:00
+								* PFT.Check___
-												Kernel version 0.8 : MLI API Removed
											
										
										
											2016-09-26 16:00:52 +00:00
+								*  In :
 								*   PULLB/A = hFILE/hDIR
 								*  Out :
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+								*--------------------------------------
-												Kernel version 0.9 : Introducing Node API, FIFOs, DEVs, and sockets....
											
										
										
											2016-12-09 16:36:24 +00:00
+								PFT.CheckNodeSTK
-												Kernel : Implementing new FILE API with Path Filtering
											
										
										
											2016-08-26 15:10:38 +00:00
+												lda (pStack)			read hFILE on top of stack
-												Kernel version 0.9 : Introducing Node API, FIFOs, DEVs, and sockets....
											
										
										
											2016-12-09 16:36:24 +00:00
+								PFT.CheckNodeA	stx S.PFT.SYSCALL		save #SYSCALL
-												Kernel : Implementing new FILE API with Path Filtering #2, INIT2/INIT3 bug fixes
											
										
										
											2016-08-29 15:12:04 +00:00
+												sta S.PFT.hFILE
-												Kernel version 0.8 : API cleanup/reorg
											
										
										
											2016-09-21 15:20:37 +00:00
+												jsr K.GetMemPtrA			X = unmidified
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												>STYA ZPPtr1
 												lda (ZPPtr1)
-												Kernel : Implementing new FILE API with Path Filtering #2, INIT2/INIT3 bug fixes
											
										
										
											2016-08-29 15:12:04 +00:00
+												beq .9						Handler is 0, back to kernel....
-												Kernel version 0.8 : API cleanup/reorg
											
										
										
											2016-09-21 15:20:37 +00:00
+												jsr K.GetMemPtrA
-												Kernel : Implementing new FILE API with Path Filtering #2, INIT2/INIT3 bug fixes
											
										
										
											2016-08-29 15:12:04 +00:00
+												>STYA .1+1
 												lda S.PFT.SYSCALL		getback #SYSCALL
 												sec
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												sbc #SYS.FOpen-4		0=Lib.load, 2=Lib.Unload
-												Kernel : Implementing new FILE API with Path Filtering #2, INIT2/INIT3 bug fixes
											
										
										
											2016-08-29 15:12:04 +00:00
+												tax
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
-												Kernel : Implementing new FILE API with Path Filtering #2, INIT2/INIT3 bug fixes
											
										
										
											2016-08-29 15:12:04 +00:00
+												pla						discard JSR return @
 												pla
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
-												Kernel : Implementing new FILE API with Path Filtering #2, INIT2/INIT3 bug fixes
											
										
										
											2016-08-29 15:12:04 +00:00
+												lda S.PFT.hFILE			restore passed params
 								.1				jmp $ffff
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
-												Kernel : Implementing new FILE API with Path Filtering #2, INIT2/INIT3 bug fixes
											
										
										
											2016-08-29 15:12:04 +00:00
 								.9				lda S.PFT.hFILE
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+												rts
 								*--------------------------------------
-												Kernel : Implementing new FILE API with Path Filtering #2, INIT2/INIT3 bug fixes
											
										
										
											2016-08-29 15:12:04 +00:00
+								S.PFT.hFILE		.BS 1
-												Kernel : Implementing new FILE API with Path Filtering
											
										
										
											2016-08-26 15:10:38 +00:00
+								S.PFT.SYSCALL	.BS 1
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+								*--------------------------------------
 								MAN
-												Kernel version 0.9 : MEDIA reorganisation
											
										
										
											2017-03-29 15:48:15 +00:00
+								SAVE /A2OSX.SRC/SYS/KERNEL.S.PFT
 								LOAD /A2OSX.SRC/SYS/KERNEL.S
-												Path Filter:Work In Progress
											
										
										
											2016-08-24 15:42:33 +00:00
+								ASM