Calcolare il valore dell'espressione p(p-a)(p-b)(p-c) con a, b e c inseriti dall'utente e p=(a+b+c)/2. Si tratta della formula di Erone per l'area del triangolo...

PROG   RUN       '
                 '
       INP a     '
       INP b     '
       INP c     '
                 '
       LDA a     ' Calcola p
       ADD b     '
       ADD c     '
       DIV #2    '
       STA p     '
                 '
       LDA p     ' Calcola (p-a)
       SUB a     '
       STA pa    '
                 '
       LDA p     ' Calcola (p-b)
       SUB b     '
       STA pb    '
                 '
       LDA p     ' Calcola (p-c)
       SUB c     '
       STA pc    '
                 '
       LDA p     '
       MUL pa    ' *(p-a)
       MUL pb    ' *(p-b)
       MUL pc    ' *(p-c)
       STA RISP  '
                 '
       OUT RISP  '
                 '
       ALT       '
                 '
a      DAT 0     '
b      DAT 0     '
c      DAT 0     '
p      DAT 0     '
pa     DAT 0     '
pb     DAT 0     '
pc     DAT 0     '
RISP   DAT 0     '
                 '
       END       '

PROG   RUN       '
       INP a     '
       INP b     '
       INP c     '
       LDA a     ' Calcola p
       ADD b     '
       ADD c     '
       DIV #2    '
       STA p     '
       SUB a     ' Calcola (p-a)
       STA a     '
       LDA p     ' Calcola (p-b)
       SUB b     '
       STA b     '
       LDA p     ' Calcola (p-c)
       SUB c     '
       MUL b     ' *(p-b)
       MUL a     ' *(p-a)
       MUL p     ' *p
       STA p     '
       OUT p     '
       ALT       '
a      DAT 0     '
b      DAT 0     '
c      DAT 0     '
p      DAT 0     '
       END       '