/********************************************************* * exit-related definitions for PL/I symbolic debugger * *********************************************************/ dcl 1 exitdf external, /*put in structure to cut down on # of externals*/ /*following codes must differ from all error codes and exit statuses ***temp until spawn with ast:*/ 2 not_installed fixed bin(15) initial(32764), 2 not_started fixed bin(15) initial(32765), 2 still_running fixed bin(15) initial(32766), 2 user_was_installed fixed bin(1) initial(0/*false*/), /*if /INSTASK switch was used, for debfinish*/ /**(when INX can set the remove-on-exit bit, this variable can be local to debinit)*/ 2 debug_exit_status fixed bin(15) static initial(1/*EX_SUC*/), /*exit status returned by debugger task (set by software to user_exit_status unless debugger terminates due to internal error, in which case set to EX_ERR)*/ 2 user_state fixed bin(15) static initial(0), /*whether user has exited, when have spawn with AST*/ 2 user_esb(8) fixed bin(15) static, 2 pesb pointer /*initial(addr(user_esb(1))) set by debinit*/, user_exit_status fixed bin(15) /*defined(user_esb(1))*/ based(pesb), /*exit status returned by user task (set by executive due to spawn)*/ /* RSX exit status codes: */ ( EX_SUC /*normal*/, EX_ERR /*error*/, EX_SEV /*aborted (severe)*/ /*(warning code (=0) not needed)*/ ) fixed bin(15) external; /*defined in debasm*/