MEM DW?
MEMA DW?
MEMB DW?
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:MOV AX,DATA
MOV DS,AX
MOV AX,MEM
SHR AX,1
JC PO_1
MOV MEMB,AX
JMP DONE
PO_1: RCL AX,1
DONE: MOV AX,4C00H
INT 21H
CODE ENDS
END START