Calcolare l'espressione X²+Y²

PROG   RUN       '
       INP X     '
       INP Y     '
       LDA X     '
       MUL X     '   X2 <-- X*X
       STA X2    '
       LDA Y     '
       MUL Y     '   Y2 <-- Y*Y
       STA Y2    '
       LDA X2    '
       ADD Y2    ' RISP <-- X*X+Y*Y
       STA RISP  '
       OUT RISP  '
       ALT       '
X      DAT 0     '
Y      DAT 0     '
X2     DAT 0     '
Y2     DAT 0     '
RISP   DAT 0     '
       END       '

PROG   RUN       '
       INP X     '
       INP Y     '
       LDA X     '
       MUL X     ' X <-- X*X
       STA X     '
       LDA Y     '
       MUL Y     ' X <-- Y*Y+X*X
       ADD X     '
       STA X     '
       OUT X     '
       ALT       '
X      DAT 0     '
Y      DAT 0     '
       END       '