Commit 3feb0c0d authored by Stewart Brodie's avatar Stewart Brodie
Browse files

32-bit compatible.

Version 0.07. Tagged as 'RedrawMgr-0_07'
parent 0beabf9c
;
; This file is automatically maintained by srccommit, do not edit manually.
;
GBLS Module_MajorVersion
GBLA Module_Version
GBLS Module_MinorVersion
GBLS Module_Date
GBLS Module_FullVersion
Module_MajorVersion SETS "0.06"
Module_Version SETA 6
Module_MinorVersion SETS ""
Module_Date SETS "17 Nov 1999"
Module_FullVersion SETS "0.06"
GBLS Module_MajorVersion
GBLA Module_Version
GBLS Module_MinorVersion
GBLS Module_Date
GBLS Module_FullVersion
Module_MajorVersion SETS "0.07"
Module_Version SETA 7
Module_MinorVersion SETS ""
Module_Date SETS "05 Jun 2000"
Module_FullVersion SETS "0.07"
END
/* (0.06)
/* (0.07)
*
* This file is automatically maintained by srccommit, do not edit manually.
*
*/
#define Module_MajorVersion_CMHG 0.06
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 17 Nov 1999
#define Module_MajorVersion_CMHG 0.07
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 05 Jun 2000
#define Module_MajorVersion "0.06"
#define Module_Version 6
#define Module_MinorVersion ""
#define Module_Date "17 Nov 1999"
#define Module_MajorVersion "0.07"
#define Module_Version 7
#define Module_MinorVersion ""
#define Module_Date "05 Jun 2000"
#define Module_FullVersion "0.06"
#define Module_FullVersion "0.07"
......@@ -15,19 +15,11 @@
;Veneers for C functions which are used with the OS
GET VersionASM
XOS_WriteC * &20000
XOS_ServiceCall * &20030
XOS_WriteN * &20046
XOS_WriteI * &20100
Service_RedrawManagerInstalled * &A5
Service_RedrawManagerDying * &A6
; Keep in line with CMHG file
; GBLA Version
;Version SETA 5
GET Hdr:ListOpts
GET Hdr:Macros
GET Hdr:System
GET Hdr:Services
GET Hdr:APCS.<APCS>
GBLL Debug
Debug SETL {FALSE}
......@@ -40,7 +32,7 @@ Debug SETL {FALSE}
MACRO
$l StartVeneer
$l
STMFD sp!,{r0-r12,lr}
FunctionEntry "r0-r12"
[ Debug
MOV v3,r14
]
......@@ -83,7 +75,7 @@ $l
]
SUB sl,sl,#540
STMIA sl,{v1-v2} ; restore old reloc offsets
LDMFD sp!,{r0-r12,pc}^
Return "r0-r12"
MEND
MACRO
......@@ -106,13 +98,13 @@ $exp
EXPORT __sl
__sl
MOV r0,sl
MOVS pc,lr
Return ,LinkNotStacked
EXPORT tube_writec
tube_writec
MOV ip,lr
SWI &60102
MOVS pc,ip
Return ,LinkNotStacked,,ip
EXPORT tube_writes
tube_writes
......@@ -127,13 +119,13 @@ tube_writes
BL tube_writec
MOV r0,#10
BL tube_writec
MOVS pc,r2
Return ,LinkNotStacked,,r2
]
EXPORT register_cb
register_cb
STMFD sp!,{r0-r1,r14}
FunctionEntry "r0,r1"
MOV R0,#Module_Version
MOV R1,#Service_RedrawManagerInstalled
SWI XOS_ServiceCall
......@@ -141,7 +133,7 @@ register_cb
ADR r0,start_string
BL tube_writes
]
LDMFD sp!,{r0-r1,pc}^
Return "r0,r1"
[ Debug
start_string
......@@ -169,7 +161,7 @@ clipping_rectangle
SWIVC XOS_WriteC
MOVVC r0,r0,LSR #8
SWIVC XOS_WriteC
MOVS pc,r2
Return ,LinkNotStacked,,r2
END
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