/*********************************************************************/
/*              STAT52:  ICE-5100 Emulator macro file                */
/*********************************************************************/
define proc STATUS = do  /* Display status information*/
  define char basestr = 'HEX'   /* Determin the current number base */
  if base == 10y then 
    basestr = 'BINARY'
    endif
  if base == 10t then 
    basestr = 'DECIMAL'
    endif
  write using                         /* Display status information */
    ('6C,"DYNASCOPE =  ",0,30C,"ERROR     =  ",0,54C,"SYMBOLIC =  ",0')&
    dynascope, error, symbolic
  write using
    ('6C,"SYNCSTART =  ",0,30C,"TEMPCHECK =  ",0,54C,"VERIFY   =  ",0')&
  syncstart, tempcheck, verify
  write using 
  ('6C,"BASE      =  ",0,30C,"CPU       =  ",>') basestr; cpu
end

















































