3BLISS-32E V1.7-02720-Sep-1998 13:58:20$  @ X x       8 P       @ `       @ X x   !! """" #$$0P&&p''''''''')*******,0/////////////h1111111111111111222 TPA$M_LASTFLAG TPA$M_TRANFLAG TPA$_LAMBDA TPA$_NODE_PRIMARY TPA$_HEX_64 TPA$K_FINAL TPA$_DECIMAL_64#TPA$ONE_STRING1#TPA$KEY_STRING $INIT_STATE TPA$_SYMBOL TPA$_STRINGTPA$ENABLE_ALIGNMENT_CHECKING TPA$_UIC TPA$_HEX TPA$_EOS TPA$_ANY TPA$M_EXTRAFLAG TPA$_DECIMAL(" TPA$MAKE_SUB TPA$K_UNAMES TPA$K_MAXKEY TPA$_FAIL $STATE_ITEMS TPA$_KEYWORD TPA$_NODE TPA$_SUBEXPRTPA$DISABLE_ALIGNMENT_CHECKING TPA$_EXIT TPA$_OCTAL_64$STATE TPA$M_ACTFLAG TPA$_FILESPEC TPA$K_KEYFLAGg TPA$MAKE_TRAN" TPA$IFKEYWORD TPA$M_EXTFLAG # TPA$IFSUBEXPR TPA$_NODE_ACS TPA$K_KEYNUMB TPA$_ALPHA TPA$_BLANK TPA$K_TYPEVAL TPA$_DIGIT TPA$_OCTAL TPA$K_SUBEXPR TPA$_IDENT@ TPA$M_ADDRFLAG TPA$M_CODEFLAG TPA$M_MASKFLAG TPA$M_PARMFLAG%IF %DECLARED( TPA$SWITCHES)%THEN%IF TPA$SWITCHES%THENH;%FIA TPA$SWITCHES;%ELSEG TPA$SWITCHES= %SWITCHES(CHECK_ALIGNMENT);%IF TPA$SWITCHES%THENH;%FI%FI%IF %DECLARED( TPA$SWITCHES)%THEN%IF TPA$SWITCHES%THENHCHECK_ALIGNMENT;%FIA TPA$SWITCHES;%ELSEG TPA$SWITCHES= %SWITCHES(CHECK_ALIGNMENT);%IF TPA$SWITCHES%THENHCHECK_ALIGNMENT;%FI%FITPA$DISABLE_ALIGNMENT_CHECKING;%ASSIGN( TPA$K_KEYNUMB,-)%IF %DECLARED(%QUOTETPA$PSECT_STATE)%THENA%QUOTETPA$PSECT_STATE;%FI%IF %DECLARED(%QUOTETPA$PSECT_KEY0)%THENA%QUOTETPA$PSECT_KEY0;%FI%IF %DECLARED(%QUOTETPA$PSECT_KEY1)%THENA%QUOTETPA$PSECT_KEY1;%FI9TPA$PSECT_STATE( OWN_GLOBAL)=T OWN_GLOBAL=%IF%NULL( )%THEN _LIB$STATE$%ELSE%NAME( ,_STATE)%FI(NOWRITE,SHARE,PIC, NOEXECUTE,\())%;9TPA$PSECT_KEY0( OWN_GLOBAL)=T OWN_GLOBAL=%IF%NULL( )%THEN _LIB$KEY0$%ELSE%NAME( ,_KEY0)%FI(NOWRITE,SHARE,PIC, NOEXECUTE,\())%;9TPA$PSECT_KEY1( OWN_GLOBAL)=T OWN_GLOBAL=%IF%NULL( )%THEN _LIB$KEY1$%ELSE%NAME( ,_KEY1)%FI(NOWRITE,SHARE,PIC, NOEXECUTE,\())%;TPA$PSECT_KEY0(2);TPA$PSECT_KEY0(1);2 :VECTOR[];%ASSIGN( TPA$K_UNAMES, %SWITCHES(UNAMES))HUNAMES;%IF %DECLARED(TPA$KEY0)%THENATPA$KEY0;%FI1TPA$KEY0:VECTOR[];%IF TPA$K_UNAMES%THENHNOUNAMES;%FITPA$PSECT_STATE(2);2 :VECTOR[];T2=$GLOBAL$;T1=$OWN$;TPA$ENABLE_ALIGNMENT_CHECKING;?TPA$DISABLE_ALIGNMENT_CHECKING;TPA$PSECT_STATE(1);%IF%NULL( )%THEN1 :\()VECTOR[];%FI%ASSIGN( TPA$K_KEYFLAG,) $STATE_ITEMS( %REMAINING)%IF TPA$K_KEYFLAG%THENTPA$PSECT_KEY1(1);%ASSIGN( TPA$K_UNAMES, %SWITCHES(UNAMES))HUNAMES;1 TPA$KEYFILL:VECTOR[,`]\()_(`());%IF TPA$K_UNAMES%THENHNOUNAMES;%FIA TPA$KEYFILL;%FIT1=$OWN$;TPA$ENABLE_ALIGNMENT_CHECKING;%ASSIGN( TPA$K_UNAMES, %SWITCHES(UNAMES))HUNAMES;%ASSIGN( TPA$K_FINAL,%NULL( %REMAINING)) TPA$MAKE_TRAN( TPA$K_FINAL,%REMOVE( ))%IF TPA$K_UNAMES%THENHNOUNAMES;%FI'%ASSIGN( TPA$K_SUBEXPR,)%IF TPA$IFSUBEXPR( )%THEN%ASSIGN( TPA$K_TYPEVAL, TPA$_SUBEXPR)%ASSIGN( TPA$K_SUBEXPR,)%ELSE%IF TPA$IFKEYWORD( )%THEN%ASSIGN( TPA$K_KEYNUMB, TPA$K_KEYNUMB+)%IF TPA$K_KEYNUMBa TPA$K_MAXKEY%THEN%ERROR( #Maximum number of keywords exceeded)%FI%IF %CHARCOUNT( )b%THEN%ERROR( $Keyword longer than 65535 characters)%FITPA$PSECT_KEY1(1);1 TPA$KEYST0:VECTOR[]\();TPA$PSECT_KEY0(1);1TPA$KEY:n_( TPA$KEYST0-TPA$KEY0);TPA$PSECT_KEY1(1);1 TPA$KEYST:VECTOR[ %CHARCOUNT(TPA$KEY_STRING( ))+,`]\()_(`(TPA$KEY_STRING( ),));ATPA$KEY, TPA$KEYST, TPA$KEYST0;TPA$PSECT_STATE(1);%ASSIGN( TPA$K_TYPEVAL, TPA$_KEYWORD+ TPA$K_KEYNUMB)%ASSIGN( TPA$K_KEYFLAG,)%ELSE%ASSIGN( TPA$K_TYPEVAL, )%FI%FI1TPA$TYPE:n\()_( TPA$K_TYPEVAL+ TPA$K_SUBEXPR* TPA$M_EXTFLAG%IF%NULL( )%THEN+TPA$M_EXTRAFLAG%FI%IF%NULL( )%THEN+ TPA$M_ACTFLAG%FI%IF%NULL( )%THEN+TPA$M_MASKFLAG%IF%NULL( )%THEN%ERROR(Mask address missing)%FI%FI%IF%NULL( )%THEN+TPA$M_ADDRFLAG%FI%IF%NULL( )%THEN+TPA$M_TRANFLAG%FI+ *TPA$M_LASTFLAG);ATPA$TYPE;%IF%NULL( )%THEN1 TPA$FLAGS2:`\()_(TPA$M_PARMFLAG/);A TPA$FLAGS2;%FI%IF TPA$K_SUBEXPR%THEN TPA$MAKE_SUB(%REMOVE( ))%FI%IF%NULL( )%THEN1 TPA$PARAM:s\()_( );A TPA$PARAM;%FI%IF%NULL( )%THEN1 TPA$ACTION:s\()_( - TPA$ACTION-);A TPA$ACTION;%FI%IF%NULL( )%THEN1TPA$ADDR:s\()_( -TPA$ADDR-);ATPA$ADDR;%FI%IF%NULL( )%THEN1TPA$MASK:s\()_( );ATPA$MASK;%FI%IF%NULL( )%THEN%IF %DECLARED( )%THEN? :VECTOR[];%FI1 TPA$TARGET:n\()_(%IF %IDENTICAL( , TPA$_EXIT) %IDENTICAL( , TPA$_FAIL)%THEN %ELSE - TPA$TARGET-%FI);A TPA$TARGET;%FI%IF %DECLARED( )%THEN? :VECTOR[];%FI1 TPA$SUBEXP:n\()_( - TPA$SUBEXP-);A TPA$SUBEXP;  %IDENTICAL( ,%STRING( )) %CHARCOUNT(%STRING( ))b %IDENTICAL( ,%REMOVE( )) %IF %CHARCOUNT( )"%THENTPA$ONE_STRING(%EXPLODE( ))%ELSE %FI %IF "*%THEN %ELSE%STRING( , )%FI