Question: How do you load the address into the AR register? He wants to load the address, not the contents of the address.

Answer:
CALL TOIEEE1 .text L1:
LDI @L,AR1
LDF -2.0,R0
CALL TOIEEE1 BU L1
ABSF R0 TOIEEE1:
LDF R0,R0
LDFZ *+AR1(4),R0
BND
NEG ABSF R0
ADDI *+AR1(2),R0
LSH 1,R0
PUSHF R0
POP R0
ADDI *+AR1(2),R0
LSH -1, R0
RETSNZ CONT:
TSTB *+AR1(5),R0
RETSNZ
TSTB *+AR1(7),R0
RETSNZ
PUSH R0
POPF R0
LSH -1, R0
PUSHF R0
POP R0
ADDI *+AR1(6),R0
RETS LSH -1, R0
NEG: POP R0
BRD
CONT
ADDI *+AR1(6),R0
LSH -1, R0
ADDI *+AR1(3),R0
RETS