externals were not handled right

This commit is contained in:
ceriel 1987-07-29 19:49:15 +00:00
parent bf63b12a93
commit 580bb15076
2 changed files with 6 additions and 3 deletions

View file

@ -211,7 +211,10 @@ int i_flag,flag,number ; cons_t val ; {
if ( val<0 ) val = -1-val ;
return val>=0 && val<number*256 ;
case OP16 :
if ( i_flag==PAR_G ) return val>=0 && val<=maxadr ;
if ( i_flag==PAR_G ) {
return val>=0 &&
val<=maxadr && val <= 65535L;
}
return val>= -32768 && val<=32767 ;
case OP32 :
return TRUE ;

View file

@ -483,8 +483,8 @@ inpseudo(instr_no) {
if ( !needed() ) {
eof_seen++ ;
}
if ( line_num!=1 ) {
werror("mes ms_ext must be first pseudo") ;
if ( line_num>2 ) {
werror("mes ms_ext must be first or second pseudo") ;
}
return ;
}