MAIN START
LAD GR1,A ; ソート対象
LD GR2,n ; 要素数
CALL SORT
RET
A DC 103 ; #67
DC 5067 ; #13CB
DC 68 ; #44
DC 79 ; #4F
DC 7 ; #7
N DC 5
SORT START
RPUSH
SUBA GR2,=1 ; ループのカウンタ 1 を設定
LOOP1 LD GR3,GR2 ; ループのカウンタ 2 を設定
LD GR4,GR1 ; GR4←比較する要素のアドレス
LOOP2 LD GR5,0,GR4
CPL GR5,1,GR4 ; 二つの要素を比較
JMI CONT
LD GR6,1,GR4 ; 二つの要素を入れ替え
ST GR5,1,GR4
ST GR6,0,GR4
CONT ADDA GR4,=1
SUBA GR3,=1
JPL LOOP2
SUBA GR2,=1
JPL LOOP1
RPOP
RET
END
解説
103 - 5067 - 68 - 79 - 7
103 - 5067
68 - 5067
79 - 5067
7 - 5067
68 - 103
79 - 103
7 - 103
68 - 79
7 - 79
7 - 68