; ( d w -- ) ; Numeric IO ; singed PNO with double cell numbers, right aligned in width w .if cpu_msp430==1 HEADER(XT_DDOTR,3,"d.r",DOCOLON) .endif .if cpu_avr8==1 VE_DDOTR: .dw $ff03 .db "d.r",0 .dw VE_HEAD .set VE_HEAD = VE_DDOTR XT_DDOTR: .dw DO_COLON PFA_DDOTR: .endif .dw XT_TO_R .dw XT_TUCK .dw XT_DABS .dw XT_L_SHARP .dw XT_SHARP_S .dw XT_ROT .dw XT_SIGN .dw XT_SHARP_G .dw XT_R_FROM .dw XT_OVER .dw XT_MINUS .dw XT_SPACES .dw XT_TYPE .dw XT_EXIT ; : d.r ( d n -- ) ; >r swap over dabs <# #s rot sign #> r> over - spaces type ;