webserver: add faster memcpy, but comment out
This commit is contained in:
Vince Weaver
parent
825e526a3a
commit
db067ba91c
|
|
@ -2,7 +2,10 @@ DOS33 = ../dos33fs-utils/dos33
|
|||
TXT2BAS = ../asoft_basic-utils/tokenize_asoft
|
||||
MAKEB = ../dos33fs-utils/make_b
|
||||
|
||||
all: ethernet.dsk memcpy.o
|
||||
all: ethernet.dsk
|
||||
|
||||
memcpy: memcpy.o
|
||||
ld65 -o memcpy memcpy.o -t none
|
||||
|
||||
memcpy.o: memcpy.s
|
||||
ca65 -o memcpy.o memcpy.s -l memcpy.lst
|
||||
|
|
@ -29,4 +32,5 @@ ethernet.dsk: SETUP.BAS \
|
|||
$(DOS33) -y ethernet.dsk BSAVE -a 0x4000 ./c/vmw_logo.png
|
||||
|
||||
clean:
|
||||
rm -f *~ *.BAS R.TXT *.o *.lst
|
||||
rm -f *~ *.BAS R.TXT *.o *.lst memcpy
|
||||
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -1,20 +1,66 @@
|
|||
.define EQU =
|
||||
|
||||
PTR EQU $06
|
||||
PTRH EQU $07
|
||||
|
||||
lda #0
|
||||
WRAPL EQU $08
|
||||
WRAPH EQU $09
|
||||
|
||||
SIZEL EQU $0A
|
||||
SIZEH EQU $0B
|
||||
|
||||
tx_copy:
|
||||
|
||||
lda #0 ; always copying from 0x4000
|
||||
sta PTR
|
||||
lda #$40
|
||||
sta PTR+1
|
||||
|
||||
ldx #8
|
||||
ldx #SIZEH ; number of 256-byte blocks
|
||||
beq copy_remainder ; if none, skip ahead
|
||||
|
||||
ldy #0
|
||||
copy_loop:
|
||||
copy256:
|
||||
lda (PTR),y
|
||||
sta $5000
|
||||
sta $C0B7 ; change based on uthernet slot
|
||||
|
||||
cmp WRAPH,x
|
||||
bne nowrap256
|
||||
|
||||
cmp WRAPL,y
|
||||
bne nowrap256
|
||||
|
||||
lda #$40
|
||||
sta $C0B5
|
||||
lda #$00
|
||||
sta $C0B6 ; wrap tx buffer address to 0x4000
|
||||
|
||||
nowrap256:
|
||||
iny
|
||||
bne copy256
|
||||
|
||||
inc PTR+1 ; update 16-bit pointer
|
||||
dex ; finish a 256 byte block
|
||||
bne copy256
|
||||
|
||||
ldx #SIZEL
|
||||
copy_remainder:
|
||||
lda (PTR),y
|
||||
sta $C0B7 ; change based on uthernet slot
|
||||
|
||||
cmp WRAPL,y
|
||||
bne nowrap_r
|
||||
|
||||
lda #$40
|
||||
sta $C0B5
|
||||
lda #$00
|
||||
sta $C0B6 ; wrap tx buffer address to 0x4000
|
||||
|
||||
nowrap_r:
|
||||
iny
|
||||
bne copy_loop
|
||||
dex
|
||||
bne copy_loop
|
||||
bne copy_remainder
|
||||
|
||||
rts
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -28,6 +28,15 @@
|
|||
33 POKE DP,192:POKE DP,168:POKE DP,8:POKE DP,15
|
||||
40 PRINT "UTHERNET II READY: 192.168.8.15"
|
||||
'
|
||||
' Setup Memcpy routine
|
||||
'
|
||||
50 FOR I=0 TO 72: READ X: POKE 768+I,X:NEXT I
|
||||
51 DATA 169,0,133,6,169,64,133,7,162,11,240,36,160,0,177,6
|
||||
52 DATA 141,183,192,213,9,208,15,217,8,0,208,10,169,64,141,181
|
||||
53 DATA 192,169,0,141,182,192,200,208,229,230,7,202,208,224,162,10
|
||||
54 DATA 177,6,141,183,192,217,8,0,208,10,169,64,141,181,192,169
|
||||
55 DATA 0,141,182,192,200,202,208,232,96
|
||||
'
|
||||
' Setup Socket 0
|
||||
'
|
||||
100 REM *** Setup Socket 0
|
||||
|
|
@ -210,10 +219,11 @@
|
|||
'
|
||||
' Check for buffer wraparound
|
||||
'
|
||||
1942 BW=0
|
||||
1942 BW=0:BO=0
|
||||
1945 IF (SI+TA>=24576) THEN BW=1:BO=24576-TA:PRINT "TX BUFFER WRAPAROUND IN ";BO
|
||||
'
|
||||
' Write data to TX buffer
|
||||
' First write header
|
||||
'
|
||||
2000 T%=TA/256
|
||||
2005 POKE HA,T%: POKE LA,TA-(T%*256)
|
||||
|
|
@ -222,6 +232,9 @@
|
|||
2017 IF BW=0 THEN GOTO 2020
|
||||
2018 BO=BO-1: IF BO=0 THEN POKE HA,64:POKE LA,0:BW=0
|
||||
2020 NEXT I
|
||||
'
|
||||
' Write disk part
|
||||
'
|
||||
2025 FOR I=1 TO FS
|
||||
2026 C=C+1: IF C=50 THEN PRINT ".";:C=0
|
||||
2030 POKE DP,PEEK(16383+I)
|
||||
|
|
@ -230,6 +243,13 @@
|
|||
2035 NEXT I
|
||||
2040 PRINT
|
||||
'
|
||||
' The above is slow
|
||||
' Intead use our machine language routine
|
||||
'
|
||||
'2025 B%=BO/256:POKE 9,B%:POKE 8,BO-(B%*256)
|
||||
'2027 B%=FS/256:POKE 11,B%:POKE 10,FS-(B%*256)
|
||||
'2030 CALL 768
|
||||
'
|
||||
' Update TX write ptr
|
||||
'
|
||||
2050 REM ** UPDATE TX WRITE PTR
|
||||
|
|
|
|||
Loading…
Reference in New Issue