%
% Atop generic timing spurs
%
|5000 %%% 5200 !Gearing
 *tmngstar
 5400 !tick
 100

|5005
 _Atop.Swover
 {
  7000 step!
  100
 }
 {
%
% initialize atoptick activity
%
  0 *atoptick
  5200 !Gearing
  *aamgsput
 } ifelse

|5010 5020 !Gearing   %%%%%%%%%%%%%%

%
% for all services
%
 +Watchdog 8 gt
 {
  *watchers
 } if
 "timing21" *timelaps

 axuact "Q" eq$
 {
  lockxone< dup exec$ ".xtx" overext
 }
 {
 } ifelse
 1 *atoptick

 *aamgsput

|5020 5050 !Gearing

 2 *atoptick
 *aamgsput

|5050 5080 !Gearing

 3 *atoptick
 *aamgsput

|5080 5090 !Gearing

 4 *atoptick
 *aamgsput

|5090 5010 !Gearing
%
% for all services
%
 false !Initing

 *buildnuc

 _BabyActions
 {
  *babyactn
  *babyroll
 } if
%
% check for switch-over to Conduit
%
 _Atop.Swover
 {
  7010 !Gearing
 } if
 *aamgsput

|5195 5196 !Gearing
%
% Atop chain ready at home screen
% with awing and photoshop started
% transit to C61
%
 *aamgsput

|5196 5197 !Gearing
 '
 "Acnt6C1V" *acurcont|
 "C61" *atopoint|
 ' !Atop.Chain
 *aamgsput

|5197 5198 !Gearing
 *atopchek
 *aamgsput

|5198 5199 !Gearing
 *atopchek
 *aamgsput

|5199 5201 !Gearing
 *atopchek
 *aamgsput

|5200 5195 !Gearing
 false !Photo.Init
 "off" *atoptick
 _Arching.Vm
 {
  "present_" lock& del
  "ready_" lock& del
  "problem_" lock& del
 } if

/*
%
% see if there is any photoshop open
%
 *pshprung
 _Photoshop zero
 {
%
% intention is to run without photoshop
%
  5300 !Gearing
 } if
*/

 *aamgsput

|5201 5201 !Gearing
%
% initial Atop landing point of 0c0 or any
% atop point that needs to attentively idle
%
 *atopchek
 _Xact.Process zero
 {
%
% can initiate photoshop processes now
%
  axuact "X" eq$
  {
%
% the planning monitors are enabled via the first digit in locker code
%
% BxptX
%              -----numprods------    ----------twilnum-------
%    p bits    7      6    5     4    3      2        1      0
%                               prn        email   prmake  cutter
%
   *planning
  } if
 } if

 *aamgsput

|5300 5010 !Gearing
 true !Photo.Init
 "on" *atoptick
 *aamgsput