This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Patch for Turbo Pascal 3.01a as disassembled by https://www.pcengines.ch/tp3.htm | |
| # to enable command line execution. | |
| diff --git a/TPSRC b/TPSRC | |
| index 344ef4a..2161173 100644 | |
| --- a/TPSRC | |
| +++ b/TPSRC | |
| @@ -5785,7 +5785,8 @@ chain1 POP errpos ;get ret addr | |
| MOV SP,spval ;restore SP | |
| CALL reinit2 ;reinit files, I/O | |
| MOV verror,#$10D0 ;set break vector |