%const %integer AST Fm Size = 64
%record %format AST Fm ( %byte %array Fill ( 0: AST Fm Size-1 ) )

%external %record(AST Fm) %map %spec New AST 1 %alias "LL___NEW_AST" ( -
          %routine X ( %integer Parm ) )

%external %record(AST Fm) %map %spec New AST 3 %alias "LL___NEW_AST" ( -
          %routine X ( %integer Parm, R0, R1 ) )

%external %record(AST Fm) %map %spec New AST 5 %alias "LL___NEW_AST" ( -
          %routine X ( %integer Parm, R0, R1, PC, PSL ) )

%system %integer %function %spec SETAST ( %integer Enbflg )

%system %integer %function %spec DCLAST ( %record(*) %name AstAdr,
                                          %integer AstPrm, Acmode )

%system %integer %function %spec SETPRA ( %record(*) %name AstAdr,
                                          %integer Acmode )