root/as/cmd/JNZ/jnz__o.casl

/* [<][>][^][v][top][bottom][index][help] */ 
   1 ;;; JNZ adr OF:1/SF:0/ZF:0
   2 MAIN    START
   3         LD      GR1,A
   4         SRL     GR1,1
   5         JNZ     TO
   6         LAD     GR1,0
   7         JUMP    FIN
   8 TO      LAD     GR1,#FFFF
   9 FIN     RET
  10 A       DC      #0003
  11         END
/* [<][>][^][v][top][bottom][index][help] */