Concept: DoubleTroubleV1 ( Alternating programs, to detect..

;redcode
;name DoubleTroubleV1
;author SkybuckFlying
;strategy alternates programs to detect dead programs and revives the dead
programs.
;version 1
;date 21 december 2007

; Let's alternate between programs, this assures that programs are
functioning and gives insight into if the program is intact or dead.
; Works splendedly, program1 keeps reviving program2, while program2 is
d.e.a.d
; Now only thing to do is to incorporate a fixer and the program will be on
their way again ! =D

mov #1, Program1Run
mov #1, Program2Run

spl Program1Begin
spl Program2Begin
dat #0, #0


Program1Begin
jmz 0, Program1Run
nop 1
nop 2
nop 3
nop 4
nop 5
nop 6
mov.ab #0, Program1Run

; we are done running signal the other program to run
mov.ab #1, Program2Run

; reset wait time
mov.ab #9, Program1Wait

; wait for the other program to complete
Program1Wait djn 0, #9

; check if it completed, if it did ok simply run us.
jmz Program1Begin, Program2Run

; else revive program 2
spl Program2Begin

; program 2 might be dead so run ourselfs
mov.ab #1, Program1Run

jmp Program1Begin
Program1Run dat $0, $0
Program1End


Program2Begin
jmz 0, Program2Run
nop 1
nop 2
; nop 3
dat 3 ; pretend program 2 died.
nop 4
nop 5
nop 6
mov.ab #0, Program2Run

; we are done running signal the other program to run
mov.ab #1, Program1Run

; reset wait time
mov.ab #9, Program2Wait

; wait for the other program to complete
Program2Wait djn 0, #9

; check if it completed, if it did ok simply run us.
jmz Program2Begin, Program1Run

; else revive program 1
spl Program1Begin

; program 1 might be dead so run ourselfs
mov.ab #1, Program2Run

jmp Program2Begin
Program2Run dat $0, $0
Program2End

Oops little buggy.

Since both programs run in sync, they both set the run flags back to one...
then they both believe they are both dead hehehe
and revive both.

Maybe I should just run one program, to maybe try and force the programs to
run out of sync

Or I need another fix !

Bye,
Skybuck.