00000            prog       START   0    
00000  4B2003               JSUB    stackinit    
                  
00003  3F2FFD    HALT       J       HALT    
00006                       END     prog    
                  
                  
                  
                  
                  
                  
                  
                  
00006  0F2010    stackinit  STA     oldvalue    
00009  B400                 CLEAR   A    
0000B  012011               LDA     #stack    
0000E  0F200B               STA     stackptr    
00011  B400                 CLEAR   A    
00013  032003               LDA     oldvalue    
00016  4F0000               RSUB        
                  
                  
                  . stackpush
                  . RSUB
                  
                  
                  . stackpop
                  . RSUB
                  
                  
00019  000000    oldvalue   WORD    0    
0001C  000000    stackptr   WORD    0    
0001F  00....00  stack      RESW    1000