home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / 555 / M85 / FACT.ASM next >
Assembly Source File  |  1993-10-07  |  256b  |  12 lines
  1. ;Factorielles
  2.           JSR     Fac
  3.           END
  4. $Fac      JNZ     R0 Sui
  5.           LDI     R0 1
  6.           JMP     Fin
  7. $Sui      PSH     R0
  8.           DEC     R0
  9.           JSR     Fac
  10.           POP     R1
  11.           MUL     R0 R1 R0
  12. $Fin      RTS