MOV CX,10 
  SUB BX,BX 
AGAIN: MOV AL,ASC[BX] 
  AND AL,0FH 
  MOV UNPACK[BX],AL 
  INC BX 
  LOOP AGAIN