Kernel 0.93

BIN/PING.S.txt

@@ -12,8 +12,12 @@ NEW
 *--------------------------------------
 TIMEOUT.MAX		.EQ 100					10 sec.
 *--------------------------------------
+				.DUMMY
+				.OR ZPBIN
+ZS.START
 ZPIPCfgPtr		.EQ ZPBIN
 ZPTmpPtr		.EQ ZPBIN+2
+ZS.END			.ED
 *--------------------------------------
 *			File Header (16 Bytes)
 *--------------------------------------
@@ -23,10 +27,10 @@ CS.START		cld
 				.DA #1					BIN Layout Version 1
 				.DA #S.PS.F.EVENT		S.PS.F
 				.DA #0
-				.DA CS.END-CS.START		Code Length To Relocate
-				.DA DS.END-DS.START		Data Segment to Allocate
-				.DA #64					SS
-				.DA #4					ZP
+				.DA CS.END-CS.START		Code Size (without Constants)
+				.DA DS.END-DS.START		Data SegmentSize
+				.DA #64					Stack Size
+				.DA #ZS.END-ZS.START	Zero Page Size
 				.DA 0
 *--------------------------------------
 .1				.DA CS.INIT
@@ -181,22 +185,22 @@ CS.RUN.OPENSKT	ldx #3
 
 CS.RUN.SEND.ECHO				
 				>LDA.G Identifier
-				sta ICMP.Request.ID
+				sta ICMP.Request.ID+1
 				iny
 				lda (pData),y
-				sta ICMP.Request.ID+1
+				sta ICMP.Request.ID
 				
 				>LDA.G Sequence
 				sec
 				adc #0
 				sta (pData),y
-				sta ICMP.Request.SQ
+				sta ICMP.Request.SQ+1
 
 				iny
 				lda (pData),y
 				adc #0
 				sta (pData),y
-				sta ICMP.Request.SQ+1
+				sta ICMP.Request.SQ
 
 				jsr Init.Timeout
 				

DRV/UTHERNET.DRV.S.txt

@@ -364,9 +364,9 @@ READ			php
 
 				ldx DEVSLOTx0
 				
-				lda /PP.RxStatus+$8000
+				lda /PP.RxEvent
 				sta PacketPagePTR+1,x
-				lda #PP.RxStatus
+				lda #PP.RxEvent
 				sta PacketPagePTR,x
 
 				lda PacketPageDATA+1,x
@@ -374,10 +374,10 @@ READ			php
 				and /PP.RxEvent.RxOK+PP.RxEvent.IA+PP.RxEvent.Brdcast+PP.RxEvent.Runt
 				beq READWRITE.9
 
-				lda PacketPageDATA+1,x			discard RxStatus
-				lda PacketPageDATA,x
+				lda RTDATA+1,x			discard RxStatus
+				lda RTDATA,x
 				
-				lda PacketPageDATA+1,x			get RxLength
+				lda RTDATA+1,x			get RxLength
 				ldy #S.IOCTL.BYTECNT+1
 				
 				sta (ZPIOCTL),y
@@ -385,7 +385,7 @@ READ			php
 				lsr
 				pha
 				
-				lda PacketPageDATA,x
+				lda RTDATA,x
 				dey
 				sta (ZPIOCTL),y
 				tay
@@ -403,7 +403,7 @@ READ			php
 				pla
 				
 				>SYSCALL2 getmem
-				bcs .9
+				bcs READWRITE.99
 				
 				>STYA ZPBufPtr
 				phx
@@ -424,11 +424,11 @@ READ			php
 				inc Counter+1
 				beq .8
 				
-.3				lda PacketPageDATA,x
+.3				lda RTDATA,x
 				sta	(ZPBufPtr),y
 				iny
 				
-				lda PacketPageDATA+1,x
+				lda RTDATA+1,x
 				sta	(ZPBufPtr),y
 				iny
 				bne .2
@@ -439,13 +439,13 @@ READ			php
 
 				plp
 				clc
-.9				rts
-				
+				rts
+*--------------------------------------
 READWRITE.9		lda #E.NODATA
 
-				plp
+READWRITE.99	plp
 				sec
-				rts	
+				rts
 *--------------------------------------
 WRITE			php
 				sei
@@ -488,7 +488,6 @@ WRITE			php
 				eor #$ff
 				sta Counter+1
 
-				
 				lda /PP.BusST		
 				sta PacketPagePTR+1,x
 				lda #PP.BusST		
@@ -539,7 +538,7 @@ WRITE			php
 				
 .8				plp
 				clc
-				rts	
+				rts
 *--------------------------------------
 DRV.CS.END
 DEVSLOTx0		.BS 1