|
|
30黑幣
代碼在計分跳轉的地方有問題。最好能再幫我測試一下。謝謝
仿真原理圖如下
1.PNG (155.72 KB, 下載次數: 43)
下載附件
2019-3-29 17:12 上傳
單片機源程序如下:
- OK EQU 20H ;搶答開始標志位
- RING EQU 22H ;響鈴標志位
- DATA0 EQU 36H ;搶答按鍵口數據存放地址
- ORG 0000H
- AJMP MAIN
- ORG 0003H
- AJMP INTT0
- ORG 000BH
- AJMP T0INT
- ORG 001BH
- AJMP T1INT
- ORG 0040H
- MAIN: MOV R1,#20 ;初設搶答時間為20s
- MOV R2,#30 ;初設答題時間為30s
- mov 38h,#60 ;啟用錦囊時間從60s倒計時
- MOV TMOD,#11H ;設置未定時器/模式1
- MOV TH0,#0F0H
- MOV TL0,#0FFH ;越高發聲頻率越高,越尖
- MOV TH1,#3CH
- MOV TL1,#0B0H ;50ms為一次溢出中斷
- SETB EA
- SETB ET0
- SETB ET1 ;允許二個中斷,T0/T1
- CLR OK
- CLR RING
- SETB TR1
- SETB TR0 ;一開始就運行定時器,以開始顯示FFF.如果想重新計數,重置TH1/TL1就可以了
- ;查詢程序：
- START: MOV DATA0,#0FFH ;初始化
- MOV R5,#0BH
- MOV R4,#0BH
- MOV R3,#0BH
- ACALL DISPLAY ;未開始搶答時候顯示FFF
- JNB P3.3,SELSUB0
- JNB P3.4,TZ3 ;倒計時調整
- ;進入計分
- JNB P2.4,start ;復位鍵，進入主程序
- JB P3.0,NEXT
- ACALL DELAY
- JB P3.0,NEXT ;去抖動,如果"開始鍵"按下就向下執行,否者跳到非法搶答查詢
- SETB EX0 ;開放INT0
- ACALL BARK ;按鍵發聲
- MOV A,R1
- MOV R6,A ;送R1->R6,因為R1中保存了搶答時間
- SETB OK ;搶答標志位,在使用錦囊時用作判斷是搶答倒計時還是回答倒計時
- 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: AJMP FALSE7
- TZ2: AJMP FALSE8
- TZ3: AJMP SELSUB1
- ;非法搶答處理程序：
- FALSE1: MOV R3,#01H
- AJMP ERROR
- FALSE2: MOV R3,#02H
- AJMP ERROR
- FALSE3: MOV R3,#03H
- AJMP ERROR
- FALSE4: MOV R3,#04H
- AJMP ERROR
- FALSE5: MOV R3,#05H
- AJMP ERROR
- FALSE6: MOV R3,#06H
- AJMP ERROR
- FALSE7: MOV R3,#07H
- AJMP ERROR
- FALSE8: MOV R3,#08H
- AJMP ERROR
- ;SELSUB0(搶答時間R1調整程序)：
- SELSUB0: MOV A,R1
- MOV B,#0AH
- DIV AB
- MOV R5,A
- MOV R4,B
- MOV R3,#0AH
- ACALL DISPLAY ;先在兩個時間LED上顯示R1
- JNB P3.5,INC0 ;P3.5為+1s鍵,如按下跳到INCO
- JNB P3.6,DEC0 ;P3.6為-1s鍵,如按下跳到DECO
- JNB P3.1,BACK0 ;P3.1為確定鍵,如按下跳到BACKO
- AJMP SELSUB0
- INC0: MOV A,R1
- CJNE A,#63H,ADD0 ;如果不是99,R2加1,如果加到99,R1就置0，重新加起。
- MOV R1,#00H
- ACALL DELAY1
- AJMP SELSUB0
- ADD0: INC R1
- ACALL DELAY1
- AJMP SELSUB0
- DEC0: MOV A,R1
- JZ SETR1 ;如果R1為0, R1就置99，
- DEC R1
- ACALL DELAY1
- AJMP SELSUB0
- SETR1: MOV R1,#63H
- ACALL DELAY1
- AJMP SELSUB0
- BACK0: AJMP START
- ;SELSUB1(回答時間R2調整程序)：
- SELSUB1: MOV A,R2
- MOV B,#0AH
- DIV AB
- MOV R5,A
- MOV R4,B
- MOV R3,#0AH
- ACALL DISPLAY
- JNB P3.5,INC1
- JNB P3.6,DEC1
- JNB P3.1,BACK1
- AJMP SELSUB1
- INC1: MOV A,R2
- CJNE A,#63H,ADD1
- MOV R2,#00H
- ACALL DELAY1
- AJMP SELSUB1
- ADD1: INC R2
- ACALL DELAY1
- AJMP SELSUB1
- DEC1: MOV A,R2
- JZ SETR2
- DEC R2
- ACALL DELAY1
- AJMP SELSUB1
- SETR2: MOV R2,#63H
- ACALL DELAY1
- AJMP SELSUB1
- BACK1: AJMP START
- ;啟用錦囊程序：
- REPEAT:MOV A,38h ;使用錦囊時重新計時
- MOV R6,A
- CLR RING ;當倒計時進入最后5秒的時候，啟用錦囊能消除蜂鳴
- ;倒計時程序(搶答倒計時和回答倒計時都跳到改程序)：
- COUNT: MOV R0,#00H ;重置定時器中斷次數
- MOV TH1,#3CH
- MOV TL1,#0B0H ;重置定時器
- RECOUNT:MOV A,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: JNB P3.1,QUIT ;如按下停止鍵退出
- JNB OK,CHECKK ;只在回答倒計時才有效
- AJMP NEXTT
- CHECKK:JNB P3.0,REPEAT ;判斷是否使用錦囊
- NEXTT: ACALL DISPLAY
- JB OK,ACCOUT;如果是搶答倒計時，如是則查詢搶答，否者跳過查詢繼續倒數(這里起到鎖搶答作用)
- AJMP RECOUNT
- ACCOUT:MOV A,DATA0
- JNB ACC.0,TRUE1
- JNB ACC.1,TRUE2
- JNB ACC.2,TRUE3
- JNB ACC.3,TRUE4
- JNB ACC.4,TRUE5
- JNB ACC.5,TRUE6
- JNB ACC.6,TZ7
- JNB ACC.7,TZ8
- AJMP RECOUNT
- TZ7: AJMP TRUE7
- TZ8: AJMP TRUE8
- QUIT: CLR OK ;如果按下了"停止鍵"執行的程序
- CLR RING
- AJMP START
- ;正常搶答處理程序：
- TRUE1: ACALL BARK
- MOV A,R2
- MOV R6,A ;搶答時間R2送R6
- MOV R3,#01H
- CLR OK ;因為答題的計時不再查詢搶答，所以就鎖了搶答
- AJMP COUNT
- TRUE2:ACALL BARK
- MOV A,R2
- MOV R6,A
- MOV R3,#02H
- CLR OK
- AJMP COUNT
- TRUE3:ACALL BARK
- MOV A,R2
- MOV R6,A
- MOV R3,#03H
- CLR OK
- AJMP COUNT
- TRUE4:ACALL BARK
- 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
- MOV R3,#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,#06H,FLASH ;0.3s向下運行->滅并停響
- CLR RING
- MOV R3,#0AH
- MOV R4,#0AH
- MOV R5,#0AH ;三燈全滅
- AJMP CHECK1
- FLASH: CJNE A,#0CH,CHECK1 ;下面是0.8s的情況，響并顯示號數并清R0，重新計
- SETB RING
- MOV R0,#00H
- MOV R3,34H ;取回號數
- MOV R5,#0BH
- MOV R4,#0BH ;顯示FF和號數
- AJMP CHECK1
- CHECK1: JNB P3.1,QUIT1
- ACALL DISPLAY
- AJMP HERE
- QUIT1: CLR RING
- CLR OK
- AJMP START
- ;計分程序
- JNB P2.5,score
- //************ 負數****************//
- fushiwei:xrl p2,#00000110b ;101 //掃描分數負十位 //#00000001b
- MOV A,@r1
- MOV DPTR,#DISPLAY
- MOVC A,@A+DPTR
- MOV P0,A
- mov p0,#0ffh// ajmp huiqu
- //************ 計分程序 ************//
- score:mov 30h,#00h
- mov r0,#30h
- mov r1,#31h
- mov p2,#0ffh// #0f8h 111
- xrl p2,#00000011b //掃描序號 011 // #00000100b
- xunhuan:MOV A,30h
- MOV DPTR,#DISPLAY
- MOVC A,@A+DPTR
- MOV P0,A
- mov p0,#0ffh//
- huanle:xrl p2,#00000110b //101 //掃描分數十位 //#00000001b
- MOV A,@r1
- MOV DPTR,#DISPLAY
- MOVC A,@A+DPTR
- MOV P0,A
- mov p0,#0ffh//
- huiqu: inc r1 //掃描分數個位
- xrl p2,#00000011b //110//#00000100b
- MOV A,@r1
- MOV DPTR,#DISPLAY
- MOVC A,@A+DPTR
- MOV P0,A
- jb p2.6,x
- z: jnb p2.6,z
- jb p2.6,plus ;若有按加法的則調至加法處
- x: jb p2.7,y
- w: jnb p2.7,w
- jb p2.7,lower ;若有按鍵發的則調至減法處
- y: jb p2.5,kk
- q: jnb p2.5,q
- jb p2.5,one ;若有按換位的則跳轉置換為下位
- kk: dec r1 ;若無責跳轉循環顯示本位
- mov p0,#0ffh//
- xrl p2,#00000101b ;011 // #00000010b
- JNB P2.4,hui ;若主持人按下復位信號鍵，則轉向主程序
- ajmp xunhuan
- one:inc r1
- inc 30h
- two:mov p0,#0ffh
- xrl p2,#00000101b ;011 //#00000010b
- cjne @r0,#09h,xunhuan
- ajmp score
- hui:ljmp start
- plus:inc @r1 ;加分并判斷滿十
- cjne @r1,#0ah,kk
- ajmp jinwei
- lower:dec @r1 ;減分并判斷為零
- cjne @r1,#0ffh,kk
- ajmp panduan ;判斷十位是否也為 0
- oo: inc @r1
- ajmp jiewei
- panduan:dec @r1
- cjne @r1,#0ffh,oo
- ajmp fushu
- fushu:mov @r1,#01h
- dec r1
- mov @r1,#0ah
- mov p0,#0ffh
- xrl p2,#00000101b
- ljmp fushiwei //
- jinwei:mov @r1,#00h ;滿十進 1 并且本為清零
- dec r1
- inc @r1
- mov p0,#0ffh//
- xrl p2,#00000101b ;110 101 // #00000010b
- ljmp xunhuan
- jiewei:mov @r1,#09h ;借 1 并且本為置九
- dec r1
- dec @r1
- mov p0,#0ffh//
- xrl p2,#00000101b ;110 101 //#00000010b
- ljmp xunhuan
- ;顯示程序：
- DISPLAY:MOV DPTR,#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:DB 00h,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,00H,71H
- ;"滅","1","2","3","4","5","6","7","8","9","滅","F"
- DAT2:DB 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,00H,71H
- ;第一個為零,其他與上相同,因為十位如果為零顯示熄滅
- ;加減時間延時(起到不會按下就加N個數)：
- DELAY1: MOV 35H,#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.7 ;RING標志位為1時候P3.7口不斷取反使喇叭發出一定頻率的聲音
- OUT: RETI
- ;T1溢出中斷(計時程序)：
- T1INT: MOV TH1,#3CH
- MOV TL1,#0B0H
- INC R0
- RETI
- ;中斷服務程序：
- INTT0: MOV DATA0,P1
- CLR EX0
- RETI
- END
所有資料51hei提供下載:
Text1.rar
(3.55 KB, 下載次數: 15)
2019-3-29 17:13 上傳
點擊文件名下載附件
代碼
|
最佳答案
查看完整內容
沒有人會幫你測試的,一個幾百行的匯編,就算是自己寫的,如果出現問題的話,運氣好的一下就能找到問題,運氣不好的,三五天也不一定能找到問題,更何況還不是自己寫的程序呢
你沒有學習板嗎?為什么要仿真呢?仿真用的時間要比燒錄用的時間多,而且,你最終還是要在燒錄的,像這種小程序,仿真的作用很小的,還不如直接燒錄來得快
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
