A2osX/DRV/UTHERNET.DRV.S.txt

455 lines
8.8 KiB
Plaintext
Raw Normal View History

2015-03-14 21:48:35 +00:00
PR#3
PREFIX /A2OSX.BUILD
LOMEM $A00
2015-03-14 21:48:35 +00:00
INC 1
AUTO 6
2016-04-18 20:15:34 +00:00
.LIST OFF
2015-03-14 21:48:35 +00:00
.OP 65C02
.OR $2000
.TF /A2OSX.BUILD/DRV/UTHERNET.DRV
2015-03-14 21:48:35 +00:00
*--------------------------------------
.INB /A2OSX.BUILD/INC/MACROS.I
.INB /A2OSX.BUILD/INC/A2OSX.I
.INB /A2OSX.BUILD/INC/MLI.ERR.I
.INB /A2OSX.BUILD/INC/NET.I
.INB /A2OSX.BUILD/INC/NET.8900A.I
.INB /A2OSX.BUILD/INC/LIBTCPIP.I
2015-03-14 21:48:35 +00:00
*--------------------------------------
ZPTmpPTR .EQ ZPDRV
Size .EQ ZPDRV+2
Counter .EQ ZPDRV+4
2015-03-14 21:48:35 +00:00
*--------------------------------------
2015-06-03 18:30:57 +00:00
* File Header (16 Bytes)
2015-03-14 21:48:35 +00:00
*--------------------------------------
CS.START cld
2015-06-03 18:30:57 +00:00
jmp Dev.Detect cld,jmp abs=DRV
.DA #$61 6502,Level 1 (65c02)
.DA #1 DRV Layout Version 1
.DA 0
.DA CS.END-CS.START Code Length
.DA DEV.HEADER-CS.START Device Header Offset
.DA DRV.CS.START-CS.START Driver Code Offset
.DA DRV.CS.END-DRV.CS.START Drv Code Length
2015-03-14 21:48:35 +00:00
*--------------------------------------
2015-06-03 18:30:57 +00:00
* Relocation Table
*--------------------------------------
L.MSG.DETECT .DA MSG.DETECT
L.MSG.DETECT.OK .DA MSG.DETECT.OK
L.MSG.DETECT.KO .DA MSG.DETECT.KO
L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
2015-06-03 18:30:57 +00:00
.DA 0 End Of Reloc Table
*--------------------------------------
2016-08-17 06:25:58 +00:00
Dev.Detect >STYA ARGS
2015-06-03 18:30:57 +00:00
>LDYA L.MSG.DETECT
>SYSCALL PrintF.YA
2015-06-03 18:30:57 +00:00
ldx #$70
ldy #7
.1 lda A2osX.S,y IO based detection, avoid scanning in Disk Controller IO!!!!
bne .2
lda /PP.ID
sta PacketPagePTR+1,x
lda #PP.ID
sta PacketPagePTR,x
lda PacketPageDATA+1,x
2015-03-14 21:48:35 +00:00
cmp /DEVID
bne .2
lda PacketPageDATA,x
cmp #DEVID
2015-03-14 21:48:35 +00:00
beq .3
2015-06-03 18:30:57 +00:00
.2 dec DEV.HEADER.NAME+3
2015-03-14 21:48:35 +00:00
txa
sec
sbc #$10
2015-03-14 21:48:35 +00:00
tax
dey
2015-03-14 21:48:35 +00:00
bne .1
2015-06-03 18:30:57 +00:00
>LDYA L.MSG.DETECT.KO
>SYSCALL PrintF.YA
lda #MLI.E.NODEV
2015-03-14 21:48:35 +00:00
sec
rts
2015-06-03 18:30:57 +00:00
2016-01-10 22:16:07 +00:00
.3 stx DEVSLOTx0
lda #A2osX.S.NIC
sta A2osX.S,y
2016-01-10 22:16:07 +00:00
lda /PP.REVISION Get Revision# of ths chip...
sta PacketPagePTR+1,x
lda #PP.REVISION
sta PacketPagePTR,x
lda PacketPageDATA+1,x
sta DEVSTAT+S.DSTAT.VERSION+1 set Hardware version
lda PacketPageDATA,x
sta DEVSTAT+S.DSTAT.VERSION
2016-08-17 06:25:58 +00:00
>LDYA ARGS
>STYA ZPTmpPTR
lda (ZPTmpPTR)
2016-04-18 20:15:34 +00:00
bne .4
2016-08-17 06:25:58 +00:00
2016-04-18 20:15:34 +00:00
lda #$00
sta MAC
lda #$0E
sta MAC+1
lda #$3A
sta MAC+2
lda A2osX.RANDOM16
eor A2osX.TIMER16
sta MAC+3
eor A2osX.RANDOM16+1
sta MAC+4
eor A2osX.TIMER16+1
sta MAC+5
bra .8
2015-06-03 18:30:57 +00:00
2016-08-17 06:25:58 +00:00
.4 jsr DecodeMac
2016-04-18 20:15:34 +00:00
bcc .8
lda #K.E.SYN
2015-03-14 21:48:35 +00:00
sec
rts
.8 >PUSHW L.DEV.HEADER.NAME
>LDYA L.MSG.DETECT.OK
>SYSCALL PrintF.YA
clc
2015-06-03 18:30:57 +00:00
rts
*--------------------------------------
.INB /A2OSX.SRC/DRV/X.NET.DRV.S
2015-06-03 18:30:57 +00:00
*--------------------------------------
CS.END
MSG.DETECT >CSTR "UtherNet/CS8900A Driver.\r\n"
MSG.DETECT.OK >CSTR "UtherNet/CS8900A Installed As Device : %s\r\n"
MSG.DETECT.KO >CSTR "Hardware Not Found.\r\n"
2016-08-17 06:25:58 +00:00
ARGS .BS 2
2015-06-03 18:30:57 +00:00
*--------------------------------------
* Device Header (16 Bytes)
*--------------------------------------
DEV.HEADER cld
jmp (DRV.CS.START,x)
.DA #0
.BS 6
DEV.HEADER.NAME >CSTR "ETH7" NAME
2015-06-03 18:30:57 +00:00
*--------------------------------------
* Driver Code
*--------------------------------------
DRV.CS.START .DA STATUS
2017-01-12 17:43:45 +00:00
.DA READBLOCK
.DA WRITEBLOCK
.DA A2osX.BADCALL
.DA A2osX.BADCALL
.DA A2osX.BADCALL
2017-01-12 17:43:45 +00:00
.DA OPEN
2015-06-03 18:30:57 +00:00
.DA CLOSE
.DA A2osX.BADCALL
.DA A2osX.BADCALL
2017-01-12 17:43:45 +00:00
L.DEVSTAT .DA DEVSTAT
2015-06-03 18:30:57 +00:00
.DA 0 end or relocation
*--------------------------------------
STATUS lda #S.DSTAT.NET.STATUS.10
2017-01-12 17:43:45 +00:00
sta LINK.STATUS
2015-03-14 21:48:35 +00:00
2017-01-12 17:43:45 +00:00
ldx DEVSLOTx0
lda /PP.LineST
sta PacketPagePTR+1,x
lda #PP.LineST
sta PacketPagePTR,x
lda PacketPageDATA+1,x
lda PacketPageDATA,x
2017-01-12 17:43:45 +00:00
and #PP.LineST.LinkOK
beq .1
2017-01-12 17:43:45 +00:00
lda LINK.STATUS
ora #S.DSTAT.NET.STATUS.OK
2017-01-12 17:43:45 +00:00
sta LINK.STATUS
.1 lda /PP.TestCTL
sta PacketPagePTR+1,x
lda #PP.TestCTL
sta PacketPagePTR,x
lda PacketPageDATA+1,x
ldy PacketPageDATA,x
2017-01-12 17:43:45 +00:00
and /PP.TestCTL.FDX
beq .2
2017-01-12 17:43:45 +00:00
lda LINK.STATUS
ora #S.DSTAT.NET.STATUS.FD
2017-01-12 17:43:45 +00:00
sta LINK.STATUS
2015-03-14 21:48:35 +00:00
2017-01-12 17:43:45 +00:00
.2 >LDYA L.DEVSTAT
2015-06-03 18:30:57 +00:00
clc
2015-03-14 21:48:35 +00:00
rts
*--------------------------------------
READBLOCK php
sei
2016-03-13 22:07:01 +00:00
ldx DEVSLOTx0
2017-01-26 21:57:35 +00:00
lda /PP.RxEvent
sta PacketPagePTR+1,x
lda #PP.RxEvent
sta PacketPagePTR,x
lda PacketPageDATA+1,x
ldy PacketPageDATA,x
and /PP.RxEvent.RxOK+PP.RxEvent.IA+PP.RxEvent.Brdcast+PP.RxEvent.Runt
bne .1
lda #ERR.DEV.NOFRAME
2017-01-26 21:57:35 +00:00
.9 plp
sec
rts
.1 lda RTDATA+1,x discard RxStatus
lda RTDATA,x
2016-03-13 22:07:01 +00:00
lda RTDATA+1,x
sta Size+1
lda RTDATA,x get RxLength
2016-04-07 06:13:41 +00:00
sta Size
2016-03-13 22:07:01 +00:00
clc
adc #2
tay
lda Size+1
adc #0
>SYSCALL GetMem.YA
bcs .9
2015-03-14 21:48:35 +00:00
>STYA ZPTmpPTR
2017-01-26 21:57:35 +00:00
stx .8+1
2017-01-29 21:47:19 +00:00
sty .8+3
sta .8+5
2016-04-07 06:13:41 +00:00
lda Size
2016-03-13 22:07:01 +00:00
sta (ZPTmpPTR)
2016-04-07 06:13:41 +00:00
eor #$ff
sta Counter
2016-03-13 22:07:01 +00:00
ldy #1
2016-04-07 06:13:41 +00:00
lda Size+1
2016-03-13 22:07:01 +00:00
sta (ZPTmpPTR),y
2016-04-07 06:13:41 +00:00
eor #$ff
sta Counter+1
2016-03-13 22:07:01 +00:00
iny
2015-06-03 18:30:57 +00:00
2016-03-13 22:07:01 +00:00
ldx DEVSLOTx0
.2 inc Counter
bne .3
2016-04-07 06:13:41 +00:00
inc Counter+1
2016-03-13 22:07:01 +00:00
beq .8
2016-04-07 06:13:41 +00:00
.3 lda RTDATA,x
2015-03-14 21:48:35 +00:00
sta (ZPTmpPTR),y
iny
bne .4
2015-03-14 21:48:35 +00:00
inc ZPTmpPTR+1
2016-03-13 22:07:01 +00:00
.4 inc Counter
bne .5
2016-04-07 06:13:41 +00:00
inc Counter+1
2015-03-14 21:48:35 +00:00
beq .8
2016-04-07 06:13:41 +00:00
.5 lda RTDATA+1,x
2015-03-14 21:48:35 +00:00
sta (ZPTmpPTR),y
iny
bne .2
2015-03-14 21:48:35 +00:00
inc ZPTmpPTR+1
bne .2
2016-03-13 22:07:01 +00:00
2017-01-29 21:47:19 +00:00
.8 ldx #$ff hMem
ldy #$ff PtrLO
lda #$ff PtrHI
plp
2017-01-26 21:57:35 +00:00
clc
2015-03-14 21:48:35 +00:00
rts
2015-06-03 18:30:57 +00:00
*--------------------------------------
WRITEBLOCK php
sei
>STYA ZPTmpPTR
ldx #5
ldy #S.ETH.SRCMAC+5
2016-03-13 22:07:01 +00:00
.10 lda MAC,x
sta (ZPTmpPTR),y
dey
dex
bpl .10
2015-03-14 21:48:35 +00:00
ldx DEVSLOTx0
lda /PP.TxCMD.LID+PP.TxCMD.TxStartFULL
sta TxCMD+1,x
lda #PP.TxCMD.LID+PP.TxCMD.TxStartFULL
sta TxCMD,x
ldy #1
lda (ZPTmpPTR),y
sta TxLength+1,x
eor #$ff
sta Counter+1
lda (ZPTmpPTR)
sta TxLength,x
eor #$ff
sta Counter
lda /PP.BusST
sta PacketPagePTR+1,x
lda #PP.BusST
sta PacketPagePTR,x
2015-03-14 21:48:35 +00:00
ldy #16
.1 lda PacketPageDATA+1,x
2015-03-14 21:48:35 +00:00
and /PP.BusST.Rdy4TxNOW
2017-01-12 17:43:45 +00:00
bne WRITEBLOCK.1
2016-03-20 22:12:57 +00:00
lda PacketPageDATA,x
and #PP.BusST.TxBidErr
bne .9
2015-03-14 21:48:35 +00:00
dey
bne .1
2016-03-20 22:12:57 +00:00
.9 lda #ERR.DEV.NOBUFFER
plp
2015-03-14 21:48:35 +00:00
sec
rts
WRITEBLOCK.1 ldy #2
2016-03-13 22:07:01 +00:00
2016-04-07 06:13:41 +00:00
.1 inc Counter
bne .2
2016-04-07 06:13:41 +00:00
inc Counter+1
2016-03-13 22:07:01 +00:00
beq .8
2016-04-07 06:13:41 +00:00
.2 lda (ZPTmpPTR),y
2015-03-14 21:48:35 +00:00
sta RTDATA,x
iny
bne .3
2015-03-14 21:48:35 +00:00
inc ZPTmpPTR+1
2016-03-13 22:07:01 +00:00
.3 inc Counter
bne .4
2016-04-07 06:13:41 +00:00
inc Counter+1
2015-03-14 21:48:35 +00:00
beq .8
2016-04-07 06:13:41 +00:00
.4 lda (ZPTmpPTR),y
2015-03-14 21:48:35 +00:00
sta RTDATA+1,x
iny
2016-03-13 22:07:01 +00:00
bne .1
2015-03-14 21:48:35 +00:00
inc ZPTmpPTR+1
bne .1
2016-03-13 22:07:01 +00:00
.8 plp
clc
2015-03-14 21:48:35 +00:00
rts
*--------------------------------------
2017-01-26 21:57:35 +00:00
OPEN jsr CLOSE
lda /PP.RxCTL
sta PacketPagePTR+1,x
lda #PP.RxCTL
sta PacketPagePTR,x
lda /PP.RxCTL.LID+PP.RxCTL.RxOKA+PP.RxCTL.IA+PP.RxCTL.BroadcastA+PP.RxCTL.RuntA
sta PacketPageDATA+1,x
lda #PP.RxCTL.LID+PP.RxCTL.RxOKA+PP.RxCTL.IA+PP.RxCTL.BroadcastA+PP.RxCTL.RuntA
sta PacketPageDATA,x
2017-01-12 17:43:45 +00:00
lda /PP.MAC
sta PacketPagePTR+1,x
lda #PP.MAC
sta PacketPagePTR,x
2017-01-12 17:43:45 +00:00
>LDYA MAC
>STYA PacketPageDATA,x
>LDYAI PP.MAC+2
>STYA PacketPagePTR,x
>LDYA MAC+2
>STYA PacketPageDATA,x
>LDYAI PP.MAC+4
>STYA PacketPagePTR,x
>LDYA MAC+4
>STYA PacketPageDATA,x
lda /PP.LineCTL
sta PacketPagePTR+1,x
lda #PP.LineCTL
sta PacketPagePTR,x
lda /PP.LineCTL.LID+PP.LineCTL.SerRxOn+PP.LineCTL.SerTxOn+PP.LineCTL.10BaseT
sta PacketPageDATA+1,x
lda #PP.LineCTL.LID+PP.LineCTL.SerRxOn+PP.LineCTL.SerTxOn+PP.LineCTL.10BaseT
sta PacketPageDATA,x
2017-01-12 17:43:45 +00:00
clc
rts
*--------------------------------------
2017-01-26 21:57:35 +00:00
CLOSE ldx DEVSLOTx0
lda /PP.SelfCTL
sta PacketPagePTR+1,x
lda #PP.SelfCTL
sta PacketPagePTR,x
lda /PP.SelfCTL.LID+PP.SelfCTL.RESET
sta PacketPageDATA+1,x
lda #PP.SelfCTL.LID+PP.SelfCTL.RESET
sta PacketPageDATA,x
lda /PP.SelfST
sta PacketPagePTR+1,x
lda #PP.SelfST
sta PacketPagePTR,x
ldy #0
.1 lda PacketPageDATA+1,x
lda PacketPageDATA,x
and #PP.SelfST.InitDone
bne .8
iny
bne .1
.8 clc
2015-03-14 21:48:35 +00:00
rts
2016-04-18 20:15:34 +00:00
*--------------------------------------
2017-01-26 21:57:35 +00:00
DRV.CS.END
2015-03-14 21:48:35 +00:00
DEVSLOTx0 .BS 1
*--------------------------------------
DEVSTAT .DA #0
.BS 3 size
>PSTR "Uthernet/CS8900A"
.DA #S.DSTAT.T.NET
.BS 1 Subtype
.BS 2 Version
*--------------------------------------
FLAGS .DA #0
2016-03-13 22:07:01 +00:00
LINK.STATUS .BS 1 OK/DUPLEX/SPEED
MAC .BS 6
2015-03-14 21:48:35 +00:00
MAN
SAVE /A2OSX.SRC/DRV/UTHERNET.DRV.S
2015-03-14 21:48:35 +00:00
ASM