;đề bài: viết chương trình con đổi n số bcd trong bộ nhớ ngoài từ địa chỉ 4000h sang 2n byte dạng ascii cất từ địa chỉ 6000h
ORG 0000H
MOV R2,#00 ;XOA R2
LOOP:
MOV DPH,#40H
MOV DPL,R2
MOVX A,@DPTR
MOV R5,A
ANL A,0FH
MOV R4,A
MOV A,R5
SWAP A
ANL A,0FH
MOV R3,A
MOV A,#30H
ADD A,R3
MOV R3,A
MOV A,#30H
ADD A,R4
MOV R4,A
MOV A,R2
MOV B,#2
MUL AB
MOV DPL,A
MOV DPH,#60H
MOVX @DPTR,R3 ;e dùng keil thì nó báo lỗi ở đây ạ
INC A
MOV DPL,A
MOVX @DPTR,R4 ; và ở đây nữa
INC R2
DJNZ R1,LOOP
END
ORG 0000H
MOV R2,#00 ;XOA R2
LOOP:
MOV DPH,#40H
MOV DPL,R2
MOVX A,@DPTR
MOV R5,A
ANL A,0FH
MOV R4,A
MOV A,R5
SWAP A
ANL A,0FH
MOV R3,A
MOV A,#30H
ADD A,R3
MOV R3,A
MOV A,#30H
ADD A,R4
MOV R4,A
MOV A,R2
MOV B,#2
MUL AB
MOV DPL,A
MOV DPH,#60H
MOVX @DPTR,R3 ;e dùng keil thì nó báo lỗi ở đây ạ
INC A
MOV DPL,A
MOVX @DPTR,R4 ; và ở đây nữa
INC R2
DJNZ R1,LOOP
END
Comment