projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
アセンブル時の動作を整理
[YACASL2.git]
/
as
/
misc
/
mull0.casl
1
;GR1の値とGR2の値の積をGR0に格納
2
MULL START
3
RPUSH
4
LAD GR3,0 ; インデックス
5
LAD GR0,0 ; 積
6
MLOOP CPA GR2,GR3 ; ループ先頭。(GR2 = GR3)の場合、ループ脱出
7
JZE MFIN ; ↓
8
ADDL GR0,GR1 ; GR0 <- GR0 + GR1
9
JOV MFIN ; オーバーフローした場合、ループ脱出
10
LAD GR3,1,GR3 ; GR3 <- GR3 + 1
11
JUMP MLOOP ; ループ終端
12
MFIN RPOP
13
RET
14
END