00000            prog     START   0    
00000  4B2043             JSUB    sinit    
00003  010005             LDA     #5    
00006  4B2003             JSUB    fact    
                  
                  
                  
00009  3F2FFD    halt     J       halt    
                  
                  . fakulteta
0000C  290001    fact     COMP    #1    
0000F  372006             JGT     rec    
00012  010001             LDA     #1    . base case
00015  4F0000             RSUB        
                  
00018  16205E    rec      STL     @stkp    
0001B  4B2037             JSUB    spush    
0001E  0E2058             STA     @stkp    
00021  4B2031             JSUB    spush    
00024  7A2052             STB     @stkp    
00027  4B202B             JSUB    spush    
                  
0002A  AC03               RMO     A,B    . shrani n v B
0002C  1D0001             SUB     #1    . n-1
0002F  4B2FDA             JSUB    fact    . fact(n-1)
00032  9830               MULR    B,A    . n * fact(n-1)
                  
00034  4B2030             JSUB    spop    
00037  6A203F             LDB     @stkp    
0003A  4B202A             JSUB    spop    
                  . LDA @stkp da ne povozimo odgovora?
0003D  4B2027             JSUB    spop    
00040  0A2036             LDL     @stkp    
                  
                  
                  
00043  4F0000             RSUB        
                  
                  
                  . rutine za sklad
00046  0F2033    sinit    STA     stkA    
00049  012033             LDA     #stkRESW    . inicializiraj stkp
0004C  0F202A             STA     stkp    
0004F  03202A             LDA     stkA    
00052  4F0000             RSUB        
                  
00055  0F2024    spush    STA     stkA    
00058  03201E             LDA     stkp    . poveca stkp za 3
0005B  190003             ADD     #3    
0005E  0F2018             STA     stkp    
00061  032018             LDA     stkA    
00064  4F0000             RSUB        
                  
00067  0F2012    spop     STA     stkA    
0006A  03200C             LDA     stkp    . zmanjsa stkp za 3
0006D  1D0003             SUB     #3    
00070  0F2006             STA     stkp    
00073  032006             LDA     stkA    
00076  4F0000             RSUB        
                  
                  . podatki za sklad
00079  000000    stkp     WORD    0    
0007C  000000    stkA     WORD    0    
0007F  00....00  stkRESW  RESW    1000    
                  
00C37                     END     prog    
