oRG    0000H

  MAIN: MOV    SP,#65H

    HP: CLR    24H          ;清呼叫標志位

        JNB    P3.3,MONK    ;摘機呼叫無效

        JB     P1.7,MONK    ;呼叫檢測

SETB   24H          ;置呼叫標志位 

        LJMP   DSH30s       

  MONK: JB     P1.3,HP      ;主動監視檢測

DSH30s: CLR    P1.6         ;允許對講和視頻顯示

        MOV    75H,#40      ;30s定時

   DSH: MOV    76H,#150

  DSH1: JNB    24H,DLY      ;呼叫定時判斷

        JNB    P3.3,SPK     ;摘機檢測,若摘機則轉允許通話

   DLY: CALL   DELY5ms      ;調5ms定時

        DJNZ   76H,DSH1

        DJNZ   75H,DSH

   CVS: SETB   P1.6         ;定時到,未摘機則關視頻和對講

        LJMP   HP           

   SPK: CLR    24H          

UNLK: JB     P1.4,HP1     ;開鎖檢測

        CLR    P1.5         ;輸出開鎖信號

        CALL   DELY5ms     

        SETB   P1.5         ;恢復通話

   HP1: JNB    P3.3,UNLK    ;掛機檢測

        LJMP   CVS

DELY5ms: MOV   73H,#13      ; 5ms定時

   DLY1: MOV   74H,#191

         DJNZ  74H,$

         DJNZ  73H,DLY1

         RET