fb72464e68c8eea7f918029a6d60c759b9a0367d
[YACASL2.git] / as / cmd / JOV / jov_z.casl
1 ;;; JOV OSZ:001
2 MAIN    START
3         LD      GR1,A
4         AND     GR1,GR1
5         JOV     TO
6         LAD     GR1,0
7         JUMP    FIN
8 TO      LAD     GR1,#FFFF
9 FIN     RET
10 A       DC      0
11         END