home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TURBOPAT.LBR / TPATCH2.Z80 < prev   
Text File  |  2000-06-30  |  768b  |  28 lines
  1. ; This is a patch for the CP/M-80 version of Turbo Pascal version 3 to make
  2. ; it include or not include the error message overlay file without asking.
  3. ; It works by replacing that code by a default answer.
  4.  
  5. NO    EQU    0
  6. YES    EQU    NOT NO
  7.  
  8. INCLUDE    EQU    YES            ;use no to omit error message overlay
  9.  
  10. START    EQU    0220DH            ;address where Turbo puts up message
  11.                     ;.. asking whether to include error
  12.                     ;.. message overlay
  13. CONT    EQU    0222FH            ;address where code continues after
  14.                     ;.. yes/no question is answered
  15.  
  16.     ORG    START
  17.  
  18.     IF    INCLUDE
  19.     LD    A,'Y'            ;value for affirmative answer
  20.     ELSE
  21.     LD    A,'N'            ;value for negative answer
  22.     ENDIF
  23.  
  24.     SUB    'N'
  25.     JP    CONT            ;go on with code
  26.  
  27.     END
  28.