Recovery button support for Duo

Source/HBIOS/hbios.asm

@@ -1877,6 +1877,17 @@ SAVE_REC_M:
 	LD	A,0			; BIT 6
 	JR	Z,SAVE_REC_M		; IS RECOVERY MODE
 	LD	A,1
+SAVE_REC_M:
+	LD	(HB_BOOT_REC),A		; SAVE FOR LATER
+    #ENDIF
+  #ENDIF
+  #IF ((PLATFORM == PLT_DUO)
+    #IF (BT_REC_TYPE == BT_REC_DUORI)
+	IN	A,($78 + 6)		; UART_MSR MODEM
+	BIT	6,A			; STATUS REGISTER
+	LD	A,0			; BIT 6
+	JR	Z,SAVE_REC_M		; IS RECOVERY MODE
+	LD	A,1
 SAVE_REC_M:
 	LD	(HB_BOOT_REC),A		; SAVE FOR LATER
     #ENDIF
@@ -3225,7 +3236,7 @@ CALLDUMMY:
 #IF (BT_REC_TYPE != BT_REC_NONE)
 ;
 HB_PCINIT_REC:
-  #IF ((PLATFORM == PLT_SBC) | (PLATFORM == PLT_MBC))
+  #IF ((PLATFORM == PLT_SBC) | (PLATFORM == PLT_MBC) | (PLATFORM == PLT_DUO))
 	.DW	UART_PREINIT
 ;	.DW	CALLDUMMY
   #ENDIF
@@ -3237,6 +3248,10 @@ HB_INIT_REC:
 	.DW	MD_INIT
 	.DW	PPIDE_INIT
   #ENDIF
+  #IF ((PLATFORM == PLT_DUO)
+	.DW	UART_INIT
+	.DW	MD_INIT
+  #ENDIF
 HB_INITRLEN	.EQU	(($ - HB_INIT_REC) / 2)
 ;
 #ENDIF

Source/HBIOS/std.asm

@@ -21,7 +21,7 @@
 ; 17. DUO	Andrew Lynch's Duodyne Computer
 ; 18. HEATH	Les Bird's Heath Z80 Board
 ; 19. EPITX	Alan Cox' Mini-ITX System
-; 20. MON	Jacques Pelletier's Monsputer
+; 20. MON	Jacques Pelletier's Monsputer
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;
@@ -87,6 +87,8 @@ BT_REC_FORCE	.EQU	1		; FORCE BOOT RECOVERY MODE
 BT_REC_SBC01	.EQU	2		; ECB-SBCV2 - BIT 1 RTC HIGH
 BT_REC_SBC1B	.EQU	3		; ECB-SBCV2 - 1-BIT IO PORT
 BT_REC_SBCRI	.EQU	4		; ECB-SBCV2 - 16550 UART RING INDICATOR LINE
+BT_REC_DUORI	.EQU	5		; DUO MULTI I/O - TL16C2552FN UART RING INDICATOR LINE
+
 ;
 BT_REC_TYPE	.EQU	BT_REC_NONE	; BOOT RECOVERY METHOD TO USE
 ;

Source/HBIOS/uart.asm

@@ -56,19 +56,17 @@ UART_CTSBAD		.EQU	4	; CTS STALL DETECTED
 ;
 #IF (PLATFORM == PLT_DUO)
 UARTSBASE		.EQU	$58
+UARTDBASE		.EQU	$70
 #ELSE
 UARTSBASE		.EQU	$68
+UARTDBASE		.EQU	$80
 #ENDIF
+;
 UARTABASE		.EQU	$A8
 UARTCBASE		.EQU	$80
 UARTMBASE		.EQU	$18
 UART4BASE		.EQU	$C0
 UARTRBASE		.EQU	$A0
-#IF (PLATFORM == PLT_DUO)
-UARTDBASE		.EQU	$70
-#ELSE
-UARTDBASE		.EQU	$80
-#ENDIF
 ;
 #IF (UARTINTS)
 ;