home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.lbl.gov / 2014.05.ftp.ee.lbl.gov.tar / ftp.ee.lbl.gov / mtrek.shar.Z / mtrek.shar / chkpar.mac < prev    next >
Text File  |  1990-04-02  |  520b  |  24 lines
  1.     .TITLE    CHKPAR
  2.     .IDENT    /C1.00/
  3. ;
  4. ;    Check if the common LEDFOR is installed. 
  5. ; 
  6.     .MCALL    DIR$,GPRT$,QIOW$,EXIT$S
  7.     .GLOBL    CHKPAR
  8.  
  9. CHKPAR:    DIR$    #PAR        ; CHECK THE PARTITION
  10.     BCC    10$        ; CARRY CLEAR IF OK
  11.     DIR$    #QIO        ; OUTPUT A MESSAGE
  12.     EXIT$S            ; EXIT IF NOT INSTALLED
  13. 10$:    RETURN            ; AND RETURN TO MAIN
  14.  
  15. QIO:    QIOW$    IO.WLB,1,1,,,,<MES,NUM>
  16. PAR:    GPRT$    LEDFOR,NULBUF
  17.  
  18. MES:    .ASCII    <12><15>'ZIP -- UNDEFINED COMMON BLOCK LEDFOR'
  19.     .ASCII    <12><15>'>'
  20.     NUM=.-MES
  21.     .EVEN
  22. NULBUF:    .WORD    0,0,0        ; BUFFER FOR PARTITION INFORMATION
  23.     .END
  24.