Frostbyte's 1980s DOS Shareware Collection/floppyshareware.zip/floppyshareware/USCX/TURBO-05.ZIP/BLIST.DOC

Text File | 1984-12-01 | 896b | 18 lines

BList is a Turbo Pascal Source Code lister and BEGIN/END Counter
program.  It can print a listing to Console or Printer, with
optional begin/end, case/end, and record/end counter.  It was
initially published in the Aug./Sept. issue of TUG Lines.

This version of the code is specific to CP/M-80 because the program
looks for a parameter passed by CP/M at absolute location $80.
However, I believe it can be easily modified for MS-DOS.  The
program PARAMS.PAS (published in Jun./July issue of TUG Lines)
implies that only a few declarations need to be changed in the
BLIST.PAS program.  The following declarations should be changed
in the GET_IN_FILE procedure:

Var FNam: String[14];
    Parm: String[14] Absolute CSeg:$0081;
    ParmLth: Byte Absolute CSeg:$0080;
    Existing: Boolean;