%set debug_print_ccode = true
Main Module PPACKBUG3

    Use TEXTIO

    Declare
	Key_record_type is 
	    Structure
		Class		: 8 bit cardinal
		Select class from
		    Case 0,1:
			Select class from
			    Case 0:
				Command		: 16 bit cardinal
			    Case 1:
				Qualifier	: 8 bit cardinal
			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 )

    out_string 		(TTY, "sizeof(Key_record_type)= ")
    out_integer		(TTY, integer(sizeof(Key_record_type)))
    out_record		(TTY)

%endif
EndModule