Category : Files from Magazines
Archive   : VOL8N22.ZIP
Filename : JUMP.PAS

 
Output of file : JUMP.PAS contained in archive : VOL8N22.ZIP

JUMP.PAS




{ Non - local Goto for Turbo Pascal 4.0 }
UNIT Jump;
INTERFACE
TYPE
JmpBuf = RECORD
SP : Word;
SS : Word;
CS : Word;
IP : Word;
BP : Word;
DS : Word;
END;

{ Save current context and return a code of 0 }
FUNCTION SetJmp(VAR X : JmpBuf) : Integer;

{ Restore context and return the given code }
PROCEDURE LongJmp(VAR X : JmpBuf; RetValue : Integer);

IMPLEMENTATION
FUNCTION SetJmp; EXTERNAL;
PROCEDURE LongJmp; EXTERNAL;
{$L SETJMP.OBJ }
END.





  3 Responses to “Category : Files from Magazines
Archive   : VOL8N22.ZIP
Filename : JUMP.PAS
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/