home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB3.ZIP / LOADER.INC < prev    next >
Encoding:
Text File  |  1985-01-06  |  512 b   |  15 lines
  1.     END;
  2.   END.
  3.   PROCEDURE LOAD( PROC_OFFSET : INTEGER );
  4.  
  5.     VAR
  6.       HEADER_SIZE, I, ADDRESS : INTEGER;
  7.  
  8.     BEGIN
  9.       HEADER_SIZE := MEMW[ CSEG:PROC_OFFSET + 1 ];
  10.       I := PROC_OFFSET + 4;
  11.       WHILE ( I <= PROC_OFFSET + HEADER_SIZE + 3 ) DO
  12.         BEGIN
  13.           ADDRESS := MEMW[ CSEG:I ];
  14.           ADDRESS := ( I - ADDRESS + 1 ) XOR $FFFF;
  15.           MEMW[ CSEG:I ] := ADDR