change10_16.asm

用AT89c52单片机来编的将十进制转化成十六进制

chushu equ 48h
add_shu equ 49h
;dd  equ 48h
org 0
jmp change_into
org 0030h
change_into:mov sp,#6fh
mov add_shu,#0
 mov 60h,#1
  mov 61h,#2
   mov 62h,#3
    mov 63h,#4
     mov 64h,#5
      mov 65h,#6
change_str:mov r0,#60h
      mov r1,#50h
      mov a,@r0
      mov r7,#6
 change_shu:mov b,#16
      div ab
      mov @r1,a
      mov a,b
      mov chushu,a 
      mov b,#10
      mul ab
      inc r0
      inc r1
      add a,@r0
      djnz r7,change_shu
      mov r7,#6
      mov r1,#50h
      mov r0,#60h
change_shu1:mov a,@r1
      mov @r0,a
      inc r0
      inc r1
      djnz r7,change_shu1
            mov a,add_shu
             inc a 
           cjne a,#1,change_shu2
            mov 4ah,chushu
           jmp change_end
change_shu2:cjne a,#2,change_shu3
            mov 4bh,chushu
            jmp change_end
change_shu3:cjne a,#3,change_shu4
            mov 4ch,chushu
            jmp change_end
change_shu4:cjne a,#4,change_shu5
            mov 4dh,chushu
            jmp change_end
change_shu5:cjne a,#5,change_shu6
            mov 4eh,chushu
            jmp change_end
change_shu6:cjne a,#6,change_shu7
               mov 4fh,chushu
change_end:;lcall dog
             mov add_shu,a
           jmp change_str
change_shu7:;jmp $
mov r7,#3
mov r1,#4ah
   mov r0,#60h
change_over:mov a,@r1
    anl a,#0fh
    mov CHUSHU,a
   inc r1
   mov a,@r1
   swap a
   anl a,#0F0h
   ORL a,CHUSHU
   mov @r0,a
   inc r0
   inc r1
   djnz r7,change_over
   mov r7,#4  
    mov @r0,#0
    mov r0,#60h
CHANGE_OVER1: mov a,@R0
    inc r0
    DJNZ R7,CHANGE_OVER1
        RET