summaryrefslogtreecommitdiff
path: root/lib/memoire.c
blob: 067f8f80c5dddac4eef8a193ceb0badc5c94379e (plain)
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
#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;

    switch (offset) {
    case 0xffffff00:
	initterm();
	i = !feof(input);
	clearterm();
	return (i);
    case 0xffffff01:
	initterm();
	i = fgetc(input);
	clearterm();
	break;
    case 0xffffff05:
	fscanf(input, "%i", &i);
	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);
}