Date   : Wed, 03 Apr 1985 03:05:00-EST
From   : ABN.ISCAMS@USC-ISID.ARPA
Subject: TurboPascal User Area Bug

NetLandians,

A separate message described a bug in TurboPascal V2.0 for CP/M-80.  If
you are running TurboPascal in a User Area other than 0, when you exit
TurboPascal it will force you into User Area 0 whether you like it or not.

The fix described several bytes in TurboPascal to patch, but was specific
to Version 2.0 only.

Here's the fix for TurboPascal Version 1.0 for CP/M-80:

Using DDT, DSD, EDFILE, or whatever, list 2741H...

Original code:

2741  LDA 3E24         ;where TurboPascal earlier stored the
                       ;current disk/user.
      DCR A            ;always
      STA 0004         ;where CP/M keeps the current disk/user
      JMP 0000         ;return to CP/M

I couldn't find exactly WHERE TurboPascal messes up that stored
disk/user value, but it sure 'nuff gets blown away somewhere.

So... just eliminate that retrieval altogether.  It appears that
the original CP/M stored value at 0004 does NOT get changed (I tried
various disk reads and writes, and it remained the same disk and user
area as when I started).

2741  JMP 0000         ;just return to CP/M, skipping the rest.
      DCR A            ;leave the rest of the mess...
.....

Now, when you exit TurboPascal, you'll still be in your original
disk and user area.

Regards,
David Kirschbaum
Toad Hall
(ABN.ISCAMS@USC-ISID.ARPA)