10 
20  c   ...........................
30  c    TASK MUNTENRNCE RECORD
40  c   .............................
50  
60  c    4.07 10-jan-91 jms use task 70 to reset Eng_run_time
70
80
90 c     .........................
100 c    TASK DESCRIPTION
110 c   ...........................

120 
130 c    This task loops continuously from boot up.
140 c

150 C   It "sleeps" until set lusted by:
160 c   1) galarn>=3  
170 c   2) Task3 Indication of a problem 
180 c   3) Tesk40 (Test Control) eng run for 20 sin, no operator Acc/Rej
190 c   4) Eject_request (test bed fault between docking & eng starting) 
200
220  c
230  c   LOCAL VRAIABLE DEFINITIONS AND DESCRIPTIQNS
240  c
250        
                 ent- 
        var      ries name 

260     if140    1 coperator_response    ! operator responded flag
270     It24     1 restart_enable        ! restart enable period
280
290  c
300  c  CODE STARTS HERE:
310
320
330
340     subroutine s04i005c      ! ptms. input, status, control
350
360     while(on)                ! loop forever after booting
370     
380     while(galarm <=2 && not Stop_reqd) ! normal state:
      rmal state   
400   deLey (0.2)    ! wait if all critical inputs clear
410   _endc
430
440   if((alarmO = 3 && Engine_firing < Eng_oil_override) && not Stop_reqd &&
      galarm <>4)    ! oil alarm only, plus overridden
450   delay(0.5)                    ! therefore ignore it
460 
470   else                          ! must be a critical problem
480 
490   gosub 1310 ensure_shutdoun 
500 
510   uhile( not Dash_enable)        ! wait here until menu option  completed
520   delay(0,1)
530   _endc
540  
550   operator_response = no
560   while( not operatorjresponse)   ! loop until releuant button pressed
o 1690 display options
590
600    if (Di_operator_ack II Rcknouledge && not timerstatus(restart enable
       ))                               ! retest from beginning required  
610    
620    if (Enginejstate >= 3)           ! exchange in progress so complete
630    Reqd_5equence = "EXCHRhGE        "I exchange seq to get rid of engine
640
650    else                             !Return to read statec tag
660    Reqd_sequence = "DEFAULT"
670    call task68 sO4s001z             ! reset Seq_params,force eng ident
680 
690   _endc
700
710    call task62 s04sr00m(3)          ! initialise sequence
720
730    call task70 sO4al02z             ! reset engine data variables
740
750    Abort test=0                     ! clear flag for test abort
760    operator/esponse = yes           ! exit loop 
780         _endc
790
800         if ((Di_test_abort or Abort) and (Seq_params[0] nocase<> ""))                       
                                         ! abort test only if engine code defined

810         if (Em stop—f Lag)           ! starter circuit needs resetting
820         call task257 reset_inverter   ! Prompt to operator to press <ACK>   
830         _endc
840
850         Aeqd_sequence = "ABORT"       ! set abort sequence active
860
870         call task62 s04sr00m(3)       ! initialize test
880 
890         operator _response = yes      ! exit loop  
900         Abort_test = 1                 ! set operator abort flag
910 
920          _endc
930   
940         If (DI_engine_start && timerstatus(restart_enable))! restart selected
960                  call task62 sO45r00m(3)              !  initialise rig sequence
970                  operator_response =yes               ! exit loop
980                  Efi_stalled = no                     ! clear for detection again
990                  timeroff (restart_enable)                        
1000                _endc
1020                if (Efi_stalled && restart_enable <= 0) ! restart period nou expired
1930                 timeeroff (restart_enable)
1010                 Efi_stalled=no                         ! clear EFI engine stalled
1050                 call taskll3 s04ar00p                  ! full reset of digital outputs
1060                _endc
1070                                                                       
1080                delay(0.2)                                ! delay for 0,2 second
1990                _endc                                     !while(not op.response)
1100  
1110                gosub 1950 re_InIt_monitoring 
1120                delay(4.0)                               !allow Inputs to be scanned
1130              
1140                 _endc                                    !Ioverride/critical conditional  
1150                 _endc                                      
1170
1180
1190
1200  stop run                         ! neuer executed, continuous Loop
1210
1220
1230    c.............................................................
1240    c  On activation:
1250    c  1) Terminate current sequence
1260    c  2) Shut engine doun (euen though may have already stalled)
1270    c  3) Reset outputs
1280    c  4) Send FMS logs
1290    c.............................................................
1300
1310    subroutine ensure shutdown
1320 
1330    rateall= 0                    ! turn off ail seaming
1340    prate0= 1                     ! nonitor speed for eng stop
1350                                       
1360  Engine started = 0              ! clear engine started flag
1330
1390    timeroff(Eng_run_time)              ! turn off engine run time
1400    timeroff(Total_run_time)            ! turn off total run tine
1410    tlmeroff(Eng_dock_time)             ! turn off engine docking timer
1420
1430    call task62 s04sr00m(S)             !turn off all currant bed processes
1440      
1450     No_engine_in_posn=no               !show have accepted this reason for shutdown
1460
1470     call taskll2 s04acOOp              ! perform engine stop
1480     off 3 s04ld05a                     ! turn off input monitor
1490     do_stand_clear = off               !door monitoring etc trapped, so reset HAZMAC output for safety
1500
1510     if (Efi_stalled)                   ! special case, EFI engine stalled;
1520     call task312 s04ar01p              ! partial reset of digital ouputs
1530     restart_enabLe=30                  ! and allow RESTRRT process
1540     timeron(restart_enable)            ! for 30 sees fro* point of stall
1550
1570   Do_stand_healtly = no     !stop all engine movements
1530   call taskll3 s04a00p      ! full rent of digital outputs
1590   _endc:
1600 
1610   on 15 s04l701x            ! send shutdown logs to fms
1620   return
1630
1640
1650    c ......................................
1660    c Display text for available options
1670    c .......................................
1680  
1690    subroutine display_options
1710    call task99 sO4Om00c (105, 1,0)      ! clear Message HBHh|
1720    if (timerstatus(restart_enable))     ! restart enable
1730    call task99 sO4Om00c(825,2,3)        !"Restart - press engine start"
1750    call task99 s04Om00c (822,2,3)       ! "Betest - press op. ack."   ||g
1760    _endc 
1730   if (Seqj_params[0] nocase<>"  ")           ! if entire sode <fef inec   ||f
1790   call task99 s040mm00c(823,3,3)             !Abort - press abort button"
18*0   else
1810   call task99 s040m00c (105,3,0)             !clear message
18&pound;0   _endc
1830
1840   if<stop_reqd)                               ! hardware interlock fault
1850 | call task99 s040mm00c(message_pointer,4,1)  ! display reason for shutdoun
1860   else
1870   cell task99 s040m00c(1113,4,1)              !"Test stopped - software shutdown"
1880  _endc
1890  return
1990
1910  
1920   Reinitialise monitoring
1930  
1940
1950   subroutine re_init_monitoring
I960
1970   call task143 s04cr01r                       !turn scanning back on once ack 
1990    Efi_stalled = no                 !clear EFI engine stalled
2000    timeroff (restart_enable)        !turn off restart enable timer
2010    Stop_reqd=0                      !clear shutdoun flag
2020    Em_stop_flag=0                   ! clear energ.stop flag
2030    acknowledga=0                    ! clear acknowledge flag 
2040    Abort=0                          ! clear abort flag 
2050    Eeason_mode=3                    ! set beacon mode 
2060    timeroff (Engine_firing)
2070    Engine_firing =9
2080
2090    call task131 update_test_bed_stat  !Hazmac i/f back to previous state
2100
2110    Do_stand_healthy = 1             ! output command to hazmac
2120    on 3 s04id05a                    ! restart dig input monitor
2130
2140    call task99 s040m00c(105,2,0)    ! clear message
2150    call task99 s040m00c(195,3,0)    ! clear message
2160    call task99 s040m00c(105,4,0)    ! clear message
2170
2180    if(abort_test)
2200 _endc
2210
2220  return