; 2011-01-01 EW


; R( -- x )
; store stationID for multi-processor-communication mode
VE_STATIONID:				; dict header
	.dw $ff09
	.db "stationID",0
	.dw VE_HEAD			; link field, set to next entry
	.set VE_HEAD = VE_STATIONID	; update pointer to this entry
XT_STATIONID:
	.dw PFA_DOVALUE			; this is a value
PFA_STATIONID:
	.dw EE_STATIONID		; this is the location of the value