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