projects
/
YACASL2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
アセンブラファイルの整理
[YACASL2.git]
/
as
/
misc
/
lib_outd
/
lib_outd
/
outd1.casl
diff --git
a/as/casl2lib/test/outl/outl.casl
b/as/misc/lib_outd/lib_outd/outd1.casl
similarity index 58%
rename from
as/casl2lib/test/outl/outl.casl
rename to
as/misc/lib_outd/lib_outd/outd1.casl
index
d20214e
..
ace9fcf
100644
(file)
--- a/
as/casl2lib/test/outl/outl.casl
+++ b/
as/misc/lib_outd/lib_outd/outd1.casl
@@
-1,22
+1,21
@@
-;;
; casl2 outl_call.casl outl.casl
+;;
outd.caslを呼び出し、数値を表示する
MAIN START
LAD GR2,0
LOOP LD GR1,VAL,GR2
MAIN START
LAD GR2,0
LOOP LD GR1,VAL,GR2
- CALL OUT
L
+ CALL OUT
D
LAD GR2,1,GR2
CPA GR2,CNT
JZE FIN
JUMP LOOP
FIN RET
LAD GR2,1,GR2
CPA GR2,CNT
JZE FIN
JUMP LOOP
FIN RET
-VAL DC 0
- DC #0001,#0002,#0004,#0008
- DC #0010,#0020,#0040,#0080
- DC #0100,#0200,#0400,#0800
- DC #1000,#2000,#4000,#7FFF
+VAL DC #7FFF,#4000,#2000,#1000
+ DC #0800,#0400,#0200,#0100
+ DC #0080,#0040,#0020,#0010
+ DC #0008,#0004,#0002,#0001
DC #8000
DC #8001,#C000,#E000,#F000
DC #F800,#FC00,#FE00,#FF00
DC #FF80,#FFC0,#FFE0,#FFF0
DC #FFF8,#FFFC,#FFFE,#FFFF
DC #8000
DC #8001,#C000,#E000,#F000
DC #F800,#FC00,#FE00,#FF00
DC #FF80,#FFC0,#FFE0,#FFF0
DC #FFF8,#FFFC,#FFFE,#FFFF
-CNT DC 3
4
+CNT DC 3
3
END
END