Pascal
HexExpand PROC NEAR
MOV BX,SP
Mov CX,SS:[nx z]
Mov SI,SS:[BX 8]
MOV DI,SS[BX 4 ]
XOR XX,AX
EXPAND:
MOV BX,AX
MOV DL,DS[SI BX]
MOV DH,DL
AND DH,1 5 msb
ADD DH,6 5 65
SHR DL,l 1sb
SHR DL,l ’’
SHR DL,1 ’’
SHR DL,l ’’
AND PL,1 5 lsb
ADD DL,6 5 65
SHL BX,l
MOV DS:[DI BX],DX
INC AX
L00P EXPAND
RET 1 0
HexExpand ENDP
65 C
C Pascal
Pascal 1.59 0.55 65% 3:1
C 0.83 0.38 54 2:l29.7