First page Back Continue Last page Overview Text

Notes:


77 0006 _fact:
79 0006 3b pshd
80 00000000 OFST: set 0
85 0007 8c0001 cpd #1
86 000a 2605 bne L13
89 000c cc0001 ldd #1
92 000f 31 puly
93 0010 3d rts
94 0011 L13:
95 ; 7 else return n*fact(n-1);
97 0011 c3ffff addd #-1
98 0014 07f0 jsr _fact
100 0016 ed80 ldy OFST+0,s
101 0018 13 emul
104 0019 31 puly
105 001a 3d rts
117 xdef _fact
118 xdef _main
119 end