%external %integer %function %spec Addr 0 %alias "3L___get_proc_desc" ( %routine X )

%external %integer %function %spec Addr 1 %alias "3L___get_proc_desc" ( %routine X ( %integer A ) )

%external %integer %function %spec Addr 2 %alias "3L___get_proc_desc" ( %routine X ( %integer A, B ) )

%external %integer %function %spec Addr 3 %alias "3L___get_proc_desc" ( %routine X ( %integer A, B, C ) )

%external %integer %function %spec Addr 4 %alias "3L___get_proc_desc" ( %routine X ( %integer A, B, C, D ) )

%external %routine %spec Call 0 %alias "3L___call_proc_0" ( %integer Desc )

%external %routine %spec Call 1 %alias "3L___call_proc_1" ( %integer Desc, Arg )

%external %routine %spec Call 2 %alias "3L___call_proc_2" ( %integer Desc, Arg1, Arg2 )

%external %routine %spec Dummy 0 %alias "3L___dummy_0"

%external %routine %spec Dummy 1 %alias "3L___dummy_1" ( %integer A )

%external %routine %spec Dummy 2 %alias "3L___dummy_2" ( %integer A, B )
%endoffile