projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
サンプルに、count1とcall_count1を追加
[YACASL2.git]
/
as
/
casl2lib
/
sample
/
call_strlen.casl
1
;;; call_strlen.casl
2
;;;
3
MAIN START
4
PUSH 0,GR1
5
LAD GR1,STR
6
CALL STRLEN
7
LD GR1,GR2
8
CALL OUTL
9
FIN POP GR1
10
RET
11
STR DC 'abcdefghij',0 ; 文字列
12
END