//%set debug_print_ccode = true
Main Module PPACKBUG1

    Use TEXTIO

    Declare
	Command_type is 5 bit cardinal

	Qualifier_type is 3 bit cardinal 

	Key_class_type is 2 bit cardinal 
  
	Key_record_type is packed
	    Structure
		Class		: key_class_type		// 2 bit
		Select class from
		    Case 0,1:
			Select class from
			    Case 0:
				Command		: command_type	// 5 bits
			    Case 1:
				Qualifier	: qualifier_type// 3 bits
			EndSelect
			Data		: 8 bit integer		// 8 bits
		EndSelect
	    EndStructure

	Overlay_template	: static key_record_type Initially 
		key_record_type ( class: 1, qualifier: 0,  data: 33 )

	Temp_char	: static 8 bit integer
    EndDeclare
    Temp_char	:= overlay_template .data


//%if false
    Out_string 		( TTY, "Data : " )
    out_integer		( TTY, overlay_template . data)
    Out_record 		( TTY )

    Overlay_template . data := 23
    Out_string 		( TTY, "post loaded Data : " )
    out_integer		( TTY, overlay_template . data)
    Out_record 		( TTY )
//%endif
EndModule