A2osX/LIB/LIBETALK.S.ZIP.txt

76 lines
1.4 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
AUTO 3,1
*--------------------------------------
ZIP.IN ldy #S.ZIP.GNI.Cmd
lda (ZPFrameInPtr),y
cmp #S.ZIP.GNI.Cmd.Rep
bne .8
ldy #S.ZIP.GNI.Zone0
lda (ZPFrameInPtr),y
bne .8
ldy #S.DDP2.SRC.NET
lda (ZPFrameInPtr),y
sta ETKCFG+S.ETKCFG.NetID+1
iny
lda (ZPFrameInPtr),y
sta ETKCFG+S.ETKCFG.NetID
ldy #S.DDP2.SRC.NOD
lda (ZPFrameInPtr),y
sta ETKCFG+S.ETKCFG.Router
ldy #S.ZIP.GNI.NetStart
lda (ZPFrameInPtr),y
sta ETKCFG+S.ETKCFG.NetStart+1
iny
lda (ZPFrameInPtr),y
sta ETKCFG+S.ETKCFG.NetStart
iny
lda (ZPFrameInPtr),y
sta ETKCFG+S.ETKCFG.NetEnd+1
iny
lda (ZPFrameInPtr),y
sta ETKCFG+S.ETKCFG.NetEnd
ldy #S.ZIP.GNI.MCAddress
lda (ZPFrameInPtr),y
cmp #6
bne .3
tax
ldy #S.ZIP.GNI.MCAddress+6
.2 lda (ZPFrameInPtr),y
sta ETKCFG+S.ETKCFG.MCAddress,x
dey
dex
bpl .2
.3 ldy #S.ZIP.GNI.DefaultZone
lda (ZPFrameInPtr),y
beq .7
tax
clc
adc #S.ZIP.GNI.DefaultZone
tay
.4 lda (ZPFrameInPtr),y
sta ETKCFG+S.ETKCFG.Zone,x
dey
dex
bpl .4
.7 lda #$80
sta ETKCFG STATUS
.8 clc
rts
*--------------------------------------
MAN
SAVE usr/src/lib/libetalk.s.zip
LOAD usr/src/lib/libetalk.s
ASM