/ Lets begin with a
/ simple program
/
/ in 'pseudo-Pascal':
/   result:=0;
/   for ndx:=1 to 10 do
/      result:=result+ndx;
*20
ndx, 0 /here are 'globals'
result, 0
*200
/ here is standard start
/ location for code
         cla iac
        dca ndx /set ndx to 1
        dca result / & result to 0
loop, tad ndx
         tad result
         dca result  /accumulate sum
         iac
         tad ndx
         dca ndx   /increment count
         tad ndx
          cia
         tad dec10 /test against limit
         sma cla
         jmp loop
         hlt
dec10, 0012
$

