projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
.gitignoreの推敲
[YACASL2.git]
/
as
/
app
/
mula_timestab.casl
1
MAIN START
2
LAD GR1,0
3
SUBA GR1,XMAX
4
LOOPX CPA GR1,XMAX
5
JPL FIN
6
OUT SEP,SLEN
7
CALL OUTA
8
OUT SEP,SLEN
9
LAD GR2,0
10
SUBA GR2,YMAX
11
LOOPY CPA GR2,YMAX
12
JPL XNEXT
13
CALL MULA
14
JOV WOV
15
PUSH 0,GR1
16
LD GR1,GR0
17
CALL OUTA
18
POP GR1
19
YNEXT OUT SEP,SLEN
20
LAD GR2,1,GR2
21
JUMP LOOPY
22
WOV OUT YOMSG,YLEN
23
JUMP YNEXT
24
XNEXT LAD GR1,1,GR1
25
JUMP LOOPX
26
FIN RET
27
XMAX DC 9
28
YMAX DC 9
29
SEP DC '--------------------'
30
SLEN DC 20
31
YOMSG DC 'Warning: overflow'
32
YLEN DC 17
33
END