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
Wrap
Text File
|
2000-06-30
|
768b
|
28 lines
; This is a patch for the CP/M-80 version of Turbo Pascal version 3 to make
; it include or not include the error message overlay file without asking.
; It works by replacing that code by a default answer.
NO EQU 0
YES EQU NOT NO
INCLUDE EQU YES ;use no to omit error message overlay
START EQU 0220DH ;address where Turbo puts up message
;.. asking whether to include error
;.. message overlay
CONT EQU 0222FH ;address where code continues after
;.. yes/no question is answered
ORG START
IF INCLUDE
LD A,'Y' ;value for affirmative answer
ELSE
LD A,'N' ;value for negative answer
ENDIF
SUB 'N'
JP CONT ;go on with code
END