projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
PBM作成アセンブルプログラムを修正
[YACASL2.git]
/
as
/
app
/
pbm
/
five_nn_part_pbm.casl
1
;;; 「五」を表す画像を時計方向へ90度回転させた結果をPBMファイルとして出力する
2
;;; 呼び出し方:
3
;;; casl2 -M 1024 five_nn_part_pbm.casl $CASL2LIB/pbm16.casl $CASL2LIB/outb_w.casl $CASL2LIB/divl.casl $CASL2LIB/rev.casl rotate_nn_part.casl >five_nn_part.pbm
4
MAIN START
5
RPUSH
6
LAD GR1,GRAPH
7
LAD GR2,RES
8
LAD GR3,8
9
CALL ROTATE
10
LAD GR1,RES
11
CALL PBM16
12
RPOP
13
FIN RET
14
GRAPH DC #FFFC
15
DC #FFFC
16
DC #FFFC
17
DC #0700
18
DC #0700
19
DC #0700
20
DC #FFFC
21
DC #FFFC
22
DC #FFFC
23
DC #071C
24
DC #071C
25
DC #071C
26
DC #FFFF
27
DC #FFFF
28
DC #FFFF
29
DC #0000
30
RES DS 16
31
END