CASL2LIBを独立させるため、削除
[YACASL2.git] / as / cmd / JPL / jpl__m.casl
1 ;;;JPL adr OF:0/SF:1/ZF:0
2 MAIN    START
3         LD      GR1,A
4         AND     GR1,GR1
5         JPL     TO
6         LAD     GR1,0
7         JUMP    FIN
8 TO      LAD     GR1,#FFFF
9 FIN     RET
10 A       DC      -1
11         END