Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/algprm.c05
There are 15 other files named algprm.c05 in the archive. Click here to see a list.
 REP 3/1	;05C1
	;COPYRIGHT (C) 1975,1981,1982 BY
 WIT
	;COPYRIGHT (C) 1975,1982,1983 BY
 REP 8/2	;05C2
		MINVNO==2		; MINOR VERSION NUMBER
		EDTNO==310		; EDIT NUMBER
 WIT
		MINVNO==3		; MINOR VERSION NUMBER
		EDTNO==340		; EDIT NUMBER
 INS 296/3	;05C3
	;VERSION 1.2(310) RELEASED JAN-82
	; BEGIN VERSION 1.3
	;
	;311	ALGOTS	13-JAN-82	QAR 20-1731	JBS
	;		ALLOW PDL APR TRAP DURING ANOTHER NON-PDL TRAP.  .JBTPC WAS
	;		GETTING STEPPED ON TWICE IN A ROW, WITHOUT BEING SAVED.
	;
	;312	ALGLIB	23-DEC-81	QAR 20-1743	JBS
	;		STRING READ BLEW UP AT EOF INSTEAD OF SETTING IOCHAN BITS.
	;
	;313	ALGOTS	31-DEC-81	SPR 10-31998	JBS
	;		KA10 INSTRUCTION GETS EXECUTED AT SILR.  EDIT 172 HAD A JUMPG
	;		INSTEAD OF A JUMPL (TOPS-10 ONLY).
	;
	;314	ALGCON	14-JAN-82	QAR 10-6802	JBS
	;		FURTHER REVISION OF EDIT 273 FOR COMMENTS IN RESERVED WORD
	;		MODE COMPILATION.
	;
	;315	ALGSTM	13-APR-82	SPR 10-32000	JBS
	;		CATCH ILLEGAL USE OF SYMBOLS PRECEDING PSEDUO-OPS, I.E.,
	;		"FOOBAR CHECKON;".
	;
	;316	ALGOTS	28-APR-82	SPR 20-17360	JBS
	;		FORCIBLY RELEASE LOGICAL I/O CHANNEL ASSIGNMENT WHEN RELEASING
	;		THE STRING SPACE OF THE LOGICAL "DEVICE".  THIS IS NECESSARY
	;		WHEN A PROCEDURE HAS DONE I/O TO A STRING, AND THE PROCEDURE
	;		EXITS - THE STRING SPACE IS RELEASED, BUT THE I/O CHANNEL IS
	;		STILL LEFT VALID AND THEREFORE THINKS IT CAN STILL DO I/O TO
	;		THE STRING.
	;
	;317	ALGUTL	9-SEP-82	SPR 20-17506	JBS
	;		DON'T EXTEND A SYMBOL ENTRY THAT IS ALREADY EXTENDED.  THIS
	;		OCCURRED IN AN ERRONEOUS PROGRAM WHERE AN UNDECLARED IDENTIFIER
	;		WAS FOUND AT ONE LEVEL, AND THEN USED AS A DESIGNATIONAL
	;		EXPRESSION IN A "GOTO" STATEMENT AT A LOWER BLOCK LEVEL.
	;
	;320	ALGLIB	3-SEP-82	SPR 10-33009	JBS
	;		GET TRAP NUMBER FROM CORRECT PLACE (TOPS-10 ONLY).
	;
	;321	ALGCON	9-SEP-82	RAW		JBS
	;		REMOVE EXTRA CRLF AFTER "UNDEFINED LABEL" MESSAGES FROM
	;		COMPILER (TOPS-10 ONLY).
	;
	;322	ALGLIB	14-SEP-82	10-32932	JBS
	;		GIVE A MORE USEFUL MESSAGE IF THE OTS CAN'T BE LOADED.
	;
	;323	ALGOTS,	17-SEP-82	10-33011	JBS
	;	ALGPRM	ALLOW BOTH FREE <LF> AND TRAP(38) TO WORK WHEN EOF IS HIT
	;		DURING A READ.  EDITS 145 AND 175 CONFUSED THE WAY EOF WORKED.
	;		NOW, A <LF> IS RETURNED ON STRING READ WHEN EOF IS HIT THE
	;		FIRST TIME, AND AN IOERR IS GIVEN ON SUBSEQUENT EOF HITS.
	;
	;324	ALGLIB	13-OCT-82	10-32933	JBS
	;		ALLOW SFD'S IN "OPENFILE" LIBRARY PROCEDURE (TOPS-10 ONLY).
	;		MAKE "OPENFILE" FILESPEC PARSER SMARTER (-10 AND -20).
	;
	;325	ALGLIB,	15-OCT-82	RAW		JBS
	;	ALGOTS	FIX CODE AT WRIT1 IN ALGLIB - WAS TRYING TO USE A0 AS AN INDEX
	;		REGISTER, FIX TYPO AT M500 IN ALGOTS.
	;
	;326	ALGOTS	8-NOV-82	RAW		JBS
	;		UPGRADE HEAP INTEGRITY CHECKER.  CHECK FOR ZERO-LENGTH AREAS,
	;		CIRCULAR POINTERS THAT DON'T POINT TO EACH OTHER, AND HEAP
	;		SPACE BEING RETURNED TWICE.
	;
	;327	ALGOTS	9-NOV-82	RAW		JBS
	;		FIX TRAP HANDLER AT APR16 IN ALGOTS-10 - IT WASN'T CLEARING
	;		OVERFLOW FLAGS AT ENTRY, CAUSING NUMBERS TO PRINT WRONG FROM
	;		COMMANDS SUCH AS "STAT" TO ALGDDT.  ALSO, REARRANGE CODE IN
	;		"PRINT.".
	;
	;330	ALGOTS	9-NOV-82	RAW		JBS
	;		ALGDDT "PROFILE" COMMAND GETS AN ILL MEM REF IF USED WITH A
	;		NON-SHARABLE OTS.
	;
	;331	ALGOTS	15-NOV-82	RAW		JBS
	;		CHANGE OVERFLOW CLEARING INSTRUCTIONS AT APR16 (TOPS-20 ONLY).
	;
	;332	ALGDDT,	16-NOV-82	10-33106	JBS
	;	ALGPRM	PRESERVE AX OVER BREAKPOINTS.
	;
	;333	ALGDDT	18-NOV-82	RAW		JBS
	;		CHANGE A SKIPA .+1 TO A LITERAL MOVE.
	;
	;334	ALGLIB	2-DEC-82	RAW		JBS
	;		FDATE/VDATE DIDN'T SET STRING STATUS BITS (TOPS-20 ONLY).
	;
	;335	ALGLIB	8-DEC-82	10-32929	JBS
	;		FIX EDIT 256 FOR DELETION OF TRANSIENT STRINGS IN CASES SUCH AS
	;		WRITE(FDATE).
	;
	;336	ALGLIB,	8-DEC-82	RAW		JBS
	;	ALGOTS	FIX INFO(0) - WAS RETURNING CORE SIZE ONE WORD TOO SMALL.  ALSO
	;		CHECK PASSED PARAMETER FOR VALIDITY AND FIX INFO(5).
	;
	;337	ALGLIB,	10-DEC-82	RAW		JBS
	;	ALGSTB	PUT TRAPNO BACK INTO THE TOPS-20 LIBRARY (MORE OF EDIT 206).
	;
	;340	ALGLIB	14-DEC-82	RAW		JBS
	;		CHANGE THE OTS NAME FROM ALGNNN.EXE TO ALGOTS.EXE FOR AUTOPATCH
	;		AND TO SIMPLIFY THINGS.  EDIT 322 SHOULD BE INSTALLED FIRST.
	;
 REP 54/11	;05C4
		%DBMAC(%DDTAL)		; XWD ADDR OF CURRENT BREAKPOINT CONTROL BLOCK OR 0,
					;   PTR TO AUTOLIST TABLE OR 0 (FIXED 26. WORDS LONG)
 WIT
		%DBMAC(%DDTAL)		; ADDR OF CURRENT BREAKPOINT CONTROL BLOCK OR
					; 0,, PTR TO AUTOLIST TBL OR 0 (26. WORDS LONG)
 REP 59/11	;05C5
		%DBMAC(%DDTPT)		; XWD ADDR OF FAILING MODULE'S LOADER S.T. ENTRY,
					;  ADDR OF STN-ITEM OF ERROR OR PAUSE.
		%DBMAC(%DDTIP)		; I/P POINTER, OR POINTER TO IT IF DDALST IS SET.
		%DBMAC(%DDTER)		; L.H. = REDIRECT CHANNEL #,
					; R.H. = ADDR OF LAST ERR MSG (FOR EXPERT/NOVICE)
		%DBMAC(%DDTFL)		; SAVE FOR FLAG REGISTER.
		%DBMAC(%DDTPC)		; XWD DL OF CONTEXT ESTABLISHED BY FNDADR,
					;   ADDR OF ERROR OR PAUSE. SAVED BY ERRMON OR PAUSE CODE.
 WIT
		%DBMAC(%DDTPT)		; ADDR OF FAILING MODULE'S LOADER S.T. ENTRY,,
					; ADDR OF STN-ITEM OF ERROR OR PAUSE
		%DBMAC(%DDTIP)		; I/P PTR., OR POINTER TO IT IF DDALST IS SET
		%DBMAC(%DDTER)		; LT = REDIRECT CHANNEL #,
					; RT = ADDR OF LAST ERR MSG (FOR EXPERT/NOVICE)
		%DBMAC(%DDTFL)		; SAVE FOR FLAG REGISTER.
		%DBMAC(%DDTPC)		; DL OF CONTEXT ESTABLISHED BY FNDADR,,ADDR OF
					; ERROR OR PAUSE. SAVED BY ERRMON OR PAUSE CODE
 REP 89/11	;05C6

		%DBMAC(GETTMP,1)	; [251] "HEAP SPACE IN USE" SEMAPHORE
		%DBMAC(%UUOTM)		; [277] USED IN UUO HANDLER AT ERRMNX
 WIT
		%DBMAC(GETTMP,1)	; [251] "HEAP SPACE IN USE" SEMAPHORE
		%DBMAC(%UUOTM)		; [277] USED IN UUO HANDLER AT ERRMNX
		%DBMAC(PDLTMP)		; [311]
		%DBMAC(APRTMP)		; [311]
		%DBMAC(%IOSTS,40)	; [323] EXTRA INTERNAL-ONLY I/O STATUS BITS
		%DBMAC(SAVAX)		; [332] TEMP. STORAGE FOR AX DURING BREAKPOINTS
 INS 33/12	;05C7
		LFEOF==1B0		; [323] FREE <LF> HAS BEEN GIVEN TO STRING READ
					; [323] AFTER HITTING EOF THE FIRST TIME.

 INS 87/13	;05C8
		.PTPPN=2		; [324] PPN OFFSET IN PATH BLOCK
		.PTSFD=3		; [324] FIRST SFD NAME OFFSET IN PATH BLOCK
 SUM 183353