e7_7.asm

ZHUYAO ZSHI LAI JIECHUADE LAIDE

STACK SEGMENT  STACK 'STACK'
      DW 64 DUP(0)
STACK ENDS
DATA  SEGMENT
      BCD   DB 65H
      BIN   DB ?
DATA  ENDS
CODE  SEGMENT
      ASSUME CS:CODE,DS:DATA,SS:STACK
STAR: MOV   AX,DATA
      MOV   DS,AX
      MOV   AL,BCD
      CALL  TRAN
      MOV   BIN,AL
      MOV   AH,4CH
      INT   21H
TRAN  PROC  NEAR
      PUSHF
      PUSH  BX
      PUSH  CX
      MOV   AH,AL
      AND   AH,0FH
      MOV   BL,AH
      MOV   AL,0F0H
      MOV   CL,04H
      ROR   AL,CL
      MOV   AH,0AH
      MUL   BH
      ADD   AL,BL
      POP   CX
      POP   BX
      POPF
      RET
TRAN  ENDP
CODE	ENDS
	END	 STAR