標題: 單片機電子琴播放音樂帶倒計時功能的proteus仿真（匯編） [打印本頁]
作者: 51黑ff    時間: 2016-9-4 21:16
標題: 單片機電子琴播放音樂帶倒計時功能的proteus仿真（匯編）

電子琴與倒計時播放音樂全部資料下載： 電子琴和倒計時播放音樂.rar (30.5 KB, 下載次數(shù): 47)
功能：
一、能通過按鍵，自行彈奏電子琴類的音樂；
二、能寫好音樂代碼后，自動播放音樂。 已通過測試。

帶有proteus仿真，用匯編語言編寫，內有詳細注解
電子琴的基本原理是產生各個音符對應的頻率，將頻率放大后驅動喇叭發(fā)出音響。該電子琴包括手動彈奏與自動演奏兩種功能，其中手動彈奏時還可錄音回放


匯編源碼如下：
  1. ORG 0000H
  2. SL      EQU   30H              ; SL存放秒的個位數(shù)
  3. SH  EQU   31H              ; SH存放秒的十位數(shù)
  4. ML      EQU   32H              ; ML存放分的個位數(shù)
  5. MH      EQU   33H              ; MH存放分的十位數(shù)
  6. HL      EQU   34H              ; HL存放時的個位數(shù)
  7. HH  EQU   35H             ; HH存放時的十位數(shù)
  8. ;
  9. L0      EQU   36H              ; L0~L3:顯示數(shù)據(jù)存儲器
  10. L1  EQU   37H
  11. L2      EQU   38H
  12. L3  EQU   39H
  13. DSPLYP  EQU   3AH              ; 顯示數(shù)據(jù)指針(DISPLAY-POINT)
  14. PLYTS   EQU   3BH              ; 顯示次數(shù)計數(shù)器(DISPLAY-TIMES)
  15. ;
  16. LPLMOD  BIT   39H              ; 低兩位顯示方式(LOW-PLAY-MOD)
  17. HPLMOD  BIT   3AH              ; 高兩位顯示方式(HIGH-PLAY-MOD)
  18. BRIGHT  BIT   3BH              ; DISPLAY子程序參數(shù):亮滅指示位
  19. ;
  20. TCOUNT  EQU   3CH              ; 時間計數(shù)器(TIME-COUNT)
  21. ;
  22. ADDRES  EQU   3DH              ; 加1子程序參數(shù)
  23. MAX     EQU   3EH              ; 加1子程序參數(shù)
  24. IFDEC   BIT   20H              ; BCD加法子程序參數(shù)
  25. ;
  26. R_MOD   EQU   3FH              ; 響鈴方式參數(shù)
  27. ;
  28. LED4    BIT   30H              ; 發(fā)光管狀態(tài)位
  29. BELL    BIT   P1.7             ; 蜂鳴器
  30. SWITCH  BIT   P3.7             ; 繼電器
  31. FKEY    BIT   P3.0             ; 功能鍵 （S1）
  32. MKEY    BIT   P3.1             ; 修改鍵 （S2）
  33. ;
  34. WORKIN  BIT   38H              ; 工作狀態(tài)指示位
  35. ;

  37.                          SJMP START
  38.                          ORG 000BH

  40.                          LJMP LOOP1
  41.                          ;ORG 001BH
  42.     ;LJMP INT_1

  44. ORG 001BH

  46. JNB P0.6,YINYUE1  ;低音樂
  47. LJMP DIANZIQIN1

  49. ORG 0030H

  51.               DIANZIQIN1:
  52.                ;JB P0.1,ZIJIDE
  53.                JnB P3.6,HUAN   ;高主
  54.                 ;YINYUE1:ljmp YINYUE11
  55.               ZIJIDE:;CLR P2.0
  56.               LJMP INT_1
  57.               HUAN:LJMP DIANZIQIN
  58.                YINYUE1:INC 20H ;中斷服務,中斷計數(shù)器加1
  59.                        MOV TH1,#0D8H
  60.                       MOV TL1,#0EFH ;12M晶振，形成10毫秒中斷
  61.                         RETI

  63.                         START: LJMP  MAIN             ; 0000H  引向主程序
  64.     LJMP  ERR              ; 0003H
  65.     NOP
  66.     NOP
  67.     LJMP  ERR              ; 引向出錯處理程序
  68.    LOOP1: LJMP  PGT0             ; 000BH  引向中斷處理程序PGT0
  69.     NOP
  70.     NOP
  71.     LJMP  ERR              ; 引向出錯處理程序
  72.    LOOP2: LJMP  ERR              ; 0013H  INT1
  73.     NOP
  74.     NOP
  75.     LJMP  ERR
  76.    LOOP3:LJMP  ERR              ; 001BH  T1
  77.     NOP
  78.     NOP
  79.     LJMP  ERR
  80.    LOOP4:LJMP  ERR              ; 0023H
  81.     NOP
  82.     NOP
  83.     LJMP  ERR
  84.     LJMP  ERR              ; 002BH
  85.     NOP
  86.     NOP
  87. ;
  88. ;************
  89. ;   主程序  ;
  90. ;************
  91. MAIN: JNB P0.6,CCC
  92.   LJMP DIANZIQIN
  93. ;CCC:LJMP YINYUE

  95. CCC:MOV   IE,#00H          ; 關中斷
  96.     MOV   SP,#57H          ; 設置堆棧指針
  97.     MOV   PSW,#00H         ; 選用寄存器組0
  98.     MOV   TMOD,#11H        ; 設定中斷工作方式為T0和T1
  99.     ;
  100.     MOV   A,56H
  101.     CJNE  A,#0AAH,CSTART   ; 判上電復位標志，無標志轉冷啟動
  102.     MOV   A,57H
  103.     CJNE  A,#55H,CSTART    ; 無標志轉冷啟動
  104.     AJMP  HSTART           ; 有上電復位標志轉熱啟動
  105.     NOP
  106.     NOP
  107.     LJMP  ERR              ; 軟件陷阱,引向出錯處理程序
  108. CSTART: MOV   P1,#0FFH         ; 冷啟動,全面初始化
  109.     MOV   P3,#0FFH
  110.     MOV   TCON,#00H        ; 計時停止
  111.     MOV   TL0,#0B0H        ; 賦中斷T0初值
  112.     MOV   TH0,#3CH
  113.     MOV   TCOUNT,#0AH      ; 賦定時器初值
  114.     MOV   R5,#00H          ; R5為一空單元(備用)
  115.     MOV   R4,#00H          ; R4 為工作模式選擇寄存器
  116.     MOV   SL,#00H          ; 定時單元清零
  117.     MOV   SH,#00H          ; 秒
  118.     MOV   ML,#00H          ;
  119.     MOV   MH,#00H          ; 分
  120.     MOV   HL,#00H          ;
  121.     MOV   HH,#00H          ; 時
  122.     MOV   PLYTS,#64H       ; 賦顯示次數(shù)初值為100次
  123.     MOV   DSPLYP,#L0       ; 顯示指針指向顯存單元
  124.     MOV   L0,#0AH          ; 送顯示數(shù)據(jù)"-----"
  125.     MOV   L1,#0AH
  126.     MOV   L2,#0AH
  127.     MOV   L3,#04H
  128.     SETB  LED4             ; LED4為數(shù)碼管之間的發(fā)光二極管
  129.     SETB  LPLMOD           ; 設定顯示方式為閃爍
  130.     SETB  HPLMOD           ;
  131.     SETB  BRIGHT           ; 允許顯示
  132.     CLR   WORKIN          ; 清工作標志 , 待命
  133.     AJMP  SETUP            ; 轉開始工作
  134.     NOP
  135.     NOP
  136.     LJMP  ERR              ; 軟件陷阱
  137. HSTART: MOV   SCON,#00H        ; 有上電標志,熱啟動,清串行口控制寄存器
  138.     MOV   IP,#00H          ; 清中斷優(yōu)先控制寄存器
  139.     SETB  FKEY             ; 重設按鍵
  140.     SETB  MKEY
  141.     SETB  EA               ; 開中斷
  142.     AJMP  BEGIN            ; 轉向繼續(xù)工作
  143.     NOP
  144.     NOP
  145.     LJMP  ERR              ; 軟件陷阱
  146. SETUP:  SETB  EA               ; 開中斷
  147. ;
  148. MAIN1:  ACALL DISPLY           ; 調用顯示
  149.     JB    FKEY,JUDGE       ; 按鍵掃描
  150.     ACALL KEYDLY           ; 延時消抖動
  151.     JB    FKEY,JUDGE       ; 無鍵按下轉向判斷是否到點
  152.     CLR   ET0              ; 功能鍵被按下,則
  153.     CLR   TR0          ; 暫停計時
  154.     ACALL MENU             ; 調用菜單設置程序
  155. BEGIN:  SETB  WORKIN           ; 置工作標志位,開始工作
  156.     SETB  ET0              ; 開中斷
  157.     SETB  TR0              ; 開始計時
  158.     MOV   A,R4             ; 移入工作模式選擇
  159.     RL    A         ; 指針放大
  160.     MOV   DPTR,#M_TAB
  161.     JMP   @A+DPTR          ; 根據(jù)工作模式跳轉到相應程序段
  162. M_TAB:  AJMP  WORK1
  163.     AJMP  WORK2
  164.     AJMP  WORK3
  165.     AJMP  WORK4
  166.     NOP
  167.     NOP
  168.     LJMP  ERR              ; 軟件陷阱
  169. WORK1:  ;
  170. WORK2:  CLR   SWITCH           ; 工作方式1和2:開繼電器
  171.     AJMP  MAIN2
  172.     NOP
  173.     NOP
  174.     LJMP  ERR              ; 軟件陷阱
  175. WORK3:  ;
  176. WORK4:  SETB  SWITCH           ; 工作方式3和4:不開繼電器
  177. MAIN2:  CLR   BELL             ; 蜂鳴器短鳴一聲,以示開始工作
  178.     ACALL DL05S
  179.     SETB  BELL
  180. JUDGE:  JNB   WORKIN,MAIN1     ; 判斷是否在定時之中
  181.     MOV   A,SL             ; 判斷秒是否為零
  182.     JNZ   MAIN1
  183.     MOV   A,SH             ; 判斷秒是否為零
  184.     JNZ   MAIN1
  185.     MOV   A,ML             ; 判斷分是否為零
  186.     JNZ   MAIN1
  187.     MOV   A,MH             ; 判斷分是否為零
  188.     JNZ   MAIN1
  189.     MOV   A,HL             ; 判斷時是否為零
  190.     JNZ   MAIN1
  191.     MOV   A,HH             ; 判斷時是否為零
  192.     JNZ   MAIN1            ; 若時分秒全為零則
  193.     CLR   ET0              ; 停止計時
  194.     CLR   TR0              ;


  197.     ACALL ACTION          ; 調用到點工作子程序

  199.     AJMP  MAIN             ; 返回
  200.     NOP
  201.     NOP
  202.     LJMP  ERR              ; 軟件陷阱
  203.     ;
  204. ;******************
  205. ;    倒計時程序   ;
  206. ;******************
  207. PGT0:   CLR   EA               ; 關中斷
  208.     PUSH  ACC          ; 保護現(xiàn)場
  209.     PUSH  PSW
  210.     PUSH  DPL
  211.     PUSH  DPH
  212.     MOV   PSW,#08H        ; 選用寄存器組1
  213.     CLR   TR0              ; 暫停計時
  214.     MOV   A,#0B7H          ; 中斷同步修正
  215.     ADD   A,TL0
  216.     MOV   TL0,A
  217.     MOV   A,#3CH
  218.     ADD   A,TH0
  219.     MOV   TH0,A
  220.     SETB  TR0              ; 恢復計時
  221.     DEC   TCOUNT           ; 定時器T0每50 000毫秒溢出一次,則
  222.     MOV   A,TCOUNT         ; 溢出10次為0.5秒
  223.     JNZ   OUTT0        ; 判斷是否到半秒
  224.     MOV   TCOUNT,#0AH      ;
  225.     CPL   LED4         ; 若到半秒LED取反
  226.     JNB   LED4,OUTT0       ; LED每閃爍一次是一秒
  227.     MOV   R0,#SH           ; 移入秒位的地址
  228.     SETB  IFDEC            ; BCD子程序參數(shù),使其做減法
  229.     ACALL ADDBCD           ; 調用BCD子程序, 秒減1
  230.     CJNE  R3,#99H,OUTT0    ; 判斷秒要否借位
  231.     MOV   SH,#05H          ; 要借位則
  232.     MOV   SL,#09H          ; 送數(shù)據(jù)59(否則顯示99)
  233.     MOV   R0,#MH           ; 移入分位的地址
  234.     ACALL ADDBCD          ; 分減1
  235.     CJNE  R3,#99H,OUTT0    ; 判斷分要否借位
  236.     MOV   MH,#05H
  237.     MOV   ML,#09H
  238.     MOV   R0,#HH
  239.     ACALL ADDBCD
  240. OUTT0:  POP   DPH         ; 恢復現(xiàn)場
  241.     POP   DPL
  242.     POP   PSW
  243.     POP   ACC
  244.     SETB  EA

  246.     RETI                   ; 中斷返回
  247.     NOP
  248.     NOP
  249.     LJMP ERR               ; 軟件陷阱
  250.     ;
  251. ;
  252. ;**************************
  253. ;   BCD子程序(加1或減1 )  ;
  254. ;**************************
  255. ADDBCD: MOV   A,@R0            ; 移入被操作數(shù)的高位
  256.     DEC   R0               ; 指針減一
  257.     SWAP  A
  258.     ORL   A,@R0            ; 移入被操作數(shù)的低位
  259.     MOV   B,#01H           ; B寄存器送立即數(shù)#01H
  260.     MOV   C,IFDEC          ; 若減法標志位為1,則
  261.     MOV   B.3,C            ;
  262.     MOV   B.4,C            ; B寄存器的值被改為#99H
  263.     MOV   B.7,C            ;
  264.     ADD   A,B              ; 對一個壓縮的BCD碼加#99H等于對其減一
  265.     DA    A                ; BCD碼調整
  266.     MOV   R3,A             ; 暫存結果
  267.     ANL   A,#0FH           ; 取低位碼
  268.     MOV   @R0,A            ; 存數(shù)
  269.     MOV   A,R3             ; 取回結果
  270.     INC   R0               ; 指針加一
  271.     SWAP  A                ; 交換
  272.     ANL   A,#0FH           ; 取結果數(shù)的高位
  273.     MOV   @R0,A            ; 存數(shù)
  274.     RET
  275.     NOP
  276.     NOP
  277.     LJMP  ERR              ; 軟件陷阱
  278. ;
  279. ;**************
  280. ;   加1程序   ;
  281. ;**************
  282. ADDONE: MOV   R0,ADDRES        ; 移入被加數(shù)單元的地址
  283.     CLR   IFDEC            ; 設定BCD子程序做加法
  284.     ACALL ADDBCD           ; 調用BCD子程序
  285.     CLR   C                ; 判斷被加數(shù)是否大于
  286.     MOV   A,R3             ; 最大值"MAX"
  287.     CJNE  A,MAX,JGOVER
  288. JGOVER: JC    ENDADO
  289.     CLR   A                ; 若大于"MAX",則清零
  290.     MOV   @R0,A
  291.     DEC   R0
  292.     MOV   @R0,A
  293. ENDADO: RET
  294.     NOP
  295.     NOP
  296.     LJMP  ERR              ; 軟件陷阱
  297. ;
  298. ;******************
  299. ;   調時快進程序  ;
  300. ;******************
  301. QUICK:  CLR   LPLMOD         ; 設定顯示方式不閃爍
  302.     CLR   HPLMOD
  303.     ACALL ADDONE           ; 調用加1子程序
  304.     MOV   L0,R4            ; 將工作模式選擇數(shù)移入顯存
  305.     INC   L0               ; 加1轉化成顯示值
  306.     ACALL KEYDLY           ; 延時
  307.     ACALL DL100
  308.     JNB   MKEY,QUICK       ; 判斷鍵是否松開
  309.     SETB  LPLMOD           ; 若松開則恢復閃爍顯示方式
  310.     CJNE  R6,#02H,ENDQUK
  311.     SETB  HPLMOD
  312.     CLR   LPLMOD
  313. ENDQUK: RET
  314.     NOP
  315.     NOP
  316.     LJMP  ERR              ; 軟件陷阱
  317. ;
  318. ;
  319. ;******************
  320. ;   功能菜單程序  ;
  321. ;******************
  322. MENU:   MOV   R6,#00H        ; 初始化;  R6 計功能鍵按鍵次數(shù)
  323.     MOV   ADDRES,#05H      ; 將 R5 的地址送入，以便于改變 R4 的值
  324.     MOV   MAX, #04H        ; 定義工作模式選擇寄存器R4 的最大值
  325.     MOV   DSPLYP,#L0       ; 定義顯示指針指向顯存
  326.     SETB  LPLMOD          ; 設定低兩位數(shù)閃爍
  327.     CLR   HPLMOD
  328.     MOV   L0,R4            ; 送顯示數(shù)據(jù)"F-0X"
  329.     INC   L0
  330.     MOV   L1,#00H
  331.     MOV   L2,#0BH
  332.     MOV   L3,#00H
  333.     SETB  LED4
  334. ;
  335. WAITFK: ACALL DISPLY           ; 等待F鍵釋放
  336.         JNB   FKEY,WAITFK
  337. MENU1:  ACALL DISPLY
  338.     JB    MKEY,JGFKEY      ; M鍵掃描
  339.     ACALL KEYDLY           ; 延時消抖動
  340.     JB    MKEY,JGFKEY      ; 未按下則轉F鍵掃描
  341.     CJNE  R6,#00H,NEXT1    ;
  342.     MOV   SL,#00H          ; 若中途改變定時方式,則清除原計時數(shù)據(jù)
  343.     MOV   SH,#00H
  344.     MOV   ML,#00H
  345.     MOV   MH,#00H
  346.     MOV   HL,#00H
  347.     MOV   HH,#00H
  348. NEXT1:  MOV   R2,#00H          ; R2用于判斷按鍵時間是否超過0.5秒
  349. NEXT2:  ACALL ADDONE           ; 調用加1程序
  350.     MOV   L0,R4            ; 移入工作方式選擇數(shù)
  351.     INC    L0
  352.     ;
  353. WAITMK: ACALL DISPLY         ; 等待M鍵釋放
  354.     INC   R2               ; R2自增一
  355.     CLR   C
  356.     CJNE  R2,#0C8H,JGQUIC  ; 若R2大于等于200則調用快進子程序
  357. JGQUIC: JC    WATMK1
  358.         ACALL QUICK
  359. WATMK1: JNB   MKEY,WAITMK      ; R2小于200則等待M鍵釋放
  360. ;
  361. JGFKEY: JB    FKEY,MENU1       ; 功能(F)鍵掃描
  362.     ACALL KEYDLY           ; 延時消抖動
  363.     JB    FKEY,MENU1       ; 鍵未按下則轉修改(M)鍵掃描
  364.     INC   R6               ; F鍵按鍵次數(shù)加1
  365.     MOV   A,R6             ; 移入按鍵次數(shù)
  366.     RL    A            ; 指針放大
  367.     MOV   DPTR,#FUNTAB
  368.     JMP   @A+DPTR          ; 根據(jù)按鍵次數(shù)跳轉到相應的程序段
  369. FUNTAB: AJMP  WAITFK
  370.     AJMP  SETLOW
  371.     AJMP  SETHI
  372.     AJMP  ENDMEN
  373.     NOP
  374.     NOP
  375.     AJMP  ENDMEN
  376. ;STWKMD:                       ; 工作模式設定,不需另外改變菜單
  377. ;
  378. SETLOW: MOV   MAX,#60H         ; 設置低位(秒位或分位)
  379.     MOV   A,R4             ; 移入工作模式選擇數(shù)
  380.     RL    A            ; 指針放大
  381.     MOV   DPTR,#FTAB1
  382.     JMP   @A+DPTR          ; 根據(jù)工作模式選擇數(shù)跳轉到相應的程序段
  383. FTAB1:  AJMP  SETSS
  384.     AJMP  SETM60
  385.     AJMP  SETSS
  386.     AJMP  SETM60
  387.     NOP
  388.     NOP
  389.     AJMP  WAITFK
  390. SETSS:    MOV   DSPLYP,#SL       ; 設定顯示區(qū)域為MM:SS
  391.     MOV   ADDRES,#SH
  392.     AJMP  WAITFK
  393. SETM60:   MOV   DSPLYP,#ML       ; 設定顯示區(qū)域為HH:MM
  394.     MOV   ADDRES,#MH
  395.     AJMP  WAITFK
  396. ;
  397. SETHI:    CLR   LPLMOD           ; 設置高位(分位或時位)
  398.     SETB  HPLMOD           ; 高兩位數(shù)碼管閃爍
  399.     MOV   MAX,#31H         ; 最大數(shù)為30
  400.     MOV   A,R4             ; 移入工作模式選擇數(shù)
  401.     RL    A                ; 指針放大
  402.     MOV   DPTR,#FTAB2      ; 移入表首地址
  403.     JMP   @A+DPTR          ; 根據(jù)工作模式選擇數(shù)跳轉到相應的程序段
  404. FTAB2:  AJMP  SETM30
  405.     AJMP  SETHH
  406.     AJMP  SETM30
  407.     AJMP  SETHH
  408.     NOP
  409.     NOP
  410.     AJMP  WAITFK           ; 返回等待鍵釋放
  411. SETM30: MOV   ADDRES,#MH       ; 移入分位的地址
  412.         AJMP  WAITFK           ; 轉向等待鍵釋放
  413. SETHH:  MOV   ADDRES,#HH       ; 移入時位的地址
  414.     AJMP  WAITFK           ; 轉向等待鍵釋放
  415. ;
  416. ENDMEN: CLR   HPLMOD           ; 恢復不閃爍顯示方式
  417.     RET
  418.     NOP
  419.     NOP
  420.     LJMP  ERR              ; 軟件陷阱
  421. ;
  422. ;****************
  423. ;  到點工作程序 ;
  424. ;****************
  425. ACTION: MOV   L0,R4            ; 移入工作模式選擇數(shù)
  426.     INC   L0               ; 送顯示數(shù)"F-0X"
  427.     MOV   L1,#00H
  428.     MOV   L2,#0BH
  429.     MOV   L3,#00H
  430.     SETB  LED4
  431.     MOV   DSPLYP,#L0       ; 指針指向顯存
  432.     SETB  LPLMOD           ; 設定顯示方式不閃爍
  433.     SETB  HPLMOD
  434.     MOV   A,R4             ; 移入工作模式選擇數(shù)
  435.     RL    A                ;
  436.     MOV   DPTR,#A_TAB
  437.     JMP   @A+DPTR          ; 根據(jù)工作模式選擇數(shù)跳轉
  438. A_TAB:  AJMP  ACTF1            ; 工作模式一
  439.     AJMP  ACTF1            ; 工作模式二
  440.     AJMP  ACTF3            ; 工作模式三
  441.     AJMP  ACTF3            ; 工作模式四
  442.     NOP
  443.     NOP
  444.     LJMP  ERR              ; 軟件陷阱
  445. ACTF1:  SETB  SWITCH           ; 工作模式一(或二): 開繼電器
  446. LJMP AAA
  447.     BBB: MOV   R_MOD,#82H       ; 響鈴模式參數(shù)#82H
  448.     MOV   R2,#96H          ; 響鈴次數(shù)參數(shù)#96H
  449. ACTF11: ACALL RING           ; 調用響鈴子程序
  450.     JNB   MKEY,ENDACT      ; 等待鍵按下
  451.     JNB   FKEY,ENDACT      ; 有鍵按下則結束響鈴
  452.     DJNZ  R2, ACTF11       ; 次數(shù)未滿繼續(xù)響鈴
  453.     MOV   R_MOD,#0FFH      ; 參數(shù)#0FF使響鈴無效
  454.     AJMP  ACTF11           ; 無鍵按下返回
  455.     NOP
  456.     NOP
  457.     LJMP  ERR              ; 軟件陷阱
  458. ACTF3:  CLR   SWITCH           ; 工作模式三(或四): 開繼電器
  459.     CLR   BELL             ; 蜂鳴器短鳴一聲
  460.     ACALL DL1S
  461.     SETB  BELL
  462.     MOV   R_MOD,#0FFH      ; 響鈴模式參數(shù)#0FFH
  463.     MOV   R2,#96H          ; 響鈴時間參數(shù)#96H
  464. ACTF31: ACALL RING        ; 調用響鈴子程序
  465.     JNB   MKEY,ENDACT      ; 等待鍵按下
  466.     JNB   FKEY,ENDACT      ; 有鍵按下則結束
  467.     DJNZ  R2,ACTF31        ; 次數(shù)未滿繼續(xù)
  468.     MOV   R2,#96H          ; 重新賦值
  469.     CLR   BELL             ; 短鳴一聲(說明: 響鈴模式參數(shù)#0FFH使
  470.     ACALL DL100            ; 響鈴程序無效,僅起延時作用,
  471.     SETB  BELL             ; 每延時一段時間短鳴一聲,以
  472.     AJMP  ACTF31           ; 提醒使用者繼電器仍在工作)
  473.     NOP
  474.     NOP
  475.     LJMP  ERR              ; 軟件陷阱
  476. ENDACT: SETB  SWITCH           ; 關繼電器
  477. AWAITF: ACALL DISPLY           ; 調用顯示
  478.         JNB   FKEY,AWAITF      ; 等待鍵釋放
  479. AWAITM: ACALL DISPLY           ; 調用顯示
  480.     JNB   MKEY,AWAITM      ; 等待鍵釋放
  481.     RET
  482.     NOP
  483.     NOP
  484.     LJMP  ERR              ; 軟件陷阱
  485.     ;
  486. ;**************
  487. ;   響鈴程序  ;
  488. ;**************
  489. RING:   MOV   R5,#18H          ; R5為循環(huán)控制變量
  490. RING1:  JNB   MKEY,R_EXIT      ; 鍵掃描
  491.     JNB   FKEY,R_EXIT      ; 有鍵按下則退出
  492.     MOV   A,R_MOD          ; 移入響鈴模式參數(shù)
  493.     MOV   C,ACC.7          ; 根據(jù)響鈴模式參數(shù)改變響鈴
  494.     MOV   BELL,C
  495.     RL    A
  496.     MOV   R_MOD,A
  497.     ACALL DL100            ; 延時
  498.     DJNZ  R5,RING1         ; 循環(huán)次數(shù)控制
  499. R_EXIT: SETB  BELL             ; 關閉響鈴
  500.     RET
  501.     NOP
  502.     NOP
  503.     LJMP ERR               ; 軟件陷阱
  504. ;
  505. ;**************
  506. ;   顯示程序  ;
  507. ;**************
  508. DISPLY: PUSH  ACC              ; 數(shù)據(jù)壓棧保護
  509.     PUSH  PSW
  510.     MOV   PSW,#10H         ; 選用寄存器組2
  511.     MOV   R0,DSPLYP        ; 移入顯示指針
  512.     MOV   R2,#0FDH         ; R2寄存的是數(shù)碼管選通數(shù)
  513.     MOV   A,PLYTS          ; 移入顯示循環(huán)控制量
  514.     JNZ   PLAY             ; 不為0則轉PLAY
  515.     MOV   PLYTS,#64H       ; 否則從新賦值
  516.     CPL   BRIGHT           ; 亮滅指示位取反
  517. PLAY:   DEC   PLYTS            ; 顯示循環(huán)控制量減1
  518.     JNB   LPLMOD,PLAYL     ; 低兩位數(shù)碼管不閃則"PLAYL"
  519.     JB    BRIGHT,PLAYL     ; 亮滅指示為1也"PLAYL"
  520.     ACALL NOPLAY           ; 否則滅燈延時
  521.     AJMP  PLAY1            ; 轉顯示高位數(shù)碼管
  522.     NOP
  523.     NOP
  524.     LJMP ERR               ; 軟件陷阱
  525. ;用來顯示低位
  526. PLAYL:  ORL   P1,#7FH          ; 清原顯示數(shù)據(jù)
  527.     ORL   P3,#3CH          ; 清原選通數(shù)據(jù)
  528.     MOV   A,R2             ; 移入數(shù)碼管位選數(shù)
  529.     RL    A                ; 換一位
  530.     ANL   P3,A             ; 選通低位的個位數(shù)碼管
  531.     MOV   R2,A             ; 暫存位選數(shù)
  532.     MOV   A,@R0            ; 移入顯示數(shù)值
  533.     MOV   DPTR,#TABLE1     ; 移入表首地址
  534.     MOVC  A,@A+DPTR        ; 查表
  535.     ANL   P1,A             ; 送顯示數(shù)據(jù)
  536.     ACALL DL1MS            ; 延時
  537.     INC   R0               ; 指向低位的十位數(shù)
  538.     JB    P3.3,PLAYL       ; 顯示低位的十位數(shù)
  539. ;
  540. PLAY1:  JNB   HPLMOD,PLAYH     ; 高兩位數(shù)碼管不閃則"PLAYH"
  541.     JB    BRIGHT,PLAYH     ; 亮滅指示為1也"PLAYH"
  542.     ACALL NOPLAY           ; 否則滅燈延時
  543.     AJMP  OUTPLY           ; 轉結束
  544.     NOP
  545.     NOP
  546.     LJMP ERR               ; 軟件陷阱
  547. ;
  548. ;用來顯示高位
  549. PLAYH:  ORL   P1,#7FH          ; 清原顯示數(shù)據(jù)
  550.     ORL   P3,#3CH          ; 清原選通數(shù)據(jù)
  551.     ANL   P3,#0EFH         ; 選通高位的個位數(shù)數(shù)碼管
  552.     MOV   A,@R0            ; 移入顯示數(shù)值
  553.     MOV   DPTR,#TABLE1     ; 移入表首地址
  554.     MOVC  A,@A+DPTR        ; 查表
  555.     ANL   P1,A             ; 送顯示數(shù)據(jù)
  556.     ACALL DL1MS            ; 延時
  557.     INC   R0               ; 指向高位的十位數(shù)
  558.     ;                      ; 顯示高位的十位數(shù)
  559.     ORL   P1,#7FH          ; 清原顯示數(shù)據(jù)
  560.     ORL   P3,#3CH          ; 清原選通數(shù)據(jù)
  561.     ANL   P3,#0DFH         ; 選通高位的十位數(shù)
  562.     MOV   A,@R0            ; 移入顯示數(shù)值
  563.     MOV   C,LED4          ; 指針放大＋小燈狀態(tài)
  564.     RLC   A                ;
  565.     MOV   DPTR,#TABLE2     ; 移入表首地址
  566.     MOVC  A,@A+DPTR        ; 查表
  567.     ANL   P1,A             ; 送顯示數(shù)據(jù)
  568.     ACALL DL1MS            ; 延時
  569. ;
  570. OUTPLY: POP   PSW              ; 恢復數(shù)據(jù)
  571.     POP   ACC
  572.     RET
  573.     NOP
  574.     NOP
  575.     LJMP ERR               ; 軟件陷阱
  576. ;
  577. TABLE1: DB  0C0H,0F9H,0A4H,0B0H, 99H, 92H, 82H,0F8H, 80H, 90H,0BFH, 8EH,0FFH
  578. ;           "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "-", "F", " "
  579. ;
  580. TABLE2: DB  0FFH, 0DFH, 0F9H, 0D9H, 0A4H,  84H, 0B0H,  90H, 0BFH, 09FH
  581. ;    "  ",  " :",   "1 ",  "1:",  "2 ",    "2:",  "3 ",  "3:",  "- ",  "-:"
  582. ;
  583. ;
  584. ;
  585. ;**********************
  586. ;    無顯示(滅燈)程序   ;
  587. ;**********************
  588. NOPLAY: ORL   P1,#7FH          ; 清顯示數(shù)據(jù)
  589.     ORL   P3,#3CH          ; 清選通數(shù)據(jù)
  590.     INC   R0               ; 指針自增2
  591.     INC   R0
  592.     ACALL DL1MS            ; 延時
  593.     RET
  594.     NOP
  595.     NOP
  596.     LJMP  ERR              ; 軟件陷阱
  597.     ;
  598. ;******************
  599. ;     延時程序    ;
  600. ;******************
  601. DL1MS:  MOV   R3,#0F9H         ; 延時 1250US  只為DISPLY所調用
  602. DL1MS1: NOP
  603.     NOP
  604.     NOP
  605.     DJNZ  R3,DL1MS1
  606.     RET
  607.     NOP
  608.     NOP
  609.     LJMP  ERR              ; 軟件陷阱
  610.     ;
  611. KEYDLY: CLR   BELL        ; 按鍵消抖動專用延時程序,
  612.     ACALL DISPLY           ; 在消除抖動的同時發(fā)出按鍵提示音
  613.     SETB  BELL
  614.     RET
  615.     NOP
  616.     NOP
  617.     LJMP ERR               ; 軟件陷阱
  618. ;
  619. DL50MS: MOV   R7,#0AH          ; 50毫秒延時程序
  620. DL50M1: ACALL DISPLY         ; 每調用一次顯示程序5MS
  621.     DJNZ  R7,DL50M1        ; 調用10次
  622.     RET
  623.     NOP
  624.     NOP
  625.     LJMP  ERR              ; 軟件陷阱
  626. ;
  627. DL100:  ACALL DL50MS           ; 延時100毫秒
  628.     ACALL DL50MS
  629.     RET
  630.     NOP
  631.     NOP
  632.     LJMP  ERR              ; 軟件陷阱
  633. ;
  634. DL05S:  ACALL DL100            ; 延時0.5秒
  635.     ACALL DL100
  636.     ACALL DL100
  637.     ACALL DL100
  638.     ACALL DL100
  639.     RET
  640.     NOP
  641.     NOP
  642.     LJMP  ERR              ; 軟件陷阱
  643.     ;
  644. DL1S:   ACALL DL05S            ; 延時1秒
  645.     ACALL DL05S
  646.     RET
  647.     NOP
  648.     NOP
  649.     LJMP  ERR              ; 軟件陷阱
  650.     ;
  651. ;****************************
  652. ;     ERR(出錯處理) 程序    ;
  653. ;****************************
  654. ERR:    CLR   EA               ; 關中斷
  655.     MOV   DPTR,#ERR1       ; 準備返回地址
  656.     PUSH  DPL              ; 壓棧
  657.     PUSH  DPH              ;
  658.     RETI                   ; 中斷返回
  659. ERR1:   MOV   56H,#0AAH        ; 建立上電標志(出錯標志)
  660.     MOV   57H,#55H
  661.     MOV   A,#00H           ; 準備返回地址
  662.     PUSH  ACC              ; 壓棧
  663.     PUSH  ACC
  664.     RETI                   ; 中斷返回
  665.     NOP
  666.     NOP
  667.     LJMP  ERR              ; 軟件陷阱
  668. ;
  669.     ORG   07FAH
  670.     NOP
  671.     NOP
  672.     NOP
  673.     LJMP  ERR              ; 軟件陷阱
  674.     ;AAA:JNB P0.6,CCC
  675.     ;CCC:LJMP YINYUE

  677.                           ;LJMP DIANZIQIN
  678.                   DIANZIQIN:;MOV P0,#00H
  679.                          ;clr p3.6
  680.                         ;setb P0.1
  681.                          SETB EA
  682.                          SETB ET1                       ;計數(shù)器0
  683.                          MOV TMOD,#20H
  684.                          MOV TH1,#09CH
  685.                          MOV TL1,#09CH                 ;定時器初植
  686.                          CLR TR1                        ;定時器不允許
  687.                   SCAN:                                 ;鍵盤掃描
  688.                          MOV A,P2                   ;判斷鍵盤按下，跳到SCAN_1，若未按，繼續(xù)掃描
  689.                          CJNE A,#0FFH,SCAN_1
  690.                          NOP

  692.                          SJMP SCAN
  693.                   SCAN_1:
  694.                          ACALL DELAY ;是不是真的要按下？如果是，則跳轉SU_KEY查詢是哪個按下？
  695.                          MOV A,P2
  696.                          CJNE A,#0FFH,SU_KEY
  697.                          NOP
  698.                          SJMP SCAN
  699.                   SU_KEY:JNB P0.6,LOOP11
  700.                          ;SJMP LOOP2
  701.                    ;LOOP11:LJMP AAA
  702.                          JNB P2.1,MU_1                  ;判斷是哪個鍵按下？
  703.                          JNB P2.2,MU_2
  704.                          JNB P2.3,MU_3
  705.                          JNB P2.4,MU_4
  706.                          JNB P2.5,MU_5
  707.                          JNB P2.6,MU_6
  708.                          JNB P2.7,MU_7
  709.                          SJMP SCAN
  710.                   LOOP11:LJMP AAA
  711.                                                            ;R1信號周期
  712.                   MU_1:  MOV R1,#19                ;如果第一個按鍵按下，則R1=19，同時程序轉NEXT
  713.                          SJMP NEXT
  714.                   MU_2:  MOV R1,#17
  715.                          SJMP NEXT
  716.                   MU_3:  MOV R1,#15
  717.                          SJMP NEXT
  718.                   MU_4:  MOV R1,#14
  719.                          SJMP NEXT
  720.                   MU_5:  MOV R1,#13
  721.                          SJMP NEXT
  722.                   MU_6:  MOV R1,#11
  723.                          SJMP NEXT
  724.                   MU_7:  MOV R1,#10
  725.                          SJMP NEXT
  726.                   NEXT:  MOV A,R1
  727.                          MOV R0,A
  728.                          SETB TR1                      ;啟動定時器0

  730.                   NEXT_1:MOV A,P2                     ; 沒鍵按下繼續(xù)執(zhí)行，有鍵按下，返回讀引腳
  731.                          CJNE A,#0FFH,NEXT_1
  732.                          ACALL DELAY
  733.                          MOV A,P2                       ;真的沒鍵按下？
  734.                          CJNE A,#0FFH,NEXT_1
  735.                          CLR TR1                        ;不響
  736.                          AJMP SCAN                     ;掃描鍵盤去
  737.                   INT_1:                                 ;中斷程序
  738.                         DJNZ R0,RE                      ;R0不等于0時，返回
  739.                         CPL P0.0
  740.                         MOV A,R1
  741.                         MOV R0,A
  742.                   RE:   RETI
  743.                   DELAY:MOV R7,#100                    ;延長時間等待，鍵盤消抖
  744.                   D1:   MOV R6,#10
  745.                   D2:   DJNZ R6,D2
  746.                         DJNZ R7,D1
  747.                         ;LJMP BBB
  748.                         RET


  751.      AAA:
  752.      SETB P3.6
  753. ;CLR P0.6
  754. MOV SP,#50H
  755. MOV TH1,#0D8H
  756. MOV TL1,#0EFH
  757. MOV TMOD,#10H
  758. MOV IE,#88H
  759. LJMP TIAO
  760. MUSIC0:;JB P0.6,QIN


  763. ;LJMP BBB
  764. TIAO:
  765. NOP
  766. MOV DPTR,#DAT ;表頭地址送DPTR
  767. MOV 20H,#00H ;中斷計數(shù)器清0
  768. MOV B,#00H ;表序號清0
  769. MUSIC1:
  770. ;JnB P0.1,duan
  771. NOP
  772. CLR A
  773. MOVC A,@A+DPTR ;查表取代碼
  774. JZ END0 ;是00H,則結束
  775. CJNE A,#0FFH,MUSIC5
  776. LJMP MUSIC3
  777. duan:ljmp BBB
  778. MUSIC5:
  779. NOP
  780. MOV R6,A
  781. INC DPTR
  782. MOV A,B
  783. MOVC A,@A+DPTR ;取節(jié)拍代碼送R7
  784. MOV R7,A
  785. SETB TR1 ;啟動計數(shù)
  786. MUSIC2:

  788. ;clr P3.6
  789. NOP
  790. CPL P0.0
  791. MOV A,R6
  792. MOV R3,A
  793. LCALL DEL
  794. MOV A,R7
  795. CJNE A,20H,MUSIC2 ;中斷計數(shù)器(20H)=R7否?
  796. ;不等,則繼續(xù)循環(huán)
  797. ;JB P0.6,QIN
  798. ;jb p0.6,QIN
  799. ;jnb p0.4,ting
  800. MOV 20H,#00H ;等于,則取下一代碼
  801. INC DPTR
  802.   ;JB P0.6,QIN
  803. ; INC B
  804. LJMP MUSIC1
  805. ;ting:ljmp BBB
  806. ;QIN:CLR TR1
  807. ;QIN:LJMP DIANZIQIN
  808. ;DIANZIQIN
  809. MUSIC3:
  810. NOP
  811. CLR TR1 ;休止100毫秒
  812. MOV R2,#0DH
  813. MUSIC4:
  814. NOP
  815. MOV R3,#0FFH
  816. LCALL DEL
  817. DJNZ R2,MUSIC4
  818. INC DPTR
  819. LJMP MUSIC1
  820. END0:
  821. NOP
  822. MOV R2,#64H ;歌曲結束,延時1秒后繼續(xù)
  823. MUSIC6:
  824. MOV R3,#00H
  825. LCALL DEL
  826. DJNZ R2,MUSIC6
  827. LJMP MUSIC0
  828. DEL:
  829. NOP
  830. DEL3:
  831. MOV R4,#02H
  832. DEL4:
  833. NOP
  834. DJNZ R4,DEL4
  835. NOP
  836. DJNZ R3,DEL3
  837. RET
  838. NOP
  839. DAT:
  840. db 26h,20h,20h,20h,20h,20h,26h,10h,20h,10h,20h,80h,26h,20h,30h,20h
  841. db 30h,20h,39h,10h,30h,10h,30h,80h,26h,20h,20h,20h,20h,20h,1ch,20h
  842. db 20h,80h,2bh,20h,26h,20h,20h,20h,2bh,10h,26h,10h,2bh,80h,26h,20h
  843. db 30h,20h,30h,20h,39h,10h,26h,10h,26h,60h,40h,10h,39h,10h,26h,20h
  844. db 30h,20h,30h,20h,39h,10h,26h,10h,26h,80h,26h,20h,2bh,10h,2bh,10h
  845. db 2bh,20h,30h,10h,39h,10h,26h,10h,2bh,10h,2bh,20h,2bh,40h,40h,20h
  846. db 20h,10h,20h,10h,2bh,10h,26h,30h,30h,80h,18h,20h,18h,20h,26h,20h
  847. db 20h,20h,20h,40h,26h,20h,2bh,20h,30h,20h,30h,20h,1ch,20h,20h,20h
  848. db 20h,80h,1ch,20h,1ch,20h,1ch,20h,30h,20h,30h,60h,39h,10h,30h,10h
  849. db 20h,20h,2bh,10h,26h,10h,2bh,10h,26h,10h,26h,10h,2bh,10h,2bh,80h
  850. db 18h,20h,18h,20h,26h,20h,20h,20h,20h,60h,26h,10h,2bh,20h,30h,20h
  851. db 30h,20h,1ch,20h,20h,20h,20h,80h,26h,20h,30h,10h,30h,10h,30h,20h
  852. db 39h,20h,26h,10h,2bh,10h,2bh,20h,2bh,40h,40h,10h,40h,10h,20h,10h
  853. db 20h,10h,2bh,10h,26h,30h,30h,80h,00H

  855. END
復制代碼









歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1