deac/osd-contiki
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Merge pull request #725 from oliverschmidt/master

Browse source 
Enhanced Ethernet drivers.
This commit is contained in:
Oliver Schmidt 2014-06-12 23:40:25 +02:00
commit e2d56395ea
4 changed files with 177 additions and 109 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

91
cpu/6502/net/cs8900a.S
View file

@ -48,10 +48,10 @@ bufaddr:.res 2 ; Address
bufsize:.res 2 ; Size bufsize:.res 2 ; Size
; Jump table. ; Jump table.
.addr init jmp init
.addr poll jmp poll
.addr send jmp send
.addr exit jmp exit
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@ -85,6 +85,8 @@ fixup: .byte fixup02-fixup01, fixup03-fixup02, fixup04-fixup03
.byte fixup14-fixup13, fixup15-fixup14, fixup16-fixup15 .byte fixup14-fixup13, fixup15-fixup14, fixup16-fixup15
.byte fixup17-fixup16, fixup18-fixup17, fixup19-fixup18 .byte fixup17-fixup16, fixup18-fixup17, fixup19-fixup18
.byte fixup20-fixup19, fixup21-fixup20, fixup22-fixup21 .byte fixup20-fixup19, fixup21-fixup20, fixup22-fixup21
.byte fixup23-fixup22, fixup24-fixup23, fixup25-fixup24
.byte fixup26-fixup25
fixups = * - fixup fixups = * - fixup
@ -143,6 +145,29 @@ fixup01:lda isq+1
ora #$01 ; Set clockport bit ora #$01 ; Set clockport bit
fixup02:sta isq+1 fixup02:sta isq+1
; Check EISA registration number of Crystal Semiconductor
; PACKETPP = $0000, PPDATA == $630E ?
lda #$00
tax
jsr packetpp_ax
lda #$63^$0E
fixup03:eor ppdata
fixup04:eor ppdata+1
beq :+
sec
rts
; Initiate a chip-wide reset
; PACKETPP = $0114, PPDATA = $0040
: lda #$14
jsr packetpp_a1
ldy #$40
fixup05:sty ppdata
: jsr packetpp_a1
fixup06:ldy ppdata
and #$40
bne :-
; Accept valid unicast + broadcast frames ; Accept valid unicast + broadcast frames
; PACKETPP = $0104, PPDATA = $0D05 ; PACKETPP = $0104, PPDATA = $0D05
lda #$04 lda #$04
@ -173,6 +198,8 @@ fixup02:sta isq+1
lda #$D3 lda #$D3
ldx #$00 ldx #$00
jsr ppdata_ax jsr ppdata_ax
txa
clc
rts rts
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@ -183,27 +210,22 @@ poll:
; PACKETPP = $0124, PPDATA & $0D00 ? ; PACKETPP = $0124, PPDATA & $0D00 ?
lda #$24 lda #$24
jsr packetpp_a1 jsr packetpp_a1
fixup03:lda ppdata+1 fixup07:lda ppdata+1
and #$0D and #$0D
bne :+ beq :+
; No frame ready
tax
rts
; Process the incoming frame ; Process the incoming frame
; -------------------------- ; --------------------------
; Read receiver event and discard it ; Read receiver event and discard it
; RXTXREG ; RXTXREG
: fixup08:ldx rxtxreg+1
fixup04:ldx rxtxreg+1 fixup09:lda rxtxreg
fixup05:lda rxtxreg
; Read frame length ; Read frame length
; cnt = len = RXTXREG ; cnt = len = RXTXREG
fixup06:ldx rxtxreg+1 fixup10:ldx rxtxreg+1
fixup07:lda rxtxreg fixup11:lda rxtxreg
sta len sta len
stx len+1 stx len+1
sta cnt sta cnt
@ -217,23 +239,24 @@ fixup07:lda rxtxreg
cmp cnt cmp cnt
lda bufsize+1 lda bufsize+1
sbc cnt+1 sbc cnt+1
bcs :+ bcs :++
; Yes, skip frame ; Yes, skip frame
jsr skipframe jsr skipframe
; No frame ready ; No frame ready
lda #$00 lda #$00
tax : tax
sec
rts rts
; Read bytes into buffer ; Read bytes into buffer
: jsr adjustptr : jsr adjustptr
: :
fixup08:lda rxtxreg fixup12:lda rxtxreg
sta (ptr),y sta (ptr),y
iny iny
fixup09:lda rxtxreg+1 fixup13:lda rxtxreg+1
sta (ptr),y sta (ptr),y
iny iny
bne :- bne :-
@ -244,6 +267,7 @@ fixup09:lda rxtxreg+1
; Return frame length ; Return frame length
lda len lda len
ldx len+1 ldx len+1
clc
rts rts
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@ -256,12 +280,12 @@ send:
; Transmit command ; Transmit command
lda #$C9 lda #$C9
ldx #$00 ldx #$00
fixup10:sta txcmd fixup14:sta txcmd
fixup11:stx txcmd+1 fixup15:stx txcmd+1
lda cnt lda cnt
ldx cnt+1 ldx cnt+1
fixup12:sta txlen fixup16:sta txlen
fixup13:stx txlen+1 fixup17:stx txlen+1
; Adjust odd frame length ; Adjust odd frame length
jsr adjustcnt jsr adjustcnt
@ -273,7 +297,7 @@ fixup13:stx txlen+1
; PACKETPP = $0138, PPDATA & $0100 ? ; PACKETPP = $0138, PPDATA & $0100 ?
: lda #$38 : lda #$38
jsr packetpp_a1 jsr packetpp_a1
fixup14:lda ppdata+1 fixup18:lda ppdata+1
and #$01 and #$01
bne :+ bne :+
@ -283,6 +307,7 @@ fixup14:lda ppdata+1
; And try again ; And try again
dey dey
bne :- bne :-
sec
rts rts
; Send the frame ; Send the frame
@ -291,15 +316,16 @@ fixup14:lda ppdata+1
; Write bytes from buffer ; Write bytes from buffer
: jsr adjustptr : jsr adjustptr
: lda (ptr),y : lda (ptr),y
fixup15:sta rxtxreg fixup19:sta rxtxreg
iny iny
lda (ptr),y lda (ptr),y
fixup16:sta rxtxreg+1 fixup20:sta rxtxreg+1
iny iny
bne :- bne :-
inc ptr+1 inc ptr+1
dex dex
bpl :- bpl :-
clc
rts rts
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@ -311,15 +337,16 @@ exit:
packetpp_a1: packetpp_a1:
ldx #$01 ldx #$01
fixup17:sta packetpp packetpp_ax:
fixup18:stx packetpp+1 fixup21:sta packetpp
fixup22:stx packetpp+1
rts rts
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
ppdata_ax: ppdata_ax:
fixup19:sta ppdata fixup23:sta ppdata
fixup20:stx ppdata+1 fixup24:stx ppdata+1
rts rts
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@ -328,9 +355,9 @@ skipframe:
; PACKETPP = $0102, PPDATA = PPDATA | $0040 ; PACKETPP = $0102, PPDATA = PPDATA | $0040
lda #$02 lda #$02
jsr packetpp_a1 jsr packetpp_a1
fixup21:lda ppdata fixup25:lda ppdata
ora #$40 ora #$40
fixup22:sta ppdata fixup26:sta ppdata
rts rts
;--------------------------------------------------------------------- ;---------------------------------------------------------------------

11
cpu/6502/net/ethernet.c
View file

@ -47,9 +47,13 @@ struct {
struct uip_eth_addr ethernet_address; struct uip_eth_addr ethernet_address;
uint8_t *buffer; uint8_t *buffer;
uint16_t buffer_size; uint16_t buffer_size;
void __fastcall__ (* init)(uint16_t reg); char jmp_init;
char __fastcall__ (* init)(uint16_t reg);
char jmp_poll;
uint16_t (* poll)(void); uint16_t (* poll)(void);
char jmp_send;
void __fastcall__ (* send)(uint16_t len); void __fastcall__ (* send)(uint16_t len);
char jmp_exit;
void (* exit)(void); void (* exit)(void);
} *module; } *module;
@ -97,7 +101,10 @@ ethernet_init(struct ethernet_config *config)
module->buffer = uip_buf; module->buffer = uip_buf;
module->buffer_size = UIP_BUFSIZE; module->buffer_size = UIP_BUFSIZE;
module->init(config->addr); if(module->init(config->addr)) {
log_message(config->name, ": No hardware");
error_exit();
}
uip_setethaddr(module->ethernet_address); uip_setethaddr(module->ethernet_address);
} }

99
cpu/6502/net/lan91c96.S
View file

@ -49,10 +49,10 @@ bufaddr:.res 2 ; Address
bufsize:.res 2 ; Size bufsize:.res 2 ; Size
; Jump table. ; Jump table.
.addr init jmp init
.addr poll jmp poll
.addr send jmp send
.addr exit jmp exit
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@ -89,7 +89,7 @@ fixup: .byte fixup02-fixup01, fixup03-fixup02, fixup04-fixup03
.byte fixup29-fixup28, fixup30-fixup29, fixup31-fixup30 .byte fixup29-fixup28, fixup30-fixup29, fixup31-fixup30
.byte fixup32-fixup31, fixup33-fixup32, fixup34-fixup33 .byte fixup32-fixup31, fixup33-fixup32, fixup34-fixup33
.byte fixup35-fixup34, fixup36-fixup35, fixup37-fixup36 .byte fixup35-fixup34, fixup36-fixup35, fixup37-fixup36
.byte fixup38-fixup37 .byte fixup38-fixup37, fixup39-fixup38, fixup40-fixup39
fixups = * - fixup fixups = * - fixup
@ -195,51 +195,58 @@ fixup06:stx ethrcr+1
lda #$01 ; Bank 1 lda #$01 ; Bank 1
fixup07:sta ethbsr fixup07:sta ethbsr
fixup08:lda ethcr+1 ; Check ISA mode base address register for reset values
lda #$18^67 ; I/O base $300 + ROM $CC000
fixup08:eor ethbar
fixup09:eor ethbar+1
beq :+
sec
rts
:
fixup10:lda ethcr+1
ora #%00010000 ; No wait (IOCHRDY) ora #%00010000 ; No wait (IOCHRDY)
fixup09:sta ethcr+1 fixup11:sta ethcr+1
lda #%00001001 ; Auto release lda #%00001001 ; Auto release
fixup10:sta ethctr+1 fixup12:sta ethctr+1
; Set MAC address ; Set MAC address
ldy #$00 ldy #$00
: lda mac,y : lda mac,y
fixup11:sta ethiar,y fixup13:sta ethiar,y
iny iny
cpy #$06 cpy #$06
bcc :- bcc :-
; Set interrupt mask ; Set interrupt mask
lda #$02 ; Bank 2 lda #$02 ; Bank 2
fixup12:sta ethbsr fixup14:sta ethbsr
lda #%00000000 ; No interrupts lda #%00000000 ; No interrupts
fixup13:sta ethmsk fixup15:sta ethmsk
tax
clc
rts rts
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
poll: poll:
fixup14:lda ethist fixup16:lda ethist
and #%00000001 ; RCV INT and #%00000001 ; RCV INT
bne :+ beq :+
; No packet available
tax
rts
; Process the incoming packet ; Process the incoming packet
; --------------------------- ; ---------------------------
: lda #$00 lda #$00
ldx #%11100000 ; RCV, AUTO INCR., READ ldx #%11100000 ; RCV, AUTO INCR., READ
fixup15:sta ethptr fixup17:sta ethptr
fixup16:stx ethptr+1 fixup18:stx ethptr+1
; Last word contains 'last data byte' and $60 or 'fill byte' and $40 ; Last word contains 'last data byte' and $60 or 'fill byte' and $40
fixup17:lda ethdata ; Status word fixup19:lda ethdata ; Status word
fixup18:lda ethdata ; Need high byte only fixup20:lda ethdata ; Need high byte only
; Move ODDFRM bit into carry: ; Move ODDFRM bit into carry:
; - Even packet length -> carry clear -> subtract 6 bytes ; - Even packet length -> carry clear -> subtract 6 bytes
@ -251,10 +258,10 @@ fixup18:lda ethdata ; Need high byte only
lsr lsr
; The packet contains 3 extra words ; The packet contains 3 extra words
fixup19:lda ethdata ; Total number of bytes fixup21:lda ethdata ; Total number of bytes
sbc #$05 ; Actually 5 or 6 depending on carry sbc #$05 ; Actually 5 or 6 depending on carry
sta len sta len
fixup20:lda ethdata fixup22:lda ethdata
sbc #$00 sbc #$00
sta len+1 sta len+1
@ -263,22 +270,23 @@ fixup20:lda ethdata
cmp len cmp len
lda bufsize+1 lda bufsize+1
sbc len+1 sbc len+1
bcs :+ bcs :++
; Yes, skip packet ; Yes, skip packet
; Remove and release RX packet from the FIFO ; Remove and release RX packet from the FIFO
lda #%10000000 lda #%10000000
fixup21:sta ethmmucr fixup23:sta ethmmucr
; No packet available ; No packet available
lda #$00 lda #$00
tax : tax
sec
rts rts
; Read bytes into buffer ; Read bytes into buffer
: jsr adjustptr : jsr adjustptr
: :
fixup22:lda ethdata fixup24:lda ethdata
sta (ptr),y sta (ptr),y
iny iny
bne :- bne :-
@ -288,11 +296,12 @@ fixup22:lda ethdata
; Remove and release RX packet from the FIFO ; Remove and release RX packet from the FIFO
lda #%10000000 lda #%10000000
fixup23:sta ethmmucr fixup25:sta ethmmucr
; Return packet length ; Return packet length
lda len lda len
ldx len+1 ldx len+1
clc
rts rts
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@ -305,14 +314,14 @@ send:
; Allocate memory for TX ; Allocate memory for TX
txa txa
ora #%00100000 ora #%00100000
fixup24:sta ethmmucr fixup26:sta ethmmucr
; 8 retries ; 8 retries
ldy #$08 ldy #$08
; Wait for allocation ready ; Wait for allocation ready
: :
fixup25:lda ethist fixup27:lda ethist
and #%00001000 ; ALLOC INT and #%00001000 ; ALLOC INT
bne :+ bne :+
@ -322,25 +331,26 @@ fixup25:lda ethist
; And try again ; And try again
dey dey
bne :- bne :-
sec
rts rts
; Acknowledge interrupt, is it necessary ??? ; Acknowledge interrupt, is it necessary ???
: lda #%00001000 : lda #%00001000
fixup26:sta ethack fixup28:sta ethack
; Set packet address ; Set packet address
fixup27:lda etharr fixup29:lda etharr
fixup28:sta ethpnr fixup30:sta ethpnr
lda #$00 lda #$00
ldx #%01000000 ; AUTO INCR. ldx #%01000000 ; AUTO INCR.
fixup29:sta ethptr fixup31:sta ethptr
fixup30:stx ethptr+1 fixup32:stx ethptr+1
; Status written by CSMA ; Status written by CSMA
lda #$00 lda #$00
fixup31:sta ethdata fixup33:sta ethdata
fixup32:sta ethdata fixup34:sta ethdata
; Check packet length parity: ; Check packet length parity:
; - Even packet length -> carry set -> add 6 bytes ; - Even packet length -> carry set -> add 6 bytes
@ -352,10 +362,10 @@ fixup32:sta ethdata
; The packet contains 3 extra words ; The packet contains 3 extra words
lda len lda len
adc #$05 ; Actually 5 or 6 depending on carry adc #$05 ; Actually 5 or 6 depending on carry
fixup33:sta ethdata fixup35:sta ethdata
lda len+1 lda len+1
adc #$00 adc #$00
fixup34:sta ethdata fixup36:sta ethdata
; Send the packet ; Send the packet
; --------------- ; ---------------
@ -363,7 +373,7 @@ fixup34:sta ethdata
; Write bytes from buffer ; Write bytes from buffer
jsr adjustptr jsr adjustptr
: lda (ptr),y : lda (ptr),y
fixup35:sta ethdata fixup37:sta ethdata
iny iny
bne :- bne :-
inc ptr+1 inc ptr+1
@ -381,13 +391,14 @@ fixup35:sta ethdata
; No ; No
: lda #$00 : lda #$00
fixup36:sta ethdata ; Fill byte fixup38:sta ethdata ; Fill byte
: :
fixup37:sta ethdata ; Control byte fixup39:sta ethdata ; Control byte
; Add packet to FIFO ; Add packet to FIFO
lda #%11000000 ; ENQUEUE PACKET - transmit packet lda #%11000000 ; ENQUEUE PACKET - transmit packet
fixup38:sta ethmmucr fixup40:sta ethmmucr
clc
rts rts
;--------------------------------------------------------------------- ;---------------------------------------------------------------------

85
cpu/6502/net/w5100.S
View file

@ -48,10 +48,10 @@ bufaddr:.res 2 ; Address
bufsize:.res 2 ; Size bufsize:.res 2 ; Size
; Jump table. ; Jump table.
.addr init jmp init
.addr poll jmp poll
.addr send jmp send
.addr exit jmp exit
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@ -96,7 +96,8 @@ fixup: .byte fixup02-fixup01, fixup03-fixup02, fixup04-fixup03
.byte fixup17-fixup16, fixup18-fixup17, fixup19-fixup18 .byte fixup17-fixup16, fixup18-fixup17, fixup19-fixup18
.byte fixup20-fixup19, fixup21-fixup20, fixup22-fixup21 .byte fixup20-fixup19, fixup21-fixup20, fixup22-fixup21
.byte fixup23-fixup22, fixup24-fixup23, fixup25-fixup24 .byte fixup23-fixup22, fixup24-fixup23, fixup25-fixup24
.byte fixup26-fixup25 .byte fixup26-fixup25, fixup27-fixup26, fixup28-fixup27
.byte fixup29-fixup28, fixup30-fixup29
fixups = * - fixup fixups = * - fixup
@ -144,23 +145,40 @@ init:
inc ptr+1 inc ptr+1
bcs :- ; Always bcs :- ; Always
; Indirect Bus I/F mode, Address Auto-Increment
:
fixup01:lda mode
ora #$03
fixup02:sta mode
; Retry Time-value Register: = 2000 ?
ldx #$00 ; Hibyte
ldy #$17 ; Lobyte
jsr set_addr
lda #$07^$D0
fixup03:eor data
fixup04:eor data
beq :+
sec
rts
; S/W Reset ; S/W Reset
: lda #$80 : lda #$80
fixup01:sta mode fixup05:sta mode
: :
fixup02:lda mode fixup06:lda mode
bmi :- bmi :-
; Indirect Bus I/F mode, Address Auto-Increment, Ping Block ; Indirect Bus I/F mode, Address Auto-Increment, Ping Block
lda #$13 lda #$13
fixup03:sta mode fixup07:sta mode
; Source Hardware Address Register: MAC Address ; Source Hardware Address Register: MAC Address
ldx #$00 ; Hibyte ldx #$00 ; Hibyte
ldy #$09 ; Lobyte ldy #$09 ; Lobyte
jsr set_addr jsr set_addr
: lda mac,x : lda mac,x
fixup04:sta data fixup08:sta data
inx inx
cpx #$06 cpx #$06
bcc :- bcc :-
@ -171,17 +189,20 @@ fixup04:sta data
ldy #$1A ; Lobyte ldy #$1A ; Lobyte
jsr set_addr jsr set_addr
lda #$03 lda #$03
fixup05:sta data fixup09:sta data
fixup06:sta data fixup10:sta data
; Socket 0 Mode Register: MACRAW, MAC Filter ; Socket 0 Mode Register: MACRAW, MAC Filter
; Socket 0 Command Register: OPEN ; Socket 0 Command Register: OPEN
ldy #$00 ldy #$00
jsr set_addrsocket0 jsr set_addrsocket0
lda #$44 lda #$44
fixup07:sta data fixup11:sta data
lda #$01 lda #$01
fixup08:sta data fixup12:sta data
tya
tax
clc
rts rts
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@ -190,19 +211,20 @@ poll:
; Check for completion of previous command ; Check for completion of previous command
; Socket 0 Command Register: = 0 ? ; Socket 0 Command Register: = 0 ?
jsr set_addrcmdreg0 jsr set_addrcmdreg0
fixup09:lda data fixup13:lda data
beq :++ beq :++
; No data available ; No data available
lda #$00 lda #$00
: tax : tax
sec
rts rts
; Socket 0 RX Received Size Register: != 0 ? ; Socket 0 RX Received Size Register: != 0 ?
: ldy #$26 ; Socket RX Received Size Register : ldy #$26 ; Socket RX Received Size Register
jsr set_addrsocket0 jsr set_addrsocket0
fixup10:lda data ; Hibyte fixup14:lda data ; Hibyte
fixup11:ora data ; Lobyte fixup15:ora data ; Lobyte
beq :-- beq :--
; Process the incoming data ; Process the incoming data
@ -268,17 +290,18 @@ common: jsr set_addrsocket0
tax tax
lda reg+1 lda reg+1
adc adv+1 adc adv+1
fixup12:sta data ; Hibyte fixup16:sta data ; Hibyte
fixup13:stx data ; Lobyte fixup17:stx data ; Lobyte
; Set command register ; Set command register
tya ; Restore command tya ; Restore command
jsr set_addrcmdreg0 jsr set_addrcmdreg0
fixup14:sta data fixup18:sta data
; Return data length (will be ignored for send) ; Return data length (will be ignored for send)
lda len lda len
ldx len+1 ldx len+1
clc
rts rts
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@ -300,14 +323,14 @@ send:
; Wait for completion of previous command ; Wait for completion of previous command
; Socket 0 Command Register: = 0 ? ; Socket 0 Command Register: = 0 ?
: jsr set_addrcmdreg0 : jsr set_addrcmdreg0
fixup15:lda data fixup19:lda data
bne :- bne :-
; Socket 0 TX Free Size Register: < length ? ; Socket 0 TX Free Size Register: < length ?
: ldy #$20 ; Socket TX Free Size Register : ldy #$20 ; Socket TX Free Size Register
jsr set_addrsocket0 jsr set_addrsocket0
fixup16:lda data ; Hibyte fixup20:lda data ; Hibyte
fixup17:ldx data ; Lobyte fixup21:ldx data ; Lobyte
cpx len cpx len
sbc len+1 sbc len+1
bcc :- bcc :-
@ -337,16 +360,16 @@ exit:
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
set_addrphysical: set_addrphysical:
fixup18:lda data ; Hibyte fixup22:lda data ; Hibyte
fixup19:ldy data ; Lobyte fixup23:ldy data ; Lobyte
sty reg sty reg
sta reg+1 sta reg+1
and #>$1FFF ; Socket Mask Address (hibyte) and #>$1FFF ; Socket Mask Address (hibyte)
ora bas ; Socket Base Address (hibyte) ora bas ; Socket Base Address (hibyte)
tax tax
set_addr: set_addr:
fixup20:stx addr ; Hibyte fixup24:stx addr ; Hibyte
fixup21:sty addr+1 ; Lobyte fixup25:sty addr+1 ; Lobyte
rts rts
set_addrcmdreg0: set_addrcmdreg0:
@ -361,7 +384,7 @@ set_addrbase:
beq set_addr ; Always beq set_addr ; Always
get_datacheckaddr: get_datacheckaddr:
fixup22:lda data fixup26:lda data
iny ; Physical address shadow (lobyte) iny ; Physical address shadow (lobyte)
bne :+ bne :+
inx ; Physical address shadow (hibyte) inx ; Physical address shadow (hibyte)
@ -402,10 +425,10 @@ mov_data:
; R/W without address wraparound possible because ; R/W without address wraparound possible because
; highest R/W address > actual R/W address ? ; highest R/W address > actual R/W address ?
; sec ; sec
fixup23:sbc addr+1 ; Lobyte fixup27:sbc addr+1 ; Lobyte
tay tay
txa txa
fixup24:sbc addr ; Hibyte fixup28:sbc addr ; Hibyte
tax tax
tya tya
bcs :+ bcs :+
@ -466,7 +489,7 @@ rw_data:eor #$FF ; Two's complement part 1
; Read data ; Read data
: :
fixup25:lda data fixup29:lda data
sta (ptr),y sta (ptr),y
iny iny
bne :- bne :-
@ -477,7 +500,7 @@ fixup25:lda data
; Write data ; Write data
: lda (ptr),y : lda (ptr),y
fixup26:sta data fixup30:sta data
iny iny
bne :- bne :-
inc ptr+1 inc ptr+1