\prog;XMarkM.asi|Génère 1..8 impulsions
; bMark	= 3 	; portA
; valeur = nbre d'impulsions de 1 us toutes les 2 us
.Macro	Mark	; Appel par Mark valeur 
.If  %1.HS.1      ; HS = Higher or Same
	Set	PortA:#bMark
	Clr	PortA:#bMark
 .If  %1.HS.2
	Nop
	Set	PortA:#bMark
	Clr	PortA:#bMark
  .If  %1.HS.3
	Nop
	Set	PortA:#bMark
	Clr	PortA:#bMark
   .If  %1.HS.4
	Nop
	Set	PortA:#bMark
	Clr	PortA:#bMark
\m2;
    .If  %1.HS.5
	Nop
	Set	PortA:#bMark
	Clr	PortA:#bMark
     .If  %1.HS.6
	Nop
	Set	PortA:#bMark
	Clr	PortA:#bMark
      .If  %1.HS.7
	Nop
	Set	PortA:#bMark
	Clr	PortA:#bMark
       .If  %1.HS.8
	Nop
	Set	PortA:#bMark
	Clr	PortA:#bMark
       .Endif
      .Endif
     .Endif
    .Endif
   .Endif
  .Endif
 .Endif
.Endif
.Endmacro

.End