//
//************************************************
//
//  downloading programm for channl3
//  COMMON MODUL FOR ALL APPLICATIONS
//************************************************
//  USING
//      s12
//
//          1111111111222222222233333333334444444444555555555566666666667
//01234567890123456789012345678901234567890123456789012345678901234567890
//EA-GEN  3<3dddddddddddddddddddddddddddddddddddddddddd
//           -data for rd and wr
//          --sender kennung bei intermodultransfer
//        ----eigene modulnummer
//------------filename
//
        setbaud 1,2400,8,n,1    ;Modul Default
//        mode_opi
	mode_reco
        movd    "AFS-COM 3<3 Buffer output raedy V 1.0/l/n",s12,0
        out     s12,0,c4
        setl    11,1
//
//**********************************************************
//
start_0:
//
//**********************************************************
//
no_opi:
        sett    10
no_opi_1:
        wait    tf_sign,im_sign
        case    im_sign,test_buffer
        in      s12,10
        jnz     no_opi
        compd   "SH",s12,11
        jnz     no_opi_err
        //
        ansd    "3OK/n"
        jmp     no_opi
//
no_opi_err:
        out     s12,0,c4
        movd    "ERR_CMD/n",s12,11
        out     s12,0,c4
        anss    s12,10
        jmp     no_opi
//
test_buffer:
        readb   s12,0,0       ;send printout to printer
        jz      no_opi
        out     s12,0,c5
        sett    1
        jmp     no_opi_1
//
//
zzz_end:
//
end