home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 03 / tpprolog / bridge.asm next >
Assembly Source File  |  1988-01-18  |  612b  |  31 lines
  1. ;   MASM assembler example of a bridge to the
  2. ;   Turbo Pascal 4.0 unit initialization and
  3. ;   exit procedures.
  4.  
  5. EXTRN SYSTEM_001:far,CRT_000:far,SYSTEM_003:far
  6. PUBLIC SYSTEMINIT_0,CRTINIT_0,SYSTEMEXIT_0
  7.  
  8. BRIDGE segment
  9.   assume CS:BRIDGE
  10.  
  11. ; Pass on call to SystemInit_0 to SYSTEM_001.
  12. SystemInit_0 proc Far
  13.   call SYSTEM_001
  14.   ret
  15. SystemInit_0 endp
  16.  
  17. ; Pass on call to CrtInit_0 to CRT_000.
  18. CrtInit_0 proc Far
  19.   call CRT_000
  20.   ret
  21. CrtInit_0 endp
  22.  
  23. ; Pass on call to SystemExit_0 to SYSTEM_003.
  24. SystemExit_0 proc Far
  25.   call SYSTEM_003
  26.   ret
  27. SystemExit_0 endp
  28.  
  29. BRIDGE ends
  30.        end
  31.