ORG 0000H
AJMP main0
ORG 0030H
main0: MOV 20H,#00H	;設置串口工作方式
MOV TMOD,#22H
MOV SCON,#40H
MOV TH1,#0F3H		;設置速率4800,(12M晶體）
MOV PCON,#80H
SETB TR1
SETB REN		;允許接收
clr p2.6		;開數碼管的最后一位
ajmp start

start:
l1:jnb p3.3,l3		;檢測鍵盤，如果P3.3按下則執行L3
jnb p3.4,l4
jnb p3.5,l5
JNB P3.2,L6
jbc ri,rec
mov p0,#0ffh
;jmp l1
rec: mov a,sbuf		;緩沖數據送到a
mov p1,a
 CJNE A,#00110001b,T00
	MOV P0,#07eH          ;數碼管顯示2
; call delay
 mov p0,#0ffh
t00: CJNE A,#00110010b,T2
	MOV P0,#0A2H          ;數碼管顯示2
 ; call delay
 mov p0,#0ffh
T2: 	CJNE A,#00110011b,T3
	MOV P0,#62H
 ; call delay
; mov p0,#0ffh
T3: 	CJNE A,#00110100b,T4
MOV 	P0,#74H
 ;call delay
 ;mov p0,#0ffh
T4: 	CJNE A,#00110101b,T5
	MOV P0,#61H
 ; call delay
; mov p0,#0ffh
T5: 	CJNE A,#00110110b,T6

	MOV P0,#21H
 ; call delay
 ;mov p0,#0ffh
T6:	CJNE A,#00110111b,T7
	MOV P0,#7AH
 ; call delay
 ;mov p0,#0ffh
T7:	 CJNE A,#00111000b,T8
	MOV P0,#20H
 ; call delay
 ;mov p0,#0ffh
T8:	CJNE A,#00111001b,t9
	MOV P0,#60H
 ; call delay
 ;mov p0,#0ffh
T9: CJNE A,#00110000b,t10
MOV P0,#28H
; call delay

t10:ljmp L1

l3: 	mov dptr,#ok1	;置表頭1
	ajmp	senda3

senda3: clr a ;
	movc a,@a+dptr
	cjne a,#'$',senda_3
	ajmp start	;遇到$則從頭開始執行。

senda_3:mov sbuf,a	;發送數據
	JNB TI,$;
	CLR TI ;
	inc dptr
	Ljmp senda3

l4: 	mov dptr,#ok2	;置表頭2
	ajmp	senda3

l5: 	mov dptr,#ok3	;置表頭3
	ajmp	senda3

l6: 	mov dptr,#ok4	;置表頭4
	ajmp	senda3

ok1: db 0dh,0ah,0dh,0ah,"如果我還有一天壽命，那天我要做你女友。我還有一天的命嗎？..沒有。所以，很可惜。我今生仍然不是你的女友。如果我有翅膀，我要從天堂飛下來看你。我有翅膀嗎？..沒有。所以，很遺憾。我從此無法再看到你。",0dh,0ah,'$'
ok2: db 0dh,0ah,0dh,0ah,"倚天版開發套件是51測試網在志強版開發套件的基礎上開發的增強型編程試驗一體化開發套件，適合于零基礎，或者初中級單片機愛好者 使用。并適合于單片機程序員的前期試",0dh,0ah,'$'
ok3: db 0dh,0ah,0dh,0ah,"89c51text-xp是51測試網為初學者量身定做的一套編程試驗一體化51開發套件。采用單片機精確時序編程，質量非常穩定，決不會因為編程器的原因燒毀芯片。由一個51編程器和一個51標準",0dh,0ah,'$'
ok4: db 0dh,0ah,0dh,0ah," 2002年11月15日本站申請國際域名成功名稱  http://www.51c51.com 我要c51!!!2002年9月推出標準版開發套件2002年10月推出xp版",0dh,0ah,'$'
end