SED1335 320240程序.doc

org 0000h ajmp START ;DISPLAY 20000703 org 0008h;by50840START: mov sp, #60h mov 20h,#00h mov ie, #00h LCALL INITLOOP: LCALL CLEAR LCALL XRD LCALL LINE LCALL LINE1 LCALL CLEAR LCALL XRD1 LJMP LOOPINIT: mov p1, #0ffh mov p3, #0FFh CLR P3.4 ;/CS CLR P3.1 LCALL DELAY SETB P3.1 ;/reset LCALL KKKK LCALL LLLL LCALL CURSE ;curse form MOV A,#59H ;DISP ON ACALL PR0 MOV A,#42H ;SHINK OFF ACALL PR1 MOV A,#5BH ;SET OVERLAY MODE ACALL PR0 MOV A,#1FH ACALL PR1 MOV A,#5CH ;SET CGRAM FIRST ADD ACALL PR0 CLR A ACALL PR1 ACALL PR1 ACALL READCGROM RETREADCGROM: MOV A,#46H ;SET CURSE POSISION ACALL PR0 MOV A,#08H ACALL PR1 MOV A,#02H ACALL PR1 MOV A,#55H ;READ FROM CGROM ACALL PR0 MOV R2,#08H MOV R1,#30HI1: ACALL PR2 MOV R1,A INC R1 DJNZ R2,I1 RETKKKK: MOV A,#40H ;SYSTEM SET ACALL PR0 MOV A,#30H ;P1 ACALL PR1 MOV A,#87H ;P2 ACALL PR1 MOV A,#07H ;P3 ACALL PR1 MOV A,#28H ;P4 WIDE 4*40 ACALL PR1 MOV A,#30H ;P5 ACALL PR1 MOV A,#0F0H ;P6 HIGHT=128+64+32+16=240! ACALL PR1 MOV A,#28H ;P7 ACALL PR1 MOV A,#00H ;P8 ACALL PR1 RETLLLL: MOV A,#44H ;SCROLL ACALL PR0 MOV A,#00H ;P1 ACALL PR1 MOV A,#00H ;P2 ACALL PR1 MOV A,#00H ;P3 ACALL PR1 MOV A,#00H ;P4 ACALL PR1 MOV A,#00H ;P5 ACALL PR1 MOV A,#00H ;P6 ACALL PR1 MOV A,#00H ;P7 ACALL PR1 MOV A,#00H ;P8 ACALL PR1 MOV A,#00H ;P9 ACALL PR1 MOV A,#00H ;P10 ACALL PR1 RETCLEAR: MOV A,#46H ;SET CURSE POSISION ACALL PR0 MOV A,#00H ACALL PR1 MOV A,#00H ACALL PR1 MOV A,#52H ;CLEAR SCREEN ACALL PR0 LCALL DELAY RETCURSE: MOV A,#5DH ;SET CURSE SHAPE ACALL PR0 MOV A,#07H ACALL PR1 MOV A,#01H ACALL PR1 RETLINE: MOV R1,#01H LCALL DISP LCALL DELAY LCALL DELAY MOV R1,#33H LCALL DISP LCALL DELAY LCALL DELAY MOV R1,#05H LCALL DISP LCALL DELAY LCALL DELAY RET XRD: MOV A,#4CH ;SET CURSE RIGHT ACALL PR0 MOV A,#46H ;SET CURSE POSISION ACALL PR0 MOV A,#00H ACALL PR1 MOV A,#00H ACALL PR1 MOV A,#42H ;WRITE DATA TO DISP BUFFER ACALL PR0 MOV R1,#0FH ;15 WORDI200: MOV R2,#10H ;16 LINE MOV DPTR,#TAB2I20: MOV R3,#28H ;ONE LINEI2: CLR A MOVC A,A+DPTR ACALL PR1 INC DPTR DJNZ R3,I2 DJNZ R2,I20 DJNZ R1,I200 LCALL DELAY LCALL DELAY RETXRD1: MOV A,#4FH ;curse DIRECTION DOWN ACALL PR0 MOV R7,#06H ;NUMBER OF REPEAT WORD MOV R6,#00HI3000: MOV DPTR,#TAB3 MOV R4,DPH MOV R5,DPL MOV R1,#06H ;NUMBER OF WORDI300: MOV A,#46H ;SET CURSE POSISION ACALL PR0 MOV A,R6 ACALL PR1 MOV A,#00H ACALL PR1 MOV A,#42H ;WRITE DATA TO DISP BUFFER ACALL PR0 MOV R2,#0FH ;15WORD LEFTI30: MOV DPH,R4 MOV DPL,R5 MOV R3,#10H ;ONE WORD LEFTI3: CLR A MOVC A,A+DPTR ACALL PR1 INC DPTR DJNZ R3,I3 DJNZ R2,I30 MOV R4,DPH MOV R5,DPL INC R6 DJNZ R1,I300 DJNZ R7,I3000 LCALL DELAY LCALL DELAY RETDISP: MOV A,#46H ;SET CURSE ADD ACALL PR0 CLR A ACALL PR1 ACALL PR1 MOV A,#42H ;WRITE DATA TO DISP BUFFER ACALL PR0 MOV A,R1 MOV R4,#0F0HD20: MOV R5,#28HD2: ACALL PR1 DJNZ R5,D2 DJNZ R4,D20 RETLINE1: MOV A,#46H ;SET CURSE ADD ACALL PR0 CLR A ACALL PR1 ACALL PR1 MOV A,#42H ;WRITE DATA TO DISP BUFFER ACALL PR0 MOV R4,#44HLD20: MOV A,#00H MOV R5,#50HLD2: ACALL PR1 DJNZ R5,LD2 MOV A,#0FFH MOV R5,#50HLD3: ACALL PR1 DJNZ R5,LD3 DJNZ R4,LD20 LCALL DELAY LCALL DELAY RET;WRITE COMMANDPR0: SETB P3.5 ;C/D(A0) COMMAND STATUS SETB P3.2 ;RD CLR P3.3 ;WR MOV P1,A SETB P3.3 ;WR RET;WRITE DATE OR COMMAND PARAMETEPR1: CLR P3.5 ;C/D(A0) COMMAND STATUS SETB P3.2 ;RD CLR P3.3 ;WR MOV P1,A SETB P3.3 RET;READ DATAPR2: SETB P3.5 ;C/D(A0) COMMAND STATUS SETB P3.3 ;WR ORL P1,#0FFH CLR P3.2 ;RD MOV A,P1 SETB P3.2 RETdelay: LCALL DELAYY LCALL DELAYY LCALL DELAYY LCALL DELAYY retdelayy: mov r6,#00hdelayy1: mov r7,#00hdelayy2: djnz r7,delayy2 djnz r6,delayy1 retTAB2: DB 00H,00H, 00H,20H, 00H, 00H,00H, 00H DB 00H,00H, 00H,20H, 00H, 00H,00H, 00H DB 00H,00H, 00H,20H, 00H, 00H,00H, 00H DB 00H,00H, 00H,20H, 00H, 00H,00H, 00H DB 00H,00H, 00H,20H, 00H, 00H,00H, 00H DB 11H,20H, 01H,24H, 00H, 00H,00H, 00H DB 11H,20H, 01H,24H, 00H, 00H,00H, 00H DB 11H,20H, 01H,24H, 00H, 00H,00H, 00H DB 11H,20H, 01H,24H, 00H, 00H,00H, 00H DB 11H,20H, 01H,24H, 00H, 00H,00H, 00H DB 1fH,20H, 01H,24H, 10H, 40H,00H, 00H DB 1fH,20H, 01H,24H, 10H, 40H,00H, 00H DB 1fH,20H, 01H,24H, 10H, 40H,00H, 00H DB 1fH,20H, 01H,24H, 10H, 40H,00H, 00H DB 1fH,20H, 01H,24H, 10H, 40H,00H, 00H DB 10H,20H, 7dH,24H, 10H, 40H,00H, 00H DB 10H,20H, 7dH,24H, 10H, 40H,00H, 00H DB 10H,20H, 7dH,24H, 10H, 40H,00H, 00H DB 10H,20H, 7dH,24H, 10H, 40H,00H, 00H DB 10H,20H, 7dH,24H, 10H, 40H,00H, 00H DB 10H,7cH, 11H,0fcH,10H, 44H,00H, 00H DB 10H,7cH, 11H,0fcH,10H, 44H,00H, 00H DB 10H,7cH, 11H,0fcH,10H, 44H,00H, 00H DB 10H,7cH, 11H,0fcH,10H, 44H,00H, 00H DB 10H,7cH, 11H,0fcH,10H, 44H,00H, 00H DB 11H,44H, 11H,04H, 07H,0feH,00H, 00H DB 11H,44H, 11H,04H, 07H,0feH,00H, 00H DB 11H,44H, 11H,04H, 07H,0feH,00H, 00H DB 11H,44H, 11H,04H, 07H,0feH,00H, 00H DB 11H,44H, 11H,04H, 07H,0feH,00H, 00H DB 1fH,50H, 17H,0ffH,10H, 40H,00H, 00H DB 1fH,50H, 17H,0ffH,10H, 40H,00H, 00H DB 1fH,50H, 17H,0ffH,10H, 40H,00H, 00H DB 1fH,50H, 17H,0ffH,10H, 40H,00H, 00H DB 1fH,50H, 17H,0ffH,10H, 40H,00H, 00H DB 14H,90H, 7cH,40H, 78H, 60H,00H, 00H DB 14H,90H, 7cH,40H, 78H, 60H,00H, 00H DB 14H,90H, 7cH,40H, 78H, 60H,00H, 00H DB 14H,90H, 7cH,40H, 78H, 60H,00H, 00H DB 14H,90H, 7cH,40H, 78H, 60H,00H, 00H DB 14H,10H, 11H,0fcH,10H,0d0H,00H, 00H DB 14H,10H, 11H,0fcH,10H,0d0H,00H, 00H DB 14H,10H, 11H,0fcH,10H,0d0H,00H, 00H DB 14H,10H, 11H,0fcH,10H,0d0H,00H, 00H DB 14H,10H, 11H,0fcH,10H,0d0H,00H, 00H DB 14H,10H, 11H,54H, 10H, 88H,00H, 00H DB 14H,10H, 11H,54H, 10H, 88H,00H, 00H DB 14H,10H, 11H,54H, 10H, 88H,00H, 00H DB 14H,10H, 11H,54H, 10H, 88H,00H, 00H DB 14H,10H, 11H,54H, 10H, 88H,00H, 00H DB 14H,28H, 15H,54H, 11H, 8cH,00H, 00H DB 14H,28H, 15H,54H, 11H, 8cH,00H, 00H DB 14H,28H, 15H,54H, 11H, 8cH,00H, 00H DB 14H,28H, 15H,54H, 11H, 8cH,00H, 00H DB 14H,28H, 15H,54H, 11H, 8cH,00H, 00H DB 24H,48H, 39H,54H, 13H, 04H,00H, 00H DB 24H,48H, 39H,54H, 13H, 04H,00H, 00H DB 24H,48H, 39H,54H, 13H, 04H,00H, 00H DB 24H,48H, 39H,54H, 13H, 04H,00H, 00H DB 24H,48H, 39H,54H, 13H, 04H,00H, 00H DB 24H,4cH,0e1H,54H, 30H, 00H,00H, 00H DB 24H,4cH,0e1H,54H, 30H, 00H,00H, 00H DB 24H,4cH,0e1H,54H, 30H, 00H,00H, 00H DB 24H,4cH,0e1H,54H, 30H, 00H,00H, 00H DB 24H,4cH,0e1H,54H, 30H, 00H,00H, 00H DB 44H,86H, 41H,54H, 6cH, 00H,00H, 00H DB 44H,86H, 41H,54H, 6cH, 00H,00H, 00H DB 44H,86H, 41H,54H, 6cH, 00H,00H, 00H DB 44H,86H, 41H,54H, 6cH, 00H,00H, 00H DB 44H,86H, 41H,54H, 6cH, 00H,00H, 00H DB 85H,06H, 01H,0cH, 43H,0feH,00H, 00H DB 85H,06H, 01H,0cH, 43H,0feH,00H, 00H DB 85H,06H, 01H,0cH, 43H,0feH,00H, 00H DB 85H,06H, 01H,0cH, 43H,0feH,00H, 00H DB 85H,06H, 01H,0cH, 43H,0feH,00H, 00H DB 00H,00H, 00H,04H, 00H, 00H,00H, 00H DB 00H,00H, 00H,04H, 00H, 00H,00H, 00H DB 00H,00H, 00H,04H, 00H, 00H,00H, 00H DB 00H,00H, 00H,04H, 00H, 00H,00H, 00H DB 00H,00H, 00H,04H, 00H, 00H,00H, 00H DB 00H,00H, 00H,20H, 00H, 00H,00H, 00H, 00h,00h,00h,00h,00h,00h,00h,00h DB 11H,20H, 01H,24H, 00H, 00H,00H, 00H, 00h,00h,00h,00h,00h,00h,00h,00h DB 1fH,20H, 01H,24H, 10H, 40H,00H, 00H, 00h,00h,00h,00h,00h,00h,00h,00h DB 10H,20H, 7dH,24H, 10H, 40H,00H, 00H, 00h,00h,00h,00h,00h,00h,00h,00h DB 10H,7cH, 11H,0fcH,10H, 44H,00H, 00H, 00h,00h,00h,00h,00h,00h,00h,00h DB 11H,44H, 11H,04H, 07H,0feH,00H, 00H, 00h,00h,00h,00h,00h,00h,00h,00h DB 1fH,50H, 17H,0ffH,10H, 40H,00H, 00H, 00h,00h,00h,00h,00h,00h,00h,00h DB 14H,90H, 7cH,40H,78H, 60H,00H, 00H, 00h,00h,00h,00h,00h,00h,00h,00h ;XIN LEFT TAB3: DB 00H,11H,1FH,10H,10H,11H,1FH,14H,14H,14H,14H,24H,24H,44H,85H,00H ;XIN RIGHT TAB4: DB 00H,20H,20H,20H,7CH,44H,50H,90H,10H,10H,28H,48H,4CH,86H,06H,00H;RUI LEFT DB 00H,01H,01H,7DH,11H,11H,17H,7CH,11H,11H,15H,39H,0E1H,41H,01H,00H ;RUI RIGHT DB 20H,24H,24H,24H,0FCH,04H,0FFH,40H,0FCH,54H,54H,54H,54H,5