SHL           BX,1      ;prépare une table pré-calculée sur 
                                            ;16bits 
                    OR            AX,ShiftTable[BX] ;précalcule le bit et 
                                                    ;effectue une opération OR 
                    :             
ShiftTable          LABEL         WORD 
BIT_PATTERN=0001H   
                    REPT          16 
                    DW            BIT_PATTERN 
BIT_PATTERN=BIT_PATTERN SHL       1         
                    ENDM