img370

calling program:

200: lodd 201: push 202: lodd 203: push 204: cali 205: insp

206: stod

. . .etc /---------

rnultl: init:

loop:

loopbody:

a

/push a onto stack - first parameter b

/and b - second parameter rnultl

2 /quick way of removing parameters; we rnust be careful /to >recycle> stack storage - otheruise we eventually /run out of memory

c /storę AC in c (NB. rnultl put the result in AC, before /it returned

(assurne at location 100) loco 0

push    /local    variable    z:=0    (on    stack)

loco 1

push    /local    variable    i:=l    (on    stack)

lodl 0    /get i, and subtract x

subl 4    /and if this is ’neg’ or >0’ do loop again

jneg loopbody jzer loopbody

jurnp done /i > x, so ue’re finished

lodl    1    /get z

adrii    3    /add in Annthpr    v