A2osX/LIB/LIBETALK.S.NBP.txt

117 lines
1.9 KiB
Plaintext
Raw Permalink Normal View History

2023-10-18 05:41:12 +00:00
NEW
AUTO 3,1
*--------------------------------------
NBP.IN
clc
rts
*--------------------------------------
NBP.Clear
*--------------------------------------
NBP.Query
clc
rts
*--------------------------------------
NBP.Lookup >PULLW ZPDataInPtr PSTR/PSTR/PSTR/0
ldy #$ff
.1 iny
lda (ZPDataInPtr),y
bne .1
tya
clc
adc #S.NBPTUPLE+2 +F+ID
tay
lda #0
adc #0
jsr FRM.NewDDP
bcs .9
lda #S.DDP2.TYPE.NBP
ldy #S.DDP2.DST.SKT
sta (ZPFrameOutPtr),y
iny S.DDP2.SRC.SKT
sta (ZPFrameOutPtr),y
ldy #S.DDP2.TYPE
sta (ZPFrameOutPtr),y
ldy #S.NBP.F
lda #S.NBP.F.LkUpReq+1
sta (ZPFrameOutPtr),y
inc NBP.ID
lda NBP.ID
iny S.NBP.ID
sta (ZPFrameOutPtr),y
iny S.NBP.Tuples
lda ETKCFG+S.ETKCFG.NetID+1
sta (ZPFrameOutPtr),y
iny
lda ETKCFG+S.ETKCFG.NetID
sta (ZPFrameOutPtr),y
iny
lda ETKCFG+S.ETKCFG.NodID
sta (ZPFrameOutPtr),y
iny
lda #S.DDP2.TYPE.NBP
sta (ZPFrameOutPtr),y
iny
lda #0 S.NBPTUPLE.Enum
sta (ZPFrameOutPtr),y
.2 lda (ZPDataInPtr)
beq .4
inc ZPDataInPtr
bne .3
inc ZPDataInPtr+1
.3 iny
sta (ZPFrameOutPtr),y
bra .2
.4 cpy #60
bcs .8
iny
sta (ZPFrameOutPtr),y
bra .4
.8 ldy #S.DDP2.DST.NET
lda #0
* lda ETKCFG+S.ETKCFG.NetID+1
sta (ZPFrameOutPtr),y
iny
* lda ETKCFG+S.ETKCFG.NetID
sta (ZPFrameOutPtr),y
lda #$ff
* lda #0 all routers
ldy #S.DDP2.DST.NOD
sta (ZPFrameOutPtr),y
jmp FRM.SendDDP
.9 rts
*--------------------------------------
NBP.GetCache clc
rts
*--------------------------------------
MAN
SAVE usr/src/lib/libetalk.s.nbp
LOAD usr/src/lib/libetalk.s
ASM