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 >
Wrap
Text File
|
1990-04-02
|
383b
|
18 lines
SUBROUTINE LOADIT(OVER)
C
C Handle segment loading and errors
C
INCLUDE 'BUFFER.COM/-LI'
REAL OVER
INTEGER*2 IOSTAT(2),LDSTAT
10000 CALL MNLOAD(OVER,0,IOSTAT,,LDSTAT)
IF(LDSTAT.EQ.1)GOTO 10001
CALL R50ASC(6,OVER,IBUF)
WRITE(1,10010)(IBUF(I),I=1,6),IOSTAT,LDSTAT
10010 FORMAT(' Load error loading segment ',6A1,
$ 'IOSTAT',2O7,' LDSTAT',I7)
GOTO 10000
10001 RETURN
END