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]
/
Q12
/
div.casl
1
DIV START ; 減算を用いた 32 ビット除算
2
PUSH 0,GR6
3
PUSH 0,GR7
4
LD GR6,GR1
5
LD GR7,GR2
6
LD GR1,=#FFFF ; 商の初期化
7
LD GR2,=#FFFF
8
LP LD GR4,GR6
9
LD GR5,GR7
10
ADDL GR2,=1 ; 商のカウントアップ
11
JOV ADJ1
12
JUMP CONT
13
ADJ1
14
CONT SUBL GR6,0,GR3
15
J0V FIN
16
SUBL GR7,1,GR3
17
18
JUMP LP
19
ADJ2 SUBL GR6,=1
20
J0V FIN
21
JUMP LP
22
FIN POP GR7
23
POP GR6
24
RET
25
END
26