;
; SWITCH section 8.2.3 page 86
;
; modifié pour les 12 mois de l'année
;
SWITCH12:NOP0                ;switch(Ind) {
         DECI    mois,d      
         LDX     mois,d      ;
         CPX     1,i         ;
         BRLT    OTHER12     ; Vérifier si Ind est
         CPX     12,i        ; dans les limites [1..12]
         BRGT    OTHER12     ;
         SUBX    1,i         ; ramener à [0..11]
         ASLX                ; * 2 => indice réel dans
         BR      TAB12,x     ; table (adresse = 2 octets)
TAB12:   .ADDRSS janvier     
         .ADDRSS février     
         .ADDRSS mars        
         .ADDRSS avril       
         .ADDRSS mai         
         .ADDRSS juin        
         .ADDRSS juillet     
         .ADDRSS août        
         .ADDRSS septembr    
         .ADDRSS octobre     
         .ADDRSS novembre    
         .ADDRSS décembre    
janvier: NOP0                ;
         CHARO   "J",i       
         BR      ENDCAS12    ; break;
février: NOP0                ;
         CHARO   "F",i       
         BR      ENDCAS12    ; break;
mars:    NOP0                ;
         CHARO   "M",i       
         BR      ENDCAS12    ; break;
avril:   NOP0                ;
         CHARO   "A",i       
         BR      ENDCAS12    ; break;
mai:     NOP0                ;
         CHARO   "M",i       
         BR      ENDCAS12    ; break;
juin:    NOP0                ;
         CHARO   "J",i       
         BR      ENDCAS12    ; break;
juillet: NOP0                ;
         CHARO   "J",i       
         BR      ENDCAS12    ; break;
août:    NOP0                ;
         CHARO   "A",i       
         BR      ENDCAS12    ; break;
septembr:NOP0                ;
         CHARO   "S",i       
         BR      ENDCAS12    ; break;
octobre: NOP0                ;
         CHARO   "O",i       
         BR      ENDCAS12    ; break;
novembre:NOP0                ;
         CHARO   "N",i       
         BR      ENDCAS12    ; break;
décembre:NOP0                ;
         CHARO   "D",i       
         BR      ENDCAS12    ; break;
OTHER12: NOP0                ; default:
         CHARO   "X",i       
ENDCAS12:NOP0                ;}
         STOP                
mois:    .BLOCK  2           ; #2d
         .END