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
