; Packed Decimal Addition $($AddPacked$.$asm$)$; This program adds two packed decimal integers of arbitrary size.INCLUDE Irvine$32.$inc.datapacked$\_1$a WORD $4536$hpacked$\_1$b WORD $7297$hsum$\_1$ DWORD $0$packed$\_2$a DWORD $67345620$hpacked$\_2$b DWORD $54496342$hsum$\_2$ DWORD $2$ DUP$(0)$packed$\_3$a QWORD $6734562000346521$hpacked$\_3$b QWORD $5449634205738261$hsum$\_3$ DWORD $3$ DUP$(0).$codeAddPacked PROC; Input:; ESI: pointer to the first number; EDI: pointer to the second number; EDX: pointer to the sum; ECX: number of bytes to add; Output:; EDX: pointer to the sum; ECX: carry flag; Initialize carry flag.mov ebx, $0$; Add each byte of the two numbers.loop:mov al$,$ BYTE PTR $[$ESI$]$add al$,$ BYTE PTR $[$EDI$]$adc al$,$ ebxdaamov BYTE PTR $[$EDX$],$ almov ebx, alinc ESIinc EDIinc EDXdec ECXjnz loop; Handle final carry.adc al$,0$daamov BYTE PTR $[$EDX$],$ alretAddPacked ENDPmain PROC; Initialize pointers and number of bytes to add.mov esi, packed$\_1$amov edi, packed$\_1$bmov edx, sum$\_1$mov ecx, $2$; Call AddPacked.call AddPacked; Display the sum in hexadecimal.mov eax, sum$\_1$call WriteHexcall Crlf; Repeat for $8-$byte and $16-$byte numbers.mov esi, packed$\_2$amov edi, packed$\_2$bmov edx, sum$\_2$mov ecx, $4$call AddPackedmov eax, sum$\_2$call WriteHexcall Crlfmov esi, packed$\_3$amov edi, packed$\_3$bmov edx, sum$\_3$mov ecx, $8$call AddPackedmov eax, sum$\_3$call WriteHexcall Crlf; Exit the program.exitmain ENDPEND main