projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
最初の図をSVGファイルを作成
[YACASL2.git]
/
doc
/
casl2lib
/
diva
/
call_diva.casl
1
;; CASL2LIB > DIVAを呼び出し、-32767 / 255 の商と剰余を表示
2
MAIN START
3
BEGIN LD GR1,A
4
LD GR2,B
5
CALL DIVA
6
JOV ERR
7
LD GR1,GR0
8
CALL OUTA
9
LD GR1,GR3
10
CALL OUTA
11
JUMP FIN
12
ERR OUT EMSG,ELEN
13
FIN RET
14
A DC -32767
15
B DC 255
16
EMSG DC 'error'
17
ELEN DC 5
18
END