(x80,x61,x70)

; --- Input Parameter ---
; x80          node number
; -- Output Parameters -- 
; x61          first terminus
; x70          last terminus
; ------- Output -------
; [node_lut]   

; get #particles
x60=x70-x61+1
; should be the same as x66, but...

; save to lookup-table
sd x80,x61,x70,x60
[temp_lut]
; x80==node#, x61==1st-terminus, x70==last-terminus, x60==#particles
sd e
[temp_lut]

; increment node#
x80=x80+1

re