projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
eb5fdea29aa10c0d082a6b4345dfdb5ce6e47728
[YACASL2.git]
/
call_divl.casl
1
;; CASL2LIB > DIVLを呼び出し、65535 / 256 の商と剰余を表示
2
MAIN START
3
BEGIN LD GR1,A
4
LD GR2,B
5
CALL DIVL
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 65535
15
B DC 256
16
EMSG DC 'error'
17
ELEN DC 5
18
END