A2osX/LIB/LIBETALK.S.ZIP.txt

76 lines
1.4 KiB
Plaintext
Raw Permalink Normal View History

2023-10-18 05:41:12 +00:00
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