projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Makefileの修正
[YACASL2.git]
/
as
/
casl2lib
/
outpbm.casl
1
;;; PBM画像ファイルを出力
2
;;; GR1: 画像ビット列の先頭アドレス
3
;;; GR2: 画像の幅
4
;;; GR3: 画像の高さ
5
OUTPBM START
6
OUT HEADER,HLEN
7
PUSH 0,GR1
8
PUSH 0,GR2
9
PUSH 0,GR3
10
PUSH 0,GR4
11
XOR GR4,GR4
12
LD GR1,GR2
13
LAD GR2,WIDTH
14
CALL L2STR
15
LD GR4,GR0
16
LAD GR4,1,GR4
17
LD GR1,SPC
18
ST GR1,WIDTH,GR4
19
LAD GR4,1,GR4
20
LD GR1,GR3
21
LAD GR2,WIDTH,GR4
22
CALL L2STR
23
ADDL GR4,GR0
24
ST GR4,WHLEN
25
OUT WIDTH,WHLEN
26
POP GR4
27
POP GR3
28
POP GR2
29
POP GR1
30
RET
31
HEADER DC 'P1'
32
HLEN DC 2
33
WIDTH DS 32
34
SPC DC ' '
35
HEIGHT DS 1
36
WHLEN DS 1