#include	<starlet.h>
#include	<lib$routines.h>
#include	<descrip.h>
#include	<pcbdef.h>
#include	<ssdef.h>
#include	<psldef.h>
#include	<string.h>
#include	<stdio.h>
#include	<exe_routines.h>

#define	INIT_SDESC(dsc, len, ptr) {(dsc).dsc$b_dtype = DSC$K_DTYPE_T;\
	(dsc).dsc$b_class = DSC$K_CLASS_S; (dsc).dsc$w_length = (len);\
	(dsc).dsc$a_pointer = (ptr);}

PCB	pcb,*pcbptr;

int	getpcb	(void)
{
int	status;

	if ( !(pcbptr = exe_std$cvt_ipid_to_pcb (0x20)) )
		{
		memcpy(&pcb,pcbptr,sizeof(PCB));
		return	SS$_NORMAL;
		}
	return	SS$_ABORT;
}


void	main	(int argc, char ** argv[])
{
int	status;
$DESCRIPTOR(fao_dsc,"pcb$l_state:!zl,pcb$l_sts:!zl,pcb$l_sts2 = !zl");

	if ( !(1 & (status = sys$cmkrnl(getpcb,0))) )
		lib$signal(status);

	lib$signal(SS$_DEBUG);

}