projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
マニュアル中の「試験で使用する情報技術に関する用語・プログラム言語など」へのリンクを修正
[YACASL2.git]
/
as
/
cmd
/
POP
/
push_pop__0.casl
1
;;; PUSH / POP 値の復元
2
MAIN START
3
LD GR1,A
4
LD GR1,0,GR7
5
LD GR2,1,GR7
6
LD GR3,2,GR7
7
LD GR4,3,GR7
8
LD GR5,4,GR7
9
LD GR6,5,GR7
10
LD GR7,6,GR7
11
PUSH 0,GR1
12
PUSH 0,GR2
13
PUSH 0,GR3
14
PUSH 0,GR4
15
PUSH 0,GR5
16
PUSH 0,GR6
17
PUSH 0,GR7
18
POP GR7
19
POP GR6
20
POP GR5
21
POP GR4
22
POP GR3
23
POP GR2
24
POP GR1
25
RET
26
A DC 1,2,3,4,5,6,7
27
END