jsq.asm

8051单片机最小系统电子日历举例。（最小系统中硬件可能不同

   org 0000h
     ljmp main
     org 0100h
main:mov sp,#60h
     mov 20h,#00h       ;十位
     mov 21h,#00h       ;个位
key: jnb p3.2,key1
     jnb p3.3,key2
     jnb p3.4,key3
     jnb p3.5,key4
     lcall disp
     sjmp key
key1:lcall delay1
     jnb p3.2,goon
     sjmp key
goon:lcall delay1
     jnb p3.2,goon1
     sjmp key
goon1:inc 20h
     mov a,20h
     cjne a,#4,key11
     mov 20h,#00h
key11: lcall disp
       sjmp key
key2:lcall delay1
     jnb p3.3,goon2
     sjmp key
goon2:lcall delay1
     jnb p3.3,goon3
     sjmp key
goon3: inc 21h
     mov a,21h
     cjne a,#7,key22
     mov 21h,#0
key22: lcall disp
     sjmp key
key3:lcall delay1
     jnb p3.4,goon4
     sjmp key
goon4:lcall delay1
     jnb p3.4,goon5
     sjmp key
goon5:
     mov a,21h
     cjne a,#0,key31
     lcall disp
     sjmp key
key31: dec 21h
     sjmp key
 key4:mov a,21h
     cjne a,#0,key41
     mov p1,#01111111b
     ajmp key
key41:cjne a,#1,key42
     mov p1,#10111111b
     ajmp key
key42:cjne a,#2,key43
     mov p1,#11011111b
     ajmp key
key43:cjne a,#3,key44
     mov p1,#11101111b
     ajmp key
key44:cjne a,#4,key45
     mov p1,#11110111b
     ajmp key
key45:cjne a,#5,key46
     mov p1,#11111011b
     ajmp key
key46:cjne a,#6,key47
     mov p1,#11111101b
key47:    ajmp key
disp:mov a,20h
     mov dptr,#tab
     movc a,@a+dptr
     clr  p2.1
     mov p0,a
     lcall delay
   ;  setb p2.1
   ;  mov a,21h
    ; mov dptr,#tab
    ; movc a,@a+dptr
    ; clr  p2.0
    ; mov p0,a
   ;  lcall delay
    ; setb p2.0
     ret
 tab:db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h
delay:mov r1,#255
loop:nop
     nop
     nop
     djnz r1,loop
     ret
delay1:mov r2,#10
loop1:lcall delay
     djnz r2,loop1
     ret
     end