wx1 goto(MBR1 OR 0x100)         //saltiamo alle versioni estese di BIPUSH o IINC a seconda che MBR1 contenga il codice operativo di BIPUSH o IINC



bx1 H=MBR2U<<8
bx2 H=H<<8                       //inseriamo nei byte piu' a sinistra di H i primi due byte di const
bx3 MDR=TOS=H OR MBR2U           //in MDR ricostruiamo l'argomento const che andra' in cima allo Stack. Aggiorniamo quindi anche TOS.
bx3 MAR=SP=SP+1; wr; goto(MBR1)  //poniamo const sullo Stack e andiamo



iix1 MAR=LV+MBR1U; rd            //Iniziamo lettura variabile identificata da varnum.
iix2 H=MBR2U<<8
iix3 H=H<<8                      //inseriamo nei byte piu' a sinistra di H i primi due byte di const
iix4 H=H OR MBR2U                //in H ricostruiamo l'argomento const che andra' sommato al valore della variabile
iix5 MDR=MDR+H; wr; goto(MBR1)   //sommiamo const al valore della variabile e scriviamo il risultato nella variabile