A2osX/SYS/KERNEL.S.FIO.txt

NEW
  AUTO 3,1
*/--------------------------------------
* # LoadTxtFile
* Load TXT a file in memory (with ending 0)
* ## C
* `int loadtxtfile ( const char * filename, short int flags, short int ftype, int auxtype );`
* ## ASM
* **In:**
* `>PUSHW auxtype`
* `>PUSHB ftype`
* `>PUSHB flags`
* `>LDYA filename`
* `>SYSCALL loadtxtfile`
* ## RETURN VALUE
*  Y,A = File Length (without ending 0)
*  X = hMem of Loaded File
*\--------------------------------------
				.DUMMY
				.OR ZPTMP
FIO.bTXT		.BS 1
FIO.hFILE		.BS 1
FIO.MemPtr		.BS 2
FIO.hMem		.BS 1
FIO.BytesRead	.BS 2
				.ED
*--------------------------------------
K.LoadTxtFile	sec
				.HS 90					BCC
*/--------------------------------------
* # LoadFile
* Load a file in memory
* ## C
* `int loadfile ( const char * filename, short int flags, short int ftype, int auxtype );`
* ## ASM
* **In:**
* `>PUSHW auxtype`
* `>PUSHB ftype`
* `>PUSHB flags`
* `>LDYA filename`
* `>SYSCALL loadfile`
* ## RETURN VALUE
*  Y,A = File Length
*  X = hMem of Loaded File
*\--------------------------------------
K.LoadFile		clc

				ror FIO.bTXT
				jsr K.FOpen
				bcs .9

.12				sta FIO.hFILE

				pha
				>PUSHWI K.S.Stat
				pla
				jsr K.FStat
				bcs .11

				lda K.S.Stat+S.STAT.SIZE+3
				ora K.S.Stat+S.STAT.SIZE+2
				bne .10

				>LDYA K.S.Stat+S.STAT.SIZE

				bit FIO.bTXT		Add 1 to buffer size for ending 0
				bpl .1
				iny
				bne .1
				inc
				bne .1
				
.10				lda #E.FTB
.11				bra .99
				
.1				jsr K.GetMem
				bcs .99
				>STYA FIO.MemPtr
				stx FIO.hMem
								
				>PUSHW K.S.Stat+S.STAT.SIZE
				>PUSHW FIO.MemPtr
				lda FIO.hFILE
				jsr K.FRead
				bcc .2
				
				pha
				lda FIO.hMem
				jsr K.FreeMem
				pla
				
.99				pha
				lda FIO.hFILE
				jsr K.FClose
				pla
				sec
.9				rts

.2				>STYA FIO.BytesRead
				
				bit FIO.bTXT
				bpl .5

				pha						set ending 0
				tya

*				clc

				adc FIO.MemPtr
				sta .4+1
				
				pla
				adc FIO.MemPtr+1
				sta .4+2
				
.4				stz $ffff				Self Modified

.5				jsr .99					close file
								
				>LDYA FIO.BytesRead
				ldx FIO.hMem
				clc
				rts
*/--------------------------------------
* # ChTyp
* Change The type of a ProDOS File
* ## C
* `int chtyp(const char *filepath, const char filetype);`
* ## ASM
* **In:**
* `>PUSHBI filetype`
* `>LDYA filepath`
* `>SYSCALL chtyp`
* ## RETURN VALUE
*\--------------------------------------
K.ChTyp			jsr PFT.CheckPathYA
				bcs .99
				
				>PULLB .1+1
				>MLICALL MLIGETFILEINFO
				bcs .9

.1				lda #$ff
				sta K.MLI.PARAMS+S.FI.T
				>MLICALL MLISETFILEINFO
.9				rts

.99				>RET 1					discard filetype
*/--------------------------------------
* # ChOwn
* **In:**
*  PUSHW = mod
*  PUSHW = PATH
*\--------------------------------------
K.ChOwn			
*/--------------------------------------
* # ChGrp
* **In:**
*  PUSHW = GID
*  PUSHW = PATH
*\--------------------------------------
K.ChGrp			
				sec
				rts
*--------------------------------------
MAN
SAVE USR/SRC/SYS/KERNEL.S.FIO
LOAD USR/SRC/SYS/KERNEL.S
ASM
-												Kernel 0.9.1 : Move To S-C MASM 3.0
											
										
										
											2017-12-22 21:24:30 +00:00
+								NEW
-												Kernel 0.93
											
										
										
											2019-04-19 05:42:43 +00:00
+								  AUTO 3,1
-												Kernel version 0.8 : ANSI conversion & API 0.8 compliance
											
										
										
											2016-10-26 20:51:06 +00:00
+								*/--------------------------------------
-												Kernel 0.9.2
											
										
										
											2018-06-21 15:12:10 +00:00
+								* # LoadTxtFile
-												Kernel 0.9.1 : KERNEL API reorg, LoadFile/SaveFile
											
										
										
											2017-10-19 06:19:54 +00:00
+								* Load TXT a file in memory (with ending 0)
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+								* ## C
 								* `int loadtxtfile ( const char * filename, short int flags, short int ftype, int auxtype );`
 								* ## ASM
-												Kernel 0.9.2
											
										
										
											2018-06-14 15:31:36 +00:00
+								* **In:**
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+								* `>PUSHW auxtype`
 								* `>PUSHB ftype`
 								* `>PUSHB flags`
 								* `>LDYA filename`
 								* `>SYSCALL loadtxtfile`
-												Kernel 0.9.2
											
										
										
											2018-10-11 15:23:06 +00:00
+								* ## RETURN VALUE
-												Kernel 0.9.1 : KERNEL API reorg, LoadFile/SaveFile
											
										
										
											2017-10-19 06:19:54 +00:00
+								*  Y,A = File Length (without ending 0)
 								*  X = hMem of Loaded File
 								*\--------------------------------------
-												Kernel 0.92
											
										
										
											2019-01-04 13:17:31 +00:00
+												.DUMMY
 												.OR ZPTMP
 								FIO.bTXT		.BS 1
 								FIO.hFILE		.BS 1
 								FIO.MemPtr		.BS 2
 								FIO.hMem		.BS 1
 								FIO.BytesRead	.BS 2
 												.ED
 								*--------------------------------------
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+								K.LoadTxtFile	sec
-												Kernel 0.9.1 : KERNEL API reorg, LoadFile/SaveFile
											
										
										
											2017-10-19 06:19:54 +00:00
+												.HS 90					BCC
 								*/--------------------------------------
-												Kernel version 0.9 : MEDIA reorganisation, FORMAT Cmd
											
										
										
											2017-03-30 16:11:31 +00:00
+								* # LoadFile
-												Kernel 0.9.1 : KERNEL API reorg, LoadFile/SaveFile
											
										
										
											2017-10-19 06:19:54 +00:00
+								* Load a file in memory
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+								* ## C
 								* `int loadfile ( const char * filename, short int flags, short int ftype, int auxtype );`
 								* ## ASM
-												Kernel 0.9.2
											
										
										
											2018-06-14 15:31:36 +00:00
+								* **In:**
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+								* `>PUSHW auxtype`
 								* `>PUSHB ftype`
 								* `>PUSHB flags`
 								* `>LDYA filename`
 								* `>SYSCALL loadfile`
-												Kernel 0.9.2
											
										
										
											2018-10-11 15:23:06 +00:00
+								* ## RETURN VALUE
-												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 : KERNEL API reorg, LoadFile/SaveFile
											
										
										
											2017-10-19 06:19:54 +00:00
+								K.LoadFile		clc
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
-												Kernel 0.9.1 : Math API
											
										
										
											2017-10-27 14:56:46 +00:00
+												ror FIO.bTXT
-												Kernel 0.9.1 : KERNEL API reorg, LoadFile/SaveFile
											
										
										
											2017-10-19 06:19:54 +00:00
+												jsr K.FOpen
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+												bcs .9
-												Kernel 0.9.2
											
										
										
											2018-11-07 06:59:37 +00:00
-												Kernel 0.92
											
										
										
											2019-01-04 13:17:31 +00:00
+								.12				sta FIO.hFILE
-												Kernel 0.9.2
											
										
										
											2018-11-07 06:59:37 +00:00
-												Kernel 0.9.2
											
										
										
											2018-08-08 15:13:37 +00:00
+												pha
 												>PUSHWI K.S.Stat
 												pla
 												jsr K.FStat
 												bcs .11
 												lda K.S.Stat+S.STAT.SIZE+3
 												ora K.S.Stat+S.STAT.SIZE+2
 												bne .10
 												>LDYA K.S.Stat+S.STAT.SIZE
-												Kernel 0.9.2
											
										
										
											2018-11-07 06:59:37 +00:00
-												Kernel 0.9.1 : Math API
											
										
										
											2017-10-27 14:56:46 +00:00
+												bit FIO.bTXT		Add 1 to buffer size for ending 0
-												Kernel 0.9.1 : KERNEL API reorg, LoadFile/SaveFile
											
										
										
											2017-10-19 06:19:54 +00:00
+												bpl .1
 												iny
 												bne .1
 												inc
 												bne .1
-												Kernel 0.9.2
											
										
										
											2018-08-08 15:13:37 +00:00
-												Kernel 0.9.2
											
										
										
											2018-10-21 20:54:07 +00:00
+								.10				lda #E.FTB
-												Kernel 0.9.2
											
										
										
											2018-08-08 15:13:37 +00:00
+								.11				bra .99
-												Kernel 0.9.1 : KERNEL API reorg, LoadFile/SaveFile
											
										
										
											2017-10-19 06:19:54 +00:00
-												Kernel 0.9.2
											
										
										
											2018-06-21 15:12:10 +00:00
+								.1				jsr K.GetMem
-												Kernel 0.9.1 : BugFix in AtoF, LoadFile, reviewed FTell/FSeek API
											
										
										
											2017-10-09 15:30:48 +00:00
+												bcs .99
-												Kernel 0.92
											
										
										
											2019-01-04 13:17:31 +00:00
+												>STYA FIO.MemPtr
 												stx FIO.hMem
-												Kernel 0.9.1 : BugFix in AtoF, LoadFile, reviewed FTell/FSeek API
											
										
										
											2017-10-09 15:30:48 +00:00
-												Kernel 0.9.2
											
										
										
											2018-08-08 15:13:37 +00:00
+												>PUSHW K.S.Stat+S.STAT.SIZE
-												Kernel 0.92
											
										
										
											2019-01-04 13:17:31 +00:00
+												>PUSHW FIO.MemPtr
 												lda FIO.hFILE
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												jsr K.FRead
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+												bcc .2
 												pha
-												Kernel 0.92
											
										
										
											2019-01-04 13:17:31 +00:00
+												lda FIO.hMem
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+												jsr K.FreeMem
 												pla
 								.99				pha
-												Kernel 0.92
											
										
										
											2019-01-04 13:17:31 +00:00
+												lda FIO.hFILE
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+												jsr K.FClose
 												pla
 												sec
 								.9				rts
-												Kernel version 0.9 : Lowercase support, bugfix in CP/MV/RV
											
										
										
											2017-06-21 15:46:43 +00:00
-												Kernel 0.92
											
										
										
											2019-01-04 13:17:31 +00:00
+								.2				>STYA FIO.BytesRead
-												Kernel version 0.8 : FILE/DIR migration in BIN/EDIT
											
										
										
											2016-09-20 16:00:51 +00:00
-												Kernel 0.9.1 : Math API
											
										
										
											2017-10-27 14:56:46 +00:00
+												bit FIO.bTXT
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+												bpl .5
 												pha						set ending 0
 												tya
 								*				clc
-												Kernel 0.9.1 : KERNEL API reorg, LoadFile/SaveFile
											
										
										
											2017-10-19 06:19:54 +00:00
-												Kernel 0.92
											
										
										
											2019-01-04 13:17:31 +00:00
+												adc FIO.MemPtr
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+												sta .4+1
-												Kernel 0.9.1 : KERNEL API reorg, LoadFile/SaveFile
											
										
										
											2017-10-19 06:19:54 +00:00
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+												pla
-												Kernel 0.92
											
										
										
											2019-01-04 13:17:31 +00:00
+												adc FIO.MemPtr+1
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+												sta .4+2
-												Kernel 0.9.1 : KERNEL API reorg, LoadFile/SaveFile
											
										
										
											2017-10-19 06:19:54 +00:00
-												Kernel 0.92
											
										
										
											2018-12-21 14:32:45 +00:00
+								.4				stz $ffff				Self Modified
 								.5				jsr .99					close file
-												Kernel 0.92
											
										
										
											2019-01-04 13:17:31 +00:00
+												>LDYA FIO.BytesRead
 												ldx FIO.hMem
-												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
+												rts
-												Kernel version 0.8 : ANSI conversion & API 0.8 compliance
											
										
										
											2016-10-26 20:51:06 +00:00
+								*/--------------------------------------
-												Kernel version 0.9 : CHTYP and related API entries added to kernel....still in progress
											
										
										
											2017-04-03 21:13:46 +00:00
+								* # ChTyp
-												Kernel 0.9.2
											
										
										
											2018-09-05 15:22:46 +00:00
+								* Change The type of a ProDOS File
 								* ## C
 								* `int chtyp(const char *filepath, const char filetype);`
 								* ## ASM
-												Kernel 0.9.2
											
										
										
											2018-06-14 15:31:36 +00:00
+								* **In:**
-												Kernel 0.9.2
											
										
										
											2018-09-05 15:22:46 +00:00
+								* `>PUSHBI filetype`
 								* `>LDYA filepath`
 								* `>SYSCALL chtyp`
-												Kernel 0.9.2
											
										
										
											2018-10-11 15:23:06 +00:00
+								* ## RETURN VALUE
-												Kernel version 0.9 : CHTYP and related API entries added to kernel....still in progress
											
										
										
											2017-04-03 21:13:46 +00:00
+								*\--------------------------------------
-												Kernel 0.9.2
											
										
										
											2018-09-05 15:22:46 +00:00
+								K.ChTyp			jsr PFT.CheckPathYA
-												Kernel 0.92
											
										
										
											2018-11-16 16:04:20 +00:00
+												bcs .99
-												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
-												Kernel 0.9.2
											
										
										
											2018-11-07 06:59:37 +00:00
-												Kernel version 0.9 : CHTYP and related API entries added to kernel....still in progress
											
										
										
											2017-04-03 21:13:46 +00:00
+								.1				lda #$ff
-												Kernel 0.9.1 : Math API
											
										
										
											2017-10-27 14:56:46 +00:00
+												sta K.MLI.PARAMS+S.FI.T
-												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.92
											
										
										
											2018-11-16 16:04:20 +00:00
 								.99				>RET 1					discard filetype
-												Kernel version 0.9 : CHTYP and related API entries added to kernel....still in progress
											
										
										
											2017-04-03 21:13:46 +00:00
+								*/--------------------------------------
 								* # ChOwn
-												Kernel 0.9.2
											
										
										
											2018-06-14 15:31:36 +00:00
+								* **In:**
-												Kernel 0.9.2
											
										
										
											2018-09-05 15:22:46 +00:00
+								*  PUSHW = mod
-												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 = 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
-												Kernel 0.9.2
											
										
										
											2018-06-14 15:31:36 +00:00
+								* **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 0.92
											
										
										
											2018-11-17 17:17:13 +00:00
+								SAVE USR/SRC/SYS/KERNEL.S.FIO
 								LOAD USR/SRC/SYS/KERNEL.S
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								ASM