mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-28 10:52:33 +00:00
117 lines
1.9 KiB
Plaintext
117 lines
1.9 KiB
Plaintext
|
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
|