mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-13 11:29:44 +00:00
Kernel 0.94
This commit is contained in:
parent
6660b83a2d
commit
c341281864
Binary file not shown.
|
@ -105,7 +105,7 @@ CS.RUN jsr GFX.Open
|
||||||
|
|
||||||
>LDYA L.CB.Apple
|
>LDYA L.CB.Apple
|
||||||
jsr GFX.Write.YA
|
jsr GFX.Write.YA
|
||||||
|
|
||||||
lda hFontB
|
lda hFontB
|
||||||
sta CB.TEXTB+S.CB.hFont
|
sta CB.TEXTB+S.CB.hFont
|
||||||
>LDYA L.MESSAGEB
|
>LDYA L.MESSAGEB
|
||||||
|
|
|
@ -470,6 +470,7 @@ CS.RUN.RESPONSE jsr Init.TimeOut
|
||||||
bcc .2
|
bcc .2
|
||||||
|
|
||||||
cmp #E.NODATA
|
cmp #E.NODATA
|
||||||
|
beq .1
|
||||||
bne .8
|
bne .8
|
||||||
|
|
||||||
lda TimeOut
|
lda TimeOut
|
||||||
|
|
|
@ -570,8 +570,10 @@ OSD.YAMultX stx GBYTE
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CB.Update sta CLRWRITEAUX
|
CB.Update sta CLRWRITEAUX
|
||||||
|
|
||||||
ldx CBX.Cache
|
lda CBX.Cache
|
||||||
ldy CBX.CmdLen,x
|
lsr
|
||||||
|
tax
|
||||||
|
ldy CBX.CmdLen-1,x
|
||||||
|
|
||||||
.1 lda CBX.Cache,y
|
.1 lda CBX.Cache,y
|
||||||
sta (ZPCmdPtr),y
|
sta (ZPCmdPtr),y
|
||||||
|
|
|
@ -463,7 +463,7 @@ WRITE >STYA ZPIOCTL NON STANDARD
|
||||||
jmp (J.Cmds-2,x)
|
jmp (J.Cmds-2,x)
|
||||||
|
|
||||||
.2 sta SETWRITEAUX
|
.2 sta SETWRITEAUX
|
||||||
>DEBUG
|
|
||||||
and #$7f
|
and #$7f
|
||||||
sta CBX.Cache
|
sta CBX.Cache
|
||||||
|
|
||||||
|
|
|
@ -151,8 +151,8 @@ S.SOCKET.REM.PORT .EQ S.FD.DSOCK+14
|
||||||
* Datagram type Queue
|
* Datagram type Queue
|
||||||
* Seq Packet type Queue
|
* Seq Packet type Queue
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
S.SOCKET.HQ.HEAD .EQ S.FD.DSOCK+16
|
S.SOCKET.HQ.TAIL .EQ S.FD.DSOCK+16
|
||||||
S.SOCKET.HQ.TAIL .EQ S.FD.DSOCK+17
|
S.SOCKET.HQ.HEAD .EQ S.FD.DSOCK+17
|
||||||
S.SOCKET.HQ .EQ S.FD.DSOCK+18
|
S.SOCKET.HQ .EQ S.FD.DSOCK+18
|
||||||
S.SOCKET.HQ.MAX .EQ 14 14 hMem (frames)
|
S.SOCKET.HQ.MAX .EQ 14 14 hMem (frames)
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -102,7 +102,6 @@ DrawCursor.I >LDYA L.SCR
|
||||||
jsr OBJ.Get
|
jsr OBJ.Get
|
||||||
|
|
||||||
>LDYA L.CUR.CB
|
>LDYA L.CUR.CB
|
||||||
>DEBUG
|
|
||||||
jsr CLIP.YA
|
jsr CLIP.YA
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
|
|
|
@ -290,28 +290,7 @@ SKT.Accept >SYSCALL2 GetMemPtr
|
||||||
and #S.SOCKET.O.ACCEPTCONN
|
and #S.SOCKET.O.ACCEPTCONN
|
||||||
beq .99
|
beq .99
|
||||||
|
|
||||||
ldy #S.SOCKET.HQ.TAIL
|
jmp SKT.GetFromQueue
|
||||||
lda (ZPPtrSKT),y
|
|
||||||
ldy #S.SOCKET.HQ.HEAD
|
|
||||||
cmp (ZPPtrSKT),y
|
|
||||||
beq .9 CS
|
|
||||||
|
|
||||||
pha
|
|
||||||
inc
|
|
||||||
cmp #S.SOCKET.HQ.MAX
|
|
||||||
bne .1
|
|
||||||
|
|
||||||
lda #0
|
|
||||||
|
|
||||||
.1 ldy #S.SOCKET.HQ.TAIL
|
|
||||||
sta (ZPPtrSKT),y
|
|
||||||
pla
|
|
||||||
clc
|
|
||||||
adc #S.SOCKET.HQ
|
|
||||||
tay
|
|
||||||
lda (ZPPtrSKT),y
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
|
|
||||||
.99 lda #ERR.SKT.BAD
|
.99 lda #ERR.SKT.BAD
|
||||||
sec
|
sec
|
||||||
|
@ -355,29 +334,9 @@ SKT.shutdown.LISTEN
|
||||||
SKT.shutdown.RAW
|
SKT.shutdown.RAW
|
||||||
SKT.shutdown.DGRAM
|
SKT.shutdown.DGRAM
|
||||||
SKT.shutdown.SEQPKT
|
SKT.shutdown.SEQPKT
|
||||||
.1 ldy #S.SOCKET.HQ.TAIL
|
.1 jsr SKT.GetFromQueue
|
||||||
lda (ZPPtrSKT),y
|
bcs .3
|
||||||
ldy #S.SOCKET.HQ.HEAD
|
|
||||||
cmp (ZPPtrSKT),y
|
|
||||||
beq .3 No frame in Queue, close..
|
|
||||||
|
|
||||||
pha save tail...
|
|
||||||
clc
|
|
||||||
adc #S.SOCKET.HQ
|
|
||||||
tax
|
|
||||||
pla
|
|
||||||
inc
|
|
||||||
cmp #S.SOCKET.HQ.MAX
|
|
||||||
bne .2
|
|
||||||
|
|
||||||
lda #0
|
|
||||||
|
|
||||||
.2 ldy #S.SOCKET.HQ.TAIL
|
|
||||||
sta (ZPPtrSKT),y
|
|
||||||
|
|
||||||
txa
|
|
||||||
tay
|
|
||||||
lda (ZPPtrSKT),y
|
|
||||||
>SYSCALL2 FreeMem
|
>SYSCALL2 FreeMem
|
||||||
bra .1
|
bra .1
|
||||||
|
|
||||||
|
@ -872,28 +831,8 @@ SKT.Recv clc
|
||||||
jsr SKT.CheckTCP
|
jsr SKT.CheckTCP
|
||||||
bcs .91
|
bcs .91
|
||||||
|
|
||||||
.10 ldy #S.SOCKET.HQ.TAIL
|
.10 jsr SKT.GetFromQueue
|
||||||
lda (ZPPtrSKT),y
|
bcs .90
|
||||||
tax
|
|
||||||
|
|
||||||
ldy #S.SOCKET.HQ.HEAD
|
|
||||||
cmp (ZPPtrSKT),y
|
|
||||||
beq .90
|
|
||||||
|
|
||||||
inc
|
|
||||||
cmp #S.SOCKET.HQ.MAX
|
|
||||||
bne .1
|
|
||||||
|
|
||||||
lda #0
|
|
||||||
|
|
||||||
.1 ldy #S.SOCKET.HQ.TAIL
|
|
||||||
sta (ZPPtrSKT),y
|
|
||||||
|
|
||||||
txa
|
|
||||||
clc
|
|
||||||
adc #S.SOCKET.HQ
|
|
||||||
tay
|
|
||||||
lda (ZPPtrSKT),y
|
|
||||||
|
|
||||||
plp if CS, RecvFrom
|
plp if CS, RecvFrom
|
||||||
bcc .9 Exit with CC and A=hFrame
|
bcc .9 Exit with CC and A=hFrame
|
||||||
|
@ -1273,6 +1212,33 @@ SKT.FindMatchingLocRem
|
||||||
* sec
|
* sec
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
SKT.GetFromQueue
|
||||||
|
ldy #S.SOCKET.HQ.TAIL
|
||||||
|
lda (ZPPtrSKT),y
|
||||||
|
iny #S.SOCKET.HQ.HEAD
|
||||||
|
cmp (ZPPtrSKT),y
|
||||||
|
beq .9 CS
|
||||||
|
|
||||||
|
pha
|
||||||
|
inc
|
||||||
|
cmp #S.SOCKET.HQ.MAX
|
||||||
|
bne .1
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
|
||||||
|
.1 dey #S.SOCKET.HQ.TAIL
|
||||||
|
sta (ZPPtrSKT),y
|
||||||
|
|
||||||
|
pla
|
||||||
|
clc
|
||||||
|
adc #S.SOCKET.HQ
|
||||||
|
tay
|
||||||
|
lda (ZPPtrSKT),y
|
||||||
|
|
||||||
|
* clc
|
||||||
|
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
SKT.AddToQueueA pha
|
SKT.AddToQueueA pha
|
||||||
ldy #S.SOCKET.HQ.HEAD
|
ldy #S.SOCKET.HQ.HEAD
|
||||||
lda (ZPPtrSKT),y
|
lda (ZPPtrSKT),y
|
||||||
|
@ -1283,11 +1249,11 @@ SKT.AddToQueueA pha
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
|
|
||||||
.1 ldy #S.SOCKET.HQ.TAIL
|
.1 dey #S.SOCKET.HQ.TAIL
|
||||||
cmp (ZPPtrSKT),y
|
cmp (ZPPtrSKT),y
|
||||||
beq .9 Queue full!!
|
beq .9 Queue full!!
|
||||||
|
|
||||||
ldy #S.SOCKET.HQ.HEAD
|
iny #S.SOCKET.HQ.HEAD
|
||||||
sta (ZPPtrSKT),y
|
sta (ZPPtrSKT),y
|
||||||
txa
|
txa
|
||||||
clc
|
clc
|
||||||
|
|
Loading…
Reference in New Issue
Block a user