Google
 

Trailing-Edge - PDP-10 Archives - AP-D471B-SB_1978 - mgnrel.bli
There are no other files named mgnrel.bli in the archive.
!***COPYRIGHT (C) 1974, 1975, 1976, 1977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***

! *** LAST MODIFIED ON  1-JUN-76   BY   ILG
COMMENT;

! MGNREL.BLI
! ====== ===

! THIS FILE CONTAINS THE ROUTINE TO RELOAD CORE AFTER A WRITE /COMPILE COMMAND


COMMENT;

! ROUTINE RELOAD
! ======= ======

ROUTINE RELOAD =
    BEGIN

	OWN	NAME,
		SBLK[ SPECBLKLEN ],
		JOBNUM;

	BIND	BUFFSIZE = #200 + 3;

	LOCAL	BUF1[BUFFSIZE], BUF2[BUFFSIZE], BUF3[BUFFSIZE];

	MAP	ROOTFORMAT SBLK;

	JOBNUM _ JOBNO();

	NAME<LH> _ .JOBNUM;
	NAME<RH> _ IMAGETMPFILENAME;
	SBLK[ SB0DEVICE ] _ SIXBIT 'DSK   ';
	SBLK[ SB0NAME ] _ .NAME;
	SBLK[ SB0EXT ] _ SIXBIT "TMP";
	SBLK[ SB0PPN ] _ 0;

	READCOREFILE( SBLK );
	KILLFILE( SBLK );

	NAME<RH> _ CMDTMPFILENAME;

	IOPENBLK[0] _ 0;
	IOPENBLK[1] _ SIXBIT 'DSK   ';
	IOPENBLK[2]<RH> _ IBUF<0,0>;

	IF OPENINPUTDEVICE() FAILED THEN RETURN BAD;

	MAKEBUFFERRING( IBUF, 0<36, 7>, BUF1, BUF2, BUF3 );

	SBLK[ SB0NAME ] _ ILOOKUPBLK[0] _ .NAME;
	SBLK[ SB0EXT ] _ ILOOKUPBLK[1]<LH> _ SIXBIT "TMP";
	ILOOKUPBLK[2] _ 0;
	ILOOKUPBLK[3] _ 0;

	IFSKIP LOOKUP(ICHAN,ILOOKUPBLK)
	    THEN %CONTINUE%
	    ELSE
		BEGIN
		    ERROR( 62 );
		    RETURN
		END;

	INBUF();

	CMDBPTR _ CMDBUFF<36,7>;

	CCPY( .IBUF[1], .CMDBPTR );

	CMDBPTR _ CMDBUFF<36,7>;

	CMDCOUNT _ 0;

	CCHAR _ SCANI( CMDBPTR );

	CLOSE( ICHAN, 0 );

	KILLFILE( SBLK )


    END;



! END OF MGNREL.BLI