2019-01-05 20:33:08 +00:00
|
|
|
|
NEW
|
|
|
|
|
PREFIX
|
|
|
|
|
AUTO 4,1
|
|
|
|
|
.LIST OFF
|
|
|
|
|
.OP 65C02
|
|
|
|
|
.OR $2000
|
|
|
|
|
.TF SBIN/NETWORKD
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.INB INC/MACROS.I
|
|
|
|
|
.INB INC/A2OSX.I
|
|
|
|
|
.INB INC/MLI.E.I
|
|
|
|
|
.INB INC/ETH.I
|
|
|
|
|
.INB INC/LIBTCPIP.I
|
|
|
|
|
.INB INC/LIBETALK.I
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* Zero Page Segment, up to 32 bytes
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.DUMMY
|
|
|
|
|
.OR ZPBIN
|
|
|
|
|
ZS.START
|
2019-01-14 16:37:56 +00:00
|
|
|
|
pIPCFG .BS 2
|
2019-01-05 20:33:08 +00:00
|
|
|
|
ZS.END
|
|
|
|
|
.ED
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* File Header (16 Bytes)
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.START cld
|
|
|
|
|
jmp (.1,x)
|
|
|
|
|
.DA #$61 6502,Level 1 (65c02)
|
|
|
|
|
.DA #1 BIN Layout Version 1
|
|
|
|
|
.DA #S.PS.F.EVENT
|
|
|
|
|
.DA #0
|
|
|
|
|
.DA CS.END-CS.START Code Size (without Constants)
|
|
|
|
|
.DA DS.END-DS.START Data SegmentSize
|
|
|
|
|
.DA #16 Stack Size
|
|
|
|
|
.DA #ZS.END-ZS.START Zero Page Size
|
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* Relocation Table
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.1 .DA CS.INIT
|
|
|
|
|
.DA CS.RUN
|
|
|
|
|
.DA CS.DOEVENT
|
|
|
|
|
.DA CS.QUIT
|
|
|
|
|
L.DEVNAME .DA DEVNAME
|
|
|
|
|
L.MSG.DEV.OK .DA MSG.DEV.OK
|
|
|
|
|
L.MSG.DEV.KO .DA MSG.DEV.KO
|
|
|
|
|
L.LIBTCPIP .DA LIBTCPIP
|
|
|
|
|
L.LIBETALK .DA LIBETALK
|
|
|
|
|
L.IOCTL .DA IOCTL
|
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.INIT clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.RUN >PUSHBI 0
|
|
|
|
|
>LDYA L.DEVNAME
|
|
|
|
|
>SYSCALL open
|
|
|
|
|
bcc .1
|
|
|
|
|
|
|
|
|
|
inc DEVNAME+8
|
|
|
|
|
lda DEVNAME+8
|
|
|
|
|
cmp #'8'
|
|
|
|
|
bne CS.RUN
|
|
|
|
|
|
|
|
|
|
>LDYA L.MSG.DEV.KO
|
|
|
|
|
>SYSCALL puts
|
|
|
|
|
|
|
|
|
|
lda #MLI.E.NODEV
|
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
|
2019-01-14 16:37:56 +00:00
|
|
|
|
.1 sta DevID
|
2019-01-05 20:33:08 +00:00
|
|
|
|
|
|
|
|
|
>PUSHW L.DEVNAME
|
|
|
|
|
>PUSHBI 2
|
|
|
|
|
>LDYA L.MSG.DEV.OK
|
|
|
|
|
>SYSCALL printf
|
|
|
|
|
|
2019-01-14 07:11:50 +00:00
|
|
|
|
>LDYA L.LIBTCPIP
|
|
|
|
|
>SYSCALL LoadLib
|
|
|
|
|
bcs .2
|
|
|
|
|
sta hLIBTCPIP
|
2019-01-14 16:37:56 +00:00
|
|
|
|
|
|
|
|
|
>LIBCALL hLIBTCPIP,LIBTCPIP.GETCFG
|
|
|
|
|
>STYA pIPCFG
|
|
|
|
|
|
|
|
|
|
ldy #S.IPCFG.DevID
|
|
|
|
|
lda DevID
|
|
|
|
|
sta (pIPCFG),y
|
2019-01-05 20:33:08 +00:00
|
|
|
|
|
|
|
|
|
.2 >LDYA L.LIBETALK
|
|
|
|
|
>SYSCALL LoadLib
|
|
|
|
|
bcs .3
|
|
|
|
|
sta hLIBETALK
|
|
|
|
|
|
|
|
|
|
.3
|
|
|
|
|
CS.RUN.LOOP >SLEEP
|
|
|
|
|
|
|
|
|
|
>PUSHW L.IOCTL
|
|
|
|
|
>PUSHBI IOCTL.READ
|
2019-01-14 16:37:56 +00:00
|
|
|
|
lda DevID
|
2019-01-05 20:33:08 +00:00
|
|
|
|
>SYSCALL IOCTL
|
|
|
|
|
bcs CS.RUN.LOOP No Frame
|
|
|
|
|
|
|
|
|
|
sta hFrameIn
|
|
|
|
|
|
|
|
|
|
ldx hLIBTCPIP
|
|
|
|
|
beq .1
|
|
|
|
|
|
2019-01-14 07:11:50 +00:00
|
|
|
|
>PUSHW L.IOCTL
|
|
|
|
|
lda hFrameIn
|
2019-01-05 20:33:08 +00:00
|
|
|
|
|
2019-01-14 07:11:50 +00:00
|
|
|
|
>LIBCALL hLIBTCPIP,LIBTCPIP.INCOMING
|
|
|
|
|
bcc CS.RUN.LOOP
|
2019-01-05 20:33:08 +00:00
|
|
|
|
|
|
|
|
|
.1 ldx hLIBETALK
|
|
|
|
|
beq .9
|
|
|
|
|
|
|
|
|
|
>PUSHW L.IOCTL
|
|
|
|
|
lda hFrameIn
|
|
|
|
|
>LIBCALL hLIBETALK,LIBETALK.INCOMING
|
|
|
|
|
bcc CS.RUN.LOOP
|
|
|
|
|
|
|
|
|
|
.9 lda hFrameIn
|
|
|
|
|
>SYSCALL freemem
|
|
|
|
|
|
|
|
|
|
bra CS.RUN.LOOP
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.DOEVENT lda (pEvent)
|
|
|
|
|
bpl .9
|
|
|
|
|
|
|
|
|
|
ldx hLIBTCPIP
|
|
|
|
|
beq .1
|
2019-01-14 07:11:50 +00:00
|
|
|
|
>LIBCALL hLIBTCPIP,LIBTCPIP.PULSE
|
2019-01-05 20:33:08 +00:00
|
|
|
|
|
|
|
|
|
.1 ldx hLIBETALK
|
|
|
|
|
beq .9
|
2019-01-14 16:37:56 +00:00
|
|
|
|
|
2019-01-05 20:33:08 +00:00
|
|
|
|
lda (pEvent)
|
|
|
|
|
>LIBCALL hLIBETALK,LIBETALK.PULSE
|
|
|
|
|
|
|
|
|
|
.9 sec never discard TIME event
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.QUIT lda hLIBTCPIP
|
|
|
|
|
beq .1
|
|
|
|
|
|
|
|
|
|
>SYSCALL UnloadLib
|
|
|
|
|
|
|
|
|
|
.1 lda hLIBETALK
|
|
|
|
|
beq .2
|
|
|
|
|
|
|
|
|
|
>SYSCALL UnloadLib
|
|
|
|
|
|
|
|
|
|
.2 >PUSHWI 0
|
|
|
|
|
>PUSHBI IOCTL.CLOSE
|
2019-01-14 16:37:56 +00:00
|
|
|
|
lda DevID
|
2019-01-05 20:33:08 +00:00
|
|
|
|
>SYSCALL IOCTL
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.END
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
DEVNAME .AZ "/DEV/ETH1"
|
2019-01-14 16:37:56 +00:00
|
|
|
|
MSG.DEV.KO .AZ "NETWORKD:No Device Found, exiting."
|
|
|
|
|
MSG.DEV.OK .AZ "NETWORKD:Bound To Device : %s\r\n"
|
2019-01-14 07:11:50 +00:00
|
|
|
|
LIBTCPIP .AZ "libtcpip2"
|
2019-01-05 20:33:08 +00:00
|
|
|
|
LIBETALK .AZ "libetalk"
|
2019-01-14 16:37:56 +00:00
|
|
|
|
DevID .BS 1
|
2019-01-05 20:33:08 +00:00
|
|
|
|
hLIBTCPIP .BS 1
|
|
|
|
|
hLIBETALK .BS 1
|
|
|
|
|
IOCTL .BS S.IOCTL
|
|
|
|
|
hFrameIn .BS 1
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.DUMMY
|
|
|
|
|
.OR 0
|
|
|
|
|
DS.START
|
|
|
|
|
DS.END .ED
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
|
|
|
|
SAVE USR/SRC/SBIN/NETWORKD.S
|
|
|
|
|
ASM
|