#: 9264 S10/OS9/6809 (CoCo)
    24-Jan-91  00:21:51
Sb: #9258-#Sending nulls to T2
Fm: Paul Rinear 73757,1413
To: Pete Lyall 76703,4230 (X)

   I'm familiar with that. I "load test" then I "mdir" to check for it in
memory. It is there named 'test'. So I type "test" and it heads right for the
disk. So the module must be accessing the disk. Here is the source code:

$TITLE Test $SUBTITLE pas PROGRAM message (input,output); BEGIN
    write ('good grief') END.

  Doesn't look disk intensive.
  Here is the output of PascalT.PRUN :

 NAM MESSAGE
 USE PASCALDEFS
 MOD P.END,P.NAME,P.TYPE,$81,P.START,P.DATA P.NAME FCS /borg/
 FCB 1 P.TYPE EQU 17
 RMB 3548 P.DATA EQU .
 TTL PROCEDURE MESSAGE
 PAG A0D0 FCC "good grief"
 FCB $D P.SUP FCS "SUPPORT" P.START STY MEMTOP
 STX PARAMBEG
 LEAX -1,Y
 STX PARAMEND
 STU MEMBOT
 LEAX P.ABORT,PC
 STX ABORT
 STX DISPATCH
 LEAX