ledkey2.asm

单片机98c51的一些程序代码

;8个led循环5次右移；然后5次左移。
	org 0000h
	ajmp HELLO1
	org 0003h
	reti
	org 000bh
	reti
	org 0013h
	reti
	org 001bh
	reti
	org 0023h
	reti
	
	
  MAIN:MOV R2,#10H
 HELLO1:
       MOV P1,#0FFH
       MOV R3,#00H
       MOV DPTR,#LEDS
       MOV R5,#01H
       MOV R6,#00H
       MOV A,#00H
 LOOPG:MOV A,R3
       MOVC A,@A+DPTR
       MOV R6,A
       MOV A,R5
       RL A
       MOV R5,A
       MOV P1,#0FFH
      
       MOV A,R6
       ACALL SOUT
       MOV A,R5
       CPL A
       ANL A,#0FFH
       ANL P1,A
       ACALL DELAY
       ;ACALL DELAY
       
       
       INC R3
       CJNE R3,#05H,LOOPG
       MOV P1,#0FFH
       MOV R0,#20H
 
       SJMP HELLO1
       
       
  SOUT:MOV SBUF,A
       JNB TI,$
       CLR TI
       RET  
       
 DELAY:SETB TR0
       MOV TL0,#00H
       MOV TH0,#00H
       JNB TF0,$
       CLR TF0
       RET
       
LEDS:
      DB 01101110B,10011110B,00011100B,00011100B,11111100B
;***********************************************************
;	led=>  /   abcdefgh
led_asc:
                db 11111100B;0
                db 01100000B;1
                db 11011010B;2
                db 11110010B;3
                db 01100110B;4
                db 10110110B;5
                db 10111110B;6
                db 11100000B;7
                db 11111110B;8
                db 11110110B;9
                DB   11101110B;a=>A
                DB   00111110B;B=>B
                DB   10011100B;C=>C
                DB   01111010B;D=>D
                DB   10011110B;E=>E
                DB   10001110B;F=>F
                DB   01101110B;H=>10H
                DB   00011100B;L=>11H
                DB   11101100B;N=>12H
                db   00101010b;n=>13h
                db   11111100b;O=>14h
                dB   00111010B;o=>15H
                DB   11001110B;P=>16H
                DB   11100110B;Q=>17H
                DB   00001010B;r=>18H
                DB   10110110B;S=>19H
                DB   01111100B;U=>1AH
                DB   00111000B;u=>1BH
                DB   00000000B;BLACK=>1CH
                DB   11111111B;8.=>1DH
		db   00000010b;-=>1Eh
		db   00011110b;t=>1Fh
                db 11111101B;0.=>20h
                db 01100001B;1.
                db 11011011B;2.
                db 11110011B;3.
                db 01100111B;4.
                db 10110111B;5.
                db 10111111B;6.
                db 11100001B;7.
                db 11111111B;8.
                db 11110111B;9.=>29h
		db 01110110b;y=>2ah ;2001.5.9
		db 'li jie by 2001.6.1'
;********************
       END