Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-08-13 06:29:03 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93

Browse Source
This commit is contained in:
Rémy GIBERT 2019-05-20 17:42:20 +02:00
parent 1c0ef79adb
commit 949eb44bb1
1 changed files with 14 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
DRV/UTHERNET.DRV.S.txt
View File

@ -3,14 +3,7 @@ NEW
.LIST OFF .LIST OFF
.OP 65C02 .OP 65C02
.OR $2000 .OR $2000
*--------------------------------------
UTHERNETX .EQ 1
*--------------------------------------
.DO UTHERNETX=1
.TF DRV/UTHERNETX.DRV
.ELSE
.TF DRV/UTHERNET.DRV .TF DRV/UTHERNET.DRV
.FIN
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB INC/MACROS.I
.INB INC/A2OSX.I .INB INC/A2OSX.I
@ -395,15 +388,25 @@ READ php
sta (ZPIOCTL),y sta (ZPIOCTL),y
pha pha
eor #$ff lsr
sta Counter+1 tax
lda RTDATA,x lda RTDATA,x
dey dey
sta (ZPIOCTL),y sta (ZPIOCTL),y
tay tay
eor #$ff
ror
adc #0
bcc .11
inx
.11 eor #$ff
sta Counter sta Counter
txa
eor #$ff
sta Counter+1
pla pla
@ -432,27 +435,13 @@ READ php
.3 lda RTDATA,x .3 lda RTDATA,x
sta (ZPBufPtr),y sta (ZPBufPtr),y
iny iny
bne .4
inc ZPBufPtr+1
.4 .DO UTHERNETX=1
lda RTDATA+1,x lda RTDATA+1,x
.FIN
inc Counter
bne .5
inc Counter+1
beq .8
.5 .DO UTHERNETX=0
lda RTDATA+1,x
.FIN
sta (ZPBufPtr),y sta (ZPBufPtr),y
iny iny
bne .2 bne .2
inc ZPBufPtr+1 inc ZPBufPtr+1
bne .2 bra .2
.8 pla hMem .8 pla hMem