.TITLE IToN
;   Function used as part of the solution to problem 7.13
;  Argument List:
I = 4   ;  Longword passed by reference
N = 8   ;  Nonnegative longword passed by reference
;  Result:
;     I to the N as longword in R0
;  Assumes: N > 0

         .ENTRY   IToN   ^M<R2>
Begin:   MOVL     #1, R0      ; Initialize result to 1
         MOVL     @I(AP), R1  ; Get I
         MOVL     @N(AP), R2  ; Get N
         BLEQ     Done        ; Quit if N = 0
Loop:    MULL2    R1, R0      ; Mult by N
         SOBGTR   R2, Loop    ; Dec I and optionally repeat
Done:    RET
         .END