Skip to content

GitLab

Commit 2c9aad90 authored by Robert Sprowson's avatar Robert Sprowson
Browse files

Make Mike's macros permanent. 

While the HAL and kernel were being split some temporary macros were used for the bits being worked on, after 12 years of use they're probably safe to adopt.
mjsCallHAL -> CallHAL; mjsAddressHAL -> AddressHAL; mjsHAL -> HAL.
OS_VIDCDividerSWI code now always does NoSuchSWI (had been switched out previously).
File vduhint.s no longer assembled (was empty).


Version 5.35, 4.79.2.150. Tagged as 'Kernel-5_35-4_79_2_150'
parent 5fcf3e37
Hide whitespace changes
Inline Side-by-side
Showing with 87 additions and 219 deletions
VersionASM
View file @ 2c9aad90
...@@ -13,11 +13,11 @@ ...@@ -13,11 +13,11 @@
GBLS Module_ComponentPath GBLS Module_ComponentPath
Module_MajorVersion SETS "5.35" Module_MajorVersion SETS "5.35"
Module_Version SETA 535 Module_Version SETA 535
Module_MinorVersion SETS "4.79.2.149" Module_MinorVersion SETS "4.79.2.150"
Module_Date SETS "18 May 2012" Module_Date SETS "21 May 2012"
Module_ApplicationDate SETS "18-May-12" Module_ApplicationDate SETS "21-May-12"
Module_ComponentName SETS "Kernel" Module_ComponentName SETS "Kernel"
Module_ComponentPath SETS "castle/RiscOS/Sources/Kernel" Module_ComponentPath SETS "castle/RiscOS/Sources/Kernel"
Module_FullVersion SETS "5.35 (4.79.2.149)" Module_FullVersion SETS "5.35 (4.79.2.150)"
Module_HelpVersion SETS "5.35 (18 May 2012) 4.79.2.149" Module_HelpVersion SETS "5.35 (21 May 2012) 4.79.2.150"
END END
VersionNum
View file @ 2c9aad90
...@@ -5,19 +5,19 @@ ...@@ -5,19 +5,19 @@
* *
*/ */
#define Module_MajorVersion_CMHG 5.35 #define Module_MajorVersion_CMHG 5.35
#define Module_MinorVersion_CMHG 4.79.2.149 #define Module_MinorVersion_CMHG 4.79.2.150
#define Module_Date_CMHG 18 May 2012 #define Module_Date_CMHG 21 May 2012
#define Module_MajorVersion "5.35" #define Module_MajorVersion "5.35"
#define Module_Version 535 #define Module_Version 535
#define Module_MinorVersion "4.79.2.149" #define Module_MinorVersion "4.79.2.150"
#define Module_Date "18 May 2012" #define Module_Date "21 May 2012"
#define Module_ApplicationDate "18-May-12" #define Module_ApplicationDate "21-May-12"
#define Module_ComponentName "Kernel" #define Module_ComponentName "Kernel"
#define Module_ComponentPath "castle/RiscOS/Sources/Kernel" #define Module_ComponentPath "castle/RiscOS/Sources/Kernel"
#define Module_FullVersion "5.35 (4.79.2.149)" #define Module_FullVersion "5.35 (4.79.2.150)"
#define Module_HelpVersion "5.35 (18 May 2012) 4.79.2.149" #define Module_HelpVersion "5.35 (21 May 2012) 4.79.2.150"
#define Module_LibraryVersionInfo "5:35" #define Module_LibraryVersionInfo "5:35"
hdr/KernelWS
View file @ 2c9aad90
...@@ -1185,16 +1185,12 @@ CLine_Softcopy # 1 ; Added for Morris - Monitor id ...@@ -1185,16 +1185,12 @@ CLine_Softcopy # 1 ; Added for Morris - Monitor id
VRAMWidth # 1 ; 0 => no VRAM, 1 => 32-bits wide, 2 => 64-bits wide VRAMWidth # 1 ; 0 => no VRAM, 1 => 32-bits wide, 2 => 64-bits wide
[ {FALSE} ;;; mjsHAL no LCD support
LCD_Active # 1 ; Added to support LCD/CRT switching. bm 6 bits 0=>External CRT in use, 1=>Mono, 2=>Passive colour, 3=>Active colour LCD_Active # 1 ; Added to support LCD/CRT switching. bm 6 bits 0=>External CRT in use, 1=>Mono, 2=>Passive colour, 3=>Active colour
; bit 7 unset=>single panel, set=>dual panel ; bit 7 unset=>single panel, set=>dual panel
LCD_Inverted # 1 ; Added to support LCD palette inversion. 0=normal, 1=inverted. Note that the inversion is invisible to apps. LCD_Inverted # 1 ; Added to support LCD palette inversion. 0=normal, 1=inverted. Note that the inversion is invisible to apps.
[ :DEF: ShowWS [ :DEF: ShowWS
! 0, "LCD_Active flag byte held at ":CC::STR:(LCD_Active) ! 0, "LCD_Active flag byte held at ":CC::STR:(LCD_Active)
] ]
|
# 2 ; SPARE
]
] ]
[ HAL [ HAL
...@@ -1414,18 +1410,8 @@ ChocolateMSBlocks # 4 ; -> array of blocks for module SWI hash n ...@@ -1414,18 +1410,8 @@ ChocolateMSBlocks # 4 ; -> array of blocks for module SWI hash n
! 0, "ChocolateMSBlocks at ":CC::STR:(ChocolateMSBlocks) ! 0, "ChocolateMSBlocks at ":CC::STR:(ChocolateMSBlocks)
] ]
[ :LNOT: HAL
mjs_tempHALworkspace # 4 ; required only temporarily for semi-HALised code still in RO kernel
[ :DEF: ShowWS
! 0, "*** mjs_tempHALworkspace should be removed when kernel/HAL split permits"
]
; !!!! Free Space (36 bytes)
OldSWIHashspace # 9*4
|
; !!!! Free Space (40 bytes) ; !!!! Free Space (40 bytes)
OldSWIHashspace # 10*4 OldSWIHashspace # 10*4
]
| |
; !!!! Free Space (64 bytes) ; !!!! Free Space (64 bytes)
OldSWIHashspace # 16*4 OldSWIHashspace # 16*4
......
s/ARM600
View file @ 2c9aad90
...@@ -180,12 +180,6 @@ SixteenMByte EQU (1024*1024 * 16) ...@@ -180,12 +180,6 @@ SixteenMByte EQU (1024*1024 * 16)
KEEP KEEP
; *****************************************************************************
; mjs Oct 2000 kernel/HAL split
; SetDAG stuff is no more, routines like SetVinit now call equivalent HAL
; routine
; **************** CAM manipulation utility routines *********************************** ; **************** CAM manipulation utility routines ***********************************
; ************************************************************************************** ; **************************************************************************************
...@@ -468,8 +462,8 @@ SSETMEMC ROUT ...@@ -468,8 +462,8 @@ SSETMEMC ROUT
MOV r1, #0 ; no funny business with DPMS MOV r1, #0 ; no funny business with DPMS
MOV r0, #0 MOV r0, #0
MOV r1 MOV r1
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_SetBlank CallHAL HAL_Video_SetBlank
Pull "r0-r3, r9, r14" Pull "r0-r3, r9, r14"
] ]
......
s/GetAll
View file @ 2c9aad90
...@@ -113,7 +113,6 @@ ...@@ -113,7 +113,6 @@
$GetMemInfo $GetMemInfo
! 0, "Main kernel size = &" :CC: :STR: (.-KernelBase) ! 0, "Main kernel size = &" :CC: :STR: (.-KernelBase)
StartOfVduDriver StartOfVduDriver
GET s.vdu.vduhint
GET s.vdu.VduDriver GET s.vdu.VduDriver
GET s.vdu.VduSWIs GET s.vdu.VduSWIs
GET s.vdu.VduPalette GET s.vdu.VduPalette
......
s/HAL
View file @ 2c9aad90
...@@ -872,11 +872,7 @@ MMUon_nol1ptoverlap ...@@ -872,11 +872,7 @@ MMUon_nol1ptoverlap
AddressHAL AddressHAL
CallHAL HAL_Init CallHAL HAL_Init
[ DebugHALTX DebugTX "HAL initialised"
BL DebugHALPrint
= "HAL initialised",0
ALIGN
]
LDR a1, =ZeroPage LDR a1, =ZeroPage
LDR v1, [a1, #InitUsedBlock] LDR v1, [a1, #InitUsedBlock]
......
s/Kernel
View file @ 2c9aad90
...@@ -16,28 +16,9 @@ ...@@ -16,28 +16,9 @@
SUBT Arthur Variables SUBT Arthur Variables
OPT 4 OPT 4
; ----------------------------------------------------------------------------- ; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
; ; handy macros:
; mjs Oct 2000 kernel/HAL split ; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
; macros that can be switched between doing real HAL calls and pseudo
; HAL calls with r9-> mjs pseudo HAL workspace
;
; these have been handy for interim HALising of kernel code in-situ
; (particularly used for video stuff), but can probably disappear later
;
[ HAL
MACRO
mjsAddressHAL $zero
AddressHAL $zero
MEND
MACRO
mjsCallHAL $rout
CallHAL $rout
MEND
MACRO MACRO
DebugTX $str DebugTX $str
...@@ -47,24 +28,6 @@ ...@@ -47,24 +28,6 @@
ALIGN ALIGN
] ]
MEND MEND
|
MACRO
mjsAddressHAL
LDR r9, =mjs_tempHALworkspace
LDR r9, [r9] ; sb -> pseudo HAL workspace
MEND
MACRO
mjsCallHAL $rout
BL $rout
MEND
] ;HAL
; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
; handy macros:
; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
MACRO MACRO
$l CheckSpaceOnStack $space, $faildest, $tmp $l CheckSpaceOnStack $space, $faildest, $tmp
...@@ -804,14 +767,8 @@ JTABLE & SWIWriteC ...@@ -804,14 +767,8 @@ JTABLE & SWIWriteC
& NoSuchSWI ; SpecialControl & NoSuchSWI ; SpecialControl
& NoSuchSWI ; EnterUSR32SWI & NoSuchSWI ; EnterUSR32SWI
& NoSuchSWI ; EnterUSR26SWI & NoSuchSWI ; EnterUSR26SWI
& NoSuchSWI ; VIDCDividerSWI
; End of unavailable SWIs. ; End of unavailable SWIs.
; Should not cause any problems on any machine. STB flag just to be safe though.
[ STB :LAND: {FALSE}
& VIDCDividerSWI
|
! 0, "mjsHAL - VIDCDividerSWI not implemented"
& NoSuchSWI
]
& NVMemorySWI & NVMemorySWI
& NoSuchSWI & NoSuchSWI
& NoSuchSWI & NoSuchSWI
......
s/VMSAv6
View file @ 2c9aad90
...@@ -37,12 +37,6 @@ SixteenMByte EQU (1024*1024 * 16) ...@@ -37,12 +37,6 @@ SixteenMByte EQU (1024*1024 * 16)
KEEP KEEP
; *****************************************************************************
; mjs Oct 2000 kernel/HAL split
; SetDAG stuff is no more, routines like SetVinit now call equivalent HAL
; routine
; **************** CAM manipulation utility routines *********************************** ; **************** CAM manipulation utility routines ***********************************
; ************************************************************************************** ; **************************************************************************************
...@@ -319,8 +313,8 @@ SSETMEMC ROUT ...@@ -319,8 +313,8 @@ SSETMEMC ROUT
MOV r1, #0 ; no funny business with DPMS MOV r1, #0 ; no funny business with DPMS
MOV r0, #0 MOV r0, #0
MOV r1 MOV r1
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_SetBlank CallHAL HAL_Video_SetBlank
Pull "r0-r3, r9, r14" Pull "r0-r3, r9, r14"
] ]
......
s/vdu/vdu23
View file @ 2c9aad90
...@@ -1521,8 +1521,8 @@ Vdu23_0_8 ROUT ...@@ -1521,8 +1521,8 @@ Vdu23_0_8 ROUT
Pull "R14" Pull "R14"
| |
Push "R0-R3, R9, R12, LR" Push "R0-R3, R9, R12, LR"
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_SetInterlace CallHAL HAL_Video_SetInterlace
Pull "R0-R3, R9, R12, LR" Pull "R0-R3, R9, R12, LR"
] ]
......
s/vdu/vdudriver
View file @ 2c9aad90
...@@ -177,24 +177,24 @@ VduInit ROUT ...@@ -177,24 +177,24 @@ VduInit ROUT
STRB R0, [WsPtr, #ExternalFramestore] STRB R0, [WsPtr, #ExternalFramestore]
Push "r4, r9, r12" Push "r4, r9, r12"
mjsAddressHAL AddressHAL
MOV r4, r12 ; temp WsPtr MOV r4, r12 ; temp WsPtr
mjsCallHAL HAL_Video_Features CallHAL HAL_Video_Features
; Set bit 31 of features if HAL_Video_Render supported ; Set bit 31 of features if HAL_Video_Render supported
CheckHAL HAL_Video_Render, r1 CheckHAL HAL_Video_Render, r1
ORREQ r0, r0, #1:SHL:31 ORREQ r0, r0, #1:SHL:31
STR r0, [r4, #HALVideoFeatures] STR r0, [r4, #HALVideoFeatures]
[ :LNOT:UseGraphicsV [ :LNOT:UseGraphicsV
mjsCallHAL HAL_Video_PixelFormats CallHAL HAL_Video_PixelFormats
STR r0, [r4, #HWPixelFormats] STR r0, [r4, #HWPixelFormats]
mjsCallHAL HAL_Video_BufferAlignment CallHAL HAL_Video_BufferAlignment
STR r0, [r4, #HWBufferAlign] STR r0, [r4, #HWBufferAlign]
] ]
Pull "r4, r9, r12" Pull "r4, r9, r12"
;;; sort this out! ;;; sort this out!
! 0, "mjsHAL not doing anything useful with HAL_Video_BufferAlignment" ! 0, "HAL not doing anything useful with HAL_Video_BufferAlignment"
! 0, "mjsHAL not dealing with lack of h/w pointer" ! 0, "HAL not dealing with lack of h/w pointer"
LDR R0, =RangeC+SpriteReason_SwitchOutputToSprite LDR R0, =RangeC+SpriteReason_SwitchOutputToSprite
STR R0, [WsPtr, #SpriteMaskSelect] STR R0, [WsPtr, #SpriteMaskSelect]
...@@ -245,18 +245,6 @@ VduInit ROUT ...@@ -245,18 +245,6 @@ VduInit ROUT
MOV R2, #7 ; copy 7 pages MOV R2, #7 ; copy 7 pages
BL DoResetFont BL DoResetFont
[ :LNOT: HAL
;
; mjsHAL - temporary workspace while semi HALised code still in kernel
;
MOV r3, #mjs_thalwk_size
BL ClaimSysHeapNode ; this had better succeed!
LDR r4, =mjs_tempHALworkspace
STR r2, [r4, #0]
BL mjs_tempHALworkspace_init
;
]
;initialise the 6 pointer shape pointers and blocks ;initialise the 6 pointer shape pointers and blocks
;(shape buffers are 6 * &100 starting at CursorData) ;(shape buffers are 6 * &100 starting at CursorData)
; ;
...@@ -906,7 +894,7 @@ TV_Mode_string ...@@ -906,7 +894,7 @@ TV_Mode_string
[ {FALSE} ;;; LCDPowerCtrl :LAND: :LNOT: STB [ {FALSE} ;;; LCDPowerCtrl :LAND: :LNOT: STB
;;; mjsHAL no LCD support ;;; HAL no LCD support
;Switch LCD off here if it is _not_ an LCD mode ;Switch LCD off here if it is _not_ an LCD mode
MOV R3, #0 MOV R3, #0
LDRB R3, [R3, #LCD_Active] LDRB R3, [R3, #LCD_Active]
...@@ -1090,8 +1078,8 @@ TV_Mode_string ...@@ -1090,8 +1078,8 @@ TV_Mode_string
MOV R4, #GraphicsV_SetMode MOV R4, #GraphicsV_SetMode
BL CallGraphicsV BL CallGraphicsV
| |
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_SetMode CallHAL HAL_Video_SetMode
Pull "R0-R3, R9, R12" ; restore registers after HAL call Pull "R0-R3, R9, R12" ; restore registers after HAL call
] ]
...@@ -1127,7 +1115,7 @@ TV_Mode_string ...@@ -1127,7 +1115,7 @@ TV_Mode_string
BL FF BL FF
[ {FALSE} ;;; LCDPowerCtrl :LAND: :LNOT: STB [ {FALSE} ;;; LCDPowerCtrl :LAND: :LNOT: STB
;;; mjsHAL no LCD support ;;; HAL no LCD support
;Switch the LCD on if LCD mode ;Switch the LCD on if LCD mode
Push "r0" Push "r0"
MOV R1, #0 MOV R1, #0
...@@ -1747,10 +1735,7 @@ svc_PortMan ...@@ -1747,10 +1735,7 @@ svc_PortMan
MOVNE PC, LR MOVNE PC, LR
[ {TRUE} [ {TRUE}
;;;mjsHAL - may need sorting/HAL split ! 0, "HAL - svc_PortMan broken by kernel/HAL split due to lack of VIDCControlSoftCopy"
;;; for now, switched out coz kernel doesn't have VIDCControlSoftCopy any more!
;;;
! 0, "mjsHAL - svc_PortMan currently broken by kernel/HAL split"
MOV PC, LR MOV PC, LR
| |
; When PortManager restarts, we need to put TV_Mode back. PortMan defaults to ; When PortManager restarts, we need to put TV_Mode back. PortMan defaults to
......
s/vdu/vdugrafv
View file @ 2c9aad90
...@@ -84,75 +84,75 @@ GV_VSync ROUT ...@@ -84,75 +84,75 @@ GV_VSync ROUT
GV_SetMode GV_SetMode
Push "r0-r3, r9, lr" Push "r0-r3, r9, lr"
mjsAddressHAL WsPtr AddressHAL WsPtr
MOV r4, #0 MOV r4, #0
mjsCallHAL HAL_Video_SetMode CallHAL HAL_Video_SetMode
Pull "r0-r3, r9, pc" Pull "r0-r3, r9, pc"
GV_SetInterlace GV_SetInterlace
Push "r0-r3, r9, lr" Push "r0-r3, r9, lr"
mjsAddressHAL WsPtr AddressHAL WsPtr
MOV r4, #0 MOV r4, #0
mjsCallHAL HAL_Video_SetInterlace CallHAL HAL_Video_SetInterlace
Pull "r0-r3, r9, pc" Pull "r0-r3, r9, pc"
GV_SetBlank GV_SetBlank
Push "r0-r3, r9, lr" Push "r0-r3, r9, lr"
mjsAddressHAL WsPtr AddressHAL WsPtr
MOV r4, #0 MOV r4, #0
mjsCallHAL HAL_Video_SetBlank CallHAL HAL_Video_SetBlank
Pull "r0-r3, r9, pc" Pull "r0-r3, r9, pc"
GV_UpdatePointer GV_UpdatePointer
Push "r0-r3, r9, lr" Push "r0-r3, r9, lr"
mjsAddressHAL WsPtr AddressHAL WsPtr
MOV r4, #0 MOV r4, #0
mjsCallHAL HAL_Video_UpdatePointer CallHAL HAL_Video_UpdatePointer
Pull "r0-r3, r9, pc" Pull "r0-r3, r9, pc"
GV_SetDMAAddress GV_SetDMAAddress
Push "r0-r3, r9, lr" Push "r0-r3, r9, lr"
mjsAddressHAL WsPtr AddressHAL WsPtr
MOV r4, #0 MOV r4, #0
mjsCallHAL HAL_Video_SetDAG CallHAL HAL_Video_SetDAG
Pull "r0-r3, r9, pc" Pull "r0-r3, r9, pc"
GV_VetMode GV_VetMode
Push "r1-r3, r9, lr" Push "r1-r3, r9, lr"
mjsAddressHAL WsPtr AddressHAL WsPtr
MOV r4, #0 MOV r4, #0
mjsCallHAL HAL_Video_VetMode CallHAL HAL_Video_VetMode
Pull "r1-r3, r9, pc" Pull "r1-r3, r9, pc"
GV_DisplayFeatures GV_DisplayFeatures
Push "r0,r1,r3, r9, lr" Push "r0,r1,r3, r9, lr"
mjsAddressHAL WsPtr AddressHAL WsPtr
MOV r4, #0 MOV r4, #0
mjsCallHAL HAL_Video_Features CallHAL HAL_Video_Features
STR r0, [sp, #0] STR r0, [sp, #0]
mjsCallHAL HAL_Video_PixelFormats CallHAL HAL_Video_PixelFormats
STR r0, [sp, #4] STR r0, [sp, #4]
mjsCallHAL HAL_Video_BufferAlignment CallHAL HAL_Video_BufferAlignment
MOV r2, r0 MOV r2, r0
Pull "r0,r1,r3, r9, pc" Pull "r0,r1,r3, r9, pc"
GV_WritePaletteEntry GV_WritePaletteEntry
Push "r0-r3, r9, lr" Push "r0-r3, r9, lr"
mjsAddressHAL WsPtr AddressHAL WsPtr
MOV r4, #0 MOV r4, #0
mjsCallHAL HAL_Video_WritePaletteEntry CallHAL HAL_Video_WritePaletteEntry
Pull "r0-r3, r9, pc" Pull "r0-r3, r9, pc"
GV_WritePaletteEntries GV_WritePaletteEntries
Push "r0-r3, r9, lr" Push "r0-r3, r9, lr"
mjsAddressHAL WsPtr AddressHAL WsPtr
MOV r4, #0 MOV r4, #0
mjsCallHAL HAL_Video_WritePaletteEntries CallHAL HAL_Video_WritePaletteEntries
Pull "r0-r3, r9, pc" Pull "r0-r3, r9, pc"
GV_ReadPaletteEntry GV_ReadPaletteEntry
Push "r0,r2-r3, r9, lr" Push "r0,r2-r3, r9, lr"
mjsAddressHAL WsPtr AddressHAL WsPtr
CheckHAL HAL_Video_ReadPaletteEntry, r3 CheckHAL HAL_Video_ReadPaletteEntry, r3
Pull "r0,r2-r3, r9, pc", EQ Pull "r0,r2-r3, r9, pc", EQ
MOV r4, #0 MOV r4, #0
...@@ -172,17 +172,17 @@ GV_Render ...@@ -172,17 +172,17 @@ GV_Render
MOVEQ pc, lr MOVEQ pc, lr
Push "r0-r3, r9, lr" Push "r0-r3, r9, lr"
ORR r0, r0, #1:SHL:31 ORR r0, r0, #1:SHL:31
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_Render CallHAL HAL_Video_Render
TEQ r0, #0 TEQ r0, #0
MOVPL r4, #0 MOVPL r4, #0
Pull "r0-r3, r9, pc" Pull "r0-r3, r9, pc"
GV_IICOp GV_IICOp
Push "r9, lr" Push "r9, lr"
mjsAddressHAL WsPtr AddressHAL WsPtr
MOV r4, #0 MOV r4, #0
mjsCallHAL HAL_Video_IICOp CallHAL HAL_Video_IICOp
Pull "r9, pc" Pull "r9, pc"
CallGraphicsV CallGraphicsV
......
s/vdu/vdupalxx
View file @ 2c9aad90
...@@ -85,7 +85,7 @@ MOSPaletteV ROUT ...@@ -85,7 +85,7 @@ MOSPaletteV ROUT
B PV_BulkRead ; 7 B PV_BulkRead ; 7
B PV_BulkWrite ; 8 B PV_BulkWrite ; 8
B PV_GammaCorrect ; 9 B PV_GammaCorrect ; 9
[ LCDInvert [ LCDInvert :LAND: :LNOT: HAL
B PV_LCDInvert ; 10 B PV_LCDInvert ; 10
| |
MOV pc, lr ; 10 MOV pc, lr ; 10
...@@ -641,8 +641,8 @@ UpdateSettingCommon ROUT ...@@ -641,8 +641,8 @@ UpdateSettingCommon ROUT
BCC %FT10 ; only hit hardware if flash state = first BCC %FT10 ; only hit hardware if flash state = first
;;;mjsHAL ;;; mjs
;;; old code had possible LCD greyscale munging, not supported in interim s.vduhint code ;;; Pre HAL code had possible LCD greyscale munging, not supported in interim s.vduhint code
;;; ;;;
[ UseGraphicsV [ UseGraphicsV
Push "r0-r2,r4,lr" Push "r0-r2,r4,lr"
...@@ -661,8 +661,8 @@ UpdateSettingCommon ROUT ...@@ -661,8 +661,8 @@ UpdateSettingCommon ROUT
CMP r0, #256 ; HI if pointer CMP r0, #256 ; HI if pointer
MOVLS r0, r0, LSR #8 ; type 0=normal, 1=border MOVLS r0, r0, LSR #8 ; type 0=normal, 1=border
MOVHI r0, #2 ; type 2=pointer MOVHI r0, #2 ; type 2=pointer
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_WritePaletteEntry CallHAL HAL_Video_WritePaletteEntry
Pull "r0-r3, r12, lr" Pull "r0-r3, r12, lr"
] ]
...@@ -692,8 +692,8 @@ UpdateSettingCommon ROUT ...@@ -692,8 +692,8 @@ UpdateSettingCommon ROUT
BCS %FT20 ; only hit hardware if flash state = second BCS %FT20 ; only hit hardware if flash state = second
;;;mjsHAL ;;; mjs
;;; old code had possible LCD greyscale munging, not supported in interim s.vduhint code ;;; Pre HAL code had possible LCD greyscale munging, not supported in interim s.vduhint code
;;; ;;;
[ UseGraphicsV [ UseGraphicsV
Push "r0-r2,r4,lr" Push "r0-r2,r4,lr"
...@@ -712,8 +712,8 @@ UpdateSettingCommon ROUT ...@@ -712,8 +712,8 @@ UpdateSettingCommon ROUT
CMP r0, #256 ; HI if pointer CMP r0, #256 ; HI if pointer
MOVLS r0, r0, LSR #8 ; type 0=normal, 1=border MOVLS r0, r0, LSR #8 ; type 0=normal, 1=border
MOVHI r0, #2 ; type 2=pointer MOVHI r0, #2 ; type 2=pointer
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_WritePaletteEntry CallHAL HAL_Video_WritePaletteEntry
Pull "r0-r3, r12, lr" Pull "r0-r3, r12, lr"
] ]
...@@ -905,8 +905,8 @@ DoR0Flash ...@@ -905,8 +905,8 @@ DoR0Flash
BL CallGraphicsV BL CallGraphicsV
| |
PHPSEI r10 ; disable IRQs round this bit PHPSEI r10 ; disable IRQs round this bit
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_WritePaletteEntries CallHAL HAL_Video_WritePaletteEntries
PLP r10 PLP r10
MOV r4, #0 MOV r4, #0
] ]
...@@ -936,7 +936,7 @@ UpdateAllPalette ROUT ...@@ -936,7 +936,7 @@ UpdateAllPalette ROUT
Entry "r0-r3, r10-r11" Entry "r0-r3, r10-r11"
| |
Entry "r0-r3, r9, r10-r12" Entry "r0-r3, r9, r10-r12"
mjsAddressHAL AddressHAL
] ]
;sort out which palette to use ;sort out which palette to use
LDROSB r0, FlashState LDROSB r0, FlashState
...@@ -975,18 +975,18 @@ UpdateAllPalette ROUT ...@@ -975,18 +975,18 @@ UpdateAllPalette ROUT
MOV r0, #0 ; type 0 (normal) MOV r0, #0 ; type 0 (normal)
MOV r2, #0 ; start at entry 0 MOV r2, #0 ; start at entry 0
MOV r3, #256 ; 256 entries MOV r3, #256 ; 256 entries
mjsCallHAL HAL_Video_WritePaletteEntries CallHAL HAL_Video_WritePaletteEntries
;next, border colour ;next, border colour
LDR r1, [r10] ; border colour LDR r1, [r10] ; border colour
MOV r0, #1 ; type 1 MOV r0, #1 ; type 1
MOV r2, #0 ; index 0 MOV r2, #0 ; index 0
mjsCallHAL HAL_Video_WritePaletteEntry CallHAL HAL_Video_WritePaletteEntry
;finally, pointer colours ;finally, pointer colours
ADD r1, r10, #4 ; pointer to pointer colours (oh yes) ADD r1, r10, #4 ; pointer to pointer colours (oh yes)
MOV r0, #2 ; type 2 MOV r0, #2 ; type 2
MOV r2, #1 ; start at index 1 MOV r2, #1 ; start at index 1
MOV r3, #3 ; 3 entries MOV r3, #3 ; 3 entries
mjsCallHAL HAL_Video_WritePaletteEntries CallHAL HAL_Video_WritePaletteEntries
] ]
; ;
PLP r11 PLP r11
...@@ -1022,8 +1022,8 @@ PV_BlankScreen ROUT ...@@ -1022,8 +1022,8 @@ PV_BlankScreen ROUT
BL CallGraphicsV BL CallGraphicsV
| |
Push "r0, r12" Push "r0, r12"
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_SetBlank CallHAL HAL_Video_SetBlank
Pull "r0, r12" Pull "r0, r12"
] ]
...@@ -1213,7 +1213,7 @@ PV_SetSupremacyXfer ROUT ...@@ -1213,7 +1213,7 @@ PV_SetSupremacyXfer ROUT
Pull "r0-r3, pc" Pull "r0-r3, pc"
[ LCDInvert [ LCDInvert :LAND: :LNOT: HAL
; ***************************************************************************** ; *****************************************************************************
; ;
; PV_LCDInvert - Invert the LCD palette ; PV_LCDInvert - Invert the LCD palette
...@@ -1223,8 +1223,6 @@ PV_SetSupremacyXfer ROUT ...@@ -1223,8 +1223,6 @@ PV_SetSupremacyXfer ROUT
; out: r4 = 0 ; out: r4 = 0
PV_LCDInvert ROUT PV_LCDInvert ROUT
;;;mjsHAL not supported
;;;
MOV r4, #0 MOV r4, #0
Pull "pc" Pull "pc"
] ]
...@@ -1237,8 +1235,8 @@ PV_VIDCDisable ROUT ...@@ -1237,8 +1235,8 @@ PV_VIDCDisable ROUT
Push "r0-r3, r9, r12" Push "r0-r3, r9, r12"
MOV r0, #1 MOV r0, #1
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_SetPowerSave CallHAL HAL_Video_SetPowerSave
MOV r4, #0 MOV r4, #0
Pull "r0-r3, r9, r12, pc" Pull "r0-r3, r9, r12, pc"
...@@ -1249,8 +1247,8 @@ PV_VIDCRestore ROUT ...@@ -1249,8 +1247,8 @@ PV_VIDCRestore ROUT
Push "r0-r3, r9, r12" Push "r0-r3, r9, r12"
MOV r0, #0 MOV r0, #0
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_SetPowerSave CallHAL HAL_Video_SetPowerSave
MOV r4, #0 MOV r4, #0
Pull "r0-r3, r9, r12, pc" Pull "r0-r3, r9, r12, pc"
......
s/vdu/vdupointer
View file @ 2c9aad90
...@@ -398,8 +398,8 @@ UpdatePointer ROUT ...@@ -398,8 +398,8 @@ UpdatePointer ROUT
Pull "PC" Pull "PC"
| |
Push "R9, R12, LR" Push "R9, R12, LR"
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_UpdatePointer CallHAL HAL_Video_UpdatePointer
Pull "R9, R12, PC" Pull "R9, R12, PC"
] ]
......
s/vdu/vduswis
View file @ 2c9aad90
...@@ -814,8 +814,8 @@ FindOKMode ROUT ...@@ -814,8 +814,8 @@ FindOKMode ROUT
MOVNE r0, #0 MOVNE r0, #0
Pull "r4" Pull "r4"
| |
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_VetMode CallHAL HAL_Video_VetMode
] ]
04 04
CMP r0,#0 CMP r0,#0
...@@ -2115,45 +2115,4 @@ ScreenMode_ForceCleanCache ...@@ -2115,45 +2115,4 @@ ScreenMode_ForceCleanCache
; Screen caching isn't supported yet. Just do nothing. ; Screen caching isn't supported yet. Just do nothing.
MOV pc,lr MOV pc,lr
;;;mjsHAL - VIDCDividerSWI is horrible VIDC specific API, compiled out
;;;
; Should not cause any problems on any machine. STB flag just to be safe though.
[ STB :LAND: {FALSE}
; *****************************************************************************
;
; VIDCDividerSWI - Entry point for SWI OS_VIDCDivider
;
; in: r0 = Value for divider - 1
;
; out: r0 = Preserved or error if V set
;
VIDCDividerSWI Entry "r0-r1,WsPtr"
CMP r0, #8 ; Check the value is in range.
BCC %FT10 ; Continue if so.
PullEnv ; Else return an error.
ADR r0, ErrorBlock_BadVIDCDivider ; Get address of error.
[ International
BL TranslateError ; Translate the error.
]
ORR lr, lr, #V_bit ; Return with V bit set.
ExitSWIHandler
10
VDWS WsPtr ; Get the VDU work space.
LDR r1, [WsPtr, #VIDCControlSoftCopy] ; Get the old control register value.
BIC r1, r1, #7:SHL:CR_PixelDivShift ; Mask out the old divider.
ORR r1, r1, r0, LSL #CR_PixelDivShift ; ORR in the new...
STR r1, [WsPtr, #VIDCControlSoftCopy] ; Write back to work space.
MOV r0, #VIDC
STR r1, [r0, #0] ; Write to VIDC also.
PullEnv ; Done.
ExitSWIHandler
ErrorBlock_BadVIDCDivider
& 0
= "BadVIDCDiv:Bad VIDC divider value.", 0
]
END END
s/vdu/vduwrch
View file @ 2c9aad90
...@@ -2243,8 +2243,8 @@ Do_HALDAG ...@@ -2243,8 +2243,8 @@ Do_HALDAG
Pull "r4, pc" Pull "r4, pc"
| |
Push "r3, r9, r12, lr" ; we can corrupt r0-r2 Push "r3, r9, r12, lr" ; we can corrupt r0-r2
mjsAddressHAL AddressHAL
mjsCallHAL HAL_Video_SetDAG CallHAL HAL_Video_SetDAG
Pull "r3, r9, r12, pc" Pull "r3, r9, r12, pc"
] ]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment