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]
/
as
/
app
/
fib
/
fib_call_io.casl
1
;FIB 呼び出し用メインルーチン
2
;1 1 2 3 5 8 13 21 34 55
3
MAIN START
4
LOOP CALL INL
5
JOV OV
6
AND GR0,GR0
7
JZE FIN
8
CPL GR0,=#FFFF
9
JZE NAN
10
CALL FIB
11
LD GR1,GR0
12
CALL OUTL
13
JUMP LOOP
14
OV OUT OVMSG,MLEN1
15
JUMP LOOP
16
NAN OUT NANMSG,MLEN2
17
JUMP LOOP
18
FIN RET
19
OVMSG DC 'Over 65535'
20
MLEN1 DC 10
21
NANMSG DC 'Not A Number'
22
MLEN2 DC 12
23
END