Kernel 0.94

2025-03-20 13:32:23 +00:00 · 2020-09-22 07:56:28 +02:00 · 2020-09-22 07:56:28 +02:00 · 8f0b70f4e0
commit 8f0b70f4e0
parent 10bc1cd9fc
12 changed files with 34 additions and 32 deletions
--- a/.Docs/Command
+++ b/.Docs/Command
@ -243,17 +243,17 @@ As part of the 0.94 release, ProDOS FX has been enhanced with a completely new 5

 |Drive | Base|Switches|Extended| Format<br>Test |Read/Write<br>Test|Boot<br>Test|
 |-|-|-|-|-|-|-|
-|Disk ][ | 140K| -H |188K| - |-|-|
-|AM104| 140K|-H|188K| - |-|-|
-|AM107| 140K|-H|188K| - |-|-|
-|DuoDisk |140K|-H|188K| - |-|-|
-|FD-100| 140K|-H<br> -X<br>-H -X |188K<br>160K<br>216K|  -  |-|-|
-|Disk //c internal | 140K| -H |188K| - |-|-|
-|Disk //c external | 140K| -H |188K| - |-|-|
-|Rana I | 140K| -H |188K| - |-|-|
-|Rana II| 140K|-H<br> -X<br>-H -X |188K<br>160K<br>216K|  -  |-|-|
-|Rana III| 140K|-H<br> -X<br>-H -X |188K<br>160K<br>216K|  -  |-|-|
-|AE 5.25| 140K|-H<br> -X<br>-H -X |188K<br>160K<br>216K|  -  |-|-|
+|Disk ][ | 140K| -H |192K| - |-|-|
+|AM104| 140K|-H|192K| - |-|-|
+|AM107| 140K|-H|192K| - |-|-|
+|DuoDisk |140K|-H|192K| - |-|-|
+|FD-100| 140K|-H<br> -X<br>-H -X |192K<br>160K<br>216K|  -  |-|-|
+|Disk //c internal | 140K| -H |192K| - |-|-|
+|Disk //c external | 140K| -H |192K| - |-|-|
+|Rana I | 140K| -H |192K| - |-|-|
+|Rana II| 140K|-H<br> -X<br>-H -X |192K<br>160K<br>216K|  -  |-|-|
+|Rana III| 140K|-H<br> -X<br>-H -X |192K<br>160K<br>216K|  -  |-|-|
+|AE 5.25| 140K|-H<br> -X<br>-H -X |192K<br>160K<br>216K|  -  |-|-|

 ### GREP

--- a/.Docs/LIBTCPIP.md
+++ b/.Docs/LIBTCPIP.md
@ -130,11 +130,11 @@ Accept a connection on a socket
 `hFD Accept(hFD fd);`  

 ## ASM  
-**In:**   
+**In:**  
 `lda fd`  
 `>LIBCALL hLIBTCPIP,LIBTCPIP.accept`  

-## RETURN VALUE   
+## RETURN VALUE  
 A = hSocket  

 # Shutdown  
--- a/.Floppies/A2OSX.BLANK.woz
+++ b/.Floppies/A2OSX.BLANK.woz
--- a/.Floppies/A2OSX.BOOT.po
+++ b/.Floppies/A2OSX.BOOT.po
--- a/.Floppies/A2OSX.BOOTHD.woz
+++ b/.Floppies/A2OSX.BOOTHD.woz
--- a/.Floppies/A2OSX.BUILD.po
+++ b/.Floppies/A2OSX.BUILD.po
--- a/.Floppies/A2OSX.TEST.po
+++ b/.Floppies/A2OSX.TEST.po
--- a/BIN/FORMAT.S.txt
+++ b/BIN/FORMAT.S.txt
@ -198,10 +198,10 @@ CS.RUN.Format	jsr CS.RUN.GetDevStatus
 				>LDYA L.MSG.OK
 				>SYSCALL PutS

-				bit bVerify
-				bpl .8
+*				bit bVerify
+*				bpl .8

-				jsr CS.RUN.LL.DISKII.V
+*				jsr CS.RUN.LL.DISKII.V
 				bcs .9

 .8				>PUSHB DSSS0000
@ -702,7 +702,7 @@ hLIBBLKDEV		.BS 1
 *--------------------------------------
 MSG.USAGE1		.AS "Usage : FORMAT <BLOCKDEV> [VOL.NAME]\r\n"
 				.AS "   -L : Low-Level Format\r\n"
-				.AZ "   -H : 35trk drives, High Density: 47 tracks, 376 Blocks\r\n"
+				.AZ "   -H : 35trk drives, High Density: 48 tracks, 384 Blocks\r\n"
 MSG.USAGE2		.AS "   -X : 40trk drives, 320 Blocks, combined with -H, 432 Blocks\r\n"
 				.AS "   -V : Verify\r\n"
 				.AS "   -B xxxx : Smrtprt, Override Device block size\r\n"
--- a/INC/IO.D2.I.txt
+++ b/INC/IO.D2.I.txt
@ -2,7 +2,7 @@ NEW
  AUTO 3,1
 *--------------------------------------
 IO.D2.SeekTimeR	.EQ 160					LIBBLKDEV Recalibration
-IO.D2.SeekTimeF	.EQ 125					LIBBLKDEV Track Formatter
+IO.D2.SeekTimeF	.EQ 85					LIBBLKDEV Track Formatter
 IO.D2.SeekTimeB	.EQ 85					LIBBLKDEV Boot Block
 IO.D2.SeekTimeP	.EQ 60					ProDOS.FX initial
 IO.D2.SeekTimeI	.EQ 20					ProDOS.FX increment -> until > 128
--- a/LIB/LIBBLKDEV.S.BB.txt
+++ b/LIB/LIBBLKDEV.S.BB.txt
@ -154,7 +154,6 @@ rddir 			jsr goread 				call read block routine.
 				bcc rddir 				loop if not.
 *--------------------------------------
 				lda #4 					begin look-up with first entry past header.
-*				bne nxdent1 			branch always
 				.HS 2C					BIT ABS
 nxdent 			lda idxl

@ -206,7 +205,7 @@ lookpro 		lda (idxl),y 			look for matching name.
 				sty iobuff+1
 				iny
 				sty idxh+1
-
+*--------------------------------------
 rdkernl 		jsr goread 				read index block.
 bterr2 			bcs booterr

@ -224,8 +223,7 @@ bterr2 			bcs booterr

 				jmp kernel 				go execute kernel code.
 *--------------------------------------
-booterr
-				jsr clrscrn 			clear video
+booterr			jsr clrscrn 			clear video
 				ldy #BB.MSG.ERR.Len-1

 .1	 			lda BB.MSG.ERR,y
@ -327,7 +325,7 @@ BB.Seek			lda BB.HdrTrk			get track we're on
 				
 				and #6
 				ora BB.Slotn0
-				tay
+				tax

 				pla
 				
@ -344,7 +342,7 @@ BB.Seek			lda BB.HdrTrk			get track we're on
 .3				dec

 				and #6
-				ora Slotn0
+				ora BB.Slotn0
 				bcc .4
 				
 * move out : invert 2 phases
@ -368,6 +366,7 @@ BB.Seek			lda BB.HdrTrk			get track we're on

 				lda BB.CurrentQTrack
 				cmp	BB.TargetQTrack
+
 				bne .1

 				lda #0
--- a/LIB/LIBBLKDEV.S.D2.txt
+++ b/LIB/LIBBLKDEV.S.D2.txt
@ -120,11 +120,11 @@ D2MoveHead		>PULLB MoveTo
 				
 .4				tay
 				
-				lda IO.D2.Ph0On,y
+				lda IO.D2.Ph0On,x
 				nop
 				nop

-				lda IO.D2.Ph0On,x
+				lda IO.D2.Ph0On,y
 				nop
 				nop

@ -140,6 +140,7 @@ D2MoveHead		>PULLB MoveTo
 .8				bit IO.D2.Ph0Off,x
 				nop
 				nop
+
 				ldx IO.D2.Ph0Off,y
 				nop
 				nop
@ -470,6 +471,11 @@ PutBytePtr2		sta (ZPPtr2)
 .8				rts				
 *--------------------------------------
 D2WriteTrackPtr2
+				lda hTrkBuf
+				>SYSCALL2 GetMemPtr
+				>STYA ZPPtr1
+
+				php
 				sei

 				ldy #TrkWriter.Size
@ -479,14 +485,11 @@ D2WriteTrackPtr2
 				dey
 				bne .1
 				
-				lda hTrkBuf
-				>SYSCALL2 GetMemPtr
-				>STYA ZPPtr1
 				ldx Slotn0

 				jsr $200
 				
-				cli
+				plp
 				rts
 *--------------------------------------
 MAN
--- a/ProDOS.FX/ProDOS.S.XRW.txt
+++ b/ProDOS.FX/ProDOS.S.XRW.txt
@ -837,11 +837,11 @@ XRW.Seek		ldx XRW.UnitIndex
 				
 .4				tay
 				
-				lda IO.D2.Ph0On,y
+				lda IO.D2.Ph0On,x
 				nop
 				nop
 				
-				lda IO.D2.Ph0On,x
+				lda IO.D2.Ph0On,y
 				nop
 				nop