;
; call generator fuer bdi-buffer testing
;
setbaud 1,9600,8,n,1
mode_reco
;
start_0:
        movd    "C245 027587669812xxxx0000013401131 000             /n",s7,0
        setl    8,1
        setc    0,0
        ;
gen_call_0:
        sett    50
        wait    tf_sign
        movc    0,s7,23
        incc    0
        call    test_buffer
        buffwr  s7,0
        wrs     s7,0,80
        wrd     "/l/n"
        ;
gen_call_1:
        sett    10
        wait    tf_sign
        movc    0,s7,23
        incc    0
        movd    "P",s7,34
        call    test_buffer
        buffwr  s7,0
        wrs     s7,0,80
        wrd     "/l/n"
        ;
gen_call_2:
        sett    50
        wait    tf_sign
        movc    0,s7,23
        incc    0
        movd    "P   ",s7,34
        call    test_buffer
        buffwr  s7,0
        wrs     s7,0,80
        wrd     "/l/n"
        ;
gen_call_3:
        sett    70
        wait    tf_sign
        movc    0,s7,23
        incc    0
        movd    " 000",s7,34
        call    test_buffer
        buffwr  s7,0
        wrs     s7,0,80
        wrd     "/l/n"
        ;
        jmp     gen_call_0
        ;
test_buffer:
        buffst                 ;if free
        jz      wait_free
        ret
;
wait_free:
        sett    10
        wait    tf_sign
        jmp     test_buffer
        ;
end