READMEのCASL II仕様書へのリンクを修正
[YACASL2.git] / as / cmd / JNZ / jnz__m.casl
1 ;;; JNZ adr  OF:0/SF:1/ZF:0
2 MAIN    START
3         LD      GR1,A
4         AND     GR1,GR1
5         JNZ     TO
6         LAD     GR1,0
7         JUMP    FIN
8 TO      LAD     GR1,#FFFF
9 FIN     RET
10 A       DC      -1
11         END