|
MAC: sommare |
   |
|
|
Sommare gli interi da X a Y PROG RUN '
'
INP X '
INP Y '
'
SU LDA SOMMA '
ADD X ' SOMMA <-- SOMMA+X
STA SOMMA '
'
LDA X '
ADD #1 ' X <-- X+1
STA X '
'
LDA Y '
SUB X ' SE (Y >= X)...
JGE SU '
'
OUT SOMMA ' RISULTATO
'
ALT '
'
X DAT 0 ' DATI
Y DAT 0 '
SOMMA DAT 0 '
'
END '
Con un'istruzione in meno... PROG RUN '
INP X '
INP Y '
SU LDA SOMMA '
ADD Y ' SOMMA <-- SOMMA+Y
STA SOMMA '
LDA Y '
SUB #1 ' Y <-- Y-1
STA Y '
SUB X '
JGE SU '
OUT SOMMA '
ALT '
X DAT 0 ' DATI
Y DAT 0 '
SOMMA DAT 0 '
END ' |
|