bcd.asm

里面有五个汇编程序

;其中52，14，56，85，34，63，38，70，18，69的
;BCD压缩码为：82, 20, 86,133, 52，99, 56,112,24, 105
DATA	SEGMENT PARA
   BLOCK	DB		82, 20, 86,133, 52
		DB		99, 56,112,24, 105
   COUNT	EQU	$-OFFSET BLOCK
   MAX	DB		2 DUP(?)
   DATA	ENDS
   CSEG	SEGMENT	PARA 'CODE'
   START	PROC	FAR
		ASSUME	CS:CSEG, DS:DATA
		MOV		AX, DATA
		MOV		DS, AX
		MOV		SI, OFFSET BLOCK
		MOV		BX, OFFSET MAX
		MOV		DL, [SI]
		MOV	CL  ,	4
		MOV	DH  ,	DL
		SHR	DH  ,	CL
		AND	DL  ,	0FH
		MOV	CX  ,	COUNT-1
		INC	SI
  COMP:	LODSB
		MOV	CH  ,	CL
		MOV	CL  ,	4
		MOV	AH  ,	AL
		SHR	AH  ,	CL
		AND	AL  ,	0FH
		MOV	CL  ,	CH
		AND	CH  ,	0
		CMP		AX, DX
		JL		NEXT
		MOV		DX, AX
  NEXT:
		LOOP	COMP

		ADD	DH  ,	30H
		MOV	[BX],	DH
		ADD	DL  ,	30H
		MOV	[BX+1], DL

  PRINT:	MOV	BX, OFFSET MAX
		MOV	DL, [BX]
		MOV	AH, 2
		INT	21H
		MOV	DL, [BX+1]
		INT	21H
		MOV	AH, 4CH
		INT	21H
  START	ENDP
  CSEG	ENDS
			END	START