; programme EQUATE1 qui met en évidence l'utilisation des déclarations .EQUATE avec le débogueur
;
         LDA     5,i         
         STBYTEA -1,s        
         LDX     7,i         
         SUBSP   1,i         ; #code
         CALL    routine     
         LDBYTEX 0,s         
         STBYTEX temp,d      
         DECO    avtemp,d    
         ADDSP   1,i         ; #code
         STOP                
avtemp:  .BLOCK  1           ; #1d
temp:    .BLOCK  1           ; #1d
;
var1:    .EQUATE 0           ; #1d
var2:    .EQUATE 1           ; #1d
var3:    .EQUATE 2           ; #1d
sauveA:  .EQUATE 3           ; #2h
sauveX:  .EQUATE 5           ; #2h
retour:  .EQUATE 7           ; #2h
code:    .EQUATE 9           ; #1d
;
routine: SUBSP   7,i         ; #sauveX #sauveA #var3 #var2 #var1
;
         STA     sauveA,s    
         STX     sauveX,s    
         LDA     1,i         
         LDX     22,i        
         STBYTEA var1,s      
         STBYTEA var2,s      
         STBYTEA var3,s      
         STBYTEX code,s      
         LDA     sauveA,s    
         LDX     sauveX,s    
         ADDSP   7,i         ; #var1 #var2 #var3 #sauveA #sauveX
         RET0                
         .END