|
Modifica i valori di a, b e c... piuttosto che utilizzare qa, qb e qc (si può fare perché i valori iniziali non sono più utilizzati nel corso del programma...)
PROG RUN '
INP a '
INP b '
INP c '
LDA a '
MUL a '
STA a ' a <-- a*a
LDA b '
MUL b '
STA b ' b <-- b*b
LDA c '
MUL c '
STA c ' c <-- c*c
LDA a '
ADD b '
SUB c ' ACC <-- a2+b2-c2
JEQ OUTPUT'
LDA #0 '
STA RISP '
OUTPUT OUT RISP '
ALT '
a DAT 0 ' DATI
b DAT 0 '
c DAT 0 '
RISP DAT 1 '
END '
Commento: l'accumulatore mantiene i risultati dopo le operazioni aritmetiche, perché non sfruttarli nel calcolo dell'espressione finale?
| 
