home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / nettos11.zip / MISC / SETPRINT.ASM < prev    next >
Encoding:
Assembly Source File  |  1993-06-15  |  1.3 KB  |  55 lines
  1. ; File......: SETPRINT.ASM
  2. ; Author....: Ted Means
  3. ; CIS ID....:
  4. ; Date......: $Date$
  5. ; Revision..: $Revision$
  6. ; Log file..: $Logfile$
  7. ; 
  8. ; This is an original work by Ted Means and is placed in the
  9. ; public domain.
  10. ;
  11. ; Modification history:
  12. ; ---------------------
  13. ;
  14. ; $Log$
  15. ;
  16.  
  17.  
  18. ; _fnsetprc( nHandle ) -> nil
  19. ;
  20. ; Sets the file handle pointed to by the SET PRINTER TO command
  21. ; Uses an internal that shifts around from Clipper version to 
  22. ; Clipper version.   This one works for Clipper 5.2
  23.  
  24.  
  25. IDEAL
  26.  
  27. Public   _fnsetprc
  28.  
  29. Extrn    __ParNI:Far
  30. Extrn    SetPRC:Far
  31.  
  32. Segment  _Nanfor   Word      Public    "CODE"
  33.          Assume    CS:_NanFor
  34.  
  35. Proc     _fnsetprc          Far
  36.  
  37.          Mov       AX,1
  38.          Push      AX
  39.          Call      __ParNI
  40.          Add       SP,2
  41.  
  42.          Mov       DX,Seg SetPRC             ; Load segment of known symbol
  43.          Mov       BX,Offset SetPRC          ; Load offset of known symbol
  44.          Mov       ES,DX                     ; Load segment register
  45.          Add       BX,8Ch                    ; Calc offset into code segment
  46.          Mov       BX,[Word Ptr ES:BX]       ; Get address
  47.          Mov       [Word Ptr BX],AX
  48.          Mov       [Word Ptr BX - 6],AX
  49.          Ret
  50.  
  51. Endp     _fnsetprc
  52. Ends     _NanFor
  53. End
  54.  
  55.