projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
CASLファイルのフォルダを変更
[YACASL2.git]
/
as
/
casl2lib
/
abs_call.casl
1
;;; ABSを呼び出す
2
;;; casl2 abs_call.casl abs.casl outa.casl
3
MAIN START
4
LAD GR2,0
5
MLOOP CPA GR2,MLEN
6
JZE MFIN
7
OUT SEP,MLEN
8
LD GR1,MVAL,GR2
9
CALL OUTA
10
CALL ABS
11
JOV PUTOV
12
JMI PUTM
13
OUT PLUS,=1
14
JUMP PUTD
15
PUTM OUT MINUS,=1
16
JUMP PUTD
17
PUTOV OUT OV,=2
18
PUTD CALL OUTA
19
OUT SEP,MLEN
20
LAD GR2,1,GR2
21
JUMP MLOOP
22
MFIN RET
23
MVAL DC 12,-12,1,-1,32767,-32767,0,-32768
24
MLEN DC 8
25
SEP DC '--------'
26
PLUS DC '+'
27
MINUS DC '-'
28
OV DC 'OV'
29
END