Module decl_csect = Begin Require 'bliss.req'; ! KEYWORD TABLE FOR PSECT PROCESSING Bind KWTBL = Plit(AZ( 'CODE', 'DEBUG', 'GLOBAL', 'OWN', 'PLIT')) : Vector; Global Routine decl_psect : Novalue = Begin Local X : Integer, pos_open : Integer; pos_open = .pos_del; Do Begin RUND(QL_NAME); X = MatchMinorWord(kwtbl); If .DEL Neq TK_EQUAL Or .X Lss 0 Then Begin FreeSym(); WARNEM(.pos_open,B11$_CSECT_SYNTAX); Return End; RUND(QL_NAME); If .SYM[gt_type] Neq T_NAME Then Begin FreeSym(); WARNEM(.pos_open,B11$_CSECT_SYNTAX); Return End; psc_name[.X] = .sym End Until .DEL Neq TK_COMMA End; End Eludom