PRG	START
	RPUSH
;
	LD	GR1,DATA
	LAD	GR2,0
	LAD	GR3,CHAR
	LAD	GR4,NSTR
LOOP	ADDL	GR2,=1
	CPL	GR2,=16
	JPL	FIN
	SLL	GR1,1		;0 0010 0100 0110 100 0
	JOV	CASE1		;OFが1ならJUMP
	LD	GR3,CHAR0
	ST	GR3,0,GR4
	ADDL	GR4,=1
	JUMP	LOOP
CASE1	LD	GR3,CHAR1
	ST	GR3,0,GR4
	ADDL	GR4,=1
	JUMP	LOOP
;
FIN	OUT	NSTR,LENNSTR
	RPOP
	RET
;
DATA	DC	#1234		;0001 0010 0011 0100
CHAR	DS	1
NSTR	DS	16
LENNST	DC	16
CHAR0	DC	'0'
CHAR1	DC	'1'
;
	END