projects
/
YACASL2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
サンプルに、count1とcall_count1を追加
[YACASL2.git]
/
as
/
casl2lib
/
outl.casl
diff --git
a/as/casl2lib/outl.casl
b/as/casl2lib/outl.casl
index
bf16e79
..
09cc91f
100644
(file)
--- a/
as/casl2lib/outl.casl
+++ b/
as/casl2lib/outl.casl
@@
-3,7
+3,7
@@
OUTL START
RPUSH
LAD GR2,10 ; GR2に10進数の「10」を格納。
OUTL START
RPUSH
LAD GR2,10 ; GR2に10進数の「10」を格納。
-
LAD GR0,0
; GR0 <- 0
+
XOR GR0,GR0
; GR0 <- 0
XOR GR4,GR4 ; 整数値の長さ
AND GR1,GR1 ; GR1をテスト
JZE ZERO ; GR1が0の場合、ZEROにジャンプ
XOR GR4,GR4 ; 整数値の長さ
AND GR1,GR1 ; GR1をテスト
JZE ZERO ; GR1が0の場合、ZEROにジャンプ