; ( ud -- ) ; Numeric IO ; unsigned PNO with double cell numbers .if cpu_msp430==1 HEADER(XT_UDDOT,3,"ud.",DOCOLON) .endif .if cpu_avr8==1 VE_UDDOT: .dw $ff03 .db "ud.",0 .dw VE_HEAD .set VE_HEAD = VE_UDDOT XT_UDDOT: .dw DO_COLON PFA_UDDOT: .endif .dw XT_ZERO .dw XT_UDDOTR .dw XT_SPACE .dw XT_EXIT ; : ud. ( ud -- ) 0 ud.r space ;