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
140
141
|
#include <stdio.h>
#include <stdlib.h>
#include "memoire.h"
#include "interne.h"
#include "simulator.h"
#include "exceptions.h"
#include "terminal.h"
#ifdef HAVE_CONFIG_H
#include "config.h"
#else
#define _(x) x
#endif
char temp[BUFSIZ];
Uint32 *memoire_principale;
/*****************************************/
/** **/
/** GESTION DE LA MEMOIRE PRINCIPALE **/
/** **/
/*****************************************/
void InitMemoire(void)
{
memoire_principale = (Uint32 *) Emalloc(TAILLE_MEMOIRE * sizeof(Uint32));
}
void FlushMemoire(void)
{
free(memoire_principale);
}
/* Lit le mot qui se trouve à l'offset 'offset' en mémoire */
Uint32 LD(Uint32 offset)
{
Uint32 i;
char buf[256];
switch (offset) {
case 0xffffff00:
initterm();
i = !feof(input);
clearterm();
return (i);
case 0xffffff01:
initterm();
i = fgetc(input);
clearterm();
break;
case 0xffffff05:
fgets(buf, 256, input);
if (sscanf(buf, "%i", &i) != 1) {
i = 0;
}
break;
default:
if (offset >= TAILLE_MEMOIRE) {
exception(1, _("Invalid Memory Adress"));
} else {
i = memoire_principale[offset];
}
break;
}
return i;
}
static void copychaine(Uint32 * t, char *s)
{
while (*s) {
*(t++) = *(s++);
}
}
static void litchaine(char *s, Uint32 * t)
{
while (*t) {
*(s++) = *(t++);
}
*s = 0;
}
static void AfficheBinaire(Uint32 valeur)
{
if (valeur) {
AfficheBinaire(valeur >> 1);
fprintf(stdout, "%i", valeur & 1);
}
}
/* Ecrit le mot 'valeur' à l'offset 'offset' en mémoire */
void ST(Uint32 offset, Uint32 valeur)
{
Uint32 oldOC;
switch (offset) {
case 0xffffff02:
fgets(temp, BUFSIZ, stdin);
copychaine(&memoire_principale[valeur], temp);
break;
case 0xffffff03:
fprintf(stdout, "%c", valeur);
break;
case 0xffffff04:
litchaine(temp, &memoire_principale[valeur]);
fprintf(stdout, "%s", temp);
break;
case 0xffffff06:
fprintf(stdout, "%i", valeur);
break;
case 0xffffff07:
fprintf(stdout, "%x", valeur);
break;
case 0xffffff08:
fprintf(stdout, "%o", valeur);
break;
case 0xffffff09:
if (valeur) {
AfficheBinaire(valeur);
} else {
fprintf(stdout, "0");
}
break;
case 0xffffff0a:
litchaine(temp, &memoire_principale[valeur]);
oldOC = LireRegistrePC();
ChargeBinaire(temp);
EcrireRegistrePC(oldOC);
HasToRun = 1;
break;
default:
if (offset < 0 || offset >= TAILLE_MEMOIRE)
exception(1, _("Invalid Memory Adress"));
else
memoire_principale[offset] = valeur;
break;
}
fflush(stdout);
}
|
