;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
