projects
/
YACASL2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
バージョンv0.3p3を設定
[YACASL2.git]
/
as
/
fe_tests
/
2011_06
/
Q12
/
call_rotate.casl
diff --git
a/as/fe_tests/2011_06/Q12/call_rotate.casl
b/as/fe_tests/2011_06/Q12/call_rotate.casl
index
375e5db
..
40b6ef4
100644
(file)
--- a/
as/fe_tests/2011_06/Q12/call_rotate.casl
+++ b/
as/fe_tests/2011_06/Q12/call_rotate.casl
@@
-1,5
+1,28
@@
- MAIN START
- RPUSH
- LD GR1,ORG
+;;; 「五」を90度回転させた16 x 16のpbm画像を出力する
+;;; 呼び出し方:
+;;; casl2 call_rotate.casl rotate.casl pbm16.casl
+MAIN START
+ LAD GR1,GRAPH
LAD GR2,RES
LAD GR2,RES
-ORG DC #FC,#FC,#FC,#70,#70,#70,#FC,#FC,#FC,
+ CALL ROTATE
+ LAD GR1,RES
+ CALL PBM16
+ RET
+GRAPH DC #FFFC
+ DC #FFFC
+ DC #FFFC
+ DC #0700
+ DC #0700
+ DC #0700
+ DC #FFFC
+ DC #FFFC
+ DC #FFFC
+ DC #071C
+ DC #071C
+ DC #071C
+ DC #FFFF
+ DC #FFFF
+ DC #FFFF
+ DC #0000
+RES DS 16
+ END