;MemAlloc stub module
;--------------------
;Stub MemAlloc module that does nothing, part of the
;Archimedes Software Preservation Project (JASPP)
;
;Author: Jonathan Abbott
; eMail: jon@jaspp.org.uk

#strset version_string = "1.00 (24 Oct 2012)"

#base 0
#name "<ADFFS$Dir>.MemAlloc"
#type &FFA

 DCD 0                            ;start
 DCD Entry                        ;initialisation
 DCD Entry                        ;finalisation
 DCD 0                            ;service call handler
 DCD MemAlloc_Title               ;title
 DCD MemAlloc_Help                ;help
 DCD 0                            ;command table
 DCD 0                            ;SWI_Base
 DCD 0                            ;SWI Entry
 DCD 0                            ;SWI Names
 DCD 0                            ;SWI name decoding code
 DCD 0                            ;?
 DCD _ModFlags                    ;module flags
._ModFlags
 DCD 1                            ;32-bit compatible

.MemAlloc_Help   DCB "MemAlloc", 9, version_string, 0
                 ALIGN
.MemAlloc_Title  DCB "MemAlloc", 0
                 ALIGN

.Entry
MOV     PC, R14
