projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
YACAL2: CASL2処理系
[YACASL2.git]
/
as
/
binout.casl
1
BINOUT START
2
LAD GR1,#09CD
3
LAD GR2,1
4
PUSH 0,GR1
5
PUSH 0,GR2
6
PUSH 0,GR3
7
PUSH 0,GR4
8
LAD GR2,0
9
LAD GR3,15
10
LD GR4,GR1
11
JZE OUT1
12
LOOP1 JMI ONE
13
LAD GR3,-1,GR3
14
SLL GR1,1
15
JUMP LOOP1
16
LOOP2 JMI ONE
17
ZERO LAD GR0,48
18
JUMP STORE
19
ONE LAD GR0,49
20
STORE ST GR0,OBUF,GR2
21
LAD GR2,1,GR2
22
LAD GR3,-1,GR3
23
CPA GR3,NZERO
24
JMI OUT2
25
SLL GR1,1
26
JUMP LOOP2
27
OUT1 LAD GR0,48
28
ST GR0,OBUF,GR2
29
LAD GR2,1,GR2
30
OUT2 ST GR2,OLNG
31
OUT OBUF,OLNG
32
POP GR4
33
POP GR3
34
POP GR2
35
POP GR1
36
RET
37
OBUF DS 16
38
OLNG DS 1
39
NZERO DC 0
40
END