POST now uses option from Hdr:Machine.<Machine> to determine whether or not to...

POST now uses option from Hdr:Machine.<Machine> to determine whether or not to flash the front panel LEDs (Lazarus doesn't want this function).

Version 5.12. Tagged as 'Kernel-5_12'

TestSrc/Begin

@@ -1779,7 +1779,7 @@ ts_failmsg
 ts_R00  &       00
 
 
- [ STB :LAND: (((IOMD_C_FrontPanelLED <> 0) :LOR: ((IOMD_C_FrontPanelRightLED <> 0) :LAND: (IOMD_C_FrontPanelLeftLED <> 0))))
+ [ STB :LAND: POSTFlashesFrontPanelLEDs
         ; Define Long, Equal and short flash delays
 ts_Long_Flash      	*	&03		; Number of 1/4 Sec delays for a long flash
 ts_Short_Flash	   	*	&01		; Number of 1/4 Sec delays for a short flash
@@ -1791,7 +1791,7 @@ IOMD_LED_GREENLED       *       IOMD_C_FrontPanelRightLED               ; The ri
 IOMD_LED_REDLED         *       IOMD_C_FrontPanelLeftLED                ; The left  LED should be the RED   LED
 IOMD_LED_BOTH           *       IOMD_LED_REDLED :OR: IOMD_LED_GREENLED  ;
 
- ] ; Endif ((IOMD_C_FrontPanelLED <> 0) :LOR: ((IOMD_C_FrontPanelRightLED <> 0) :LAND: (IOMD_C_FrontPanelLeftLED <> 0)))
+ ] ; Endif (POSTFlashesFrontPanelLEDs)
 
 ts_Report       ROUT
         MOV_fiq r7,r12_fiq              ; check for fault bits set
@@ -1837,10 +1837,7 @@ ts_Report_wait        ROUT
 	;
 	; Here if a Display or other type of adaptor found.
 	;
- [ STB :LAND: (((IOMD_C_FrontPanelLED <> 0) :LOR: ((IOMD_C_FrontPanelRightLED <> 0) :LAND: (IOMD_C_FrontPanelLeftLED <> 0))))
-	;
-	; IOMD_C_FrontPanelLED <> 0 OR ((IOMD_C_FrontPanelRightLED <> 0) :AND: IOMD_C_FrontPanelLeftLED <> 0))
-        ; Thus we have some FP Leds to play with !
+ [ STB :LAND: POSTFlashesFrontPanelLEDs)
 	;
 	; Check to see if we are a PASS or FAIL
 	;
@@ -2012,7 +2009,7 @@ ts_led_bothoff
 	;
  | ; else
 	;
-	; ((IOMD_C_FrontPanelLED <> 0) :LOR: ((IOMD_C_FrontPanelRightLED <> 0) :LAND: (IOMD_C_FrontPanelLeftLED <> 0)))
+	; :LNOT: POSTFlashesFrontPanelLEDs
         ; Thus we use the old way of flashing the LED etc ....
 	;
 	; Indicate fault found : Set the border to fault colour and flash
@@ -2107,7 +2104,7 @@ ts_665LEDaddr      *       (ts_PCaddress :OR: (&3f2 :SHL: 2))
         ANDS    r2,r2,r2                ; all the bits displayed now ?
         BNE     %02
         MOV_fiq r0,r12_fiq              ; restore the faultcode bits
- ] ; Endif ((IOMD_C_FrontPanelLED <> 0) :LOR: ((IOMD_C_FrontPanelRightLED <> 0) :LAND: (IOMD_C_FrontPanelLeftLED <> 0)))
+ ] ; Endif (POSTFlashesFrontPanelLEDs)
 ;
         MOV_fiq r0,r12_fiq              	; restore the faultcode bits
 ; Uncomment the following line if the POST code is to loop when the POST

VersionASM

@@ -6,9 +6,9 @@
                         GBLS    Module_MinorVersion
                         GBLS    Module_Date
                         GBLS    Module_FullVersion
-Module_MajorVersion     SETS    "5.11"
-Module_Version          SETA    511
+Module_MajorVersion     SETS    "5.12"
+Module_Version          SETA    512
 Module_MinorVersion     SETS    ""
 Module_Date             SETS    "26 Jan 2000"
-Module_FullVersion      SETS    "5.11"
+Module_FullVersion      SETS    "5.12"
                         END

VersionNum

-/* (5.11)
+/* (5.12)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG        5.11
+#define Module_MajorVersion_CMHG        5.12
 #define Module_MinorVersion_CMHG        
 #define Module_Date_CMHG                26 Jan 2000
 
-#define Module_MajorVersion             "5.11"
-#define Module_Version                  511
+#define Module_MajorVersion             "5.12"
+#define Module_Version                  512
 #define Module_MinorVersion             ""
 #define Module_Date                     "26 Jan 2000"
 
-#define Module_FullVersion              "5.11"
+#define Module_FullVersion              "5.12"