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
/
ptn4.casl
1
PTN4 START
2
ST GR1,WRK
3
LD GR1,GR2
4
CALL PTN1
5
PUSH 0,GR2 ; PTN1 の結果を一時保存
6
LD GR1,WRK
7
LAD GR1,1,GR1 ; ビット番号の調整
8
CALL PTN2
9
POP GR1 ; 保存していた PTN1 の結果を GR1 ヘ
10
XOR GR2,GR1
11
LD GR1,WRK
12
RET
13
WRK DS 1
14
END