da segment
	data dw 300 dup(?)
	a dw ?
	b dw ?
	c dw ?
da ends
code segment
	 assume cs:code,ds:da
main proc far
start:mov dx,da
	mov ds,dx
j0:
	mov dx,2
	mov a,dx
j1:
	mov dx,1
	mov b,dx
j2:
	mov dx,3
	mov c,dx
j3:
	mov dx,a
	cmp dx,b
	ja jj31
	mov dx,0
	jmp jj32
jj31:
	mov dx,1
jj32:
	mov bx,3
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	mov data[bx],dx
j4:
	mov bx,3
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	cmp data[bx],1
	jz j5
	jmp j13
j5:
	mov dx,a
	cmp dx,c
	ja jj51
	mov dx,0
	jmp jj52
jj51:
	mov dx,1
jj52:
	mov bx,5
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	mov data[bx],dx
j6:
	mov bx,5
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	cmp data[bx],1
	jz j7
	jmp j10
j7:
	mov dx,a
	mov bx,7
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	mov data[bx],dx
j8:
	mov bx,7
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	mov bx,data[bx]
	mov ah,02h
	mov cx,4
	mov dl,bh
	shr dl,cl
	call putdl
	mov dl,bh
	shl dl,cl
	shr dl,cl
	call putdl
	mov dl,bl
	shr dl,cl
	call putdl
	mov dl,bl
	shl dl,cl
	shr dl,cl
	call putdl
j9:
	jmp j12
j10:
	mov dx,c
	mov bx,10
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	mov data[bx],dx
j11:
	mov bx,10
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	mov bx,data[bx]
	mov ah,02h
	mov cx,4
	mov dl,bh
	shr dl,cl
	call putdl
	mov dl,bh
	shl dl,cl
	shr dl,cl
	call putdl
	mov dl,bl
	shr dl,cl
	call putdl
	mov dl,bl
	shl dl,cl
	shr dl,cl
	call putdl
j12:
	jmp j20
j13:
	mov dx,b
	cmp dx,c
	ja jj131
	mov dx,0
	jmp jj132
jj131:
	mov dx,1
jj132:
	mov bx,13
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	mov data[bx],dx
j14:
	mov bx,13
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	cmp data[bx],1
	jz j15
	jmp j18
j15:
	mov dx,b
	mov bx,15
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	mov data[bx],dx
j16:
	mov bx,15
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	mov bx,data[bx]
	mov ah,02h
	mov cx,4
	mov dl,bh
	shr dl,cl
	call putdl
	mov dl,bh
	shl dl,cl
	shr dl,cl
	call putdl
	mov dl,bl
	shr dl,cl
	call putdl
	mov dl,bl
	shl dl,cl
	shr dl,cl
	call putdl
j17:
	jmp j20
j18:
	mov dx,c
	mov bx,18
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	mov data[bx],dx
j19:
	mov bx,18
	mov ax,4
	push(dx)
	mul bx
	pop(dx)
	mov bx,ax
	mov bx,data[bx]
	mov ah,02h
	mov cx,4
	mov dl,bh
	shr dl,cl
	call putdl
	mov dl,bh
	shl dl,cl
	shr dl,cl
	call putdl
	mov dl,bl
	shr dl,cl
	call putdl
	mov dl,bl
	shl dl,cl
	shr dl,cl
	call putdl
j20:	mov ah,4ch
	int 21h
main endp
putdl proc near
	mov ah,2
	cmp dl,9
	jbe put1
	sub dl,10d
	add dl,'a'
	int 21h
	ret
put1: 
	add dl,'0'
	int 21h
	ret
putdl endp
	code ends
end start