1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
/*
* Copyright (C) 1992 Clarendon Hill Software.
*
* Permission is granted to any individual or institution to use, copy,
* or redistribute this software, provided this copyright notice is retained.
*
* This software is provided "as is" without any expressed or implied
* warranty. If this software brings on any sort of damage -- physical,
* monetary, emotional, or brain -- too bad. You've got no one to blame
* but yourself.
*
* The software may be modified for your own purposes, but modified versions
* must retain this notice.
*/
/*
Modified by Timothy Mann, 1996 and later
$Id: main.c,v 1.16 2009/06/15 23:33:53 mann Exp $
*/
#include <string.h>
#include <stdlib.h>
#include "z80.h"
#include "trs.h"
#include "trs_disk.h"
#include "load_cmd.h"
#include "error.h"
int trs_model = 1;
int trs_paused = 1;
int trs_autodelay = 0;
char *program_name;
static void check_endian()
{
wordregister x;
x.byte.low = 1;
x.byte.high = 0;
if(x.word != 1)
{
fatal("Program compiled with wrong ENDIAN value -- adjust the Makefile.local, type \"rm *.o\", recompile, and try again.");
}
}
void trs_load_rom(char *filename)
{
FILE *program;
int c;
if((program = fopen(filename, "r")) == NULL)
{
char message[100];
sprintf(message, "could not read %s", filename);
fatal(message);
}
c = getc(program);
if (c == ':') {
/* Assume Intel hex format */
rewind(program);
trs_rom_size = load_hex(program);
fclose(program);
return;
} else if (c == 1 || c == 5) {
/* Assume MODELA/III file */
int res;
extern Uchar *rom; /*!! fixme*/
Uchar loadmap[Z80_ADDRESS_LIMIT];
rewind(program);
res = load_cmd(program, rom, loadmap, 0, NULL, -1, NULL, NULL, 1);
if (res == LOAD_CMD_OK) {
trs_rom_size = Z80_ADDRESS_LIMIT;
while (trs_rom_size > 0) {
if (loadmap[--trs_rom_size] != 0) {
trs_rom_size++;
break;
}
}
fclose(program);
return;
} else {
/* Guess it wasn't one */
rewind(program);
c = getc(program);
}
}
trs_rom_size = 0;
while (c != EOF) {
mem_write_rom(trs_rom_size++, c);
c = getc(program);
}
}
void trs_load_compiled_rom(int size, unsigned char rom[])
{
int i;
trs_rom_size = size;
for(i = 0; i < size; ++i)
{
mem_write_rom(i, rom[i]);
}
}
int main(int argc, char *argv[])
{
int debug = FALSE;
/* program_name must be set first because the error
* printing routines use it. */
program_name = strrchr(argv[0], '/');
if (program_name == NULL) {
program_name = argv[0];
} else {
program_name++;
}
check_endian();
argc = trs_parse_command_line(argc, argv, &debug);
if (argc > 1) {
fatal("erroneous argument \"%s\"", argv[1]);
}
mem_init();
trs_screen_init();
trs_timer_init();
trs_reset(1);
if (!debug) {
/* Run continuously until exit or request to enter debugger */
z80_run(TRUE);
}
printf("Entering debugger.\n");
debug_init();
debug_shell();
printf("Quitting.\n");
exit(0);
}
|
