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_abs.casl
1
;;; ABSを呼び出す
2
;;; casl2 call_abs.casl ../stdlib.casl
3
MAIN START
4
LAD GR2,0
5
MLOOP CPA GR2,MLEN
6
JZE MFIN
7
LD GR1,MVAL,GR2
8
CALL OUTA
9
CALL ABS
10
JOV PUTOV
11
JMI PUTM
12
OUT PLUS,=1
13
JUMP PUTD
14
PUTM OUT MINUS,=1
15
JUMP PUTD
16
PUTOV OUT OV,=2
17
PUTD CALL OUTA
18
OUT SEP,MLEN
19
LAD GR2,1,GR2
20
JUMP MLOOP
21
MFIN RET
22
MVAL DC 12,-12,1,-1,32767,-32767,0,-32768
23
MLEN DC 8
24
SEP DC '--------'
25
PLUS DC '+'
26
MINUS DC '-'
27
OV DC 'OV'
28
END