;Exam2014H26FallPrg1BubbleSort
;Exam2014H26秋Prg1バブルソート
;----------------------------
MAIN START
	LAD GR1,DATA
	LD GR2,N
	CALL SORT
	RET
N DC 5
DATA DC 103,5067,68, 79, 7
DAT2 DC 103,5067,68, 79, 7
	END
;--------------
SORT START
	RPUSH
	SUBA GR2,=1   ;ループカウンタ１を設定
LOOP1 LD GR3,GR2   ;ループカウンタ２を設定
	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
;---------------
