root/as/cmd/JNZ/jnz__o.casl

;;; JNZ adr OF:1/SF:0/ZF:0
MAIN    START
        LD      GR1,A
        SRL     GR1,1
        JNZ     TO
        LAD     GR1,0
        JUMP    FIN
TO      LAD     GR1,#FFFF
FIN     RET
A       DC      #0003
        END