deci  nb,d     ;input d'un nombre en base décimale
      loada nb,d
      compa d#0,i    ;Comparer A avec 0  => A-0
rec:  breq  zero     ;si le flag Z est à 1, branchement à l'étiquette 'zero'
      charo c#/N/,i
      charo c#/Z/,i  ;imprimer 'NZ'
      br    fin      ;branchement inconditionel sur l'étiquette 'fin'
zero: charo c#/Z/,i
      charo c#/R/,i  ;imprimer 'ZR'
fin:  stop


nb:  .WORD d#0

.END