home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / TPFORT18.ZIP / CALLTP.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-09-19  |  1.3 KB  |  53 lines
  1. ;   Routine to call INT F1 to reawaken TP main program
  2.  
  3. NULL    segment  public  'BEGDATA'
  4.         ends
  5.  
  6. NULLA   segment  public  'BEGDATA'
  7. emul_space db 230 dup 0
  8.         ends
  9.  
  10. DGROUP  group NULL NULLA
  11.  
  12. code    segment
  13.         extrn   STKHQQ:word,__fcclenv:word
  14.  
  15. calltp_version equ 18
  16.  
  17.         public calltp
  18. calltp  proc far
  19.         push    seg    _MERRQQ      ; push a pointer to the intrinsic
  20.         push    offset _MERRQQ      ; error flag
  21.         push    STKHQQ       ; push the stack limit
  22.         push    seg  __fcclenv; push the segment of the length table pointer
  23.         push    offset  __fcclenv; push the offset of the length table pointer
  24.         mov     ax,calltp_version
  25.         push    ax           ; push the version number
  26.         int     0f1h
  27.         add     sp,12         ; pop the arguments
  28.         push    bp
  29.         mov     bp,sp
  30.         les     bx,d[bp+6]
  31.    es:  mov     cx,w[bx]     ; get arg_count
  32.         inc     cx           ; add 1 for arg_count itself
  33.         shl     cx,1
  34.         shl     cx,1
  35.    cs:  mov     arg_bytes,cx
  36.         jmp     quit
  37. quit:
  38.         pop     bp
  39.         db      0CAh          ; retf arg_bytes
  40. arg_bytes dw    0
  41. calltp  endp
  42.         end
  43.  
  44. ;   Routine to call INT 3 to wake TD
  45.  
  46.         public debug
  47. debug   proc far
  48.         int     03h
  49.         retf
  50. debug   endp
  51.         end
  52.  
  53.