ARITHMETIC RIGHT SHIFT OPERATION

 Program

                    MOV  AH,00

            MOV  SI,3050

            MOV  AL,[SI]

            SAR   AL,01

            JNB   DOWN    (If CF = 0)

            INC    AH

  DOWN :  MOV [4000],AX

            INT    03H