A2osX/LIB/LIBETALK.S.NBP.txt
2023-10-18 07:41:12 +02:00

117 lines
1.9 KiB
Plaintext
Raw 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
*--------------------------------------
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