//
//************************************************
//
//  downloading programm for channl1
//  PROJEKT: Notruf Landesgericht Salzburg
//
//************************************************
//   using: str 1 for work
//
#define working         s1,0
#define buffer          1
#define m_led           9
//
//
        setbaud 1,9600,8,n,1    //Modul Default
        mode_reco
        movd    "LGNOTR 1<1 LG-Notruf Modul 1 V1.0 ready!/n",working
        out     working,c4
        sett    20
        wait    tf_sign
//
//**********************************************************
//
main:
        setl    m_led,1
        setrts  off
        sett    10
        wait    tf_sign,ans_sign
        case    tf_sign,test_buffer
        readb   working,buffer
        jz      main
//
        jmp     test_buffer1
//
test_buffer:
        clear   ans_sign
        readb   working,buffer
        jz      main
test_buffer1:
        compd   "START",working
        jz      notruf_start
//
        compd   "STOP",working
        jz      main
        wrs     working,100
        wrchar  ^J
        jmp     test_buffer
//
//***********************************************
//
notruf_start:
main_on:
        setl    m_led,2
        setrts  on
        sett    10
        wait    tf_sign,ans_sign
        case    tf_sign,test_buffer_on
        movd    "^G^G^G/n",working
        wrs     working,3
        readb   working,buffer
        jz      main_on
//
        jmp     test_buffer1_on
//
test_buffer_on:
        clear   ans_sign
        readb   working,buffer
        jz      main_on
test_buffer1_on:
        compd   "STOP",working
        jz      main
//
        compd   "START",working
        jz      main_on
        wrs     working,100
        wrchar  ^J
        jmp     test_buffer_on
//
//***********************************************
//
zzz_end:
//
end