projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
コメントの修正
[YACASL2.git]
/
as
/
app
/
calc_addl.casl
1
MAIN START
2
XOR GR1,GR1
3
XOR GR2,GR2
4
LOOP LD GR2,GR1
5
CALL INL
6
JOV OV
7
AND GR0,GR0
8
JZE FIN
9
CPL GR0,=#FFFF
10
JZE NAN
11
ADDL GR1,GR2
12
JOV OV
13
CALL OUTL
14
JUMP LOOP
15
OV OUT OVMSG,MLEN1
16
CALL OUTL
17
JUMP LOOP
18
NAN OUT NANMSG,MLEN2
19
JUMP LOOP
20
FIN RET
21
OVMSG DC 'Over 65535'
22
MLEN1 DC 10
23
NANMSG DC 'Not A Number'
24
MLEN2 DC 12
25
END