BANEL 100
Submitted By:
jaroban
Rating:
(Not rated) (
Rate It)
; version 1.0
safety_setup: mov thread_id,#'s'
mov liftpos,#0ffh
setb rele_hore
setb rele_dole
setb rele_jazda
call wait4it_f
db t_start,0,0,16
call nulovanie_rele
jb poradie_faz,saf_skip1
setb error_fazy
saf_lp1: call do_them
jnb poradie_faz,saf_lp1
clr error_fazy
saf_skip1: mov dptr,#moving_setup
call run_it
saf_lp2: call do_them
jb poradie_faz,saf_lp2
mov a,#'m'
call kill_him
setb error_fazy
call nulovanie_rele
jmp os_init
