projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
READMEのCASL II仕様書へのリンクを修正
[YACASL2.git]
/
system
/
casl2
/
lib_divl
/
divl.casl
1
MAIN START
2
LD GR1,XMAX
3
LOOPX CPA GR1,XMIN
4
JMI FIN
5
OUT SEP,SLEN
6
LD GR2,YMIN
7
LOOPY CPL GR2,YMAX
8
JPL XNEXT
9
CALL OUTL
10
PUSH 0,GR1
11
LD GR1,GR2
12
CALL OUTL
13
POP GR1
14
CALL DIVL
15
JOV WOV
16
PUSH 0,GR1
17
LD GR1,GR0
18
CALL OUTL
19
LD GR1,GR3
20
CALL OUTL
21
POP GR1
22
YNEXT OUT SEP,SLEN
23
LAD GR2,1,GR2
24
JUMP LOOPY
25
WOV OUT Y0MSG,YLEN
26
JUMP YNEXT
27
XNEXT LAD GR1,-1,GR1
28
JUMP LOOPX
29
FIN RET
30
XMAX DC 100
31
XMIN DC 0
32
YMAX DC 10
33
YMIN DC 0
34
SEP DC '--------------------'
35
SLEN DC 20
36
Y0MSG DC 'Error: div by 0'
37
YLEN DC 15
38
END