Art and Sound

to powerup
write portb-ddr 0
end

to startup
powerdvdparent
powerdvdchild
wait 100
begindaycycle
loop [daycycle wait 4000]
end

to begindaycycle
playdvdparent
forwarddvdparent
wait 4000
stopdvdparent
stopdvdchild
wait 20

to daycycle
playdvdparent
wait 30
playdvdparent
playdvdchild
wait 4000
stopdvdparent
stopdvdchild
wait 20
end

to powerdvdparent
setbit 0 portb
mwait 1000
clearbit 0 portb
end

to playdvdparent
setbit 1 portb
mwait 1000
clearbit 1 portb
end

to stopdvdparent
setbit 2 portb
mwait 1000
clearbit 2 portb
end

to forwarddvdparent
setbit 3 portb
mwait 150
clearbit 3 portb
stop
end

to powerdvdchild
setbit 7 portb
mwait 1000
clearbit 7 portb
end

to playdvdchild
setbit 5 portb
mwait 1000
clearbit 5 portb
end

to stopdvdchild
setbit 6 portb
mwait 1000
clearbit 6 portb
end

to forwarddvdchild
setbit 4 portb
mwait 150
clearbit 4 portb
end