adressload MACRO arg1,arg2
local var
local hupf
LDR arg1,var
B hupf
.var EQUD arg2
.hupf
ENDM

r0write MACRO arg1,arg2
local hupf,label
 b hupf
.label EQUS arg2
       EQUB 0 
 ALIGN     
.hupf adressload arg1,label
IF "arg1"="R0"
SWI "OS_Write0"
ELSE
SWI "OS_WriteS"
EQUS "error 1. argument is arg1 und not R0  " 
EQUB 0
 ALIGN 
ENDIF   

endm

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