Kernel 0.93

This commit is contained in:
Rémy GIBERT 2019-05-09 23:00:23 +02:00
parent 8b4384f68d
commit 8134fcb846
4 changed files with 10 additions and 10 deletions

Binary file not shown.

View File

@ -612,7 +612,7 @@ SKT.AddDataToSktOut
>ADC16 SKT.Cache+S.SOCKET.TCP.OUTTOSEND,ZPDataInLen
jsr SKT.StoreTCB
* jsr TCP.OUT.I SKT.GetTCB called, try to push, ignore error....
jsr TCP.OUT.I SKT.GetTCB called, try to push, ignore error....
>LDYA ZPDataInLen
clc

View File

@ -420,7 +420,7 @@ TCP.OUT.I lda SKT.Cache+S.SOCKET.TCP.OUTTOSEND+1
ldy #S.SOCKET.TCP.O
lda (ZPPtrSKT),y
bne TCP.OUT.SendOptA a least an option...
clc No, data, no flag....exit
clc No data, no flag....exit
rts
.1 cpy #K.TCP.MSS

View File

@ -23,6 +23,12 @@ LIB.MAX .EQ 4
ZS.START
pNETCFG .BS 2
pBuf .BS 2
DevID .BS 1
LibCnt .BS 1
hNetworkFile .BS 1
hLineBuf .BS 1
hFrameIn .BS 1
hLIBs .BS LIB.MAX+1 for ending 0 if MAX libs
ZS.END .ED
*--------------------------------------
* File Header (16 Bytes)
@ -35,7 +41,7 @@ CS.START cld
.DA #0
.DA CS.END-CS.START Code Size (without Constants)
.DA DS.END-DS.START Data SegmentSize
.DA #16 Stack Size
.DA #64 Stack Size
.DA #ZS.END-ZS.START Zero Page Size
.DA 0
*--------------------------------------
@ -296,15 +302,9 @@ MSG.RUNNING .AZ "NETWORKD:Already loaded, exiting."
MSG.DEV.KO .AZ "NETWORKD:No Device Found, exiting."
MSG.DEV.OK .AZ "NETWORKD:Bound To Device : %s\r\n"
MSG.LIB .AZ "NETWORKD:Loading %s ...\r\n"
DevID .BS 1
LibCnt .BS 1
hLIBs .BS LIB.MAX+1 for ending 0 if MAX libs
ETCNETWORK .AZ "${ROOT}ETC/NETWORK"
IOCTL .BS S.IOCTL
DCB.NIC .BS S.DCB.NIC
ETCNETWORK .AZ "${ROOT}ETC/NETWORK"
hNetworkFile .BS 1
hLineBuf .BS 1
hFrameIn .BS 1
*--------------------------------------
.DUMMY
.OR 0