PROC F_FL_D_PATCH2
  ;Version 1
  GOTO BEGIN
  ;
  ;#***********************************************************************
  ;#      ****PROCEDURE HEADER****
  ;#
  ;#  1.0     Introduction
  ;#
  ;#          1.1     FOT Name:   F_FL_D_PATCH2
  ;#                  MMS-F Name: -/-
  ;#                  SUM Issue:  -/-
  ;#
  ;#          1.2     Date Created: 13-OCT-95 KR
  ;#                  Revision:     
  ;#
  ;#          1.3     Change Description:
  ;#
  ;#          1.4     Point of Contact:
  ;#                  Author: K.-U. Reiche IDA +49-531-391-3742
  ;#
  ;#***********************************************************************
  ;#  2.0     Description
  ;#
  ;#          2.1     Narrative Description: S/W patch 5.6.2
  ;#		  
  ;#		      DPU SOFTWARE PATCH NUMBER 5.6.2
  ;#		      STOF DIAGNOSTIC WORD DROP CORRECTION
  ;#
  ;#		      PLACE IN NON-VOLATILE MEMORY
  ;#
  ;#          2.2     Intended Use:
  ;#
  ;#		      Correction to DPU flight software (S/W Version 5.6).
  ;#	
  ;#          2.3     Duration: < 1 min.
  ;#
  ;#          2.4     References:
  ;#
  ;#***********************************************************************
  ;#  3.0     Instructions for Use:
  ;#
  ;#          3.1     Parameters Required: None
  ;#
  ;#          3.2     Critical Activities: 
  ;#
  ;#                  FBDMM commands are CRITICAL Commands.
  ;#		      Correct binary translation requires use of
  ;#		      Project Data Base Version > 9.0  (i.e., after Sept 95)
  ;#
  ;#          3.3     Special Constraints or Activities:
  ;#
  ;#		      This procedure needs to be run the FIRST time the
  ;#		      CELIAS is powered on.  As long as KEEP ALIVE power
  ;#		      is available, this command will be retained in
  ;#		      dpu memory.  
  ;#
  ;#                  This patch needed for dpu s/w version 5.6, may
  ;#		      not be required for higher versions.
  ;#
  ;#                  All sensors must be off.
  ;#
  ;# *************************************************************************
  ;#  4.0     STEPS:

  BEGIN:

  IF (P@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN
  ELSE
      /CLEAR  ;Clearing the Command Buffer.
  ENDIF

  ;#  4.1   Verify sensors are OFF

  IF(P@FSDMODC <> "Power Off")THEN
      WRITE "*** CTOF IS ON ***"
      ASK "DO YOU NEED TO POWER OFF CTOF?"
      ANSWER = %UPPER(ANSWER)
      IF (ANSWER = "Y")THEN
	 /FBCMOD0I	  ; CTOF POWER OFF, IMMEDIATE
         WAIT             ; VERIFY BUFFER CONTENTS
         /SEND
         WAIT UNTIL (P@FSDMODC = "Power Off")
      ENDIF
  ENDIF

  IF(P@FSDMODM <> "Power Off")THEN
      WRITE "*** MTOF IS ON ***"
      ASK "DO YOU NEED TO POWER OFF MTOF?"
      ANSWER = %UPPER(ANSWER)
      IF (ANSWER = "Y")THEN
	 /FBMMOD0I	  ; MTOF POWER OFF, IMMEDIATE
         WAIT             ; VERIFY BUFFER CONTENTS
         /SEND
         WAIT UNTIL (P@FSDMODM = "Power Off")
      ENDIF
  ENDIF

  IF(P@FSDMODS <> "Power Off")THEN
      WRITE "*** STOF IS ON ***"
      ASK "DO YOU NEED TO POWER OFF STOF?"
      ANSWER = %UPPER(ANSWER)
      IF (ANSWER = "Y")THEN
	 /FBSMOD0I	  ; STOF POWER OFF, IMMEDIATE
         WAIT             ; VERIFY BUFFER CONTENTS
         /SEND
         WAIT UNTIL (P@FSDMODS = "Power Off")
      ENDIF
  ENDIF


  ;#  4.2    Implement s/w patch 2a,2b,2c

  /FBPERMI,0202           ; Make next command permanent, #2
  WAIT                    ; VERIFY BUFFER CONTENTS
  /SEND
  WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")
  ; Patch 5.6.2a
  /FBDMM,ECC0,3000,0020,D6A0,C741,4006,0112,C700,4006,0212,;;
   A300,12C0,40A3,FE12,050E,7842,531E,1E8B,4200,0000,;;
   0000,0000,0000,0000,0000,0000,0000,0000
  WAIT                    ; VERIFY BUFFER CONTENTS
  /SEND
  WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")
  /FBPERMI,0203           ; Make next command permanent, #3
  
  WAIT                    ; VERIFY BUFFER CONTENTS
  /SEND

  ; Patch 5.6.2b
  
   WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")
   /FBDMM,ECE0,3000,0026,80A1,8913,0447,40A1,8913,0247,00A1,;;
   8913,8307,06C3,1E89,4200,8F5B,0006,5828,06C7,0000,;;
   0020,CF1F,0000,0000,0000,0000,0000,0000
  WAIT                    ; VERIFY BUFFER CONTENTS
  /SEND

  WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")
  /FBPERMI,0204         ; Make next command permanent, #4
  WAIT                    ; VERIFY BUFFER CONTENTS
  /SEND
  WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")
  ; Patch 5.6.2c
  /FBDMM,026E,3000,001C,3E80,41DA,7400,E907,EA48,9090,9090,;;
   06C7,10C0,FFF7,06F7,13C0,0008,2A74,0000,0000,0000,;;
   0000,0000,0000,0000,0000,0000,0000,0000
  WAIT                    ; VERIFY BUFFER CONTENTS
  /SEND

  ;#***********************************************************************
  ;#   5.0   Final Constraints
  ;#
  ;#         If Sensors (CTOF,MTOF,STOF) have changed from an ON to a
  ;#         Power Off mode, then non-ops heater status may require 
  ;#         a change.
  ;#
  ;#***********************************************************************
  ENDPROC