setbaud 1,9600,8,n,1    ;Modul Default
mode_reco

setl    10,2
jmp     start_0



start_0:
movd    "Project: Patienten Notruf B„renhof am Felsenbad V 2.0/n",s2,0
out     s2,0,c4
movd    "MOD     2<2 by Hoerhager Josef VTE ready!/n",s2,0
out     s2,0,c4
setc    0,0             



main:
setl    10,1
sett    20
wait    tf_sign,ans_sign
case    ans_sign,goto_timer
goto_display:
setl    10,2
clear   ans_sign
readb   s2,0,0
jz      main
wrs     s2,0,255
jmp     goto_display

goto_timer:
case    tf_sign,goto_display
movd    "3       ",s15,100
movc    0,s15,102
acall   preco_dbs
acall   read_dbs
compd   "10",s14,4
jnz     next_eintrag
movd    "        ",s15,210
movd    "1  ",s15,220
movs    s14,6,s15,210,4
acall   subb
movs    s15,234,s14,6,4
compd   "0000",s15,234
jnz     no_blink_set
movd    "1",s14,5

no_blink_set:
acall   write_dbs

next_eintrag:
incc    0
compc   0,20
jnz     goto_display
setc    0,0
jmp     goto_display

zzz:

end