Revision as of 17:12, 16 April 2023 (view source) Jjuanhdez (talk \| contribs) m (→‎{{header\|Minimal BASIC}}) ← Older edit		Revision as of 17:34, 16 April 2023 (view source) PatGarrett (talk \| contribs) m (→‎{{header\|360 Assembly}}: Better editing) Newer edit →
Line 86: L R15,=A(FACT) BALR R14,R15 call fact(n) ZAP F,0(L'R,R1) f=fact(n) DUMP EQU * MVC S,MASK ED S,N MVC WTOBUF+5(2),S+30 MVC S,MASK ED S,F MVC WTOBUF+9(32),S WTO MF=(E,WTOMSG) AP N,=P'1' n=n+1 B LOOPN ENDLOOPN EQU * RETURN EQU * Line 111: LOOP CP I,L if i>l BH ENDLOOP then goto endloop MP R,I r=ri AP I,=P'1' i=i+1 B LOOP ENDLOOP EQU LA R1,R return r

Factorial (view source)