;WS-PAT.ASM V1 AS OF 10-11-84
;
; THIS FILE ALLOWS YOU TO PATCH WORDSTAR FOR TURBODOS.
; TWO OPTIONS ARE AVAILABLE:
;
; 1. REROUTE PRINTING TO SPECIFIED QUEUE
; 2. SIGNAL END OF PRINT
;
; CHANGE WSQUE TO THE DESIRED PRINT QUEUE (A=1, B=2...) AND CHANGE
; QUER TO 1 TO REROUTE PRINTING, OR LEAVE QUER EQU 0 IF YOU DO NOT
; WANT TO REROUTE PRINTING.
; NEXT, ASSEMBLE THE FILE INTO A HEX FILE AND USE A CP/M DEBUGGER
; SUCH AS SID VERSION 3 TO OVERLAY WORDSTAR.
;
; (YOU MAY USE TURBODOS' MONITOR.COM IF NOTHING ELSE IS AVAILABLE, BUT
; YOU'LL HAVE TO GET A LISTING OF THE ASSEMBLED CODE AND PATCH IT IN
; MANUALLY WITH THE "E" COMMAND)
;
TDOS	EQU	50H		;TURBODOS ENTRY POINT
SETQ	EQU	27		;SET QUEUE CALL
EOP	EQU	28		;END OF PRINT
;
INITP	EQU	711H		;INIT PRINT LOCATION IN WS 3.3
DNITP	EQU	714H		;DEINIT PRINT
;
INPRP	EQU	300H		;CHANGE TO SUIT, LOCATION OF INIT CODE
DNPRP	EQU	310H		;CHANGE TO SUIT, LOCATION OF DEINIT CODE
;
WSQUE	EQU	2		;CHANGE TO YOUR QUEUE FOR WS PRINTER
;
QUER	EQU	0		;CHANGE TO 1 TO REROUTE PRINTING,
				;OR LEAVE TO NOT REROUTE
;
; MAKE NO CHANGES TO CODE BELOW UNLESS YOU KNOW WHAT YOU'RE DOING!
;
	ORG	DNITP
	JMP	DNPRP
;
	IF	QUER
;
	ORG	INITP
	JMP	INPRP
;
	ORG	INPRP
;
	MVI	C,SETQ
	MVI	E,1
	MVI	B,0FFH
	MVI	D,WSQUE
	CALL	TDOS
	RET
;
	ORG	DNPRP
;
	MVI	C,SETQ
	MVI	E,1
	MVI	B,0FFH
	MVI	D,1
	CALL	TDOS
	RET
	ENDIF
;
	IF	NOT QUER
;
	ORG	DNPRP
	MVI	C,EOP
	CALL	TDOS
	RET
	ENDIF
;
	END