Miroirs/x48
1
0
Fork 0
mirror of https://github.com/gwenhael-le-moine/x48.git synced 2025-01-12 20:01:13 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

format all sources

Browse source
This commit is contained in:
Gwenhael Le Moine 2022-03-24 13:41:22 +01:00
parent b50a915e0a
commit 33c0a11156
No known key found for this signature in database
GPG key ID: FDFE3669426707A7
38 changed files with 10403 additions and 11434 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

327
src/actions.c
View file

@ -83,21 +83,21 @@
#include <stdlib.h>
#include <unistd.h>
#include "debugger.h"
#include "device.h"
#include "hp48.h"
#include "hp48_emu.h"
#include "device.h"
#include "x48_x11.h"
#include "timer.h"
#include "debugger.h"
#include "romio.h"
#include "timer.h"
#include "x48_x11.h"
static int interrupt_called = 0;
extern long nibble_masks[16];
static int interrupt_called = 0;
extern long nibble_masks[16];
int got_alarm;
int got_alarm;
int conf_bank1 = 0x00000;
int conf_bank2 = 0x00000;
int conf_bank1 = 0x00000;
int conf_bank2 = 0x00000;
void do_in(void) {
int i, in, out;
@ -121,17 +121,11 @@ void do_in(void) {
}
}
void clear_program_stat(int n) {
saturn.PSTAT[n] = 0;
}
void clear_program_stat(int n) { saturn.PSTAT[n] = 0; }
void set_program_stat(int n) {
saturn.PSTAT[n] = 1;
}
void set_program_stat(int n) { saturn.PSTAT[n] = 1; }
int get_program_stat(int n) {
return saturn.PSTAT[n];
}
int get_program_stat(int n) { return saturn.PSTAT[n]; }
void register_to_status(unsigned char *r) {
int i;
@ -179,64 +173,55 @@ void set_register_nibble(unsigned char *reg, int n, unsigned char val) {
reg[n] = val;
}
unsigned char get_register_nibble(unsigned char *reg, int n) {
return reg[n];
}
unsigned char get_register_nibble(unsigned char *reg, int n) { return reg[n]; }
void set_register_bit(unsigned char *reg, int n) {
reg[n/4] |= (1 << (n%4));
reg[n / 4] |= (1 << (n % 4));
}
void clear_register_bit(unsigned char *reg, int n) {
reg[n/4] &= ~(1 << (n%4));
reg[n / 4] &= ~(1 << (n % 4));
}
int get_register_bit(unsigned char *reg, int n) {
return ((int)(reg[n/4] & (1 << (n%4))) > 0)?1:0;
return ((int)(reg[n / 4] & (1 << (n % 4))) > 0) ? 1 : 0;
}
short conf_tab_sx[] = { 1, 2, 2, 2, 2, 0 };
short conf_tab_gx[] = { 1, 2, 2, 2, 2, 0 };
short conf_tab_sx[] = {1, 2, 2, 2, 2, 0};
short conf_tab_gx[] = {1, 2, 2, 2, 2, 0};
void do_reset(void) {
int i;
for (i = 0; i < 6; i++)
{
if (opt_gx)
saturn.mem_cntl[i].unconfigured = conf_tab_gx[i];
else
saturn.mem_cntl[i].unconfigured = conf_tab_sx[i];
saturn.mem_cntl[i].config[0] = 0x0;
saturn.mem_cntl[i].config[1] = 0x0;
}
for (i = 0; i < 6; i++) {
if (opt_gx)
saturn.mem_cntl[i].unconfigured = conf_tab_gx[i];
else
saturn.mem_cntl[i].unconfigured = conf_tab_sx[i];
saturn.mem_cntl[i].config[0] = 0x0;
saturn.mem_cntl[i].config[1] = 0x0;
}
#ifdef DEBUG_CONFIG
fprintf(stderr, "%.5lx: RESET\n", saturn.PC);
for (i = 0; i < 6; i++)
{
if (saturn.mem_cntl[i].unconfigured)
fprintf(stderr, "MEMORY CONTROLLER %d is unconfigured\n", i);
else
fprintf(stderr, "MEMORY CONTROLLER %d is configured to %.5lx, %.5lx\n",
i, saturn.mem_cntl[i].config[0], saturn.mem_cntl[i].config[1]);
}
for (i = 0; i < 6; i++) {
if (saturn.mem_cntl[i].unconfigured)
fprintf(stderr, "MEMORY CONTROLLER %d is unconfigured\n", i);
else
fprintf(stderr, "MEMORY CONTROLLER %d is configured to %.5lx, %.5lx\n", i,
saturn.mem_cntl[i].config[0], saturn.mem_cntl[i].config[1]);
}
#endif
}
void do_inton(void) {
saturn.kbd_ien = 1;
}
void do_inton(void) { saturn.kbd_ien = 1; }
void do_intoff(void) {
saturn.kbd_ien = 0;
}
void do_intoff(void) { saturn.kbd_ien = 0; }
void do_return_interupt(void) {
if (saturn.int_pending) {
#ifdef DEBUG_INTERRUPT
fprintf(stderr, "PC = %.5lx: RTI SERVICE PENDING INTERRUPT\n",
saturn.PC);
fprintf(stderr, "PC = %.5lx: RTI SERVICE PENDING INTERRUPT\n", saturn.PC);
#endif
saturn.int_pending = 0;
saturn.intenable = 0;
@ -255,7 +240,6 @@ void do_return_interupt(void) {
schedule_event = 0;
sched_adjtime = 0;
}
}
}
@ -314,30 +298,27 @@ void do_unconfigure(void) {
conf |= saturn.C[i];
}
for (i = 0; i < 6; i++)
{
if (saturn.mem_cntl[i].config[0] == conf)
{
if (opt_gx)
saturn.mem_cntl[i].unconfigured = conf_tab_gx[i];
else
saturn.mem_cntl[i].unconfigured = conf_tab_sx[i];
saturn.mem_cntl[i].config[0] = 0x0;
saturn.mem_cntl[i].config[1] = 0x0;
break;
}
for (i = 0; i < 6; i++) {
if (saturn.mem_cntl[i].config[0] == conf) {
if (opt_gx)
saturn.mem_cntl[i].unconfigured = conf_tab_gx[i];
else
saturn.mem_cntl[i].unconfigured = conf_tab_sx[i];
saturn.mem_cntl[i].config[0] = 0x0;
saturn.mem_cntl[i].config[1] = 0x0;
break;
}
}
#ifdef DEBUG_CONFIG
fprintf(stderr, "%.5lx: UNCNFG %.5x:\n", saturn.PC, conf);
for (i = 0; i < 6; i++)
{
if (saturn.mem_cntl[i].unconfigured)
fprintf(stderr, "MEMORY CONTROLLER %d is unconfigured\n", i);
else
fprintf(stderr, "MEMORY CONTROLLER %d is configured to %.5lx, %.5lx\n",
i, saturn.mem_cntl[i].config[0], saturn.mem_cntl[i].config[1]);
}
for (i = 0; i < 6; i++) {
if (saturn.mem_cntl[i].unconfigured)
fprintf(stderr, "MEMORY CONTROLLER %d is unconfigured\n", i);
else
fprintf(stderr, "MEMORY CONTROLLER %d is configured to %.5lx, %.5lx\n", i,
saturn.mem_cntl[i].config[0], saturn.mem_cntl[i].config[1]);
}
#endif
}
@ -351,40 +332,35 @@ void do_configure(void) {
conf |= saturn.C[i];
}
for (i = 0; i < 6; i++)
{
if (saturn.mem_cntl[i].unconfigured)
{
saturn.mem_cntl[i].unconfigured--;
saturn.mem_cntl[i].config[saturn.mem_cntl[i].unconfigured] = conf;
break;
}
for (i = 0; i < 6; i++) {
if (saturn.mem_cntl[i].unconfigured) {
saturn.mem_cntl[i].unconfigured--;
saturn.mem_cntl[i].config[saturn.mem_cntl[i].unconfigured] = conf;
break;
}
}
#ifdef DEBUG_CONFIG
fprintf(stderr, "%.5lx: CONFIG %.5lx:\n", saturn.PC, conf);
for (i = 0; i < 6; i++)
{
if (saturn.mem_cntl[i].unconfigured)
fprintf(stderr, "MEMORY CONTROLLER %d is unconfigured\n", i);
else
fprintf(stderr, "MEMORY CONTROLLER %d at %.5lx, %.5lx\n",
i, saturn.mem_cntl[i].config[0], saturn.mem_cntl[i].config[1]);
}
for (i = 0; i < 6; i++) {
if (saturn.mem_cntl[i].unconfigured)
fprintf(stderr, "MEMORY CONTROLLER %d is unconfigured\n", i);
else
fprintf(stderr, "MEMORY CONTROLLER %d at %.5lx, %.5lx\n", i,
saturn.mem_cntl[i].config[0], saturn.mem_cntl[i].config[1]);
}
#endif
}
int get_identification(void) {
int i;
static int chip_id[]
= { 0, 0, 0, 0, 0x05, 0xf6, 0x07, 0xf8, 0x01, 0xf2, 0, 0 };
static int chip_id[] = {0, 0, 0, 0, 0x05, 0xf6, 0x07, 0xf8, 0x01, 0xf2, 0, 0};
int id;
for (i = 0; i < 6; i++)
{
if (saturn.mem_cntl[i].unconfigured)
break;
}
for (i = 0; i < 6; i++) {
if (saturn.mem_cntl[i].unconfigured)
break;
}
if (i < 6)
id = chip_id[2 * i + (2 - saturn.mem_cntl[i].unconfigured)];
else
@ -392,29 +368,25 @@ int get_identification(void) {
#ifdef DEBUG_ID
fprintf(stderr, "%.5lx: C=ID, returning: %x\n", saturn.PC, id);
for (i = 0; i < 6; i++)
{
if (saturn.mem_cntl[i].unconfigured == 2)
fprintf(stderr, "MEMORY CONTROLLER %d is unconfigured\n", i);
else if (saturn.mem_cntl[i].unconfigured == 1)
{
if (i == 0)
fprintf(stderr, "MEMORY CONTROLLER %d unconfigured\n", i);
else
fprintf(stderr, "MEMORY CONTROLLER %d configured to ????? %.5lx\n",
i, saturn.mem_cntl[i].config[1]);
}
for (i = 0; i < 6; i++) {
if (saturn.mem_cntl[i].unconfigured == 2)
fprintf(stderr, "MEMORY CONTROLLER %d is unconfigured\n", i);
else if (saturn.mem_cntl[i].unconfigured == 1) {
if (i == 0)
fprintf(stderr, "MEMORY CONTROLLER %d unconfigured\n", i);
else
fprintf(stderr, "MEMORY CONTROLLER %d configured to %.5lx, %.5lx\n",
i, saturn.mem_cntl[i].config[0], saturn.mem_cntl[i].config[1]);
}
fprintf(stderr, "MEMORY CONTROLLER %d configured to ????? %.5lx\n", i,
saturn.mem_cntl[i].config[1]);
} else
fprintf(stderr, "MEMORY CONTROLLER %d configured to %.5lx, %.5lx\n", i,
saturn.mem_cntl[i].config[0], saturn.mem_cntl[i].config[1]);
}
#endif
for (i = 0; i < 3; i++)
{
saturn.C[i] = id & 0x0f;
id >>= 4;
}
for (i = 0; i < 3; i++) {
saturn.C[i] = id & 0x0f;
id >>= 4;
}
return 0;
}
@ -426,7 +398,8 @@ void do_shutdown(void) {
device.display_touched = 0;
update_display();
#ifdef HAVE_XSHM
if (disp.display_update) refresh_display();
if (disp.display_update)
refresh_display();
#endif
}
@ -463,7 +436,8 @@ void do_shutdown(void) {
got_alarm = 0;
#ifdef HAVE_XSHM
if (disp.display_update) refresh_display();
if (disp.display_update)
refresh_display();
#endif
ticks = get_t1_t2();
@ -479,34 +453,28 @@ void do_shutdown(void) {
wake = 1;
}
if (saturn.timer2 <= 0)
{
if (saturn.t2_ctrl & 0x04)
{
wake = 1;
}
if (saturn.t2_ctrl & 0x02)
{
wake = 1;
saturn.t2_ctrl |= 0x08;
do_interupt();
}
if (saturn.timer2 <= 0) {
if (saturn.t2_ctrl & 0x04) {
wake = 1;
}
if (saturn.t2_ctrl & 0x02) {
wake = 1;
saturn.t2_ctrl |= 0x08;
do_interupt();
}
}
if (saturn.timer1 <= 0)
{
saturn.timer1 &= 0x0f;
if (saturn.t1_ctrl & 0x04)
{
wake = 1;
}
if (saturn.t1_ctrl & 0x03)
{
wake = 1;
saturn.t1_ctrl |= 0x08;
do_interupt();
}
if (saturn.timer1 <= 0) {
saturn.timer1 &= 0x0f;
if (saturn.t1_ctrl & 0x04) {
wake = 1;
}
if (saturn.t1_ctrl & 0x03) {
wake = 1;
saturn.t1_ctrl |= 0x08;
do_interupt();
}
}
if (wake == 0) {
interrupt_called = 0;
@ -518,10 +486,9 @@ void do_shutdown(void) {
alarms++;
}
if (enter_debugger)
{
wake = 1;
}
if (enter_debugger) {
wake = 1;
}
} while (wake == 0);
stop_timer(IDLE_TIMER);
@ -529,24 +496,40 @@ void do_shutdown(void) {
}
void set_hardware_stat(int op) {
if (op & 1) saturn.XM = 1;
if (op & 2) saturn.SB = 1;
if (op & 4) saturn.SR = 1;
if (op & 8) saturn.MP = 1;
if (op & 1)
saturn.XM = 1;
if (op & 2)
saturn.SB = 1;
if (op & 4)
saturn.SR = 1;
if (op & 8)
saturn.MP = 1;
}
void clear_hardware_stat(int op) {
if (op & 1) saturn.XM = 0;
if (op & 2) saturn.SB = 0;
if (op & 4) saturn.SR = 0;
if (op & 8) saturn.MP = 0;
if (op & 1)
saturn.XM = 0;
if (op & 2)
saturn.SB = 0;
if (op & 4)
saturn.SR = 0;
if (op & 8)
saturn.MP = 0;
}
int is_zero_hardware_stat(int op) {
if (op & 1) if (saturn.XM != 0) return 0;
if (op & 2) if (saturn.SB != 0) return 0;
if (op & 4) if (saturn.SR != 0) return 0;
if (op & 8) if (saturn.MP != 0) return 0;
if (op & 1)
if (saturn.XM != 0)
return 0;
if (op & 2)
if (saturn.SB != 0)
return 0;
if (op & 4)
if (saturn.SR != 0)
return 0;
if (op & 8)
if (saturn.MP != 0)
return 0;
return 1;
}
@ -561,7 +544,7 @@ void push_return_addr(long addr) {
}
#endif
for (i = 1; i < NR_RSTK; i++)
saturn.rstk[i-1] = saturn.rstk[i];
saturn.rstk[i - 1] = saturn.rstk[i];
saturn.rstkp--;
}
saturn.rstk[saturn.rstkp] = addr;
@ -581,14 +564,14 @@ long pop_return_addr(void) {
fprintf(stderr, "RSTK[%d] %.5x\n", i, saturn.rstk[i]);
}
fprintf(stderr, "POP %.5x:\n",
(saturn.rstkp >= 0) ? saturn.rstk[saturn.rstkp]:0);
(saturn.rstkp >= 0) ? saturn.rstk[saturn.rstkp] : 0);
#endif
if (saturn.rstkp < 0)
return 0;
return saturn.rstk[saturn.rstkp--];
}
char * make_hexstr(long addr, int n) {
char *make_hexstr(long addr, int n) {
static char str[44];
int i, t, trunc;
@ -598,7 +581,7 @@ char * make_hexstr(long addr, int n) {
trunc = 1;
}
for (i = 0; i < n; i++) {
t = read_nibble(addr+i);
t = read_nibble(addr + i);
if (t <= 9)
str[i] = '0' + t;
else
@ -607,9 +590,9 @@ char * make_hexstr(long addr, int n) {
str[n] = '\0';
if (trunc) {
str[n] = '.';
str[n+1] = '.';
str[n+2] = '.';
str[n+3] = '\0';
str[n + 1] = '.';
str[n + 2] = '.';
str[n + 3] = '\0';
}
return str;
}
@ -698,17 +681,11 @@ void add_address(word_20 *dat, int add) {
*dat &= 0xfffff;
}
static int start_fields[] = {
-1, 0, 2, 0, 15, 3, 0, 0,
-1, 0, 2, 0, 15, 3, 0, 0,
0, 0, 0
};
static int start_fields[] = {-1, 0, 2, 0, 15, 3, 0, 0, -1, 0,
2, 0, 15, 3, 0, 0, 0, 0, 0};
static int end_fields[] = {
-1, -1, 2, 2, 15, 14, 1, 15,
-1, -1, 2, 2, 15, 14, 1, 4,
3, 2, 0
};
static int end_fields[] = {-1, -1, 2, 2, 15, 14, 1, 15, -1, -1,
2, 2, 15, 14, 1, 4, 3, 2, 0};
static inline int get_start(int code) {
int s;

6
src/append.h
View file

@ -38,8 +38,8 @@
#include "global.h"
extern char * append_str __ProtoType__((char *buf, char *string));
extern char * append_tab __ProtoType__((char *buf));
extern char * append_tab_16 __ProtoType__((char *buf));
extern char *append_str __ProtoType__((char *buf, char *string));
extern char *append_tab __ProtoType__((char *buf));
extern char *append_tab_16 __ProtoType__((char *buf));
#endif /* !_APPEND_H */

16
src/checkrom.c
View file

@ -39,8 +39,8 @@
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/stat.h>
#include <unistd.h>
#include "global.h"
#include "romio.h"
@ -48,7 +48,7 @@
unsigned char *rom;
unsigned short rom_crc, crc;
int verbose = 0;
int verbose = 0;
char *progname;
#define calc_crc(n) (crc = ((crc >> 4) ^ (((crc ^ n) & 0xf) * 0x1081)))
@ -61,14 +61,13 @@ int main(int argc, char **argv) {
if (argc < 2) {
fprintf(stderr, "usage: %s rom-file\n", argv[0]);
exit (1);
exit(1);
}
if (!read_rom_file(argv[1], &rom, &rom_size))
{
fprintf(stderr, "%s: can\'t read ROM from %s\n", argv[0], argv[1]);
exit (1);
}
if (!read_rom_file(argv[1], &rom, &rom_size)) {
fprintf(stderr, "%s: can\'t read ROM from %s\n", argv[0], argv[1]);
exit(1);
}
if (opt_gx != 0)
ver_addr = 0x7ffbf;
@ -82,7 +81,6 @@ int main(int argc, char **argv) {
version[6] = '\0';
printf("ROM Version is %s\n", version);
for (i = 0x100; i < 0x140; i++) {
rom[i] = 0x0;
}

5
src/constants.h
View file

@ -40,9 +40,8 @@
/*
* Color modes this program can cope with
*/
#define COLOR_MODE_MONO 1
#define COLOR_MODE_GRAY 2
#define COLOR_MODE_MONO 1
#define COLOR_MODE_GRAY 2
#define COLOR_MODE_COLOR 3
#endif /* !_CONSTANTS_H */

2040
src/debugger.c
View file

File diff suppressed because it is too large Load diff

26
src/debugger.h
View file

@ -38,29 +38,29 @@
*/
#ifndef _DEBUGGER_H
#define _DEBUGGER_H 1
#define _DEBUGGER_H 1
#include "global.h"
#include "hp48.h"
#define USER_INTERRUPT 1
#define ILLEGAL_INSTRUCTION 2
#define BREAKPOINT_HIT 4
#define TRAP_INSTRUCTION 8
#define USER_INTERRUPT 1
#define ILLEGAL_INSTRUCTION 2
#define BREAKPOINT_HIT 4
#define TRAP_INSTRUCTION 8
/*
* exec_flags values
*/
#define EXEC_BKPT 1
#define EXEC_BKPT 1
extern int enter_debugger;
extern int in_debugger;
extern int exec_flags;
extern int enter_debugger;
extern int in_debugger;
extern int exec_flags;
extern void init_debugger __ProtoType__((void));
extern int debug __ProtoType__((void));
extern int emulate_debug __ProtoType__((void));
extern void init_debugger __ProtoType__((void));
extern int debug __ProtoType__((void));
extern int emulate_debug __ProtoType__((void));
extern char *str_nibbles __ProtoType__((word_20 addr, int n));
extern char *str_nibbles __ProtoType__((word_20 addr, int n));
#endif /* !_DEBUGGER_H */

4
src/device.c
View file

@ -53,9 +53,9 @@
#include <stdlib.h>
#include "device.h"
#include "hp48.h"
#include "hp48_emu.h"
#include "device.h"
#include "timer.h"
#include "x48_x11.h"
@ -175,10 +175,10 @@ void check_devices(void) {
#if 0
#include <fcntl.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
void check_out_register(void) {
static int au = -2;

31
src/device.h
View file

@ -51,19 +51,20 @@
#define _DEVICE_H 1
#include "global.h"
#include "hp48.h"
#define DISP_INSTR_OFF 0x10
#define DISP_INSTR_OFF 0x10
#define ANN_LEFT 0x81
#define ANN_RIGHT 0x82
#define ANN_ALPHA 0x84
#define ANN_BATTERY 0x88
#define ANN_BUSY 0x90
#define ANN_IO 0xa0
#define ANN_LEFT 0x81
#define ANN_RIGHT 0x82
#define ANN_ALPHA 0x84
#define ANN_BATTERY 0x88
#define ANN_BUSY 0x90
#define ANN_IO 0xa0
typedef struct device_t {
int display_touched;
int display_touched;
char contrast_touched;
@ -116,16 +117,16 @@ typedef struct device_t {
} device_t;
extern device_t device;
extern void check_devices __ProtoType__((void));
extern void check_devices __ProtoType__((void));
#if 0
extern void check_out_register __ProtoType__((void));
#endif
extern void update_display __ProtoType__((void));
extern void redraw_display __ProtoType__((void));
extern void disp_draw_nibble __ProtoType__((word_20 addr, word_4 val));
extern void menu_draw_nibble __ProtoType__((word_20 addr, word_4 val));
extern void draw_annunc __ProtoType__((void));
extern void redraw_annunc __ProtoType__((void));
extern void update_display __ProtoType__((void));
extern void redraw_display __ProtoType__((void));
extern void disp_draw_nibble __ProtoType__((word_20 addr, word_4 val));
extern void menu_draw_nibble __ProtoType__((word_20 addr, word_4 val));
extern void draw_annunc __ProtoType__((void));
extern void redraw_annunc __ProtoType__((void));
#endif /* !_DEVICE_H */

2457
src/disasm.c
View file

File diff suppressed because it is too large Load diff

90
src/dump2rom.c
View file

@ -45,13 +45,12 @@
* $Id: dump2rom.c,v 1.7 1995/01/11 18:20:01 ecd Exp ecd $
*/
#include "global.h"
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <unistd.h>
#ifdef SUNOS
#include <memory.h>
#endif
@ -67,44 +66,36 @@ int write_mem_file(char *name, unsigned char *mem, int size) {
unsigned char byte;
int i, j;
if (NULL == (fp = fopen(name, "w")))
{
fprintf(stderr, "can\'t open %s\n", name);
if (NULL == (fp = fopen(name, "w"))) {
fprintf(stderr, "can\'t open %s\n", name);
return 0;
}
if (NULL == (tmp_mem = (unsigned char *)malloc((size_t)size / 2))) {
for (i = 0, j = 0; i < size / 2; i++) {
byte = (mem[j++] & 0x0f);
byte |= (mem[j++] << 4) & 0xf0;
if (1 != fwrite(&byte, 1, 1, fp)) {
fprintf(stderr, "can\'t write %s\n", name);
fclose(fp);
return 0;
}
}
} else {
for (i = 0, j = 0; i < size / 2; i++) {
tmp_mem[i] = (mem[j++] & 0x0f);
tmp_mem[i] |= (mem[j++] << 4) & 0xf0;
}
if (fwrite(tmp_mem, 1, (size_t)size / 2, fp) != size / 2) {
fprintf(stderr, "can\'t write %s\n", name);
fclose(fp);
free(tmp_mem);
return 0;
}
if (NULL == (tmp_mem = (unsigned char *)malloc((size_t)size / 2)))
{
for (i = 0, j = 0; i < size / 2; i++)
{
byte = (mem[j++] & 0x0f);
byte |= (mem[j++] << 4) & 0xf0;
if (1 != fwrite(&byte, 1, 1, fp))
{
fprintf(stderr, "can\'t write %s\n", name);
fclose(fp);
return 0;
}
}
}
else
{
for (i = 0, j = 0; i < size / 2; i++)
{
tmp_mem[i] = (mem[j++] & 0x0f);
tmp_mem[i] |= (mem[j++] << 4) & 0xf0;
}
if (fwrite(tmp_mem, 1, (size_t)size / 2, fp) != size / 2)
{
fprintf(stderr, "can\'t write %s\n", name);
fclose(fp);
free(tmp_mem);
return 0;
}
free(tmp_mem);
}
free(tmp_mem);
}
fclose(fp);
return 1;
@ -117,17 +108,17 @@ int main(int argc, char **argv) {
if (argc < 2) {
fprintf(stderr, "usage: %s hp48-dump-file\n", argv[0]);
exit (1);
exit(1);
}
if ((dump = fopen(argv[1], "r")) == NULL) {
fprintf(stderr, "%s: can\'t open %s\n", argv[0], argv[1]);
exit (1);
exit(1);
}
if ((core = (unsigned char *)malloc(0x100000)) == NULL) {
fprintf(stderr, "%s: can\'t malloc %d bytes\n", argv[0], 0x100000);
exit (1);
exit(1);
}
memset(core, 0, 0x100000);
@ -160,8 +151,8 @@ int main(int argc, char **argv) {
break;
}
if (ch != ':') {
fprintf(stderr, "%s: Illegal char %c, expected \':\' at %lx\n",
argv[0], ch, addr);
fprintf(stderr, "%s: Illegal char %c, expected \':\' at %lx\n", argv[0],
ch, addr);
break;
}
for (i = 0; i < 16; i++) {
@ -185,8 +176,8 @@ int main(int argc, char **argv) {
if ((ch = fgetc(dump)) < 0)
break;
if (ch != '\n') {
fprintf(stderr, "%s: Illegal char %c, expected \'\\n\' at %lx\n",
argv[0], ch, addr);
fprintf(stderr, "%s: Illegal char %c, expected \'\\n\' at %lx\n", argv[0],
ch, addr);
break;
}
}
@ -198,11 +189,10 @@ int main(int argc, char **argv) {
size = 0x100000;
else
size = 0x80000;
if (!write_mem_file(DEFAULT_ROM_FILE, core, size))
{
fprintf(stderr, "%s: can\'t write to %s\n", argv[0], DEFAULT_ROM_FILE);
exit (1);
}
if (!write_mem_file(DEFAULT_ROM_FILE, core, size)) {
fprintf(stderr, "%s: can\'t write to %s\n", argv[0], DEFAULT_ROM_FILE);
exit(1);
}
exit (0);
exit(0);
}

3519
src/emulate.c
View file

File diff suppressed because it is too large Load diff

21
src/errors.c
View file

@ -31,23 +31,26 @@
#include "global.h"
#include "resources.h"
char errbuf[1024] = { 0, };
char fixbuf[1024] = { 0, };
char errbuf[1024] = {
0,
};
char fixbuf[1024] = {
0,
};
void fatal_exit(void) {
if (quiet)
exit (1);
exit(1);
if (errbuf[0] == '\0')
{
fprintf(stderr, "%s: FATAL ERROR, exit.\n", progname);
exit (1);
}
if (errbuf[0] == '\0') {
fprintf(stderr, "%s: FATAL ERROR, exit.\n", progname);
exit(1);
}
fprintf(stderr, "%s: FATAL ERROR, exit.\n - %s\n", progname, errbuf);
if (fixbuf[0] != '\0')
fprintf(stderr, " - %s\n", fixbuf);
exit (1);
exit(1);
}

2
src/errors.h
View file

@ -32,6 +32,6 @@
extern char errbuf[1024];
extern char fixbuf[1024];
extern void fatal_exit __ProtoType__ ((void));
extern void fatal_exit __ProtoType__((void));
#endif /* !_ERRORS_H */

60
src/global.h
View file

@ -60,41 +60,41 @@
#if defined(linux)
#ifndef LINUX
#define LINUX 1
#define LINUX 1
#endif
#define SYSV_TIME 1
#else /* Not Linux */
#else /* Not Linux */
#if defined(sun) && defined(unix)
#if defined(__svr4__) || defined(SVR4) || defined(SYSV)
#ifndef SOLARIS
#define SOLARIS 1
#define SOLARIS 1
#endif
#define SYSV_TIME 1
#else /* Not Solaris */
#else /* Not Solaris */
#if defined(hpux)
#ifndef HPUX
#define HPUX 1
#define HPUX 1
#endif
#else /* Not HP-UX */
#else /* Not HP-UX */
#ifndef SUNOS
#define SUNOS 1
#define SUNOS 1
#endif
#endif /* Not HP-UX */
#endif /* Not Solaris */
#endif /* Sun && Unix */
#endif /* Not Linux */
#endif /* Not HP-UX */
#endif /* Not Solaris */
#endif /* Sun && Unix */
#endif /* Not Linux */
#ifdef SYSV
#ifndef SYSV_TIME
@ -112,28 +112,28 @@
#include <stdio.h>
#include <sys/time.h>
#include <sys/types.h>
extern int printf __ProtoType__((char *, ...));
extern int fprintf __ProtoType__((FILE *, char *, ...));
extern int sscanf __ProtoType__((char *, char *, ...));
extern void fflush __ProtoType__((FILE *));
extern int fseek __ProtoType__((FILE *, long, int));
extern int fread __ProtoType__((void *, int, int, FILE*));
extern int fwrite __ProtoType__((void *, int, int, FILE*));
extern void fclose __ProtoType__((FILE *));
extern int fgetc __ProtoType__((FILE *));
extern void bzero __ProtoType__((void *, int));
extern time_t time __ProtoType__((time_t *));
extern int select __ProtoType__((int, fd_set *, fd_set *,
fd_set *, struct timeval *));
extern int setitimer __ProtoType__((int, struct itimerval *,
struct itimerval *));
extern int gethostname __ProtoType__((char *, int));
extern int printf __ProtoType__((char *, ...));
extern int fprintf __ProtoType__((FILE *, char *, ...));
extern int sscanf __ProtoType__((char *, char *, ...));
extern void fflush __ProtoType__((FILE *));
extern int fseek __ProtoType__((FILE *, long, int));
extern int fread __ProtoType__((void *, int, int, FILE *));
extern int fwrite __ProtoType__((void *, int, int, FILE *));
extern void fclose __ProtoType__((FILE *));
extern int fgetc __ProtoType__((FILE *));
extern void bzero __ProtoType__((void *, int));
extern time_t time __ProtoType__((time_t *));
extern int select __ProtoType__((int, fd_set *, fd_set *, fd_set *,
struct timeval *));
extern int setitimer __ProtoType__((int, struct itimerval *,
struct itimerval *));
extern int gethostname __ProtoType__((char *, int));
#ifdef HAVE_XSHM
#include <sys/ipc.h>
#include <sys/shm.h>
extern int shmget __ProtoType__((key_t, int, int));
extern int shmat __ProtoType__((int, void *, int));
extern int shmctl __ProtoType__((int, int, struct shmid_ds *));
extern int shmget __ProtoType__((key_t, int, int));
extern int shmat __ProtoType__((int, void *, int));
extern int shmctl __ProtoType__((int, int, struct shmid_ds *));
#endif
#endif

217
src/hp48.h
View file

@ -69,38 +69,38 @@
#include "mmu.h"
#ifdef HAVE_STDINT_H
# include <stdint.h>
#include <stdint.h>
#endif
#define RAM_SIZE_SX 0x10000
#define RAM_SIZE_GX 0x40000
#define P_FIELD 0
#define WP_FIELD 1
#define XS_FIELD 2
#define X_FIELD 3
#define S_FIELD 4
#define M_FIELD 5
#define B_FIELD 6
#define W_FIELD 7
#define A_FIELD 15
#define IN_FIELD 16
#define OUT_FIELD 17
#define OUTS_FIELD 18
#define P_FIELD 0
#define WP_FIELD 1
#define XS_FIELD 2
#define X_FIELD 3
#define S_FIELD 4
#define M_FIELD 5
#define B_FIELD 6
#define W_FIELD 7
#define A_FIELD 15
#define IN_FIELD 16
#define OUT_FIELD 17
#define OUTS_FIELD 18
#define DEC 10
#define HEX 16
#define DEC 10
#define HEX 16
#define NR_RSTK 8
#define NR_PSTAT 16
#define NR_RSTK 8
#define NR_PSTAT 16
typedef unsigned char word_1;
typedef unsigned char word_4;
typedef unsigned char word_8;
typedef unsigned char word_1;
typedef unsigned char word_4;
typedef unsigned char word_8;
typedef unsigned short word_12;
typedef unsigned short word_16;
typedef long word_20;
typedef long word_32;
typedef long word_20;
typedef long word_32;
#ifdef HAVE_STDINT_H
#define SIMPLE_64
@ -117,21 +117,21 @@ typedef struct keystate_t {
typedef struct display_t {
int on;
int on;
long disp_start;
long disp_end;
int offset;
int lines;
int nibs_per_line;
int offset;
int lines;
int nibs_per_line;
int contrast;
int contrast;
long menu_start;
long menu_end;
int annunc;
int annunc;
} display_t;
@ -143,102 +143,102 @@ typedef struct mem_cntl_t {
typedef struct saturn_t {
unsigned long magic;
char version[4];
char version[4];
unsigned char A[16], B[16], C[16], D[16];
word_20 d[2];
word_20 d[2];
#define D0 d[0]
#define D1 d[1]
#define D0 d[0]
#define D1 d[1]
word_4 P;
word_20 PC;
word_4 P;
word_20 PC;
unsigned char R0[16], R1[16], R2[16], R3[16], R4[16];
unsigned char IN[4];
unsigned char OUT[3];
word_1 CARRY;
word_1 CARRY;
unsigned char PSTAT[NR_PSTAT];
unsigned char XM, SB, SR, MP;
word_4 hexmode;
word_4 hexmode;
word_20 rstk[NR_RSTK];
short rstkp;
word_20 rstk[NR_RSTK];
short rstkp;
keystate_t keybuf;
keystate_t keybuf;
unsigned char intenable;
unsigned char int_pending;
unsigned char kbd_ien;
word_4 disp_io;
word_4 disp_io;
word_4 contrast_ctrl;
word_8 disp_test;
word_4 contrast_ctrl;
word_8 disp_test;
word_16 crc;
word_16 crc;
word_4 power_status;
word_4 power_ctrl;
word_4 power_status;
word_4 power_ctrl;
word_4 mode;
word_4 mode;
word_8 annunc;
word_8 annunc;
word_4 baud;
word_4 baud;
word_4 card_ctrl;
word_4 card_status;
word_4 card_ctrl;
word_4 card_status;
word_4 io_ctrl;
word_4 rcs;
word_4 tcs;
word_4 io_ctrl;
word_4 rcs;
word_4 tcs;
word_8 rbr;
word_8 tbr;
word_8 rbr;
word_8 tbr;
word_8 sreq;
word_8 sreq;
word_4 ir_ctrl;
word_4 ir_ctrl;
word_4 base_off;
word_4 base_off;
word_4 lcr;
word_4 lbr;
word_4 lcr;
word_4 lbr;
word_4 scratch;
word_4 scratch;
word_4 base_nibble;
word_4 base_nibble;
word_20 disp_addr;
word_12 line_offset;
word_8 line_count;
word_20 disp_addr;
word_12 line_offset;
word_8 line_count;
word_16 unknown;
word_16 unknown;
word_4 t1_ctrl;
word_4 t2_ctrl;
word_4 t1_ctrl;
word_4 t2_ctrl;
word_20 menu_addr;
word_20 menu_addr;
word_8 unknown2;
word_8 unknown2;
char timer1; /* may NOT be unsigned !!! */
word_32 timer2;
char timer1; /* may NOT be unsigned !!! */
word_32 timer2;
long t1_instr;
long t2_instr;
long t1_instr;
long t2_instr;
short t1_tick;
short t2_tick;
long i_per_s;
short t1_tick;
short t2_tick;
long i_per_s;
short bank_switch;
mem_cntl_t mem_cntl[NR_MCTL];
short bank_switch;
mem_cntl_t mem_cntl[NR_MCTL];
unsigned char *rom;
unsigned char *ram;
@ -249,45 +249,44 @@ typedef struct saturn_t {
#define NIBBLES_PER_ROW 0x22
extern int got_alarm;
extern int got_alarm;
extern int set_t1;
extern long sched_timer1;
extern long sched_timer2;
extern int set_t1;
extern long sched_timer1;
extern long sched_timer2;
extern int adj_time_pending;
extern long sched_adjtime;
extern long schedule_event;
extern int adj_time_pending;
extern long sched_adjtime;
extern long schedule_event;
extern display_t display;
extern void init_display __ProtoType__((void));
extern display_t display;
extern void init_display __ProtoType__((void));
extern saturn_t saturn;
extern saturn_t saturn;
extern int exit_emulator __ProtoType__((void));
extern int init_emulator __ProtoType__((void));
extern void init_active_stuff __ProtoType__((void));
extern int exit_emulator __ProtoType__((void));
extern int init_emulator __ProtoType__((void));
extern void init_active_stuff __ProtoType__((void));
extern int serial_init __ProtoType__((void));
extern void serial_baud __ProtoType__((int baud));
extern void transmit_char __ProtoType__((void));
extern void receive_char __ProtoType__((void));
extern int serial_init __ProtoType__((void));
extern void serial_baud __ProtoType__((int baud));
extern void transmit_char __ProtoType__((void));
extern void receive_char __ProtoType__((void));
extern void do_kbd_int __ProtoType__((void));
extern void do_interupt __ProtoType__((void));
extern void do_kbd_int __ProtoType__((void));
extern void do_interupt __ProtoType__((void));
extern void (*write_nibble) __ProtoType__((long addr, int val));
extern int (*read_nibble) __ProtoType__((long addr));
extern int (*read_nibble_crc) __ProtoType__((long addr));
extern void(*write_nibble) __ProtoType__((long addr, int val));
extern int(*read_nibble) __ProtoType__((long addr));
extern int(*read_nibble_crc) __ProtoType__((long addr));
extern int emulate __ProtoType__((void));
extern int step_instruction __ProtoType__((void));
extern void schedule __ProtoType__((void));
extern int emulate __ProtoType__((void));
extern int step_instruction __ProtoType__((void));
extern void schedule __ProtoType__((void));
extern int read_rom __ProtoType__((const char *fname));
extern int read_files __ProtoType__((void));
extern int write_files __ProtoType__((void));
extern int read_rom __ProtoType__((const char *fname));
extern int read_files __ProtoType__((void));
extern int write_files __ProtoType__((void));
extern void load_addr __ProtoType__((word_20 *dat, long addr,
int n));
extern void load_addr __ProtoType__((word_20 * dat, long addr, int n));
#endif /* !_HP48_H */

210
src/hp48_emu.h
View file

@ -68,135 +68,119 @@ extern Display *dpy;
extern Window dispW;
extern GC gc;
extern void push_return_addr __ProtoType__((long addr));
extern long pop_return_addr __ProtoType__((void));
extern void push_return_addr __ProtoType__((long addr));
extern long pop_return_addr __ProtoType__((void));
extern void init_annunc __ProtoType__((void));
extern void init_annunc __ProtoType__((void));
extern void init_saturn __ProtoType__((void));
extern void init_saturn __ProtoType__((void));
extern void check_timer __ProtoType__((void));
extern void check_timer __ProtoType__((void));
extern void register_to_status __ProtoType__((unsigned char *r));
extern void status_to_register __ProtoType__((unsigned char *r));
extern void swap_register_status __ProtoType__((unsigned char *r));
extern void clear_status __ProtoType__((void));
extern void register_to_status __ProtoType__((unsigned char *r));
extern void status_to_register __ProtoType__((unsigned char *r));
extern void swap_register_status __ProtoType__((unsigned char *r));
extern void clear_status __ProtoType__((void));
extern long read_nibbles __ProtoType__((long addr, int len));
extern void write_nibbles __ProtoType__((long addr, long val, int len));
extern void dev_memory_init __ProtoType__((void));
extern long read_nibbles __ProtoType__((long addr, int len));
extern void write_nibbles __ProtoType__((long addr, long val, int len));
extern void dev_memory_init __ProtoType__((void));
extern void set_program_stat __ProtoType__((int n));
extern void clear_program_stat __ProtoType__((int n));
extern int get_program_stat __ProtoType__((int n));
extern void set_program_stat __ProtoType__((int n));
extern void clear_program_stat __ProtoType__((int n));
extern int get_program_stat __ProtoType__((int n));
extern void set_hardware_stat __ProtoType__((int op));
extern void clear_hardware_stat __ProtoType__((int op));
extern int is_zero_hardware_stat __ProtoType__((int op));
extern void set_hardware_stat __ProtoType__((int op));
extern void clear_hardware_stat __ProtoType__((int op));
extern int is_zero_hardware_stat __ProtoType__((int op));
extern void set_register_bit __ProtoType__((unsigned char *reg, int n));
extern void clear_register_bit __ProtoType__((unsigned char *reg, int n));
extern int get_register_bit __ProtoType__((unsigned char *reg, int n));
extern void set_register_bit __ProtoType__((unsigned char *reg, int n));
extern void clear_register_bit __ProtoType__((unsigned char *reg, int n));
extern int get_register_bit __ProtoType__((unsigned char *reg, int n));
extern void set_register_nibble __ProtoType__((unsigned char *reg, int n,
unsigned char val));
extern unsigned char get_register_nibble __ProtoType__((unsigned char *reg, int n));
extern void set_register_nibble __ProtoType__((unsigned char *reg, int n,
unsigned char val));
extern unsigned char get_register_nibble __ProtoType__((unsigned char *reg,
int n));
extern void register_to_address __ProtoType__((unsigned char *reg, word_20 *dat,
int s));
extern void address_to_register __ProtoType__((word_20 dat, unsigned char *reg,
int s));
extern void add_address __ProtoType__((word_20 * dat, int add));
extern void register_to_address __ProtoType__((unsigned char *reg,
word_20 *dat, int s));
extern void address_to_register __ProtoType__((word_20 dat,
unsigned char *reg, int s));
extern void add_address __ProtoType__((word_20 *dat, int add));
extern char *make_hexstr __ProtoType__((long addr, int n));
extern void load_constant __ProtoType__((unsigned char *reg, int n, long addr));
extern void load_address __ProtoType__((unsigned char *reg, long addr, int n));
extern char * make_hexstr __ProtoType__((long addr, int n));
extern void load_constant __ProtoType__((unsigned char *reg, int n,
long addr));
extern void load_address __ProtoType__((unsigned char *reg, long addr,
int n));
extern void store __ProtoType__((word_20 dat, unsigned char *reg, int code));
extern void store_n __ProtoType__((word_20 dat, unsigned char *reg, int n));
extern void recall __ProtoType__((unsigned char *reg, word_20 dat, int code));
extern void recall_n __ProtoType__((unsigned char *reg, word_20 dat, int n));
extern void store __ProtoType__((word_20 dat, unsigned char *reg,
int code));
extern void store_n __ProtoType__((word_20 dat, unsigned char *reg,
int n));
extern void recall __ProtoType__((unsigned char *reg, word_20 dat,
int code));
extern void recall_n __ProtoType__((unsigned char *reg, word_20 dat,
int n));
extern long dat_to_addr __ProtoType__((unsigned char *dat));
extern void addr_to_dat __ProtoType__((long addr, unsigned char *dat));
extern long dat_to_addr __ProtoType__((unsigned char *dat));
extern void addr_to_dat __ProtoType__((long addr, unsigned char *dat));
extern void do_in __ProtoType__((void));
extern void do_reset __ProtoType__((void));
extern void do_configure __ProtoType__((void));
extern void do_unconfigure __ProtoType__((void));
extern void do_inton __ProtoType__((void));
extern void do_intoff __ProtoType__((void));
extern void do_return_interupt __ProtoType__((void));
extern void do_reset_interrupt_system __ProtoType__((void));
extern void do_shutdown __ProtoType__((void));
extern int get_identification __ProtoType__((void));
extern void do_in __ProtoType__((void));
extern void do_reset __ProtoType__((void));
extern void do_configure __ProtoType__((void));
extern void do_unconfigure __ProtoType__((void));
extern void do_inton __ProtoType__((void));
extern void do_intoff __ProtoType__((void));
extern void do_return_interupt __ProtoType__((void));
extern void do_reset_interrupt_system __ProtoType__((void));
extern void do_shutdown __ProtoType__((void));
extern int get_identification __ProtoType__((void));
extern void add_p_plus_one __ProtoType__((unsigned char *r));
extern void add_register_constant __ProtoType__((unsigned char *res, int code,
int val));
extern void sub_register_constant __ProtoType__((unsigned char *res, int code,
int val));
extern void add_register __ProtoType__((unsigned char *res, unsigned char *r1,
unsigned char *r2, int code));
extern void sub_register __ProtoType__((unsigned char *res, unsigned char *r1,
unsigned char *r2, int code));
extern void complement_2_register __ProtoType__((unsigned char *r, int code));
extern void complement_1_register __ProtoType__((unsigned char *r, int code));
extern void inc_register __ProtoType__((unsigned char *r, int code));
extern void dec_register __ProtoType__((unsigned char *r, int code));
extern void zero_register __ProtoType__((unsigned char *r, int code));
extern void or_register __ProtoType__((unsigned char *res, unsigned char *r1,
unsigned char *r2, int code));
extern void and_register __ProtoType__((unsigned char *res, unsigned char *r1,
unsigned char *r2, int code));
extern void copy_register __ProtoType__((unsigned char *to, unsigned char *from,
int code));
extern void exchange_register __ProtoType__((unsigned char *r1,
unsigned char *r2, int code));
extern void add_p_plus_one __ProtoType__((unsigned char *r));
extern void add_register_constant __ProtoType__((unsigned char *res,
int code, int val));
extern void sub_register_constant __ProtoType__((unsigned char *res,
int code, int val));
extern void add_register __ProtoType__((unsigned char *res, unsigned char *r1,
unsigned char *r2, int code));
extern void sub_register __ProtoType__((unsigned char *res, unsigned char *r1,
unsigned char *r2, int code));
extern void complement_2_register __ProtoType__((unsigned char *r, int code));
extern void complement_1_register __ProtoType__((unsigned char *r, int code));
extern void inc_register __ProtoType__((unsigned char *r, int code));
extern void dec_register __ProtoType__((unsigned char *r, int code));
extern void zero_register __ProtoType__((unsigned char *r, int code));
extern void or_register __ProtoType__((unsigned char *res, unsigned char *r1,
unsigned char *r2, int code));
extern void and_register __ProtoType__((unsigned char *res, unsigned char *r1,
unsigned char *r2, int code));
extern void copy_register __ProtoType__((unsigned char *to, unsigned char *from,
int code));
extern void exchange_register __ProtoType__((unsigned char *r1, unsigned char *r2,
int code));
extern void exchange_reg __ProtoType__((unsigned char *r, word_20 *d,
int code));
extern void exchange_reg __ProtoType__((unsigned char *r, word_20 *d, int code));
extern void shift_left_register __ProtoType__((unsigned char *r, int code));
extern void shift_left_circ_register __ProtoType__((unsigned char *r, int code));
extern void shift_right_register __ProtoType__((unsigned char *r, int code));
extern void shift_right_circ_register __ProtoType__((unsigned char *r, int code));
extern void shift_right_bit_register __ProtoType__((unsigned char *r, int code));
extern int is_zero_register __ProtoType__((
unsigned char *r,
int code));
extern int is_not_zero_register __ProtoType__((
unsigned char *r,
int code));
extern int is_equal_register __ProtoType__((
unsigned char *r1,
unsigned char *r2,
int code));
extern int is_not_equal_register __ProtoType__((
unsigned char *r1,
unsigned char *r2,
int code));
extern int is_less_register __ProtoType__((
unsigned char *r1,
unsigned char *r2,
int code));
extern int is_less_or_equal_register __ProtoType__((
unsigned char *r1,
unsigned char *r2,
int code));
extern int is_greater_register __ProtoType__((
unsigned char *r1,
unsigned char *r2,
int code));
extern int is_greater_or_equal_register __ProtoType__((
unsigned char *r1,
unsigned char *r2,
int code));
extern void shift_left_register __ProtoType__((unsigned char *r, int code));
extern void shift_left_circ_register __ProtoType__((unsigned char *r,
int code));
extern void shift_right_register __ProtoType__((unsigned char *r, int code));
extern void shift_right_circ_register __ProtoType__((unsigned char *r,
int code));
extern void shift_right_bit_register __ProtoType__((unsigned char *r,
int code));
extern int is_zero_register __ProtoType__((unsigned char *r, int code));
extern int is_not_zero_register __ProtoType__((unsigned char *r, int code));
extern int is_equal_register __ProtoType__((unsigned char *r1,
unsigned char *r2, int code));
extern int is_not_equal_register __ProtoType__((unsigned char *r1,
unsigned char *r2, int code));
extern int is_less_register __ProtoType__((unsigned char *r1, unsigned char *r2,
int code));
extern int is_less_or_equal_register __ProtoType__((unsigned char *r1,
unsigned char *r2,
int code));
extern int is_greater_register __ProtoType__((unsigned char *r1,
unsigned char *r2, int code));
extern int is_greater_or_equal_register __ProtoType__((unsigned char *r1,
unsigned char *r2,
int code));
#endif /* !_HP48_EMU_H */

330
src/hp48char.h
View file

@ -34,275 +34,81 @@
* $Id: hp48char.h,v 1.3 1995/01/11 18:20:01 ecd Exp ecd $
*/
#ifndef _HP48CHAR_H
#define _HP48CHAR_H 1
#define _HP48CHAR_H 1
typedef struct trans_tbl_t {
unsigned char hp48_char;
char *trans;
unsigned char hp48_char;
char *trans;
} trans_tbl_t;
#ifndef DEFINE_TRANS_TABLE
extern trans_tbl_t hp48_trans_tbl[256];
#else
trans_tbl_t hp48_trans_tbl[256] =
{
{ 0, "\\0" },
{ 1, "\\001" },
{ 2, "\\002" },
{ 3, "\\003" },
{ 4, "\\004" },
{ 5, "\\005" },
{ 6, "\\006" },
{ 7, "\\007" },
{ 8, "\\b" },
{ 9, "\\t" },
{ 10, "\\n" },
{ 11, "\\011" },
{ 12, "\\f" },
{ 13, "\\r" },
{ 14, "\\014" },
{ 15, "\\015" },
{ 16, "\\016" },
{ 17, "\\017" },
{ 18, "\\018" },
{ 19, "\\019" },
{ 20, "\\020" },
{ 21, "\\021" },
{ 22, "\\022" },
{ 23, "\\023" },
{ 24, "\\024" },
{ 25, "\\025" },
{ 26, "\\026" },
{ 27, "\\027" },
{ 28, "\\028" },
{ 29, "\\029" },
{ 30, "\\030" },
{ 31, "\\031" },
{ ' ', 0 },
{ '!', 0 },
{ '"', 0 },
{ '#', 0 },
{ '$', 0 },
{ '%', 0 },
{ '&', 0 },
{ '\'', 0 },
{ '(', 0 },
{ ')', 0 },
{ '*', 0 },
{ '+', 0 },
{ ',', 0 },
{ '-', 0 },
{ '.', 0 },
{ '/', 0 },
{ '0', 0 },
{ '1', 0 },
{ '2', 0 },
{ '3', 0 },
{ '4', 0 },
{ '5', 0 },
{ '6', 0 },
{ '7', 0 },
{ '8', 0 },
{ '9', 0 },
{ ':', 0 },
{ ';', 0 },
{ '<', 0 },
{ '=', 0 },
{ '>', 0 },
{ '?', 0 },
{ '@', 0 },
{ 'A', 0 },
{ 'B', 0 },
{ 'C', 0 },
{ 'D', 0 },
{ 'E', 0 },
{ 'F', 0 },
{ 'G', 0 },
{ 'H', 0 },
{ 'I', 0 },
{ 'J', 0 },
{ 'K', 0 },
{ 'L', 0 },
{ 'M', 0 },
{ 'N', 0 },
{ 'O', 0 },
{ 'P', 0 },
{ 'Q', 0 },
{ 'R', 0 },
{ 'S', 0 },
{ 'T', 0 },
{ 'U', 0 },
{ 'V', 0 },
{ 'W', 0 },
{ 'X', 0 },
{ 'Y', 0 },
{ 'Z', 0 },
{ '[', 0 },
{ '\\', 0 },
{ ']', 0 },
{ '^', 0 },
{ '_', 0 },
{ '`', 0 },
{ 'a', 0 },
{ 'b', 0 },
{ 'c', 0 },
{ 'd', 0 },
{ 'e', 0 },
{ 'f', 0 },
{ 'g', 0 },
{ 'h', 0 },
{ 'i', 0 },
{ 'j', 0 },
{ 'k', 0 },
{ 'l', 0 },
{ 'm', 0 },
{ 'n', 0 },
{ 'o', 0 },
{ 'p', 0 },
{ 'q', 0 },
{ 'r', 0 },
{ 's', 0 },
{ 't', 0 },
{ 'u', 0 },
{ 'v', 0 },
{ 'w', 0 },
{ 'x', 0 },
{ 'y', 0 },
{ 'z', 0 },
{ '{', 0 },
{ '|', 0 },
{ '}', 0 },
{ '~', 0 },
{ 127, "\\127" },
{ 128, "\\<)" },
{ 129, "\\x-" },
{ 130, "\\.V" },
{ 131, "\\v/" },
{ 132, "\\.S" },
{ 133, "\\GS" },
{ 134, "\\|>" },
{ 135, "\\pi" },
{ 136, "\\.d" },
{ 137, "\\<=" },
{ 138, "\\>=" },
{ 139, "\\=/" },
{ 140, "\\Ga" },
{ 141, "\\->" },
{ 142, "\\<-" },
{ 143, "\\|v" },
{ 144, "\\|^" },
{ 145, "\\Gg" },
{ 146, "\\Gd" },
{ 147, "\\Ge" },
{ 148, "\\Gn" },
{ 149, "\\Gh" },
{ 150, "\\Gl" },
{ 151, "\\Gr" },
{ 152, "\\Gs" },
{ 153, "\\Gt" },
{ 154, "\\Gw" },
{ 155, "\\GD" },
{ 156, "\\PI" },
{ 157, "\\GW" },
{ 158, "\\[]" },
{ 159, "\\oo" },
{ 160, "\\160" },
{ 161, "\\161" },
{ 162, "\\162" },
{ 163, "\\163" },
{ 164, "\\164" },
{ 165, "\\165" },
{ 166, "\\166" },
{ 167, "\\167" },
{ 168, "\\168" },
{ 169, "\\169" },
{ 170, "\\170" },
{ 171, "\\<<" },
{ 172, "\\172" },
{ 173, "\\173" },
{ 174, "\\174" },
{ 175, "\\175" },
{ 176, "\\^o" },
{ 177, "\\177" },
{ 178, "\\178" },
{ 179, "\\179" },
{ 180, "\\180" },
{ 181, "\\Gm" },
{ 182, "\\182" },
{ 183, "\\183" },
{ 184, "\\184" },
{ 185, "\\185" },
{ 186, "\\186" },
{ 187, "\\>>" },
{ 188, "\\188" },
{ 189, "\\189" },
{ 190, "\\190" },
{ 191, "\\191" },
{ 192, "\\192" },
{ 193, "\\193" },
{ 194, "\\194" },
{ 195, "\\195" },
{ 196, "\\196" },
{ 197, "\\197" },
{ 198, "\\198" },
{ 199, "\\199" },
{ 200, "\\200" },
{ 201, "\\201" },
{ 202, "\\202" },
{ 203, "\\203" },
{ 204, "\\204" },
{ 205, "\\205" },
{ 206, "\\206" },
{ 207, "\\207" },
{ 208, "\\208" },
{ 209, "\\209" },
{ 210, "\\210" },
{ 211, "\\211" },
{ 212, "\\212" },
{ 213, "\\213" },
{ 214, "\\214" },
{ 215, "\\.x" },
{ 216, "\\O/" },
{ 217, "\\217" },
{ 218, "\\218" },
{ 219, "\\219" },
{ 220, "\\220" },
{ 221, "\\221" },
{ 222, "\\222" },
{ 223, "\\223" },
{ 224, "\\224" },
{ 225, "\\225" },
{ 226, "\\226" },
{ 227, "\\227" },
{ 228, "\\228" },
{ 229, "\\229" },
{ 230, "\\230" },
{ 231, "\\231" },
{ 232, "\\232" },
{ 233, "\\233" },
{ 234, "\\234" },
{ 235, "\\235" },
{ 236, "\\236" },
{ 237, "\\237" },
{ 238, "\\238" },
{ 239, "\\239" },
{ 240, "\\240" },
{ 241, "\\241" },
{ 242, "\\242" },
{ 243, "\\243" },
{ 244, "\\244" },
{ 245, "\\245" },
{ 246, "\\246" },
{ 247, "\\:-" },
{ 248, "\\248" },
{ 249, "\\249" },
{ 250, "\\250" },
{ 251, "\\251" },
{ 252, "\\252" },
{ 253, "\\253" },
{ 254, "\\254" },
{ 255, "\\255" }
};
trans_tbl_t hp48_trans_tbl[256] = {
{0, "\\0"}, {1, "\\001"}, {2, "\\002"}, {3, "\\003"},
{4, "\\004"}, {5, "\\005"}, {6, "\\006"}, {7, "\\007"},
{8, "\\b"}, {9, "\\t"}, {10, "\\n"}, {11, "\\011"},
{12, "\\f"}, {13, "\\r"}, {14, "\\014"}, {15, "\\015"},
{16, "\\016"}, {17, "\\017"}, {18, "\\018"}, {19, "\\019"},
{20, "\\020"}, {21, "\\021"}, {22, "\\022"}, {23, "\\023"},
{24, "\\024"}, {25, "\\025"}, {26, "\\026"}, {27, "\\027"},
{28, "\\028"}, {29, "\\029"}, {30, "\\030"}, {31, "\\031"},
{' ', 0}, {'!', 0}, {'"', 0}, {'#', 0},
{'$', 0}, {'%', 0}, {'&', 0}, {'\'', 0},
{'(', 0}, {')', 0}, {'*', 0}, {'+', 0},
{',', 0}, {'-', 0}, {'.', 0}, {'/', 0},
{'0', 0}, {'1', 0}, {'2', 0}, {'3', 0},
{'4', 0}, {'5', 0}, {'6', 0}, {'7', 0},
{'8', 0}, {'9', 0}, {':', 0}, {';', 0},
{'<', 0}, {'=', 0}, {'>', 0}, {'?', 0},
{'@', 0}, {'A', 0}, {'B', 0}, {'C', 0},
{'D', 0}, {'E', 0}, {'F', 0}, {'G', 0},
{'H', 0}, {'I', 0}, {'J', 0}, {'K', 0},
{'L', 0}, {'M', 0}, {'N', 0}, {'O', 0},
{'P', 0}, {'Q', 0}, {'R', 0}, {'S', 0},
{'T', 0}, {'U', 0}, {'V', 0}, {'W', 0},
{'X', 0}, {'Y', 0}, {'Z', 0}, {'[', 0},
{'\\', 0}, {']', 0}, {'^', 0}, {'_', 0},
{'`', 0}, {'a', 0}, {'b', 0}, {'c', 0},
{'d', 0}, {'e', 0}, {'f', 0}, {'g', 0},
{'h', 0}, {'i', 0}, {'j', 0}, {'k', 0},
{'l', 0}, {'m', 0}, {'n', 0}, {'o', 0},
{'p', 0}, {'q', 0}, {'r', 0}, {'s', 0},
{'t', 0}, {'u', 0}, {'v', 0}, {'w', 0},
{'x', 0}, {'y', 0}, {'z', 0}, {'{', 0},
{'|', 0}, {'}', 0}, {'~', 0}, {127, "\\127"},
{128, "\\<)"}, {129, "\\x-"}, {130, "\\.V"}, {131, "\\v/"},
{132, "\\.S"}, {133, "\\GS"}, {134, "\\|>"}, {135, "\\pi"},
{136, "\\.d"}, {137, "\\<="}, {138, "\\>="}, {139, "\\=/"},
{140, "\\Ga"}, {141, "\\->"}, {142, "\\<-"}, {143, "\\|v"},
{144, "\\|^"}, {145, "\\Gg"}, {146, "\\Gd"}, {147, "\\Ge"},
{148, "\\Gn"}, {149, "\\Gh"}, {150, "\\Gl"}, {151, "\\Gr"},
{152, "\\Gs"}, {153, "\\Gt"}, {154, "\\Gw"}, {155, "\\GD"},
{156, "\\PI"}, {157, "\\GW"}, {158, "\\[]"}, {159, "\\oo"},
{160, "\\160"}, {161, "\\161"}, {162, "\\162"}, {163, "\\163"},
{164, "\\164"}, {165, "\\165"}, {166, "\\166"}, {167, "\\167"},
{168, "\\168"}, {169, "\\169"}, {170, "\\170"}, {171, "\\<<"},
{172, "\\172"}, {173, "\\173"}, {174, "\\174"}, {175, "\\175"},
{176, "\\^o"}, {177, "\\177"}, {178, "\\178"}, {179, "\\179"},
{180, "\\180"}, {181, "\\Gm"}, {182, "\\182"}, {183, "\\183"},
{184, "\\184"}, {185, "\\185"}, {186, "\\186"}, {187, "\\>>"},
{188, "\\188"}, {189, "\\189"}, {190, "\\190"}, {191, "\\191"},
{192, "\\192"}, {193, "\\193"}, {194, "\\194"}, {195, "\\195"},
{196, "\\196"}, {197, "\\197"}, {198, "\\198"}, {199, "\\199"},
{200, "\\200"}, {201, "\\201"}, {202, "\\202"}, {203, "\\203"},
{204, "\\204"}, {205, "\\205"}, {206, "\\206"}, {207, "\\207"},
{208, "\\208"}, {209, "\\209"}, {210, "\\210"}, {211, "\\211"},
{212, "\\212"}, {213, "\\213"}, {214, "\\214"}, {215, "\\.x"},
{216, "\\O/"}, {217, "\\217"}, {218, "\\218"}, {219, "\\219"},
{220, "\\220"}, {221, "\\221"}, {222, "\\222"}, {223, "\\223"},
{224, "\\224"}, {225, "\\225"}, {226, "\\226"}, {227, "\\227"},
{228, "\\228"}, {229, "\\229"}, {230, "\\230"}, {231, "\\231"},
{232, "\\232"}, {233, "\\233"}, {234, "\\234"}, {235, "\\235"},
{236, "\\236"}, {237, "\\237"}, {238, "\\238"}, {239, "\\239"},
{240, "\\240"}, {241, "\\241"}, {242, "\\242"}, {243, "\\243"},
{244, "\\244"}, {245, "\\245"}, {246, "\\246"}, {247, "\\:-"},
{248, "\\248"}, {249, "\\249"}, {250, "\\250"}, {251, "\\251"},
{252, "\\252"}, {253, "\\253"}, {254, "\\254"}, {255, "\\255"}};
#endif /* DEFINE_TRANS_TABLE */
#endif /* !_HP48CHAR_H */

1534
src/init.c
View file

File diff suppressed because it is too large Load diff

216
src/lcd.c
View file

@ -60,55 +60,53 @@
* $Id: lcd.c,v 1.13 1995/01/11 18:20:01 ecd Exp ecd $
*/
#include "global.h"
#include <stdio.h>
#include <unistd.h>
#include <string.h>
#include <unistd.h>
#ifdef SUNOS
#include <memory.h>
#endif
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include "annunc.h"
#include "device.h"
#include "hp48.h"
#include "hp48_emu.h"
#include "x48_x11.h"
#include "annunc.h"
#include "device.h"
static int last_annunc_state = -1;
display_t display;
#define DISP_ROWS 64
#define DISP_ROWS 64
#define NIBS_PER_BUFFER_ROW (NIBBLES_PER_ROW + 2)
#define NIBS_PER_BUFFER_ROW (NIBBLES_PER_ROW + 2)
unsigned char disp_buf[DISP_ROWS][NIBS_PER_BUFFER_ROW];
unsigned char lcd_buffer[DISP_ROWS][NIBS_PER_BUFFER_ROW];
Pixmap nibble_maps[16];
unsigned char nibbles[16][2] =
{
{ 0x00, 0x00 }, /* ---- */
{ 0x03, 0x03 }, /* *--- */
{ 0x0c, 0x0c }, /* -*-- */
{ 0x0f, 0x0f }, /* **-- */
{ 0x30, 0x30 }, /* --*- */
{ 0x33, 0x33 }, /* *-*- */
{ 0x3c, 0x3c }, /* -**- */
{ 0x3f, 0x3f }, /* ***- */
{ 0xc0, 0xc0 }, /* ---* */
{ 0xc3, 0xc3 }, /* *--* */
{ 0xcc, 0xcc }, /* -*-* */
{ 0xcf, 0xcf }, /* **-* */
{ 0xf0, 0xf0 }, /* --** */
{ 0xf3, 0xf3 }, /* *-** */
{ 0xfc, 0xfc }, /* -*** */
{ 0xff, 0xff } /* **** */
unsigned char nibbles[16][2] = {
{0x00, 0x00}, /* ---- */
{0x03, 0x03}, /* *--- */
{0x0c, 0x0c}, /* -*-- */
{0x0f, 0x0f}, /* **-- */
{0x30, 0x30}, /* --*- */
{0x33, 0x33}, /* *-*- */
{0x3c, 0x3c}, /* -**- */
{0x3f, 0x3f}, /* ***- */
{0xc0, 0xc0}, /* ---* */
{0xc3, 0xc3}, /* *--* */
{0xcc, 0xcc}, /* -*-* */
{0xcf, 0xcf}, /* **-* */
{0xf0, 0xf0}, /* --** */
{0xf3, 0xf3}, /* *-** */
{0xfc, 0xfc}, /* -*** */
{0xff, 0xff} /* **** */
};
static unsigned char nibble_bits[16];
@ -117,45 +115,45 @@ void init_nibble_maps(void) {
int i;
for (i = 0; i < 16; i++) {
nibble_maps[i] = XCreateBitmapFromData(dpy, disp.win,
(char *)nibbles[i], 8, 2);
nibble_maps[i] =
XCreateBitmapFromData(dpy, disp.win, (char *)nibbles[i], 8, 2);
}
#ifdef HAVE_XSHM
if (shm_flag) {
if (disp.disp_image->bitmap_bit_order == MSBFirst) {
nibble_bits[0x0] = 0x00; /* ---- */
nibble_bits[0x1] = 0xc0; /* *--- */
nibble_bits[0x2] = 0x30; /* -*-- */
nibble_bits[0x3] = 0xf0; /* **-- */
nibble_bits[0x4] = 0x0c; /* --*- */
nibble_bits[0x5] = 0xcc; /* *-*- */
nibble_bits[0x6] = 0x3c; /* -**- */
nibble_bits[0x7] = 0xfc; /* ***- */
nibble_bits[0x8] = 0x03; /* ---* */
nibble_bits[0x9] = 0xc3; /* *--* */
nibble_bits[0xa] = 0x33; /* -*-* */
nibble_bits[0xb] = 0xf3; /* **-* */
nibble_bits[0xc] = 0x0f; /* --** */
nibble_bits[0xd] = 0xcf; /* *-** */
nibble_bits[0xe] = 0x3f; /* -*** */
nibble_bits[0xf] = 0xff; /* **** */
nibble_bits[0x0] = 0x00; /* ---- */
nibble_bits[0x1] = 0xc0; /* *--- */
nibble_bits[0x2] = 0x30; /* -*-- */
nibble_bits[0x3] = 0xf0; /* **-- */
nibble_bits[0x4] = 0x0c; /* --*- */
nibble_bits[0x5] = 0xcc; /* *-*- */
nibble_bits[0x6] = 0x3c; /* -**- */
nibble_bits[0x7] = 0xfc; /* ***- */
nibble_bits[0x8] = 0x03; /* ---* */
nibble_bits[0x9] = 0xc3; /* *--* */
nibble_bits[0xa] = 0x33; /* -*-* */
nibble_bits[0xb] = 0xf3; /* **-* */
nibble_bits[0xc] = 0x0f; /* --** */
nibble_bits[0xd] = 0xcf; /* *-** */
nibble_bits[0xe] = 0x3f; /* -*** */
nibble_bits[0xf] = 0xff; /* **** */
} else {
nibble_bits[0x0] = 0x00; /* ---- */
nibble_bits[0x1] = 0x03; /* *--- */
nibble_bits[0x2] = 0x0c; /* -*-- */
nibble_bits[0x3] = 0x0f; /* **-- */
nibble_bits[0x4] = 0x30; /* --*- */
nibble_bits[0x5] = 0x33; /* *-*- */
nibble_bits[0x6] = 0x3c; /* -**- */
nibble_bits[0x7] = 0x3f; /* ***- */
nibble_bits[0x8] = 0xc0; /* ---* */
nibble_bits[0x9] = 0xc3; /* *--* */
nibble_bits[0xa] = 0xcc; /* -*-* */
nibble_bits[0xb] = 0xcf; /* **-* */
nibble_bits[0xc] = 0xf0; /* --** */
nibble_bits[0xd] = 0xf3; /* *-** */
nibble_bits[0xe] = 0xfc; /* -*** */
nibble_bits[0xf] = 0xff; /* **** */
nibble_bits[0x0] = 0x00; /* ---- */
nibble_bits[0x1] = 0x03; /* *--- */
nibble_bits[0x2] = 0x0c; /* -*-- */
nibble_bits[0x3] = 0x0f; /* **-- */
nibble_bits[0x4] = 0x30; /* --*- */
nibble_bits[0x5] = 0x33; /* *-*- */
nibble_bits[0x6] = 0x3c; /* -**- */
nibble_bits[0x7] = 0x3f; /* ***- */
nibble_bits[0x8] = 0xc0; /* ---* */
nibble_bits[0x9] = 0xc3; /* *--* */
nibble_bits[0xa] = 0xcc; /* -*-* */
nibble_bits[0xb] = 0xcf; /* **-* */
nibble_bits[0xc] = 0xf0; /* --** */
nibble_bits[0xd] = 0xf3; /* *-** */
nibble_bits[0xe] = 0xfc; /* -*** */
nibble_bits[0xf] = 0xff; /* **** */
}
}
#endif
@ -176,12 +174,12 @@ void init_display(void) {
disp.lines = 110;
if (display.offset > 3)
display.nibs_per_line = (NIBBLES_PER_ROW+saturn.line_offset+2) & 0xfff;
display.nibs_per_line = (NIBBLES_PER_ROW + saturn.line_offset + 2) & 0xfff;
else
display.nibs_per_line = (NIBBLES_PER_ROW+saturn.line_offset) & 0xfff;
display.nibs_per_line = (NIBBLES_PER_ROW + saturn.line_offset) & 0xfff;
display.disp_end = display.disp_start +
(display.nibs_per_line * (display.lines + 1));
display.disp_end =
display.disp_start + (display.nibs_per_line * (display.lines + 1));
display.menu_start = saturn.menu_addr;
display.menu_end = saturn.menu_addr + 0x110;
@ -238,11 +236,10 @@ void update_display(void) {
word_20 data_addr, data_addr_2;
#endif
if (!disp.mapped)
{
refresh_icon();
return;
}
if (!disp.mapped) {
refresh_icon();
return;
}
if (display.on) {
addr = display.disp_start;
#ifdef HAVE_XSHM
@ -269,9 +266,9 @@ void update_display(void) {
#endif
if (display.offset != old_offset) {
memset(disp_buf, 0xf0,
(size_t)((display.lines+1) * NIBS_PER_BUFFER_ROW));
(size_t)((display.lines + 1) * NIBS_PER_BUFFER_ROW));
memset(lcd_buffer, 0xf0,
(size_t)((display.lines+1) * NIBS_PER_BUFFER_ROW));
(size_t)((display.lines + 1) * NIBS_PER_BUFFER_ROW));
old_offset = display.offset;
}
if (display.lines != old_lines) {
@ -316,9 +313,11 @@ void update_display(void) {
} else {
#ifdef HAVE_XSHM
if (shm_flag) {
memset(disp.disp_image->data, 0,
memset(
disp.disp_image->data, 0,
(size_t)(disp.disp_image->bytes_per_line * disp.disp_image->height));
memset(disp.menu_image->data, 0,
memset(
disp.menu_image->data, 0,
(size_t)(disp.menu_image->bytes_per_line * disp.menu_image->height));
disp.display_update = UPDATE_DISP | UPDATE_MENU;
} else {
@ -361,8 +360,8 @@ void disp_draw_nibble(word_20 addr, word_4 val) {
if (shm_flag) {
shm_addr = (2 * y * disp.disp_image->bytes_per_line) + x;
disp.disp_image->data[shm_addr] = nibble_bits[val];
disp.disp_image->data[shm_addr+disp.disp_image->bytes_per_line] =
nibble_bits[val];
disp.disp_image->data[shm_addr + disp.disp_image->bytes_per_line] =
nibble_bits[val];
disp.display_update |= UPDATE_DISP;
} else {
#endif
@ -380,8 +379,7 @@ void disp_draw_nibble(word_20 addr, word_4 val) {
for (y = 0; y < display.lines; y++) {
disp.disp_image->data[shm_addr] = nibble_bits[val];
shm_addr += disp.disp_image->bytes_per_line;
disp.disp_image->data[shm_addr]
= nibble_bits[val];
disp.disp_image->data[shm_addr] = nibble_bits[val];
shm_addr += disp.disp_image->bytes_per_line;
}
disp.display_update |= UPDATE_DISP;
@ -409,11 +407,12 @@ void menu_draw_nibble(word_20 addr, word_4 val) {
offset = (addr - display.menu_start);
#ifdef HAVE_XSHM
if (shm_flag) {
shm_addr = 2 * (offset / NIBBLES_PER_ROW) * disp.menu_image->bytes_per_line
+ (offset % NIBBLES_PER_ROW);
shm_addr =
2 * (offset / NIBBLES_PER_ROW) * disp.menu_image->bytes_per_line +
(offset % NIBBLES_PER_ROW);
disp.menu_image->data[shm_addr] = nibble_bits[val];
disp.menu_image->data[shm_addr+disp.menu_image->bytes_per_line] =
nibble_bits[val];
disp.menu_image->data[shm_addr + disp.menu_image->bytes_per_line] =
nibble_bits[val];
disp.display_update |= UPDATE_MENU;
} else {
#endif
@ -428,25 +427,23 @@ void menu_draw_nibble(word_20 addr, word_4 val) {
#endif
}
struct ann_struct {
int bit;
int x;
int y;
unsigned int width;
unsigned int height;
int bit;
int x;
int y;
unsigned int width;
unsigned int height;
unsigned char *bits;
Pixmap pixmap;
Pixmap pixmap;
} ann_tbl[] = {
{ ANN_LEFT, 16, 4, ann_left_width, ann_left_height, ann_left_bits },
{ ANN_RIGHT, 61, 4, ann_right_width, ann_right_height, ann_right_bits },
{ ANN_ALPHA, 106, 4, ann_alpha_width, ann_alpha_height, ann_alpha_bits },
{ ANN_BATTERY, 151, 4, ann_battery_width, ann_battery_height,
ann_battery_bits },
{ ANN_BUSY, 196, 4, ann_busy_width, ann_busy_height, ann_busy_bits },
{ ANN_IO, 241, 4, ann_io_width, ann_io_height, ann_io_bits },
{ 0 }
};
{ANN_LEFT, 16, 4, ann_left_width, ann_left_height, ann_left_bits},
{ANN_RIGHT, 61, 4, ann_right_width, ann_right_height, ann_right_bits},
{ANN_ALPHA, 106, 4, ann_alpha_width, ann_alpha_height, ann_alpha_bits},
{ANN_BATTERY, 151, 4, ann_battery_width, ann_battery_height,
ann_battery_bits},
{ANN_BUSY, 196, 4, ann_busy_width, ann_busy_height, ann_busy_bits},
{ANN_IO, 241, 4, ann_io_width, ann_io_height, ann_io_bits},
{0}};
void draw_annunc(void) {
int val;
@ -457,20 +454,16 @@ void draw_annunc(void) {
if (val == last_annunc_state)
return;
last_annunc_state = val;
for (i = 0; ann_tbl[i].bit; i++)
{
if ((ann_tbl[i].bit & val) == ann_tbl[i].bit)
{
XCopyPlane(dpy, ann_tbl[i].pixmap, disp.win, disp.gc, 0, 0,
ann_tbl[i].width, ann_tbl[i].height,
ann_tbl[i].x, ann_tbl[i].y, 1);
}
else
{
XClearArea(dpy, disp.win, ann_tbl[i].x, ann_tbl[i].y,
ann_tbl[i].width, ann_tbl[i].height, False);
}
for (i = 0; ann_tbl[i].bit; i++) {
if ((ann_tbl[i].bit & val) == ann_tbl[i].bit) {
XCopyPlane(dpy, ann_tbl[i].pixmap, disp.win, disp.gc, 0, 0,
ann_tbl[i].width, ann_tbl[i].height, ann_tbl[i].x,
ann_tbl[i].y, 1);
} else {
XClearArea(dpy, disp.win, ann_tbl[i].x, ann_tbl[i].y, ann_tbl[i].width,
ann_tbl[i].height, False);
}
}
refresh_icon();
}
@ -483,9 +476,8 @@ void init_annunc(void) {
int i;
for (i = 0; ann_tbl[i].bit; i++) {
ann_tbl[i].pixmap = XCreateBitmapFromData(dpy, disp.win,
(char *)ann_tbl[i].bits,
ann_tbl[i].width,
ann_tbl[i].height);
ann_tbl[i].pixmap =
XCreateBitmapFromData(dpy, disp.win, (char *)ann_tbl[i].bits,
ann_tbl[i].width, ann_tbl[i].height);
}
}

79
src/main.c
View file

@ -57,45 +57,44 @@
* $Id: main.c,v 1.11 1995/01/11 18:20:01 ecd Exp ecd $
*/
#include <errno.h>
#include <fcntl.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <signal.h>
#include <unistd.h>
#include <string.h>
#include <errno.h>
#include <sys/time.h>
#include <fcntl.h>
#include <unistd.h>
#include "x48_x11.h"
#include "hp48.h"
#include "debugger.h"
#include "hp48.h"
#include "x48_x11.h"
#include <langinfo.h>
#include <locale.h>
char *progname;
char *res_name;
char *res_class;
char *progname;
char *res_name;
char *res_class;
int saved_argc;
int saved_argc;
char **saved_argv;
saturn_t saturn;
void signal_handler(int sig) {
switch (sig) {
case SIGINT:
enter_debugger |= USER_INTERRUPT;
break;
case SIGALRM:
got_alarm = 1;
break;
case SIGPIPE:
exit_x48(0);
exit (0);
default:
break;
case SIGINT:
enter_debugger |= USER_INTERRUPT;
break;
case SIGALRM:
got_alarm = 1;
break;
case SIGPIPE:
exit_x48(0);
exit(0);
default:
break;
}
}
@ -104,24 +103,20 @@ void save_options(int argc, char **argv) {
saved_argc = argc;
saved_argv = (char **)malloc((argc + 2) * sizeof(char *));
if (saved_argv == (char **)0)
{
fprintf(stderr, "%s: malloc failed in save_options(), exit\n", progname);
exit (1);
}
if (saved_argv == (char **)0) {
fprintf(stderr, "%s: malloc failed in save_options(), exit\n", progname);
exit(1);
}
saved_argv[argc] = (char *)0;
while (argc--)
{
l = strlen(argv[argc]) + 1;
saved_argv[argc] = (char *)malloc(l);
if (saved_argv[argc] == (char *)0)
{
fprintf(stderr, "%s: malloc failed in save_options(), exit\n",
progname);
exit (1);
}
memcpy(saved_argv[argc], argv[argc], l);
while (argc--) {
l = strlen(argv[argc]) + 1;
saved_argv[argc] = (char *)malloc(l);
if (saved_argv[argc] == (char *)0) {
fprintf(stderr, "%s: malloc failed in save_options(), exit\n", progname);
exit(1);
}
memcpy(saved_argv[argc], argv[argc], l);
}
}
int main(int argc, char **argv) {
@ -152,7 +147,7 @@ int main(int argc, char **argv) {
* Open up the display
*/
if (InitDisplay(argc, argv) < 0) {
exit (1);
exit(1);
}
/*
@ -165,7 +160,7 @@ int main(int argc, char **argv) {
*/
if (CreateWindows(saved_argc, saved_argv) < 0) {
fprintf(stderr, "%s: can\'t create window\n", progname);
exit (1);
exit(1);
}
/*
@ -229,9 +224,9 @@ int main(int argc, char **argv) {
do {
if (!exec_flags)
emulate ();
emulate();
else
emulate_debug ();
emulate_debug();
debug();

2324
src/memory.c
View file

File diff suppressed because it is too large Load diff

60
src/mkcard.c
View file

@ -25,13 +25,12 @@
* $Id: mkcard.c,v 1.1 1995/01/11 18:11:25 ecd Exp ecd $
*/
#include "global.h"
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <unistd.h>
#ifdef SUNOS
#include <memory.h>
#endif
@ -42,18 +41,16 @@ unsigned char *mem;
int write_mem_file(char *name, unsigned char *mem, int size) {
FILE *fp;
if (NULL == (fp = fopen(name, "w")))
{
fprintf(stderr, "can\'t open %s\n", name);
return 0;
}
if (NULL == (fp = fopen(name, "w"))) {
fprintf(stderr, "can\'t open %s\n", name);
return 0;
}
if (fwrite(mem, 1, (size_t)size, fp) != size)
{
fprintf(stderr, "can\'t write %s\n", name);
fclose(fp);
return 0;
}
if (fwrite(mem, 1, (size_t)size, fp) != size) {
fprintf(stderr, "can\'t write %s\n", name);
fclose(fp);
return 0;
}
fclose(fp);
return 1;
@ -65,12 +62,11 @@ int main(int argc, char **argv) {
char *asize;
unsigned char *core;
if (argc < 2)
{
fprintf(stderr, "usage: %s [32K | 128K | 1M | 2M | 4M] file-name\n",
argv[0]);
exit (1);
}
if (argc < 2) {
fprintf(stderr, "usage: %s [32K | 128K | 1M | 2M | 4M] file-name\n",
argv[0]);
exit(1);
}
name = argv[2];
asize = argv[1];
@ -88,25 +84,23 @@ int main(int argc, char **argv) {
size = 0x200000;
else if (!strcmp(asize, "4M"))
size = 0x400000;
else
{
fprintf(stderr,
"%s: size must be one of 32K, 128K, 256K, 512K, 1M, 2M, or 4M\n",
argv[0]);
exit (1);
}
else {
fprintf(stderr,
"%s: size must be one of 32K, 128K, 256K, 512K, 1M, 2M, or 4M\n",
argv[0]);
exit(1);
}
if ((core = (unsigned char *)malloc(size)) == NULL) {
fprintf(stderr, "%s: can\'t malloc %ld bytes\n", argv[0], size);
exit (1);
exit(1);
}
memset(core, 0, size);
if (!write_mem_file(name, core, size))
{
fprintf(stderr, "%s: can\'t write to %s\n", argv[0], name);
exit (1);
}
if (!write_mem_file(name, core, size)) {
fprintf(stderr, "%s: can\'t write to %s\n", argv[0], name);
exit(1);
}
exit (0);
exit(0);
}

28
src/mmu.h
View file

@ -27,23 +27,21 @@
#ifndef _MMU_H
#define _MMU_H 1
#define NR_MCTL 6
#define NR_MCTL 6
#define MCTL_MMIO_SX 0
#define MCTL_SysRAM_SX 1
#define MCTL_PORT1_SX 2
#define MCTL_PORT2_SX 3
#define MCTL_EXTRA_SX 4
#define MCTL_SysROM_SX 5
#define MCTL_MMIO_GX 0
#define MCTL_SysRAM_GX 1
#define MCTL_BANK_GX 2
#define MCTL_PORT1_GX 3
#define MCTL_PORT2_GX 4
#define MCTL_SysROM_GX 5
#define MCTL_MMIO_SX 0
#define MCTL_SysRAM_SX 1
#define MCTL_PORT1_SX 2
#define MCTL_PORT2_SX 3
#define MCTL_EXTRA_SX 4
#define MCTL_SysROM_SX 5
#define MCTL_MMIO_GX 0
#define MCTL_SysRAM_GX 1
#define MCTL_BANK_GX 2
#define MCTL_PORT1_GX 3
#define MCTL_PORT2_GX 4
#define MCTL_SysROM_GX 5
#if 0
extern void init_mmu __ProtoType__((void));

11
src/options.c
View file

@ -44,8 +44,8 @@
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <unistd.h>
#include "constants.h"
#include "resources.h"
@ -90,18 +90,19 @@ where options include:\n\
-xrm <resource> set Xresource <resource>\n\
-/+throttle turn off/on speed emulation\n\
-/+netbook turn off/on netbook layout\n\
\n", VERSION_MAJOR, VERSION_MINOR, PATCHLEVEL, progname);
\n",
VERSION_MAJOR, VERSION_MINOR, PATCHLEVEL, progname);
fflush(stdout);
exit (1);
exit(1);
}
void show_version(void) {
fprintf(stdout, "\n\
%s Version %d.%d.%d, x48 is Copyright (c) 1994-2005 by Eddie C. Dost <ecd@dressler.de>.\n\
Compiled on %s by <%s> #%d\n\n",
progname, VERSION_MAJOR, VERSION_MINOR, PATCHLEVEL,
COMPILE_TIME, COMPILE_BY, COMPILE_VERSION);
progname, VERSION_MAJOR, VERSION_MINOR, PATCHLEVEL, COMPILE_TIME,
COMPILE_BY, COMPILE_VERSION);
}
void show_copyright(void) {

110
src/options.h
View file

@ -49,72 +49,72 @@
#include <X11/Xresource.h>
static XrmOptionDescRec options[] = {
{ "-display", ".display", XrmoptionSepArg, (void *) 0 },
{ "-geometry", "*geometry", XrmoptionSepArg, (void *) 0 },
{ "-iconGeom", "*iconGeom", XrmoptionSepArg, (void *) 0 },
{ "-iconName", "*iconName", XrmoptionSepArg, (void *) 0 },
{ "-iconic", "*iconic", XrmoptionNoArg, (void *) "True" },
{ "-name", (char *) 0, XrmoptionSepArg, (void *) 0 },
{ "-title", "*title", XrmoptionSepArg, (void *) 0 },
{"-display", ".display", XrmoptionSepArg, (void *)0},
{"-geometry", "*geometry", XrmoptionSepArg, (void *)0},
{"-iconGeom", "*iconGeom", XrmoptionSepArg, (void *)0},
{"-iconName", "*iconName", XrmoptionSepArg, (void *)0},
{"-iconic", "*iconic", XrmoptionNoArg, (void *)"True"},
{"-name", (char *)0, XrmoptionSepArg, (void *)0},
{"-title", "*title", XrmoptionSepArg, (void *)0},
{ "-xshm", "*useXShm", XrmoptionNoArg, (void *) "True" },
{ "+xshm", "*useXShm", XrmoptionNoArg, (void *)"False" },
{"-xshm", "*useXShm", XrmoptionNoArg, (void *)"True"},
{"+xshm", "*useXShm", XrmoptionNoArg, (void *)"False"},
{ "-visual", "*visual", XrmoptionSepArg, (void *) 0 },
{ "-mono", "*mono", XrmoptionNoArg, (void *) "True" },
{ "-gray", "*gray", XrmoptionNoArg, (void *) "True" },
{ "-monoIcon", "*monoIcon", XrmoptionNoArg, (void *) "True" },
{"-visual", "*visual", XrmoptionSepArg, (void *)0},
{"-mono", "*mono", XrmoptionNoArg, (void *)"True"},
{"-gray", "*gray", XrmoptionNoArg, (void *)"True"},
{"-monoIcon", "*monoIcon", XrmoptionNoArg, (void *)"True"},
{ "-version", "*printVersion", XrmoptionNoArg, (void *) "True" },
{ "-copyright", "*printCopyright",XrmoptionNoArg, (void *) "True" },
{ "-warranty", "*printWarranty", XrmoptionNoArg, (void *) "True" },
{"-version", "*printVersion", XrmoptionNoArg, (void *)"True"},
{"-copyright", "*printCopyright", XrmoptionNoArg, (void *)"True"},
{"-warranty", "*printWarranty", XrmoptionNoArg, (void *)"True"},
{ "-smallFont", "*smallLabelFont",XrmoptionSepArg, (void *) 0 },
{ "-mediumFont", "*mediumLabelFont",XrmoptionSepArg, (void *) 0 },
{ "-largeFont", "*largeLabelFont",XrmoptionSepArg, (void *) 0 },
{ "-connFont", "*connectionFont",XrmoptionSepArg, (void *) 0 },
{"-smallFont", "*smallLabelFont", XrmoptionSepArg, (void *)0},
{"-mediumFont", "*mediumLabelFont", XrmoptionSepArg, (void *)0},
{"-largeFont", "*largeLabelFont", XrmoptionSepArg, (void *)0},
{"-connFont", "*connectionFont", XrmoptionSepArg, (void *)0},
{ "-verbose", "*verbose", XrmoptionNoArg, (void *) "True" },
{ "-quiet", "*quiet", XrmoptionNoArg, (void *) "True" },
{"-verbose", "*verbose", XrmoptionNoArg, (void *)"True"},
{"-quiet", "*quiet", XrmoptionNoArg, (void *)"True"},
{ "-terminal", "*useTerminal", XrmoptionNoArg, (void *) "True" },
{ "+terminal", "*useTerminal", XrmoptionNoArg, (void *)"False" },
{ "-serial", "*useSerial", XrmoptionNoArg, (void *) "True" },
{ "+serial", "*useSerial", XrmoptionNoArg, (void *)"False" },
{ "-line", "*serialLine", XrmoptionSepArg, (void *) 0 },
{"-terminal", "*useTerminal", XrmoptionNoArg, (void *)"True"},
{"+terminal", "*useTerminal", XrmoptionNoArg, (void *)"False"},
{"-serial", "*useSerial", XrmoptionNoArg, (void *)"True"},
{"+serial", "*useSerial", XrmoptionNoArg, (void *)"False"},
{"-line", "*serialLine", XrmoptionSepArg, (void *)0},
{ "-initialize", "*completeInitialize",XrmoptionNoArg,(void *) "True" },
{ "-reset", "*resetOnStartup",XrmoptionNoArg, (void *) "True" },
{ "-rom", "*romFileName", XrmoptionSepArg, (void *) 0 },
{ "-home", "*homeDirectory", XrmoptionSepArg, (void *) 0 },
{"-initialize", "*completeInitialize", XrmoptionNoArg, (void *)"True"},
{"-reset", "*resetOnStartup", XrmoptionNoArg, (void *)"True"},
{"-rom", "*romFileName", XrmoptionSepArg, (void *)0},
{"-home", "*homeDirectory", XrmoptionSepArg, (void *)0},
{ "-debug", "*useDebugger", XrmoptionNoArg, (void *)"False" },
{ "+debug", "*useDebugger", XrmoptionNoArg, (void *) "True" },
{ "-disasm", "*disassemblerMnemonics",XrmoptionSepArg,(void *) 0 },
{"-debug", "*useDebugger", XrmoptionNoArg, (void *)"False"},
{"+debug", "*useDebugger", XrmoptionNoArg, (void *)"True"},
{"-disasm", "*disassemblerMnemonics", XrmoptionSepArg, (void *)0},
{ "-xrm", (char *) 0, XrmoptionResArg, (void *) 0 },
{ "-netbook", "*netbook", XrmoptionNoArg, (void *)"False" },
{ "+netbook", "*netbook", XrmoptionNoArg, (void *) "True" },
{"-xrm", (char *)0, XrmoptionResArg, (void *)0},
{"-netbook", "*netbook", XrmoptionNoArg, (void *)"False"},
{"+netbook", "*netbook", XrmoptionNoArg, (void *)"True"},
{ "-throttle", "*throttle", XrmoptionNoArg, (void *)"False" },
{ "+throttle", "*throttle", XrmoptionNoArg, (void *) "True" },
{"-throttle", "*throttle", XrmoptionNoArg, (void *)"False"},
{"+throttle", "*throttle", XrmoptionNoArg, (void *)"True"},
/*
* these are parsed for compatibility, but not used yet.
*/
{ "-bg", "*background", XrmoptionSepArg, (void *) 0 },
{ "-background", "*background", XrmoptionSepArg, (void *) 0 },
{ "-bd", "*borderColor", XrmoptionSepArg, (void *) 0 },
{ "-bordercolor", "*borderColor", XrmoptionSepArg, (void *) 0 },
{ "-bw", "*borderWidth", XrmoptionSepArg, (void *) 0 },
{ "-borderwidth", "*borderWidth", XrmoptionSepArg, (void *) 0 },
{ "-fg", "*foreground", XrmoptionSepArg, (void *) 0 },
{ "-foreground", "*foreground", XrmoptionSepArg, (void *) 0 },
{ "-fn", "*fontName", XrmoptionSepArg, (void *) 0 },
{ "-font", "*fontName", XrmoptionSepArg, (void *) 0 },
{ "-rv", "*reverseVideo", XrmoptionNoArg, (void *) "True" },
{ "+rv", "*reverseVideo", XrmoptionNoArg, (void *)"False" },
{ "-reverse", "*reverseVideo", XrmoptionNoArg, (void *) "True" },
/*
* these are parsed for compatibility, but not used yet.
*/
{"-bg", "*background", XrmoptionSepArg, (void *)0},
{"-background", "*background", XrmoptionSepArg, (void *)0},
{"-bd", "*borderColor", XrmoptionSepArg, (void *)0},
{"-bordercolor", "*borderColor", XrmoptionSepArg, (void *)0},
{"-bw", "*borderWidth", XrmoptionSepArg, (void *)0},
{"-borderwidth", "*borderWidth", XrmoptionSepArg, (void *)0},
{"-fg", "*foreground", XrmoptionSepArg, (void *)0},
{"-foreground", "*foreground", XrmoptionSepArg, (void *)0},
{"-fn", "*fontName", XrmoptionSepArg, (void *)0},
{"-font", "*fontName", XrmoptionSepArg, (void *)0},
{"-rv", "*reverseVideo", XrmoptionNoArg, (void *)"True"},
{"+rv", "*reverseVideo", XrmoptionNoArg, (void *)"False"},
{"-reverse", "*reverseVideo", XrmoptionNoArg, (void *)"True"},
};

44
src/register.c
View file

@ -42,28 +42,21 @@
* $Id: register.c,v 1.6 1995/01/11 18:20:01 ecd Exp ecd $
*/
#include "global.h"
#include <stdlib.h>
#include <stdio.h>
#include <stdlib.h>
#include "hp48.h"
#include "hp48_emu.h"
extern long nibble_masks[16];
static int start_fields[] = {
-1, 0, 2, 0, 15, 3, 0, 0,
-1, 0, 2, 0, 15, 3, 0, 0,
0, 0, 0
};
static int start_fields[] = {-1, 0, 2, 0, 15, 3, 0, 0, -1, 0,
2, 0, 15, 3, 0, 0, 0, 0, 0};
static int end_fields[] = {
-1, -1, 2, 2, 15, 14, 1, 15,
-1, -1, 2, 2, 15, 14, 1, 4,
3, 2, 0
};
static int end_fields[] = {-1, -1, 2, 2, 15, 14, 1, 15, -1, -1,
2, 2, 15, 14, 1, 4, 3, 2, 0};
static inline int get_start(int code) {
int s;
@ -83,8 +76,8 @@ static inline int get_end(int code) {
return e;
}
void add_register(unsigned char *res, unsigned char *r1,
unsigned char *r2, int code) {
void add_register(unsigned char *res, unsigned char *r1, unsigned char *r2,
int code) {
int t, c, i, s, e;
s = get_start(code);
@ -128,8 +121,8 @@ void add_p_plus_one(unsigned char *r) {
saturn.CARRY = 0;
}
void sub_register(unsigned char *res, unsigned char *r1,
unsigned char *r2, int code) {
void sub_register(unsigned char *res, unsigned char *r1, unsigned char *r2,
int code) {
int t, c, i, s, e;
s = get_start(code);
@ -288,8 +281,8 @@ void zero_register(unsigned char *r, int code) {
r[i] = 0;
}
void or_register(unsigned char *res, unsigned char *r1,
unsigned char *r2, int code) {
void or_register(unsigned char *res, unsigned char *r1, unsigned char *r2,
int code) {
int i, s, e;
s = get_start(code);
@ -299,8 +292,8 @@ void or_register(unsigned char *res, unsigned char *r1,
}
}
void and_register(unsigned char *res, unsigned char *r1,
unsigned char *r2, int code) {
void and_register(unsigned char *res, unsigned char *r1, unsigned char *r2,
int code) {
int i, s, e;
s = get_start(code);
@ -350,7 +343,7 @@ void shift_left_register(unsigned char *r, int code) {
s = get_start(code);
e = get_end(code);
for (i = e; i > s; i--) {
r[i] = r[i-1] & 0x0f;
r[i] = r[i - 1] & 0x0f;
}
r[s] = 0;
}
@ -362,7 +355,7 @@ void shift_left_circ_register(unsigned char *r, int code) {
e = get_end(code);
t = r[e] & 0x0f;
for (i = e; i > s; i--) {
r[i] = r[i-1] & 0x0f;
r[i] = r[i - 1] & 0x0f;
}
r[s] = t;
}
@ -375,7 +368,7 @@ void shift_right_register(unsigned char *r, int code) {
if (r[s] & 0x0f)
saturn.SB = 1;
for (i = s; i < e; i++) {
r[i] = r[i+1] & 0x0f;
r[i] = r[i + 1] & 0x0f;
}
r[e] = 0;
}
@ -387,7 +380,7 @@ void shift_right_circ_register(unsigned char *r, int code) {
e = get_end(code);
t = r[s] & 0x0f;
for (i = s; i < e; i++) {
r[i] = r[i+1] & 0x0f;
r[i] = r[i + 1] & 0x0f;
}
r[e] = t;
if (t)
@ -522,7 +515,8 @@ int is_greater_register(unsigned char *r1, unsigned char *r2, int code) {
return z;
}
int is_greater_or_equal_register(unsigned char *r1, unsigned char *r2, int code) {
int is_greater_or_equal_register(unsigned char *r1, unsigned char *r2,
int code) {
int z, i, s, e;
s = get_start(code);

347
src/resources.c
View file

@ -50,30 +50,30 @@
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xresource.h>
#include <X11/Xutil.h>
#include <stdio.h>
#include "resources.h"
#include "disasm.h"
#include "errors.h"
#include "resources.h"
XrmDatabase rdb = (XrmDatabase)0;
int verbose;
int quiet;
int useTerminal;
int useSerial;
char *serialLine;
int useXShm;
int useDebugger;
int netbook;
int throttle;
int initialize;
int resetOnStartup;
char *romFileName;
char *homeDirectory;
int verbose;
int quiet;
int useTerminal;
int useSerial;
char *serialLine;
int useXShm;
int useDebugger;
int netbook;
int throttle;
int initialize;
int resetOnStartup;
char *romFileName;
char *homeDirectory;
void get_resources(void) {
if (get_boolean_resource("printVersion", "PrintVersion"))
@ -92,216 +92,217 @@ void get_resources(void) {
useSerial = get_boolean_resource("useSerial", "UseSerial");
serialLine = get_string_resource("serialLine", "SerialLine");
initialize = get_boolean_resource("completeInitialize",
"CompleteInitialize");
resetOnStartup = get_boolean_resource("resetOnStartup",
"ResetOnStartup");
initialize = get_boolean_resource("completeInitialize", "CompleteInitialize");
resetOnStartup = get_boolean_resource("resetOnStartup", "ResetOnStartup");
romFileName = get_string_resource("romFileName", "RomFileName");
homeDirectory = get_string_resource("homeDirectory", "HomeDirectory");
useDebugger = get_boolean_resource("useDebugger", "UseDebugger");
disassembler_mode = get_mnemonic_resource("disassemblerMnemonics",
"DisassemblerMnemonics");
disassembler_mode =
get_mnemonic_resource("disassemblerMnemonics", "DisassemblerMnemonics");
netbook = get_boolean_resource("netbook", "Netbook");
throttle = get_boolean_resource("throttle", "Throttle");
}
char * get_string_resource_from_db (XrmDatabase db, char *name, char *class) {
char *get_string_resource_from_db(XrmDatabase db, char *name, char *class) {
XrmValue value;
char *type;
char full_name [1024], full_class [1024];
char *type;
char full_name[1024], full_class[1024];
strcpy (full_name, res_name);
strcat (full_name, ".");
strcat (full_name, name);
strcpy (full_class, res_class);
strcat (full_class, ".");
strcat (full_class, class);
if (XrmGetResource (db, full_name, full_class, &type, &value))
{
char *str = (char *) malloc (value.size + 1);
strncpy (str, (char *) value.addr, value.size);
str [value.size] = 0;
return str;
}
strcpy(full_name, res_name);
strcat(full_name, ".");
strcat(full_name, name);
strcpy(full_class, res_class);
strcat(full_class, ".");
strcat(full_class, class);
if (XrmGetResource(db, full_name, full_class, &type, &value)) {
char *str = (char *)malloc(value.size + 1);
strncpy(str, (char *)value.addr, value.size);
str[value.size] = 0;
return str;
}
return (char *)0;
}
char * get_string_resource (char *name, char *class) {
char *get_string_resource(char *name, char *class) {
return get_string_resource_from_db(rdb, name, class);
}
int get_mnemonic_resource (char *name, char *class) {
char *tmp, buf [100];
char *s = get_string_resource (name, class);
int get_mnemonic_resource(char *name, char *class) {
char *tmp, buf[100];
char *s = get_string_resource(name, class);
char *os = s;
if (! s) return CLASS_MNEMONICS;
for (tmp = buf; *s; s++)
*tmp++ = isupper (*s) ? _tolower (*s) : *s;
*tmp = 0;
free (os);
if (!strcmp (buf, "hp"))
return HP_MNEMONICS;
if (!strcmp (buf, "class"))
if (!s)
return CLASS_MNEMONICS;
fprintf (stderr, "%s: %s must be one of \'HP\' or \'class\', not %s.\n",
progname, name, buf);
for (tmp = buf; *s; s++)
*tmp++ = isupper(*s) ? _tolower(*s) : *s;
*tmp = 0;
free(os);
if (!strcmp(buf, "hp"))
return HP_MNEMONICS;
if (!strcmp(buf, "class"))
return CLASS_MNEMONICS;
fprintf(stderr, "%s: %s must be one of \'HP\' or \'class\', not %s.\n",
progname, name, buf);
return CLASS_MNEMONICS;
}
int get_boolean_resource (char *name, char *class) {
char *tmp, buf [100];
char *s = get_string_resource (name, class);
int get_boolean_resource(char *name, char *class) {
char *tmp, buf[100];
char *s = get_string_resource(name, class);
char *os = s;
if (! s) return 0;
for (tmp = buf; *s; s++)
*tmp++ = isupper (*s) ? _tolower (*s) : *s;
*tmp = 0;
free (os);
if (!strcmp (buf, "on") || !strcmp (buf, "true") || !strcmp (buf, "yes"))
return 1;
if (!strcmp (buf, "off") || !strcmp (buf, "false") || !strcmp (buf, "no"))
if (!s)
return 0;
fprintf (stderr, "%s: %s must be boolean, not %s.\n",
progname, name, buf);
for (tmp = buf; *s; s++)
*tmp++ = isupper(*s) ? _tolower(*s) : *s;
*tmp = 0;
free(os);
if (!strcmp(buf, "on") || !strcmp(buf, "true") || !strcmp(buf, "yes"))
return 1;
if (!strcmp(buf, "off") || !strcmp(buf, "false") || !strcmp(buf, "no"))
return 0;
fprintf(stderr, "%s: %s must be boolean, not %s.\n", progname, name, buf);
return 0;
}
int get_integer_resource (char *name, char *class) {
int get_integer_resource(char *name, char *class) {
int val;
char c, *s = get_string_resource (name, class);
if (!s) return 0;
if (1 == sscanf (s, " %d %c", &val, &c))
{
free (s);
return val;
}
fprintf (stderr, "%s: %s must be an integer, not %s.\n",
progname, name, s);
free (s);
char c, *s = get_string_resource(name, class);
if (!s)
return 0;
if (1 == sscanf(s, " %d %c", &val, &c)) {
free(s);
return val;
}
fprintf(stderr, "%s: %s must be an integer, not %s.\n", progname, name, s);
free(s);
return 0;
}
unsigned int get_pixel_resource (char *name, char *class, Display *dpy,
Colormap cmap) {
unsigned int get_pixel_resource(char *name, char *class, Display *dpy,
Colormap cmap) {
XColor color;
char *s = get_string_resource (name, class);
if (!s) goto DEFAULT;
char *s = get_string_resource(name, class);
if (!s)
goto DEFAULT;
if (! XParseColor (dpy, cmap, s, &color))
{
fprintf (stderr, "%s: can't parse color %s\n", progname, s);
goto DEFAULT;
}
if (! XAllocColor (dpy, cmap, &color))
{
fprintf (stderr, "%s: couldn't allocate color %s\n", progname, s);
goto DEFAULT;
}
free (s);
if (!XParseColor(dpy, cmap, s, &color)) {
fprintf(stderr, "%s: can't parse color %s\n", progname, s);
goto DEFAULT;
}
if (!XAllocColor(dpy, cmap, &color)) {
fprintf(stderr, "%s: couldn't allocate color %s\n", progname, s);
goto DEFAULT;
}
free(s);
return color.pixel;
DEFAULT:
if (s) free (s);
return (strcmp (class, "Background")
? WhitePixel (dpy, DefaultScreen (dpy))
: BlackPixel (dpy, DefaultScreen (dpy)));
DEFAULT:
if (s)
free(s);
return (strcmp(class, "Background") ? WhitePixel(dpy, DefaultScreen(dpy))
: BlackPixel(dpy, DefaultScreen(dpy)));
}
static Visual * pick_visual_of_class (Display *dpy, int visual_class, unsigned int *depth) {
static Visual *pick_visual_of_class(Display *dpy, int visual_class,
unsigned int *depth) {
XVisualInfo vi_in, *vi_out;
int out_count;
vi_in.class = visual_class;
vi_in.screen = DefaultScreen(dpy);
vi_out = XGetVisualInfo(dpy, VisualClassMask|VisualScreenMask,
&vi_in, &out_count);
if (vi_out)
{ /* choose the 'best' one, if multiple */
int i, best;
Visual *visual;
for (i = 0, best = 0; i < out_count; i++)
if (vi_out[i].depth > vi_out[best].depth)
best = i;
visual = vi_out[best].visual;
*depth = vi_out[best].depth;
XFree ((char *)vi_out);
return visual;
}
else
{
*depth = DefaultDepth(dpy, DefaultScreen(dpy));
return DefaultVisual(dpy, DefaultScreen(dpy));
}
vi_out = XGetVisualInfo(dpy, VisualClassMask | VisualScreenMask, &vi_in,
&out_count);
if (vi_out) { /* choose the 'best' one, if multiple */
int i, best;
Visual *visual;
for (i = 0, best = 0; i < out_count; i++)
if (vi_out[i].depth > vi_out[best].depth)
best = i;
visual = vi_out[best].visual;
*depth = vi_out[best].depth;
XFree((char *)vi_out);
return visual;
} else {
*depth = DefaultDepth(dpy, DefaultScreen(dpy));
return DefaultVisual(dpy, DefaultScreen(dpy));
}
}
static Visual * id_to_visual (Display *dpy, int id, unsigned int *depth) {
static Visual *id_to_visual(Display *dpy, int id, unsigned int *depth) {
XVisualInfo vi_in, *vi_out;
int out_count;
vi_in.screen = DefaultScreen(dpy);
vi_in.visualid = id;
vi_out = XGetVisualInfo(dpy, VisualScreenMask|VisualIDMask,
&vi_in, &out_count);
if (vi_out)
{
Visual *v = vi_out[0].visual;
*depth = vi_out[0].depth;
XFree((char *)vi_out);
return v;
}
vi_out =
XGetVisualInfo(dpy, VisualScreenMask | VisualIDMask, &vi_in, &out_count);
if (vi_out) {
Visual *v = vi_out[0].visual;
*depth = vi_out[0].depth;
XFree((char *)vi_out);
return v;
}
return 0;
}
Visual * get_visual_resource(Display *dpy, char *name, char *class, unsigned int *depth) {
char c;
Visual *get_visual_resource(Display *dpy, char *name, char *class,
unsigned int *depth) {
char c;
char *tmp, *s;
int vclass;
int id;
int vclass;
int id;
s = get_string_resource(name, class);
if (s)
for (tmp = s; *tmp; tmp++)
if (isupper(*tmp)) *tmp = _tolower(*tmp);
if (isupper(*tmp))
*tmp = _tolower(*tmp);
if (!s || !strcmp(s, "default")) vclass = -1;
else if (!strcmp (s, "staticgray")) vclass = StaticGray;
else if (!strcmp (s, "staticcolor")) vclass = StaticColor;
else if (!strcmp (s, "truecolor")) vclass = TrueColor;
else if (!strcmp (s, "grayscale")) vclass = GrayScale;
else if (!strcmp (s, "pseudocolor")) vclass = PseudoColor;
else if (!strcmp (s, "directcolor")) vclass = DirectColor;
else if (1 == sscanf (s, " %d %c", &id, &c)) vclass = -2;
else if (1 == sscanf (s, " 0x%x %c", &id, &c)) vclass = -2;
else
{
fprintf (stderr, "%s: unrecognized visual \"%s\".\n", progname, s);
vclass = -1;
}
if (s) free (s);
if (!s || !strcmp(s, "default"))
vclass = -1;
else if (!strcmp(s, "staticgray"))
vclass = StaticGray;
else if (!strcmp(s, "staticcolor"))
vclass = StaticColor;
else if (!strcmp(s, "truecolor"))
vclass = TrueColor;
else if (!strcmp(s, "grayscale"))
vclass = GrayScale;
else if (!strcmp(s, "pseudocolor"))
vclass = PseudoColor;
else if (!strcmp(s, "directcolor"))
vclass = DirectColor;
else if (1 == sscanf(s, " %d %c", &id, &c))
vclass = -2;
else if (1 == sscanf(s, " 0x%x %c", &id, &c))
vclass = -2;
else {
fprintf(stderr, "%s: unrecognized visual \"%s\".\n", progname, s);
vclass = -1;
}
if (s)
free(s);
if (vclass == -1)
{
*depth = DefaultDepth(dpy, DefaultScreen(dpy));
return DefaultVisual(dpy, DefaultScreen(dpy));
}
else if (vclass == -2)
{
Visual *v = id_to_visual (dpy, id, depth);
if (v) return v;
fprintf (stderr, "%s: no visual with id 0x%x.\n", progname, id);
*depth = DefaultDepth(dpy, DefaultScreen(dpy));
return DefaultVisual(dpy, DefaultScreen(dpy));
}
else
if (vclass == -1) {
*depth = DefaultDepth(dpy, DefaultScreen(dpy));
return DefaultVisual(dpy, DefaultScreen(dpy));
} else if (vclass == -2) {
Visual *v = id_to_visual(dpy, id, depth);
if (v)
return v;
fprintf(stderr, "%s: no visual with id 0x%x.\n", progname, id);
*depth = DefaultDepth(dpy, DefaultScreen(dpy));
return DefaultVisual(dpy, DefaultScreen(dpy));
} else
return pick_visual_of_class(dpy, vclass, depth);
}
XFontStruct * get_font_resource(Display *dpy, char *name, char *class) {
XFontStruct *get_font_resource(Display *dpy, char *name, char *class) {
char *s;
XFontStruct *f = (XFontStruct *)0;
@ -309,16 +310,14 @@ XFontStruct * get_font_resource(Display *dpy, char *name, char *class) {
if (s)
f = XLoadQueryFont(dpy, s);
else
{
sprintf(errbuf, "can\'t get resource \'%s\'", name);
fatal_exit();
}
if (f == (XFontStruct *)0)
{
sprintf(errbuf, "can\'t load font \'%s\'", s);
sprintf(fixbuf, "Please change resource \'%s\'", name);
fatal_exit();
}
else {
sprintf(errbuf, "can\'t get resource \'%s\'", name);
fatal_exit();
}
if (f == (XFontStruct *)0) {
sprintf(errbuf, "can\'t load font \'%s\'", s);
sprintf(fixbuf, "Please change resource \'%s\'", name);
fatal_exit();
}
return f;
}

80
src/resources.h
View file

@ -41,59 +41,55 @@
#include <X11/Xlib.h>
#include <X11/Xresource.h>
extern int verbose;
extern int quiet;
extern int useTerminal;
extern int useSerial;
extern int useXShm;
extern int useDebugger;
extern int netbook;
extern int throttle;
extern char *serialLine;
extern int initialize;
extern int resetOnStartup;
extern char *romFileName;
extern char *homeDirectory;
extern int verbose;
extern int quiet;
extern int useTerminal;
extern int useSerial;
extern int useXShm;
extern int useDebugger;
extern int netbook;
extern int throttle;
extern char *serialLine;
extern int initialize;
extern int resetOnStartup;
extern char *romFileName;
extern char *homeDirectory;
extern char *progname;
extern char *res_name;
extern char *res_class;
extern char *progname;
extern char *res_name;
extern char *res_class;
extern XrmDatabase rdb;
extern XrmDatabase rdb;
extern void usage __ProtoType__ ((void));
extern void show_version __ProtoType__ ((void));
extern void show_copyright __ProtoType__ ((void));
extern void show_warranty __ProtoType__ ((void));
extern void get_resources __ProtoType__ ((void));
extern char * get_string_resource_from_db __ProtoType__ ((XrmDatabase db,
char *name,
char *class));
extern char * get_string_resource __ProtoType__ ((char *name,
char *class));
extern int get_boolean_resource __ProtoType__ ((char *name,
char *class));
extern int get_mnemonic_resource __ProtoType__ ((char *name,
char *class));
extern Visual * get_visual_resource __ProtoType__ ((Display *dpy,
char *name,
char *class,
unsigned int *depth));
extern XFontStruct * get_font_resource __ProtoType__ ((Display *dpy,
char *res_name,
char *res_class));
extern void usage __ProtoType__((void));
extern void show_version __ProtoType__((void));
extern void show_copyright __ProtoType__((void));
extern void show_warranty __ProtoType__((void));
extern void get_resources __ProtoType__((void));
extern char *get_string_resource_from_db __ProtoType__((XrmDatabase db,
char *name,
char *class));
extern char *get_string_resource __ProtoType__((char *name, char *class));
extern int get_boolean_resource __ProtoType__((char *name, char *class));
extern int get_mnemonic_resource __ProtoType__((char *name, char *class));
extern Visual *get_visual_resource __ProtoType__((Display * dpy, char *name,
char *class,
unsigned int *depth));
extern XFontStruct *get_font_resource __ProtoType__((Display * dpy,
char *res_name,
char *res_class));
#ifndef isupper
# define isupper(c) ((c) >= 'A' && (c) <= 'Z')
#define isupper(c) ((c) >= 'A' && (c) <= 'Z')
#endif
#ifndef islower
# define islower(c) ((c) >= 'a' && (c) <= 'z')
#define islower(c) ((c) >= 'a' && (c) <= 'z')
#endif
#ifndef _tolower
# define _tolower(c) ((c) - 'A' + 'a')
#define _tolower(c) ((c) - 'A' + 'a')
#endif
#ifndef _toupper
# define _toupper(c) ((c) - 'a' + 'A')
#define _toupper(c) ((c) - 'a' + 'A')
#endif
#endif /* !_RESOURCES_H */

270
src/romio.c
View file

@ -27,8 +27,8 @@
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/stat.h>
#include <unistd.h>
#include "global.h"
#include "resources.h"
@ -47,70 +47,80 @@ int read_rom_file(char *name, unsigned char **mem, int *size) {
*mem = NULL;
*size = 0;
if (NULL == (fp = fopen(name, "r")))
{
fprintf(stderr, "can\'t open %s\n", name);
return 0;
}
if (NULL == (fp = fopen(name, "r"))) {
fprintf(stderr, "can\'t open %s\n", name);
return 0;
}
if (stat(name, &st) < 0)
{
fprintf(stderr, "can\'t stat %s\n", name);
if (stat(name, &st) < 0) {
fprintf(stderr, "can\'t stat %s\n", name);
fclose(fp);
return 0;
}
if (fread(four, 1, 4, fp) != 4) {
fprintf(stderr, "can\'t read first 4 bytes of %s\n", name);
fclose(fp);
return 0;
}
if (four[0] == 0x02 && four[1] == 0x03 && four[2] == 0x06 &&
four[3] == 0x09) {
*size = st.st_size;
} else if (four[0] == 0x32 && four[1] == 0x96 && four[2] == 0x1b &&
four[3] == 0x80) {
*size = 2 * st.st_size;
} else if (four[1] = 0x49) {
fprintf(stderr, "%s is an HP49 ROM\n", name);
*size = 2 * st.st_size;
} else if (four[0]) {
printf("%d\n", st.st_size);
*size = st.st_size;
} else {
fprintf(stderr, "%s is not a HP48 ROM\n", name);
fclose(fp);
return 0;
}
if (fseek(fp, 0, 0) < 0) {
fprintf(stderr, "can\'t fseek to position 0 in %s\n", name);
*size = 0;
fclose(fp);
return 0;
}
*mem = (unsigned char *)malloc(*size);
if (st.st_size == *size) {
/*
* size is same as memory size, old version file
*/
if (fread(*mem, 1, (size_t)*size, fp) != *size) {
fprintf(stderr, "can\'t read %s\n", name);
free(*mem);
*mem = NULL;
*size = 0;
fclose(fp);
return 0;
}
} else {
/*
* size is different, check size and decompress memory
*/
if (fread(four, 1, 4, fp) != 4)
{
fprintf(stderr, "can\'t read first 4 bytes of %s\n", name);
fclose(fp);
return 0;
}
if (four[0] == 0x02 && four[1] == 0x03 &&
four[2] == 0x06 && four[3] == 0x09)
{
*size = st.st_size;
}
else if (four[0] == 0x32 && four[1] == 0x96 &&
four[2] == 0x1b && four[3] == 0x80)
{
*size = 2 * st.st_size;
}
else if (four[1] = 0x49)
{
fprintf(stderr, "%s is an HP49 ROM\n", name);
*size = 2 * st.st_size;
}
else if (four[0])
{
printf("%d\n", st.st_size);
*size = st.st_size;
}
else
{
fprintf(stderr, "%s is not a HP48 ROM\n", name);
fclose(fp);
return 0;
}
if (fseek(fp, 0, 0) < 0)
{
fprintf(stderr, "can\'t fseek to position 0 in %s\n", name);
if (st.st_size != *size / 2) {
fprintf(stderr, "strange size %s, expected %d, found %ld\n", name,
*size / 2, st.st_size);
free(*mem);
*mem = NULL;
*size = 0;
fclose(fp);
return 0;
}
*mem = (unsigned char *)malloc(*size);
if (st.st_size == *size)
{
/*
* size is same as memory size, old version file
*/
if (fread(*mem, 1, (size_t)*size, fp) != *size)
{
if (NULL == (tmp_mem = (unsigned char *)malloc((size_t)st.st_size))) {
for (i = 0, j = 0; i < *size / 2; i++) {
if (1 != fread(&byte, 1, 1, fp)) {
fprintf(stderr, "can\'t read %s\n", name);
free(*mem);
*mem = NULL;
@ -118,112 +128,62 @@ int read_rom_file(char *name, unsigned char **mem, int *size) {
fclose(fp);
return 0;
}
(*mem)[j++] = byte & 0xf;
(*mem)[j++] = (byte >> 4) & 0xf;
}
} else {
if (fread(tmp_mem, 1, (size_t)*size / 2, fp) != *size / 2) {
fprintf(stderr, "can\'t read %s\n", name);
free(*mem);
*mem = NULL;
*size = 0;
fclose(fp);
free(tmp_mem);
return 0;
}
for (i = 0, j = 0; i < *size / 2; i++) {
(*mem)[j++] = tmp_mem[i] & 0xf;
(*mem)[j++] = (tmp_mem[i] >> 4) & 0xf;
}
free(tmp_mem);
}
else
{
/*
* size is different, check size and decompress memory
*/
if (st.st_size != *size / 2)
{
fprintf(stderr, "strange size %s, expected %d, found %ld\n",
name, *size / 2, st.st_size);
free(*mem);
*mem = NULL;
*size = 0;
fclose(fp);
return 0;
}
if (NULL == (tmp_mem = (unsigned char *)malloc((size_t)st.st_size)))
{
for (i = 0, j = 0; i < *size / 2; i++)
{
if (1 != fread(&byte, 1, 1, fp))
{
fprintf(stderr, "can\'t read %s\n", name);
free(*mem);
*mem = NULL;
*size = 0;
fclose(fp);
return 0;
}
(*mem)[j++] = byte & 0xf;
(*mem)[j++] = (byte >> 4) & 0xf;
}
}
else
{
if (fread(tmp_mem, 1, (size_t)*size / 2, fp) != *size / 2)
{
fprintf(stderr, "can\'t read %s\n", name);
free(*mem);
*mem = NULL;
*size = 0;
fclose(fp);
free(tmp_mem);
return 0;
}
for (i = 0, j = 0; i < *size / 2; i++)
{
(*mem)[j++] = tmp_mem[i] & 0xf;
(*mem)[j++] = (tmp_mem[i] >> 4) & 0xf;
}
free(tmp_mem);
}
}
}
fclose(fp);
if ((*mem)[0x29] == 0x00)
{
if (*size == ROM_SIZE_GX)
{
opt_gx = 1;
}
else
if (*size == 4 * ROM_SIZE_GX)
{
fprintf(stderr, "%s seems to be HP49 ROM, but size is 0x%x\n",
name, *size);
opt_gx = 2;
}
else
if (*size == 8 * ROM_SIZE_GX)
{
fprintf(stderr, "%s seems to be HP49 ROM, but size is 0x%x\n",
name, *size);
opt_gx = 2;
}
else
{
fprintf(stderr, "%s seems to be G/GX ROM, but size is 0x%x\n",
name, *size);
free(*mem);
*mem = NULL;
*size = 0;
return 0;
}
if ((*mem)[0x29] == 0x00) {
if (*size == ROM_SIZE_GX) {
opt_gx = 1;
} else if (*size == 4 * ROM_SIZE_GX) {
fprintf(stderr, "%s seems to be HP49 ROM, but size is 0x%x\n", name,
*size);
opt_gx = 2;
} else if (*size == 8 * ROM_SIZE_GX) {
fprintf(stderr, "%s seems to be HP49 ROM, but size is 0x%x\n", name,
*size);
opt_gx = 2;
} else {
fprintf(stderr, "%s seems to be G/GX ROM, but size is 0x%x\n", name,
*size);
free(*mem);
*mem = NULL;
*size = 0;
return 0;
}
else
{
if (*size == ROM_SIZE_SX)
{
opt_gx = 0;
}
else
{
fprintf(stderr, "%s seems to be S/SX ROM, but size is 0x%x\n",
name, *size);
free(*mem);
*mem = NULL;
*size = 0;
return 0;
}
} else {
if (*size == ROM_SIZE_SX) {
opt_gx = 0;
} else {
fprintf(stderr, "%s seems to be S/SX ROM, but size is 0x%x\n", name,
*size);
free(*mem);
*mem = NULL;
*size = 0;
return 0;
}
}
if (verbose)
printf("%s: read %s\n", progname, name);

1529
src/rpl.c
View file

File diff suppressed because it is too large Load diff

136
src/rpl.h
View file

@ -43,90 +43,90 @@
/*
* Addresses in SX ROM
*/
#define ROMPTAB_SX 0x707d9
#define ROMPTAB_GX 0x809a3
#define ROMPTAB_SX 0x707d9
#define ROMPTAB_GX 0x809a3
/*
* Object Prologs
*/
#define DOBINT 0x02911 /* System Binary */
#define DOREAL 0x02933 /* Real */
#define DOEREL 0x02955 /* Extended Real */
#define DOCMP 0x02977 /* Complex */
#define DOECMP 0x0299d /* Extended Complex */
#define DOCHAR 0x029bf /* Character */
#define DOARRY 0x029e8 /* Array */
#define DOLNKARRY 0x02a0a /* Linked Array */
#define DOCSTR 0x02a2c /* String */
#define DOHSTR 0x02a4e /* Binary Integer */
#define DOLIST 0x02a74 /* List */
#define DORRP 0x02a96 /* Directory */
#define DOSYMB 0x02ab8 /* Algebraic */
#define DOEXT 0x02ada /* Unit */
#define DOTAG 0x02afc /* Tagged */
#define DOGROB 0x02b1e /* Graphic Object */
#define DOLIB 0x02b40 /* Library */
#define DOBAK 0x02b62 /* Backup */
#define DOEXT0 0x02b88 /* Library Data */
#define DOACPTR 0x02baa /* */
#define DOEXT2 0x02bcc /* */
#define DOEXT3 0x02bee /* */
#define DOEXT4 0x02c10 /* */
#define DOCOL 0x02d9d /* Program */
#define DOCODE 0x02dcc /* Code */
#define DOIDNT 0x02e48 /* Global Name */
#define DOLAM 0x02e6d /* Local Name */
#define DOROMP 0x02e92 /* XLib Name */
#define DOBINT 0x02911 /* System Binary */
#define DOREAL 0x02933 /* Real */
#define DOEREL 0x02955 /* Extended Real */
#define DOCMP 0x02977 /* Complex */
#define DOECMP 0x0299d /* Extended Complex */
#define DOCHAR 0x029bf /* Character */
#define DOARRY 0x029e8 /* Array */
#define DOLNKARRY 0x02a0a /* Linked Array */
#define DOCSTR 0x02a2c /* String */
#define DOHSTR 0x02a4e /* Binary Integer */
#define DOLIST 0x02a74 /* List */
#define DORRP 0x02a96 /* Directory */
#define DOSYMB 0x02ab8 /* Algebraic */
#define DOEXT 0x02ada /* Unit */
#define DOTAG 0x02afc /* Tagged */
#define DOGROB 0x02b1e /* Graphic Object */
#define DOLIB 0x02b40 /* Library */
#define DOBAK 0x02b62 /* Backup */
#define DOEXT0 0x02b88 /* Library Data */
#define DOACPTR 0x02baa /* */
#define DOEXT2 0x02bcc /* */
#define DOEXT3 0x02bee /* */
#define DOEXT4 0x02c10 /* */
#define DOCOL 0x02d9d /* Program */
#define DOCODE 0x02dcc /* Code */
#define DOIDNT 0x02e48 /* Global Name */
#define DOLAM 0x02e6d /* Local Name */
#define DOROMP 0x02e92 /* XLib Name */
/*
* Terminates composite objects
*/
#define SEMI 0x0312b /* Semi */
#define SEMI 0x0312b /* Semi */
/*
* Unit Operators
*/
#define UM_MUL 0x10b5e /* Unit Operator * */
#define UM_DIV 0x10b68 /* Unit Operator / */
#define UM_POW 0x10b72 /* Unit Operator ^ */
#define UM_PRE 0x10b7c /* Unit Operator prefix */
#define UM_END 0x10b86 /* Unit Operator _ */
#define UM_MUL 0x10b5e /* Unit Operator * */
#define UM_DIV 0x10b68 /* Unit Operator / */
#define UM_POW 0x10b72 /* Unit Operator ^ */
#define UM_PRE 0x10b7c /* Unit Operator prefix */
#define UM_END 0x10b86 /* Unit Operator _ */
typedef struct hp_real {
word_20 x;
word_32 ml;
word_32 mh;
word_4 m;
word_1 s;
word_20 x;
word_32 ml;
word_32 mh;
word_4 m;
word_1 s;
} hp_real;
extern char *decode_rpl_obj __ProtoType__((word_20 addr, char *buf));
extern void decode_rpl_obj_2 __ProtoType__((word_20 addr, char *typ, char *dat));
extern char *decode_rpl_obj __ProtoType__((word_20 addr, char *buf));
extern void decode_rpl_obj_2 __ProtoType__((word_20 addr, char *typ,
char *dat));
extern char *skip_ob __ProtoType__((word_20 *addr, char *string));
extern char *dec_rpl_obj __ProtoType__((word_20 *addr, char *string));
extern char *dec_bin_int __ProtoType__((word_20 *addr, char *string));
extern char *dec_real __ProtoType__((word_20 *addr, char *string));
extern char *dec_long_real __ProtoType__((word_20 *addr, char *string));
extern char *dec_complex __ProtoType__((word_20 *addr, char *string));
extern char *dec_long_complex __ProtoType__((word_20 *addr, char *string));
extern char *dec_char __ProtoType__((word_20 *addr, char *string));
extern char *dec_array __ProtoType__((word_20 *addr, char *string));
extern char *dec_lnk_array __ProtoType__((word_20 *addr, char *string));
extern char *dec_string __ProtoType__((word_20 *addr, char *string));
extern char *dec_hex_string __ProtoType__((word_20 *addr, char *string));
extern char *dec_list __ProtoType__((word_20 *addr, char *string));
extern char *dec_symb __ProtoType__((word_20 *addr, char *string));
extern char *dec_unit __ProtoType__((word_20 *addr, char *string));
extern char *dec_library __ProtoType__((word_20 *addr, char *string));
extern char *dec_library_data __ProtoType__((word_20 *addr, char *string));
extern char *dec_acptr __ProtoType__((word_20 *addr, char *string));
extern char *dec_prog __ProtoType__((word_20 *addr, char *string));
extern char *dec_code __ProtoType__((word_20 *addr, char *string));
extern char *dec_global_ident __ProtoType__((word_20 *addr, char *string));
extern char *dec_local_ident __ProtoType__((word_20 *addr, char *string));
extern char *dec_xlib_name __ProtoType__((word_20 *addr, char *string));
extern char *dec_unit_op __ProtoType__((word_20 *addr, char *string));
extern char *skip_ob __ProtoType__((word_20 * addr, char *string));
extern char *dec_rpl_obj __ProtoType__((word_20 * addr, char *string));
extern char *dec_bin_int __ProtoType__((word_20 * addr, char *string));
extern char *dec_real __ProtoType__((word_20 * addr, char *string));
extern char *dec_long_real __ProtoType__((word_20 * addr, char *string));
extern char *dec_complex __ProtoType__((word_20 * addr, char *string));
extern char *dec_long_complex __ProtoType__((word_20 * addr, char *string));
extern char *dec_char __ProtoType__((word_20 * addr, char *string));
extern char *dec_array __ProtoType__((word_20 * addr, char *string));
extern char *dec_lnk_array __ProtoType__((word_20 * addr, char *string));
extern char *dec_string __ProtoType__((word_20 * addr, char *string));
extern char *dec_hex_string __ProtoType__((word_20 * addr, char *string));
extern char *dec_list __ProtoType__((word_20 * addr, char *string));
extern char *dec_symb __ProtoType__((word_20 * addr, char *string));
extern char *dec_unit __ProtoType__((word_20 * addr, char *string));
extern char *dec_library __ProtoType__((word_20 * addr, char *string));
extern char *dec_library_data __ProtoType__((word_20 * addr, char *string));
extern char *dec_acptr __ProtoType__((word_20 * addr, char *string));
extern char *dec_prog __ProtoType__((word_20 * addr, char *string));
extern char *dec_code __ProtoType__((word_20 * addr, char *string));
extern char *dec_global_ident __ProtoType__((word_20 * addr, char *string));
extern char *dec_local_ident __ProtoType__((word_20 * addr, char *string));
extern char *dec_xlib_name __ProtoType__((word_20 * addr, char *string));
extern char *dec_unit_op __ProtoType__((word_20 * addr, char *string));
#endif /* !_RPL_H */

675
src/serial.c
View file

@ -60,28 +60,27 @@
* $Id: serial.c,v 1.11 1995/01/11 18:20:01 ecd Exp ecd $
*/
#include "global.h"
#include <errno.h>
#include <fcntl.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#include <errno.h>
#include <sys/time.h>
#if defined(HPUX) || defined(CSRG_BASED)
# include <sys/ioctl.h>
#include <sys/ioctl.h>
#endif
#include <unistd.h>
#include <termios.h>
#include <unistd.h>
#ifdef SOLARIS
# include <sys/stream.h>
# include <sys/stropts.h>
# include <sys/termios.h>
#include <sys/stream.h>
#include <sys/stropts.h>
#include <sys/termios.h>
#endif
#include "hp48.h"
#include "device.h"
#include "hp48.h"
#include "hp48_emu.h"
#include "resources.h"
#include "x48_x11.h"
@ -98,161 +97,133 @@ static char *ir_name = (char *)0;
/* #define DEBUG_SERIAL */
void update_connection_display(void) {
if (wire_fd == -1)
{
if (wire_name) free(wire_name);
wire_name = (char *)0;
}
if (ir_fd == -1)
{
if (ir_name) free(ir_name);
ir_name = (char *)0;
}
if (wire_fd == -1) {
if (wire_name)
free(wire_name);
wire_name = (char *)0;
}
if (ir_fd == -1) {
if (ir_name)
free(ir_name);
ir_name = (char *)0;
}
ShowConnections(wire_name, ir_name);
}
int serial_init(void) {
char *p;
int c;
int n;
char tty_dev_name[128];
int c;
int n;
char tty_dev_name[128];
struct termios ttybuf;
wire_fd = -1;
ttyp = -1;
if (useTerminal)
{
if (useTerminal) {
#if defined(IRIX)
if ((p = _getpty(&wire_fd, O_RDWR | O_EXCL | O_NDELAY, 0666, 0)) == NULL)
{
wire_fd = -1;
ttyp = -1;
}
else
{
if ((ttyp = open(p, O_RDWR | O_NDELAY, 0666)) < 0)
{
close(wire_fd);
wire_fd = -1;
ttyp = -1;
}
else
{
if (verbose)
printf("%s: wire connection on %s\n", progname, p);
wire_name = strdup(p);
}
}
#elif defined(SOLARIS)
if ((wire_fd = open("/dev/ptmx", O_RDWR | O_NONBLOCK, 0666)) >= 0)
{
grantpt(wire_fd);
unlockpt(wire_fd);
p = ptsname(wire_fd);
strcpy(tty_dev_name, p);
if ((ttyp = open(tty_dev_name, O_RDWR | O_NDELAY, 0666)) >= 0)
{
ioctl(ttyp, I_PUSH, "ptem");
ioctl(ttyp, I_PUSH, "ldterm");
if (verbose)
printf("%s: wire connection on %s\n", progname,
tty_dev_name);
wire_name = strdup(tty_dev_name);
}
}
#elif defined(LINUX)
/* Unix98 PTY (Preferred) */
if ((wire_fd = open("/dev/ptmx", O_RDWR | O_NONBLOCK, 0666)) >= 0)
{
grantpt(wire_fd);
unlockpt(wire_fd);
if (ptsname_r(wire_fd, tty_dev_name, 128)) {
perror("Could not get the name of the wire device.");
exit(-1);
if ((p = _getpty(&wire_fd, O_RDWR | O_EXCL | O_NDELAY, 0666, 0)) == NULL) {
wire_fd = -1;
ttyp = -1;
} else {
if ((ttyp = open(p, O_RDWR | O_NDELAY, 0666)) < 0) {
close(wire_fd);
wire_fd = -1;
ttyp = -1;
} else {
if (verbose)
printf("%s: wire connection on %s\n", progname, p);
wire_name = strdup(p);
}
if ((ttyp = open(tty_dev_name, O_RDWR | O_NDELAY, 0666)) >= 0)
{
if (verbose)
printf("%s: wire connection on %s\n", progname,
tty_dev_name);
wire_name = strdup(tty_dev_name);
}
}
/* BSD PTY (Legacy) */
else
{
c = 'p';
do
{
for (n = 0; n < 16; n++)
{
sprintf(tty_dev_name, "/dev/pty%c%x", c, n);
if ((wire_fd = open(tty_dev_name,
O_RDWR | O_EXCL | O_NDELAY, 0666)) >= 0)
{
ttyp = wire_fd;
sprintf(tty_dev_name, "/dev/tty%c%x", c, n);
if (verbose)
printf("%s: wire connection on %s\n", progname,
tty_dev_name);
wire_name = strdup(tty_dev_name);
break;
}
}
c++;
}
while ((wire_fd < 0) && (errno != ENOENT));
}
#else
/*
* Here we go for SUNOS, HPUX
*/
#elif defined(SOLARIS)
if ((wire_fd = open("/dev/ptmx", O_RDWR | O_NONBLOCK, 0666)) >= 0) {
grantpt(wire_fd);
unlockpt(wire_fd);
p = ptsname(wire_fd);
strcpy(tty_dev_name, p);
if ((ttyp = open(tty_dev_name, O_RDWR | O_NDELAY, 0666)) >= 0) {
ioctl(ttyp, I_PUSH, "ptem");
ioctl(ttyp, I_PUSH, "ldterm");
if (verbose)
printf("%s: wire connection on %s\n", progname, tty_dev_name);
wire_name = strdup(tty_dev_name);
}
}
#elif defined(LINUX)
/* Unix98 PTY (Preferred) */
if ((wire_fd = open("/dev/ptmx", O_RDWR | O_NONBLOCK, 0666)) >= 0) {
grantpt(wire_fd);
unlockpt(wire_fd);
if (ptsname_r(wire_fd, tty_dev_name, 128)) {
perror("Could not get the name of the wire device.");
exit(-1);
}
if ((ttyp = open(tty_dev_name, O_RDWR | O_NDELAY, 0666)) >= 0) {
if (verbose)
printf("%s: wire connection on %s\n", progname, tty_dev_name);
wire_name = strdup(tty_dev_name);
}
}
/* BSD PTY (Legacy) */
else {
c = 'p';
do
{
for (n = 0; n < 16; n++)
{
sprintf(tty_dev_name, "/dev/ptyp%x", n);
if ((wire_fd = open(tty_dev_name,
O_RDWR | O_EXCL | O_NDELAY, 0666)) >= 0)
{
sprintf(tty_dev_name, "/dev/tty%c%x", c, n);
if ((ttyp = open(tty_dev_name, O_RDWR | O_NDELAY, 0666)) < 0)
{
wire_fd = -1;
ttyp = -1;
}
else
{
if (verbose)
printf("%s: wire connection on %s\n", progname,
tty_dev_name);
wire_name = strdup(tty_dev_name);
break;
}
}
}
c++;
do {
for (n = 0; n < 16; n++) {
sprintf(tty_dev_name, "/dev/pty%c%x", c, n);
if ((wire_fd =
open(tty_dev_name, O_RDWR | O_EXCL | O_NDELAY, 0666)) >= 0) {
ttyp = wire_fd;
sprintf(tty_dev_name, "/dev/tty%c%x", c, n);
if (verbose)
printf("%s: wire connection on %s\n", progname, tty_dev_name);
wire_name = strdup(tty_dev_name);
break;
}
}
while ((wire_fd < 0) && (errno != ENOENT));
#endif
c++;
} while ((wire_fd < 0) && (errno != ENOENT));
}
if (ttyp >= 0)
{
#if defined(TCSANOW)
if (tcgetattr(ttyp, &ttybuf) < 0)
#else
if (ioctl(ttyp, TCGETS, (char *)&ttybuf) < 0)
#endif
{
if (!quiet)
fprintf(stderr, "%s: ioctl(wire, TCGETS) failed, errno = %d\n",
progname, errno);
wire_fd = -1;
ttyp = -1;
/*
* Here we go for SUNOS, HPUX
*/
c = 'p';
do {
for (n = 0; n < 16; n++) {
sprintf(tty_dev_name, "/dev/ptyp%x", n);
if ((wire_fd = open(tty_dev_name, O_RDWR | O_EXCL | O_NDELAY, 0666)) >=
0) {
sprintf(tty_dev_name, "/dev/tty%c%x", c, n);
if ((ttyp = open(tty_dev_name, O_RDWR | O_NDELAY, 0666)) < 0) {
wire_fd = -1;
ttyp = -1;
} else {
if (verbose)
printf("%s: wire connection on %s\n", progname, tty_dev_name);
wire_name = strdup(tty_dev_name);
break;
}
}
}
c++;
} while ((wire_fd < 0) && (errno != ENOENT));
#endif
}
if (ttyp >= 0) {
#if defined(TCSANOW)
if (tcgetattr(ttyp, &ttybuf) < 0)
#else
if (ioctl(ttyp, TCGETS, (char *)&ttybuf) < 0)
#endif
{
if (!quiet)
fprintf(stderr, "%s: ioctl(wire, TCGETS) failed, errno = %d\n",
progname, errno);
wire_fd = -1;
ttyp = -1;
}
}
ttybuf.c_lflag = 0;
ttybuf.c_iflag = 0;
@ -263,48 +234,44 @@ int serial_init(void) {
ttybuf.c_cc[VTIME] = 0;
ttybuf.c_cc[VMIN] = 1;
if (ttyp >= 0)
{
if (ttyp >= 0) {
#if defined(TCSANOW)
if (tcsetattr(ttyp, TCSANOW, &ttybuf) < 0)
if (tcsetattr(ttyp, TCSANOW, &ttybuf) < 0)
#else
if (ioctl(ttyp, TCSETS, (char *)&ttybuf) < 0)
if (ioctl(ttyp, TCSETS, (char *)&ttybuf) < 0)
#endif
{
if (!quiet)
fprintf(stderr, "%s: ioctl(wire, TCSETS) failed, errno = %d\n",
progname, errno);
wire_fd = -1;
ttyp = -1;
}
{
if (!quiet)
fprintf(stderr, "%s: ioctl(wire, TCSETS) failed, errno = %d\n",
progname, errno);
wire_fd = -1;
ttyp = -1;
}
}
ir_fd = -1;
if (useSerial)
{
sprintf(tty_dev_name, serialLine);
if ((ir_fd = open(tty_dev_name, O_RDWR | O_NDELAY)) >= 0)
{
if (verbose)
printf("%s: IR connection on %s\n", progname, tty_dev_name);
ir_name = strdup(tty_dev_name);
}
if (useSerial) {
sprintf(tty_dev_name, serialLine);
if ((ir_fd = open(tty_dev_name, O_RDWR | O_NDELAY)) >= 0) {
if (verbose)
printf("%s: IR connection on %s\n", progname, tty_dev_name);
ir_name = strdup(tty_dev_name);
}
}
if (ir_fd >= 0)
{
if (ir_fd >= 0) {
#if defined(TCSANOW)
if (tcgetattr(ir_fd, &ttybuf) < 0)
if (tcgetattr(ir_fd, &ttybuf) < 0)
#else
if (ioctl(ir_fd, TCGETS, (char *)&ttybuf) < 0)
if (ioctl(ir_fd, TCGETS, (char *)&ttybuf) < 0)
#endif
{
if (!quiet)
fprintf(stderr, "%s: ioctl(IR, TCGETS) failed, errno = %d\n",
progname, errno);
ir_fd = -1;
}
{
if (!quiet)
fprintf(stderr, "%s: ioctl(IR, TCGETS) failed, errno = %d\n", progname,
errno);
ir_fd = -1;
}
}
ttybuf.c_lflag = 0;
ttybuf.c_iflag = 0;
@ -315,20 +282,19 @@ int serial_init(void) {
ttybuf.c_cc[VTIME] = 0;
ttybuf.c_cc[VMIN] = 1;
if (ir_fd >= 0)
{
if (ir_fd >= 0) {
#if defined(TCSANOW)
if (tcsetattr(ir_fd, TCSANOW, &ttybuf) < 0)
if (tcsetattr(ir_fd, TCSANOW, &ttybuf) < 0)
#else
if (ioctl(ir_fd, TCSETS, (char *)&ttybuf) < 0)
if (ioctl(ir_fd, TCSETS, (char *)&ttybuf) < 0)
#endif
{
if (!quiet)
fprintf(stderr, "%s: ioctl(IR, TCSETS) failed, errno = %d\n",
progname, errno);
ir_fd = -1;
}
{
if (!quiet)
fprintf(stderr, "%s: ioctl(IR, TCSETS) failed, errno = %d\n", progname,
errno);
ir_fd = -1;
}
}
update_connection_display();
return 1;
}
@ -337,215 +303,204 @@ void serial_baud(int baud) {
int error = 0;
struct termios ttybuf;
if (ir_fd >= 0)
{
if (ir_fd >= 0) {
#if defined(TCSANOW)
if (tcgetattr(ir_fd, &ttybuf) < 0)
if (tcgetattr(ir_fd, &ttybuf) < 0)
#else
if (ioctl(ir_fd, TCGETS, (char *)&ttybuf) < 0)
if (ioctl(ir_fd, TCGETS, (char *)&ttybuf) < 0)
#endif
{
if (!quiet)
fprintf(stderr, "%s: ioctl(IR, TCGETS) failed, errno = %d\n",
progname, errno);
ir_fd = -1;
error = 1;
}
{
if (!quiet)
fprintf(stderr, "%s: ioctl(IR, TCGETS) failed, errno = %d\n", progname,
errno);
ir_fd = -1;
error = 1;
}
}
#if defined(__APPLE__)
baud &= 0x7;
switch (baud)
{
case 0: /* 1200 */
ttybuf.c_cflag |= B1200;
break;
case 1: /* 1920 */
# ifdef B1920
ttybuf.c_cflag |= B1920;
# endif
break;
case 2: /* 2400 */
ttybuf.c_cflag |= B2400;
break;
case 3: /* 3840 */
# ifdef B3840
ttybuf.c_cflag |= B3840;
# endif
break;
case 4: /* 4800 */
ttybuf.c_cflag |= B4800;
break;
case 5: /* 7680 */
# ifdef B7680
ttybuf.c_cflag |= B7680;
# endif
break;
case 6: /* 9600 */
ttybuf.c_cflag |= B9600;
break;
case 7: /* 15360 */
# ifdef B15360
ttybuf.c_cflag |= B15360;
# endif
break;
}
switch (baud) {
case 0: /* 1200 */
ttybuf.c_cflag |= B1200;
break;
case 1: /* 1920 */
#ifdef B1920
ttybuf.c_cflag |= B1920;
#endif
break;
case 2: /* 2400 */
ttybuf.c_cflag |= B2400;
break;
case 3: /* 3840 */
#ifdef B3840
ttybuf.c_cflag |= B3840;
#endif
break;
case 4: /* 4800 */
ttybuf.c_cflag |= B4800;
break;
case 5: /* 7680 */
#ifdef B7680
ttybuf.c_cflag |= B7680;
#endif
break;
case 6: /* 9600 */
ttybuf.c_cflag |= B9600;
break;
case 7: /* 15360 */
#ifdef B15360
ttybuf.c_cflag |= B15360;
#endif
break;
}
if ((ir_fd >= 0) && ((ttybuf.c_ospeed) == 0))
{
if (!quiet)
fprintf(stderr, "%s: can\'t set baud rate, using 9600\n", progname);
ttybuf.c_cflag |= B9600;
}
if ((ir_fd >= 0) && ((ttybuf.c_ospeed) == 0)) {
if (!quiet)
fprintf(stderr, "%s: can\'t set baud rate, using 9600\n", progname);
ttybuf.c_cflag |= B9600;
}
#else
ttybuf.c_cflag &= ~CBAUD;
baud &= 0x7;
switch (baud)
{
case 0: /* 1200 */
ttybuf.c_cflag |= B1200;
break;
case 1: /* 1920 */
# ifdef B1920
ttybuf.c_cflag |= B1920;
# endif
break;
case 2: /* 2400 */
ttybuf.c_cflag |= B2400;
break;
case 3: /* 3840 */
# ifdef B3840
ttybuf.c_cflag |= B3840;
# endif
break;
case 4: /* 4800 */
ttybuf.c_cflag |= B4800;
break;
case 5: /* 7680 */
# ifdef B7680
ttybuf.c_cflag |= B7680;
# endif
break;
case 6: /* 9600 */
ttybuf.c_cflag |= B9600;
break;
case 7: /* 15360 */
# ifdef B15360
ttybuf.c_cflag |= B15360;
# endif
break;
}
switch (baud) {
case 0: /* 1200 */
ttybuf.c_cflag |= B1200;
break;
case 1: /* 1920 */
#ifdef B1920
ttybuf.c_cflag |= B1920;
#endif
break;
case 2: /* 2400 */
ttybuf.c_cflag |= B2400;
break;
case 3: /* 3840 */
#ifdef B3840
ttybuf.c_cflag |= B3840;
#endif
break;
case 4: /* 4800 */
ttybuf.c_cflag |= B4800;
break;
case 5: /* 7680 */
#ifdef B7680
ttybuf.c_cflag |= B7680;
#endif
break;
case 6: /* 9600 */
ttybuf.c_cflag |= B9600;
break;
case 7: /* 15360 */
#ifdef B15360
ttybuf.c_cflag |= B15360;
#endif
break;
}
if ((ir_fd >= 0) && ((ttybuf.c_cflag & CBAUD) == 0))
if ((ir_fd >= 0) && ((ttybuf.c_cflag & CBAUD) == 0)) {
if (!quiet)
fprintf(stderr, "%s: can\'t set baud rate, using 9600\n", progname);
ttybuf.c_cflag |= B9600;
}
#endif
if (ir_fd >= 0) {
#if defined(TCSANOW)
if (tcsetattr(ir_fd, TCSANOW, &ttybuf) < 0)
#else
if (ioctl(ir_fd, TCSETS, (char *)&ttybuf) < 0)
#endif
{
if (!quiet)
fprintf(stderr, "%s: can\'t set baud rate, using 9600\n", progname);
ttybuf.c_cflag |= B9600;
}
#endif
if (ir_fd >= 0)
{
#if defined(TCSANOW)
if (tcsetattr(ir_fd, TCSANOW, &ttybuf) < 0)
#else
if (ioctl(ir_fd, TCSETS, (char *)&ttybuf) < 0)
#endif
{
if (!quiet)
fprintf(stderr, "%s: ioctl(IR, TCSETS) failed, errno = %d\n",
progname, errno);
ir_fd = -1;
error = 1;
}
fprintf(stderr, "%s: ioctl(IR, TCSETS) failed, errno = %d\n", progname,
errno);
ir_fd = -1;
error = 1;
}
}
if (ttyp >= 0)
{
if (ttyp >= 0) {
#if defined(TCSANOW)
if (tcgetattr(ttyp, &ttybuf) < 0)
if (tcgetattr(ttyp, &ttybuf) < 0)
#else
if (ioctl(ttyp, TCGETS, (char *)&ttybuf) < 0)
if (ioctl(ttyp, TCGETS, (char *)&ttybuf) < 0)
#endif
{
if (!quiet)
fprintf(stderr, "%s: ioctl(wire, TCGETS) failed, errno = %d\n",
progname, errno);
wire_fd = -1;
ttyp = -1;
error = 1;
}
{
if (!quiet)
fprintf(stderr, "%s: ioctl(wire, TCGETS) failed, errno = %d\n",
progname, errno);
wire_fd = -1;
ttyp = -1;
error = 1;
}
}
#if defined(__APPLE__)
#else
ttybuf.c_cflag &= ~CBAUD;
baud &= 0x7;
switch (baud)
{
case 0: /* 1200 */
ttybuf.c_cflag |= B1200;
break;
case 1: /* 1920 */
# ifdef B1920
ttybuf.c_cflag |= B1920;
# endif
break;
case 2: /* 2400 */
ttybuf.c_cflag |= B2400;
break;
case 3: /* 3840 */
# ifdef B3840
ttybuf.c_cflag |= B3840;
# endif
break;
case 4: /* 4800 */
ttybuf.c_cflag |= B4800;
break;
case 5: /* 7680 */
# ifdef B7680
ttybuf.c_cflag |= B7680;
# endif
break;
case 6: /* 9600 */
ttybuf.c_cflag |= B9600;
break;
case 7: /* 15360 */
# ifdef B15360
ttybuf.c_cflag |= B15360;
# endif
break;
}
switch (baud) {
case 0: /* 1200 */
ttybuf.c_cflag |= B1200;
break;
case 1: /* 1920 */
#ifdef B1920
ttybuf.c_cflag |= B1920;
#endif
break;
case 2: /* 2400 */
ttybuf.c_cflag |= B2400;
break;
case 3: /* 3840 */
#ifdef B3840
ttybuf.c_cflag |= B3840;
#endif
break;
case 4: /* 4800 */
ttybuf.c_cflag |= B4800;
break;
case 5: /* 7680 */
#ifdef B7680
ttybuf.c_cflag |= B7680;
#endif
break;
case 6: /* 9600 */
ttybuf.c_cflag |= B9600;
break;
case 7: /* 15360 */
#ifdef B15360
ttybuf.c_cflag |= B15360;
#endif
break;
}
if ((ttyp >= 0) && ((ttybuf.c_cflag & CBAUD) == 0))
if ((ttyp >= 0) && ((ttybuf.c_cflag & CBAUD) == 0)) {
if (!quiet)
fprintf(stderr, "%s: can\'t set baud rate, using 9600\n", progname);
ttybuf.c_cflag |= B9600;
}
#endif
if (ttyp >= 0) {
#if defined(TCSANOW)
if (tcsetattr(ttyp, TCSANOW, &ttybuf) < 0)
#else
if (ioctl(ttyp, TCSETS, (char *)&ttybuf) < 0)
#endif
{
if (!quiet)
fprintf(stderr, "%s: can\'t set baud rate, using 9600\n", progname);
ttybuf.c_cflag |= B9600;
}
#endif
if (ttyp >= 0)
{
#if defined(TCSANOW)
if (tcsetattr(ttyp, TCSANOW, &ttybuf) < 0)
#else
if (ioctl(ttyp, TCSETS, (char *)&ttybuf) < 0)
#endif
{
if (!quiet)
fprintf(stderr, "%s: ioctl(wire, TCSETS) failed, errno = %d\n",
progname, errno);
wire_fd = -1;
ttyp = -1;
error = 1;
}
fprintf(stderr, "%s: ioctl(wire, TCSETS) failed, errno = %d\n",
progname, errno);
wire_fd = -1;
ttyp = -1;
error = 1;
}
}
if (error)
update_connection_display();
}
void transmit_char(void) {
#ifdef DEBUG_SERIALx
fprintf(stderr, "XMT %s\n", (saturn.ir_ctrl & 0x04) ? "IR" : "wire");

259
src/small.h
View file

@ -191,139 +191,138 @@
#include "bitmaps/equal_gx.h"
typedef struct letter_t {
unsigned int w, h;
unsigned int w, h;
unsigned char *bits;
} letter_t;
letter_t small_font[] = {
{ 0, 0, 0 },
{ nl_gx_width, nl_gx_height, nl_gx_bits }, /* \001 == \n gx */
{ comma_gx_width, comma_gx_height, comma_gx_bits }, /* \002 == comma gx */
{ arrow_gx_width, arrow_gx_height, arrow_gx_bits }, /* \003 == \-> gx */
{ equal_gx_width, equal_gx_height, equal_gx_bits }, /* \004 == equal gx */
{ pi_gx_width, pi_gx_height, pi_gx_bits }, /* \005 == pi gx */
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 }, /* # 16 */
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ blank_width, blank_height, blank_bits }, /* # 32 */
{ 0, 0, 0 },
{ 0, 0, 0 },
{ hash_width, hash_height, hash_bits },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ lbrace_width, lbrace_height, lbrace_bits },
{ rbrace_width, rbrace_height, rbrace_bits },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ comma_width, comma_height, comma_bits },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ slash_width, slash_height, slash_bits },
{ 0, 0, 0 }, /* # 48 */
{ 0, 0, 0 },
{ two_width, two_height, two_bits },
{ three_width, three_height, three_bits },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ small_colon_width, small_colon_height, small_colon_bits },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ equal_width, equal_height, equal_bits },
{ 0, 0, 0 },
{ 0, 0, 0 },
{ 0, 0, 0 }, /* # 64 */
{ A_width, A_height, A_bits },
{ B_width, B_height, B_bits },
{ C_width, C_height, C_bits },
{ D_width, D_height, D_bits },
{ E_width, E_height, E_bits },
{ F_width, F_height, F_bits },
{ G_width, G_height, G_bits },
{ H_width, H_height, H_bits },
{ I_width, I_height, I_bits },
{ J_width, J_height, J_bits },
{ K_width, K_height, K_bits },
{ L_width, L_height, L_bits },
{ M_width, M_height, M_bits },
{ N_width, N_height, N_bits },
{ O_width, O_height, O_bits },
{ P_width, P_height, P_bits }, /* # 80 */
{ Q_width, Q_height, Q_bits },
{ R_width, R_height, R_bits },
{ S_width, S_height, S_bits },
{ T_width, T_height, T_bits },
{ U_width, U_height, U_bits },
{ V_width, V_height, V_bits },
{ W_width, W_height, W_bits },
{ X_width, X_height, X_bits },
{ Y_width, Y_height, Y_bits },
{ Z_width, Z_height, Z_bits },
{ lbracket_width, lbracket_height, lbracket_bits },
{ 0, 0, 0 },
{ rbracket_width, rbracket_height, rbracket_bits },
{ 0, 0, 0 },
{ under_width, under_height, under_bits },
{ 0, 0, 0 }, /* # 96 */
{ arrow_width, arrow_height, arrow_bits }, /* a == left arrow */
{ diff_width, diff_height, diff_bits }, /* b == differential */
{ integral_width, integral_height, integral_bits }, /* c == integral */
{ sigma_width, sigma_height, sigma_bits }, /* d == sigma */
{ sqr_width, sqr_height, sqr_bits }, /* e == sqr */
{ root_width, root_height, root_bits }, /* f == root */
{ pow10_width, pow10_height, pow10_bits }, /* g == pow10 */
{ exp_width, exp_height, exp_bits }, /* h == exp */
{ prog_width, prog_height, prog_bits }, /* i == << >> */
{ string_width, string_height, string_bits }, /* j == " " */
{ nl_width, nl_height, nl_bits }, /* k == New Line */
{ pi_width, pi_height, pi_bits }, /* l == pi */
{ angle_width, angle_height, angle_bits }, /* m == angle */
{ sqr_gx_width, sqr_gx_height, sqr_gx_bits }, /* n == sqr gx */
{ root_gx_width, root_gx_height, root_gx_bits }, /* o == root gx */
{ pow10_gx_width, pow10_gx_height, pow10_gx_bits }, /* p == pow10 gx */
{ exp_gx_width, exp_gx_height, exp_gx_bits }, /* q == exp gx */
{ parens_gx_width, parens_gx_height, parens_gx_bits },/* r == ( ) gx */
{ hash_gx_width, hash_gx_height, hash_gx_bits }, /* s == # gx */
{ bracket_gx_width, bracket_gx_height, bracket_gx_bits }, /* t == [] gx */
{ under_gx_width, under_gx_height, under_gx_bits }, /* u == _ gx */
{ prog_gx_width, prog_gx_height, prog_gx_bits }, /* v == << >> gx */
{ quote_gx_width, quote_gx_height, quote_gx_bits }, /* w == " " gx */
{ curly_gx_width, curly_gx_height, curly_gx_bits }, /* x == {} gx */
{ colon_gx_width, colon_gx_height, colon_gx_bits }, /* y == :: gx */
{ angle_gx_width, angle_gx_height, angle_gx_bits }, /* z == angle gx */
{ lcurly_width, lcurly_height, lcurly_bits },
{ 0, 0, 0 },
{ rcurly_width, rcurly_height, rcurly_bits },
{ 0, 0, 0 },
{ 0, 0, 0 }
};
{0, 0, 0},
{nl_gx_width, nl_gx_height, nl_gx_bits}, /* \001 == \n gx */
{comma_gx_width, comma_gx_height, comma_gx_bits}, /* \002 == comma gx */
{arrow_gx_width, arrow_gx_height, arrow_gx_bits}, /* \003 == \-> gx */
{equal_gx_width, equal_gx_height, equal_gx_bits}, /* \004 == equal gx */
{pi_gx_width, pi_gx_height, pi_gx_bits}, /* \005 == pi gx */
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0}, /* # 16 */
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{blank_width, blank_height, blank_bits}, /* # 32 */
{0, 0, 0},
{0, 0, 0},
{hash_width, hash_height, hash_bits},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{lbrace_width, lbrace_height, lbrace_bits},
{rbrace_width, rbrace_height, rbrace_bits},
{0, 0, 0},
{0, 0, 0},
{comma_width, comma_height, comma_bits},
{0, 0, 0},
{0, 0, 0},
{slash_width, slash_height, slash_bits},
{0, 0, 0}, /* # 48 */
{0, 0, 0},
{two_width, two_height, two_bits},
{three_width, three_height, three_bits},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0},
{small_colon_width, small_colon_height, small_colon_bits},
{0, 0, 0},
{0, 0, 0},
{equal_width, equal_height, equal_bits},
{0, 0, 0},
{0, 0, 0},
{0, 0, 0}, /* # 64 */
{A_width, A_height, A_bits},
{B_width, B_height, B_bits},
{C_width, C_height, C_bits},
{D_width, D_height, D_bits},
{E_width, E_height, E_bits},
{F_width, F_height, F_bits},
{G_width, G_height, G_bits},
{H_width, H_height, H_bits},
{I_width, I_height, I_bits},
{J_width, J_height, J_bits},
{K_width, K_height, K_bits},
{L_width, L_height, L_bits},
{M_width, M_height, M_bits},
{N_width, N_height, N_bits},
{O_width, O_height, O_bits},
{P_width, P_height, P_bits}, /* # 80 */
{Q_width, Q_height, Q_bits},
{R_width, R_height, R_bits},
{S_width, S_height, S_bits},
{T_width, T_height, T_bits},
{U_width, U_height, U_bits},
{V_width, V_height, V_bits},
{W_width, W_height, W_bits},
{X_width, X_height, X_bits},
{Y_width, Y_height, Y_bits},
{Z_width, Z_height, Z_bits},
{lbracket_width, lbracket_height, lbracket_bits},
{0, 0, 0},
{rbracket_width, rbracket_height, rbracket_bits},
{0, 0, 0},
{under_width, under_height, under_bits},
{0, 0, 0}, /* # 96 */
{arrow_width, arrow_height, arrow_bits}, /* a == left arrow */
{diff_width, diff_height, diff_bits}, /* b == differential */
{integral_width, integral_height, integral_bits}, /* c == integral */
{sigma_width, sigma_height, sigma_bits}, /* d == sigma */
{sqr_width, sqr_height, sqr_bits}, /* e == sqr */
{root_width, root_height, root_bits}, /* f == root */
{pow10_width, pow10_height, pow10_bits}, /* g == pow10 */
{exp_width, exp_height, exp_bits}, /* h == exp */
{prog_width, prog_height, prog_bits}, /* i == << >> */
{string_width, string_height, string_bits}, /* j == " " */
{nl_width, nl_height, nl_bits}, /* k == New Line */
{pi_width, pi_height, pi_bits}, /* l == pi */
{angle_width, angle_height, angle_bits}, /* m == angle */
{sqr_gx_width, sqr_gx_height, sqr_gx_bits}, /* n == sqr gx */
{root_gx_width, root_gx_height, root_gx_bits}, /* o == root gx */
{pow10_gx_width, pow10_gx_height, pow10_gx_bits}, /* p == pow10 gx */
{exp_gx_width, exp_gx_height, exp_gx_bits}, /* q == exp gx */
{parens_gx_width, parens_gx_height, parens_gx_bits}, /* r == ( ) gx */
{hash_gx_width, hash_gx_height, hash_gx_bits}, /* s == # gx */
{bracket_gx_width, bracket_gx_height, bracket_gx_bits}, /* t == [] gx */
{under_gx_width, under_gx_height, under_gx_bits}, /* u == _ gx */
{prog_gx_width, prog_gx_height, prog_gx_bits}, /* v == << >> gx */
{quote_gx_width, quote_gx_height, quote_gx_bits}, /* w == " " gx */
{curly_gx_width, curly_gx_height, curly_gx_bits}, /* x == {} gx */
{colon_gx_width, colon_gx_height, colon_gx_bits}, /* y == :: gx */
{angle_gx_width, angle_gx_height, angle_gx_bits}, /* z == angle gx */
{lcurly_width, lcurly_height, lcurly_bits},
{0, 0, 0},
{rcurly_width, rcurly_height, rcurly_bits},
{0, 0, 0},
{0, 0, 0}};
#endif /* !_SMALL_H */

286
src/timer.c
View file

@ -40,14 +40,14 @@
#include "global.h"
#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>
#include <time.h>
#include <unistd.h>
#include "timer.h"
#include "debugger.h"
#include "romio.h"
#include "timer.h"
#include <assert.h>
@ -55,14 +55,14 @@
/* #define DEBUG_TIMER_ADJUST 1 */
#ifdef SOLARIS
extern int gettimeofday __ProtoType__((struct timeval *tp));
extern int gettimeofday __ProtoType__((struct timeval * tp));
#endif
#ifdef SUNOS
extern int gettimeofday __ProtoType__((struct timeval *, struct timezone *));
#endif
typedef struct x48_timer_t {
word_1 run;
word_1 run;
word_64 start;
word_64 stop;
word_64 value;
@ -75,7 +75,7 @@ static long systime_offset = 0;
/*
* Ticks for THU 01.01.1970 00:00:00
*/
word_64 unix_0_time = 0x1CF2E8F800000L;
word_64 unix_0_time = 0x1CF2E8F800000L;
word_64 ticks_10_min = 0x00b40000L;
/*
@ -88,17 +88,17 @@ word_64 set_0_time = 0x0;
*/
word_64 time_offset = 0x0;
#define RAM_BASE_SX 0x70000
#define ACCESSTIME_SX (0x70052 - RAM_BASE_SX)
#define ACCESSCRC_SX (0x7005F - RAM_BASE_SX)
#define TIMEOUT_SX (0x70063 - RAM_BASE_SX)
#define TIMEOUTCLK_SX (0x70070 - RAM_BASE_SX)
#define RAM_BASE_SX 0x70000
#define ACCESSTIME_SX (0x70052 - RAM_BASE_SX)
#define ACCESSCRC_SX (0x7005F - RAM_BASE_SX)
#define TIMEOUT_SX (0x70063 - RAM_BASE_SX)
#define TIMEOUTCLK_SX (0x70070 - RAM_BASE_SX)
#define RAM_BASE_GX 0x80000
#define ACCESSTIME_GX (0x80058 - RAM_BASE_GX)
#define ACCESSCRC_GX (0x80065 - RAM_BASE_GX)
#define TIMEOUT_GX (0x80069 - RAM_BASE_GX)
#define TIMEOUTCLK_GX (0x80076 - RAM_BASE_GX)
#define RAM_BASE_GX 0x80000
#define ACCESSTIME_GX (0x80058 - RAM_BASE_GX)
#define ACCESSCRC_GX (0x80065 - RAM_BASE_GX)
#define TIMEOUT_GX (0x80069 - RAM_BASE_GX)
#define TIMEOUTCLK_GX (0x80076 - RAM_BASE_GX)
#define calc_crc(nib) (crc = (crc >> 4) ^ (((crc ^ (nib)) & 0xf) * 0x1081))
@ -116,18 +116,18 @@ word_64 time_offset = 0x0;
*
*/
void set_accesstime(void) {
struct timeval tv;
struct timeval tv;
#ifndef SOLARIS
struct timezone tz;
#endif
word_64 ticks, timeout, timer2;
word_20 accesstime_loc, timeout_loc;
word_20 accesscrc_loc, timeoutclk_loc;
word_16 crc;
word_4 val;
int i;
time_t gmt;
struct tm *ltm;
word_64 ticks, timeout, timer2;
word_20 accesstime_loc, timeout_loc;
word_20 accesscrc_loc, timeoutclk_loc;
word_16 crc;
word_4 val;
int i;
time_t gmt;
struct tm *ltm;
/*
* This is done to set the variable 'timezone' on SYSV systems
@ -136,7 +136,7 @@ void set_accesstime(void) {
ltm = localtime(&gmt);
#if defined(SYSV_TIME) || defined(__sgi)
systime_offset = timezone;
if( ltm->tm_isdst )
if (ltm->tm_isdst)
systime_offset -= 3600;
#else
systime_offset = -ltm->tm_gmtoff;
@ -157,10 +157,9 @@ void set_accesstime(void) {
ticks += time_offset;
timer2 = saturn.timer2;
if (saturn.timer2 & 0x80000000)
{
assert(timer2 < 0);
}
if (saturn.timer2 & 0x80000000) {
assert(timer2 < 0);
}
ticks += timer2;
@ -168,50 +167,44 @@ void set_accesstime(void) {
crc = 0x0;
if (opt_gx)
{
accesstime_loc = ACCESSTIME_GX;
accesscrc_loc = ACCESSCRC_GX;
timeout_loc = TIMEOUT_GX;
timeoutclk_loc = TIMEOUTCLK_GX;
}
else
{
accesstime_loc = ACCESSTIME_SX;
accesscrc_loc = ACCESSCRC_SX;
timeout_loc = TIMEOUT_SX;
timeoutclk_loc = TIMEOUTCLK_SX;
}
if (opt_gx) {
accesstime_loc = ACCESSTIME_GX;
accesscrc_loc = ACCESSCRC_GX;
timeout_loc = TIMEOUT_GX;
timeoutclk_loc = TIMEOUTCLK_GX;
} else {
accesstime_loc = ACCESSTIME_SX;
accesscrc_loc = ACCESSCRC_SX;
timeout_loc = TIMEOUT_SX;
timeoutclk_loc = TIMEOUTCLK_SX;
}
for (i = 0; i < 13; i++)
{
val = ticks & 0xf;
calc_crc(val);
saturn.ram[accesstime_loc + i] = val;
ticks >>= 4;
}
for (i = 0; i < 13; i++) {
val = ticks & 0xf;
calc_crc(val);
saturn.ram[accesstime_loc + i] = val;
ticks >>= 4;
}
for (i = 0; i < 4; i++)
{
saturn.ram[accesscrc_loc + i] = crc & 0xf;
crc >>= 4;
}
for (i = 0; i < 4; i++) {
saturn.ram[accesscrc_loc + i] = crc & 0xf;
crc >>= 4;
}
timeout += ticks_10_min;
for (i = 0; i < 13; i++)
{
val = timeout & 0xf;
calc_crc(val);
saturn.ram[timeout_loc + i] = val;
timeout >>= 4;
}
for (i = 0; i < 13; i++) {
val = timeout & 0xf;
calc_crc(val);
saturn.ram[timeout_loc + i] = val;
timeout >>= 4;
}
saturn.ram[timeoutclk_loc] = 0xf;
}
void start_timer(int timer) {
struct timeval tv;
struct timeval tv;
#ifndef SOLARIS
struct timezone tz;
#endif
@ -237,12 +230,13 @@ void start_timer(int timer) {
timers[timer].start += (tv.tv_usec << 7) / 15625;
}
#ifdef DEBUG_TIMER
fprintf(stderr, "Timer%c[%d] start at 0x%lx\n", timer == T1_TIMER?'*':' ', timer, timers[timer].start);
fprintf(stderr, "Timer%c[%d] start at 0x%lx\n", timer == T1_TIMER ? '*' : ' ',
timer, timers[timer].start);
#endif
}
void restart_timer(int timer) {
struct timeval tv;
struct timeval tv;
#ifndef SOLARIS
struct timezone tz;
#endif
@ -271,13 +265,12 @@ void restart_timer(int timer) {
timers[timer].start += (tv.tv_usec << 7) / 15625;
}
#ifdef DEBUG_TIMER
fprintf(stderr, "Timer[%d] restart at 0x%lx\n", timer,
timers[timer].start);
fprintf(stderr, "Timer[%d] restart at 0x%lx\n", timer, timers[timer].start);
#endif
}
void stop_timer(int timer) {
struct timeval tv;
struct timeval tv;
#ifndef SOLARIS
struct timezone tz;
#endif
@ -306,11 +299,12 @@ void stop_timer(int timer) {
}
timers[timer].value += timers[timer].stop - timers[timer].start;
// add_sub_64(&timers[timer].stop, &timers[timer].start, &timers[timer].value);
// add_sub_64(&timers[timer].stop, &timers[timer].start,
// &timers[timer].value);
#ifdef DEBUG_TIMER
fprintf(stderr, "Timer[%d] stop at 0x%llx, value 0x%llx\n",
timer, timers[timer].stop, timers[timer].value);
fprintf(stderr, "Timer[%d] stop at 0x%llx, value 0x%llx\n", timer,
timers[timer].stop, timers[timer].value);
#endif
}
@ -329,11 +323,11 @@ void reset_timer(int timer) {
static word_64 zero = 0;
word_64 get_timer(int timer) {
struct timeval tv;
struct timeval tv;
#ifndef SOLARIS
struct timezone tz;
#endif
word_64 stop;
word_64 stop;
if (timer > NR_TIMERS)
return zero;
@ -373,18 +367,18 @@ word_64 get_timer(int timer) {
*/
t1_t2_ticks get_t1_t2(void) {
struct timeval tv;
struct timeval tv;
#ifndef SOLARIS
struct timezone tz;
#endif
word_64 stop;
t1_t2_ticks ticks;
word_64 access_time;
word_64 adj_time;
word_64 diff_time;
word_64 delta;
word_20 accesstime_loc;
int i;
word_64 stop;
t1_t2_ticks ticks;
word_64 access_time;
word_64 adj_time;
word_64 diff_time;
word_64 delta;
word_20 accesstime_loc;
int i;
#ifdef SOLARIS
gettimeofday(&tv);
@ -393,17 +387,15 @@ t1_t2_ticks get_t1_t2(void) {
#endif
tv.tv_sec -= systime_offset;
if (timers[T1_TIMER].run)
{
stop = (tv.tv_sec << 9);
stop += (tv.tv_usec / 15625) >> 3;
if (timers[T1_TIMER].start <= stop)
{
timers[T1_TIMER].value += stop - timers[T1_TIMER].start;
} else {
if (timers[T1_TIMER].run) {
stop = (tv.tv_sec << 9);
stop += (tv.tv_usec / 15625) >> 3;
if (timers[T1_TIMER].start <= stop) {
timers[T1_TIMER].value += stop - timers[T1_TIMER].start;
} else {
fprintf(stderr, "clock running backwards\n");
}
}
}
ticks.t1_ticks = timers[T1_TIMER].value;
stop = tv.tv_sec;
@ -416,73 +408,27 @@ t1_t2_ticks get_t1_t2(void) {
access_time = 0x0;
for (i = 13 - 1; i >= 0; i--)
{
access_time <<= 4;
access_time |= ((int)saturn.ram[accesstime_loc + i] & 0xf);
}
for (i = 13 - 1; i >= 0; i--) {
access_time <<= 4;
access_time |= ((int)saturn.ram[accesstime_loc + i] & 0xf);
}
access_time -= stop;
if (adj_time_pending || in_debugger)
{
/*
* We have been inside an interrupt for very long, maybe
* or we are sleeping in the debugger.
* Don't adjust the time, can't come from user, anyhow.
*/
if (adj_time_pending || in_debugger) {
/*
* We have been inside an interrupt for very long, maybe
* or we are sleeping in the debugger.
* Don't adjust the time, can't come from user, anyhow.
*/
if ((saturn.timer2 >= 0 && access_time < 0)
|| ((unsigned long)saturn.timer2 > access_time))
{
/*
* check OK, return calculated time
*/
ticks.t2_ticks = access_time;
}
else
{
/*
* Don't increment timer2, return old value and
* slow down timer2.
*/
ticks.t2_ticks = saturn.timer2;
saturn.t2_tick++;
}
return ticks;
}
diff_time = saturn.timer2;
adj_time = access_time - diff_time;
delta = abs(adj_time);
if (delta > 0x3c000) /* Half a minute */
{
set_0_time += adj_time;
time_offset += adj_time;
access_time -= adj_time;
#ifdef DEBUG_TIMER_ADJUST
fprintf(stderr, "Time adjusted by ");
fprintf(stderr, "%lX", adj_time);
fprintf(stderr, " TICKS, Total offset ");
fprintf(stderr, "%lX", set_0_time);
fprintf(stderr, " TICKS\n");
#endif
}
if ((saturn.timer2 >= 0 && (access_time < 0))
|| ((unsigned long)saturn.timer2 > access_time))
{
if ((saturn.timer2 >= 0 && access_time < 0) ||
((unsigned long)saturn.timer2 > access_time)) {
/*
* check OK, return calculated time
*/
ticks.t2_ticks = access_time;
}
else
{
} else {
/*
* Don't increment timer2, return old value and
* slow down timer2.
@ -491,5 +437,43 @@ t1_t2_ticks get_t1_t2(void) {
saturn.t2_tick++;
}
return ticks;
}
diff_time = saturn.timer2;
adj_time = access_time - diff_time;
delta = abs(adj_time);
if (delta > 0x3c000) /* Half a minute */
{
set_0_time += adj_time;
time_offset += adj_time;
access_time -= adj_time;
#ifdef DEBUG_TIMER_ADJUST
fprintf(stderr, "Time adjusted by ");
fprintf(stderr, "%lX", adj_time);
fprintf(stderr, " TICKS, Total offset ");
fprintf(stderr, "%lX", set_0_time);
fprintf(stderr, " TICKS\n");
#endif
}
if ((saturn.timer2 >= 0 && (access_time < 0)) ||
((unsigned long)saturn.timer2 > access_time)) {
/*
* check OK, return calculated time
*/
ticks.t2_ticks = access_time;
} else {
/*
* Don't increment timer2, return old value and
* slow down timer2.
*/
ticks.t2_ticks = saturn.timer2;
saturn.t2_tick++;
}
return ticks;
}

26
src/timer.h
View file

@ -37,26 +37,26 @@
#include "global.h"
#include "hp48.h"
#define NR_TIMERS 4
#define NR_TIMERS 4
#define T1_TIMER 0
#define T2_TIMER 1
#define RUN_TIMER 2
#define IDLE_TIMER 3
#define T1_TIMER 0
#define T2_TIMER 1
#define RUN_TIMER 2
#define IDLE_TIMER 3
typedef struct t1_t2_ticks {
unsigned long t1_ticks;
unsigned long t2_ticks;
} t1_t2_ticks;
extern void reset_timer __ProtoType__((int timer));
extern void start_timer __ProtoType__((int timer));
extern void restart_timer __ProtoType__((int timer));
extern void stop_timer __ProtoType__((int timer));
extern word_64 get_timer __ProtoType__((int timer));
extern long diff_timer __ProtoType__((word_64 *t1, word_64 *t2));
extern void reset_timer __ProtoType__((int timer));
extern void start_timer __ProtoType__((int timer));
extern void restart_timer __ProtoType__((int timer));
extern void stop_timer __ProtoType__((int timer));
extern word_64 get_timer __ProtoType__((int timer));
extern long diff_timer __ProtoType__((word_64 * t1, word_64 *t2));
extern t1_t2_ticks get_t1_t2 __ProtoType__((void));
extern void set_accesstime __ProtoType__((void));
extern t1_t2_ticks get_t1_t2 __ProtoType__((void));
extern void set_accesstime __ProtoType__((void));
#endif /* !_TIMER_H */

8
src/version.h
View file

@ -34,10 +34,10 @@
#ifndef _VERSION_H
#define _VERSION_H 1
extern int VERSION_MAJOR;
extern int VERSION_MINOR;
extern int PATCHLEVEL;
extern int COMPILE_VERSION;
extern int VERSION_MAJOR;
extern int VERSION_MINOR;
extern int PATCHLEVEL;
extern int COMPILE_VERSION;
extern char *COMPILE_TIME;
extern char *COMPILE_BY;

4354
src/x48_x11.c
View file

File diff suppressed because it is too large Load diff

90
src/x48_x11.h
View file

@ -65,31 +65,31 @@
#include <X11/Xlib.h>
#ifdef HAVE_XSHM
#include <X11/extensions/XShm.h>
#include <sys/ipc.h>
#include <sys/shm.h>
#include <X11/extensions/XShm.h>
#endif
#define WHITE 0
#define LEFT 1
#define RIGHT 2
#define BUT_TOP 3
#define BUTTON 4
#define BUT_BOT 5
#define LCD 6
#define PIXEL 7
#define PAD_TOP 8
#define PAD 9
#define PAD_BOT 10
#define DISP_PAD_TOP 11
#define DISP_PAD 12
#define DISP_PAD_BOT 13
#define LOGO 14
#define LOGO_BACK 15
#define LABEL 16
#define FRAME 17
#define UNDERLAY 18
#define BLACK 19
#define WHITE 0
#define LEFT 1
#define RIGHT 2
#define BUT_TOP 3
#define BUTTON 4
#define BUT_BOT 5
#define LCD 6
#define PIXEL 7
#define PAD_TOP 8
#define PAD 9
#define PAD_BOT 10
#define DISP_PAD_TOP 11
#define DISP_PAD 12
#define DISP_PAD_BOT 13
#define LOGO 14
#define LOGO_BACK 15
#define LABEL 16
#define FRAME 17
#define UNDERLAY 18
#define BLACK 19
typedef struct color_t {
char *name;
@ -101,49 +101,49 @@ typedef struct color_t {
extern color_t *colors;
#define COLOR(c) (colors[(c)].xcolor.pixel)
#define COLOR(c) (colors[(c)].xcolor.pixel)
#define UPDATE_MENU 1
#define UPDATE_DISP 2
#define UPDATE_MENU 1
#define UPDATE_DISP 2
typedef struct disp_t {
unsigned int w, h;
Window win;
GC gc;
short mapped;
int offset;
int lines;
unsigned int w, h;
Window win;
GC gc;
short mapped;
int offset;
int lines;
#ifdef HAVE_XSHM
int display_update;
XShmSegmentInfo disp_info;
XImage *disp_image;
XShmSegmentInfo menu_info;
XImage *menu_image;
int display_update;
XShmSegmentInfo disp_info;
XImage *disp_image;
XShmSegmentInfo menu_info;
XImage *menu_image;
#endif
} disp_t;
extern disp_t disp;
extern disp_t disp;
#ifdef HAVE_XSHM
extern int shm_flag;
#endif
extern Display *dpy;
extern int screen;
extern int screen;
extern int InitDisplay __ProtoType__((int argc, char **argv));
extern int CreateWindows __ProtoType__((int argc, char **argv));
extern int GetEvent __ProtoType__((void));
extern int InitDisplay __ProtoType__((int argc, char **argv));
extern int CreateWindows __ProtoType__((int argc, char **argv));
extern int GetEvent __ProtoType__((void));
extern void adjust_contrast __ProtoType__((int contrast));
extern void refresh_icon __ProtoType__((void));
extern void adjust_contrast __ProtoType__((int contrast));
extern void refresh_icon __ProtoType__((void));
extern void ShowConnections __ProtoType__((char *w, char *i));
extern void ShowConnections __ProtoType__((char *w, char *i));
extern void exit_x48 __ProtoType__((int tell_x11));
extern void exit_x48 __ProtoType__((int tell_x11));
#ifdef HAVE_XSHM
extern void refresh_display __ProtoType__((void));
extern void refresh_display __ProtoType__((void));
#endif
#endif /* !_X48_X11_H */