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
/
call_rotate2.casl
1
;;; 「五」を90度回転させた16 x 16のpbm画像を出力する
2
;;; 呼び出し方:
3
;;; casl2 call_rotate2.casl rotate2.casl pbm16.casl
4
MAIN START
5
LAD GR1,GRAPH
6
LAD GR2,RES
7
LAD GR3,8
8
CALL ROTATE
9
LAD GR1,RES
10
CALL PBM16
11
RET
12
GRAPH DC #FFFC
13
DC #FFFC
14
DC #FFFC
15
DC #0700
16
DC #0700
17
DC #0700
18
DC #FFFC
19
DC #FFFC
20
DC #FFFC
21
DC #071C
22
DC #071C
23
DC #071C
24
DC #FFFF
25
DC #FFFF
26
DC #FFFF
27
DC #0000
28
RES DS 16
29
END