ヘッダーファイル呼び出しの整理
[YACASL2.git] / as / cmd / JNZ / jnz__p.casl
1 ;;; JNZ adr OF:0/SF:0/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