projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
doc/Makefileで、sedの記述を変更。いったん.html.bakファイルを作成してから削除
[YACASL2.git]
/
as
/
app
/
pbm
/
pbm16.casl
1
;;; PBM16
2
;;; GR1で指定されたアドレス以降のメモリを 16×16 の
3
;;; 白黒ビットマップ画像データ(白:0 黒:1)とみなし、
4
;;; PBM画像ファイルとして出力
5
;;; 入力: GR1 画像データの先頭アドレス
6
;;; 依存副プログラム: outl.casl
7
PBM16 START
8
PUSH 0,GR1
9
PUSH 0,GR2
10
ST GR1,BEG
11
OUT L1,L1LEN
12
OUT L2,L2LEN
13
XOR GR2,GR2
14
LOOP CPL GR2,HEIGHT
15
JZE FIN
16
LD GR1,BEG
17
ADDL GR1,GR2
18
LD GR1,0,GR1
19
CALL OUTB
20
LAD GR2,1,GR2
21
JUMP LOOP
22
FIN POP GR2
23
POP GR1
24
RET
25
L1 DC 'P1'
26
L1LEN DC 2
27
L2 DC '16 16'
28
L2LEN DC 5
29
HEIGHT DC 16
30
BEG DS 1
31
END