home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 July / 64er_Magazin_89-07_1989_Markt__Technik_de_Side_A.d64 / fac-fkt-beispiel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  482b  |  20 lines
  1. 10 rem *** function-beispiel ***
  2. 11 rem  "fac(x)" gibt die an der
  3. 12 rem  adresse x abgelegte
  4. 13 rem  fliesskommazahl aus
  5. 20 sys 9*4096:.opt oo:*=828
  6. 22 .asc "program:"
  7. 24 .word ende
  8. 25 ; argument liegt zum
  9. 26 ; funktionsaufruf im f.a.c. vor
  10. 30 jsr $bc9b; f.a.c. -> integer $64/$65
  11. 40 lda $65:ldy $64; adresse nach a/y
  12. 50 jsr $bba2;konstante aus a/y nach f.a.c.
  13. 60 rts
  14. 65 ende nop
  15. 70 .end:end
  16. 80 (NULL):(NULL)"fac",1,828
  17. 100 rem *** in 44712=$aea8 ist ***
  18. 101 rem ***   pi abgelegt ***
  19. 110 print (NULL) (44712)
  20.