%from IMP %include Mcode, SysSpecs

%externalintegerspec Stopper %alias "3L___stopper"

%external %routine Exit %alias "3L___exit"(%integer Code)
   %label Ok
   *LDR   _ R1, Stopper
   *MOVS  _ R1, R1
   *BLNE  _ Ok
   *SWI   _ Brasil Exit
Ok:*MOV   _ Pc, R1
%end