home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
clipper
/
nettos11.zip
/
MISC
/
SETPRINT.ASM
< prev
next >
Wrap
Assembly Source File
|
1993-06-15
|
1KB
|
55 lines
; File......: SETPRINT.ASM
; Author....: Ted Means
; CIS ID....:
; Date......: $Date$
; Revision..: $Revision$
; Log file..: $Logfile$
;
; This is an original work by Ted Means and is placed in the
; public domain.
;
; Modification history:
; ---------------------
;
; $Log$
;
; _fnsetprc( nHandle ) -> nil
;
; Sets the file handle pointed to by the SET PRINTER TO command
; Uses an internal that shifts around from Clipper version to
; Clipper version. This one works for Clipper 5.2
IDEAL
Public _fnsetprc
Extrn __ParNI:Far
Extrn SetPRC:Far
Segment _Nanfor Word Public "CODE"
Assume CS:_NanFor
Proc _fnsetprc Far
Mov AX,1
Push AX
Call __ParNI
Add SP,2
Mov DX,Seg SetPRC ; Load segment of known symbol
Mov BX,Offset SetPRC ; Load offset of known symbol
Mov ES,DX ; Load segment register
Add BX,8Ch ; Calc offset into code segment
Mov BX,[Word Ptr ES:BX] ; Get address
Mov [Word Ptr BX],AX
Mov [Word Ptr BX - 6],AX
Ret
Endp _fnsetprc
Ends _NanFor
End