! Bin and Hex printing.

#IFDEF PRINT_BIN;
[ Bin data  mask cnt;
  mask = $8000;
  for (cnt = 1: cnt <= 16: cnt++) {
    if (data & mask) print 1;
    else print 0;
    if (cnt ~= 16 && cnt % 4 == 0) print " ";
    mask = (mask / 2) & $7FFF; 
  }
];
#ENDIF;
#IFDEF PRINT_HEX;
[ Hex1 data;
  if (10 <= data) print (char) 'A'+data-10;
  else print (char) '0'+data;
];
[ Hex2 data;
  print (Hex1) ((data/16) & $F);
  print (Hex1) (data & $F);
];
[ Hex data;
  print (Hex2) ((data&$FF00)/256)&255;
  print (Hex2) (data & $FF);
];
#ENDIF;