projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
d7f47945bbd6ee16e424b92d9c82941120cfd917
[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