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 / loadit.ftt < prev    next >
Text File  |  1990-04-02  |  383b  |  18 lines
  1.     SUBROUTINE LOADIT(OVER)
  2. C
  3. C    Handle segment loading and errors
  4. C
  5.     INCLUDE 'BUFFER.COM/-LI'
  6.     REAL OVER
  7.     INTEGER*2 IOSTAT(2),LDSTAT
  8.  
  9. 10000    CALL MNLOAD(OVER,0,IOSTAT,,LDSTAT)
  10.     IF(LDSTAT.EQ.1)GOTO 10001
  11.     CALL R50ASC(6,OVER,IBUF)
  12.     WRITE(1,10010)(IBUF(I),I=1,6),IOSTAT,LDSTAT
  13. 10010    FORMAT(' Load error loading segment ',6A1,
  14.      $    'IOSTAT',2O7,' LDSTAT',I7)
  15.     GOTO 10000
  16. 10001    RETURN
  17.     END
  18.