Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TP_ADV.ZIP/LIST0815.PAS

Pascal/Delphi Source File | 1989-07-31 | 1.2 KB | 40 lines

Unit List815;
{ This is a simple example of a unit that has the signature    }
{ procedure inside the implemenation section.  The only        }
{ purpose of this unit is to demonstrate usage of the          }
{ signature idea for determining the order of units in the OVR }
{ file.                                                        }

{$O+,F+}

Interface

Procedure One;

Implementation

Procedure Signature;
{ This is the signature procedure.  It is important to keep in }
{ mind that this procedure MUST be called, and that each unit  }
{ MUST have a UNIQUE identifier.  To change the signature, all }
{ that is necessary is to change the last two bytes of the     }
{ inline code to the new signature.  You must also then create }
{ a test file that contains the unit's name and its unique     }
{ signature.  An example follows.                              }

Begin
  Inline( $EB/$03/             { JMP 03 }
          $90/$00/$00 );       { Unique Signature }
End;

Procedure One;
{ Simple example procedure that calls the signature procedure }
{ and then writes a message.                                  }

Begin
  Signature;
  Writeln( 'One...' );
End;

End.