Det är delen för själva "func" funktionen, jag har även här plockat bort
main() och annan kod som bara körs en gång eller inte alls. Det framgår
ju tydligt var rekurssionen gör med "BSR R26, FUNC"...
Kod: Markera allt
Machine Code Listing 5-JUN-2013 17:24:21 HP C V7.3-010-48L7K Page 2
5-JUN-2013 17:14:51 USER:[JANNE]REKURS.C;15
.PSECT $CODE$, OCTA, PIC, CON, REL, LCL, SHR,-
EXE, NORD, NOWRT
0000 FUNC::
23DEFFD0 0000 LDA SP, -48(SP)
B77E0000 0004 STQ R27, (SP)
B75E0010 0008 STQ R26, 16(SP)
B45E0018 000C STQ R2, 24(SP)
B7BE0020 0010 STQ FP, 32(SP)
47FE041D 0014 MOV SP, FP
47FB0402 0018 MOV R27, R2
B21D0008 001C STL R16, n ; R16, 8(FP)
22020020 0020 LDA R16, 32(R2) ; 001607
A23D0008 0024 LDL R17, n ; R17, 8(FP)
47E05419 0028 MOV 2, R25
A7420030 002C LDQ R26, 48(R2)
A7620038 0030 LDQ R27, 56(R2)
6B5A4000 0034 JSR R26, DECC$GXPRINTF ; R26, R26
A01D0008 0038 LDL R0, n ; R0, 8(FP) ; 001608
40003010 003C ADDL R0, 1, R16
47E03419 0040 MOV 1, R25
A7620040 0044 LDQ R27, 64(R2)
D35FFFED 0048 BSR R26, FUNC
47FD041E 004C MOV FP, SP ; 001609
A75D0010 0050 LDQ R26, 16(FP)
A45D0018 0054 LDQ R2, 24(FP)
A7BD0020 0058 LDQ FP, 32(FP)
23DE0030 005C LDA SP, 48(SP)
6BFA8001 0060 RET R26