Kernel 0.93+

BIN/SH.S.EXP.txt

@@ -10,7 +10,7 @@ EXP.GET			jsr CORE.ArgV.Next
 				rts
 				
 .1				>LDYA ZPArgVBufPrev
-				>SYSCALL AToL
+				>SYSCALL AToL			To Int32 on stack
 				bcs .9
 				
 .2				>LDYA L.EXP.OP.MATH		+ - .... ?
@@ -20,11 +20,11 @@ EXP.GET			jsr CORE.ArgV.Next
 				txa
 				>STA.G CORE.Operator		
 				
-				jsr CORE.ArgV.Next		get next argument in ACC
+				jsr CORE.ArgV.Next		get next argument
 				beq .94
 				
 				>LDYA ZPArgVBufPtr
-				>SYSCALL AToL
+				>SYSCALL AToL			To Int32 on stack
 				bcs .94
 
 				jsr EXP.FPU.EXEC
@@ -42,10 +42,7 @@ EXP.GET			jsr CORE.ArgV.Next
 				
 				rts
 				
-.94				lda pStack				POP 4 bytes
-				clc
-				adc #4
-				sta pStack
+.94				>POP 4
 				
 .9				lda #E.ESYN
 				sec

SYS/KERNEL.S.MATH.txt

@@ -238,7 +238,7 @@ MATH.PopACC32	ldy #0
 				sta ACC32.Sign
 				
 				tya
-*				sec				
+				clc
 				adc pStack
 				sta pStack
 

SYS/KERNEL.S.STDIO.txt

@@ -1123,7 +1123,10 @@ K.FSeek			jsr PFT.CheckNodeA
 
 				>RET 5
 
-.11				>PULLA					whence
+.11				lda (pFD)
+				bne STDIO.IOERR
+				
+				>PULLA					whence
 				tax
 				>PULLW ZPPtr1			offset LW
 				>PULLW ZPPtr2			offset HW

SYS/KERNEL.S.STDLIB.txt

@@ -97,7 +97,7 @@ K.AToL.I		jsr MATH.Dec2ACC32
 				
 				ldx #3
 
-.3				lda ACC32,y
+.3				lda ACC32,x
 				>PUSHA
 				dex
 				bpl .3