projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
CASL2LIBのドキュメント記述内容とテストを編集、再構成
[YACASL2.git]
/
doc
/
casl2lib
/
divl
/
call_divl.casl
1
;; CASL2LIB > DIVLを呼び出し、65534 / 255 の商と剰余を表示
2
MAIN START
3
BEGIN LD GR1,A
4
LD GR2,B
5
CALL DIVL
6
JOV ERR
7
LD GR1,GR0
8
CALL OUTL
9
LD GR1,GR3
10
CALL OUTL
11
JUMP FIN
12
ERR OUT EMSG,ELEN
13
FIN RET
14
A DC 65534
15
B DC 255
16
EMSG DC 'error'
17
ELEN DC 5
18
END