projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
統合テストに、最新版Autotest.mkを反映
[YACASL2.git]
/
test
/
system
/
casl2
/
lib_abs
/
abs.casl
1
;;; ABSを呼び出す
2
MAIN START
3
LAD GR2,0
4
MLOOP CPA GR2,MLEN
5
JZE MFIN
6
LD GR1,MVAL,GR2
7
CALL OUTA
8
CALL ABS
9
JOV PUTOV
10
JMI PUTM
11
OUT PLUS,=1
12
JUMP PUTD
13
PUTM OUT MINUS,=1
14
JUMP PUTD
15
PUTOV OUT OV,=2
16
PUTD CALL OUTA
17
OUT SEP,MLEN
18
LAD GR2,1,GR2
19
JUMP MLOOP
20
MFIN RET
21
MVAL DC 12,-12,1,-1,32767,-32767,0,-32768
22
MLEN DC 8
23
SEP DC '--------'
24
PLUS DC '+'
25
MINUS DC '-'
26
OV DC 'OV'
27
END