led.asm

液晶屏的单片机demo程序

clkpin bit   P1.0
dipin  bit   P1.1
ledbuf equ   10h
ledbufend  equ  ledbuf+10
   org   0000h
   jmp   start
start:
   mov sp,#60h
main:
   call usercont
   call transram
   jmp $
usercont:
   mov r1,#ledbuf
   mov @r1,#088h  ; 0
   inc r1
   mov @r1,#0bbh  ; 1
   inc r1
   mov @r1,#0c1h  ; 2
   inc r1
   mov @r1,#091h  ; 3
   inc r1
   mov @r1,#0b2h  ; 4
   inc r1
   mov @r1,#094h  ; 5
   inc r1
   mov @r1,#084h  ; 6
   inc r1
   mov @r1,#0b9h  ; 7
   inc r1
   mov @r1,#080h  ; 8
   inc r1
   mov @r1,#090h  ; 8
   inc r1
   mov @r1,#002h  ; :
   ret
transram:
   mov r1,#ledbuf
tsr_pa:
loopp:
   mov a,#002h
   call transbyte
   mov a,#0bbh
   call transbyte
   mov a,#03bh
   call transbyte
   mov a,#0c1h
   call transbyte
   mov a,#091h
   call transbyte
   nop
   nop
   call delay
   jmp loopp
   ret
transbyte:
   mov r0,#8
tsb_pa:
   rrc a
   call transbit
   djnz r0,tsb_pa
   rrc a
   ret
transbit:
   mov dipin,c
   setb clkpin
   clr clkpin
   setb clkpin
   ret
delay:
   mov r1,#04h
d2:
   mov r2,#0ffh
d1:
   nop
   nop
   djnz r2,d1
   djnz r1,d2
   ret