|
OK EQU 20H ;搶答開始標志位 RING EQU 22H ;響鈴標志位 DATA0 EQU36H ;搶答按鍵口數據存放地址 ORG 0000H AJMP MAIN ORG 0003H AJMP INT0SUB ORG 000BH AJMP T0INT ORG 0013H AJMP INT1SUB ORG 001BH AJMP T1INT ORG 0040H MAIN: MOV R1,#30 ;初設搶答時間為30s MOV R2,#45 ;初設答題時間為45s MOV TMOD,#11H ;設置未定時器/模式1 MOV TH0,#0F0H MOV TL0,#0FFH ;越高發聲頻率越高,越尖 MOV TH1,#3CH MOV TL1,#0B0H ;50ms為一次溢出中斷 SETB EA SETB ET0 SETB ET1 SETB EX0 SETB EX1 ;允許四個中斷,T0/T1/INT0/INT1 CLR OK CLR RING SETB TR1 SETB TR0 ;一開始就運行定時器,以開始顯示PPP.如果想重新計數,重置TH1/TL1就可以了 ;查詢程序 START: MOV DATA0,#0FFH ;初始化 MOV R5,#0BH MOV R4,#0BH MOV R3,#0BH ACALLDISPLAY ;未開始搶答時候顯示PPP JNB P3.3 ,INT0SUB JNB P3.4,TZ1 ;倒計時調整 JB P3.0,NEXT ;ddddddd ACALL DELAY JB P3.0,NEXT ;去抖動,如果"開始鍵"按下就向下執行,否者跳到非法搶答查詢 SETB EX0 ;開放INT0 ACALL BARK ;按鍵發聲 MOV A,R1 MOV R6,A ;送R1->R6,因為R1中保存了搶答時間 SETB OK ;搶答標志位,用于COUNT只程序中判斷是否查詢搶答(在使用錦囊時用作判斷是搶答倒計時還是回答倒計時) MOV R3,#0AH ;搶答只顯示計時,滅號數 AJMP COUNT ;進入倒計時程序,"查詢有效搶答的程序"在COUNT里面 NEXT: JNB P1.0,FALSE1 JNB P1.1,FALSE2 JNB P1.2,FALSE3 JNB P1.3,FALSE4 JNB P1.4,FALSE5 JNB P1.5,FALSE6 JNB P1.6,TZ1 JNB P1.7,TZ2 AJMP START TZ1: JMP FALSE7 TZ2: JMP FALSE8 ;非法搶答處理程序 FALSE1: ACALLBARK ;按鍵發聲 MOV R3,#01H AJMP ERROR FALSE2: ACALLBARK MOV R3,#02H AJMP ERROR FALSE3: ACALLBARK MOV R3,#03H AJMP ERROR FALSE4: ACALLBARK MOV R3,#04H AJMP ERROR FALSE5: ACALLBARK MOV R3,#05H AJMP ERROR FALSE6: ACALLBARK MOV R3,#06H AJMP ERROR FALSE7: ACALLBARK MOV R3,#07H AJMP ERROR FALSE8: ACALLBARK MOV R3,#08H AJMP ERROR ;INT0(搶答時間R1調整程序) INT0SUB: MOVA,R1 MOV B,#0AH DIV AB MOV R5,A MOV R4,B MOV R3,#0AH ACALL DISPLAY ;先在兩個時間LED上顯示R1 JNB P3.4,INC0 ;P3.4為+1s鍵,如按下跳到INCO JNB P3.5,DEC0 ;P3.5為-1s鍵,如按下跳到DECO JNB P3.1,BACK0 ;P3.1為確定鍵,如按下跳到BACKO AJMP INT0SUB INC0: MOV A,R1 CJNE A,#63H,ADD0 ;如果不是99,R2加1,如果加到99,R1就置0，重新加起。 MOV R1,#00H ACALL DELAY1 AJMP INT0SUB ADD0: INC R1 ACALL DELAY1 AJMP INT0SUB DEC0: MOV A,R1 JZ SETR1 ;如果R1為0, R1就置99， DEC R1 ACALL DELAY1 AJMP INT0SUB SETR1: MOV R1,#63H ACALL DELAY1 AJMP INT0SUB BACK0: RETI ;INT1(回答時間R2調整程序) INT1SUB: MOV A,R2 MOV B,#0AH DIV AB MOV R5,A MOV R4,B MOV R3,#0AH ACALL DISPLAY JNB P3.4,INC1 JNB P3.5,DEC1 JNB P3.1,BACK1 AJMP INT1SUB INC1: MOV A,R2 CJNE A,#63H,ADD1 MOV R2,#00H ACALL DELAY1 AJMP INT1SUB ADD1: INC R2 ACALL DELAY1 AJMP INT1SUB DEC1: MOV A,R2 JZ SETR2 DEC R2 ACALL DELAY1 AJMP INT1SUB SETR2: MOV R2,#63H ACALL DELAY1 AJMP INT1SUB BACK1: RETI ;倒計時程序(搶答倒計時和回答倒計時都跳到改程序) COUNT: MOV R0,#00H ;重置定時器中斷次數 MOV TH1,#3CH MOV TL1,#0B0H ;重置定時器 RECOUNT: MOVA,R6 ;R6保存了倒計時的時間,之前先將搶答時間或回答時間給R6 MOV B,#0AH DIV AB ;除十分出個位/十位 MOV 30H,A ;十位存于(30H) MOV 31H,B ;個位存于(31H) MOV R5,30H ;取十位 MOV R4,31H ;取個位 MOV A,R6 SUBB A,#07H JNC LARGER ;大于5s跳到LARGER,小于等于5s會提醒 MOV A,R0 CJNE A,#0AH,FULL ;1s中0.5s向下運行 CLR RING AJMP CHECK FULL: CJNE A,#14H,CHECK ;下面是1s的情況,響并顯示號數并清R0,重新計 SETB RING MOV A,R6 JZ QUIT ;計時完畢 MOV R0,#00H DEC R6 ;一秒標志減1 AJMP CHECK LARGER: MOV A,R0 CJNE A,#14H,CHECK ;如果1s向下運行,否者跳到查"停/顯示" DEC R6 ;計時一秒R6自動減1 MOV R0,#00H CHECK: JNBP3.1,QUIT ;如按下停止鍵退出 ACALL DISPLAY JB OK,ACCOUT ;如果是搶答倒計時,如是則查詢搶答,否者跳過查詢繼續倒數(這里起到鎖搶答作用) AJMP RECOUNT ACCOUT: MOV A,DATA0 JNB P1.0,TRUE1 JNB P1.1,TRUE2 JNB P1.2,TRUE3 JNB P1.3,TRUE4 JNB P1.4,TRUE5 JNB P1.5,TRUE6 JNB P1.6,TZ3 JNB P1.7,TZ4 AJMP RECOUNT TZ3: JMP TRUE7 TZ4: JMP TRUE8 QUIT: CLR OK ;如果按下了"停止鍵"執行的程序 CLR RING AJMP START ;正常搶答處理程序 TRUE1: ACALLBARK ;按鍵發聲 MOV A,R2 MOV R6,A ;搶答時間R2送R6 MOV R3,#01H CLR OK ;因為答題的計時不再查詢搶答,所以就鎖了搶答 AJMP COUNT TRUE2: ACALLBARK; MOV A,R2 MOV R6,A MOV R3,#02H CLR OK AJMP COUNT TRUE3: ACALLBARK; MOV A,R2 MOV R6,A MOV R3,#03H CLR OK AJMP COUNT TRUE4: ACALLBARK; MOV A,R2 MOV R6,A MOV R3,#04H CLR OK AJMP COUNT TRUE5: ACALL BARK; MOV A,R2 MOV R6,A MOV R3,#05H CLR OK AJMP COUNT TRUE6: ACALL BARK; MOV A,R2 MOV R6,A MOV R3,#06H CLR OK AJMP COUNT TRUE7: ACALL BARK; MOV A,R2 MOV R6,A MOV R3,#07H CLR OK AJMP COUNT TRUE8: ACALL BARK; MOV A,R2 MOV R6,A MOVR3,#08H CLR OK AJMP COUNT ;犯規搶答程序 ERROR: MOV R0,#00H MOV TH1,#3CH MOV TL1,#0B0H MOV 34H,R3 ;犯規號數暫存與(34H) HERE: MOV A,R0 CJNE A,#0AH,FLASH ;0.5s向下運行->滅并停響 CLR RING MOV R3,#0AH MOV R4,#0AH MOV R5,#0AH ;三燈全滅 AJMP CHECK1 FLASH: CJNE A,#14H,CHECK1 ;下面是1s的情況,響并顯示號數并清R0,重新計 SETB RING MOV R0,#00H MOV R3,34H ;取回號數 MOV R5,#0BH MOV R4,#0BH ;顯示PP和號數 AJMP CHECK1 CHECK1: JNBP3.1,QUIT1 ACALL DISPLAY AJMP HERE QUIT1: CLR RING CLR OK AJMP START ;顯示程序 DISPLAY:MOVDPTR,#DAT1 ;查表顯示程序,利用P0口做段選碼口輸出/P2低三位做位選碼輸出 MOV A,R3 MOVC A,@A+DPTR MOV P2,#0feH MOV P0,A ACALL DELAY MOV DPTR,#DAT2 MOV A,R5 MOVC A,@A+DPTR MOV P2,#0fdH MOV P0,A ACALL DELAY MOV A,R4 MOVC A,@A+DPTR MOV P2,#0fbH MOV P0,A ACALL DELAY RET DAT1:DB00h,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,00H,73H ;"滅","1","2","3","4","5","6","7","8","9","滅","P" DAT2:DB3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,00H,73H ;第一個為零,其他與上相同,因為十位如果為零顯示熄滅 ;加減時間延時(起到不會按下就加N個數) DELAY1: MOV35H,#08H LOOP0: ACALL DISPLAY DJNZ 35H,LOOP0 RET ;延時(顯示和去抖動用到) DELAY: MOV 32H,#12H LOOP: MOV 33H,#0AFH LOOP1: DJNZ 33H,LOOP1 DJNZ 32H,LOOP RET ;發聲程序 BARK: SETB RING ACALL DELAY1 ACALL DELAY1 CLR RING ;按鍵發聲 RET ;TO溢出中斷(響鈴程序) T0INT: MOV TH0,#0ECH MOV TL0,#0FFH JNB RING,OUT; CPL P3.6 ;RING標志位為1時候P3.6口不斷取反使喇叭發出一定頻率的聲音 OUT: RETI ;T1溢出中斷(計時程序) T1INT: MOV TH1,#3CH MOV TL1,#0B0H INC R0 RETI ;INTT0中斷服務程序 INTT0:MOVDATA0,P1 CLR EX0 RETI END
|
