org 100h
mov al,0x13
int 0x10
lds bx,[bx]
L: imul bx,byte 53
lea si,[bx-321]
lodsb
mul byte [si-1]
or al,[si]
dec ax
mov [bx],al
dec bx			
in al,0x60
dec al
jnz L
ret