Advertisement
Guest User

bla

a guest
Nov 22nd, 2012
163
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
DCL 0.37 KB | None | 0 0
  1. jmp anfang
  2. f1 def 00
  3. f2 def 00
  4. erge def 00
  5. anfang
  6.  
  7. inm f1
  8. inm f2
  9. psh
  10. lda f2
  11. psh
  12. lda f1
  13. psh
  14. jsr multi
  15. pop
  16. pop
  17. pop
  18. sta erge
  19. out erge
  20. end
  21.  
  22. multi
  23. ruecksprung equal 1
  24. fak1 equal 2
  25. fak2 equal 3
  26. erg equal 4
  27. spbp
  28. ldab fak1
  29. jze nul
  30. dec
  31. stab fak1
  32. psh
  33. ldab fak2
  34. psh
  35. ldab fak1
  36. psh
  37. jsr multi
  38. pop
  39. pop
  40. pop
  41. addb fak2
  42. spbp
  43. stab erg
  44. rtn
  45. nul
  46. rtn
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement