Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-11 12:29:35 +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
.OP 65C02
.OR $2000
*--------------------------------------
UTHERNETX .EQ 1
*--------------------------------------
.DO UTHERNETX=1
.TF DRV/UTHERNETX.DRV
.ELSE
.TF DRV/UTHERNET.DRV
.FIN
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
@ -395,15 +388,25 @@ READ php
sta (ZPIOCTL),y
pha
eor #$ff
sta Counter+1
lsr
tax
lda RTDATA,x
dey
sta (ZPIOCTL),y
tay
eor #$ff
ror
adc #0
bcc .11
inx
.11 eor #$ff
sta Counter
txa
eor #$ff
sta Counter+1
pla
@ -432,27 +435,13 @@ READ php
.3 lda RTDATA,x
sta (ZPBufPtr),y
iny
bne .4
inc ZPBufPtr+1
.4 .DO UTHERNETX=1
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
iny
bne .2
inc ZPBufPtr+1
bne .2
bra .2
.8 pla hMem