main:    DECI    n,d         
         LDA     n,d         
         DECI    n,d         
         LDX     n,d         
         CALL    sub         
         STA     n,d         
         DECO    n,d         
         STOP                
n:       .BLOCK  2           
;
sub:     SUBSP   2,i         ;#a
         STA     a,s         
         CPX     0,i         
         BRNE    cont        
         LDA     1,i         
         BR      fin         
cont:    SUBX    1,i         
         CALL    sub         
         ADDA    a,s         
fin:     RET2                ;#a
a:       .EQUATE 0           ;#2d
;
         .END