A2osX/SYS/KERNEL.S.FIO.txt

PR#3
PREFIX /A2OSX.BUILD
LOMEM $A00
INC 1
AUTO 6
*/--------------------------------------
* # LoadFile
* ## In:
*  PUSHW = AUXTYPE (Handled by....
*  PUSHB = TYPE  ...
*  PUSHB = MODE  ...
*  PUSHW = PATH ...FOpen)
* ## Out:
*  Y,A = File Length
*  X = hMem of Loaded File
*\--------------------------------------
K.LoadFile		jsr K.FOpen
				bcs .9
				sta K.LoadFile.hFile
				
				jsr K.LoadFile.GetLen
				bcs .99
				
				>LDYA K.LoadFile.FSize
				jsr K.GetMem.YA
				bcs .99
				>STYA K.LoadFile.Mem
				stx .8+1				
								
				>PUSHW K.LoadFile.Mem
				>PUSHW K.LoadFile.FSize
				>PUSHB K.LoadFile.hFile
				jsr K.FRead
				bcs .97

				phy
				pha						Save Bytes read
				
				jsr .99
				
				pla
				ply
.8				ldx #$ff				Self Modified
				clc
.9				rts
				
.97				pha
				lda .8+1
				jsr K.FreeMem.A
				pla

.99				pha
				lda K.LoadFile.hFile
				jsr K.FClose.A
				pla
				sec
				rts
*--------------------------------------
K.LoadFile.GetLen
				stz K.LoadFile.FPos
				stz K.LoadFile.FPos+1
				stz K.LoadFile.FPos+2
				stz K.LoadFile.FPos+3
				
				>PUSHWI K.LoadFile.FPos
				>PUSHBI SYS.FSeek.END
				>PUSHB K.LoadFile.hFile
				jsr K.FSeek
				bcs .99

				>PUSHWI K.LoadFile.FPos
				>PUSHB K.LoadFile.hFile
				jsr K.FTell
				bcs .99

				lda K.LoadFile.FPos+2
				ora K.LoadFile.FPos+3
				bne .98					too big!
				
				>LDYA K.LoadFile.FPos
				>STYA K.LoadFile.FSize

				stz K.LoadFile.FPos
				stz K.LoadFile.FPos+1
				
				>PUSHWI K.LoadFile.FPos
				>PUSHBI SYS.FSeek.SET
				>PUSHB K.LoadFile.hFile
				jmp K.FSeek
				
.98				lda #SYSMGR.ERRFTB
.99				rts
*--------------------------------------
K.LoadFile.hFile	.BS 1
K.LoadFile.FPos 	.BS 4
K.LoadFile.Mem		.BS 2
K.LoadFile.FSize	.BS 2
*/--------------------------------------
* # SaveFile
* ## In:
*  PUSHW = SrcPtr
*  PUSHW = SrcLen
*  PUSHW = AUXTYPE (Handled by....
*  PUSHB = TYPE  ...
*  PUSHB = MODE  ...
*  PUSHW = PATH ...FOpen)
*\--------------------------------------
K.SaveFile		jsr K.FOpen
				bcs .9

				sta .90+1
				
				>PUSHA
				jsr K.FWrite
				bcs .99
				
				jsr .99
				clc
				rts
				
.99				pha
.90				lda #$ff
				jsr K.FClose.A
				pla
				sec
				rts	

.9				pha
				lda pStack				Discard SrcPtr & SrcLen
				clc
				adc #4
				sta pStack
				pla
				sec
				rts
*/--------------------------------------
* # ChTyp
* ## In:
*  PUSHB = TYPE
*  PUSHW = PATH
*\--------------------------------------
K.ChTyp			jsr PFT.CheckPathSTK
				jsr STDIO.PullMLIPath
				>PULLB .1+1
				>MLICALL MLIGETFILEINFO
				bcs .9
				
.1				lda #$ff
				sta K.MLI.PARAMS+S.FILEINFO.TYPE
				>MLICALL MLISETFILEINFO
.9				rts
*/--------------------------------------
* # ChMod
* ## In:
*  PUSHW = UID
*  PUSHW = PATH
*\--------------------------------------
K.ChMod			
*/--------------------------------------
* # ChOwn
* ## In:
*  PUSHW = UID
*  PUSHW = PATH
*\--------------------------------------
K.ChOwn			
*/--------------------------------------
* # ChGrp
* ## In:
*  PUSHW = GID
*  PUSHW = PATH
*\--------------------------------------
K.ChGrp			
				sec
				rts
*--------------------------------------
MAN
SAVE /A2OSX.SRC/SYS/KERNEL.S.FIO
LOAD /A2OSX.SRC/SYS/KERNEL.S
ASM
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +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
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								INC 1
 								AUTO 6
-												Kernel version 0.8 : ANSI conversion & API 0.8 compliance
											
										
										
											2016-10-26 20:51:06 +00:00
+								*/--------------------------------------
-												Kernel version 0.9 : MEDIA reorganisation, FORMAT Cmd
											
										
										
											2017-03-30 16:11:31 +00:00
+								* # LoadFile
 								* ## In:
-												Kernel version 0.8 : ANSI conversion & API 0.8 compliance
											
										
										
											2016-10-26 20:51:06 +00:00
+								*  PUSHW = AUXTYPE (Handled by....
 								*  PUSHB = TYPE  ...
 								*  PUSHB = MODE  ...
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								*  PUSHW = PATH ...FOpen)
-												Kernel version 0.9 : MEDIA reorganisation, FORMAT Cmd
											
										
										
											2017-03-30 16:11:31 +00:00
+								* ## Out:
-												Kernel version 0.8 : ANSI conversion & API 0.8 compliance
											
										
										
											2016-10-26 20:51:06 +00:00
+								*  Y,A = File Length
 								*  X = hMem of Loaded File
 								*\--------------------------------------
-												Kernel 0.9.1 : BugFix in AtoF, LoadFile, reviewed FTell/FSeek API
											
										
										
											2017-10-09 15:30:48 +00:00
+								K.LoadFile		jsr K.FOpen
 												bcs .9
 												sta K.LoadFile.hFile
-												Kernel version 0.8 : FILE/DIR migration in BIN/EDIT
											
										
										
											2016-09-20 16:00:51 +00:00
-												Kernel 0.9.1 : BugFix in AtoF, LoadFile, reviewed FTell/FSeek API
											
										
										
											2017-10-09 15:30:48 +00:00
+												jsr K.LoadFile.GetLen
 												bcs .99
 												>LDYA K.LoadFile.FSize
-												Kernel 0.9.1 : Code reorganization & move to CSTR
											
										
										
											2017-08-25 06:37:21 +00:00
+												jsr K.GetMem.YA
-												Kernel 0.9.1 : BugFix in AtoF, LoadFile, reviewed FTell/FSeek API
											
										
										
											2017-10-09 15:30:48 +00:00
+												bcs .99
-												Kernel version 0.8 : API cleanup/reorg
											
										
										
											2016-09-21 15:20:37 +00:00
+												>STYA K.LoadFile.Mem
-												Kernel 0.9.1 : KERNEL API reorg
											
										
										
											2017-09-29 06:36:27 +00:00
+												stx .8+1
-												Kernel 0.9.1 : BugFix in AtoF, LoadFile, reviewed FTell/FSeek API
											
										
										
											2017-10-09 15:30:48 +00:00
-												Kernel version 0.8 : API cleanup/reorg
											
										
										
											2016-09-21 15:20:37 +00:00
+												>PUSHW K.LoadFile.Mem
-												Kernel 0.9.1 : BugFix in AtoF, LoadFile, reviewed FTell/FSeek API
											
										
										
											2017-10-09 15:30:48 +00:00
+												>PUSHW K.LoadFile.FSize
-												Kernel version 0.8 : API cleanup/reorg
											
										
										
											2016-09-21 15:20:37 +00:00
+												>PUSHB K.LoadFile.hFile
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												jsr K.FRead
-												Kernel version 0.8 : Fixed a nasty bug in Relocator, but another one still there in K/LoadFile
											
										
										
											2016-09-30 15:04:55 +00:00
+												bcs .97
-												Kernel version 0.9 : Lowercase support, bugfix in CP/MV/RV
											
										
										
											2017-06-21 15:46:43 +00:00
 												phy
 												pha						Save Bytes read
-												Kernel version 0.8 : FILE/DIR migration in BIN/EDIT
											
										
										
											2016-09-20 16:00:51 +00:00
 												jsr .99
-												Kernel version 0.8 : API cleanup/reorg
											
										
										
											2016-09-21 15:20:37 +00:00
-												Kernel version 0.9 : Lowercase support, bugfix in CP/MV/RV
											
										
										
											2017-06-21 15:46:43 +00:00
+												pla
 												ply
-												Kernel 0.9.1 : KERNEL API reorg
											
										
										
											2017-09-29 06:36:27 +00:00
+								.8				ldx #$ff				Self Modified
-												Kernel version 0.8 : FILE/DIR migration in BIN/EDIT
											
										
										
											2016-09-20 16:00:51 +00:00
+												clc
-												Kernel version 0.8 : API cleanup/reorg
											
										
										
											2016-09-21 15:20:37 +00:00
+								.9				rts
-												Kernel version 0.9 : Lowercase support, bugfix in CP/MV/RV
											
										
										
											2017-06-21 15:46:43 +00:00
-												Kernel version 0.8 : Fixed a nasty bug in Relocator, but another one still there in K/LoadFile
											
										
										
											2016-09-30 15:04:55 +00:00
+								.97				pha
-												Kernel 0.9.1 : KERNEL API reorg
											
										
										
											2017-09-29 06:36:27 +00:00
+												lda .8+1
-												Kernel 0.9.1 : Code reorganization & move to CSTR
											
										
										
											2017-08-25 06:37:21 +00:00
+												jsr K.FreeMem.A
-												Kernel version 0.8 : Fixed a nasty bug in Relocator, but another one still there in K/LoadFile
											
										
										
											2016-09-30 15:04:55 +00:00
+												pla
-												Kernel version 0.8 : API cleanup/reorg
											
										
										
											2016-09-21 15:20:37 +00:00
-												Kernel version 0.8 : FILE/DIR migration in BIN/EDIT
											
										
										
											2016-09-20 16:00:51 +00:00
+								.99				pha
-												Kernel version 0.8 : API cleanup/reorg
											
										
										
											2016-09-21 15:20:37 +00:00
+												lda K.LoadFile.hFile
-												Kernel 0.9.1 : Code reorganization & move to CSTR
											
										
										
											2017-08-25 06:37:21 +00:00
+												jsr K.FClose.A
-												Kernel version 0.8 : FILE/DIR migration in BIN/EDIT
											
										
										
											2016-09-20 16:00:51 +00:00
+												pla
 												sec
-												Kernel version 0.8 : API cleanup/reorg
											
										
										
											2016-09-21 15:20:37 +00:00
+												rts
 								*--------------------------------------
-												Kernel 0.9.1 : BugFix in AtoF, LoadFile, reviewed FTell/FSeek API
											
										
										
											2017-10-09 15:30:48 +00:00
+								K.LoadFile.GetLen
 												stz K.LoadFile.FPos
 												stz K.LoadFile.FPos+1
 												stz K.LoadFile.FPos+2
 												stz K.LoadFile.FPos+3
 												>PUSHWI K.LoadFile.FPos
 												>PUSHBI SYS.FSeek.END
 												>PUSHB K.LoadFile.hFile
 												jsr K.FSeek
 												bcs .99
 												>PUSHWI K.LoadFile.FPos
 												>PUSHB K.LoadFile.hFile
 												jsr K.FTell
 												bcs .99
 												lda K.LoadFile.FPos+2
 												ora K.LoadFile.FPos+3
 												bne .98					too big!
 												>LDYA K.LoadFile.FPos
 												>STYA K.LoadFile.FSize
 												stz K.LoadFile.FPos
 												stz K.LoadFile.FPos+1
 												>PUSHWI K.LoadFile.FPos
 												>PUSHBI SYS.FSeek.SET
 												>PUSHB K.LoadFile.hFile
 												jmp K.FSeek
 								.98				lda #SYSMGR.ERRFTB
 								.99				rts
 								*--------------------------------------
-												Kernel version 0.9 : Lowercase support, bugfix in CP/MV/RV
											
										
										
											2017-06-21 15:46:43 +00:00
+								K.LoadFile.hFile	.BS 1
-												Kernel 0.9.1 : BugFix in AtoF, LoadFile, reviewed FTell/FSeek API
											
										
										
											2017-10-09 15:30:48 +00:00
+								K.LoadFile.FPos 	.BS 4
 								K.LoadFile.Mem		.BS 2
 								K.LoadFile.FSize	.BS 2
-												Kernel version 0.8 : ANSI conversion & API 0.8 compliance
											
										
										
											2016-10-26 20:51:06 +00:00
+								*/--------------------------------------
-												Kernel version 0.9 : MEDIA reorganisation, FORMAT Cmd
											
										
										
											2017-03-30 16:11:31 +00:00
+								* # SaveFile
 								* ## In:
-												Kernel version 0.8 : ANSI conversion & API 0.8 compliance
											
										
										
											2016-10-26 20:51:06 +00:00
+								*  PUSHW = SrcPtr
-												Kernel version 0.9 : KCONFIG, bugfix in Stat and Loadfile....#1 
											
										
										
											2017-04-12 15:46:03 +00:00
+								*  PUSHW = SrcLen
-												Kernel version 0.8 : ANSI conversion & API 0.8 compliance
											
										
										
											2016-10-26 20:51:06 +00:00
+								*  PUSHW = AUXTYPE (Handled by....
 								*  PUSHB = TYPE  ...
 								*  PUSHB = MODE  ...
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								*  PUSHW = PATH ...FOpen)
-												Kernel version 0.8 : ANSI conversion & API 0.8 compliance
											
										
										
											2016-10-26 20:51:06 +00:00
+								*\--------------------------------------
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								K.SaveFile		jsr K.FOpen
-												Kernel version 0.8 : FILE/DIR migration in BIN/EDIT
											
										
										
											2016-09-20 16:00:51 +00:00
+												bcs .9
-												Kernel version 0.9 : Lowercase support, bugfix in CP/MV/RV
											
										
										
											2017-06-21 15:46:43 +00:00
+												sta .90+1
-												Kernel version 0.8 : FILE/DIR migration in BIN/EDIT
											
										
										
											2016-09-20 16:00:51 +00:00
-												Kernel version 0.9 : Lowercase support, bugfix in CP/MV/RV
											
										
										
											2017-06-21 15:46:43 +00:00
+												>PUSHA
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												jsr K.FWrite
-												Kernel version 0.8 : FILE/DIR migration in BIN/EDIT
											
										
										
											2016-09-20 16:00:51 +00:00
+												bcs .99
 												jsr .99
 												clc
 												rts
 								.99				pha
-												Kernel version 0.9 : Lowercase support, bugfix in CP/MV/RV
											
										
										
											2017-06-21 15:46:43 +00:00
+								.90				lda #$ff
-												Kernel 0.9.1 : Code reorganization & move to CSTR
											
										
										
											2017-08-25 06:37:21 +00:00
+												jsr K.FClose.A
-												Kernel version 0.8 : FILE/DIR migration in BIN/EDIT
											
										
										
											2016-09-20 16:00:51 +00:00
+												pla
 												sec
-												Kernel 0.9.1 : Code reorganization & move to CSTR
											
										
										
											2017-08-24 15:29:22 +00:00
+												rts
-												Kernel version 0.9 : Lowercase support, bugfix in CP/MV/RV
											
										
										
											2017-06-21 15:46:43 +00:00
+								.9				pha
-												Kernel 0.9.1 : STDLIB : AToF, StrToF (wip), MACROS CLeanup, code Reorg STDIO/STDLIB
											
										
										
											2017-10-12 15:28:59 +00:00
+												lda pStack				Discard SrcPtr & SrcLen
 												clc
 												adc #4
 												sta pStack
-												Kernel version 0.9 : Lowercase support, bugfix in CP/MV/RV
											
										
										
											2017-06-21 15:46:43 +00:00
+												pla
-												Kernel version 0.8 : Code reorg to save few bytes!
											
										
										
											2016-10-21 15:03:41 +00:00
+												sec
 												rts
-												Kernel version 0.9 : CHTYP and related API entries added to kernel....still in progress
											
										
										
											2017-04-03 21:13:46 +00:00
+								*/--------------------------------------
 								* # ChTyp
 								* ## In:
-												Kernel version 0.9 : ***new media dated 2017-04-04
-bugfix in SHELL batch mode, CP, FORMAT, ENV processing
-CHTYP Command running.
-Now, A2OSX.BOOT media is built from MAKEBOOT script from A2OSX.BUILD
											
										
										
											2017-04-04 13:07:58 +00:00
+								*  PUSHB = TYPE
 								*  PUSHW = PATH
-												Kernel version 0.9 : CHTYP and related API entries added to kernel....still in progress
											
										
										
											2017-04-03 21:13:46 +00:00
+								*\--------------------------------------
 								K.ChTyp			jsr PFT.CheckPathSTK
-												Kernel 0.9.1 : CP,MV,RM.....commands
											
										
										
											2017-10-04 15:12:03 +00:00
+												jsr STDIO.PullMLIPath
-												Kernel version 0.9 : CHTYP and related API entries added to kernel....still in progress
											
										
										
											2017-04-03 21:13:46 +00:00
+												>PULLB .1+1
 												>MLICALL MLIGETFILEINFO
 												bcs .9
 								.1				lda #$ff
 												sta K.MLI.PARAMS+S.FILEINFO.TYPE
-												Kernel version 0.9 : ***new media dated 2017-04-04
-bugfix in SHELL batch mode, CP, FORMAT, ENV processing
-CHTYP Command running.
-Now, A2OSX.BOOT media is built from MAKEBOOT script from A2OSX.BUILD
											
										
										
											2017-04-04 13:07:58 +00:00
+												>MLICALL MLISETFILEINFO
-												Kernel version 0.9 : CHTYP and related API entries added to kernel....still in progress
											
										
										
											2017-04-03 21:13:46 +00:00
+								.9				rts
 								*/--------------------------------------
-												Kernel 0.9.1 : Code reorganization & move to CSTR
											
										
										
											2017-08-25 06:37:21 +00:00
+								* # ChMod
 								* ## In:
 								*  PUSHW = UID
 								*  PUSHW = PATH
 								*\--------------------------------------
 								K.ChMod
 								*/--------------------------------------
-												Kernel version 0.9 : CHTYP and related API entries added to kernel....still in progress
											
										
										
											2017-04-03 21:13:46 +00:00
+								* # ChOwn
 								* ## In:
-												Kernel version 0.9 : ***new media dated 2017-04-04
-bugfix in SHELL batch mode, CP, FORMAT, ENV processing
-CHTYP Command running.
-Now, A2OSX.BOOT media is built from MAKEBOOT script from A2OSX.BUILD
											
										
										
											2017-04-04 13:07:58 +00:00
+								*  PUSHW = UID
 								*  PUSHW = PATH
-												Kernel version 0.9 : CHTYP and related API entries added to kernel....still in progress
											
										
										
											2017-04-03 21:13:46 +00:00
+								*\--------------------------------------
 								K.ChOwn
 								*/--------------------------------------
 								* # ChGrp
 								* ## In:
-												Kernel version 0.9 : ***new media dated 2017-04-04
-bugfix in SHELL batch mode, CP, FORMAT, ENV processing
-CHTYP Command running.
-Now, A2OSX.BOOT media is built from MAKEBOOT script from A2OSX.BUILD
											
										
										
											2017-04-04 13:07:58 +00:00
+								*  PUSHW = GID
 								*  PUSHW = PATH
-												Kernel version 0.9 : CHTYP and related API entries added to kernel....still in progress
											
										
										
											2017-04-03 21:13:46 +00:00
+								*\--------------------------------------
 								K.ChGrp
 												sec
 												rts
-												SYS.LoadFileYA,SYS.LoadFileA now Expand pathnames
											
										
										
											2016-01-09 22:40:19 +00:00
+								*--------------------------------------
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								MAN
-												Kernel version 0.9 : MEDIA reorganisation
											
										
										
											2017-03-29 15:48:15 +00:00
+								SAVE /A2OSX.SRC/SYS/KERNEL.S.FIO
 								LOAD /A2OSX.SRC/SYS/KERNEL.S
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								ASM