diff --git a/VersionASM b/VersionASM
index 866773ac04e08e8157d313b846196759cfa614b6..640ce14946501f202523d85c5c8f663c2eec5aeb 100644
--- a/VersionASM
+++ b/VersionASM
@@ -13,11 +13,11 @@
GBLS Module_ComponentPath
Module_MajorVersion SETS "5.35"
Module_Version SETA 535
-Module_MinorVersion SETS "4.79.2.84"
-Module_Date SETS "21 Mar 2005"
-Module_ApplicationDate SETS "21-Mar-05"
+Module_MinorVersion SETS "4.79.2.85"
+Module_Date SETS "04 May 2005"
+Module_ApplicationDate SETS "04-May-05"
Module_ComponentName SETS "Kernel"
Module_ComponentPath SETS "RiscOS/Sources/Kernel"
-Module_FullVersion SETS "5.35 (4.79.2.84)"
-Module_HelpVersion SETS "5.35 (21 Mar 2005) 4.79.2.84"
+Module_FullVersion SETS "5.35 (4.79.2.85)"
+Module_HelpVersion SETS "5.35 (04 May 2005) 4.79.2.85"
END
diff --git a/VersionNum b/VersionNum
index 63ef8d73c4d51fa489543297dfb565dc37643d00..d6bc04fe58e585152c6a47095eb3795b7e98327a 100644
--- a/VersionNum
+++ b/VersionNum
@@ -5,19 +5,19 @@
*
*/
#define Module_MajorVersion_CMHG 5.35
-#define Module_MinorVersion_CMHG 4.79.2.84
-#define Module_Date_CMHG 21 Mar 2005
+#define Module_MinorVersion_CMHG 4.79.2.85
+#define Module_Date_CMHG 04 May 2005
#define Module_MajorVersion "5.35"
#define Module_Version 535
-#define Module_MinorVersion "4.79.2.84"
-#define Module_Date "21 Mar 2005"
+#define Module_MinorVersion "4.79.2.85"
+#define Module_Date "04 May 2005"
-#define Module_ApplicationDate "21-Mar-05"
+#define Module_ApplicationDate "04-May-05"
#define Module_ComponentName "Kernel"
#define Module_ComponentPath "RiscOS/Sources/Kernel"
-#define Module_FullVersion "5.35 (4.79.2.84)"
-#define Module_HelpVersion "5.35 (21 Mar 2005) 4.79.2.84"
+#define Module_FullVersion "5.35 (4.79.2.85)"
+#define Module_HelpVersion "5.35 (04 May 2005) 4.79.2.85"
#define Module_LibraryVersionInfo "5:35"
diff --git a/s/vdu/vduwrch b/s/vdu/vduwrch
index 3e51a9e89903fc07a854404f77298609190e58af..e3b381d02240af6b8bbaf8fa6c9454c1115e4a36 100644
--- a/s/vdu/vduwrch
+++ b/s/vdu/vduwrch
@@ -1925,6 +1925,7 @@ TryCopyUpCommon
Pull PC,MI ; return with Z clear (unsuccessful)
MOV R2, R0 ; dstL=srcL
ADD R3, R1, R7 ; dstB=srcB +1row
+TryCopyCommon
Push "R0-R5"
MOV R0, #3
MOV R1, #1
@@ -1950,6 +1951,45 @@ TryCopyWindowUp
Push R14
ADR R14, TryCopyUpCommon
B TextWindowToGraphics
+
+; *****************************************************************************
+;
+; TryCopyScreenDown - use GraphicsV to copy screen down
+;
+; in: nothing
+; out: R0-R11 corrupted
+; Z flag set if successful
+
+TryCopyScreenDown
+ Push R14
+ BL CheckAcceleration
+ Pull PC, NE ; return with Z clear (unsuccessful)
+ BL ScreenToGraphics
+TryCopyDownCommon
+ SUB R4, R2, R0 ; width-1
+ SUB R5, R3, R1 ; height-1
+ SUBS R5, R5, R7 ; less one row
+ Pull PC,MI ; return with Z clear (unsuccessful)
+ MOV R2, R0 ; dstL=srcL
+ MOV R3, R1 ; dstB=bot
+ ADD R1, R1, R7 ; srcB=bot +1row
+ B TryCopyCommon
+
+; .............................................................................
+;
+; TryCopyWindowDown - use GraphicsV to copy window down
+;
+; in: nothing
+; out: R0-R11 corrupted
+; Z flag set if successful
+
+TryCopyWindowDown
+ LDR R0, [WsPtr, #VduSprite]
+ TEQ R0, #0 ; don't try it if outputting to sprite
+ MOVNE PC, R14 ; return with Z clear (unsuccessful)
+ Push R14
+ ADR R14, TryCopyDownCommon
+ B TextWindowToGraphics
]
; *****************************************************************************
@@ -2006,6 +2046,11 @@ HardScrollSpriteDown
Push R14
TST R6, #TeletextMode
BNE TTXSoftScrollDown
+ [ UseGraphicsV
+ BL TryCopyScreenDown
+ Pull R14, EQ
+ BEQ ClearTopLine
+ ]
BL GetScreenInfo ; get box info for whole 'screen'
MOV R0, #0
@@ -2030,6 +2075,11 @@ SoftScrollDown
TST R6, #TeletextMode
BNE TTXSoftScrollDown
+ [ UseGraphicsV
+ BL TryCopyWindowDown
+ Pull R14, EQ
+ BEQ ClearTopLine
+ ]
BL GetWindowInfo
; R2 = address of top left