/****************************/
/* CREATE A STATUS FUNCTION */
/****************************/

FUNC void status()  {
  printf ("save_record[0].port5=%02XH\n", save_record[0].port5);
  printf ("DPTR=%04XH, ACC=%02XH, B=%02XH\n", dptr,acc,b);
  printf ("R0=%02XH(%d), R1=%02XH(%d)\n", r0,r0,r1,r1);
  printf ("Analog-Input-0:  %f\n", ain0);
  printf ("Register-Bank:   %d\n", (psw & 0x18) >> 3);
  printf ("Program Counter: %04XH\n", $);
  printf ("ACTUAL XDATA-MAPPING:\n");
  exec ("MAP");
}
/* END OF INCLUDE-FILE STATUS.INC */
