Trailing-Edge
-
PDP-10 Archives
-
bb-jr93h-bb
-
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 30/1 ;05C2
EDTNO==310 ; EDIT NUMBER
WIT
EDTNO==340 ; EDIT NUMBER
INS 302/2 ;05C3
;VERSION 10B(310) RELEASED JAN-82
;
;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 PSEUDO-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 2-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 7-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 293/3 ;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 298/3 ;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
INS 330/3 ;05C6
%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/4 ;05C7
LFEOF==1B0 ; [323] FREE <LF> HAS BEEN GIVEN TO STRING READ
; [323] AFTER HITTING EOF THE FIRST TIME.
REP 122/4 ;05C8
SUBTTL MISC JOBDAT WORDS
JBTPRG=3
WIT
SUBTTL MISC WORDS
JBTPRG=3
.PTPPN=2 ; [324] PPN OFFSET IN PATH BLOCK
.PTSFD=3 ; [324] FIRST SFD NAME OFFSET IN PATH BLOCK
SUM 156693