m-code-64/Local.mod

IMPLEMENTATION MODULE Local ;

FROM Memory IMPORT TopOfMemory ;

VAR
  SP, FP, GP, OFP, IP : LONGCARD ;

PROCEDURE Init ;
BEGIN
  SP := TopOfMemory () ;
  FP := 0 ;
  GP := 0 ;
  OFP := 0 ;
  IP := 0 ;
END Init ;

PROCEDURE GetSP () : LONGCARD ;
BEGIN
  RETURN SP ;
END GetSP ;

PROCEDURE SetSP (v: LONGCARD) ;
BEGIN
  SP := v ;
END SetSP ;

PROCEDURE GetFP () : LONGCARD ;
BEGIN
  RETURN FP ;
END GetFP ;

PROCEDURE SetFP (v: LONGCARD) ;
BEGIN
  FP := v ;
END SetFP ;

PROCEDURE GetGP () : LONGCARD ;
BEGIN
  RETURN GP ;
END GetGP ;

PROCEDURE SetGP (v: LONGCARD) ;
BEGIN
  GP := v ;
END SetGP ;

PROCEDURE GetOFP () : LONGCARD ;
BEGIN
  RETURN OFP ;
END GetOFP ;

PROCEDURE SetOFP (v: LONGCARD) ;
BEGIN
  OFP := v ;
END SetOFP ;

PROCEDURE GetIP () : LONGCARD ;
BEGIN
  RETURN IP ;
END GetIP ;

PROCEDURE SetIP (v: LONGCARD) ;
BEGIN
  IP := v ;
END SetIP ;

END Local.