10. mov ax, seg x   а не нужно сохранить ds сначала? мы ж его портим...
mov ds, ax
mov ax, x
mov bl, 19
div bl
mov x, ax

7. OddDouble MACRO x
local L
mov Ax, x
and Ax, 1
JZ L
IF TYPE X EQ DWORD
shl word ptr x,1   о, ты через сдвиги сделала, здорово. только я опять не все команды помню(((
rcl word ptr x+2, 1
endif
IF type x eq word
shl x,1
endif
L:
Endm