CASL IIの課題、その2（提出は今月28日）

問題

CASL IIでバブルソートプログラムを書け。なお、整列する配列の要素数は10とする。

僕の回答

KADAI02  START
         LAD     GR1,0
SETTING  LD      GR0,DATA,GR1
         ST      GR0,SORT,GR1
         ADDA    GR1,=1
         CPA     GR1,=10
         JMI     SETTING
;
         LAD     GR0,10
TIME     SUBA    GR0,=1
         CPA     GR0,=0
         JZE     EXIT
         LAD     GR1,0
SORTING  LD      GR2,SORT,GR1
         LAD     GR3,1,GR1
         LD      GR4,SORT,GR3
         CPA     GR2,GR4
         JMI     NOSORT
         ST      GR2,SORT,GR3
         ST      GR4,SORT,GR1
NOSORT   ADDA    GR1,=1
         CPA     GR1,GR0
         JMI     SORTING
         JUMP    TIME
EXIT     RET
DATA     DC      58,999,78,36,127,86,9,64,0,450
SORT     DS      10
         END

問題文が短すぎたので以下略。