【正文】 斷 程 序 入 口 ORG 0000H ORG AJMP START ORG 0003H RETI ORG 000BH RETI ORG 0013H RETI ORG 001BH LJMP INTT1 ORG 0023H RETI ORG 002BH RETI 初 始 化 程 序 CLEARMEMIO: CLR A DEC A MOV P0,A MOV P1,A MOV P2,A MOV P3,A CLR CLEARMEM: MOV SP,70H MOV IE,00H MOV IP,01H MOV TMOD,22H 長春理工大學(xué)畢業(yè)設(shè)計 24 MOV TH1,0F3H MOV TL1,0F3H SETB EA RET 主程序 START: LCALL CLEARMEMIO 。 T1 中斷服務(wù)程序 INTT1: CPL RET1 KEYWORK: MOV KEYY,0FFH CLR KEYX0 CLR KEYX1 CLR KEYX2 CLR KEYX3 MOV A,KEYY MOV B,A CLNE A,0FFHKKEYHIT KEYOUT: RET 。 KEYVAL0: MOV R2,00H LJMP KEYVAL4 。 KEYVAL2: MOV R2,10H LJMP KEYVAL4 。 KEYVAL4: MOV DPTR,KEYVALTAB MOV B,A CLR A MOV R0,A KEYVAL5: MOV A,R0 SUBB A,08H JNC KEYOUT MOV A,R0 MOVC A,A+DPTR INC R0 長春理工大學(xué)畢業(yè)設(shè)計 26 CJNE A,B,KEYVAL5 DEC R0 MOV A,R0 ADD A,R2 MOV B,A RL A ADD A,B MOV DPTR,KEYFUNTAB JMP A+DPTR KEYFUNTAB: LJMP KEYFUN00 LJMP KEYFUN01 LJMP KEYFUN02 LJMP KEYFUN03 LJMP KEYFUN04 LJMP KEYFUN05 LJMP KEYFUN06 LJMP KEYFUN07 KEYVALTAB DB 0FEH,0FDH,0FBH,0F7H,0EFH,ODFH,0BFH,7FH。 KEYFUN00: MOV A,02H LJMP REMOTE RET 。 KEYFUN02: MOV A,04H LJMP REMOTE RET 。 KEYFUN04: MOV A,06H LJMP REMOTE RET 。 KEYFUN06: MOV A,08H LJMP REMOTE RET 。 編碼發(fā)射程序 REMOTE: MOV R1,A LJMP OUT3 OUT: MOV R0,55H OUT1: SETB ET1 SETB TR1 NOP NOP NOP NOP NOP DJNZ R0,OUT1 MOV R0,32H OUT2: CLR TR1 CLR ET1 CLR NOP NOP 長春理工大學(xué)畢業(yè)設(shè)計 28 NOP NOP NOP DJNZ R0,OUT2 DJNZ R1,OUT LCALL DL500MS RET OUT3: MOV R0,0FFH LJMP OUT1 延時 513μS DELAY: MOV R2,0FFH DELAY1: DJNZ R2,DELAY1 RET 10ms 延時程序 DL10MS: MOV R3,14H DL10MS1: LCALL DELAY DJNZ R3,DL10MS1 RET 。 主程序 START: LCALL CLEARMEMIO LCALL LOOP 。 READ1: CLR A MOV DPH,A MOV DPL,A HARD1: JB ,HARD11 長春理工大學(xué)畢業(yè)設(shè)計 30 INC DPTR NOP NOP AJMP HARD1 HARD11: MOV A,DPH JZ READOUTT0 CLA A READ11: INC A READ12: JNB ,READ12 MOV R1,06H READ13: JNB ,READ13 DEC A DEC A JZ FUN0 DEC A JZ FUN1 DEC A JZ FUN2 DEC A JZ FUN3 DEC A JZ FUN4 DEC A JZ FUN5 DEC A JZ FUN6 DEC A JZ FUN7 NOP NOP LJMP READOUTT0 。 延時程序 DELAY: MOV R0,OFFH DELAY1: DJNZ R0,DELAY1 RET。 調(diào)光延時時間控制 DLX: MOV R2,B DLX1: LCALL DELAY DJNZZ R2,DLX1 RET。 LOOP7: MOV B,01H RET LOOP6: MOV B,02H RET LOOP5: MOV B,04H RET LOOP4: MOV B,06H RET LOOP3: MOV B,08H RET LOOP2: MOV B,0AH RET LOOP1: MOV B,0CH RET LOOP0: MOV B,0DH RET 長春理工大學(xué)畢業(yè)設(shè)計 33 。t agree with the disciplinary action your employer has taken against you ? your employer dismisses you and you think that you have been dismissed unfairly. For more information about dismissal and unfair dismissal, see Dismissal. You can make a claim to an employment tribunal, even if you haven39。t charge you more than 35% of your pensation if you win the case. If you are thinking about signing up for a damagesbased agreement, you should make sure you39。s antiracism taskforce, is in London for the Football Association39。s Premier League match at Chelsea on Sunday. I am going to be at the match tomorrow and I have asked to meet Yaya