home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol079 / ch2.pli < prev    next >
Text File  |  1984-04-29  |  439b  |  18 lines
  1. ch2: proc options(main);    /* chain subroutine tester */
  2.  
  3.     dcl 1 fcb static,
  4.           2 drive fixed(7) init(0),
  5.           2 name char(8) init('CH1'),
  6.           2 type char(3) init('COM'),
  7.           2 ext(4) fixed(7) init(0,0,0,0),
  8.  
  9.         dummy char(16) based(dp),
  10.         dp pointer,
  11.     chain entry(char(16));
  12.  
  13.     put skip list('Chain Test program 2');
  14.     dp = addr(fcb);
  15.     call chain(dummy);
  16.     put skip(2) list('Shouldn''t be here !!');
  17. end ch2;
  18.