projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
テスト名を修正
[YACASL2.git]
/
as
/
casl2lib
/
test
/
divl
/
divl1
/
divl1.casl
1
;;; casl2 divl1.casl ../casl2lib/outl.casl
2
MAIN START
3
BEGIN LD GR1,X
4
CALL OUTL
5
LD GR2,Y
6
PUSH 0,GR1
7
LD GR1,GR2
8
CALL OUTL
9
POP GR1
10
CALL DIVL
11
LD GR1,GR0
12
CALL OUTL
13
LD GR1,GR3
14
CALL OUTL
15
RET
16
X DC 123
17
Y DC 10
18
END