Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
algots.c07
There are 14 other files named algots.c07 in the archive. Click here to see a list.
REP 6/114 ;07C1
LDB A3,[
POINT 3,A2,17]
WIT
LDB A3,[POINT 3,A2,17]
REP 8/126 ;07C2
SOJE A0,PRIN52 ; CALCULATE EXPONENT - ESCAPE IF ZERO
WIT
SOS A0 ;[344] CORRECT EXPONENT AND FALL THROUGH
REP 12/150 ;07C3
BLT A0,%ACCS+SP(DB) ; SAVE ACCUMULATORS
WIT
SUBI DL,(DB) ;[343] DELOCATE DL BEFORE SAVING
SUBI SP,(DB) ;[343] AND SP
BLT A0,%ACCS+SP(DB) ; SAVE ACCUMULATORS
ADDI DL,(DB) ;[343] RELOCATE DL
ADDI SP,(DB) ;[343] AND SP
REP 26/151 ;07C4
ERRM8: LDB A5,[
POINT 4,.JBUUO,12] ; NO DIRECTORY-ENTRY - GET ERROR #
WIT
ERRM8: LDB A5,[POINT 4,.JBUUO,12] ; NO DIRECTORY-ENTRY - GET ERROR #
REP 33/151 ;07C5
MOVEI A1,[
ASCIZ/:/]
WIT
MOVEI A1,[ASCIZ/:/]
REP 7/152 ;07C6
MOVEI A1,[
ASCIZ/./]
WIT
MOVEI A1,[ASCIZ/./]
DEL 22/154 ;07C7
SETZ A0, ; [251] SETUP TO RELEASE EXPANDABLE HEAP SPACE
SKIPE A1,GETTMP(DB) ; [251] DID ROUTINE HAVE HEAP SPACE ALLOCATED?
PUSHJ SP,GETOWN ; [251] YES, RELEASE IT
SETZM GETTMP(DB) ; [251] NO, CLEAR "I HAVE HEAP SPACE" SEMAPHORE
REP 22/165 ;07C8
M416: ASCIZ /Invalid file specification/ ; [324]
WIT
M416: ASCIZ /Invalid file specification on/ ; [346]
SUM 238089