[Oberon] Unexplained operation code

[Walter Gallegos]

I'm finding the source of an unexplained operation code generated for 
debug my VHDL sources, cleaning unrelated code I wrote :

MODULE*  TestA;
     IMPORT SYSTEM;

     VAR
         a: INTEGER;

       PROCEDURE* IntServ;
       BEGIN
       END IntServ;

BEGIN
     a := SYSTEM.ADR(IntServ);
END TestA.


a := SYSTEM.ADR(IntServ); is generated as :

19    F7000000    BL    0
20    40F90030    SUB    R0    LNK    48
21    A0D00000    STR    R0    SB    0

I can't explain the line 19.

-- 
Walter Daniel Gallegos
Programmable Logic
Consultorí­a, Diseño, Entrenamiento.