17 lines
333 B
C
17 lines
333 B
C
#include <rp6502.h>
|
|
#include <errno.h>
|
|
#include <string.h>
|
|
|
|
int __fastcall__ f_setlabel (const char* name)
|
|
{
|
|
size_t namelen = strlen (name);
|
|
if (namelen > 255) {
|
|
errno = EINVAL;
|
|
return -1;
|
|
}
|
|
while (namelen) {
|
|
ria_push_char (name[--namelen]);
|
|
}
|
|
return ria_call_int (RIA_OP_SETLABEL);
|
|
}
|