At89s51 microcontroller based annunciation system with led display

Discussion in 'Embedded Systems and Microcontrollers' started by varalakshmisethepalli, Mar 14, 2010.

  1. varalakshmisethepalli

    Thread Starter New Member

    Mar 14, 2010
    1
    0
    this circuit uses AT89S51 MICROCONTROLLER.and voice chip APR9600.PLZ SEND ME THE LANGUAGE OF THE CODE AND DETAILS FOR UNDERSTANDING THAT CODE.
    Include $regfile
    Include Reg51.dat

    'Trigger input
    Inp1 Var P0.0
    Inp2 Var P0.1
    Inp3 Var P0.2
    Inp4 Var P0.3
    Inp5 Var P0.4
    Inp6 Var P0.5
    Inp7 Var P0.6
    Inp8 Var P0.7

    'LED - Outputs
    Ledout Var P1
    Led1 Var P1.0
    Led2 Var P1.1
    Led3 Var P1.2
    Led4 Var P1.3
    Led5 Var P1.4
    Led6 Var P1.5
    Led7 Var P1.6
    Led8 Var P1.7
    ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    'Voice Outputs
    Trig1 Var P2.0
    Trig2 Var P2.1
    Trig3 Var P2.2
    Trig4 Var P2.3
    Trig5 Var P2.4
    Trig6 Var P2.5
    Trig7 Var P2.6
    Trig8 Var P2.7

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

    Main

    Temp = 0

    Do

    If Inp1 = 0 Then Goto Msg_1
    If Inp2 = 0 Then Goto Msg_2
    If Inp3 = 0 Then Goto Msg_3
    If Inp4 = 0 Then Goto Msg_4
    If Inp5 = 0 Then Goto Msg_5
    If Inp6 = 0 Then Goto Msg_6
    If Inp7 = 0 Then Goto Msg_7
    If Inp8 = 0 Then Goto Msg_8

    End If

    Loop


    Msg_1

    Reset Led1 : Reset Trig1
    Incr Temp
    If Temp = 15 Then Goto Alarmmode
    Bitwait Reset_sw , Reset
    Set P1 : Set P2 : Reset Bz : Reset Relay
    Goto Main
    End If

    Msg_2
    Reset Led2 : Reset Trig2
    Incr Temp
    If Temp = 15 Then Goto Alarmmode
    Bitwait Reset_sw , Reset
    Set P1 : Set P2 : Reset Bz : Reset Relay
    Goto Main
    End If

    Msg_3
    Reset Led3 : Reset Trig3
    Incr Temp
    If Temp = 15 Then Goto Alarmmode
    Bitwait Reset_sw , Reset
    Set P1 : Set P2 : Reset Bz : Reset Relay
    Goto Main
    End If


    Msg_4
    Reset Led4 : Reset Trig4
    Incr Temp
    If Temp = 15 Then Goto Alarmmode
    Bitwait Reset_sw , Reset
    Set P1 : Set P2 : Reset Bz : Reset Relay
    Goto Main
    End If

    Msg_5
    Reset Led5 : Reset Trig5
    Incr Temp
    If Temp = 15 Then Goto Alarmmode
    Bitwait Reset_sw , Reset
    Set P1 : Set P2 : Reset Bz : Reset Relay
    Goto Main
    End If

    Msg_6
    Reset Led6 : Reset Trig6
    Incr Temp
    If Temp = 15 Then Goto Alarmmode
    Bitwait Reset_sw , Reset
    Set P1 : Set P2 : Reset Bz : Reset Relay
    Goto Main
    End If

    Msg_7
    Reset Led7 : Reset Trig7
    Incr Temp
    If Temp = 15 Then Goto Alarmmode
    Bitwait Reset_sw , Reset
    Set P1 : Set P2 : Reset Bz : Reset Relay
    Goto Main
    End If

    Msg_8
    Reset Led8 : Reset Trig8
    Incr Temp
    If Temp = 15 Then Goto Alarmmode
    Bitwait Reset_sw , Reset
    Set P1 : Set P2 : Reset Bz : Reset Relay
    Goto Main
    End If

    Alarmmode
    Set Relay
    Set Bz
    Bitwait Reset_sw , Reset
    Set P1 : Set P2 : Reset Bz : Reset Relay
    Goto Main
     
Loading...