	
@ Little-Endian-Version
	
	@ init strbl
	
	.macro	strbli	temp
		mov	\temp,#0x80000000
	.endm
	
	@ write byte
	
	.macro	strbl	quelle,ziel,temp
	
		mov	\quelle,\quelle,lsl #24
		orrs	\temp,\quelle,\temp,lsr #8
		strcs	\temp,[\ziel],#4
		movcs	\temp,#0x80000000
	
	.endm
	
	@ flush
	
	.macro	strblf	quelle,ziel,temp
	
		cmp	\temp,#0x80000000
		moveq	\temp,#0		@spare jump (macro fehler)
		and	\quelle,\temp,#0xff
		cmp	\quelle,#0x80
		mov	\temp,\temp,lsr #8
		streq	\temp,[\ziel],#4
		moveq	\temp,#0		@spare jump (macro fehler)	
		and	\quelle,\temp,#0xff
		cmp	\quelle,#0x80
		mov	\temp,\temp,lsr #8
		streq	\temp,[\ziel],#4
		movne	\temp,\temp,lsr #8
		strne	\temp,[\ziel],#4
		
	.endm
	

	