Kernel 0.93+

BIN/PAKME.S.txt

@@ -208,10 +208,7 @@ CS.RUN.LOOP		ldy #S.PS.hStdIn
 				
 				jmp CS.RUN.LOOP
 				
-.8				jsr CS.RUN.SeekTable
-				bcs .9
-				
-				jsr CS.RUN.WriteTable	Write modifid Table
+.8				jsr CS.RUN.RewriteTable	Write modifid Table
 				bcs .9
 				
 				lda #0
@@ -311,7 +308,11 @@ CS.RUN.GetTable	>LDA.G PAKME.HEADER+8
 				>SBC.G PAKME.HEADER+6
 				sta ZPDstTableOfs+1
 
-				jsr CS.RUN.SeekTable
+				>PUSHBI SEEK.SET
+				>PUSHWZ
+				>PUSHW ZPDstTableOfs
+				lda hSrcFile
+				>SYSCALL fseek
 				bcs .9
 				
 				>LDA.G PAKME.HEADER+7
@@ -411,16 +412,16 @@ CS.RUN.Pak		>LDYA ZPChunkLen
 				>STYA ZPChunkPakedLen
 .9				rts
 *--------------------------------------
-CS.RUN.SeekTable
+CS.RUN.RewriteTable
 				>PUSHBI SEEK.SET
 				>PUSHWZ
 				>PUSHW ZPDstTableOfs
-				lda hSrcFile
+				lda hDstFile
 				>SYSCALL fseek
-				rts
+				bcs CS.RUN.WriteTable.RTS
 *--------------------------------------
 CS.RUN.WriteTable
-				lda ZPChunkCnt
+				>LDA.G PAKME.HEADER+7
 				asl
 				tay
 				lda #0
@@ -428,6 +429,7 @@ CS.RUN.WriteTable
 				>PUSHEA.G PAKME.TABLE
 				lda hDstFile
 				>SYSCALL fwrite
+CS.RUN.WriteTable.RTS				
 				rts
 *--------------------------------------
 CS.RUN.WritePak	lda hDstFile
@@ -459,7 +461,7 @@ CS.RUN.UpdateTable
 				clc
 				adc #PAKME.TABLE
 				tay
-				
+
 				pla
 				clc
 				adc ZPChunkNewOfs