+++ /dev/null
-;;; 「五」を90度回転させた16 x 16のpbm画像を出力する
-;;; 呼び出し方:
-;;; casl2 call_rotate2.casl rotate2.casl pbm16.casl
-MAIN START
- LAD GR1,GRAPH
- LAD GR2,RES
- LAD GR3,8
- 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