home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_15_1987_Transactor_Publishing.d64 / fact (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  530b  |  33 lines
  1. 0 rem fact (wayne happ)               :
  2. 1 :
  3. 2 rem 0 statements, 1 function
  4. 3 :
  5. 4 rem keyword chars: 5
  6. 5 :
  7. 6 rem keyword    routine   line  ser #
  8. 7 rem f/fact     fact      15236  202
  9. 8 :
  10. 9 rem ===============================
  11. 10 :
  12. 626 .asc "fact": .byte $a8
  13. 1626 .word fact-1
  14. 15236 fact jsr $aef4
  15. 15238 jsr $b7a1
  16. 15240 txa
  17. 15242 bne fac1
  18. 15244 lda #1
  19. 15246 fac1 sta t2
  20. 15248 jsr $bc3c
  21. 15250 fac2 jsr $bbca
  22. 15252 dec t2
  23. 15254 lda t2
  24. 15256 cmp #2
  25. 15258 bcc fac3
  26. 15260 jsr $bc3c
  27. 15262 lda #$57
  28. 15264 ldy #$00
  29. 15266 jsr $ba28
  30. 15268 jmp fac2
  31. 15270 fac3 rts
  32. 15272 ;
  33.