Kernel 0.93++

BIN/FORMAT.S.txt

@@ -16,7 +16,6 @@ AUTO 4,1
 				.OR ZPBIN
 ZS.START
 ZPPtr1			.BS 2
-ZPPtr2			.BS 2
 ZPPtrFD			.BS 2
 ZPPtrDevName	.BS 2
 
@@ -298,9 +297,26 @@ CS.RUN.BuildCat	jsr .7
 
 				>SYSCALL GetMem			BufferSize
 				bcs .9
+
+				>STYA ZPPtr1
+
 				>STYA.G IOCTL+S.IOCTL.BUFPTR
 				stx hBuf
 
+				lda CatBlkCnt
+				asl
+				tax
+
+				lda #0
+				tay
+
+.1				sta (ZPPtr1),y
+				iny
+				bne .1
+				inc ZPPtr1+1
+				dex
+				bne .1
+
 				jsr .7
 
 				>PUSHEA.G VolName

LIB/LIBBLKDEV.S.txt

@@ -165,10 +165,8 @@ BuildProDOSCat	>PULLW ZPPtr1			DstBuf
 				bne .2
 * Blk 1 : (SOS boot code)
 
-				jsr BuildProDOSCat.Nextpage
-				jsr BuildProDOSCat.Nextpage
-
-BuildProDOSCat.DirBlocks				
+				inc ZPPtr1+1
+				inc ZPPtr1+1
 * Blk 2 : First Directory Block
 
 *				ldy #0
@@ -225,7 +223,6 @@ BuildProDOSCat.DirBlocks
 *				and #$0f				make sure 15 bytes max
 				ora #$F0				Volume Directory Header
 				sta VolDirHdr.Name
-				
 				ldy #VolDirHdr.size-1
 .4				lda VolDirHdr,y
 				sta (ZPPtr1),y
@@ -234,14 +231,8 @@ BuildProDOSCat.DirBlocks
 * Blk 3...n : additional Directory Blocks			
 				lda #3					Actual Block ID
 				ldy #2					next blk ptr
-
-.41				pha
-				phy
-				jsr BuildProDOSCat.NextPage
-				jsr BuildProDOSCat.NextPage
-				ply
-				pla
-				
+.41				inc ZPPtr1+1
+				inc ZPPtr1+1			Next Block
 				dex
 				bmi .40
 
@@ -283,7 +274,6 @@ BuildProDOSCat.DirBlocks
 				bne .5
 				iny
 				bne .50
-				
 .7				lda #%10000000
 
 .8				inc Count
@@ -305,21 +295,8 @@ BuildProDOSCat.DirBlocks
 				iny
 				bne .7
 
-				jsr BuildProDOSCat.Nextpage
-				bra .7
-				
-BuildProDOSCat.Nextpage
-
 				inc ZPPtr1+1
-
-				ldy #0
-				tya
-
-.2				sta (ZPPtr1),y
-				iny
-				bne .2
-				rts 
-				
+				bra .7
 */--------------------------------------
 *\--------------------------------------
 D2TrkRNIB