-
- case 20 : /* LVIRTDISPL */
- t2 = M[ display+a2 ];
- t1 = M[ t2+PROTNUM ];
- M[ a1 ] = M[ prototype[ t1 ]->virtlist+a3 ];
- break;
-
- case 21 : /* LSTATTYPE */
- M[ a1 ] = a2;
- M[ a1+1 ] = a3;
- break;
-
- case 23 : /* LIPAROUT */
- M[ a1 ] = param[ a3 ].xword;
- break;
-
- case 24 : /* LRPAROUT */
- MR(a1) = param[ a3 ].xreal;
- break;
-
- case 25 : /* LVPAROUT */
- storevirt(param[ a3 ].xvirt, a1);
- break;
-
- case 31 : /* LSIGN */
- if (M[ a2 ] == 0) M[ a1 ] = 0;
+ /* LVIRTDISPL */
+ case 20:
+ t2 = M[display + a2];
+ t1 = M[t2 + PROTNUM];
+ M[a1] = M[prototype[t1]->virtlist + a3];
+ break;
+ /* LSTATTYPE */
+ case 21:
+ M[a1] = a2;
+ M[a1 + 1] = a3;
+ break;
+ /* LIPAROUT */
+ case 23:
+ M[a1] = param[a3].xword;
+ break;
+ /* LRPAROUT */
+ case 24:
+ MR(a1) = param[a3].xreal;
+ break;
+ /* LVPAROUT */
+ case 25:
+ storevirt(param[a3].xvirt, a1);
+ break;
+ /* LSIGN */
+ case 31:
+ if (M[a2] == 0)
+ M[a1] = 0;
+ else if (M[a2] < 0)
+ M[a1] = -1;