as/cmd/JZE/jze_m.casl

   1 ;;; JZE adr OF:0/SF:1/ZF:0
   2 MAIN    START
   3         LD      GR1,A
   4         AND     GR1,GR1
   5         JZE     TO
   6         LAD     GR1,0
   7         JUMP    FIN
   8 TO      LAD     GR1,#FFFF
   9 FIN     RET
  10 A       DC      -1
  11         END