home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_07_02 / v7n2104a.txt < prev    next >
Text File  |  1988-12-19  |  792b  |  39 lines
  1.  
  2. /* Old Line #401: */
  3.  
  4.     case CPL: if (!grab_a()) { *o += 0x31; break; }
  5.  
  6. /* Should be replaced by */
  7.  
  8.     case CPL: if (!grab_a()) { *o = (*o == 0xb3 ? 0xf4 : 0xe4); break;}
  9.  
  10.  
  11. /* Old line #354 and following : */
  12.  
  13.     case DJNZ: if (!grab_reg()) {
  14.             if ((u = token.valu) >= R0 && u <= R7 &&
  15.                 !grab_comma()) {
  16.                 *o += u; goto sjmp;
  17.             }
  18.            }
  19.            else {
  20.             unlex(); *++o = dir_expr();
  21.             if ((token.attr & TYPE) == SEP) goto sjmp;
  22.            }
  23.            s_error(); return;
  24.     
  25. /* should be replaced with */
  26.  
  27.     case DJNZ: if (!grab_reg()) {
  28.             if ((u = token.valu) >= R0 && u <= R7 &&
  29.                 !grab_comma()) {
  30.                 *o += u; goto sjmp;
  31.             }
  32.            }
  33.            else {
  34.             unlex(); ++*o; *++o = dir_expr();
  35.             if ((token.attr & TYPE) == SEP) goto sjmp;
  36.            }
  37.            s_error(); return;
  38.  
  39.