From 949eb44bb141e68046b13b881a58ed9b118375d3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9my=20GIBERT?= Date: Mon, 20 May 2019 17:42:20 +0200 Subject: [PATCH] Kernel 0.93 --- DRV/UTHERNET.DRV.S.txt | 39 ++++++++++++++------------------------- 1 file changed, 14 insertions(+), 25 deletions(-) diff --git a/DRV/UTHERNET.DRV.S.txt b/DRV/UTHERNET.DRV.S.txt index 40192066..6e7ea5a2 100644 --- a/DRV/UTHERNET.DRV.S.txt +++ b/DRV/UTHERNET.DRV.S.txt @@ -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