Programming Loops

Pascal for Loop

Calculate 2 raised to the Nth power:

        TwoToN := 1 ; 
        for Count := 1 to N do 
            TwoToN := TwoToN * 2 ;

SAL for Loop

        move  TwoToN, 1 
        move  Count, 1 
for:    bgt   Count, N, endfor 
        mul   TwoToN, TwoToN, 2 
        add   Count, Count, 1 
        b     for 
endfor:

Pascal while Loop

Calculate value of N for which :

        N : = 0 ;
        TwoToN := 1 ;
        while (TwoToN < Number) do
        begin
            TwoToN := TwoToN * 2 ;
            N := N + 1 ;
        end

SAL while Loop

        move  N, 0
        move  TwoToN, 1
while:  bge   TwoToN, Number, endwhile
        mul   TwoToN, TwoToN, 2
        add   N, N, 1
        b     while
endwhile: