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
				