MOV     CX,5                    ;CX is loop counter
        MOV     BX,OFFSET ASC           ;BX points to ASCII data
        MOV     DI,OFFSET UNPACK        ;DI points to unpacked BCD data
 AGAIN: MOV     AX,WORD PTR [BX]        ;move next 2 ASCII numbers to AX
        AND     AX,0F0FH                ;remove ASCII 3s
        MOV     WORD PTR [DI],AX        ;store unpacked BCD
        ADD     DI,2                    ;point to next unpacked BCD data
        ADD     BX,2                    ;point to next ASCII data
        LOOP    AGAIN