Factorial: Difference between revisions

Content added Content deleted

Inline

@@ Line 86: / Line 86: @@
          L      R15,=A(FACT)
          BALR   R14,R15         call fact(n)
-	 ZAP    F,0(L'R,R1)     f=fact(n)
+         ZAP    F,0(L'R,R1)     f=fact(n)
 DUMP     EQU    *
-	 MVC    S,MASK
+         MVC    S,MASK
-	 ED     S,N
+         ED     S,N
          MVC    WTOBUF+5(2),S+30
-	 MVC    S,MASK
+         MVC    S,MASK
-	 ED     S,F
+         ED     S,F
          MVC    WTOBUF+9(32),S
          WTO    MF=(E,WTOMSG)
-	 AP     N,=P'1'         n=n+1
+         AP     N,=P'1'         n=n+1
-	 B      LOOPN
+         B      LOOPN
 ENDLOOPN EQU    *
 RETURN   EQU    *
@@ Line 111: / Line 111: @@
 LOOP     CP     I,L             if i>l
          BH     ENDLOOP         then goto endloop
-	 MP     R,I             r=r*i
+         MP     R,I             r=r*i
-	 AP     I,=P'1'         i=i+1
+         AP     I,=P'1'         i=i+1
-	 B      LOOP
+         B      LOOP
 ENDLOOP  EQU    *
          LA     R1,R            return r