home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BMULKEY.ZIP / MULUCFIL.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-04-05  |  1010 b   |  40 lines
  1. ; Assembler interface to Turbo Pascal - MULKEY
  2. ;
  3. ; Copyright 1988 by Mark R. Boler  -  All Rights Reserved
  4.  
  5. TITLE      MULKEY
  6.  
  7. CODE       SEGMENT BYTE PUBLIC
  8.  
  9.            ASSUME  CS:CODE
  10.  
  11.            EXTRN   UC_File: NEAR
  12.  
  13.            PUBLIC  ClearOwner, UnLock
  14.  
  15. UnlockOp     EQU 27
  16. ClearOwnerOp EQU 30
  17.  
  18. ; PROCEDURE xxxxxx(Handle: WORD); EXTERNAL;
  19.  
  20. Handle     EQU     WORD  PTR ss:[bx + 4]
  21.  
  22. Unlock     PROC    FAR
  23.            mov     al, UnlockOp           ; set op code
  24. CallEntry:
  25.            mov     bx, sp                 ; set up stack frame in bx
  26.            push    Handle                 ; set up for call to UC_File
  27.            push    ax
  28.            call    UC_File                ; call it
  29.            ret     2                      ; clean up and return to caller
  30. Unlock     ENDP
  31.  
  32. ClearOwner PROC    FAR
  33.            mov     al, ClearOwnerOp       ; load op code
  34.            jmp     SHORT CallEntry        ; make the call
  35. ClearOwner ENDP
  36.  
  37. CODE       ENDS
  38.  
  39.            END
  40.