Commits (2)
;
; This file is automatically maintained by srccommit, do not edit manually.
; Last processed by srccommit version: 1.1.
;
GBLS Module_MajorVersion
GBLA Module_Version
......@@ -10,14 +9,12 @@
GBLS Module_ApplicationDate
GBLS Module_HelpVersion
GBLS Module_ComponentName
GBLS Module_ComponentPath
Module_MajorVersion SETS "1.03"
Module_Version SETA 103
Module_MajorVersion SETS "1.05"
Module_Version SETA 105
Module_MinorVersion SETS ""
Module_Date SETS "06 May 2017"
Module_ApplicationDate SETS "06-May-17"
Module_Date SETS "16 Nov 2019"
Module_ApplicationDate SETS "16-Nov-19"
Module_ComponentName SETS "Pinboard"
Module_ComponentPath SETS "castle/RiscOS/Sources/Desktop/Pinboard"
Module_FullVersion SETS "1.03"
Module_HelpVersion SETS "1.03 (06 May 2017)"
Module_FullVersion SETS "1.05"
Module_HelpVersion SETS "1.05 (16 Nov 2019)"
END
/* (1.03)
/* (1.05)
*
* This file is automatically maintained by srccommit, do not edit manually.
* Last processed by srccommit version: 1.1.
*
*/
#define Module_MajorVersion_CMHG 1.03
#define Module_MajorVersion_CMHG 1.05
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 06 May 2017
#define Module_Date_CMHG 16 Nov 2019
#define Module_MajorVersion "1.03"
#define Module_Version 103
#define Module_MajorVersion "1.05"
#define Module_Version 105
#define Module_MinorVersion ""
#define Module_Date "06 May 2017"
#define Module_Date "16 Nov 2019"
#define Module_ApplicationDate "06-May-17"
#define Module_ApplicationDate "16-Nov-19"
#define Module_ComponentName "Pinboard"
#define Module_ComponentPath "castle/RiscOS/Sources/Desktop/Pinboard"
#define Module_FullVersion "1.03"
#define Module_HelpVersion "1.03 (06 May 2017)"
#define Module_LibraryVersionInfo "1:3"
#define Module_FullVersion "1.05"
#define Module_HelpVersion "1.05 (16 Nov 2019)"
#define Module_LibraryVersionInfo "1:5"
......@@ -65,7 +65,7 @@ LCDbackdroptile
; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
; MakeCompactModeWord
;
; Formulate a word that expresses bpp, eigen, palette all in one
; Formulate a word that expresses bpp, eigen, palette, RGB+alpha all in one
;
; Out : r0 = compact word
; r2 = sprite mode descriptor
......@@ -101,8 +101,19 @@ MakeCompactModeWord
ORR r0, r0, r14, LSL #20
LDRB r14, XEig
ORR r0, r0, r14, LSL #24
ORR r0, r0, #&F0000000 ; Make sure a 1bpp EX0 EY0 mode can't be mistaken
ORR r0, r0, #&C0000000 ; Make sure a 1bpp EX0 EY0 mode can't be mistaken
; for old style mode 0
; Store RGB+alpha flags too
BIC r0, r0, #&30000000
Push "r0,r2"
MOV r0, #-1
MOV r1, #VduExt_ModeFlags
SWI XOS_ReadModeVariable
ASSERT &30000000 = (ModeFlag_DataFormatSub_RGB+ModeFlag_DataFormatSub_Alpha) :SHL: 14
AND lr, r2, #ModeFlag_DataFormatSub_RGB+ModeFlag_DataFormatSub_Alpha
Pull "r0,r2"
ORR r0, r0, lr, LSL #14
CLRV
Pull "r1, pc"
......
......@@ -64,6 +64,7 @@ BufferIcon
Pull "r0-r7,PC",VS
TEQ R0,#3 ; image file
TEQEQ R6,#&1000 ; which is not an application
BNE %FT00
MOV R0,#OSFile_ReadNoPath
......