Kernel 0.94+

This commit is contained in:
Rémy GIBERT 2021-02-22 21:43:53 +01:00
parent a85cbb7fbb
commit ad54cc162e
5 changed files with 12 additions and 13 deletions

Binary file not shown.

View File

@ -384,7 +384,7 @@ SSC.Write php
ldy #0
.2 lda SSC.STATUS-$8F,x
bit #SSC.STATUS.nDSR true when 0
bit #SSC.STATUS.nDCD true when 0
bne .9
bit #SSC.STATUS.TDRE Register Empty ?
@ -446,7 +446,7 @@ SSC.Read php
ldy #0
.2 lda SSC.STATUS-$8F,x
bit #SSC.STATUS.nDSR true when 0
bit #SSC.STATUS.nDCD true when 0
bne .9
bit #SSC.STATUS.RDRF incoming char?
@ -967,7 +967,7 @@ READ.8 lda ZPCount2
rts
READ.9 lda SSC.STATUS-$8F,x
bit #SSC.STATUS.nDSR true when 0
bit #SSC.STATUS.nDCD true when 0
beq .99
lda #MLI.E.IO
@ -983,7 +983,7 @@ WRITE php
jsr READ.WRITE.Init
lda SSC.STATUS-$8F,x
bit #SSC.STATUS.nDSR true when 0
bit #SSC.STATUS.nDCD true when 0
bne .9
ldy #0

View File

@ -334,7 +334,6 @@ TCP.IN.JMP.TIMEWT.RTS
rts
*--------------------------------------
TCP.IN.ACKTheSYN
TCP.IN.ACKTheFIN
ldy #S.TCP.SEQNUM+3 Get Remote SEQ
ldx #3
@ -349,7 +348,7 @@ TCP.IN.ACKTheFIN
rts
*--------------------------------------
TCP.IN.ACKTheFIN.OLD
TCP.IN.ACKTheFIN
ldx #3
.1 inc SKT.Cache+S.SOCKET.TCP.INSEQNUM,x

View File

@ -382,7 +382,7 @@ READ php
bra .10
.FIN
.2 lda SSC.STATUS-$8F,x
bit #SSC.STATUS.nDSR true when 0
bit #SSC.STATUS.nDCD true when 0
bne .9
bit #SSC.STATUS.RDRF incoming char?
@ -439,7 +439,7 @@ WRITE php
.3 .DO SSCIRQ=1
lda SSC.STATUS-$8F,x
bit #SSC.STATUS.nDSR true when 0
bit #SSC.STATUS.nDCD true when 0
bne .9
lda OUTBUF.HEAD
@ -477,7 +477,7 @@ WRITE php
.ELSE
.4 lda SSC.STATUS-$8F,x
bit #SSC.STATUS.nDSR true when 0
bit #SSC.STATUS.nDCD true when 0
bne .9
bit #SSC.STATUS.TDRE Outgoing char?

View File

@ -404,7 +404,7 @@ DRV.START ldx #$ff Self Modified
ldy #8
.5 lda DRV.READWRITE,y
sta $100,y
sta $102,y
dey
bpl .5
*--------------------------------------
@ -441,7 +441,7 @@ DRV.DO.CMD.R ldy #3 Read Back and check 4 bytes
sec
.3 jsr DRV.SSCGet
jsr $100
jsr $102
eor DRV.CmdBuf.Sum
sta DRV.CmdBuf.Sum
iny
@ -471,7 +471,7 @@ DRV.DO.CMD.ERR plp
*--------------------------------------
DRV.DO.CMD.W lda #$B1 lda (),y
sta $103
sta $105
ldy #0
@ -479,7 +479,7 @@ DRV.DO.CMD.W lda #$B1 lda (),y
sec
.1 jsr $100
.1 jsr $102
jsr DRV.SSCSend
eor DRV.CmdBuf.Sum
sta DRV.CmdBuf.Sum