home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / tdossigi / wspat.asm < prev   
Encoding:
Assembly Source File  |  1986-07-06  |  1.4 KB  |  72 lines
  1. ;WS-PAT.ASM V1 AS OF 10-11-84
  2. ;
  3. ; THIS FILE ALLOWS YOU TO PATCH WORDSTAR FOR TURBODOS.
  4. ; TWO OPTIONS ARE AVAILABLE:
  5. ;
  6. ; 1. REROUTE PRINTING TO SPECIFIED QUEUE
  7. ; 2. SIGNAL END OF PRINT
  8. ;
  9. ; CHANGE WSQUE TO THE DESIRED PRINT QUEUE (A=1, B=2...) AND CHANGE
  10. ; QUER TO 1 TO REROUTE PRINTING, OR LEAVE QUER EQU 0 IF YOU DO NOT
  11. ; WANT TO REROUTE PRINTING.
  12. ; NEXT, ASSEMBLE THE FILE INTO A HEX FILE AND USE A CP/M DEBUGGER
  13. ; SUCH AS SID VERSION 3 TO OVERLAY WORDSTAR.
  14. ;
  15. ; (YOU MAY USE TURBODOS' MONITOR.COM IF NOTHING ELSE IS AVAILABLE, BUT
  16. ; YOU'LL HAVE TO GET A LISTING OF THE ASSEMBLED CODE AND PATCH IT IN
  17. ; MANUALLY WITH THE "E" COMMAND)
  18. ;
  19. TDOS    EQU    50H        ;TURBODOS ENTRY POINT
  20. SETQ    EQU    27        ;SET QUEUE CALL
  21. EOP    EQU    28        ;END OF PRINT
  22. ;
  23. INITP    EQU    711H        ;INIT PRINT LOCATION IN WS 3.3
  24. DNITP    EQU    714H        ;DEINIT PRINT
  25. ;
  26. INPRP    EQU    300H        ;CHANGE TO SUIT, LOCATION OF INIT CODE
  27. DNPRP    EQU    310H        ;CHANGE TO SUIT, LOCATION OF DEINIT CODE
  28. ;
  29. WSQUE    EQU    2        ;CHANGE TO YOUR QUEUE FOR WS PRINTER
  30. ;
  31. QUER    EQU    0        ;CHANGE TO 1 TO REROUTE PRINTING,
  32.                 ;OR LEAVE TO NOT REROUTE
  33. ;
  34. ; MAKE NO CHANGES TO CODE BELOW UNLESS YOU KNOW WHAT YOU'RE DOING!
  35. ;
  36.     ORG    DNITP
  37.     JMP    DNPRP
  38. ;
  39.     IF    QUER
  40. ;
  41.     ORG    INITP
  42.     JMP    INPRP
  43. ;
  44.     ORG    INPRP
  45. ;
  46.     MVI    C,SETQ
  47.     MVI    E,1
  48.     MVI    B,0FFH
  49.     MVI    D,WSQUE
  50.     CALL    TDOS
  51.     RET
  52. ;
  53.     ORG    DNPRP
  54. ;
  55.     MVI    C,SETQ
  56.     MVI    E,1
  57.     MVI    B,0FFH
  58.     MVI    D,1
  59.     CALL    TDOS
  60.     RET
  61.     ENDIF
  62. ;
  63.     IF    NOT QUER
  64. ;
  65.     ORG    DNPRP
  66.     MVI    C,EOP
  67.     CALL    TDOS
  68.     RET
  69.     ENDIF
  70. ;
  71.     END
  72.