xianshi.rar_源码

org 0000h ljmp start org 0100h start: mov dptr,#0bfffh mov a,#89h movx @dptr,a mov 60h,#12 acall bcd dir: mov r0,#60h mov r3,#01h mov a,r3 ld0: mov dptr,#0bfffch movx @dptr,a mov a,@r0 mov dptr,#tab movc a,@a+dptr mov dptr,#0bffdh movx @dptr,a acall dly inc r0 mov a,r3 jb acc.2,ld1 rl a mov r3,a ajmp ld0 ld1: ret tab: db 0C0H,0F9H,0A4H,0B0H db 99H,92H,82H,0F8H,80H,90H bcd: MOV A,@r0 MOV B,#10 DIV AB MOV 60H,A MOV 61H,B ret dly: mov r7,#02h dl: mov r6,#0ffh dl6: djnz r6,$ djnz r7,dl ret end