mirror of
https://github.com/uffejakobsen/acme.git
synced 2024-09-27 16:55:22 +00:00
294fe25c36
Stack indexing can now be given either as ",s" or as ",sp" (only relevant for 65816 and 65CE02). git-svn-id: https://svn.code.sf.net/p/acme-crossass/code-0/trunk@78 4df02467-bbd4-4a76-a152-e7ce94205b78
105 lines
2.3 KiB
C
105 lines
2.3 KiB
C
// ACME - a crossassembler for producing 6502/65c02/65816/65ce02 code.
|
|
// Copyright (C) 1998-2016 Marco Baye
|
|
// Have a look at "acme.c" for further info
|
|
//
|
|
// Platform specific stuff (in this case, for RISC OS)
|
|
#ifndef platform_C
|
|
#define platform_C
|
|
|
|
|
|
#include <stdlib.h>
|
|
#include <kernel.h>
|
|
#include "acme.h"
|
|
#include "input.h"
|
|
|
|
|
|
// constants
|
|
|
|
// SWIs
|
|
#define OS_FILE 0x00008
|
|
#define XDDEUTILS_THROWBACKSTART 0x62587
|
|
#define XDDEUTILS_THROWBACKSEND 0x62588
|
|
#define XDDEUTILS_THROWBACKEND 0x62589
|
|
|
|
|
|
// variables
|
|
int RISCOS_flags = 0; // used to store platform-specific flags
|
|
|
|
|
|
// exit handler: if throwback was used, de-register now
|
|
void RISCOS_exit(void)
|
|
{
|
|
_kernel_swi_regs regs;
|
|
|
|
if (RISCOS_flags & RISCOSFLAG_THROWN) {
|
|
_kernel_swi(XDDEUTILS_THROWBACKEND, ®s, ®s);
|
|
RISCOS_flags &= ~RISCOSFLAG_THROWN;
|
|
}
|
|
}
|
|
|
|
|
|
// used as PLATFORM_INIT: registers exit handler
|
|
void RISCOS_entry(void)
|
|
{
|
|
atexit(RISCOS_exit);
|
|
}
|
|
|
|
|
|
// convert UNIX-style pathname to RISC OS-style pathname
|
|
char RISCOS_convert_path_char(char byte)
|
|
{
|
|
if (byte == '.')
|
|
return '/';
|
|
if (byte == '/')
|
|
return '.';
|
|
if (byte == '?')
|
|
return '#';
|
|
if (byte == '#')
|
|
return '?';
|
|
return byte;
|
|
}
|
|
|
|
|
|
// setting the created files' types
|
|
void RISCOS_set_filetype(const char *filename, int file_type)
|
|
{
|
|
_kernel_swi_regs regs;
|
|
|
|
regs.r[0] = 18; // reason code (set file type)
|
|
regs.r[1] = (int) filename;
|
|
regs.r[2] = file_type;
|
|
_kernel_swi(OS_FILE, ®s, ®s);
|
|
}
|
|
|
|
|
|
// throwback protocol: "type" can be 0, 1 or 2 (DDEUtils message types)
|
|
void RISCOS_throwback(const char *message, int type)
|
|
{
|
|
_kernel_swi_regs regs;
|
|
|
|
// only use throwback protocol if wanted
|
|
if ((RISCOS_flags & RISCOSFLAG_THROWBACK) == 0)
|
|
return;
|
|
// if this is the first throwback, set it up and send info
|
|
if ((RISCOS_flags & RISCOSFLAG_THROWN) == 0) {
|
|
RISCOS_flags |= RISCOSFLAG_THROWN;
|
|
_kernel_swi(XDDEUTILS_THROWBACKSTART, ®s, ®s);
|
|
regs.r[0] = 0;
|
|
regs.r[1] = 0;
|
|
// regs.r[2] = (int) toplevel_source;
|
|
regs.r[2] = (int) Input_now->original_filename;
|
|
_kernel_swi(XDDEUTILS_THROWBACKSEND, ®s, ®s);
|
|
}
|
|
// send throwback message
|
|
regs.r[0] = 1;
|
|
regs.r[1] = 0;
|
|
regs.r[2] = (int) Input_now->original_filename;
|
|
regs.r[3] = Input_now->line_number;
|
|
regs.r[4] = type;
|
|
regs.r[5] = (int) message;
|
|
_kernel_swi(XDDEUTILS_THROWBACKSEND, ®s, ®s);
|
|
}
|
|
|
|
|
|
#endif
|