Kernel 0.93

This commit is contained in:
Rémy GIBERT 2019-06-21 08:33:46 +02:00
parent eef279ce18
commit 8fd68d5d39
3 changed files with 26 additions and 23 deletions

Binary file not shown.

View File

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

View File

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