DIRECTORY Environment, Space, PDInterpSysCalls, ProcessorFace; PDInterpSysCallsDevelImpl: MONITOR IMPORTS Space, ProcessorFace EXPORTS PDInterpSysCalls = BEGIN SetDisplayLights: PUBLIC PROC [value: [0..9999]] = {ProcessorFace.SetMP[value]}; AllocateSpace: PUBLIC ENTRY PROC [words: INT] RETURNS [LONG POINTER] = { ENABLE UNWIND => NULL; pages: CARDINAL _ (words+Environment.wordsPerPage)/Environment.wordsPerPage; RETURN [Space.ScratchMap[pages]] }; FreeSpace: PUBLIC ENTRY PROC [pointer: LONG POINTER] = { ENABLE UNWIND => NULL; [] _ Space.Unmap[pointer]; }; BadFreeSpaceRequest: PUBLIC ERROR = CODE; END. PPDInterpSysCallsDevelImpl.mesa Michael Plass, November 30, 1983 10:21 am Ę#˜Jšœ™J™)JšĎk œ5˜>šœ˜"Jšœ˜Jšœ˜—Jšœ˜J˜šĎnœœœ3˜PJ˜—šž œœœœ œœœœ˜HJšœœœ˜Jšœœ=˜LJšœ˜ Jšœ˜J˜—š ž œœœœ œœ˜8Jšœœœ˜Jšœ˜Jšœ˜J˜—šœœœœ˜)J˜—Jšœ˜J˜—…—fŮ