.MACRO adressload  
LDR %1,\var
B \hupf
\.var EQUD %2
\.hupf
.ENDM

.MACRO r0write  
 b \hupf
\.label EQUS %2
       EQUB 0 
 ALIGN     
\.hupf adressload %1,\label
.IF "%1"="R0"
SWI "OS_Write0"
.ELSE
SWI "OS_WriteS"
EQUS "error 1. argument is arg1 und not R0  " 
EQUB 0
 ALIGN 
.ENDC   

.endm

.start
r0write R0," huhu  "
r0write R0," hallo1  "
r0write R1," hallo2  "
SWI "OS_WriteS"
EQUS " end " 
       EQUB 0
 ALIGN 
SWI "OS_Exit"
