; GR1: 判定対象のデータを格納するレジスタ
; GR2: 割る数
PRIME	START
							; GR1にDATAを格納
							; GR1とF1を比較（DATAが0または1かどうかを判定）
							; 比較結果が正ならJUDGE2へ
							; GR1=F1ならPRIMEFへ
							; GR1<F1ならPRIMEFへ
		RET
		
JUDGE2						; GR2に最小の素数（２）を格納
JUDGE						; GR2とGR1を比較
							; GR2=GR1ならPRIMETへ
							; サブルーチンDIVをコール
							; DIVの結果が0ならPRIMEFへ
							; DATAをGR1にリロード
							; 割る数をインクリメント
							; JUDGEへジャンプ

; サブルーチン
DIV						; GR1 = GR1 - GR2
							; GR1 > 0ならDIVへ
		RET				; サブルーチンを返す
		
; 出力部
PRIMET	OUT	OUTT,LENT	; 素数であることを出力
		RET				; リターン
PRIMEF	OUT	OUTF,LENF	; 素数でないことを出力
		RET				; リターン

DATA	DC		123
F1		DC		1
OUTF	DC		'DATA is not prime number'
LENF	DC		24
OUTT	DC		'DATA is prime number'
LENT	DC		20
		END