; notes de cours de Philippe Gabrini chapitre 9.4.2
;
         LDA     typ1,i      ;Liste des cinq mots des types de service
         STA     liste1,d    ; premier paramètre
         LDA     temps,i     ;Durée
         STA     liste2,d    ; deuxième paramètre
         LDA     result,i    ;Résultat
         STA     liste3,d    ; troisième paramètre
         LDA     liste1,i    ; adresse liste de 3 pointeurs
         STA     -4,s        ; empilée après espace pour code résultat
         SUBSP   4,i         ; ajuster pointeur pile #coderet #liste
         CALL    Facture     ;
;.......
typ1:    .WORD   3           
typ2:    .WORD   4           
typ3:    .WORD   5           
typ4:    .WORD   2           
typ5:    .WORD   0           
temps:   .WORD   10          
result:  .WORD   0           
liste1:  .BLOCK  2           ;Liste des trois pointeurs #2h
liste2:  .BLOCK  2           ;#2h
liste3:  .BLOCK  2           ;#2h
;
retour:  .EQUATE 0           
liste:   .EQUATE 2           ;#2h
coderet: .EQUATE 4           ;#2h
;
Facture: LDX     0,i         ; index = 0;
         LDA     liste,sxf   ; adresse table
;STA table,s ; conservée
         ADDX    2,i         ; index = 1;
         LDA     liste,sxf   ; adresse durée
;STA duree,s ; conservée
         ADDX    2,i         ; index = 2;
         LDA     liste,sxf   ; adresse résultat
;STA res,s ; conservée
;LDA duree,sf ; valeur durée
;STA duree,s ; conservée
         LDA     retour,s    
         STA     coderet,s   
         RET4                ; #liste #coderet
;
         .END